Foros del Web - Ver Mensaje Individual - como exportar tablas a excel desde una pagina creada en ASP

ireneo · #28 (**permalink**) 26/11/2008, 10:56

color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Rendimiento <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=<%=rsData2("DomicilioTan que")%>&HTMLTitulo2=Rendimiento&HTMLTitulo3=Unidad es&HTMLGrafica=SubTotal&HTMLTipoConsulta=<%=reques t.Form("HTMLTipoConsulta")%>&FecIni=<%=request.For m("FecIni")%>&FecFin=<%=request.Form("FecFin")%>&C enDistribucion=<%=request.Form("CenDistribucion")% >&Unidad=<%=request.Form("Unidad")%>&HTMLCendis=<% =rsData2("DomicilioTanque")%>&HTMLTotal=n"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="56">Importe</td>
</tr>

<%

end if

vchPrimerRegitro = "N"
vinCenDisAnt = vinCenDisAct

vinKmRec = Clng(rsData2(11)) - Clng(rsData2("OdometroAnterior"))
vinRendimiento = vinKmRec / rsData2("Volumen")
vinImporte = Ccur(rsData2("Precio") * rsData2("Volumen"))

vinSubTotKmrec = vinSubTotKmRec + vinKmRec
vinSubTotLitros = vinSubTotLitros + rsData2("Volumen")
vinSubTotRendimiento = vinSubTotRendimiento + vinRendimiento
vinSubTotImporte = vinSubTotImporte + vinImporte

'Totales por Unidad
vinTotUniKmrec = vinTotUniKmrec + vinKmRec
vinTotUniLitros = vinTotUniLitros + rsData2("Volumen")
vinTotUniRendimiento = vinTotUniRendimiento + vinRendimiento
vinTotUniImporte = vinTotUniImporte + vinImporte
if vchPrimerRegCorte = "S" then
vstUnidad = rsData2("Unidad")
vstDescUnidad = rsData2("Descripcion")
vinKmIni = rsData2("OdometroAnterior")
vinKmFin = rsData2(11)
vchPrimerRegCorte = "N"
else
vinKmFin = rsData2(11)
end if

'Totales por CenDis
vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte

vinUnidadAnt = vinUnidadAct
rsData2.MoveNext

if rsData2.eof then
if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if
%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=vstUnidad%></td>
<td><%=vstDescUnidad%></td>
<td><%=vinKmIni%></td>
<td><%=vinKmFin%></td>
<td><%=vinTotUniKmrec%></td>
<td><%=FormatNumber(vinTotUniLitros,3)%></td>
<td><%=FormatNumber(vinTotUniRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotUniImporte,2)%></td>
</tr>

<%
vinTotUniKmrec = 0
vinTotUniLitros = 0
vinTotUniRendimiento = 0
vinTotUniImporte = 0

end if

loop

rsData2.close
%>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td colspan="4" align="right">TOTAL</td>
<td><%=vinSubTotKmRec%></td>
<td><%=FormatNumber(vinSubTotLitros,3)%></td>
<td><%=FormatNumber(vinSubTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinSubTotImporte,2)%></td>
</tr>

</table>
 
 
TOTAL CLIENTE
<table border="0" cellpadding="1" cellspacing="1" width="750">
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td width="43">Unidad</td>
<td width="138">Nombre</td>
<td width="59">Km Inicial</td>
<td width="54">Km Final</td>
<td width="69">Km Recorridos</td>
<td width="65">Litros <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=TOTAL&HTMLTitulo2=Litros &HTMLTitulo3=Unidades&HTMLGrafica=SubTotal&HTMLTip oConsulta=<%=request.Form("HTMLTipoConsulta")%>&Fe cIni=<%=request.Form("FecIni")%>&FecFin=<%=request .Form("FecFin")%>&CenDistribucion=<%=request.Form( "CenDistribucion")%>&Unidad=<%=request.Form("Unida d")%>&HTMLCenDis=&HTMLTotal=s"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="97">Rendimiento <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=TOTAL&HTMLTitulo2=Rendim iento&HTMLTitulo3=Unidades&HTMLGrafica=SubTotal&HT MLTipoConsulta=<%=request.Form("HTMLTipoConsulta") %>&FecIni=<%=request.Form("FecIni")%>&FecFin=<%=re quest.Form("FecFin")%>&CenDistribucion=<%=request. Form("CenDistribucion")%>&Unidad=<%=request.Form(" Unidad")%>&HTMLCendis=&HTMLTotal=s"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="56">Importe</td>
</tr>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td colspan="4" align="right">TOTAL</td>
<td><%=vinTotKmRec%></td>
<td><%=FormatNumber(vinTotLitros,3)%></td>
<td><%=FormatNumber(vinTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotImporte,2)%></td>
</tr>
</table>
<%
case "2"

vs_Sql = "Select * from clientes_servicios cs, Clientes_Unidades cu where cs.cod_cliente = '" & session("Cod_Cliente") & "' "
if request.form("FecIni") = request.form("FecFin") then
vs_Sql = vs_Sql & "and datepart(year,cs.fecha_inicio) = " & year(request.form("FecIni")) & " and datepart(month,cs.fecha_inicio) = " & day(request.form("FecIni")) & " and datepart(day,cs.fecha_inicio) = " & month(request.form("FecIni")) & " "
else
vs_Sql = vs_Sql & "and cs.fecha_inicio >= '" & request.form("FecIni") & "' "
vs_Sql = vs_Sql & "and cs.fecha_inicio <= '" & request.form("FecFin") & "'"
end if
if Request.Form("Unidad") <> "0" then
vs_Sql = vs_Sql & " and cs.Unidad = " & Request.Form("Unidad") & " "
end if
vs_Sql = vs_Sql & "and cu.cod_cliente = cs.Cod_Cliente "
vs_Sql = vs_Sql & "and cu.Cod_Unidad = cs.Unidad "
vs_sql = vs_Sql & "order by datepart(year,cs.fecha_inicio), datepart(month,cs.fecha_inicio), datepart(day,cs.fecha_inicio), cs.Unidad "
'Response.Write(vs_Sql)
'Response.End

Set rsData2 = GEDB.Execute(vs_Sql)
If rsData2.Eof then
rsData2.close
Response.Redirect("error.asp?msg1=No hay informacin para mostrar")
End If

vchColor = ""
vinKmRec = 0
vinRendimiento = 0
vchPrimerRegitro = "S" 'S-Si es Primer registro, N-No es primer registro

'variables de totales
vinSubTotKmrec = 0
vinSubTotLitros = 0
vinSubTotRendimient = 0
vinSubTotImporte = 0
vinTotKmrec = 0
vinTotLitros = 0
vinTotRendimiento = 0
vinTotImporte = 0

vdaFechaAct = 0
vdaFechaAnt = 0

Do while not rsData2.eof
vdaFechaAct = FormatDateTime(rsData2("Fecha_inicio"),2)
'si el numero de la unidad es igual al numero de transpoder o
'el numero de transponder es nulo, entonces no usa tarjeta
if (trim(rsData2("cod_cliente")) = trim(rsData2("Num_Transponder"))) or (trim(rsData2("Unidad")) = trim(rsData2("Num_Transponder"))) then
vstTarjeta = "No"
else
vstTarjeta = "Si"
end if