Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 minutos

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Tecnologia

Módulo:

TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)

Função:ATFXINT
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

O ponto de entrada RATGRAV é executado após a contabilização dos valores rateados, possibilitando a inclusão de processos adicionais ou ajustes complementares. Esse ponto é ativado imediatamente após a gravação dos valores rateados no sistema, oferecendo uma oportunidade para realizar verificações, ajustes ou gravações adicionais conforme as necessidades específicas de customização do processo de rateio.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
ExecBlock("RatGrav",.F.,.F.,{aVlrRat, nI})
Exemplo de PE
#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


Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.