Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Detalles en Reporte de Facturas (https://www.clubdelphi.com/foros/showthread.php?t=46521)

magnu9 02-08-2007 21:05:05

Detalles en Reporte de Facturas
 
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 02-08-2007 21:07:36

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 02-08-2007 21:11:30

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

magnu9 02-08-2007 21:17:06

Código
 
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 02-08-2007 21:21:02

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

magnu9 02-08-2007 21:26:12

Todo resuelto... Gracias hermano...
 
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 02-08-2007 21:30:58

hola
y que hice?, solo pregunte.
Saludos

magnu9 02-08-2007 21:34:49

Caral por Dios
 
: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:


La franja horaria es GMT +2. Ahora son las 08:01:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi