Código:
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.
Código:
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.