Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Descrição:

RatGrav  - Pós contabilização do valor rateado

Eventos de Chamada do ponto de Entrada:

ExecBlock("RatGrav",.F.,.F.,{aVlrRat, nI})

Programa Fonte:

P11.80: ATFXATU.PRW

P12.1.16 e P12.1.17: ATFXINT.PRW

Função:

AtfRecordMov

Idioma:Português 
Versões:

Protheus 11.80.

Protheus 12.1.16

Protheus 12.1.17 

Sistemas operacionais Suportados:Todos
Compatível com as Bases de Dados:Todos 
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