Ver Mensaje Individual
  #6  
Antiguo 13-08-2004
Avatar de JuanBCT
JuanBCT JuanBCT is offline
Miembro
 
Registrado: ago 2004
Ubicación: Campana, Argentina
Posts: 57
Reputación: 20
JuanBCT Va por buen camino
Hola! Les quería contar que resolví el problema, aparentemente es como dice basti. Puse en false el query en el quickreport, y lo activé durante la ejecución (también tuve que ponerlo en false al principio porque después de la primera vez que lo hago queda activado y vuelve a ocurrir lo mismo). El código quedó así:

procedure TEtiqCarga_form.BitBtn1Click(Sender: TObject);
var
I:integer;
begin
I:=0;
Impre_Etiq2.Query1.Active:=false;
Datamodule1.ConcesTMP.close;
Datamodule1.ConcesTMP.EmptyTable;
Datamodule1.ConcesTMP.open;
while I <> 33 do
begin
I:=I+1;
Datamodule1.ConcesTMP.Insert;
Datamodule1.ConcesTMP['aux1_tmp']:=Edit1.Text;
Datamodule1.ConcesTMP['aux2_tmp']:=Edit2.Text;
Datamodule1.ConcesTMP['aux3_tmp']:=Edit3.Text;
Datamodule1.ConcesTMP['aux4_tmp']:=Edit4.Text;
Datamodule1.ConcesTMP['aux5_tmp']:=Edit5.Text;
Datamodule1.ConcesTMP['aux6_tmp']:=Edit6.Text;
Datamodule1.ConcesTMP.Post;
end;
Impre_Etiq2.Query1.Active:=true;
Impre_Etiq2.QuickRep1.preview;
EtiqCarga_form.close;


Les agradezco a todos por su ayuda.
Responder Con Cita