NGPROETA - Montagem de Dialog

Ponto de entrada executado ao clicar em Incluir ou Excluir no retorno de Etapas, sendo assim possível montar Dialog para tratar a operação desejada, adicionando campos e validações específicas.

NGPROETA - Montagem de Dialog ( < nOPCX> ) --> lRet

lRet(logico)
• Verdadeiro indica, inclusão ou exclusão. Falso indica operação cancelada.

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)+' - '+If(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.