Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Rotina:FINA986 - Complemento de Título


02. DESCRIÇÃO

O ponto de entrada FA986NF será executado para gravar dados complementares na tabela FKF (Complemento do Título) ao incluir Documentos de Entrada (MATA103) e Documento de Saída (MATA461). 

Ele será executado em dois momentos:

  1. Geração da NF de Saída    - recebe como parâmetro o alias "SF2". 
  2. Entrada da NF de Entrada - recebe como parâmetro o alias "SF1".

Importante

Parâmetros:

ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela FKF.
ParamIXB[2] - Alias da tabela, indicando em qual situação os dados deverão receber.


03. EXEMPLO DE UTILIZAÇÃO


FA986NF
#INCLUDE "PROTHEUS.CH"
 
User Function FA986NF()
Local oObj   := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local cCont1 := "1"
Local cCont2 := "01"  

If cAlias == "SF2"  //Complemento de Título do Contas a Receber 
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )

ElseIf cAlias == "SF1"  //Complemento de Título do Contas a Pagar   
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )
EndIf 

Return


04. DEMAIS INFORMAÇÕES

       Não há

05. ASSUNTOS RELACIONADOS

Não há