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:
#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)->TIPO>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)->TIPO>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