Buenas tardes gente...
Tengo un problemilla a la hora de imprimir.
Tengo una ventana en la cual visualizo datos de una tabla a través de un Query. Y un botón en el cual previsualizo los datos en un Quickreport.
Mientras mantengo la venta donde visualizo los datos, si cambio de registros, se me previsualizan correctamente. El problema llega cuando cierro esa ventana y no salgo de la aplicación, cuando vuelvo a abrir la ventana e intentar previsualizar los datos estos no me salen.
Alguna idea de porque me ocurre esto?
Este es el código del Boton para previsualizar:
Código Delphi
[-]
Query1.Last;
For i:= 1 To Query1.RecordCount do
begin
Table4.Insert;
if Query1.FieldByName('Cantidad').AsFloat = 0 then
begin
Table4.FieldByName('Cantidad').AsString:= '';
Table4.FieldByName('Usum').AsString:= '';
Table4.FieldByName('Total').AsString:= '';
Table4.FieldByName('Descripcion').AsString:= Query1.FieldByName('Descripcion').AsString;
Table4.FieldByName('Precio').AsString:= '';
end else
begin
Table4.FieldByName('Cantidad').AsString:= FormatFloat(',0.00',Query1.FieldByName('Cantidad').AsFloat);
Table4.FieldByName('Usum').AsString:= Query1.FieldByName('USUM').AsString;
Table4.FieldByName('Descripcion').AsString:= Query1.FieldByName('Descripcion').AsString;
Table4.FieldByName('Precio').AsString:= FormatFloat(',0.00',Query1.FieldByName('Precio').AsFloat);
Table4.FieldByName('Total').AsString:= FormatFloat(',0.00', Query1.FieldByName('Cantidad').AsFloat * Query1.FieldByName('Precio').AsFloat);
end;
Table4.Post;
Query1.Prior;
end;
If Table1.FieldByName('Certificaciones').AsFloat = 0 then
begin
Form10.QRLabel2.Caption:= 'IVA ' + FloatToStr(Table1.FieldByName('IvaAplica').AsFloat) + '% . . .';
Form10.QRLabel1.Caption:= Edit5.Text;
Form10.QRLabel4.Caption:= Edit6.Text;
Form10.QRLabel5.Caption:= Edit1.Text;
Form10.QRLabel6.Caption:= fecha;
Form10.QuickRep1.Preview;
end else
begin
total:= Table1.FieldByName('total').AsFloat;
certificacion:= FormatFloat('#,##0.00',Table1.FieldByName('Total').AsFloat - Table1.FieldByName('Certificaciones').AsFloat);
Form11.QRLabel2.Caption:= certificacion;
Form11.QRLabel3.Caption:= 'IVA ' + FloatToStr(Table1.FieldByName('IvaAplica').AsFloat) + '% . . .';
Form11.QRLabel4.Caption:= Edit5.Text;
Form11.QRLabel5.Caption:= FormatFloat('###,###,##0.00', total*1.16 - Table1.FieldByName('Certificaciones').AsFloat);
Form11.QRLabel6.Caption:= 'RETENCION ' + FloatToStr(Table1.FieldByName('Retencion').AsFloat) + '% . . .';
Form11.QRLabel7.Caption:= Edit4.Text;
Form11.QRLabel8.Caption:= Edit6.Text;
Form11.QRlabel10.Caption:= Edit1.Text;
Form11.QRLabel11.Caption:= fecha;
Form11.QuickRep1.Preview;
end;