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:

MNTA985A()

País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que possibilita adicionar novo folder ao Controle de Portaria

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria
Programa Fonte:MNTA985.prx

Função:

MNTA985A

Retorno:

Nulo

Observação:

O Nome do campo criado no Dicionário deverá ser o mesmo informado no (cTRBES)->NOMEDOCAMPO.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA985A()
#Include 'Protheus.ch'
 
User Function MNTA985A()
 
    Local aDBFOS    := PARAMIXB[1] //Campos Adicionados
    Local oPanel21    := PARAMIXB[2] //Objeto onde serão apresentados os campos
    Local oFolder       := PARAMIXB[3] //Novo Folder
    Local nFolderAtu  := ++Len(oFolder:aDialogs)
    Local bSetOption  := oFolder:bSetOption
    Local aAlter           := {}
    Private aCols := {}
    Private oGet
 
    //Cria Folder
    oFolder:AddItem("Novo Folder")
    aHeader := aClone(aDBFOS)
    aCols := {}
    oFolder:SetOption(1)
    oFolder:bSetOption := bSetOption
    @ 004,010 Say "Ordens de Serviço" Pixel Of oFolder:aDialogs[nFolderAtu] FONT oFont12B Color CLR_WHITE //"Ordens de Serviço"
    dbSelectArea((cTRBOS))
    dbGoTop()
 
    If lMultEmp
        @ 0,0 Listbox oListOS Fields If(DTOS(dDataBase)+ Time() < DTOS((cTRBOS)->DTMPINI) + (cTRBOS)->HOMPINI,oOS1,;
        If(DTOS(dDataBase) + Time() < DTOS((cTRBOS)->DTPREV) + (cTRBOS)->HRPREV,oOS2,oOS3)),;
        (cTRBOS)->EMPRESA+"/"+(cTRBOS)->FILIAL,;
        (cTRBOS)->ORDEM,;
        (cTRBOS)->NOMAREA,;
        (cTRBOS)->DESTIPO,;
        (cTRBOS)->DTMPINI,;
        (cTRBOS)->HOMPINI,;
        (cTRBOS)->DTPREV,;
        (cTRBOS)->HRPREV,;
        (cTRBOS)->SERVIC,;
        (cTRBOS)->OBSERV,;
         (cTRBOS)->TTI_NCAMPO ; // Novo campo criado.
        FieldSizes 05,20,25,75,45,40,40,40,40,30,110 ;
        Size 470,125 Pixel Of oPanel21 ;
        HEADERS "",;
        "Abert.",;
        "O.S.",;
        "Área",;
        "Tipo",;
        "Dt. Prev. Inicio",;
        "Hr. Prev. Inicio",;
        "Previsão Saída",;
        "Hora Prevista",;
        "Serviço",;
        "Observação",;
        "Tipo"
    Else
        @ 0,0 Listbox oListOS Fields If(DTOS(dDataBase) + Time() < DTOS((cTRBOS)->DTMPINI) + (cTRBOS)->HOMPINI,oOS1,;
        If(DTOS(dDataBase) + Time() < DTOS((cTRBOS)->DTPREV) + (cTRBOS)->HRPREV,oOS2,oOS3)),;
        (cTRBOS)->ORDEM,;
        (cTRBOS)->NOMAREA,;
        (cTRBOS)->DESTIPO,;
        (cTRBOS)->DTMPINI,;
        (cTRBOS)->HOMPINI,;
        (cTRBOS)->DTPREV,;
        (cTRBOS)->HRPREV,;
        (cTRBOS)->SERVIC,;
        (cTRBOS)->OBSERV,;
        (cTRBOS)->TTI_NCAMPO ; // Novo campo criado.
        FieldSizes 05,25,75,45,40,40,40,40,30,110 ;
        Size 450,125 Pixel Of oPanel21;
        HEADERS "",;
        "O.S.",;
        "Área",;
        "Tipo",;
        "Dt. Prev. Inicio",;
        "Hr. Prev. Inicio",;
        "Previsão. Saída",;
        "Hora Prevista",;
        "Serviço",;
        "Observação",;
        "Tipo"
 
    EndIf
 
Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica.