border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

  #1 (permalink)  
Antiguo 02-08-2007, 22:14:07
Gran Participación en el Foro
 
Registrado: jun 2007
Posts: 144
ThE_AsUs Valoración +2
Predeterminado Error en codigo para crear tabla agrupada

Hola a todos los foreros, bueno escribi un anterior tema pidiendo ayuda enDataReport para sacar este tipo de reporte: http://img53.imageshack.us/img53/2073/reportgq5.jpg , pero el señor admin "J.M.Movilla" me sugerio que creara una tabla temporal para agrupar ya que en Datareport al parecer no sabian como agrupar x 2 campos , bueno e hecho este codigo pero solo me agrupa 1 registro, y no los demas , alguien me puede hechar una ayuda con este codigo


Código:
Cn.Execute "DELETE FROM RODetailsTemp"
Set Recrodet = Nothing
Recrodet.Open "SELECT RO.RODate,ROD.ROPartNo,I.InvItemDesc,ROD.ROQuantity FROM RepairOrders RO, RODetails ROD, Inventory I Where ROD.RONo = RO.RONo and ROD.ROPartNo = I.InvPartNo ", Cn, adOpenStatic, adLockReadOnly
If Recrodet.RecordCount <> 0 Then
Recrodet.MoveFirst
While Not Recrodet.EOF
Xdate = "#" & Format(Recrodet(0), "mm/dd/yyyy") & "#"
RecBus.Open "SELECT * FROM RODetailsTemp ", Cn, adOpenStatic, adLockReadOnly
RecBus.Find "ROPartNo = " & Recrodet(1) & " ", 0, adSearchForward, 1
RecBus.Requery
    If RecBus.EOF Or RecBus.RecordCount = 0 Then 'If Not RecBus.EOF Then
    insertar = "Insert Into RODetailsTemp ([ROXDate],[ROPartNo],[ROItemDesc],[ROQuantity]) values (" & Xdate & ",'" & Trim(Recrodet(1)) & "','" & Trim(Recrodet(2)) & "'," & Trim(Recrodet(3)) & ")"
    Else
    insertar = "Update RODetailsTemp Set ROQuantity = ROQuantity + " & Recrodet(3) & " Where ROXDate = " & Xdate & " and ROPartNo = '" & Recrodet(1) & "' "
    End If
Cn.Execute insertar
Recrodet.MoveNext
Set RecBus = Nothing
Wend
End If
Set Recrodet = Nothing
El problema es que en "Find" no se puede buscar por mas de un campo, y necesito que cumpla la funcion que los campos RODate y ROPartNo sean encontrados para poder realizar el update y la suma de "Quantity" y asi agrupar la cantidad, pero esto solo lo hace con un registro, ya que no graba en la tabla temporal mas que el 1er registro del recordset y solo actualiza este, supuestamente despues de "Find" pregunta si encontro el campo, y si no lo encuentra grabaria un nuevo registo, pero no hace esto, cuando llega a "Find" con un Nro que no existe aun en la tabla temporal en lugar de ir para insertarlo veo que va a "Update" como si lo hubiera encontrado, que esta mal en el codigo, o como seria el codigo para que me salga una tabla agrupada para ya luego solo mostrarla en un Datareport ?

Salu2 y gracias de antemano por su tiempo.
Responder Con Cita
  #2 (permalink)  
Antiguo 02-08-2007, 22:49:02
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 97
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Hola, has probado realizar el reporte con origen de datos del dataenvironment, desde ahi puedes realizar el grupo
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #3 (permalink)  
Antiguo 02-08-2007, 23:03:07
Gran Participación en el Foro
 
Registrado: jun 2007
Posts: 144
ThE_AsUs Valoración +2
Predeterminado

si, pero no me sale de la forma que quiero como en la imagen, se me desmorona cuando intento agrupar la cantidad, con ese codigo que puse arriba me hace el agrupamiento solo de una fecha, luego no me agrega los demas registros , osea suponiendo tengo estos registros:
Date - PartNo - Cantidad
24/07/2007 - 7831 - 2
24/07/2007 - 7829 - 1
24/07/2007 - 7831 - 3
25/07/2007 - 7831 - 2

me crea la tabla solo con la fecha del 24 y si me suma la cantidad siendo el PartNo "7831" = 5 ese dia, pero no me graba el del dia 25, no salta a grabar el otro dia.
Responder Con Cita
  #4 (permalink)  
Antiguo 04-08-2007, 17:33:31
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 97
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Porque, no subes las tablas haber si te hecho una mano con la agrupación,
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #5 (permalink)  
Antiguo 06-08-2007, 23:58:20
Gran Participación en el Foro
 
Registrado: jun 2007
Posts: 144
ThE_AsUs Valoración +2
Predeterminado

bueno aqui te dejo la BD :

http://rapidshare.com/files/47408899/BDLM.zip.html

el reporte se deberia de formar usando estas 3 tablas: RepairOrders , RODetails , Inventory
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Problema para agregar un registro en una tabla por codigo lesthad C# .NET 2 08-04-2008 19:06:01
Crear Tabla y Campos en Access desde VB por Codigo ¿? dares_ Visual Basic 6.00 1 04-03-2008 12:51:18
Codigo para Tabla Agrupada ThE_AsUs Visual Basic 6.00 3 10-08-2007 20:41:17
necesito un codigo para crear archivo y que se autoreescriba ZeroEoyPnk C/C++ 0 14-12-2006 20:16:56
Crear Tabla con sp_who McruzAT sql 2000 3 04-10-2005 20:35:38


La franja horaria es GMT. Ahora son las 22:55:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right