Mostrar una tabla y cortarla por rubros

[yag]

Hola buenas tardes!

Tengo una página en la que debo montar una tabla que extrae los valores de una tabla de la base de datos de mi intranet, la cual tiene una serie de campos entre los cuales existe uno llamado "rubro" el cual indica un tipo de operación, este campo puede repetirse n cantidad de veces, pero hay varios tipos de rubros, todos se manejan con un valor numérico del 1 al 6.

Yo hago la consulta SQL para mostrar los datos y los ordeno por rubro, mi problema está en que necesito que cada vez que se corta un rubro se inserte una fila más en la tabla para totalizarlos y a partir de esa fila, es decir, hacia abajo, continuen los rubros siguientes, calculando sus totales igual que para el caso anterior.

Aqui les pego el código que tengo para montar la estructura de la tabla desde la sentencia SQL, para que por favor, si pueden, me echen una manito con esto.

De Antemano Gracias

Código:

<%
SQL="SELECT * from credito order by rubro"
set rs=oConn.Execute(SQL)
If not rs.eof then
While not rs.eof
id=id+1
%>
    <td height="34" bordercolor="#CCCCCC" class="texto"><%=id%></td>
    <td bordercolor="#CCCCCC" class="texto"><%=rs.fields("nombre_cliente")%></td>
    <td bordercolor="#CCCCCC" class="texto"><%=rs.fields("numero_cliente")%></td>
    <td bordercolor="#CCCCCC" class="texto"><%=rs.fields("modalidad")%>&nbsp;</td>
    <td bordercolor="#CCCCCC" class="textoNum"><%
		monto1=monto1+rs.fields("monto")
		Response.Write(FormatNumber(rs.fields("monto"),2))
		%></td>
    <td bordercolor="#CCCCCC" class="texto"><div align="center"><%=rs.fields("salida")%>&nbsp;</div></td>
    <td bordercolor="#CCCCCC" class="texto"><div align="center"><%=rs.fields("cupo")%>&nbsp;</div></td>
    <td bordercolor="#CCCCCC" class="texto"><%=rs.fields("garantia")%>&nbsp;</td>
    <td bordercolor="#CCCCCC" class="texto"><div align="center"><%=rs.fields("tasa")%>%</div></td>
    <td bordercolor="#CCCCCC" class="texto">&nbsp;</td>
    <td bordercolor="#CCCCCC" class="texto"><div align="center"><%=rs.fields("plazo")%></div></td>
    <td bordercolor="#CCCCCC" class="texto">&nbsp;</td>
    <td bordercolor="#CCCCCC" class="texto">&nbsp;</td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=FormatNumber(rs.fields("prom_indiv"),0)%></td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=FormatNumber(rs.fields("riesgo_indiv"),0)%></td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=FormatNumber(rs.fields("prom_grupal"),0)%></td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=FormatNumber(rs.fields("riesgo_grupal"),0)%></td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=FormatNumber(rs.fields("dpf"),0)%></td>
    <td bordercolor="#CCCCCC" class="textoNum"><%=rs.fields("rubro")%></td>
  </tr>
  <tr class="texto"> 
    <td height="16" colspan="4" bordercolor="#CCCCCC" class="texto">TOTALES</td>
    <td colspan="3" bordercolor="#CCCCCC" class="textoNum">&nbsp;</td>
    <td colspan="11" bordercolor="#CCCCCC" bgcolor="#000000" class="texto">&nbsp;</td>
    <td bordercolor="#CCCCCC" class="textoNum">&nbsp;</td>
  </tr>
    <%
  rs.MoveNext
  wend
  end if
  %>

Gracias

[orharo2003]

Bueno asi porque sí la verdad no te entiendo y menos a tu código,
Si ponemos las cosas como queremos las salida uno se da una mayor idea no?

Describe la salida :

Quiero que aparezca así .....

Rubro 1 .... blablabla...
total.....

[yag]

Debe ser algo así la salida:

Comité de Credito

ID | Cliente | Nro Cuenta | Monto | Modalidad
------------------------------------------------------------
1 | Cliente A | 88215253322 | 20000000 | linea de crdt
2 | Cliente B | 98415896321 | 10000000 | pagare comc
------------------------------------------------------------
Total Descuentos Comerciales | 30000000
------------------------------------------------------------
3 | Cliente C | 66919875320 | 40000000 | Carta de crdt
4 | Cliente D | 32415896321 | 5000000 | MCPRE Ccom
------------------------------------------------------------
Total Eliminación de Lineas | 45000000
------------------------------------------------------------
Total Creditos a Comité | 75000000,00
------------------------------------------------------------

Los rubros son por ejemplo estos dos, descuento comercial y eliminación de lineas, dentro de la base de datos se identifican con un valor numérico, las operaciones que corresponden a descuentos comerciales equivalen a un "01", las eliminaciones de líneas, equivalen a un "06", y así sucesivamente.

Al final hago una suma de todos los rubros, el problema es para cortar en cada uno y subtotalizar.

Espero ahora si me haya explicado un poco mejor.

Gracias!

[Myakire]

algo rapido:

rubro_ant = rs("rubro")
suma=0
While not rs.eof
%>tabla html<%
suma=suma+rs("monto")
rs.movenext
if rs("rubro") <> rubro_ant
%>fila donde muestras el total<%
rubro_ant = rs("rubro")
suma=0
end if
wend

¿era eso?

[yag]

Myakire, estuve haciendo el cambio que me dijiste y monté una captura rápida para ver si funcionaba y no leer todos los campos de la bd, pero no funcionó, aqui te pego todo el codigo de la aplicacion para que veas si entiendes por qué me da error. El IE arroja, ocurrió una "excepción 80020009"

Código:

<%
Dim oConn, rs, SQL, suma, id, monto, rubro, rubro_ant
id=0
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open "DSN=intranet"
SQL="SELECT * from credito order by rubro"
set rs=oConn.Execute(SQL)
rubro_ant=rs.fields("rubro")
suma=0
While not rs.eof
Id=id+1
Response.Write(id)
Response.Write(rs.fields("nombre_cliente"))
Response.Write(rs.fields("numero_cliente"))
Response.Write(rs.fields("rubro"))
suma= suma + monto
rs.MoveNext
if rs("rubro") <> rubro_ant then%>
 <br> totales: 
 <%Response.Write(suma)%>
 <br> 
<%
rubro_ant=rs.fields("rubro")
suma=0
end if
wend
%>

Gracias!

[orharo2003]

mmm. Tienes identificados los rubros ??? Me imagino que si...
Yo tuve algo similar... eran unos estados de cuenta detallados

lo busco y te posteo la idea. Ok... y las pantallas

[Myakire]

Bueno, como lo escribi rápido, la verdad es que no medite mucho sobre el mismo, pero el ropoblema puede ser que al llegar a EOF (rs.movenext) intentamos hacer referencia a rs("rubro"), lo cual esta mal.

Si movemos el código un poco se soluciona esto:

Código:

set rs=oConn.Execute(SQL)
rubro_ant=rs.fields("rubro")
suma=0
While not rs.eof
   if rs("rubro") <> rubro_ant then%>
    <br> totales: <%=suma%> <br> 
   <%
     rubro_ant=rs.fields("rubro")
     suma=0
   end if
   Id=id+1
   Response.Write(id)
   Response.Write(rs.fields("nombre_cliente"))
   Response.Write(rs.fields("numero_cliente"))
   Response.Write(rs.fields("rubro"))
   suma= suma + monto
   rs.MoveNext
wend
   %> <br> totales: <%=suma%> <br> <%
%>

El útimo desplegado es para el último total (ya que se haya llegado al EOF).

[yag]

Con algunos pequeños cambios, ya está listo.

¡Muchas Gracias por la ayuda!

Saludos