Histórico da Página

Parâmetros:

ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela FK5 ou FK6 (conforme o ponto de execuçãoChave do título - SE2→(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA)
ParamIXB[2] - Código da operação, indicando qual registro auxiliar está sendo tratado no momento da execução do ponto de entrada.] - Data do Pagamento
ParamIXB[3] - Data do Débito
ParamIXB[4] - Código da Operação = 4 - Baixa Manual

Além dos parâmetros informados no ponto de entrada, pode-se utilizar de qualquer informação disponível do Título a Pagar (campos da tabela SE2) e Fornecedor (campos da tabela SA2) que esta sendo processado, pois os registros estão posicionados.

Retorno:

#INCLUDE "PROTHEUS.CH"

User Function F80GRVFKF80L9816()

Local cChave   oObj := ParamIxbParamIXB[1]
Local dDtBaixa nOpc := ParamIxbParamIXB[2]

Local cConteudodDtDebito := "Campo customizado."

IfParamIXB[3]
Local nOpc == 1 //Baixa 
    //--Recebe Submodel FK5 - Movimentos Bancários
 := ParamIXB[4]
Local dDtTaxa   oObj:SetValue( "FK5_CUSTOM" , cConteudo )

Else 
= dDataBase
Local aArea    //--Recebe Submodel FK6 - Valores Acessórios
  := GetArea()
Local nTaxa   If nOpc =:= 2 // Desconto
        cConteudo +=  '- DC'
    ElseIf nOpc == 3 // Juros
        cConteudo +=  '- JR'
    ElseIf nOpc == 4 // Multa
        cConteudo +=  '- MT'
    ElseIf nOpc == 5 // Correção Monetária
        cConteudo +=  '- CM'
    ElseIf nOpc == 6 // Imposto Substituição
        cConteudo += ' - IS0

dDtTaxa:=dDtBaixa-2

If SA2->A2_TIPO=='X' .And. SE2->E2_MOEDA > 1 
    dbSelectArea('SED')
    dbSetOrder(1)
    dbSeek(xFilial('SED')+SE2->E2_NATUREZ)
    If ED_CALCIRF=='S'
    ElseIf nOpc == 7 // Valor acessório
        cConteudo += ' - VA'        -- Retorna taxa na data solicitada
    EndIf

    oObjnTaxa:SetValue( "FK6_CUSTOM" , cConteudo )

Endif

Return oObj=RecMoeda(dDtTaxa,SE2->E2_MOEDA)
    EndIF
EndIF

RestArea(aArea)
Return(nTaxa)