Histórico da Página
ADICIONA NOVO FOLDER 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-2010 | ||||||||
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 folder 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: | MNTA985A() |
Retorno: | (Nulo) |
Observação: O Nome do campo criado no Dicionário deverá ser o mesmo informado no (cTRBES)->NOMEDOCAMPO.
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas