| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
| Ponto de Entrada | FN661PASS |
Ponto de entrada FN661PASS permite antes da importação, validar dados do passageiro após recebimento dos parâmentros
#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 |
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>
|