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 | 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:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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
DbSelectArea(cTRBES) DbSetOrder(02) DbGoTop() @ 0,0 Listbox oListES Fields If((cTRBES)->TIPO == "1","Entrada","Saída"),; |
Transform
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
FieldSizes 35,40,40,30,55,110,55,110; |
Size
Size 387,130 Pixel Of oPanel22; |
HEADERS
HEADERS "Tipo",; |
"Contador",; |
"Data",; |
"Hora",; |
"Destino",; |
"Observação",; |
"Motorista",; |
"Nome",; |
"Novo Campo"
"Novo Campo" Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas