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.Exemplo:
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 |
Private aCols := {}
Private oGet
//Cria Folder
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
@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
EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas