Histórico da Página

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

//P_E**************************************************************************************
//P_E - Ponto de entrada utilizado para customizar novos botões
//P_E - Parâmetros : Nenhum 
//P_E - Retorno : aBotoes - Array
//P_E****************************************************************************************

User Function CT030BUT() 
Local aBotoes := ParamIXB 
 
aAdd(aBotoes,{ "PE" , "Processa( { || CTBA080() })", 0, 0} ) 
 
Return aBotoes