Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problema com Script de Intellisense
Message
From
04/10/2002 14:01:21
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Problema com Script de Intellisense
Miscellaneous
Thread ID:
00707855
Message ID:
00707855
Views:
52
Olá amigos.

Eu fiz um script no Intellisense que , ao digitar a sigla EC - sigla do script - ele pede um nome de tabela, e retorna os nomes tipos e tamanhos dos campos dessa tabela numa lista DropDown para que o desenvolvedor possa escolher o campo.
Digitando dessa forma:
ec
e apertando espaço, aparece uma inputbox, eu informo a tabela e ele gera uma lista dropdown com os campos.
Fica assim:
MinhaTabela.MeuCampo
Porém, se eu fizer assim:
lnId = ec
e apertar espaço para disparar o script, o script não funciona. Pq isso acontece? O erro é comigo ou é no VFP?
Aqui está o meu script:
LPARAMETERS toFoxCode

IF (toFoxCode.Location # 0) AND (toFoxCode.Location # 1) AND (toFoxCode.Location # 10)
	Return toFoxCode.UserTyped
ENDIF
toFoxCode.ValueType =[L]

LOCAL lnTotalCampos,lsTabela,lsRetorno
LOCAL ARRAY laCampos(1)

lsTabela = INPUTBOX([Nome da Tabela: ])

IF EMPTY(lsTabela)
	MESSAGEBOX ([Erro no script: nenhuma tabela foi especificada.],0,[Erro numero 1])
	RETURN toFoxCode.UserTyped
ENDIF

IF NOT FILE(lsTabela + [.DBF])
	MESSAGEBOX([Erro no script: a tabela especificada não existe nos seus caminhos de procura. Verifique o seu SET("PATH").],64,[Erro numero 2])
	RETURN toFoxCode.UserTyped
ENDIF

IF NOT USED(lsTabela)
	USE (lsTabela) IN 0
ENDIF

SELECT (lsTabela)

lnTotalCampos = AFIELDS(laCampos)

DIMENSION toFoxCode.Items(lnTotalCampos,2)

FOR i = 1 to lnTotalCampos
	toFoxCode.Items(i,1) = laCampos(i,1)
	toFoxCode.Items(i,2) = laCampos(i,2) + [ (] + ALLTRIM(TRANSFORM(laCampos(i,3))) +[)]
ENDFOR

TEXT TO lsRetorno NOSHOW
<<ALLTRIM(LOWER(lsTabela))>>~
ENDTEXT

RETURN TEXTMERGE(lsRetorno)
Qualquer ajuda será muito apreciada.

Grato,
Pablo Márcio de Oliveira

Inside the scream is silent, inside it must remain
Next
Reply
Map
View

Click here to load this message in the networking platform