Histórico da Página

Programa Fonte
TMSA850.PRW

Sintaxe 

TM850MEC - Manipulação de Elementos do aCampos ( < aCampos> ) --> aCampos  

Retorno 
aCampos(array_of_record)
Vetor contendo as colunas de aCampos.   

Exemplos

#INCLUDE "Protheus.ch"

//-------------------------------------------------------------------
/*{Protheus.doc} TM850MEC
Manipulação de Elementos do aCampos
https://tdn.totvs.com.br/pages/releaseview.action?pageId=6093569
@type Ponto de Entrada
@author TOTVS 
*/
//------------------------------------------------------------------- 
User Function TM850MEC()
Local aCmp:= PARAMIXB[1]
Local nTam := len(aCmp) 

If ValType(aCmp)== "A" .And. Len(aCmp) > 0     
	
	//-- Exclui campo do array para exibição na tela.
	aDel(aCmp,8)      
	aSize(aCmp,nTam-1)

	//--Adiciona campo no array
	Aadd(aCmp, {"DT6_NCONTR", ""} )

EndIf 

Return aCmp