RETORNAR A FUNCAO E VARIAVEL ATIVA (RESOLVIDO)

PauloPJ · April 26, 2012

Ola galera estou aqui denovo

Preciso pegar o nome do Prg ou procedure ou funcao ativa e a variavel que esta focada nesta funcao

no clipper eu usava o readvar() para pegar o nome da variavel.

jÃ¡ fiz de tudo e nÃ£o consigo pegar

eu uso isso para procurar no banco de dados de help

Desde jÃ¡ agradeÃ§o a colaboraÃ§Ã£o de todos.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

Editado por - igpjinfo on 01/05/2012 22:45:07

PauloPJ · April 26, 2012

Ola galera estou aqui denovo

Preciso pegar o nome do Prg ou procedure ou funcao ativa e a variavel que esta focada nesta funcao

no clipper eu usava o readvar() para pegar o nome da variavel.

jÃ¡ fiz de tudo e nÃ£o consigo pegar

eu uso isso para procurar no banco de dados de help

Desde jÃ¡ agradeÃ§o a colaboraÃ§Ã£o de todos.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

Editado por - igpjinfo on 01/05/2012 22:45:07

FiveWinBr · April 27, 2012

Bom tem varis funcoes:

ProcName / ClassName / ProcFile

De uma olhada no arquivo fwh\source\function\errsysw.prg

AbraÃ§o.

Att.

Lailton Fernando Mariano

E-Mail: developer@lailton.com.br | Msn: lailton.developer@hotmail.com

http://www.lailton.com.br

xHarbour 1.2.1 | Fivewin 11.1 | Borland 5.8.2 | MySQL

kapiaba · April 27, 2012

no clipper eu usava o readvar() para pegar o nome da variavel.

Mostre como fazia no clipper..

Eu acho que sei sua resposta.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

aferra · April 27, 2012

Bom dia...

nome da procedure/function = ProcName()

no da variavel do get = oGet:oGet:Name

Um grande AbraÃ§o

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direÃ§Ã£o para o acerto.id=red>

betovsp · April 27, 2012

citaÃ§Ã£o:
Bom dia...

nome da procedure/function = ProcName()

no da variavel do get = oGet:oGet:Name

Um grande AbraÃ§o

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direÃ§Ã£o para o acerto.id=red>

id=quote>id=quote>

Alessandro, esta sumido? como vÃ£o as coisas.

Beto

FWH 9.08+xHarbour 1.2.1+Mymake+@Say

aferra · April 27, 2012

Fala BetÃ£o... o sol batendo na janela.... rsrsrsrsrs

Um grande AbraÃ§o

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direÃ§Ã£o para o acerto.id=red>

PauloPJ · April 30, 2012

Desculpe a todos por nÃ£o ter respondido atÃ© agora

o meu computador deu problema e tive que formatar, atÃ© eu voltar com todas as minhas ferramentas demorou.

Obrigado a todos pelas dicas , vou testar e jÃ¡ jÃ¡ retorno se due certo.

Eu preciso isso para buscar no arquivo de help especifico do modulo e variavel Get em esta ponterado.

sÃ³ que quando chamo o helpindex nao sei qual o prg/procedure e Get.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

PauloPJ · April 30, 2012

no clipper eu usava o readvar() para pegar o nome da variavel.

Mostre como fazia no clipper..

Eu acho que sei sua resposta.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

Ola JoÃ£o

Eu usava o readvar() ele retornava o nome da variavel que estava parado o GET do clipper. exemplo em clipper

A=0

B=0

C=0

@ 1,0 say "TESTE1" GET A PICT "###"

@ 2,0 say "TESTE2" GET B PICT "###"

@ 3,0 say "TESTE3" GET C PICT "###"

READ

RETURN

FUNC HELP

CPROGRAMA=PROCNAME() // RETORNA O NOME DA PROCEDURE

CVARIAVEL=READVAR() // RETORNAVA O NOME DA ULTIMA VARIAVEL GET

RETURN

Com isso eu procurava no banco de dados do Help especifico.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

PauloPJ · April 30, 2012

citaÃ§Ã£o:
Bom dia...

nome da procedure/function = ProcName()

no da variavel do get = oGet:oGet:Name

Um grande AbraÃ§o

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direÃ§Ã£o para o acerto.id=red>

id=quote>id=quote>

Ola Alessandro

Obrigado pela colaboracao

o ProcName() funciona perfeito

mas como eu pego o nome do oGet:oGet:name, se eu nao sei qual objeto oGet estou usando no momento, este Ã© o problema, como descobrir o nome do Get que esta ativo.

Um abraco.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

Jmsilva · May 1, 2012

Pegar o Get ativo como fazia no clipper Ã© muito chato....mas resolvi assim, graÃ§as a ajuda do pessoal.

- Cada objeto que Ã© incluido no form (wnd/dlg) tem uma variÃ¡vel hWnd.

- De alguma forma vc guarda get:hWnd em um VETOR, ai Ã© sÃ³ pesquisa e comparar com o Dlg:hWnd que Ã© o ativo. Se for igual, este Ã© o Get( ou outro objeto) ativo. Ex:

nObjetoAtivo := ASCAN(ahWnd,odlg:oCtlFocus():hWnd)

//EXEMPLO

No exemplo criei um vetor para os GETs, mas vc pode pegar automaticamente de um form (wnd/dlg), atravÃ©s do oDLG:aControls{}

FOR nCT:=1 TO LEN(oGET)

oGET[nCT]:REFRESH()

AADD(ahWnd,oGET[nCT]:hWnd) //PARA SABER QUAL O GET ATIVO

nObjetoAtivo := ASCAN(ahWnd,odlg:oCtlFocus():hWnd)

? oGet[nObjetoAtivo]:oGet:Name

//END EXEMPLO

JMSILVA

CARAGUATATUBA/SP

aferra · May 1, 2012

Boa tarde.

Veja se te ajuda, no caso pegando somente os GETÂ´s, senÃ£o for o caso retire a verificaÃ§Ã£o do classname(), ou tb.

pode ajustar para pegar outros tipos de objetos do form, ai vai da criatividade de cada um.

FOR nCtr:=1 TO LEN(oDlg:aControls)

IF oDlg:aControls[nCtr]:ClassName() == "TGET"

IF oDlg:aControls[nCtr]:hWnd == oDlg:oCtlFocus():hWnd

?oDlg:aControls[nCtr]:oGet:name

ENDIF

Um grande AbraÃ§o

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direÃ§Ã£o para o acerto.id=red>

PauloPJ · May 1, 2012

Valeu Alessandro e JMSilva

A Ajuda de vocÃªs estÃ¡ sendo de muita valia.

Estou adaptando o sistema seguindo as sugestÃµes de vocÃªs.

mas eu estou tentando descobrir como pegar o nome do oBjeto TGET que esta ponterado sem a utilizaÃ§Ã£o de um array, estou debugando todas as classes e mÃ©todos que estÃ£o na memÃ³ria, rsrs , eu sou teimoso acho que deve ter um jeito. Mas se nÃ£o conseguir ...

Valeu messssmo.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

PauloPJ · May 1, 2012

OLA GALERA RESOLVI O PROBLEMA

PEGEI O NOME DO PROGRAMA + RESOURSE E O ID ATIVO

ABAIXO ESTA COMO EU FIZ O HELP PARA QUEM QUIZER USAR

#INCLUDE "Fivewin.ch"

*--------------------------------------------------------------------------*

* Modulo : help.PRG - help para usuario *

* Versao : 2.0 *

* Atualizado em : 01/05/2012 - 22:32:53 *

*--------------------------------------------------------------------------*

FUNCTION HELPINDEX()

IF CHORA_HELP=TIME() // criado a variavel publica com o time() para nÃ£o repetir o help se apertar o f1 rapido demais

RETURN

END

cPrograma:=""

cVariavel:=""

// pega o nome do prg

for i = 1 to 74

if AT("DIALO",UPPER(ProcName(I)))=0 .AND. AT ("TWIND",UPPER(ProcName(I)))=0 .AND. AT("_FWH",UPPER(ProcName(I)))=0 .and. empty(cprograma)

cPrograma:=UPPER(ProcName(I))

end

cdialog:=""

cIdDialog:=""

// pega o nome do resource e do ID ou get ativo

for n = 1 to 74

for j = 1 to ParamCount( n )

if GetParam( n, j ):classname()=="TDIALOG"

for aaa = 1 to len(GetParam( n, j ):aControls)

IF GetParam( n, j ):aControls[AAA]:classname()=="TGET"

if GetParam( n, j ):aControls[AAA]:lFocused

cIdDialog:=strzero(GetParam( n, j ):aControls[AAA]:nId,4)

end

if ValType( GetParam( n, j ) )="C" .and. empty(cDialog)

CDialog:=cValToChar( GetParam( n, j ) )

end

IF CPROGRAMA='HELPINDEX'

return

endif

/* ESTRUTURA DO ARQUIVO HELP

PROG C 10

VAR C 20

HELP M

INDCE PROGRAMA+VAR

*/

HELP->(DBSETORDER(1))

HELP->(DBSEEK(Padr(cPrograma,10)+cDialog+cIdDialog))

if HELP->(EOF())

HELP->(DBAPPEND())

IF HELP->(MTRAVAREG())

HELP->PROG := cPrograma

HELP->VAR := cDialog+cIdDialog

HELP->(DBUNLOCK())

END

// FUNCAO QUE MOSTRA O CAMPO MEMO NA TELA COM O HELP

OBSERVA('HELP->TEXTO',"HELP",,'HELP DA ROTINA '+ALLTRIM(cPrograma)+if(!EMPTY(cDialog),' Tela '+alltrim(cDialog)+" Id "+cIdDialog,""),.T.)

// FIM

CHORA_HELP:=TIME()

return

FELIZ DAQUELE QUE COMPARTILHA OS SEUS CONHECIMENTOS.

UM GRANDE ABRACO A TODOS E OBRIGADO PELA COLABORAÃ‡ÃƒO.

FWHX 8.4

XHARBOUR 1.1.0

PELE C 6.00.4

TELA EM .RES

Editado por - igpjinfo on 01/05/2012 22:50:35

Editado por - igpjinfo on 01/05/2012 22:52:50

RETORNAR A FUNCAO E VARIAVEL ATIVA (RESOLVIDO)

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation