| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
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.
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 |
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
No exemplo, foi removido o campo de data de emissão e adicionado o do número de contrato:
