if vdaFechaAct <> vdaFechaAnt 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>
<td colspan="3"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-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"
%>
<BR><BR>
<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"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Unidad</font></td>
<td width="138"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Nombre</font></td>
<td width="59"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Km Inicial</font></td>
<td width="54"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Km Final</font></td>
<td width="69"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Km Recorridos</font></td>
<td width="65"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">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></font></td>
<td width="97"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">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></font></td>
<td width="56"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Importe</font></td>
<td width="60"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Hora</font></td>
<td width="40"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Servicio</font></td>
<td width="35"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2">Tarjeta</font></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><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=rsData2("Unidad")%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=rsData2("Descripcion")%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=rsData2("OdometroAnterior")%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=rsData2(11)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vinKmRec%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(rsData2("Volumen"),3)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatNumber(vinRendimiento,2)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatCurrency(vinImporte,2)%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=FormatDateTime(rsData2("Fecha_Inicio"),4) %></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=rsData2("Servicio")%></font></td>
<td><font color="#000000" face="Arial, Helvetica, sans-serif" size="-2"><%=vstTarjeta%></font></td>
</tr>
<%
rsData2.MoveNext
loop
rsData2.close
%>
<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>
<td colspan="3"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="-2"> </font></td>
</tr>