Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Mônica Amélia Nunho Giandoni

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
NGPROETA - Montagem de Dialog
NGPROETA - Montagem de Dialog

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOPCXNumérico1 - Incluir2 - ExcluirX
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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão