Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

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.

02. PARÂMETROS E RETORNO

VariávelTipoDescrição

cBcoOrig

caractereBanco de origem

cAgenOrig

caractereAgencia de origem

cCtaOrig

caractereConta de origem

cBcoDest

caractereBanco de destino

cAgenDest

caractereAgencia de destino

cCtaDest

caractereConta de destino

cTipoTran

caractereTipo de transferência

cDocTran

caractereDocumento de transferência

nValorTran

numéricoValor da transferência

cHist100

caractereHistórico

cBenef100

caractereBeneficiário

cNaturOri

caractereNatureza origem

cNaturDes

caractereNatureza destino

cModSpb

caractereVerifica se o tipo do SPB está valido (TED ou STR) 

lEstorno

lógicoVariável que indica se é o estorno da transferência ".T.", ou se é a transferência ".F."

dDtdisp

dataData base, na chamada da transferência, e E5_DTDISPO/FK5_DTDISP, na chamada do estorno da transferência. 

dDataCred

dataData de crédito (apenas para a transferência), será gravado os campos de data de disponibilidade (E5_DTDISPO/FK5_DTDISP).

Importante

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.

03. EXEMPLO DE UTILIZAÇÃO

FA100TRB
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