Histórico da Página

User Function TM480DEL()
 Local aRetPE 	:= PARAMIXB[1]
 Local nX 		:= 0              
 
 //-- pesquisar botao
If (nX := aScan(aRetPE,{|x| "F4"$x[1]})) > 0 
 
	//-- excluir botao
  	aDel(aRetPE,nX)
  	
//-- redimensionar vetor
  	aSize(aRetPE,Len(aRetPE)-1)
 EndIf
 
//-- pesquisar Atalho                        
//-- 115 refere-se a tecla de atalho F4
If (nX := aScan(aSetKey,{|x| x[1]=115})) > 0
 	 
	//-- excluir botao
 	aDel(aSetKey,nX)
 	
	//-- redimensionar vetor 	 
	aSize(aSetKey,Len(aSetKey)-1)
 EndIf
Return aRetPE