Como utilizar a classe GET

[david.miguel]

Estou querendo mudar os codigo abaixo para um codigo aonde utilizo a classe get.

Desde já obrigado

Codigo:
USE TBCAMPOS
SET INDEX TO CAMPOS
SEEK "CLIENTE"

lin := 0
col := 0
DO WHILE TBCAMPOS->TAB == "CLIENTE"
cCampo := TBCAMPOS->CAMPOS
cPict := TBCAMPOS->PICT
cValid := TBCAMPOS->VALID
cTexto := TBCAMPOS->TEXTO

@ lin, col SAY cTexto GET &cCampo PICT cPict VALID({||cValid})
lin := lin + 1
SKIP
ENDDO

[vagucs]

Nao vejo grandes vantages neste uso, mas cada caso é um caso, no NG do clipper 5.2 e 5.3 tem a parte da classe GET.

[david.miguel]

Então me diga, como vc montaria um tela dinamicamente com os dados estando em um dbf ?

[vagucs]

nao entendi muito bem, mas vc quer montar a tela GET independente de programação, é isso, vc quer abrir os dados e quer que o sistema leia os campos do arquivo e ja monte a tela. Se for isso vc pode usar macro substituicao.