<%
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, CostoI
Division = request("Division")
Periodo = request("Periodo")
Grafica = request("Grafica")
NombreG = Grafica
'***** 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="CRMVtaAcumGrupo.asp?Division=<%= Division %>&Periodo=<%= Periodo %>&Grafica=Facturacion" Id="TablaOpc">Facturacion</a>
<br><br>
</center>
<Form action="CRMVtaAcumGData.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();">
</Td>
<Td>
<button tabindex="4" type="submit" name="Buscar" id="Buscar"/>Buscar</button>
</td>
</Tr>
</Table>
</form>
<br>
<Center>
<%
Dim Cn2
If Isnull(Grafica) or Grafica = "" Then
Grafica = "Facturacion"
Else
Grafica = Grafica
End If
'***** 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 EMPRESA, " &_
"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") &" where Division <>'FILIALES' group by EMPRESA ORDER BY IMPORTE DESC;"
Rs13.Open Sql13,Cn2,1,2
'***** Conexion A la Tabla Empresa ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select EMPRESA, " &_
"Sum(Case when Mes = 1 then (cantidad * Costo) else 0 end) as ENERO, " &_
"Sum(Case when Mes = 2 then (cantidad * Costo) else 0 end) as FEBRERO, " &_
"Sum(Case when Mes = 3 then (cantidad * Costo) else 0 end) as MARZO, " &_
"Sum(Case when Mes = 4 then (cantidad * Costo) else 0 end) as ABRIL, " &_
"Sum(Case when Mes = 5 then (cantidad * Costo) else 0 end) as MAYO, " &_
"Sum(Case when Mes = 6 then (cantidad * Costo) else 0 end) as JUNIO, " &_
"Sum(Case when Mes = 7 then (cantidad * Costo) else 0 end) as JULIO, " &_
"Sum(Case when Mes = 8 then (cantidad * Costo) else 0 end) as AGOSTO, " &_
"Sum(Case when Mes = 9 then (cantidad * Costo) else 0 end) as SEPTIEMBRE, " &_
"Sum(Case when Mes = 10 then (cantidad * Costo) else 0 end) as OCTUBRE, " &_
"Sum(Case when Mes = 11 then (cantidad * Costo) else 0 end) as NOVIEMBRE, " &_
"Sum(Case when Mes = 12 then (cantidad * Costo) else 0 end) as DICIEMBRE " &_
"from "& Session("MyName") &" where Division <>'FILIALES' group by EMPRESA;"
Rs14.Open Sql14,Cn2,1,2
%>
<Table Id="Resultados">
<Tr>
<Td>Empresa</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>
<%
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
%>
<Tr>
<Td Id="Resultadostd" Align="Left"><%= Rs13("Empresa") %></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>
<br><br><br>
<div style="width: 1024px; height: 300px" id="chart-container"></div>
<%
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
%>