Histórico da Página

IF ExistBlock( "CTSETBUT" )
	aCTBA130 := ExecBlock( "CTSETBUT",.F.,.F.,aRotina)
	IF ValType(aCTBA130) == "A" .AND. Len(aCTBA130) > 0
		FOR nX := 1 to len(aCTBA130)
			aAdd(aRotina, aCTBA130[nX])
		NEXT
	ENDIF
ENDIF

User Function CTSETBUT

	Local aRotina := PARAMIXB[1]
	Local aRotinaAux := {}    
	aAdd( aRotinaAux , { "EXEMPLOEJEMPLO","U_EXEMPLO()", 0 , 4})  //"EXEMPLOEJEMPLO"

Return  aRotinaAux 

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

• It should be noted that the use of the Entry Point (PE) and its impacts on the system are the customer's responsibility.
• The examples used in this documentation are for demonstration purposes only; each customer must determine the behavior they wish to implement according to the scope of the entry point.