Impresion Quick Report con consulta SQL

[[egostar]]

Empezado por oec2509

Todo el codigo que envie esta en un boton y se ejecuta al presionarlo, ya no estoy seguro si es en tiempo de ejecucion o no, como hago para saberlo?

Bueno, es que estás asignando por código el DataSet, a eso se le llama en tiempo de ejecución (runtime), lo que yo te recomiendo es que en lugar de hacerlo así lo asignes directamente en la propiedad DataSet del QReport.

Seria bueno que colocaras todo el código de tu procedimiento para saber con mas certeza que puede estar sucediendo.

Salud OS

[oec2509]

Empezado por egostar

Bueno, es que estás asignando por código el DataSet, a eso se le llama en tiempo de ejecución (runtime), lo que yo te recomiendo es que en lugar de hacerlo así lo asignes directamente en la propiedad DataSet del QReport.

Seria bueno que colocaras todo el código de tu procedimiento para saber con mas certeza que puede estar sucediendo.

Salud OS

Gracias... por la ayuda que me han brindado hasta el momento aca esta el codigo del boton

procedure Tfm_necesidades_espumado.btn_reportesClick(Sender: TObject);
var
query:String;
begin

report := fm_rpt_necesidades.rpt_necesidades;
if ck_solo_mayores.Checked then begin
query:='SELECT CODIGO, DESCRIPCION, ANCHO, '+
'LARGO, CANTIDAD, EXISTENCIA '+
'FROM RESUMEN_NECESIDADES_ESPUMA '+
'WHERE CANTIDAD>=1 '+
'ORDER BY N.CODIGO, ANCHO, LARGO ';
end else begin
query:='SELECT CODIGO, DESCRIPCION, ANCHO, '+
'LARGO, CANTIDAD '+
'FROM RESUMEN_NECESIDADES_ESPUMA WHERE CANTIDAD>0 '+
'ORDER BY N.CODIGO, ANCHO, LARGO, EXISTENCIA ';
end;
ejecutar_con_active(fm_rpt_necesidades.sql_necesidades, query);
report.DataSet:=fm_rpt_necesidades.sql_necesidades;
report.Prepare;
report.Preview;
end;

[[egostar]]

Y que codigo tiene ese

Código Delphi [-]
ejecutar_con_active(fm_rpt_necesidades.sql_necesidades, query);

Salud OS

[oec2509]

Empezado por egostar

Y que codigo tiene ese Código Delphi [-]ejecutar_con_active(fm_rpt_necesidades.sql_necesidades, query);



Salud OS

Este es el codigo


Código SQL [-]
procedure ejecutar_con_active(Query : Tquery; inst : String);
begin

try
query.active := false;
query.sql.clear;
query.SQL.Add(inst);
query.ExecSQL;
query.active := true;
Except on E : Exception do
MessageDlg(E.message + ''#13#10#13#10'' + inst,
mterror, [mbOk], 0); end;
end;

[[egostar]]

Ahh

Pues ya veo, estas usando

Código Delphi [-]
query.ExecSQL;

para una consulta, cambialo por

Código Delphi [-]
query.Open;

De cualquier forma, creo que puedes optimizar tu código y hacerlo mas simple.

Salud OS

PD; usa las etiquetas delphi para que tu código se entienda

[oec2509]

Que pena con uds. compañeros, ya solucione el problema y no estaba en esta parte del codigo, la consulta estaba correcta, el error que estaba cometiendo es que coloque los campos fuera del la banda QRSubDetail en el TQuickRep, asi que movi los campos al detalle y Ya funciona bien

Les agradezco toda la ayuda brindada por uds.

Muchas Gracias

[[egostar]]

Empezado por oec2509

Que pena con uds. compañeros, ya solucione el problema y no estaba en esta parte del codigo, la consulta estaba correcta, el error que estaba cometiendo es que coloque los campos fuera del la banda QRSubDetail en el TQuickRep, asi que movi los campos al detalle y Ya funciona bien

Les agradezco toda la ayuda brindada por uds.

Muchas Gracias

Hombre pues que bien, solo toma nota de lo que te comento, para consultas se debe usar Query1.Open, para Agregar, Cambiar o Borrar Query1.ExecQL.

Salud OS