929090 DSERFINP-3684 DT Ponto de entrada SE5FI080 reestruturação da SE5 com FKs

O ponto de entrada SE5FI080 sera executado para gravar dados complementares da tabela SE5. A chamada ocorre após carregar o modelo de dados com a baixa respectiva.

*É recebido como parâmetro pelo PE o modelo de dados da Baixa (FK2 para baixa principal, FK6 para Valores Acessórios), para que seja possível validar a gravação complementar da SE5 com seus valores.

Atualizações > Contas à Pagar 

Baixas Pagar Manual

FINA080.PRX

Fa080Grv

Exemplo:

#Include 'Protheus.ch'

User Function SE5FI080()

Local cCamposE5 := PARAMIXB[1]

Local oSubModel := PARAMIXB[2]

If oSubModel:cID == "FK2DETAIL"

     If "VL" $  oSubModel:GetValue("FK2_TPDOC")

          cCamposE5 += ",{"

          cCamposE5 += " 'E5_CCC', '001' "

          cCamposE5 += "} "              

     EndIf

ElseIf oSubModel:cID == "FK6DETAIL"

     If "DC" $  oSubModel:GetValue("FK6_TPDOC")

          cCamposE5 += ",{"

          cCamposE5 += " 'E5_CCC', '002' "

          cCamposE5 += "} "              

     EndIf

EndIf

Return cCamposE5