Histórico da Página

#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_referenceshttps://tdn.totvs.com/x/aYhhM)
    /*/
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