7 replies to this topic

[amell2020]

Hola amigos estoy teniendo un error con un reporte de una factura en fastreport 4.0 y delphi 7, el problema es cuando voy a imprimir una factura ella imprime las dos primeras facturas muy bien, pero despues de a tercera que voy en imprimir siempre imprime la factura anterior en vez de la actua que he realizado en el momento, aqui le dejo el codigo que utilizo para impimirla factura:

delphi

  qrFacturasPrint.SQL.Clear;
  qrFacturasPrint.SQL.Text:='SELECT `ordenes`.`id_ordenes`, '+
  ' ordenes.`condicion` as Procesado,`clientes`.`nombre`,'+
  ' `item_orden`.`Fecha`,`item_orden`.`cant`, `articulos`.`id_articulos`,'+
  ' `articulos`.`nombre` as Ordenes, item_orden.`id_item_orden`,'+
  ' item_orden.`precio_unidad`, (`item_orden`.`precio_unidad` * `item_orden`.`Descuento` / 100) as Descuento, (`item_orden`.`precio_unidad` - (`item_orden`.`precio_unidad` * `item_orden`.`Descuento` / 100)) * `item_orden`.`cant` as Total,'+
  ' `item_orden`.`cant` * `item_orden`.`precio_unidad` as Subtotal,'+
  ' `usuario`.`Nombre` as Vendedor '+
  '  FROM `ordenes`'+
  ' LEFT JOIN `clientes` ON (`clientes`.`id_cliente` = ordenes.`id_cliente`)'+
  ' LEFT JOIN `item_orden` ON (`item_orden`.`id_orden` = `ordenes`.`id_ordenes`)'+
  ' LEFT JOIN `articulos` ON (articulos.`id_articulos` = `item_orden`.`id_articulo`)'+
  ' LEFT JOIN usuario ON (USUARIO.`ID_usuario` = `ordenes`.`IDUSUARIO`)'+
 
' Where `ordenes`.`id_ordenes` = :R' +
' order by ordenes.id_ordenes desc';
  qrFacturasprint.Params.ParamByName('R').DataType:=ftinteger;
  qrFacturasprint.Params.ParamByName('R').Value:=StrToint(factura.Label12.Caption);
 qrFacturasprint.Open;
 qrFacturasPrint.Refresh;
 
 Fimpf:=TFimpf.Create(self);
 //Muestra el informe a imprimir
 
 Fimpf.fReport2.Variables['pago1'] :=StrTointdef(Epago.Text,0);
 Fimpf.fReport2.Variables['cambio1'] :=strTofloatdef(Ecambio.caption,0);
 Fimpf.fReport2.Variables['Titulo'] := QuotedStr(Finformacion.edtNomb.Text);
 Fimpf.fReport2.Variables['direccion'] := QuotedStr(Finformacion.edtDireccion.Text);
 Fimpf.fReport2.Variables['Telefono'] := QuotedStr(Finformacion.edtTelefono.Text);
 Fimpf.fReport2.Variables['mensaje'] := QuotedStr(Finformacion.edtMensaje.Text);
 Fimpf.fReport2.Variables['NFC'] :=Quotedstr(Finformacion.edtNFC.text);
 
 Fimpf.fReport2.PrepareReport(true);
 Fimpf.fReport2.Print;
 
 //Guardando la Tabla Padre
   //Factura.sBitBtn2.Visible:=true;
end

[FerCastro]

Hola!!

Puedes mandarme por correo tu archivo fr3?

fercastro@hotmail.com

Quiero pensar que hay algo mal por ahi con el dataset o con el salto de línea. Con gusto me puedo dar unos 10 mins para revisarlo.

Saludos!

[amell2020]

ese archivo yo no lo guardo solo lo diseño en el componente pero voy a guardarlo  fr3 aqui esta

[egostar]

Hola

A mi me suena como que la factura que se está generan en ese momento no se ha "guardado" aún en la base, yo opino que falta algún Commit Retaining para que se haga el post correctamente y después ya imprimir la factura.

Saludos

[amell2020]

no porque al principio yo guardo la factura y luego le doy al boton para impimir lo raro es que solo hace eso en una computadora, si lo pruebo en otra funciona muy bien me gustaria saber si aquien tiene algo si parecido??

[cram]

¿no será algo que tiene que ver con el controlador de la impresora?
algún problema, como que no se boore la cola de impresión, o algo así.
Yo tuve un problema similar con la configuración de copias a imprimir. Le daba n y salía una copia, luego le pedía 1 y salían las n que había pedido antes. Como si estuviera desfasado.

A veces los errores no están en el programa.

Saludos

[s3cr3to]

No uso FR, pero acabo de resolver una situación semejante cuando estuve usando un componente "ADOQuery"; mi solución es cerrar el query antes de usarlo.

delphi

qrFacturasprint.Close;
qrFacturasPrint.SQL.Clear;
...

Cuando es posible es mejor cerrarlo despues de usar; pero en ciertos escenarios no es posible, y cerrandolo antes de usar tiene como resultado que corrige estas situaciones problematicas.

Saludos

[amell2020]

amigos no creo que sea los driver porque hago un showreport y pasa lo mismo en la vista, como que se queda pegada una factura anterior, esoty usando los componente unidac para los query y lo raro es qe me lo hace en los dos formularios diferente cuando voy imprimir en el de factura y el de adminstracion igual? tambien use la opcion de cerrar el query al final y nada tampoco