Histórico da Página
ADICIONA NOVO CAMPO PARA O 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: |
| ||||||||
Issues Relacionados | 11 - MNG-3208 | ||||||||
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 novo campo 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: | MNTA985B() |
Retorno: | (Nulo) |
Observação : O Nome do campo criado no Dicionário deverá ser o mesmo informado no (cTRBES)->NOMEDOCAMPO.
Exemplo:
#include "Protheus.ch"
User Function MNTA985B()
@ 004,010 Say "Entradas e Saídas" Pixel Of oPnlLgnd22 FONT oFont12B Color CLR_WHITE //"Entradas e Saídas"
DbSelectArea(cTRBES)
DbSetOrder(02)
DbGoTop()
@ 0,0 Listbox oListES Fields If((cTRBES)->TIPO == "1","Entrada","Saída"),;
Transform((cTRBES)->POS1,"@E 999,999,999"),;
(cTRBES)->DTMOV ,;
(cTRBES)->HRMOV ,;
(cTRBES)->DESTINO ,;
(cTRBES)->OBS ,;
(cTRBES)->MOTORI ,;
(cTRBES)->NOME ,;
(cTRBES)->TTI_NCAMPO ;//Novo Campo Criado.
FieldSizes 35,40,40,30,55,110,55,110;
Size 387,130 Pixel Of oPanel22;
HEADERS "Tipo",;
"Contador",;
"Data",;
"Hora",;
"Destino",;
"Observação",;
"Motorista",;
"Nome",;
"Novo Campo"
Return