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)
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas