Eventos de Chamada do ponto de Entrada: | ExecBlock("RatGrav",.F.,.F.,{aVlrRat, nI}) |
| Parâmetros: | cFil : Filial / NX_FILIAL / NW_FILIAL / NY_FILIAL
dDtSald : Data do Saldo / NX_DTMOV / NW_DTSALD /NY_DTSALD
cIdMov : Identif. do Mov. / NX_IDMOV
cCodRat : Código do Rateio / NX_CODRAT
cRevisao : Código da Revisão / NX_REVISAO
cMoeda : 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
|
| Exemplo: | #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 |
