Ver Mensaje Individual
  #7 (permalink)  
Antiguo 23/03/2009, 18:59
Avatar de webbeginner
webbeginner
 
Fecha de Ingreso: noviembre-2004
Mensajes: 241
Antigüedad: 20 años, 4 meses
Puntos: 2
Respuesta: Por favor ayuda para terminar de codificar un CICLO ANIDADO utilizando 2 t

qUE TAL Miyakire !

Gracias por tu tiempo y ayuda, fijate que ya casi queda, pero el hijo me lo está devolviendo solo para el primero y los demas no los toma en cuenta, mira aqui esta como me aparece:




Y este es el código como lo tengo actualmente


Código ASP:
Ver original
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="Connections/conn_PMR2009.asp" -->
  3. <%
  4. 'El Recordset para la consulta padre
  5. Dim rsPadre
  6. Dim rsPadre_cmd
  7. Dim rsPadre_numFilas
  8.  
  9. Set rsPadre_cmd = Server.CreateObject ("ADODB.Command")
  10. rsPadre_cmd.ActiveConnection = MM_conn_PMR2009_STRING
  11. rsPadre_cmd.CommandText = "SELECT Tra_ID,   Tra_NoModalidad,   Tra_HomoclaveGeneral as clave,   Tra_HomoclaveModalidad,   Tra_Nombre,   Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp in (0,1) AND dep_ID = 100"  
  12. rsPadre_cmd.Prepared = true
  13.  
  14. Set rsPadre = rsPadre_cmd.Execute
  15. rsPadre_numFilas = 0
  16. %>
  17. <%
  18. 'El Recordset para la consulta hijo
  19. Dim rshijos
  20. Dim rshijos_cmd
  21. Dim rshijos_numRows
  22.  
  23.  
  24. Set rshijos_cmd = Server.CreateObject ("ADODB.Command")
  25. rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
  26. rshijos_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100 AND Tra_ID = " & rsPadre.Fields.Item("Tra_ID").Value
  27. rshijos_cmd.Prepared = true
  28.  
  29. 'Set rsPadre = rsPadre_cmd.Execute
  30.  
  31.  
  32. 'Set rshijos_cmd = Server.CreateObject ("ADODB.Command")
  33. 'rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
  34. 'rshijos_cmd.CommandText = "SELECT Tra_ID,   Tra_NoModalidad as cveSec,   Tra_HomoclaveGeneral as clave,   Tra_HomoclaveModalidad,   Tra_Nombre,   Tra_NombreModalidad 'FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100"  
  35. 'rshijos_cmd.Prepared = true
  36.  
  37. Set rshijos = rshijos_cmd.Execute
  38. rshijos_numRows = 0
  39. %>
  40. <%
  41. Dim Ciclo1_numFilas
  42. Dim Ciclo1_indice
  43.  
  44. Ciclo1_numFilas = 10
  45. Ciclo1_indice = 0
  46. rsPadre_numFilas = rsPadre_numFilas + Ciclo1_numFilas
  47. %>
  48. <%
  49. Dim Ciclo2_numFilas
  50. Dim Ciclo2_indice
  51.  
  52. Ciclo2_numFilas = 10
  53. Ciclo2_indice = 0
  54. rshijos_numRows = rshijos_numRows + Ciclo2_numFilas
  55. %>
  56. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  57. <html xmlns="http://www.w3.org/1999/xhtml">
  58. <head>
  59. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  60. <title>Documento sin t&iacute;tulo</title>
  61. <link href="extras/Estilos.css" rel="stylesheet" type="text/css" />
  62. </head>
  63.  
  64. <body>
  65. <!-- Muestro la tabla con los padre -->
  66. <table width="296" border="1">
  67.   <tr>
  68.     <td width="134" class="LigasGral">M_Id</td>
  69.     <td width="146" class="LigasGral">Clave</td>
  70.   </tr>
  71.   <% While ((NOT rsPadre.EOF) AND(Ciclo1_numFilas <> 0)) %>
  72.     <tr>
  73.       <td class="LigasGral"><%=(rsPadre.Fields.Item("Tra_ID").Value)%></td>
  74.       <td class="LigasGral"><%=(rsPadre.Fields.Item("clave").Value)%></td>
  75.     </tr>
  76.     <tr>
  77.       <td colspan="2" class="LigasGral">
  78.        
  79.       <table border="1">
  80.   <tr>
  81.     <td class="CeldaGridDet">M_ID</td>
  82.     <td class="CeldaGridDet">cveSec</td>
  83.     <td class="CeldaGridDet">Clave</td>
  84.     <td class="CeldaGridDet">&nbsp;</td>
  85.   </tr>
  86.   <% While ((NOT rshijos.EOF) AND (Ciclo2_numFilas <> 0)) %>
  87.     <tr>
  88.       <td class="CeldaGridDet"><%=(rshijos.Fields.Item("Tra_ID").Value)%></td>
  89.       <td class="CeldaGridDet"><%=(rshijos.Fields.Item("cveSec").Value)%></td>
  90.       <td class="CeldaGridDet"><%=(rshijos.Fields.Item("clave").Value)%></td>
  91.       <td class="CeldaGridDet">&nbsp;</td>
  92.     </tr>
  93.   <%  
  94.   Ciclo2_indice=Ciclo2_indice+1
  95.   Ciclo2_numFilas=Ciclo2_numFilas-1
  96.   rshijos.MoveNext()
  97. Wend
  98. %>
  99. </table>
  100.        
  101.        
  102.       </td>
  103.     </tr>
  104.     <%  
  105.   Ciclo1_indice=Ciclo1_indice+1
  106.   Ciclo1_numFilas=Ciclo1_numFilas-1
  107.   rsPadre.MoveNext()
  108. Wend
  109. %>
  110. </table>  
  111.  
  112. </body>
  113. </html>
  114. <%
  115. rsPadre.Close()
  116. Set rsPadre = Nothing
  117. %>
  118. <%
  119.  
  120. rshijos.Close()
  121. Set rshijos = Nothing
  122. %>


SALUDOS Y GRACIAS !
__________________
************************
"La bondad es simple; la maldad, múltiple"