<%
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, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/Modulo5.css" rel="stylesheet" />
<link href="css/Graficas.css" rel="stylesheet" />
<script src="Jscript/RGraph.svg.common.core.js"></script>
<script src="Jscript/RGraph.svg.line.js"></script>
<script src="Jscript/RGraph.svg.bar.js"></script>
<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
Dim Rs11, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14
Dim Division, Periodo, Grafica, NombreG, Signo
Dim CostoI, Ranking
Periodo = request("Periodo")
Grafica = request("Grafica")
If Isnull(Grafica) or Grafica = "" Then
Grafica = "Facturacion"
Else
Grafica = Grafica
End If
'***** 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") &""
'***** 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>
<a href="CRMTopProductosGra.asp?Periodo=<%= Periodo %>&Grafica=Facturacion" Id="TablaOpc">Facturacion</a>
<a href="CRMTopProductosGra.asp?Periodo=<%= Periodo %>&Grafica=Kilos" Id="TablaOpc">Kilos</a>
<a href="CRMTopProductosGra.asp?Periodo=<%= Periodo %>&Grafica=Lineas" Id="TablaOpc">Lineas</a>
<br><br>
</center>
<Form action="CRMTopProductosData.asp" method="post">
<Table Id="TablaOpc">
<Tr>
<Td>Periodo:</Td>
<Td>
<input tabindex="1" type="text" placeholder="Periodo" Title="Periodo" name="Periodo" id="TablaOpc" value="<%= Periodo %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
<input tabindex="3" type="Hidden" placeholder="Grafica" Title="Grafica" name="Grafica" id="TablaOpc" value="<%= Grafica %>" Size="7px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<button tabindex="4" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
</td>
</Tr>
</Table>
</form>
<br>
<%
Dim Cn2
Dim EneroP, FebreroP, MarzoP, AbrilP, MayoP, JunioP, JulioP, AgostoP, SeptiembreP, OctubreP, NoviembreP, DiciembreP
Dim TuboAc, TuboInox, ConAc, ConInox, Valvulas, CONTRAINCENDIOS, Esparragos, PVC, Pinturas, AUTOMATIZACION, otros
'***** Conexion a la Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database=REPORTES"
If Grafica = "Facturacion" Then
Signo = "$"
'***** Conexion A la Tabla Empresa ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="select Top(1000)Codigo, Descripcion, Linea, " &_
"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, " &_
"Sum(cantidad * unitario) as Importe, " &_
"Sum(cantidad * Costo) as Costo " &_
"from "& Session("MyName") &" " &_
"group by Codigo, Descripcion, Linea " &_
"order by Importe desc;"
Rs13.Open Sql13,Cn2,1,2
%>
<Table Id="Resultados">
<Tr>
<Td>Ranking</Td>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>Linea</Td>
<Td>Enero</Td>
<Td>Febrero</Td>
<Td>Marzo</Td>
<Td>Abril</Td>
<Td>Mayo</Td>
<Td>Junio</Td>
<Td>Julio</Td>
<Td>Agosto</Td>
<Td>Septiembre</Td>
<Td>Octubre</Td>
<Td>Noviembre</Td>
<Td>Diciembre</Td>
<Td>Total</Td>
<Td>Utilidad</Td>
</Tr>
<%
Ranking = 0
Do While Not Rs13.EOF
If Cdbl(Rs13("Importe")) = 0 then
CostoI = 0
Else
CostoI = (1 -(Cdbl(Rs13("Costo")) / Cdbl(Rs13("Importe")))) * 100
End If
Ranking = Ranking + 1
%>
<Tr>
<Td Id="Resultadostd" Align="Right"><%= Ranking %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Codigo") %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Descripcion") %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Linea") %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Enero")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Febrero")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Marzo")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Abril")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Mayo")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("junio")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Julio")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Agosto")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Septiembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("octubre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Noviembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Diciembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Importe")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Formatnumber(CostoI) %>%</Td>
</Tr>
<%
Rs13.Movenext
Loop
%>
</Table>
<%
Else If Grafica = "Kilos" Then
Signo = ""
'***** Conexion A la Tabla Empresa ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="select Top(1000)Codigo, Descripcion, Linea, " &_
"Sum(Case when Mes = 1 Then (cantidad * Peso) else 0 end) as Enero, " &_
"Sum(Case when Mes = 2 Then (cantidad * Peso) else 0 end) as Febrero, " &_
"Sum(Case when Mes = 3 Then (cantidad * Peso) else 0 end) as Marzo, " &_
"Sum(Case when Mes = 4 Then (cantidad * Peso) else 0 end) as Abril, " &_
"Sum(Case when Mes = 5 Then (cantidad * Peso) else 0 end) as Mayo, " &_
"Sum(Case when Mes = 6 Then (cantidad * Peso) else 0 end) as Junio, " &_
"Sum(Case when Mes = 7 Then (cantidad * Peso) else 0 end) as Julio, " &_
"Sum(Case when Mes = 8 Then (cantidad * Peso) else 0 end) as Agosto, " &_
"Sum(Case when Mes = 9 Then (cantidad * Peso) else 0 end) as Septiembre, " &_
"Sum(Case when Mes = 10 Then (cantidad * Peso) else 0 end) as Octubre, " &_
"Sum(Case when Mes = 11 Then (cantidad * Peso) else 0 end) as Noviembre, " &_
"Sum(Case when Mes = 12 Then (cantidad * Peso) else 0 end) as Diciembre, " &_
"Sum(cantidad * Peso) as Importe, " &_
"Sum(cantidad * Costo) as Costo " &_
"from "& Session("MyName") &" " &_
"group by Codigo, Descripcion, Linea " &_
"order by Importe desc;"
Rs13.Open Sql13,Cn2,1,2
%>
<Table Id="Resultados">
<Tr>
<Td>Ranking</Td>
<Td>Clave</Td>
<Td>Nombre</Td>
<Td>Linea</Td>
<Td>Enero</Td>
<Td>Febrero</Td>
<Td>Marzo</Td>
<Td>Abril</Td>
<Td>Mayo</Td>
<Td>Junio</Td>
<Td>Julio</Td>
<Td>Agosto</Td>
<Td>Septiembre</Td>
<Td>Octubre</Td>
<Td>Noviembre</Td>
<Td>Diciembre</Td>
<Td>Total</Td>
<Td>Utilidad</Td>
</Tr>
<%
Ranking = 0
Do While Not Rs13.EOF
CostoI = 0
Ranking = Ranking + 1
%>
<Tr>
<Td Id="Resultadostd" Align="Right"><%= Ranking %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Codigo") %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Descripcion") %></Td>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Linea") %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Enero")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Febrero")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Marzo")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Abril")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Mayo")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("junio")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Julio")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Agosto")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Septiembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("octubre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Noviembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Diciembre")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Signo %><%= Formatnumber(Rs13("Importe")) %></Td>
<Td Id="Resultadostd" Align="Right"><%= Formatnumber(CostoI) %>%</Td>
</Tr>
<%
Rs13.Movenext
Loop
%>
</Table>
<%
Else If Grafica = "Lineas" Then
'***** Conexion A la Tabla Empresa ****
'***** Conexion A la Tabla Empresa ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select " &_
"Sum(Case when Linea = 'TUBERIA ACERO AL CARBON' then (cantidad * Unitario) else 0 end) as 'TUBERIA ACERO AL CARBON', " &_
"Sum(Case when Linea = 'TUBERIA ACERO INOXIDABLE' then (cantidad * Unitario) else 0 end) as 'TUBERIA ACERO INOXIDABLE', " &_
"Sum(Case when Linea = 'CONEXIONES Y BRIDAS ACERO AL CARBON' then (cantidad * Unitario) else 0 end) as 'CONEXIONES Y BRIDAS ACERO AL CARBON', " &_
"Sum(Case when Linea = 'CONEXIONES Y BRIDAS ACERO INOXIDABLE' then (cantidad * Unitario) else 0 end) as 'CONEXIONES Y BRIDAS ACERO INOXIDABLE', " &_
"Sum(Case when Linea = 'VALVULAS' then (cantidad * Unitario) else 0 end) as 'VALVULAS', " &_
"Sum(Case when Linea = 'CONTRAINCENDIOS' then (cantidad * Unitario) else 0 end) as 'CONTRAINCENDIOS', " &_
"Sum(Case when Linea = 'ESPARRAGOS Y EMPAQUES' then (cantidad * Unitario) else 0 end) as 'ESPARRAGOS Y EMPAQUES', " &_
"Sum(Case when Linea = 'PVC, CPVC Y DERIVADOS' then (cantidad * Unitario) else 0 end) as 'PVC, CPVC Y DERIVADOS', " &_
"Sum(Case when Linea = 'RECUBRIMIENTOS Y PINTURAS' then (cantidad * Unitario) else 0 end) as 'RECUBRIMIENTOS Y PINTURAS', " &_
"Sum(Case when Linea = 'AUTOMATIZACION E INSTRUMENTACION' then (cantidad * Unitario) else 0 end) as 'AUTOMATIZACION E INSTRUMENTACION', " &_
"Sum(Case when Linea = 'OTROS' then (cantidad * Unitario) else 0 end) as 'OTROS', " &_
"Sum(Cantidad * Unitario) as Importe " &_
"from "& Session("MyName") &";"
Rs13.Open Sql13,Cn2,1,2
%>
<Table Id="Resultados">
<Tr>
<Td>TUBERIA ACERO AL CARBON</Td>
<Td>TUBERIA ACERO INOXIDABLE</Td>
<Td>CONEXIONES Y BRIDAS ACERO AL CARBON</Td>
<Td>CONEXIONES Y BRIDAS ACERO INOXIDABLE</Td>
<Td>VALVULAS</Td>
<Td>CONTRAINCENDIOS</Td>
<Td>ESPARRAGOS Y EMPAQUES</Td>
<Td>PVC, CPVC Y DERIVADOS</Td>
<Td>RECUBRIMIENTOS Y PINTURAS</Td>
<Td>AUTOMATIZACION E INSTRUMENTACION</Td>
<Td>OTROS</Td>
</Tr>
<Tr>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("TUBERIA ACERO AL CARBON")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("TUBERIA ACERO INOXIDABLE")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("CONEXIONES Y BRIDAS ACERO AL CARBON")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("CONEXIONES Y BRIDAS ACERO INOXIDABLE")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("VALVULAS")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("CONTRAINCENDIOS")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("ESPARRAGOS Y EMPAQUES")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("PVC, CPVC Y DERIVADOS")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("RECUBRIMIENTOS Y PINTURAS")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("AUTOMATIZACION E INSTRUMENTACION")) %></td>
<Td Id="Resultadostd" Align="Right">$<%= Formatnumber(Rs13("OTROS")) %></td>
</Tr>
</TABLE>
<div style="padding: 10px">
<div style="width: 1024px; height: 300px" id="chart-container"></div>
</div>
<script>
new RGraph.SVG.Bar({
id: 'chart-container',
data: [<%= (Rs13("TUBERIA ACERO AL CARBON")) %>,<%= (Rs13("TUBERIA ACERO INOXIDABLE")) %>,<%= (Rs13("CONEXIONES Y BRIDAS ACERO AL CARBON")) %>,<%= (Rs13("CONEXIONES Y BRIDAS ACERO INOXIDABLE")) %>,<%= (Rs13("VALVULAS")) %>,<%= (Rs13("CONTRAINCENDIOS")) %>,<%= (Rs13("ESPARRAGOS Y EMPAQUES")) %>,<%= (Rs13("PVC, CPVC Y DERIVADOS")) %>,<%= (Rs13("RECUBRIMIENTOS Y PINTURAS")) %>,<%= (Rs13("AUTOMATIZACION E INSTRUMENTACION")) %>,<%= (Rs13("OTROS")) %>],
options: {
xaxisLabels: ['Tubo A.C.','Tubo Inox','Conex. A.C.','Conex. A.Inox','Valvulas','Contraincendio','Esparragos','PVC','Recubrimientos','Automatizacion','Otros'],
gutterLeft: 100,
colors: [
'red','blue','pink','green','rgb(255,67,169)','brown','#cfc','#ff742f','#0341d2','#000000','#COCOCO'
],
colorsSequential: true,
yaxisUnitsPre: '$',
yaxisDecimals: 1,
yaxisPoint: ',',
yaxisThousand: '.',
yaxis: false,
backgroundGridVlines: false,
backgroundGridBorder: false,
title: 'Grafica Lineas ' + ' Periodo ' + "<%= Periodo %>" + ' Division ' + "<%= Division %>"
}
}).grow();
</script>
<%
End If
End If
End If
%>
</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
%>