If ExistBlock("PCO480VLD")
	lRet := ExecBlock("PCO480VLD",nGrade)
EndIf

User Function PCOA480

	Local lRet := .T.
	Local nGrade := PARAMIXB[1]
	Local nPosiPerc := aScan(oGdRegra:aHeader, {|x| AllTrim(x[2]) == "ALO_PERC"})
	Local nContItem := 0
	
	If nGrade == 3

		For nContItem := 1 to Len(oGdRegra:aCols)
			
			nPercaCols := oGdRegra:aCols[nContItem,nPosiPerc]
			
			If nPercaCols <> 0
				// validacao do cliente
				lRet := .F.
			EndIf
			
		Next	
		
	EndIf

Return lRet

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