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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas