<%@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>
<!--#INCLUDE FILE="inicio.inc" -->
<%
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">
<br>
<br>
<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><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vstUnidad%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vstDescUnidad%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinKmIni%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinKmFin%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinTotUniKmrec%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinTotUniLitros,3)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinTotUniRendimiento,2)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatCurrency(vinTotUniImporte,2)%></font></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"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">TOTAL</font></td>
<td><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2"><%=vinSubTotKmRec%></font></td>
<td><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinSubTotLitros,3)%></font></td>
<td><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinSubTotRendimiento,2)%></font></td>
<td><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatCurrency(vinSubTotImporte,2)%></font></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"
%>