Á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 FACLMFKG será executado para gravar dados complementares na tabela FKG (Complemento do Título x Impostos ) em rotinas que façam uso do ExecAuto utilizem o MsExecAuto nas rotinas do contas a pagar (FINA050) e contas a receber (FINA040) para a inclusão e alteração de títulos, como por exemplo ao fazer a (Medição de Contratos) inserindo um título.

...

Informações
titleImportante

Parâmetros:

ParamIXB[1] - Array contendo os campos da FKG.
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
titleFACLMFKG
#INCLUDE "PROTHEUS.CH"
 
User Function FACLMFKG()
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
Local nPos        := 0
Local aAuxFKG     := {}
Local aFKG        := {} //Array com os campos desejados
 
If cAlias == "SE2"
   If nOpc == 3 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058"               , NIL },;
               { "FKG_VALOR"   , 152                    , NIL }}
               
      AAdd(aFKG, aAuxFKG )
   
   elseIf nOpc == 4 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058"               , NIL },;
               { "FKG_VALOR"   , 125                    , NIL }}
   
      AAdd(aFKG, aAuxFKG )
   endIf    
endIf
  
aAuxFKG := {}
 
For nX := 1 to Len(aFKG)
    
   nPos := aScan(aRet, {|x| AllTrim(Upper(x[1])) == aFKG[nX][1] })
    
   If nPos = 0
      aAdd(aRet, {aFKG[nX][1], aFKG[nX][2], aFKG[nX][3]})
   EndIf
    
Next nX
 
Return(aRet)

...

04. DEMAIS INFORMAÇÕES

       Não há

05. ASSUNTOS RELACIONADOS

Não há



Templatedocumentos


HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

...