Histórico da Página
...
03. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE "PROTHEUS.CH" USER FUNCTION A390AVU() LOCAL cMensagem := NIL // A chamada a este ponto de entrada ocorrerá // imediatamente após o processo de gravação do Cheque Avulso. // As tabelas SE5 e SEF estarão posicionadas nos respectivos registros // para que se possa realizar ações complementares. IF !Complements('SE5',@cMensagem) .OR. !Complements('SEF',@cMensagem) MSGINFO(cMensagem,'PE: A390AVU') ENDIF RETURN NIL STATIC FUNCTION Complements(cAlias,cMensagem) LOCAL lRet := .T. DEFAULT cMensagem := "" IF cAlias == 'SE5' // DO something ... ENDIF IF cAlias == 'SEF' // DO something ... ENDIF RETURN lRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas