Linha Microsiga Protheus

Árvore de páginas

ADICIONA NOVOS CAMPOS NO CONTROLE DE PORTARIA

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA985

Controle de Portaria

Rotina(s) envolvida(s)

Nome Técnico

MNTA985

Controle de Portaria

Issues Relacionados

11: MNG-2010

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

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

Eventos:

Controle de Portaria (MNTA985)

Programa Fonte:

MNTA985.PRX

Função:

MNTA9859()

Retorno:

(Nulo)

Exemplo:

#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