× Linguagem de Programação ADVPL

Perguntas Ponto de Entrada

Mais
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!

Por favor Acessar ou Registrar para participar da conversa.

Mais
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.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.099 segundos
Joomla templates by a4joomla