Histórico da Página

O ponto de entrada POS_ADIA permite que sejam manipuladas as variáveis apresentadas na tela de solicitação de viagens. Será acionado após clicar no botão Calcular na tela de Solicitação de Viagens. Caso seja acionado o botão OK da mesma tela o ponto de entrada também será executado, devido o conceito da rotina realizar os cálculos após clicar OK.

AE_SV001_AP6.PRW

POS_ADIA – Manipular variáveis de Solicitação de Viagem. ( [ _cQuem ], [ _cAntec ], [ _dEmissao ], [ _cFunc ], [ _cSupImd ], [ _cDGRar ], [ _cEmpCli ], [ _cCodCidade ], [ _cCC ], [ _mMotivo ], [ _mObs ], [ _dSaida ], [ _dChegada ], [ _cHoraId ], [ _cHoraVt ], [ _nFatCli ], [ _nFatMic ], [ _lAdiant ], [ _lPassag ], [ _lHosped ], [ _nValorR ], [ _nValorU ], [ _cHosped ], [ _cSolPor ], [ _lAlocVeic ] ) --> aTeste

aTeste(array_of_record)
• O Retorno deve ser de um array com 3 posiçõesPrimeira Posição = nValorR (Referente ao valor em Real)Segunda Posição = nValorU (Referente ao valor em Dolar)Terceira posição = lRet (Variável lógica informando se o conteúdo do Array é verdadeiro ou falso.)

User Function POS_ADIA()Local _cQuem := paramixb[1]Local _cAntec := paramixb[2]Local _dEmissao := paramixb[3]Local _cFunc := paramixb[4]Local _cSupImd := paramixb[5]Local _cDGRar := paramixb[6] Local _cEmpCli := paramixb[7]Local _cCodCidade := paramixb[8]Local _cCC := paramixb[9] Local _mMotivo := paramixb[10]Local _mObs := paramixb[11]Local _dSaida := paramixb[12]Local _dChegada := paramixb[13]Local _cHoraId := paramixb[14]Local _cHoraVt := paramixb[15]Local _nFatCli := paramixb[16]Local _nFatMic := paramixb[17]Local _lAdiant := paramixb[18]Local _lPassag := paramixb[19]Local _lHosped := paramixb[20]Local _nValorR := paramixb[21]Local _nValorU := paramixb[22]Local _cHosped := paramixb[23]Local _cSolPor := paramixb[24]Local _lAlocVeic := paramixb[25]Local lRet := .T.Local aTeste := {}aadd(aTeste,_nValorR+100)aadd(aTeste,_nValorU+100)aadd(aTeste,lRet) Return aTeste