Descrição: | 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. | ||||||||
Localização: | Atualizações > Contas à Pagar | ||||||||
Eventos: | Baixas Pagar Manual | ||||||||
Programa Fonte: | FINA080.PRX | ||||||||
Função: | Fa080Grv | ||||||||
Retorno: |
|
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
