| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | MNTA9859() |
| País: | Brasil |
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 |
#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 |