Detalles en Reporte de Facturas

[magnu9]

holas chicos espero las esten pasando bien, tengo un problemitas para mostrar los detalles en un report de fatura, resulta que si he facturado mas de dos articulos, no me presentan todos los detalles no mas que el ultimo en haber agregado hay proceso de facturacion.

Cualquier duda o sugerencia sera bienvenidad.

Gracias de antemanos.

[Caral]

Hola magnu9
Danos mas informacion, por que no pones el codigo que genera el reporte, por cierto es Qrepotr?
Puede tener que ver con el dataset, no se.
Saludos

[magnu9]

En Seguida Caral... Dame Unos Minutos... Y Gracias Por Tu Pronta Atencion... Dios A La Velocidad De La Luz...

[magnu9]

Hola caral, no veo ningun dataset en mi codigo... pero en el form del reporte tengo mi dataset... porque debiera de utilizarlo... mira el codigo de llamado de mi Reporte... algo más y me avisa... vale.

procedure TImprimirFactura.BitBtn1Click(Sender: TObject);
begin
UniFactura.querFactura.Close;
UniFactura.querFactura.SQL.Text := 'select top 1 numfac, fecfac, tipfac, condicion,codusu,fecvenc,codcli, impuestoTot, descuento, subtotal, totalfac from factura order by numfac desc';
uniFactura.querFactura.Open;
numfact := UniFactura.querFactura.Fields[0].AsInteger;
If RadioGroup2.ItemIndex = 0 then
begin
FImprimirFactura:=TFImprimirFactura.Create(self);
FImprimirFactura.querFactura.parameters[0].Value :=numfact;
FImprimirFactura.querFactura.Open;
try
If RadioGroup1.ItemIndex = 0 then FImprimirFactura.QuickRep1.Preview
else FImprimirFactura.QuickRep1.Print;
finally
FImprimirFactura.Free;
end;
end;
end;

[Caral]

Hola
Pregunta?
Para que el top 1, este te envia solo un dato, es necesario?
Saludos

[magnu9]

Caral un elojio sipppp... Eres muy pero muy efectivo... GRACIAS... Coloqué el dataset, quite el top 1 y listo. ;)... y no te preocupes mi otra duda esta al cruzar la esquina....

procedure TImprimirFactura.BitBtn1Click(Sender: TObject);
begin
UniFactura.querFactura.Close;
UniFactura.querFactura.SQL.Text := 'select numfac, fecfac, tipfac, condicion,codusu,fecvenc,codcli, impuestoTot, descuento, subtotal, totalfac from factura order by numfac desc';
uniFactura.querFactura.Open;
numfact := UniFactura.querFactura.Fields[0].AsInteger;

If RadioGroup2.ItemIndex = 0 then
begin
FImprimirFactura:=TFImprimirFactura.Create(self);
FImprimirFactura.querFactura.parameters[0].Value :=numfact;
FImprimirFactura.querFactura.Open;
try
FImprimirFactura.QuickRep1.DataSet:=FImprimirFactura.querFactura;
If RadioGroup1.ItemIndex = 0 then FImprimirFactura.QuickRep1.Preview
else FImprimirFactura.QuickRep1.Print;
finally
FImprimirFactura.Free;
end;
end;
end;

[Caral]

hola
y que hice?, solo pregunte.
Saludos

[magnu9]

:D:D:DY preguntas que hiciste, me dijiste lo del dataset, se me había escapado, lo había utilizado en mis anteriores report, pero lo había olvidado y gracias a usted, lo recorde... no sea asi, como ¿y que hice?;) :eek: