Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Eduardo H. Mussi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Luan Alves

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

MNTA985

Controle de Portaria

Rotina(s) envolvida(s)

Nome Técnico

MNTA985

Controle de Portaria

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:

Bloco de código
languagesql
titleExemplo
linenumberstrue
#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