Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • G180VLEM - Validações específicas -- 13165

Ponto-de-Entrada: G180VLEM - Validações específicas
Versões: Microsiga Protheus 8.11
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada que possibilita a criação de validações específicas antes da gravação do empréstimo permitindo que seja impedida a finalização do empréstimo após validação do cliente ou que seja ocorra a gravação do empréstimo.
Programa Fonte 
GACA180.PRW
Sintaxe

G180VLEM - Validações específicas ( < cCliente> , < cLoja> , < nValorDesc> , < aExempl> , < l180EM> , < l180DE> , < l180RE> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cCliente Caracter Cliente X
cLoja Caracter Loja X
nValorDesc Caracter Valor do Desconto X
aExempl Array of Record Vetor contendo todos os códigos de publicações do Acervo X
l180EM Lógico Se é Empréstimo X
l180DE Lógico Se é Devolução X
l180RE Lógico Se é Renovação X
Retorno
    lRet(logico)
  • Se o cliente, após a validação, desejar prosseguir a gravação do empréstimo deve-se retornar verdadeiro (.T.); caso contrário, falso (.F.)
Exemplos 
User Function G180VLEM()//O exemplo a seguir verifica se existem pendências financeiras. Neste caso, não permite novo empréstimo.Local cCliente  := ParamIxb[1] //ClienteLocal cLoja     := ParamIxb[2] //Loja     Local lRet      := .T.     cQuery := ' SELECT DISTINCT SE1.E1_SALDO 'cQuery += ' FROM ' + RetSqlName('SE1') + ' SE1 'cQuery += ' WHERE 'cQuery += '    SE1.E1_FILIAL = '' + xFilial('SE1') + ''' cQuery += '     AND SE1.E1_CLIENTE = '' + cCliente + '' 'cQuery += '     AND SE1.E1_LOJA = '' + cLoja + '' 'cQuery += '     AND SE1.D_E_L_E_T_ = ' ' '   cQuery := ChangeQuery(cQuery)     dbUseArea( .T., 'TOPCONN', TCGENQRY(,,cQuery),'TMP', .F., .T.)DbSelectArea('TMP')If !TMP->(Eof()) If TMP->E1_SALDO <> 0 //-- Possui títulos em aberto  lRet := .F.  MsgAlert('Cliente possui títulos em aberto') EndIfEndIfTMP->(DbCloseArea())Return(lRet)