Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite adicionar campos/validações específicas ao selecionar a opção Incluir ou Excluir 

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

MNTUTIL

Funções Genéricas


Rotina(s) envolvida(s)

Nome Técnico

NGPROETA

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado no programa de Funções Genéricas (MNTUTIL) que permite adicionar campos/validações específicas ao selecionar a opção Incluir ou Excluir

Programa Fonte:

MNTUTIL.prx

Função:

NGPROETA()
Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Numérico

Operação escolhida

Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoVerdadeiro (.T.) indica inclusão ou exclusão, falso (.F.) indica operação canceladaX
Exemplo do Ponto de Entrada NGPROETA()
#Include 'Protheus.ch'

User Function NGPROETA()	
	
	Local nOPCX := ParamIXB[1]	
	cF3T := "TT9"		
	cVALIDTAR := "NGSTLTAR(STJ->TJ_CODBEM+STJ->TJ_SERVICO+STJ->TJ_SEQRELA,M->TQ_TAREFA)"	
	cVALIDETA := "NGSTQETA(M->TQ_ETAPA,.T.)"	
	
	DEFINE MSDIALOG oDlg5 TITLE cCADASTRO+'  '+Alltrim(stj->tj_ordem)+' - '+;
	IIf(nOPCX = 1,"Incluir","Excluir") From 16,17 To 25,76 OF oMainWnd		

	@ 20.5,05 SAY OemToAnsi("Tarefa") SIZE 37,7 OF oDLG5 COLOR CLR_HBLUE PIXEL 
	//	@ 35.5,05 SAY OemToAnsi("Etapa") SIZE 37,7 OF oDLG5 COLOR CLR_HBLUE PIXEL 
	//		@ 50.5,05 SAY OemToAnsi("Seq.Etapa") SIZE 37,7 OF oDLG5 PIXEL 
	//		@ 20,030 MSGET M->TQ_TAREFA  SIZE 025,7 OF oDLG5 PIXEL F3 cF3T PICTURE "@!" VALID &(cVALIDTAR) WHEN (nOPCX == 1) HASBUTTON	
	@ 20,069 MSGET M->TQ_NOMTARE SIZE 150,7 OF oDLG5 PIXEL When .f.	   	
	@ 35,030 MSGET M->TQ_ETAPA   SIZE 025,7 OF oDLG5 PIXEL F3 "TPA" VALID &(cVALIDETA) PICTURE "@!" WHEN (nOPCX == 1) HASBUTTON	
	@ 35,069 MSGET M->TQ_NOMETAP SIZE 150,7 OF oDLG5 PIXEL When .f.	
	@ 50,030 MSGET M->TQ_SEQETA  SIZE 025,7 OF oDLG5 PIXEL WHEN (nOPCX == 1)		
	
	ACTIVATE MSDIALOG oDlg5 ON INIT EnchoiceBar(oDlg5,	{||nOpca:=1,If( nOPCx==2 .or. (nOPCx==1 .And. &(cVALIDETA)) ,;														
	oDlg5:End(),nOpca:=0)},	{||oDlg5:End()})

Return .T.