01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Ponto de EntradaFN661PASS 

02. DESCRIÇÃO

Ponto de entrada FN661PASS permite antes da importação, validar dados do passageiro após recebimento dos parâmentros

03. EXEMPLO DE UTILIZAÇÃO


#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 (https://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

04. DEMAIS INFORMAÇÕES

Não há



<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>