Histórico da Página

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.