Histórico da Página

Programa Fonte:

ATFXATU.PRW

cFil     : Filial        / NX_FILIAL / NW_FILIAL / NY_FILIAL

dDtSald  : Data do Saldo        / NX_DTMOV / NW_DTSALD /NY_DTSALD 

cIdMov   : IdentificadorIdentif. do Mov.    movimento / NX_IDMOV   

cCodRat  : Código do Rateio     / NX_CODRAT           

cRevisao : Código da Revisão    / NX_REVISAO         

cMoeda   :  Moeda Moeda do lançamento /NX_MOEDA  /  NW_MOEDA / NY_MOEDA    

nValBase : Valor Base           / NX_VLRBASE                

cTpDepr  : Tipo de Depreciação  / NX_TPDEPR          

cSeq     : Sequência            /  NX_SEQUEN                  

nVlrMov  : Valor do movimento   /  NX_VLRMOV   / NW_VLRSALD  / NY_VLRSALD 

cTpSaldo : Tipo de Saldo        /  NX_TPSALDO  / NW_TPSALDO  / NY_TPSALDO

#Include 'Protheus.ch'

#include 'parmtype.ch'

#include "rwmake.ch" 

User function RatGrav()

Local cFil 
Local dDtSald 
Local cIdMov 
Local cCodRat 
Local cRevisao 
Local cMoeda 
Local nValBase 
Local cTpDepr 
Local cSeq 
Local nVlrMov 
Local cTpSaldo 
Local aVlrRat := ParamIXB[1] 
Local nPos := ParamIXB[2]

cFil := aVlrRat[nPos,1]
dDtSald := aVlrRat[nPos,2] 
cIdMov := aVlrRat[nPos,3]
cCodRat := aVlrRat[nPos,4]
cRevisao := aVlrRat[nPos,5]
cMoeda := aVlrRat[nPos,6] 
nValBase := aVlrRat[nPos,7] 
cTpDepr := aVlrRat[nPos,8]
cSeq := aVlrRat[nPos,9]
nVlrMov := aVlrRat[nPos,10]
cTpSaldo := aVlrRat[nPos,11]

MsgAlert("Lista de variaveis de rateio disponiveis posicionadas"; 
+ CRLF + "Filial: " + aVlrRat[nPos,1]; 
+ CRLF + "Data do último Saldo. : " + dtos(aVlrRat[nPos,2]); 
+ CRLF + "Identificador Mov. : " + aVlrRat[nPos,3]; 
+ CRLF + "Cod. Rateio : " + aVlrRat[nPos,4];
+ CRLF + "Cod. Revisão : " + aVlrRat[nPos,5];
+ CRLF + "Moeda : " + aVlrRat[nPos,6];
+ CRLF + "Valor Base : " + str(aVlrRat[nPos,7]);
+ CRLF + "Tipo Depreciação : " + aVlrRat[nPos,8];
+ CRLF + "Sequência : " + aVlrRat[nPos,9];
+ CRLF + "Valor do Movimento : " + str(aVlrRat[nPos,10]);
+ CRLF + "Tipo de Saldo : " + aVlrRat[nPos,11])

Return