Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Caio Cesar Felipe

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Leandro Nishihata

Gravado em

Chave

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

...

Portuguese

Pagetitle
MT100GE2 - Complementa a Gravação dos Títulos Financeiros a Pagar
MT100GE2 - Complementa a Gravação dos Títulos Financeiros a Pagar

Ponto-de-Entrada: MT100GE2 - Complementa a Gravação dos Títulos Financeiros a Pagar


 

Abrangências:Microsiga Protheus 10 , 11 e 12
Versões:Microsiga Protheus 10 , 11 e 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 


Descrição:
Localização.: Function A103AtuSE2 - Rotina que efetua a integração entre o documento de entrada e os títulos financeiros a pagar,após a gravação de cada parcela. 
Finalidade...: Complementar a gravação na tabela dos títulos financeiros a pagar.
Programa Fonte: 
MATA103.PRW
Sintaxe

MT100GE2( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3], [ PARAMIXB[4], [ PARAMIXB[5] ] ) --> Nil


Parâmetros: 


NomeTipoDescriçãoDefaultObrigatórioReferência
 

PARAMIXB[1]Array of RecordACols dos títulos financeiro a pagar
    




PARAMIXB[2]Numérico1=inclusão de títulos
2=exclusão de títulos
   
 




PARAMIXB[3]Array of RecordAHeader dos títulos financeiros a pagar
    




PARAMIXB[4]NuméricoNumero da parcela sendo processada
    




PARAMIXB[5]NuméricoArray das parcelas do titulo
    

 






Retorno: Nil
Exemplo:
#Include
#include '
Protheus
protheus.ch'
 
#include 'parmtype.ch'

User Function MT100GE2()
Local
aTitAtual  
aTitAtual := PARAMIXB[1]
Local
nOpc       
nOpc := PARAMIXB[2]
Local aHeadSE2:= PARAMIXB[3]
Local aParcelas := ParamIXB[5]
Local
nX           
nX := ParamIXB[4]
//.....Exemplo de customização

Local nPos:=Ascan(aHeadSE2,{|x| Alltrim(x[2]) == 'E2_OBS'})  

  
If nOpc == 1 //.. inclusao
       SE2
     SE2->E2_
OBS
HIST:=
aCols[nPos]
   EndIf
"Exemplo de utilização do P.E. MT100GE2 "
Endif

Return(Nil)