Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabio Casagrande Lima

Gravado em

comparado com

Nova versão 2

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 FA986NF  FACLMFKG será executado para gravar dados complementares na tabela FKF FKG (Complemento do Título ) ao incluir Documentos de Entrada (MATA103) e Documento de Saída (MATA461). 

Ele será executado em dois momentos:

...

x Impostos ) em rotinas que façam uso do ExecAuto da rotina do 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]

- Sub-model para adicionar dados complementares no registro da tabela

 - 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
titleFA986NF
#INCLUDE "PROTHEUS.CH"
 
User Function FA986NFFACLMFKG()
Local oObjaRet   := 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 cCont1aAuxFKG     := "1"{}
Local cCont2 aFKG        := "01"  {} //Array com os campos desejados

If cAlias == "SF2SE2"
   //Complemento de Título do Contas a ReceberaAuxFKG 
:= {{ "FKG_ITEM"  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 

Return000001"        		 , NIL },;
			{ "FKG_IDFKE"  	, "FIN058"        		 , NIL },;
			{ "FKG_VALOR"	, 152          				 , NIL }} 
endIf 


AAdd(aFKG, aAuxFKG )

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>

...