![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#5
|
||||
|
||||
|
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. ![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|