Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: G180VLEM - Validações específicas
Descrição:
Programa Fonte GACA180.PRW Sintaxe G180VLEM - Validações específicas ( < cCliente> , < cLoja> , < nValorDesc> , < aExempl> , < l180EM> , < l180DE> , < l180RE> ) --> lRet Parâmetros:
Retorno
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