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 FACLMFKF será executado para gravar dados complementares na tabela FKF (Complemento do Título) quando os mesmos possuírem obrigatoriedade em seu preenchimento, em rotinas que utilizem o MsExecAuto das rotinas de contas a pagar (FINA050) e contas a receber (FINA040) para a inclusão e alteração de títulos, como exemplo ao fazer a (Medição de Contratos).   


Importante

Parâmetros:

ParamIXB[1] - Array contendo os campos da FKF.
ParamIXB[2] - Alias da tabela, indicando em qual situação os dados deverão receber (SE1 ou SE2) .
ParamIXB[3] - Opção indicando qual a operação sendo executada ( 3 - Inclusão | 4 - Alteração ).


03. EXEMPLO DE UTILIZAÇÃO


FACLMFKF
#INCLUDE "PROTHEUS.CH"
  
User Function FACLMFKF()
Local aRet   := ParamIxb[1] //Array com os campos recebidos
Local cAlias := ParamIxb[2] //Alias da Tabela 
Local nOpc   := ParamIxb[3] // 3-Inclusão | 4-Alteração
Local nX     := 0
Local nPos   := 0
Local aCamp  := {}
 
If cAlias == "SE2"
   If nOpc == 3  
      aCamp := {{"FKF_NATREN", "15002", NIL},;
               {"FKF_TPSERV", "04", NIL},;
               {"FKF_TPREPA", "4", NIL}}
   ElseIf nOpc == 4 
      aCamp := {{"FKF_NATREN", "15001", NIL},;
               {"FKF_TPSERV", "04", NIL},;
               {"FKF_TPREPA", "4", NIL}}
   EndIf                   
ElseIf cAlias == "SE1"
      If nOpc == 3 
         aCamp := {{"FKF_NATREN", "20001", NIL},;
                  {"FKF_TPSERV", "02", NIL}}
      ElseIf nOpc == 4 
         aCamp := {{"FKF_NATREN", "20001", NIL},;
                  {"FKF_TPSERV", "01", NIL}}
      EndIf 
EndIf

For nX := 1 to Len(aCamp)
   nPos := aScan(aRet, {|x| AllTrim(Upper(x[1])) == aCamp[nX][1] })
   If nPos = 0
      aAdd(aRet, {aCamp[nX][1], aCamp[nX][2], aCamp[nX][3]})
   EndIf
       
Next nX
 
Return(aRet)


04. DEMAIS INFORMAÇÕES

       Não há

05. ASSUNTOS RELACIONADOS

         Não há