×
Linguagem de Programação ADVPL
Perguntas Ponto de Entrada
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17257
por vcardoso
Ponto de Entrada foi criado por vcardoso
Galera, bom dia!
Como eu já esperava, preciso utilizar um ponto de entrada na rotina FINA240.
O problema é que eu nunca usei um ponto de entrada, alguém poderia me dar umas dicas ?
Neste fonte, na linha 215, começa uma caixa de texto (MSDIALOG) contendo um filtro. O que eu preciso fazer é adicionar mais filtros, exemplo:
Fornecedor
Tipo de Tít
Prefixo
Preciso adicionar nessa tela +3 filtros, que são esses citados acima. Para isso eu preciso de um ponto de entrada para realizar este procedimento.
Alguém poderia me ajudar?
Grato!
Como eu já esperava, preciso utilizar um ponto de entrada na rotina FINA240.
O problema é que eu nunca usei um ponto de entrada, alguém poderia me dar umas dicas ?
Neste fonte, na linha 215, começa uma caixa de texto (MSDIALOG) contendo um filtro. O que eu preciso fazer é adicionar mais filtros, exemplo:
Fornecedor
Tipo de Tít
Prefixo
Preciso adicionar nessa tela +3 filtros, que são esses citados acima. Para isso eu preciso de um ponto de entrada para realizar este procedimento.
Alguém poderia me ajudar?
Grato!
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17260
por vcardoso
Respondido por vcardoso no tópico Ponto de Entrada
Galera, eu fiz o ponto de entrada, segue:
USER FUNCTION F240FIL()
Local oDlg := ""
Local cForn := ""
Local cPref := ""
Local cTpTit := ""
DEFINE MSDIALOG oDlg FROM 15,6 TO 219,404 TITLE "Filtro Fornecedor" PIXEL
@ 06, 009 SAY "Fornecedor" SIZE 32, 7 OF oDlg PIXEL
@ 06, 045 SAY "Prefixo" SIZE 23, 7 OF oDlg PIXEL
@ 06, 081 SAY "Tipo de Titulo" SIZE 32, 7 OF oDlg PIXEL
@ 15, 009 MSGET cForn SIZE 32, 10 OF oDlg PIXEL F3 "SA2"
@ 15, 045 MSGET cPref SIZE 32, 10 OF oDlg PIXEL
@ 15, 081 MSGET cTpTit SIZE 32, 10 OF oDlg PIXEL
DEFINE SBUTTON FROM 50, 130 TYPE 1 ENABLE OF oDlg ACTION oDlg:End()
DEFINE SBUTTON FROM 50, 158 TYPE 2 ENABLE OF oDlg ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
RETURN
A minha dúvida é:
Como eu devo colocar a ação do "botão 1" para que ele salve esse filtro e retorne pra rotina FINA240 salvando todos esses filtros.
USER FUNCTION F240FIL()
Local oDlg := ""
Local cForn := ""
Local cPref := ""
Local cTpTit := ""
DEFINE MSDIALOG oDlg FROM 15,6 TO 219,404 TITLE "Filtro Fornecedor" PIXEL
@ 06, 009 SAY "Fornecedor" SIZE 32, 7 OF oDlg PIXEL
@ 06, 045 SAY "Prefixo" SIZE 23, 7 OF oDlg PIXEL
@ 06, 081 SAY "Tipo de Titulo" SIZE 32, 7 OF oDlg PIXEL
@ 15, 009 MSGET cForn SIZE 32, 10 OF oDlg PIXEL F3 "SA2"
@ 15, 045 MSGET cPref SIZE 32, 10 OF oDlg PIXEL
@ 15, 081 MSGET cTpTit SIZE 32, 10 OF oDlg PIXEL
DEFINE SBUTTON FROM 50, 130 TYPE 1 ENABLE OF oDlg ACTION oDlg:End()
DEFINE SBUTTON FROM 50, 158 TYPE 2 ENABLE OF oDlg ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
RETURN
A minha dúvida é:
Como eu devo colocar a ação do "botão 1" para que ele salve esse filtro e retorne pra rotina FINA240 salvando todos esses filtros.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.099 segundos