Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Guilherme Alexandre Martins Futro

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Guilherme Alexandre Martins Futro

Gravado em

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>

...