como exportar tablas a excel desde una pagina creada en ASP

ireneo · #1 (**permalink**) 13/11/2008, 17:43

HOLA buanas tardes a todos alguien me puede decir por favor como le hago para poder insertar un boton que me exporte los datos de una tabla a unarchivo en excel les agradezco muchisimo

Shiryu_Libra · #2 (**permalink**) 13/11/2008, 19:18

ireneo

solo debes crear una tabla con los campos que utilizaras... has de cuenta que crearas una plantilla
y al final solo necesitaras anexarle estas lineas

Cita:

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=Consulta.xls"

ireneo · #3 (**permalink**) 14/11/2008, 12:34

hola alguien seria tan amable de decirme por favor como puedo exportar las tablas de una pagina web a excel es decir que instrucciones de codigo puedo escribir para que se exporten los datos

Muzztein · #4 (**permalink**) 14/11/2008, 13:26

http://www.forosdelweb.com/f15/como-...da-asp-644197/

Muzztein · #5 (**permalink**) 14/11/2008, 13:28

http://www.forosdelweb.com/f15/expor...na-web-644468/

3LmI · #6 (**permalink**) 14/11/2008, 13:33

Hola bueno mira yo ocupe este codigo

Cita:

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "inline; filename=archivo.xls"

yo lo coloke antes de mi consulta............
Me parece el link ke te pasaron antes es el mismo =) suerte!!!

AlZuwaga · #7 (**permalink**) 14/11/2008, 13:37

ireneo, por favor no repitas temas

ireneo · #8 (**permalink**) 14/11/2008, 17:40

muchas gracias voy a ver que pasa despues te digo que onda

ireneo · #9 (**permalink**) 19/11/2008, 12:29

que onda oye necesito un favor no se como exportar los datos ya me diste las instrucciones pero la verdad no se como se exporta, te platico mas o menos como esta el asunto.
la pagina esta diseñada en asp tengo una tabla con los datos de uncliente que previamente se logeo pero no se como exportar la tabla en que parte de la pagina meto esas instrucciones que tu me das me puedes decir como le hago

ireneo · #10 (**permalink**) 19/11/2008, 12:36

mi duda es la siguiente ya ves que estan estas lineas en mi pagina:
<INPUT name="" type="button" onClick="print()" value="Imprimir">   
<input type="button" value="Regresar" onClick="history.back(-1)">
<input type="button" value="Excel" onClick

en la parte donde tengo el on click de excel que le pongo?

ireneo · #11 (**permalink**) 20/11/2008, 10:24

pero no se donde insertar esas lineas me puedes decir

Shiryu_Libra · #12 (**permalink**) 20/11/2008, 11:31

... haber.... parece que no conoces mucho de programacion... mira

tu codigo seria algo asi... si es ASP, estara puesto entre

Cita:

<% codigo ASP %>

todo codigo fuera de estas llaves o combinacion de las mismas es HTML puro y simple

entonces, en tu codigo seria algo asi, un ejemplo

Cita:

<%
response.write "<table>"
response.write "<tr><td>hola mundo X1</td>"
response.write "<td>hola mundo X1</td>"
response.write "<td>hola mundo X1</td></tr>"
response.write "</table>"

'ya que terminaste... se puede lograr el Excel desde el codigo, de esta forma
'estas lineas estan comentadas, asi no saldran en el excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=Consulta.xls"
%>

seleccionalo, copia/pega y mira el efecto

ireneo · #13 (**permalink**) 21/11/2008, 11:24

que onda gracias por tu apoyo en realidad no conozco mucho de programacion, me pidieron que hiciera esto: solo que no se como meter esas instrucciones si lo hace si exporta pero hago la consulta pero no me pasa a la siguiente pagina donde se refleja la consulta, sino que hace la consulta y exporta a excel inmediatamente no se si me explico

te lo pongo asi:

entro a mi pagina www. pagina.com despues entro a la seccion consultas en esta seccion hago mi consulta los datos que se obtinen de esa consulta tendrian que abrirse en otra pagina, pero no lo hace sino que los exporta directamente a excel

www.pagina.com/consultas/aqui se exporta a excel es lo que no quiero lo que quiero es lo siguiente

www.pagina.com/consultas/gaseconomico/aqui se exporte a excel
espero que me puedas ayudar

gracias

JuanRAPerez · #14 (**permalink**) 21/11/2008, 11:41

(permiso maestros)

prueba asi
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=Consulta.xls"

ireneo · #15 (**permalink**) 21/11/2008, 16:02

que onda
mira necesito crar un boton que al darle clic me exporte lo que tengo en esa pagina a excel com ole puedo hacer

JuanRAPerez · #16 (**permalink**) 21/11/2008, 18:45

ummm

+ crea un enlace en tu pagina con JS abres una ventana emergente
+ ejecutas tu asp y creas el archivo XLS
+ pones un tiempo para ejecutar un JS dentro de la ventana emergente
+ cierras esa ventana.

suerte

ireneo · #17 (**permalink**) 24/11/2008, 09:50

amigo juanra perez no puedo crear ese condenado boton te pido que me ayudes este es mi codigo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Gas Económico - Consulta de Odómetro</title>

<%
vs_Sql = "Select * from Clientes where cod_cliente = '" & session("Cod_Cliente") & "'"
Set rsData1 = GEDB.Execute(vs_Sql)
If rsData1.EOF then

" size="-2">TOTAL</td>
<td><%=vinSubTotKmRec%></td>
<td><%=FormatNumber(vinSubTotLitros,3)%></td>
<td><%=FormatNumber(vinSubTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinSubTotImporte,2)%></td>
<td colspan="3"> </td>
</tr>

%>

 
 
<form>
<INPUT name="" type="button" onClick="print()" value="Imprimir">   
<input type="button" value="Regresar" onClick="history.back(-1)">
<input type="button" value="Excel" onClick=Response.Charset="UTF-8", Response.ContentType ="application/vnd.ms-excel", Response.AddHeader "Content-Disposition", "attachment; filename=" & archivo %>
</form>
</center>
</body>
</html>


en el boton excel que esta qui abajo necesito que al hacer clic exporte las tablas el problema es que al dar clic en el boton llamado exporar que esta antes de esta pagina me exporta directamente a excel, no me deja que yo mande a exportar dando clic en el boton excel es decir hace la exportacion antes de tiempo no te envio toda la pagina porque no me deja esta cosa pero bueno agradezco tu ayuda es que no se como se hace

JuanRAPerez · #18 (**permalink**) 25/11/2008, 07:55

úsalo así:

sin usar JS
ni nada de nada mas que esto

tu pagina de enlace

Código asp:

Ver original<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>Untitled 2</title>
</head>
<body>
          <p><a href="exportar.asp" target="_blank">exportar.asp</a></p>
</body>
</html>

tu pagina asp llamada exportar.asp

Código asp:

Ver original<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>Untitled 1</title>
</head>
<body>
          <%
          response.write "<table>"
          response.write "<tr><td>hola mundo X1</td>"
          response.write "<td>hola mundo X1</td>"
          response.write "<td>hola mundo X1</td></tr>"
          response.write "</table>"
          Response.ContentType = "application/vnd.ms-excel"
          Response.AddHeader "content-disposition", "attachment; filename=Consulta.xls"
          %>
</body>
</html>

suerte

ireneo · #19 (**permalink**) 25/11/2008, 09:16

que onda nuevamente te molesto oye no entiedo en la primera parte donde me pones eso de que sin js que linea es la que debo poner porque tengo todo mi codigo de la pagina solo tengo que poner esta linea?
<a href="exportar.asp" target="_blank">exportar.asp</a>

o todas?

despues en la pagina a la que llame excel donde voy a mandar la informacion que lineas debo poner todas? muchas gracias

ireneo · #20 (**permalink**) 25/11/2008, 09:58

pues mira ya hice lo que me dijiste el problema es que me manda a la pagina nueva que se llama excel con el <a href="exportar.asp" target="_blank">exportar.asp</a>
pero en dicha pagina no me exporta las tablas que se generaron en sql como puedo hacer para que una vez que le di clic al enlace anterior en la pagina nueva llamada excel me aparezcan dichas tablas espero tu ayuda gracias

ireneo · #21 (**permalink**) 25/11/2008, 10:33

disculpa no se puede que haga una funcion para qu la mande a llamar cuando de clic en el boton

JuanRAPerez · #22 (**permalink**) 25/11/2008, 10:41

oki el enlace solo es una llamada de nuevo a un asp
el asp exportar es el que tiene que tener toda la informacion que desas importar

en el construye de nuevo

crea esas dos paginas en tu server y ve como funciona

suerte

Shiryu_Libra · #23 (**permalink**) 25/11/2008, 15:32

buen codigo Juan.... sencillito para empezar

mira ireneo... debes fijarte en la estructura que te proporciona Juan, en este caso la parte de ASP debe ser reemplazada con lo que utilizas para tu condulta

de esta manera podras ver el resultado..... no necesitas cambiar nada

asi como esta ponlo en 2 documentos nuevos, utiliza tu mismo codigo de consulta en los 2, y te dara el resultado....

analiza un poquito mas el codigo, fijate por que lo puso, y por que el orden

ireneo · #24 (**permalink**) 25/11/2008, 16:35

ya lo hice dime a que direccion te puedo manda el archivo asp para que me puedas explicar en que parte debo colocar estas instrucciones si lo exporta pero trato de poner las tablas con la consulta pero no me exporta esas tablas

ireneo · #25 (**permalink**) 26/11/2008, 10:35

que onda juan oye necesito que me ayudes te vouy a mandar en partes mi codigo para que lo revises y me digas en que parte estoy mal o en que parte no estoy siguiendo las instrucciones que me das ok por favor

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Gas Económico - Consulta de Odómetro</title>

<%
vs_Sql = "Select * from Clientes where cod_cliente = '" & session("Cod_Cliente") & "'"
Set rsData1 = GEDB.Execute(vs_Sql)
If rsData1.EOF then

Response.Redirect("error.asp?msg1=No existe un cliente asociado a esta cuenta")

Else

vchNombre_Cliente = rsData1("Nombre_Cliente")
'session("usuario") = rsData1("Nom_Usuario")
'session("Password") = rsData1("Password")
'session("Cod_Cliente") = rsData1("Cod_Cliente")
'Response.Redirect("consodo01.asp")

End If

rsData1.close
%>
</head>
<body>
<center>
<img src="./imagen/Logo_Gas_Econ_mico_Rojo.JPG" width="330" height="97">
 
 
<table width="750" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td>GAS ECONOMICO METROPOLITANO S.A. DE C.V.</td>
</tr>
<tr align="left">
<td>Reporte de Unidades del dia <%=request.form("FecIni")%> al <%=request.form("FecFin")%></td>
</tr>
<tr align="left">
<td>Cliente: <%=session("Cod_Cliente")%> <%=vchNombre_Cliente%></td>
</tr>
</table>

<%
'Response.Write(Request.Form("HTMLTipoConsulta")&" XXX")
Select case request.form("HTMLTipoConsulta")

case "1"

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
vs_Sql = vs_Sql & "and cu.cod_cliente = cs.Cod_Cliente "
vs_Sql = vs_Sql & "and cu.Cod_Unidad = cs.Unidad "
if Request.Form("CenDistribucion") <> "0" then
vs_Sql = vs_Sql & " and cu.DomicilioTanque = '" & Request.Form("CenDistribucion") & "'"
end if
vs_sql = vs_Sql & "order by cu.DomicilioTanque, cu.Cod_Unidad, cs.fecha_inicio"
'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

vinCenDisAct = 0
vinCenDisAnt = 0

Do while not rsData2.eof
vinUnidadAct = rsData2("Unidad")
vinCenDisAct = rsData2("DomicilioTanque")

if vinUnidadAct <> vinUnidadAnt then
if vchPrimerRegitro = "N" 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
vinTotUniKmrec = 0
vchPrimerRegCorte = "S"
end if
end if

if vinCenDisAct <> vinCenDisAnt then

if vchPrimerRegistro = "N" then
%>
<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>

<%
end if

vchColor = ""
vinKmRec = 0
vinRendimiento = 0

'variables de totales
vinSubTotKmrec = 0
vinSubTotLitros = 0
vinSubTotRendimiento = 0
vinSubTotImporte = 0
vchPrimerRegistro = "N"
vchPrimerRegCorte = "S"
%>

ireneo · #27 (**permalink**) 26/11/2008, 10:43

<table border="0" cellpadding="1" cellspacing="1" width="750">
<caption><%=rsData2("DomicilioTanque")%></caption>
<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=<%=rsData2("DomicilioTan que")%>&HTMLTitulo2=Litros&HTMLTitulo3=Unidades&HT MLGrafica=SubTotal&HTMLTipoConsulta=<%=request.For m("HTMLTipoConsulta")%>&FecIni=<%=request.Form("Fe cIni")%>&FecFin=<%=request.Form("FecFin")%>&CenDis tribucion=<%=request.Form("CenDistribucion")%>&Uni dad=<%=request.Form("Unidad")%>&HTMLCenDis=<%=rsDa ta2("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="97"><font

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

ireneo · #29 (**permalink**) 26/11/2008, 10:58

if vdaFechaAct <> vdaFechaAnt then
if vchPrimerRegistro = "N" then
%>
<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>
<td colspan="3"> </td>
</tr>
</table>

<%
end if

vchColor = ""
vinKmRec = 0
vinRendimiento = 0

'variables de totales
vinSubTotKmrec = 0
vinSubTotLitros = 0
vinSubTotRendimiento = 0
vinSubTotImporte = 0
vchPrimerRegistro = "N"
%>
 

<table border="0" cellpadding="1" cellspacing="1" width="750">
<caption align=left>Fecha: <%=FormatDateTime(rsData2("Fecha_Inicio"),1)%></caption>
<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=<%=FormatDateTime(rsData 2("Fecha_Inicio"),1)%>&HTMLTitulo2=Litros&HTMLTitu lo3=Unidades&HTMLGrafica=SubTotal&HTMLTipoConsulta =<%=request.Form("HTMLTipoConsulta")%>&FecIni=<%=r equest.Form("FecIni")%>&FecFin=<%=request.Form("Fe cFin")%>&CenDistribucion=<%=request.Form("CenDistr ibucion")%>&Unidad=<%=request.Form("Unidad")%>&HTM LFecha=<%=FormatDateTime(rsData2("Fecha_Inicio"),2 )%>&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="97">Rendimiento <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=<%=FormatDateTime(rsData 2("Fecha_Inicio"),1)%>&HTMLTitulo2=Rendimiento&HTM LTitulo3=Unidades&HTMLGrafica=SubTotal&HTMLTipoCon sulta=<%=request.Form("HTMLTipoConsulta")%>&FecIni =<%=request.Form("FecIni")%>&FecFin=<%=request.For m("FecFin")%>&CenDistribucion=<%=request.Form("Cen Distribucion")%>&Unidad=<%=request.Form("Unidad")% >&HTMLFecha=<%=FormatDateTime(rsData2("Fecha_Inici o"),2)%>&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>
<td width="60">Hora</td>
<td width="40">Servicio</td>
<td width="35">Tarjeta</td>
</tr>
<%

end if

vdaFechaAnt = vdaFechaAct

if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if

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

vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte

%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=rsData2("Unidad")%></td>
<td><%=rsData2("Descripcion")%></td>
<td><%=rsData2("OdometroAnterior")%></td>
<td><%=rsData2(11)%></td>
<td><%=vinKmRec%></td>
<td><%=FormatNumber(rsData2("Volumen"),3)%></td>
<td><%=FormatNumber(vinRendimiento,2)%></td>
<td><%=FormatCurrency(vinImporte,2)%></td>
<td><%=FormatDateTime(rsData2("Fecha_Inicio"),4) %></td>
<td><%=rsData2("Servicio")%></td>
<td><%=vstTarjeta%></td>
</tr>
<%
rsData2.MoveNext
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>
<td colspan="3"> </td>
</tr>

ireneo · #30 (**permalink**) 26/11/2008, 10:59

</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")%>&HTMLFecha=&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")%>&HTMLFecha=&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>
<td width="60">Hora</td>
<td width="40">Servicio</td>
<td width="35">Tarjeta</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>
<td colspan="3"> </td>
</tr>
</table>
<%
end Select
%>
 
 

<form>

<INPUT name="" type="button" onClick="print()" value="Imprimir">   
<input type="button" value="Regresar" onClick="history.back(-1)">

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>Untitled 2</title>
</head>
<body>
<a href="excel.asp" target="_blank">exportar.asp</a>
</body>
</html>

</form>

</form>
</center>
</body>
</html>