![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
Tal vez sea esto
Es algo curioso lo que te sucede pero no estaria por demas intentar esto, noto que en tu codigo hace falta que actives la tabla y nada mas la cierras podria ser este el caso por ejemplo yo tengo en mi codigo algo asi para introducir datos en un campo:
procedure TForm4.BitBtn14Click(Sender: TObject); var dal0,dal1,dal2,dal3,dal4,dal5:real; begin Form3.Table1.Active:=True; Form3.Table1.Open; Form3.Table1.Last; Form3.Table1.append; . . . . // aqui va codigo . . . Table1.Post; Table1.Last; Bueno eso es lo que pienso en primera instancia no lo he provado directamente en el codigo que enviaste pero ojala y te sirva ponme al tanto si lo lograste ok: [email protected] |
|
#2
|
|||
|
|||
|
El problema está en la consulta del informe. Al ser un query no se actualiza automáticamente. Prueba a poner el la propiedad active = false en el query y abrirlo en el código:
Impre_Etiq2.Query1.Active := true; Impre_Etiq2.QuickRep1.preview; Impre_Etiq2.Query1.Active := false; |
|
#3
|
||||
|
||||
|
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. ![]() |
![]() |
|
|
|