qreport no imprime registros por 2da vez

[Oscar Guzmán]

 
Dm.NotasCredito.Close;
  DM.NotasCredito.SQL.Clear;
  Dm.NotasCredito.SQL.Add('SELECT * FROM Ventas');
  Dm.NotasCredito.SQL.Add('WHERE Documento=:Documento AND Tipo=:Tipo');
  Dm.NotasCredito.Parameters.ParamByName('Documento').Value:=Edit13.Text;
  Dm.NotasCredito.Parameters.ParamByName('Tipo').Value:='DE';
  Dm.NotasCredito.Open;
  Dm.facturas.Close;
  Dm.facturas.SQL.Clear;
  Dm.facturas.SQL.Add('SELECT * FROM Ventas');
  Dm.facturas.SQL.Add('WHERE Factura=:Documento AND Tipo=:Tipo');
  Dm.facturas.Parameters.ParamByName('Documento').Value:=Dm.NotasCreditofactura.Value;
  Dm.facturas.Parameters.ParamByName('Tipo').Value:='FA';
  Dm.facturas.Open;

  LeeDevolucion.Close;
  LeeDevolucion.Parameters.ParamByName('@Factura').Value:=Dm.facturasfactura.Value;
  LeeDevolucion.Parameters.ParamByName('@NroNota').Value:=Edit13.Text;
  LeeDevolucion.Open;
  FormaDevQR.QuickRep1.Preview;
  BitBtn4.Enabled:=False;
  Edit13.SetFocus;

Con lo anterior reimprimo un nc que ya se realizó y que quedó almacenada, con los dos primeros queries llamo a los datos de la factura a la que se le agregó la nc (edit13.text) y con leedevolución traigo los registros de la nc, buscándolos en la tabla con el nro de factura dm.facturasfactura.value y con el nro de documento de la nc edit13.text. cuando mando a reimprimir los datos de encabezado pasan perfectamente pero los datos de "leedevolucion" no.

 
select f.documento,r.documento as documentor,r.tipofact,f.dividoiva,f.iva,f.porciva,f.codvende,f.nombrevendedor,f.fecha,f.factura,
f.codclie,f.nombre,f.status,f.tipo,r.cb,r.descripcion,r.cantidad,r.pvp,r.total,r.talla,r.costo,r.modelo,f.TotalBaseImp,f.precionc,f.totalnc 
/*from ventas f inner join renglon r on (f.factura=r.factura)*/
from ventas f inner join renglon r on f.factura=r.factura and r.documento=f.documento
where (f.tipo='DE') and (r.tipofact='DE') and (f.factura=@factura) and (r.documento=@NroNota)
order by r.modelo

Lo anterior, es el sp que me da los registros.

[[oscarac]]

y que datos hay en renglon?

otra sugerencia
cuando uses datos los cuales ya sabes su tipo es mejor utilizarlos de otra manera, es decir si sabes que numero de factura es de tipo caracter

cambias esto
Dm.facturasfactura.Value;
por esto
Dm.facturasfactura.AsString;

[Oscar Guzmán]

es verdad, tienes razón con lo del value por AsString

Los datos que deben verse en el qreport y que se encuentran en la tabla renglones son:
modelo, cantidad, descripcion,pvp y total

aunque el procedimiento LeeDevoluciones también me da, el número de documento de nc, la fecha en la que fue realizada, el total general, de acuerdo a la sumantoria del total en dinero de los registros que sería igual a TotalBaseImp, el iva y total de la nota de crédito (Totalnc) y todos los datos llegan al qreport a QRDBText, es decir, que no hago ningún cálculo adicional, ya que esa información está guardada y la muestro tal como es, ya que es una reimpresión, la cual funciona perfectamente cuando entro por primera vez al formulario donde se gestiona la realización de nc y la posterior reimpresión, hasta que me salgo del mismo

[[oscarac]]

pues si que esta raro
trata de aislar esa parte y adjuntala para poder revisarla

[Oscar Guzmán]

ya la coloqué. Es el procedimiento almacenado que adjunté antes.