<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
Sanea2 = Replace(Texto, ",", ".")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/IndicadorA.css" rel="stylesheet" />
<!-- Scripts para la grafica Meses -->
<script src="RGraph/RGraph.svg.common.core.js"></script>
<script src="RGraph/RGraph.svg.common.tooltips.js"></script>
<script src="RGraph/RGraph.svg.common.bar.js"></script>
<script src="RGraph/RGraph.svg.common.line.js"></script>
<script src="RGraph/RGraph.svg.common.pie.js"></script>
<script src="RGraph/RGraph.svg.bar.js"></script>
<script src="RGraph/RGraph.svg.Pie.js"></script>
<!-- JavaScript para enviar a una pagina emergente -->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1, Cn2
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database=REPORTES"
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
Dim Periodo
Periodo = request("Periodo")
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<Br><Br>
<Table Id="Principal" Border="1">
<Tr>
<Td Align="Center">
<Form action="CRMTopRProductosData.asp" method="post">
<Table Id="TbImporte">
<Tr>
<Td>Periodo:</Td>
<Td>
<input tabindex="1" type="text" placeholder="Periodo" Title="Periodo" name="Periodo" id="TablaOpc" value="<%= Periodo %>" Size="7px" style="Text-align:Right" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<button tabindex="4" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
</td>
</Tr>
</Table>
</form>
</td>
</Tr>
<Tr>
<Td Valign="Top" Align="Center">
<!-- INICIADO TABLA PARA LOS IMPORTES --->
<Table Id="TbImporte">
<Tr>
<Td Id="TdImporteHeader">IMPORTE</Td>
</Tr>
<Tr>
<Td>
<%
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="SELECT SUM(CANTIDAD * UNITARIO) AS IMPORTE FROM "& Session("MyName") &";"
Rs12.Open Sql12,Cn2,1,2
%>
<%= Formatnumber(Rs12("Importe")) %>
<BR><BR>
</td>
</Tr>
<Tr>
<Td Id="TdImporteHeader">KILOGRAMOS</Td>
</Tr>
<Tr>
<Td>
<%
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="SELECT SUM(CANTIDAD * PESO) AS KILOS FROM "& Session("MyName") &";"
Rs13.Open Sql13,Cn2,1,2
%>
<%= Formatnumber(Rs13("KILOS")) %>
<br><br>
</td>
</Tr>
</Table>
<!-- TERMINA TABLA PARA LOS IMPORTES --->
</Td>
<Td Valign="Top" Align="Center" Colspan="2">
<div style="width: 700px; height: 300px; display: inline-block" id="chart-container1"><div>
<%
Dim EneroMes, FebreroMes
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="SELECT " &_
"SUM(CASE WHEN MES = 1 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'ENERO', " &_
"SUM(CASE WHEN MES = 2 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'FEBRERO', " &_
"SUM(CASE WHEN MES = 3 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'MARZO', " &_
"SUM(CASE WHEN MES = 4 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'ABRIL', " &_
"SUM(CASE WHEN MES = 5 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'MAYO', " &_
"SUM(CASE WHEN MES = 6 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'JUNIO', " &_
"SUM(CASE WHEN MES = 7 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'JULIO', " &_
"SUM(CASE WHEN MES = 8 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'AGOSTO', " &_
"SUM(CASE WHEN MES = 9 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'SEPTIEMBRE', " &_
"SUM(CASE WHEN MES = 10 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'OCTUBRE', " &_
"SUM(CASE WHEN MES = 11 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'NOVIEMBRE', " &_
"SUM(CASE WHEN MES = 12 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'DICIEMBRE' " &_
"FROM "& Session("MyName") &";"
Rs17.Open Sql17,Cn2,1,2
%>
<script>
new RGraph.SVG.Bar({
id: 'chart-container1',
data: [<%= Rs17("ENERO") %>,<%= Rs17("FEBRERO") %>,<%= Rs17("MARZO") %>,<%= Rs17("ABRIL") %>,<%= Rs17("MAYO") %>,<%= Rs17("JUNIO") %>,
<%= Rs17("JULIO") %>,<%= Rs17("AGOSTO") %>,<%= Rs17("SEPTIEMBRE") %>,<%= Rs17("OCTUBRE") %>,<%= Rs17("NOVIEMBRE") %>,<%= Rs17("DICIEMBRE") %>],
options: {
colorsSequential: true,
colors: ["#3e95cd", "#8e5ea2","#3cba9f","#e8c3b9","#c45850","#72FC82", "#FF984D", "#FFACD5",
"#FF5D5D", "#AF72FC", "#72C6FC", "#FCE472"],
tooltips: ["<%= FormatCurrency(Rs17("ENERO")) %>", "<%= FormatCurrency(Rs17("FEBRERO")) %>", "<%= FormatCurrency(Rs17("MARZO")) %>",
"<%= FormatCurrency(Rs17("ABRIL")) %>","<%= FormatCurrency(Rs17("MAYO")) %>", "<%= FormatCurrency(Rs17("JUNIO")) %>",
"<%= FormatCurrency(Rs17("JULIO")) %>","<%= FormatCurrency(Rs17("AGOSTO")) %>","<%= FormatCurrency(Rs17("SEPTIEMBRE")) %>",
"<%= FormatCurrency(Rs17("OCTUBRE")) %>","<%= FormatCurrency(Rs17("NOVIEMBRE")) %>","<%= FormatCurrency(Rs17("DICIEMBRE")) %>"],
xaxisLabels: ["Ene", "Feb", "Mar", "Abr", "May", "Jun", "Jul", "Ago", "Sep", "Oct", "Nov", "Dic"],
xaxisColor: '#aaa',
yaxisColor: '#aaa',
yaxisLabelsCount: 10,
yaxisScaleUnitsPost: '',
marginLeft: 70,
textSize: 8.5,
marginInner: 7
}
}).draw().on('beforetooltip', function ()
{
RGraph.SVG.tooltips.style.backgroundColor = 'black';
RGraph.SVG.tooltips.style.color = 'white';
RGraph.SVG.tooltips.style.fontWeight = 'bold';
});
</script>
</Td>
</Tr>
<Tr>
<Td Valign="Top" Rowspan="2">
<%
Dim OrdenPro, CampoPro
Dim MsgA, MsgB
Dim CodeTotal, CodeKilos
CampoPro = Request("CampoPro")
OrdenPro = Request("OrdenPro")
If CampoPro = 1 or Isnull(CampoPro) or CampoPro = "" Then
MsgA = "CODIGO"
Else If CampoPro = 2 Then
MsgA = "DESCRIPCION"
Else If CampoPro = 3 Then
MsgA = "UDM"
Else If CampoPro = 4 Then
MsgA = "CANTIDAD"
Else If CampoPro = 5 Then
MsgA = "IMPORTE"
Else If CampoPro = 6 Then
MsgA = "KILOS"
End If
End If
End If
End If
End If
End If
If Isnull(OrdenPro) or OrdenPro = 0 Then
MsgB = "Asc"
Ordenpro = 1
Else
MsgB = "DESC"
Ordenpro = 0
End If
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="SELECT CODIGO, DESCRIPCION, UDM, SUM(CANTIDAD) AS CANTIDAD, SUM(CANTIDAD * UNITARIO) AS IMPORTE, SUM(CANTIDAD * PESO) AS KILOS " &_
"FROM "& Session("MyName") &" " &_
"GROUP BY CODIGO, DESCRIPCION, UDM " &_
"ORDER BY "& MsgA &" "& MsgB &";"
Rs16.Open Sql16,Cn2,1,2
If Rs16.EOF Then
Else
%>
<Table Id="TbProvedor">
<Tr>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=1&OrdenPro=<%= OrdenPro %>">Codigo</a></Td>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=2&OrdenPro=<%= OrdenPro %>">Descripcion</A></Td>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=3&OrdenPro=<%= OrdenPro %>">UDM</a></Td>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=4&OrdenPro=<%= OrdenPro %>">Cantidad</a></Td>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=5&OrdenPro=<%= OrdenPro %>">Importe</a></Td>
<Td Id="TdProveedorHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoPro=6&OrdenPro=<%= OrdenPro %>">Kilos</a></Td>
</Tr>
<%
CodeTotal = 0
CodeKilos = 0
Do While Not Rs16.EOF
%>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Td Id="TdProveedorLeft"><a href="ProveProDet.asp?Tipo=1&Valor=<%= Rs16("CODIGO") %>" onclick="NewWindow(this.href,'<%= Rs16("CODIGO") %>','1300','600','yes');return false;"><%= Rs16("CODIGO") %></Td>
<Td Id="TdProveedorLeft"><%= Rs16("DESCRIPCION") %></Td>
<Td Id="TdProveedorLeft"><%= Rs16("UDM") %></Td>
<Td Id="TdProveedorRight"><%= Formatnumber(Rs16("CANTIDAD")) %></Td>
<Td Id="TdProveedorRight"><%= Formatnumber(Rs16("IMPORTE")) %></Td>
<Td Id="TdProveedorRight"><%= Formatnumber(Rs16("KILOS")) %></Td>
</Tr>
<%
CodeTotal = CodeTotal + Cdbl(Rs16("IMPORTE"))
CodeKilos = CodeKilos + Cdbl(Rs16("kilos"))
Rs16.Movenext
Loop
End If
%>
<Tr>
<Td></td>
<Td></td>
<Td></td>
<Td></td>
<Td Id="TdLineaRight"><%= Formatnumber(CodeTotal) %></td>
<Td Id="TdLineaRight"><%= Formatnumber(CodeKilos) %></td>
</Tr>
</Table>
</<Td>
<Td Valign="Top" Align="Center" Height="100px">
<!-- INICIA TABLA PARA LOS MESES --->
<%
Dim OrdenMes, CampoMes
Dim MsgC, MsgD
CampoMes = Request("CampoMes")
OrdenMes = Request("OrdenMes")
If CampoMes = 1 or Isnull(CampoMes) or CampoMes = "" Then
MsgC = "Mes"
Else If CampoMes = 2 Then
MsgC = "IMPORTE"
Else If CampoMes = 3 Then
MsgC = "Kilos"
End If
End If
End If
If Isnull(OrdenMes) or OrdenMes = 0 Then
MsgD = "Asc"
OrdenMes = 1
Else
MsgD = "DESC"
OrdenMes = 0
End If
Dim MesTotal, MesKilos
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="SELECT MES, SUM(CANTIDAD * UNITARIO) AS IMPORTE, SUM(CANTIDAD * PESO) AS KILOS " &_
"FROM "& Session("MyName") &" " &_
"GROUP BY MES " &_
"ORDER BY "& Msgc &" "& MsgD &";"
Rs15.Open Sql15,Cn2,1,2
If Rs15.EOF Then
Else
%>
<Table Id="TbMes">
<Tr>
<Td Id="TdMesHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoMes=1&OrdenMes=<%= OrdenMes %>">Mes</a></Td>
<Td Id="TdMesHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoMes=2&OrdenMes=<%= OrdenMes %>">Importe</a></Td>
<Td Id="TdMesHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoMes=3&OrdenMes=<%= OrdenMes %>">Kilos</a></Td>
</Tr>
<%
MesTotal = 0
MesKilos = 0
Do While Not Rs15.EOF
%>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Td Id="TdMesLeft"><a href="ProveProDet.asp?Tipo=2&Valor=<%= Rs15("MES") %>" onclick="NewWindow(this.href,'<%= Rs15("MES") %>','1300','600','yes');return false;"><%= Rs15("MES") %></Td>
<Td Id="TdMesRight"><%= Formatnumber(Rs15("IMPORTE")) %></Td>
<Td Id="TdMesRight"><%= Formatnumber(Rs15("KILOS")) %></Td>
</Tr>
<%
MesTotal = MesTotal + Cdbl(Rs15("IMPORTE"))
MesKilos = MesKilos + Cdbl(Rs15("KILOS"))
Rs15.Movenext
Loop
End If
%>
<Tr>
<Td></td>
<Td Id="TdLineaRight"><%= Formatnumber(MesTotal) %></td>
<Td Id="TdLineaRight"><%= Formatnumber(MesKilos) %></td>
</Tr>
</Table>
</Td>
<Td Valign="Top" Align="center" Height="100px">
<!-- INICIA TABLA PARA LAS LINEAS --->
<%
Dim OrdenLin, CampoLin
Dim MsgE, MsgF
CampoLin = Request("CampoLin")
OrdenLin = Request("OrdenLin")
If CampoLin = 1 or Isnull(CampoLin) or CampoLin = "" Then
MsgE = "LINEA"
Else If CampoLin = 2 Then
MsgE = "IMPORTE"
Else If CampoLin = 3 Then
MsgE = "Kilos"
End If
End If
End If
If Isnull(OrdenLin) or OrdenLin = 0 Then
MsgF = "Asc"
OrdenLin = 1
Else
MsgF = "DESC"
OrdenLin = 0
End If
Dim LineaTotal, LineaKilos
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="SELECT CLAVELIN, LINEA, SUM(CANTIDAD * UNITARIO) AS IMPORTE, SUM(CANTIDAD * PESO) AS KILOS " &_
"FROM "& Session("MyName") &" " &_
"GROUP BY LINEA,CLAVELIN " &_
"ORDER BY "& MsgE &" "& MsgF &";"
Rs14.Open Sql14,Cn2,1,2
If Rs14.EOF Then
Else
%>
<Table Id="TbLinea">
<Tr>
<Td Id="TdLineaHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoLin=1&OrdenLin=<%= OrdenLin %>">Linea</a></Td>
<Td Id="TdLineaHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoLin=2&OrdenLin=<%= OrdenLin %>">Importe</a></Td>
<Td Id="TdLineaHeader"><a href="CRMTopRProductosGra.asp?Periodo=<%= Periodo %>&CampoLin=3&OrdenLin=<%= OrdenLin %>">Kilos</a></Td>
</Tr>
<%
LineaTotal = 0
LineaKilos = 0
Do While Not Rs14.EOF
%>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Td Id="TdLineaLeft"><a href="ProveProDet.asp?Tipo=3&Valor=<%= Rs14("CLAVELIN") %>" onclick="NewWindow(this.href,'<%= Rs14("CLAVELIN") %>','1300','600','yes');return false;"><%= Rs14("LINEA") %></Td>
<Td Id="TdLineaRight"><%= Formatnumber(Rs14("IMPORTE")) %></Td>
<Td Id="TdLineaRight"><%= Formatnumber(Rs14("KILOS")) %></Td>
</Tr>
<%
LineaTotal = LineaTotal + Cdbl(Rs14("IMPORTE"))
LineaKilos = LineaKilos + Cdbl(Rs14("KILOS"))
Rs14.Movenext
Loop
End If
%>
<Tr>
<Td></td>
<Td Id="TdLineaRight"><%= Formatnumber(LineaTotal) %></td>
<Td Id="TdLineaRight"><%= Formatnumber(LineaKilos) %></td>
</Tr>
</Table>
</Td>
</Tr>
<tr>
<Td Valign="Top" Align="center" Colspan="2">
<%
Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="SELECT " &_
"SUM(CASE WHEN CLAVELIN = 1 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'TUBERIA_AC', " &_
"SUM(CASE WHEN CLAVELIN = 2 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'TUBERIA_AI', " &_
"SUM(CASE WHEN CLAVELIN = 3 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'CONEXIONES_AC', " &_
"SUM(CASE WHEN CLAVELIN = 4 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'CONEXIONES_AI', " &_
"SUM(CASE WHEN CLAVELIN = 5 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'VALVULAS', " &_
"SUM(CASE WHEN CLAVELIN = 6 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'CONTRAINCENDIOS', " &_
"SUM(CASE WHEN CLAVELIN = 7 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'ESP_EMPAQUES', " &_
"SUM(CASE WHEN CLAVELIN = 8 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'PVC', " &_
"SUM(CASE WHEN CLAVELIN = 9 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'RECUBRIMIENTOS', " &_
"SUM(CASE WHEN CLAVELIN = 10 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'AUTOMATIZACION', " &_
"SUM(CASE WHEN CLAVELIN = 11 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'OTROS', " &_
"SUM(CASE WHEN CLAVELIN = 12 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'PERFIL_AC', " &_
"SUM(CASE WHEN CLAVELIN = 13 THEN (CANTIDAD * UNITARIO) ELSE 0 END) AS 'PERFIL_AI' " &_
"FROM "& Session("MyName") &";"
Rs18.Open Sql18,Cn2,1,2
%>
<div style="width: 700px; height: 300px; display: inline-block" id="chart-container2"><div>
<script>
// Some data that's to be shown on the Pie chart. For multiple
// lines it can also be an array of arrays
var data = [<%= Rs18("TUBERIA_AC") %>,<%= Rs18("TUBERIA_AI") %>,<%= Rs18("CONEXIONES_AC") %>,<%= Rs18("CONEXIONES_AI") %>,
<%= Rs18("VALVULAS") %>,<%= Rs18("CONTRAINCENDIOS") %>,<%= Rs18("ESP_EMPAQUES") %>,<%= Rs18("PVC") %>,<%= Rs18("RECUBRIMIENTOS") %>,
<%= Rs18("AUTOMATIZACION") %>,<%= Rs18("OTROS") %>,<%= Rs18("PERFIL_AC") %>,<%= Rs18("PERFIL_AI") %>,];
new RGraph.SVG.Pie({
id: 'chart-container2',
data: data,
options: {
labels: ['Tuberia_AC','Tuberia_AI','Conexiones_AC','Conexiones_AI','Valvulas','Contraincendio',
'Esp_Emp','PVC','Recubrimientos','Automatizacion','Otros','Perfil_AC','Perfil_AI'],
shadow: true,
colorsStroke: 'rgba(0,0,0,1)',
linewidth: 0,
exploded: [10,10,10,10,10,10,10,10,10,10,10,10,10],
colors: ["#3e95cd", "#8e5ea2","#3cba9f","#e8c3b9","#c45850","#72FC82", "#FF984D", "#FFACD5",
"#FF5D5D", "#AF72FC", "#72C6FC", "#FCE472"],
tooltips: ["<%= Formatcurrency(Rs18("TUBERIA_AC")) %>","<%= Formatcurrency(Rs18("TUBERIA_AI")) %>","<%= Formatcurrency(Rs18("CONEXIONES_AC")) %>",
"<%= Formatcurrency(Rs18("CONEXIONES_AI")) %>","<%= Formatcurrency(Rs18("VALVULAS")) %>","<%= Formatcurrency(Rs18("CONTRAINCENDIOS")) %>",
"<%= Formatcurrency(Rs18("ESP_EMPAQUES")) %>","<%= Formatcurrency(Rs18("PVC")) %>","<%= Formatcurrency(Rs18("RECUBRIMIENTOS")) %>",
"<%= Formatcurrency(Rs18("AUTOMATIZACION")) %>","<%= Formatcurrency(Rs18("OTROS")) %>","<%= Formatcurrency(Rs18("PERFIL_AC")) %>","<%= Formatcurrency(Rs18("PERFIL_AI")) %>"],
}
}).draw();
</script>
</Td>
</Tr>
</Table>
<br><br>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>