Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA985

Controle de Portaria

Rotina(s) envolvida(s)

Nome Técnico

MNTA985

Controle de Portaria

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)->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