If ExistBlock( "PCOA4823" )
	//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//P_E³ Ponto de entrada utilizado para validação do tudo Ok da tela.          ³
	//P_E³                                                                        ³
	//P_E³ Parametros : Validação Padrão                                          ³
	//P_E³ Retorno    : Logico                                                    ³
	//P_E³ Ex.        : User Function PCOA4823                                    ³
	//P_E³              Return {.T.)						                      ³
	//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	If ValType( lOk := ExecBlock( "PCOA4823", .F., .F. ,lRet) ) == "L"
		lRet := lOk
	EndIf
EndIf

User Function PCOA4823(lRet)

    Local lOk := PARAMIXB[1]
	Local lRet:= .F.
    Local nPosPerc := aScan(aHeader , {|x| ALLTRIM(x[2])== "AM9_PERC" })
    Local nX := 0

	For nX := 1 To Len(aCols)
		
		If !aCols[nX][Len(aCols[nX])] // Não Deletada
			// validacao do cliente
		EndIf
		
	Next nX
    
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.