Conteúdo de uma variável

[Lúcio Reis]

Bom dia pessoal!
 
Necessito de ajuda...  
 
Alguém como faço para capturar o conteúdo  de uma variável e utilizá-la como parte
do programa ?
 
Ex.:
Tenho uma tabela  tabclientes onde existe um campo fldcidade.
e tenho uma variavel de programa tipo char com o nome de varprg
iniciada por "fldcidade".  Ou seja o conteudo da variável é o nome do campo
da tabela.
 
Logo necessito fazer um programa, que deve utilizar o conteúdo da variável
para mostrar o campo respectivo.
 
find first tabclientes no-lock.
put value(varprg).   
 
Obrigado.
 
Lucio Reis
(11) 9833-1288
 

---

O SEU NAVEGADOR PODE TE PROTEGER DE FRAUDES NA WEB. VEJA DICAS DE INTERNET EXPLORER 8

[Rodrigo Fernando da Silva]

Boa noite Lúcio.

 

Para utilizar o valor da variavel para relacionar com o campo da tabela tem que passar a variavel por argumento.

 

ASSIGN var1 = "tabclientes.fldcidade".

 

RUN p-mostra-conteudo.p var1.

Programa p-mostra-conteudo:

 

FIND FIRST tabclientes NO-LOCK NO-ERROR.
DISP {1}.

 

Dá para fazer isso tambem com o nome da tabela.

 

Dúvidas estou a disposição.

 

Flw

--
Você está recebendo esta mensagem porque se inscreveu no grupo "Progress - 4GL" dos Grupos do Google.
Para postar neste grupo, envie um e-mail para progre...@googlegroups.com.
Para cancelar a inscrição nesse grupo, envie um e-mail para progress_4gl...@googlegroups.com.
Para obter mais opções, visite esse grupo em http://groups.google.com/group/progress_4gl?hl=pt-BR.

--
Rodrigo Fernando da Silva

[Eduardo Leite - Particular]

Caro colega,

 

Lembro que desta maneira só irá funcionar com a rotina .P, pois não será possível compilar a segunda rotina, sendo assim se o usuário tiver somente o CLIENT do progres pode ser que não funcione.

[Jaime Dambros]

Dá para fazer umas brincadeiras legais usando as tabelas dinamicamente:

DEF VAR Atributo AS CHAR INIT "_file-name".
DEF VAR b AS HANDLE.
DEF VAR qh AS HANDLE.
DEF VAR hField AS HANDLE.
DEF VAR i AS INT.

b = (BUFFER dictdb._file:HANDLE).

CREATE QUERY qh.
qh:SET-BUFFERS(b).
qh:QUERY-PREPARE("for each " + b:NAME).
qh:QUERY-OPEN.

IF NOT qh:GET-FIRST THEN LEAVE.

DO i = 1 TO b:NUM-FIELDS:
hField = b:BUFFER-FIELD(i).
IF hfield:NAME = atributo THEN
MESSAGE hfield:NAME hField:BUFFER-VALUE
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.

Em 19 de junho de 2010 09:07, Lúcio Reis <rcl...@hotmail.com> escreveu:

> --
> Você está recebendo esta mensagem porque se inscreveu no grupo "Progress -
> 4GL" dos Grupos do Google.
> Para postar neste grupo, envie um e-mail para progre...@googlegroups.com.
> Para cancelar a inscrição nesse grupo, envie um e-mail para
> progress_4gl...@googlegroups.com.
> Para obter mais opções, visite esse grupo em
> http://groups.google.com/group/progress_4gl?hl=pt-BR.
>

--
Jaime Alex Dambros
Joinville - SC

[Lúcio Reis]

Obrigado Jaime..
Abraço
 
> Date: Thu, 24 Jun 2010 19:21:29 -0300
> Subject: Re: Conteúdo de uma variável
> From: jaime....@gmail.com
> To: progre...@googlegroups.com

---

Quer brincar com as suas fotos e fazer álbuns divertidos? Clique aqui e saiba como.

[Lúcio Reis]

Obrigado Rodrigo.
Abraço
 

---

From: rfernan...@gmail.com
Date: Wed, 23 Jun 2010 21:50:24 -0300

Subject: Re: Conteúdo de uma variável

To: progre...@googlegroups.com