- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Parametros ponto de entrada MA415END
×
Linguagem de Programação ADVPL
Perguntas Parametros ponto de entrada MA415END
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11366
por jrBrittes
Parametros ponto de entrada MA415END foi criado por jrBrittes
Boa noite amigos,
Estou precisando saber se existe alguma variável que armazene algum valor no caso de cancelamento da tela de inclusão de orçamentos MATA415.
Estou usando esse ponto de entrada para executar uma rotina mas quando o usuário apenas entra na rotina e sai sem efetuar nenhuma ação preciso diferenciar para que não execute o tratamento.
Pelo que tem no TDN e passado dois parâmetros mais fiz os testes e não funcionarão a variável NOPCA esta nula também nesse momento existe alguma outra forma de saber se foi cancelada a rotina?
Estou precisando saber se existe alguma variável que armazene algum valor no caso de cancelamento da tela de inclusão de orçamentos MATA415.
Estou usando esse ponto de entrada para executar uma rotina mas quando o usuário apenas entra na rotina e sai sem efetuar nenhuma ação preciso diferenciar para que não execute o tratamento.
Pelo que tem no TDN e passado dois parâmetros mais fiz os testes e não funcionarão a variável NOPCA esta nula também nesse momento existe alguma outra forma de saber se foi cancelada a rotina?
Por favor Acessar ou Registrar para participar da conversa.
- hbaldin
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 266
- Obrigados Recebidos: 0
- hbaldin
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 266
- Obrigados Recebidos: 0
- hbaldin
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 266
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11369
por hbaldin
Respondido por hbaldin no tópico Parametros ponto de entrada MA415END
User Function CHKEXEC()
//ParamIXB recebe o nome da função
If ( "MATA415" $ ParamIXB )
// executa codigo e paga um cerveja .
EndIf
return()
//ParamIXB recebe o nome da função
If ( "MATA415" $ ParamIXB )
// executa codigo e paga um cerveja .
EndIf
return()
Por favor Acessar ou Registrar para participar da conversa.
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11383
por jrBrittes
Respondido por jrBrittes no tópico Parametros ponto de entrada MA415END
Amigo não sei se fui claroo mais não quero saber o nome da rotina, quero saber se existe algumas variável que nesse programa que me sinalize se efetuei o cancelamento.
segue linha especifica do programa.
ACTIVATE MSDIALOG oDlg ON INIT Ma415Bar(oDlg,{||nOpcA:=1,IIf(oGetDb:TudoOk().And.Obrigatorio(aGets,aTela).And.A415VldTOk(@lBloqueia),oDlg:End(),nOpcA:=0)},{||oDlg:End()}, nOpcx)
Veja que quando o usuário cancela ele a variavel nOpca esta com valor 0 mais dentro do ponto de entrada essa variável não tem mais valor.
segue linha especifica do programa.
ACTIVATE MSDIALOG oDlg ON INIT Ma415Bar(oDlg,{||nOpcA:=1,IIf(oGetDb:TudoOk().And.Obrigatorio(aGets,aTela).And.A415VldTOk(@lBloqueia),oDlg:End(),nOpcA:=0)},{||oDlg:End()}, nOpcx)
Veja que quando o usuário cancela ele a variavel nOpca esta com valor 0 mais dentro do ponto de entrada essa variável não tem mais valor.
Por favor Acessar ou Registrar para participar da conversa.
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11386
por jrBrittes
Respondido por jrBrittes no tópico Parametros ponto de entrada MA415END
o ponto de entrada
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Executa ponto de entrada na saida ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock( "MA415END" )
ExecBlock( "MA415END", .F., .F., { nOpcA, 1 } )
EndIf
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Executa ponto de entrada na saida ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock( "MA415END" )
ExecBlock( "MA415END", .F., .F., { nOpcA, 1 } )
EndIf
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Parametros ponto de entrada MA415END
Tempo para a criação da página:0.076 segundos