[Resolvido] quickreport da erro com parametro

[fabiodurgante 0]

seguinte tenho o botao com a pesquisa entre datas ate aqui tudo certo certinho

 

 

query1.close;

query1.sql.clear;

query1.sql.add('SELECT Produto.Cod_Produto, Produto.Nome_Produto, Produto.Quant_Total_Produto, Produto.Preco_Produto, Venda.Data_Venda, Venda.Valor_total, Venda.Quant_Vendida, Venda.Preco_Unitario, Venda.Cod_Venda');

query1.sql.add('FROM "produto.DB" Produto ');

query1.sql.add(' INNER JOIN "venda.DB" Venda ');

query1.sql.add(' ON (Venda.Cod_Produto = Produto.Cod_Produto) ');

 

query1.sql.add(' and Data_venda >= :Data_Venda_ini and Data_venda <= :Data_venda_fim');

query1.parambyname('Data_venda_ini').asdatetime := DateTimePicker1.date;

query1.parambyname('Data_venda_fim').asdatetime := DateTimePicker2.date;

 

query1.open;

 

mas quando mando para o form11 onde esta o quickreport faço assim

 

form11.query1.sql.Clear;

form11.Query1.sql := form8.Query1.sql;

 

 

Form11.Query1.open;

Form11.QuickRep1.Preview;

 

a query do form11 da erro quando recebe a query do form da pesquisa o erro é aqui Data_venda_ini' diz que o parametro é indefinido algue sabe porque??????? se no botao funciona perfeito

[marcio.theis 3]

Pq você precisa setar os parâmetros dentro da query do QuickReport também, pois no caso no momento que passa o SQL, passa o SQL com o parâmetro, mas não esta setando o mesmo, o que pode fazer é setar os parâmetros, ou então passar tudo diretamente via SQL.

[fabiodurgante 0]

resolvi fiz o seguinte

form11.query1.parambyname('Data_venda_ini').asdatetime := form8.DateTimePicker1.date;

form11.query1.parambyname('Data_venda_fim').asdatetime := form8.DateTimePicker2.date;

 

ai deu beleza falow ai e obrigado pela ajuda

 

 

troca cor do dbgrid a linha interia selecionada

 

with DbGrid1 do

begin

if DataSource.DataSet.State in [dsEdit, dsInsert, dsBrowse] then //Cor da linha selecionada

if (Rect.Top = TStringGrid(DBGrid1).CellRect( DataCol ,TStringGrid(DbGrid1).Row).Top)

or( gdSelected in State) then

begin

Canvas.FillRect(Rect);

Canvas.Brush.Color := clmoneygreen;

Canvas.Font.Color:= clhotlight;

DefaultDrawDataCell(Rect,Column.Field,State)

end;

end;