O ponto de entrada FA100TFR será executado antes da transferência e retornará ".T." para gravar a transferência ou ".F." em caso contrário.
Caso seja retornado ".F." voltará para a tela de transferência com os dados vazios.
Variável | Tipo | Descrição |
---|---|---|
cBcoOrig | caractere | Banco de origem |
cAgenOrig | caractere | Agencia de origem |
cCtaOrig | caractere | Conta de origem |
cBcoDest | caractere | Banco de destino |
cAgenDest | caractere | Agencia de destino |
cCtaDest | caractere | Conta de destino |
cTipoTran | caractere | Tipo de transferência |
cDocTran | caractere | Documento de transferência |
nValorTran | numérico | Valor da transferência |
cHist100 | caractere | Histórico |
cBenef100 | caractere | Beneficiário |
cNaturOri | caractere | Natureza origem |
cNaturDes | caractere | Natureza destino |
cModSpb | caractere | Verifica se o tipo do SPB está valido (TED ou STR) |
lEstorno | lógico | Variável que indica se é o estorno da transferência ".T.", ou se é a transferência ".F." |
dDtdisp | data | Data base, na chamada da transferência, e E5_DTDISPO/FK5_DTDISP, na chamada do estorno da transferência. |
dDataCred | data | Data de crédito (apenas para a transferência), será gravado os campos de data de disponibilidade (E5_DTDISPO/FK5_DTDISP). |
Este ponto de entrada foi alterado em 06/11/2020 sendo incluso o ultimo parâmetro (dDataCred) para o movimento de transferência. Este parâmetro não é existente na chamada do estorno da transferência. |
User Function FA100TRF Local ddtdisp := ParamIXB[16] Local ddtcred := dDatabase Local lEstorno := ParamIXB[15] Local lGrava := .T. If !lEstorno ddtcred := ParamIXB[17] If ddtcred <> ddtdisp lGrava := .F. Alert("As datas de digitação e data base encontram-se diferentes.") EndIf EndIf Return lGrava |
<!-- esconder o menu --> <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> |