Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "FINA661.ch"
#INCLUDE "TOTVS.CH"
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function FN661PASS
(Ponto de entrada permite antes da importação, validar dados
do passageiro após recebimento dos paramentros)
@type Function
@author Cassio S Dias
@since 12/12/2023
@version 12
@param oPassag[nX], Object, Objeto Passageiro
@param cSessao, Character, Sessao
@param cAprov, Character, Aprovador
@param nTipo, Numeric, Tipo de Serviço (1=Aereo;2=Hotel;3=Carro;4=Seguro;5=Rodoviario;6=Outros )
@return Nil
@see (links_or_references)
/*/
User Function FN661PASS(oPassag, cSessao, cAprov, nTipo)
Local nX as numeric
nX := 0
For nX := 1 To Len(oPassag)
If (Empty(If(nTipo == 2,oPassag[nX]:nIDAutorizador,oPassag[nX]:nID)) .OR. Empty(oPassag[nX]:cNome) ) //----Sem passageiro.
RETURN .F.
else
MSGINFO( "Passou no P.E FN661PASS", "FN661PASS" )
RETURN .T.
ENDIF
NEXT
Return NIL |
04. DEMAIS INFORMAÇÕES
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas