Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA985B()

País:Brasil


02. DESCRIÇÃO

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
Programa Fonte:MNTA985.prx

Função:

MNTA985B

Retorno:

Nulo

03. DEMAIS INFORMAÇÕES

Exemplo MNTA985B()
#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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.