Árvore de páginas

Ponto-de-Entrada: NGPROETA - Montagem de Dialog
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
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.
Programa Fonte
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nOPCX Numérico 1 - Incluir2 - Excluir X
Retorno
    lRet(logico)
  • Verdadeiro indica, inclusão ou exclusão. Falso indica operação cancelada.
Exemplos
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.
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não