Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 rotinas que façam uso do ExecAuto da rotina do 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).   

...

Informações
titleImportante

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


Bloco de código
languagejava
themeMidnight
titleFACLMFKF
#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  := {} //Array com os campos desejados
 
If cAlias == "SE2"
   If nOpc == 3  
      aCamp := {{"FKF_NATREN", "15002", NIL},;
               {"FKF_TPSERV", "04", NIL},;
               {"FKF_TPREPA", "4", NIL}}
   elseIfElseIf nOpc == 4 
      aCamp := {{"FKF_NATREN", "15001", NIL},;
               {"FKF_TPSERV", "04", NIL},;
               {"FKF_TPREPA", "4", NIL}}
   endIfEndIf                   
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] })
   //Verifica se o campo não foi adicionado no Array
   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á



Templatedocumentos

...