Ajuda - acesso "genérico" ao DBF

[rcb2002]

Olá pessoal, bom dia!

Estou querendo fazer algo parecido com o que está abaixo mas está dando erro... em primeiro lugar, será que é mesmo possível?

Código: Selecionar todos

	  a_Temp :=  { {'Nome','Text_2','nome'}, ;
					{'E_Categ','CB_Categ','categoria'}, ;
					{'E_Model','CB_Model','modelo'}, ;
					{'E_Setor','CB_Setor','setor'}, ;
					{'E_Fabric','CB_Fabric','fabricante'}, ;
					{'E_Local','CB_Local','local'}, ; . . . . 

		If BloqueiaRegistroNaRede("MOV")
			FOR h = 1 to 21
				tVar1 := a_Temp[h,1]
				tVar2 := a_Temp[h,2]
				tVar3 := a_Temp[h,3]
				IF LEN(ALLTRIM(EQP->&(tvar1))) <> LEN(ALLTRIM(Main.&(tvar2).DisplayValue))
					cLinha := "-" + DTOC(DATE()) + ";" + TIME() + " [" + PADR(ALLTRIM(cUser),12) + ;
						  	"] {" + PADL(ALLTRIM( &(tvar3)) ) + "}",11) + ":" + ;
							PADL(ALLTRIM(EQP->&(tvar1)),30) + " -> "	+ PADR(ALLTRIM(Main.&(tvar2).DisplayValue),30) + " ; " + IK_CRLF

Sei que dá pra fazer com o DisplayValue pq já fiz antes e funcionou mas com o EQP -> ?

Please help me!!!

[JoséQuintas]

Não entendi o que está querendo fazer, e muito menos o que faz .DisplayValue em fonte Clipper.

[Eolo]

Usei macro direto, é bastante útil, mas to meio enferrujado nisso e, além do mais, to com meu HD em recuperação, vamos ver se acerto de memória.

Se não estou enganado, vc tem que primeiro construir o string inteiro e depois aplicar a macro. Exemplo:

Código: Selecionar todos

escolha=15
var="eqp->c"+strzero(escolha,3)
?var -> eqp->c015 (string)
var2=&var
?var2 -> vai trazer o conteúdo do campo C015 do DBF de alias EQP

[rcb2002]

SRs., boa tarde!

José Quintas, .DisplayValue de fato não é Clipper mas Minigui. Postei aqui por julgar que a dúvida em si era de Clipper.

Eolo, era exatamente isso, cara. Mil Obrigados. Depois de testar, funcionou perfeitamente.

Grato!!!