prodashgra.asp
Archivo ASP
prodashgra.asp
Página Razor
Indicadores/ProdashgraMódulo
ProveedoresLíneas de Código
1351
Características
| En Menú: | No |
| Formularios: | 1 formulario(s) |
| Consultas SQL: | Ninguna |
| Complejidad: | high |
| Bases de Datos: | Session DB |
Tablas Utilizadas (0)
No se detectaron tablas
Comentarios y Notas (0)
No hay comentarios aún
Enlaces Salientes (2)
Páginas a las que esta página enlaza
| Archivo ASP | Tipo | Módulo | Estado | Página Razor |
|---|---|---|---|---|
prodashdata.asp |
form_action | Proveedores | Pendiente | - |
default.asp |
redirect | General | Pendiente | - |
Enlaces Entrantes (1)
Páginas que enlazan a esta página
| Archivo ASP | Tipo | Módulo | Estado | Página Razor |
|---|---|---|---|---|
prodashdata.asp |
redirect | Proveedores | Pendiente | - |
Código ASP Original: prodashgra.asp
<%
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/IndicadorB.css" rel="stylesheet" />
<!-- Scripts para las graficas -->
<script src="RGraph/RGraph.common.core.js"></script>
<script src="RGraph/RGraph.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, Cn3
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29
'***** 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=ADMINDMEX;PWD=IW2BF01;Database=REPORTES"
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<center>
<br><br>
<Form action="ProDashData.asp" method="post">
<Table Id="KardexTd">
<Tr>
<Td><input tabindex="1" type="Periodo" placeholder="Periodo" Title="Periodo" name="Periodo" Size="15" id="TbStockRight" value="" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td><button tabindex="4" type="submit" name="Buscar" id="Buscar"/>Aplicar</button></td>
</Tr>
</table>
</Form>
<br>
<Table Id="Principal" Border="1">
<Tr>
<Td Id="TbStock" Colspan="2">Coatzacoalcos</Td>
<Td Id="TbStock" Colspan="2">Villahermosa</Td>
<Td Id="TbStock" Colspan="2">Pinturas</Td>
</Tr>
<Tr>
<Td Valign="Top">
<%
Dim CumplidoCoatza
'***** Conexion A la Tabla Empresa ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'COATZA' " &_
"GROUP BY EMPRESA;"
Rs14.Open Sql14,Cn2,1,2
If Rs14.EOF Then
CumplidoCoatza = 0
Else
CumplidoCoatza = (Cdbl(Rs14("CORRECTO")) / Cdbl(Rs14("PARTIDAS"))) * 100
CumplidoCoatza = FormatNumber(CumplidoCoatza)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=COATZA" onclick="NewWindow(this.href,'proDashProCoa','1024','800','yes');return false;"><%= FormatNumber(Rs14("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=COATZA" onclick="NewWindow(this.href,'proDashOkCoa','1024','800','yes');return false;"><%= FormatNumber(Rs14("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=COATZA" onclick="NewWindow(this.href,'proDashNoCoa','1024','800','yes');return false;"><%= FormatNumber(Rs14("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="Coatza" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'Coatza',
min: 0,
max: 100,
value: <%= CumplidoCoatza %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoVilla
'***** Conexion A la Tabla Empresa ****
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'VILLAHERMOSA' " &_
"GROUP BY EMPRESA;"
Rs15.Open Sql15,Cn2,1,2
If Rs15.EOF Then
CumplidoVilla = 0
Else
CumplidoVilla = (Cdbl(Rs15("CORRECTO")) / Cdbl(Rs15("PARTIDAS"))) * 100
CumplidoVilla = FormatNumber(CumplidoVilla)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=VILLAHERMOSA" onclick="NewWindow(this.href,'proDashProVILLA','1024','800','yes');return false;"><%= FormatNumber(Rs15("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=VILLAHERMOSA" onclick="NewWindow(this.href,'proDashOkVILLA','1024','800','yes');return false;"><%= FormatNumber(Rs15("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=VILLAHERMOSA" onclick="NewWindow(this.href,'proDashNoVILLA','1024','800','yes');return false;"><%= FormatNumber(Rs15("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="Villa" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'Villa',
min: 0,
max: 100,
value: <%= CumplidoVilla %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoPin
'***** Conexion A la Tabla Empresa ****
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'PINTURAS' " &_
"GROUP BY EMPRESA;"
Rs16.Open Sql16,Cn2,1,2
If Rs16.EOF Then
CumplidoPin = 0
Else
CumplidoPin = (Cdbl(Rs16("CORRECTO")) / Cdbl(Rs16("PARTIDAS"))) * 100
CumplidoPin = FormatNumber(CumplidoPin)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=PINTURAS" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs16("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=PINTURAS" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs16("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=PINTURAS" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs16("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="PINTURAS" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'PINTURAS',
min: 0,
max: 100,
value: <%= CumplidoPin %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
</Tr>
<Tr>
<Td Id="TbStock" Colspan="2">Guadalajara</Td>
<Td Id="TbStock" Colspan="2">MIGPinturas</Td>
</Tr>
<Tr>
<Td Valign="Top">
<%
Dim CumplidoGua
'***** Conexion A la Tabla Empresa ****
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'GUADALAJARA' " &_
"GROUP BY EMPRESA;"
Rs17.Open Sql17,Cn2,1,2
If Rs17.EOF Then
CumplidoGua = 0
Else
CumplidoGua = (Cdbl(Rs17("CORRECTO")) / Cdbl(Rs17("PARTIDAS"))) * 100
CumplidoGua = FormatNumber(CumplidoGua)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=GUADALAJARA" onclick="NewWindow(this.href,'proDashPrGua','1024','800','yes');return false;"><%= FormatNumber(Rs17("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=GUADALAJARA" onclick="NewWindow(this.href,'proDashOkGua','1024','800','yes');return false;"><%= FormatNumber(Rs17("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=GUADALAJARA" onclick="NewWindow(this.href,'proDashNoGua','1024','800','yes');return false;"><%= FormatNumber(Rs17("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="GUADALAJARA" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'GUADALAJARA',
min: 0,
max: 100,
value: <%= CumplidoGua %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim Cumplidomigp
'***** Conexion A la Tabla Empresa ****
Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'MIGPINTURAS' " &_
"GROUP BY EMPRESA;"
Rs18.Open Sql18,Cn2,1,2
If Rs18.EOF Then
Cumplidomigp = 0
Else
If Rs18("PARTIDAS") = 0 Then
Cumplidomigp = 0
Else
Cumplidomigp = (Cdbl(Rs18("CORRECTO")) / Cdbl(Rs18("PARTIDAS"))) * 100
Cumplidomigp = FormatNumber(Cumplidomigp)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=MIGPINTURAS" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs18("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=MIGPINTURAS" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs18("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=MIGPINTURAS" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs18("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="MIGPINTURAS" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'MIGPINTURAS',
min: 0,
max: 100,
value: <%= Cumplidomigp %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
</Tr>
<Tr>
<Td Id="TbStock" Colspan="2">Mexico</Td>
<Td Id="TbStock" Colspan="2">Tampico</Td>
<Td Id="TbStock" Colspan="2">MEXPinturas</Td>
</Tr>
<Tr>
<Td Valign="Top">
<%
Dim CumplidoMex
'***** Conexion A la Tabla Empresa ****
Set Rs19 = Server.CreateObject("ADODB.Recordset")
Sql19="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'MEXICO' " &_
"GROUP BY EMPRESA;"
Rs19.Open Sql19,Cn2,1,2
If Rs19.EOF Then
CumplidoMex = 0
Else
CumplidoMex = (Cdbl(Rs19("CORRECTO")) / Cdbl(Rs19("PARTIDAS"))) * 100
CumplidoMex = FormatNumber(CumplidoMex)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=MEXICO" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs19("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=MEXICO" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs19("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=MEXICO" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs19("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="MEXICO" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'MEXICO',
min: 0,
max: 100,
value: <%= CumplidoMex %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoTAM
'***** Conexion A la Tabla Empresa ****
Set Rs21 = Server.CreateObject("ADODB.Recordset")
Sql21="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'TAMPICO' " &_
"GROUP BY EMPRESA;"
Rs21.Open Sql21,Cn2,1,2
If Rs21.EOF Then
CumplidoTAM = 0
Else
CumplidoTAM = (Cdbl(Rs21("CORRECTO")) / Cdbl(Rs21("PARTIDAS"))) * 100
CumplidoTAM = FormatNumber(CumplidoTAM)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=TAMPICO" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs21("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=TAMPICO" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs21("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=TAMPICO" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs21("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="TAMPICO" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'TAMPICO',
min: 0,
max: 100,
value: <%= CumplidoTAM %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim Cumplidomimp
'***** Conexion A la Tabla Empresa ****
Set Rs22 = Server.CreateObject("ADODB.Recordset")
Sql22="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'MEXPINTURAS' " &_
"GROUP BY EMPRESA;"
Rs22.Open Sql22,Cn2,1,2
If Rs22.EOF Then
Cumplidomimp = 0
Else
If Rs22("PARTIDAS") = 0 Then
Cumplidomimp = 0
Else
Cumplidomimp = (Cdbl(Rs22("CORRECTO")) / Cdbl(Rs22("PARTIDAS"))) * 100
Cumplidomimp = FormatNumber(Cumplidomimp)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=MEXPINTURAS" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs22("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=MEXPINTURAS" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs22("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=MEXPINTURAS" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs22("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="MIMPINTURAS" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'MIMPINTURAS',
min: 0,
max: 100,
value: <%= Cumplidomimp %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
</Tr>
<Tr>
<Td Id="TbStock" Colspan="2">Cancun</Td>
<Td Id="TbStock" Colspan="2">Merida</Td>
<Td Id="TbStock" Colspan="2">Monterrey</Td>
<Td Id="TbStock" Colspan="2">Orizaba</Td>
</Tr>
<Tr>
<Td Valign="Top">
<%
Dim CumplidoCan
'***** Conexion A la Tabla Empresa ****
Set Rs23 = Server.CreateObject("ADODB.Recordset")
Sql23="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'CANCUN' " &_
"GROUP BY EMPRESA;"
Rs23.Open Sql23,Cn2,1,2
If Rs19.EOF Then
CumplidoCan = 0
Else
CumplidoCan = (Cdbl(Rs23("CORRECTO")) / Cdbl(Rs23("PARTIDAS"))) * 100
CumplidoCan = FormatNumber(CumplidoCan)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=CANCUN" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs23("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=CANCUN" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs23("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=CANCUN" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs23("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="CANCUN" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'CANCUN',
min: 0,
max: 100,
value: <%= CumplidoCan %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoMer
'***** Conexion A la Tabla Empresa ****
Set Rs24 = Server.CreateObject("ADODB.Recordset")
Sql24="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'MERIDA' " &_
"GROUP BY EMPRESA;"
Rs24.Open Sql24,Cn2,1,2
If Rs24.EOF Then
CumplidoMer = 0
Else
CumplidoMer = (Cdbl(Rs24("CORRECTO")) / Cdbl(Rs24("PARTIDAS"))) * 100
CumplidoMer = FormatNumber(CumplidoMer)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=MERIDA" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs24("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=MERIDA" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs24("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=MERIDA" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs24("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="MERIDA" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'MERIDA',
min: 0,
max: 100,
value: <%= CumplidoMer %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoMon
'***** Conexion A la Tabla Empresa ****
Set Rs25 = Server.CreateObject("ADODB.Recordset")
Sql25="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'MONTERREY' " &_
"GROUP BY EMPRESA;"
Rs25.Open Sql25,Cn2,1,2
If Rs25.EOF Then
CumplidoMon = 0
Else
CumplidoMon = (Cdbl(Rs25("CORRECTO")) / Cdbl(Rs25("PARTIDAS"))) * 100
CumplidoMon = FormatNumber(CumplidoMon)
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=MONTERREY" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs25("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=MONTERREY" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs25("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=MONTERREY" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs25("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="MONTERREY" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'MONTERREY',
min: 0,
max: 100,
value: <%= CumplidoCoatza %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidooRI
'***** Conexion A la Tabla Empresa ****
Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'ORIZABA' " &_
"GROUP BY EMPRESA;"
Rs26.Open Sql26,Cn2,1,2
If Rs26.EOF Then
CumplidooRI = 0
Else
If Rs26("PARTIDAS") = 0 Then
CumplidooRI = 0
Else
CumplidooRI = (Cdbl(Rs26("CORRECTO")) / Cdbl(Rs26("PARTIDAS"))) * 100
CumplidooRI = FormatNumber(CumplidooRI)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=ORIZABA" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs26("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=ORIZABA" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs26("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=ORIZABA" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs26("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="ORIZABA" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'ORIZABA',
min: 0,
max: 100,
value: <%= CumplidooRI %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
</Tr>
<Tr>
<Td Id="TbStock" Colspan="2">Puebla</Td>
<Td Id="TbStock" Colspan="2">Toluca</Td>
<Td Id="TbStock" Colspan="2">VITPinturas</Td>
</Tr>
<Tr>
<Td Valign="Top">
<%
Dim CumplidoPue
'***** Conexion A la Tabla Empresa ****
Set Rs27 = Server.CreateObject("ADODB.Recordset")
Sql27="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'PUEBLA' " &_
"GROUP BY EMPRESA;"
Rs27.Open Sql27,Cn2,1,2
If Rs27.EOF Then
CumplidoPue = 0
Else
If Rs27("PARTIDAS") = 0 Then
CumplidoPue = 0
Else
CumplidoPue = (Cdbl(Rs27("CORRECTO")) / Cdbl(Rs27("PARTIDAS"))) * 100
CumplidoPue = FormatNumber(CumplidoPue)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=PUEBLA" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs27("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=PUEBLA" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs27("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=PUEBLA" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs27("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="PUEBLA" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'PUEBLA',
min: 0,
max: 100,
value: <%= CumplidoPue %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoTol
'***** Conexion A la Tabla Empresa ****
Set Rs28 = Server.CreateObject("ADODB.Recordset")
Sql28="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'TOLUCA' " &_
"GROUP BY EMPRESA;"
Rs28.Open Sql28,Cn2,1,2
If Rs28.EOF Then
CumplidoTol = 0
Else
If Rs28("PARTIDAS") = 0 Then
CumplidoTol = 0
Else
CumplidoTol = (Cdbl(Rs28("CORRECTO")) / Cdbl(Rs28("PARTIDAS"))) * 100
CumplidoTol = FormatNumber(CumplidoTol)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=TOLUCA" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs28("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=TOLUCA" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs28("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=TOLUCA" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs28("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="TOLUCA" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'TOLUCA',
min: 0,
max: 100,
value: <%= CumplidoTol %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
<Td Valign="Top">
<%
Dim CumplidoVITP
'***** Conexion A la Tabla Empresa ****
Set Rs29 = Server.CreateObject("ADODB.Recordset")
Sql29="Select EMPRESA, " &_
"COUNT(PARTIDA) AS PARTIDAS, " &_
"SUM(CASE WHEN DIFERENCIA <= 0 THEN 1 ELSE 0 END) AS CORRECTO, " &_
"SUM(CASE WHEN DIFERENCIA > 0 THEN 1 ELSE 0 END) AS FALTANTES " &_
"FROM "& Session("MyName")&"PRO" &" " &_
"Where Empresa = 'VITPINTURAS' " &_
"GROUP BY EMPRESA;"
Rs29.Open Sql29,Cn2,1,2
If Rs29.EOF Then
CumplidoVITP = 0
Else
If Rs29("PARTIDAS") = 0 Then
CumplidoVITP = 0
Else
CumplidoVITP = (Cdbl(Rs29("CORRECTO")) / Cdbl(Rs29("PARTIDAS"))) * 100
CumplidoVITP = FormatNumber(CumplidoVITP)
End If
End If
%>
<!-- INICIADO TABLA PARA LOS STOCK MINIMOS --->
<Table Id="TbStock">
<Tr>
<Td Id="TbStockLeft">PARTIDAS</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashPro.asp?Empresa=VITPINTURAS" onclick="NewWindow(this.href,'proDashProPin','1024','800','yes');return false;"><%= FormatNumber(Rs29("PARTIDAS")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">CUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashOk.asp?Empresa=VITPINTURAS" onclick="NewWindow(this.href,'proDashOkPin','1024','800','yes');return false;"><%= FormatNumber(Rs29("CORRECTO")) %></a></Td>
</Tr>
<Tr>
<Td Id="TbStockLeft">INCUMPLIDO</Td>
<Td> </Td>
<Td Id="TbStockRight"><a href="proDashNo.asp?Empresa=VITPINTURAS" onclick="NewWindow(this.href,'proDashNoPin','1024','800','yes');return false;"><%= FormatNumber(Rs29("FALTANTES")) %></a></Td>
</Tr>
</Table>
</Td>
<Td Valign="Top">
<canvas id="VITPINTURAS" width="150" height="150">
[No canvas support]
</canvas>
<script>
new RGraph.HorseshoeMeter({
id: 'VITPINTURAS',
min: 0,
max: 100,
value: <%= CumplidoVITP %>,
options: {
// Some options which you can give if you choose to:
//
//colors: ['red', 'pink'],
//width: 25,
//textSize: 65,
//textColor: 'red',
//textBold: true,
//textItalic: true,
//textFont: 'Georgia'
//animationCallback: function () {$a('Finished!');}, // These can also be given as arguments to the animation function
//animationOptions: {frames: 120} // Doesn't need to be a string
}
//}).draw();
//}).roundRobin();
}).roundRobin(
{frames: 60},
function () {console.log('Animation complete!');}
);
</script>
</td>
</Tr>
<!---- TABLE Principal -->
</Table>
</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
%>
1351 líneas de código