Colocar o nome dos campos de um DBF no dbedit

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Paulao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 09 Jul 2004 11:03
Localização: Franca
Contato:

Colocar o nome dos campos de um DBF no dbedit

Mensagem por Paulao »

Boa noite moçada, estou criando uma rotina para imprimir NFs e necessito de colocar os nomes dos campos do arquivo de NFs num dbedit para que eu possa escolher.
Como fazer isto de uma forma que eu não necessite digita-los um a um.

O motivo pelo qual necessito fazer isto é para escolher o campo e então escolher a linha e coluna onde será impresso o valor deste campo na NF.


Obrigado a todos
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

Mensagem por Daniel »

Um exemplo

Código: Selecionar todos

use seu_banco_nota
vachoice:= {}
vbanco:= seu_banco_nota->(dbstruct())
   Aeval(vbanco,{|afield| AADD(vachoice,aField[1])})
achoice(1,1,10,50,vachoice)
Inkey(0)
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Paulao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 09 Jul 2004 11:03
Localização: Franca
Contato:

Legal, era isto mesmo que eu queria, só uma coisinha mais.

Mensagem por Paulao »

Como fazer para capturar o nome do campo para um campo de outro arquivo?

Grande abraço
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

Mensagem por Daniel »

olhe o ex.

Código: Selecionar todos

use seu_banco_nota 
vachoice:= {} 
vbanco:= seu_banco_nota->(dbstruct()) 
Aeval(vbanco,{|afield| AADD(vachoice,aField[1])}) 
use banco_para_dados
For x:= 1 to len(vachoice)
append blank
replace seu_campo with vachoice[x]  //seu_campo tem 10 caracter
next
Inkey(0)
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Responder