Ke tal miembros del foro pues bien, aki con un problema poco comun al ke ya le he dado un millon de vueltas y no se ke es lo ke pase, pues bien estoy desarrollando un programa donde necesito sacar un reporte de diario de ventas, las ventas ke tengo hechas son guardadas en una tabla llamada diarioventas asi como otra tabla llamada tblordtra donde se almacenan datos de ordenes de trabajo..... hasta aki no hay ningun problema....bueno despues tengo un form donde doy un criterio a buscar por fechas, busca en las tablas ke mencione anteriormente y guarda los datos ke encuentra segun el criterio ke pongamos en una tabla ke se llama tmpdiaven para poder imprimirlos con mi reporte hecho en crystal reports....
el problema viene aki.... dentro de la tabla tmpdiaven tengo varios registros.....pero en el reporte solo me imprime el primer registro......
la verdad ya no se ke onda pues esto no deveria tenermayor problema.... si alguien puede ayudarme lo agradeceria mucho....para mas info les comento ke trabajo con visual basic 6.0 pro con SP6 y utilizo el contol 4.6 del crystal reports.....para hacer mis reportes utilizo Crystal Reports for Visual Basic 4.6
Aqui tambien pongo el codigo para ke observen y ojala me digan si encuentran algo extraño
Private Sub cmdImp_Click()
If txtD(0) = "" Then Exit Sub
If IsDate(txtD(0)) And IsDate(txtD(1)) Then
FecDes = CDate(txtD(0).Text) 'desde
FecHas = CDate(txtD(1).Text) 'hasta
End If
Set Db = OpenDatabase("S:\ReyMarSi.mdb")
Db.Execute "delete * from tmpdiaven"
Set rc = Db.OpenRecordset("select * from [diarioventas] where fecha between #" & Format(FecDes, "mm/dd/yyyy") & "# and #" & Format(FecHas, "mm/dd/yyyy") & "# " & "order by fecha asc;")
Set rt = Db.OpenRecordset("select * from tmpdiaven")
While Not rc.EOF
Set rtp = Db.OpenRecordset("select * from tblordtra where no_factura = " & rc!no_factura & " and no_factura <> 0 order by orden")
If Not rc.EOF Then
band = 0
While Not rtp.EOF
rt.AddNew
rt!Cliente = rc!Nombre
rt!Orden = rtp!Orden
rt!no_fac = rc!no_factura
rt!Fecha = rc!Fecha
rt!iva = rc!iva
rt!total = rc!total
rt!SUBTOTAL = rc!SUBTOTAL
rt.Update
rtp.MoveNext
band = 1
Wend
If rtp.EOF And band = 0 Then
rt.AddNew
rt!Cliente = rc!Nombre
rt!Orden = 0
rt!no_fac = rc!no_factura
rt!Fecha = rc!Fecha
rt!iva = rc!iva
rt!total = rc!total
rt!SUBTOTAL = rc!SUBTOTAL
rt.Update
End If
rc.MoveNext
End If
Wend
'rt.MoveFirst
Data1.RecordSource = "select * from tmpdiaven"
Data1.Refresh
rt.Close
rc.Close
Db.Close
CRDIAVEN.ReportFileName = "S:\rpdiavtas.rpt"
CRDIAVEN.WindowTitle = "Reporte de Diario de Ventas"
CRDIAVEN.Action = 1
End Sub
Mostrar Mensajes
