Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Eduardo H. Mussi

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Luan Alves

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

 

Bloco de código
themeEclipse
firstline1
titleExemplo
linenumberstrue
#Include 'Protheus.ch'


User Function MNTA985A()


	Local
aDBFOS    
 aDBFOS    := PARAMIXB[1]
 
 //Campos Adicionados


	Local
oPanel21    
 oPanel21    := PARAMIXB[2]
 
 //Objeto onde serão apresentados os campos


	Local
oFolder       
 oFolder       := PARAMIXB[3]
 
 //Novo Folder


	Local nFolderAtu
 
  := ++Len(oFolder:aDialogs)


	Local bSetOption
 
  := oFolder:bSetOption


	Local
aAlter           := {}
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 
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 
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