Etiquetas selecionadas em QuickReport

[Paulo Feitosa]

Olá galera do ScriptBrasil, tudo bom.

Já pesquisei em todo o forum e não encontrei nada similar.

Estou precisando criar uma rotina para emissão de etiquetas selecionadas pelo código do Cliente. Estou utilizando banco de dados Accesss com Componentes ADO e QuickReport.

A principio já estou com a estrutura montada. Criei um form e nele inclui os componentes QuickRep, QRBand1 e na propriedade DataType usei rbDetail. Dentro da QRBand estou utilizando os componetes QBLabel e QRDBText, mais um componente ADOQuery e ou DataSet. Na propriedade Parameters de ADOQuery criei dois parametros (CodInicial e CodFinal). Na propriedade SQL do ADOQuery inclui a seguinte linha: select * from ADVCADCL where CODCLI between CodInicial and CodFinal

Agora em outro Form Estou usando dois Componentes TEdit para armazenar o Codigo Inicial e o Codigo Final. Que se refere a Codigo de Cliente do Banco de Dados. Uso por ultimo um botao ToolButton aonde no evento on Click inclui as seguintes linhas de código:

with dmClientes.ADOClientes do

begin

dmClientes.ADOClientes.IndexFieldNames := 'Codcli';

dmClientes.ADOClientes.Open;

frmEtiquetasClientes.ADOQuery1.SQL.Add('Select * from ADVCADCL');

frmEtiquetasClientes.ADOQuery1.SQL.Add('where CODCLI Between CodInicial and CodFinal');

frmEtiquetasClientes.QuickRep1.Preview;

A minha pergunta é a seguinte: O que está faltando para que o sistema imprima somente os registros selecioandos dentro do intervalo passado pelas Variáveis CodInciail.Text e CodFinal.Tex.

Se alguém poder me ajudar ficarei muito grato, e sempre que precisarem podem contar comigo.

Paulo Feitosa.

[Jhonas]

Procure fazer uma pesquisa no forum e ver se econtra alguma coisa

http://scriptbrasil.com.br/forum/index.php...hlite=etiquetas

abraço

[paulobergo]

Então o seu problema é com a query?

Teste-a no DBExplorer...

Coloque um

frmEtiquetasClientes.ADOQuery1.SQL.savetofile('c:\temp\ver_essa_query.sql');

execute a aplicação e depois experimente abri-la no DBExplorer, colocando os parametros corretos na validação (between) e veja o resultado...

Outra coisa...

Experimente criar o formulário-exemplo do Delphi...

file

new

other

forms

quick report labels

depois substitua a rotina do banco de dados pelos componentes/queries dos seus dados...

Ok?

[Paulo Feitosa]

Então o seu problema é com a query?

Teste-a no DBExplorer...

Coloque um

frmEtiquetasClientes.ADOQuery1.SQL.savetofile('c:\temp\ver_essa_query.sql');

execute a aplicação e depois experimente abri-la no DBExplorer, colocando os parametros corretos na validação (between) e veja o resultado...

Outra coisa...

Experimente criar o formulário-exemplo do Delphi...

file

new

other

forms

quick report labels

depois substitua a rotina do banco de dados pelos componentes/queries dos seus dados...

Ok?

(Resolvido)

Valeu pela ajuda amigo.

Realmente! Era a Query que estava errada. O que ocorreu foi que eu defini o Parametro da Query Incorreto no Codigo Fonte.

Segue o fonte correto e funcionando.

if FrmEtiquetasClientes = NIL then

FrmEtiquetasClientes := TFrmEtiquetasClientes.Create(Self);

with dmClientes.ADOClientes do

begin

frmEtiquetasClientes.ADOQuery1.Close;

frmEtiquetasClientes.ADOQuery1.Parameters[0].Value := CodInicial.Text;

FrmEtiquetasClientes.ADOQuery1.Parameters[1].Value := CodFinal.Text;

FrmEtiquetasClientes.ADOQuery1.Open;

FrmEtiquetasClientes.QuickRep1.Preview;

end;

end;

Abraço a todos.