<%
Option Explicit
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<HTML>
<HEAD>
<TITLE> ::: Sistema MIM ::: </TITLE>
<link rel=stylesheet href="DashCli.css">
<!------------ SCRIPT GRAFICAS----->
<script src="Jscript/RGraph.common.core.js" ></script>
<script src="Jscript/RGraph.common.key.js" ></script>
<script src="Jscript/RGraph.bar.js" ></script>
<script src="Jscript/RGraph.common.dynamic.js" ></script>
<script src="Jscript/RGraph.common.tooltips.js" ></script>
<script src="Jscript/RGraph.common.effects.js" ></script>
<script src="Jscript/RGraph.pie.js" ></script>
<!--[if lt IE 9]><script src="Jscript/excanvas.js"></script><![endif]-->
<html lang="es">
</HEAD>
<BODY>
<%
Dim Rs11, Rs12, Rs13, Rs14, Rs15
Dim Sql11, Sql12, Sql13, Sql14, Sql15
Dim Registro
Dim Cliente
Dim EneroT, FebreroT, MarzoT, AbrilT, MayoT, JunioT, JulioT, AgostoT, SeptiembreT, OctubreT, NoviembreT, DiciembreT, TotalT
Dim EneroF, FebreroF, MarzoF, AbrilF, MayoF, JunioF, JulioF, AgostoF, SeptiembreF, OctubreF, NoviembreF, DiciembreF, TotalF
Dim EneroN, FebreroN, MarzoN, AbrilN, MayoN, JunioN, JulioN, AgostoN, SeptiembreN, OctubreN, NoviembreN, DiciembreN, TotalN
Dim SINLINEAF, TUBERIAACF, TUBERIAAIF, CONEXACF, CONEXAIF, VALVULASF, CONTRAINCENDIOF, ESPARRAGOSF, PVCF, PINTURASF, AUTOMATIZACIONF, OTROSF
Dim SINLINEAD, TUBERIAACD, TUBERIAAID, CONEXACD, CONEXAID, VALVULASD, CONTRAINCENDIOD, ESPARRAGOSD, PVCD, PINTURASD, AUTOMATIZACIOND, OTROSD
Dim SINLINEAT, TUBERIAACT, TUBERIAAIT, CONEXACT, CONEXAIT, VALVULAST, CONTRAINCENDIOT, ESPARRAGOST, PVCT, PINTURAST, AUTOMATIZACIONT, OTROST
Dim TipDoc
Dim Periodo
EneroT = 0
FebreroT = 0
MarzoT = 0
AbrilT = 0
MayoT = 0
JunioT = 0
JulioT = 0
AgostoT = 0
SeptiembreT = 0
OctubreT = 0
NoviembreT = 0
DiciembreT = 0
TotalT = 0
Registro = Request("Registro")
TipDoc = Request("TipDoc")
Periodo = Request("Periodo")
If Periodo = "" or Isnull("Periodo") Then
Periodo = year(date())
Else
Periodo = Periodo
End If
If TipDoc = "" or Isnull("TipDoc") Then
TipDoc = 1
Else
TipDoc = TipDoc
End If
'***** RECORDSET DATOS DEL CLIENTE ****
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Clacli, Nomcli, Vencli, Nomvend " &_
"From Clientes, Vendedores " &_
"Where Vencli = Cvevend and Regcli = "& Registro &";"
Rs11.Open Sql11,Cn1,1,2
Cliente = Rs11("Clacli")
%>
<Center>
<TABLE border="0" cellspacing="2" cellpadding="0" class="TablaH">
<TR>
<TD Width="800px">Cliente: ( <%= Rs11("Clacli") %> ) <%= Rs11("Nomcli") %></td>
<TD Width="50px"> </td>
<TD Width="200px">Fecha: <%= Date() %> </td>
</TR>
<TR>
<TD Width="800px">Vendedor: ( <%= Rs11("Vencli") %> ) <%= Rs11("Nomvend") %></td>
<TD Width="50px"> </td>
<TD Width="200px"><form>
Periodo a Reportar:
<Input type="Text" class="normalb" name="Periodo" Value="<%= Periodo %>" Size="5" Style="Text-Align:Right">
<Input type="Hidden" class="normalb" name="Registro" Value="<%= Registro %>" Size="5" Style="Text-Align:Right">
<Input type="Hidden" class="normalb" name="TipDoc" Value="<%= TipDoc %>" Size="5" Style="Text-Align:Right">
</form>
</td>
</TR>
<TR>
<TD Width="870px" Align ="Right" Colspan="3">
<!--#include file="Clidashmenu.asp"-->
</td>
</TR>
</TABLE>
<%
If Isnull(TipDoc) or TipDoc = "" or Tipdoc = 1 Then
%>
<!--#include file="CliDashFac.asp"-->
<%
Else If TipDoc = 2 Then
%>
<!--#include file="CliDashlin.asp"-->
<%
Else If TipDoc = 3 Then
%>
<!--#include file="ClidashlinIm.asp"-->
<%
Else If TipDoc = 4 Then
%>
<!--#include file="ClidashRepVis.asp"-->
<%
Else If TipDoc = 5 Then
%>
<!--#include file="ClidashRepVen.asp"-->
<%
Else If TipDoc = 6 Then
%>
<!--#include file="ClidashFcot.asp"-->
<%
End If
End If
End If
End If
End If
End If
%>
</Center>
</BODY>
</HTML>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>