Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problema com Script de Intellisense
Message
De
04/10/2002 14:01:21
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Problema com Script de Intellisense
Divers
Thread ID:
00707855
Message ID:
00707855
Vues:
53
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform