ADICIONA NOVO FOLDER PARA O CONTROLE DE PORTARIA

Características do Requisito

Ponto de Entrada

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; // 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; // 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