![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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; |
#2
|
||||
|
||||
Hola
Pregunta? Para que el top 1, este te envia solo un dato, es necesario? Saludos |
#3
|
||||
|
||||
Todo resuelto... Gracias hermano...
Caral un elojio sipppp... Eres muy pero muy efectivo... GRACIAS... Coloqué el dataset, quite el top 1 y listo.
![]() 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; |
#4
|
||||
|
||||
hola
y que hice?, solo pregunte. Saludos |
#5
|
||||
|
||||
Caral por Dios
![]() ![]() ![]() ![]() ![]() |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Detalles de un producto en banda de reporte | sanfer1ec | Impresión | 8 | 12-07-2013 22:29:58 |
Tabla de Facturas vs Detalles de Facturas | magnu9 | Conexión con bases de datos | 9 | 27-07-2007 17:27:37 |
Es posible en un reporte poner 2 detalles | carlos gonzalez | Varios | 1 | 29-06-2006 19:32:22 |
Detalles.... | yhoho | Varios | 2 | 08-03-2005 13:58:22 |
Campos calculados, facturas y detalles de facturas. | Letty | Conexión con bases de datos | 7 | 07-11-2003 11:19:44 |
![]() |
|