If ExistBlock( "CT355BUT" )
	aCTBA355 := ExecBlock( "CT355BUT",.F.,.F.,aRotina)
	
	If ValType(aCTBA355) == "A" .AND. Len(aCTBA355) > 0
		aRotina := {}
		For nX := 1 to Len(aCTBA355)
			aAdd(aRotina, aCTBA355[nX])
		Next
	EndIf
EndIf

#INCLUDE "protheus.ch"

User Function CT355BUT()
	Local aBotoes := ParamIXB

	aAdd(aBotoes,{ "PE" , "Processa( { || CTBA080() })", 0, 0} )

Return aBotoes

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