Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA9859()

País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que possibilita adicionar campos ao Controle de Portaria.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria
Programa Fonte:MNTA985.prx

Função:

MNTA9859

Retorno:

Nulo

03. DEMAIS INFORMAÇÕES

Exemplo MNTA9859()
#Include 'Protheus.ch'

User Function MNTA9859()

If lMultEmp

@ 0,0 Listbox oListVei Fields (cTRBVei)->FILIAL,"",;

(cTRBVei)->CODBEM,;

(cTRBVei)->LOCAL,;

((cTRBVei)->DESTAT," "," - " + (cTRBVei)->DESTAT),;

(cTRBVei)->PLACA; // Novo campo criado.

FieldSizes 40,56,65,102;

Size 140,290 Pixel Of oPanel11;

HEADERS "Empresa"+If(NGSX2MODO("ST9")=="E","Filial","") ,;

"Veículos",;

"Local",;

"Status",;

"Placa"

Else

@ 0,0 Listbox oListVei Fields (cTRBVei)->CODBEM,;

(cTRBVei)->LOCAL,;

((cTRBVei)->DESTAT," "," - "+(cTRBVei)->DESTAT),;

(cTRBVei)->PLACA; // Novo campo criado.

FieldSizes 40,56,65,102;

Size 140,290 Pixel Of oPanel11;

HEADERS "Veículos",;

"Local",;

"Status",;

"Placa"

EndIf


Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica.