SoloCodigo

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

Saludos

Hola como estan, escribo porque tengo una pequeñisima duda que me esta quebrando la cabeza, pues bien, tengo una plicacion "x" que utiliza reportes hechos en crystal reports 8.5, todo esta perfecto hasta que quiero empaquetar mi aplicacion para empezar a distribuirla, ya que

primero no me generaba ningun cab, despues estuve investigando en la red y habian dado como solucion modificar el archivo crystl32.dep, cuando lo hice dio mas o menos resultado, porque ahora me dice que no encuetra los sig archivos

crystal
p2bbde.dll
u25store.dll
u25total.dll
22lbar.dll

Ya los busque en todo mi disco duro y no existen, y al parecer no soy el unico con este problema....alguna sugerencia?

Originalmente publicado por J.M.Movilla
Cuando hablas de UN CRITERIO para abrir esas dos tablas hace suponer que entre esas tablas exista al menos una relación... Porque sería absurdo que quieras abrir una tabla de clientes y otra de cantidad de agua de lluvia a lo largo del año...

Por tanto podrás EN TIEMPO DE DISEÑO preparar una SQL en que selecciones tales campos de una tabla y tales otros campos de la otra tabla siempre que se cumpla la condición de que (WHERE) determinado campo de la segunda tabla sea igual al campo X de la primera...

Ya es difícil explicarse partiendo de sólo presunciones...  Pero creo que puedas llegar a entenderme... Y si no, ya sabes... respondes a la pregunta con más datos para que la respuesta sea más directa.  Y si la respuesta te ha servido, pues ya sabes... responde también para dar las gracias y para que los que lean este mensaje sepan que tu problema se resuelve como queda explicado, que así es como el foro se hace útil para muchos.

El código adjunto te ayudará a entender cómo se interrelacionan dos tablas.

Saludos y suerte
 

muchas gracias por la solucion, pero no era eso, las tablas no estan relacionadas porque tienen informacion muy diferente. a ver, ahi va, el criterio al que me referia es select * from & alguna_de_las tablas & where & campo_folio o campo_cp & = (o like porque cp lo puse como texto) & criterio.

los resultados debian ser visualizados en un dbgrid aqui el problema es que los campos eran diferentes y no los podia capturar en modo diseño...... y la solucion fue tan facil como poner data1.refresh

de todas maneras te agradesco la atencion

bye