01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Asset (SIGAFIS)

Function:

ATFA250

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46030

02. DESCRIPTION

This entry point is called right before bookkeeping, after updating asset records in the system. This is an opportunity to add adjustments or validations to records, as extra calculations or verifications before entering data in accounting systems.

03. OTHER INFORMATION


If ExistBlock("AF250GRV")  // PONTO DE ENTRADA ANTES DA COTABILIZACAO
	Execblock("AF250GRV",.F.,.F.,Acols[nX])
EndIf
// Implementação da função do ponto de entrada AF250GRV
User Function AF250GRV()

    // Exemplo: adicionar uma verificação de integridade nos dados de um ativo
    Local aCols := PARAMIXB[1]  // Array de colunas com dados dos ativos
    Local nPosICMS := Ascan(aHeader, {|x| Alltrim(x[2]) == "N1_ICMSAPR" })
    Local nICMS := 0
	Local i := 0

	For i := 1 To Len(aCols)	
	     // Verifica se o valor de ICMS é maior que um valor permitido
    	If aCols[i][nPosICMS] > 10000
        	// Gera uma mensagem de alerta
        	Help(" ", 1, "AF250_ALERT",, "O valor de ICMS ultrapassa o limite permitido.", 1, 0)
    	EndIf  
	Next i

Return


  • 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. RELATED SUBJECTS