Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 

02. DESCRIÇÃO

O ponto de entrada TM850MEC permite adicionar, alterar e remover campos do vetor aCampos.

Localizado dentro da função TMSA850Aut, ao gerar fatura por documento.

03. EXEMPLO DE UTILIZAÇÃO

Parâmetros:


Nome
Tipo
Descrição
Default
Obrigatório
Referência
aCampos
Array of Record
Vetor contendo as colunas de aCampos


Sim


Variáveis

Nome
Tipo

Escopo

Pode Alterar
Descrição
aCampos
Array of Record

Local

Sim
Vetor contendo as colunas de aCampos
nTam
Numérico

Local

Não
Quantidade de elementos presente no vetor aCampos
TM850MEC 
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  


04. DEMAIS INFORMAÇÕES

No exemplo, foi removido o campo de data de emissão e adicionado o do número de contrato:


05. ASSUNTOS RELACIONADOS

  • Não há.