<%
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/Modulos.css" rel="stylesheet" />
<link href="css/Buscador.css" rel="stylesheet" />
<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, Cn4, Cn5, Cn6, Cn7, Cn8, Cn9, Cn10, Cn11, Cn12, Cn13, Cn14
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24
'***** 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
%>
<SECTION Class="HeaderGes">
<div Id="DivHeadGes">
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</div>
</SECTION>
<SECTION>
<%
Dim Codigo, Descripcion, Colada
Codigo = Request("Codigo")
Descripcion = Request("Descripcion")
Colada = Request("Colada")
%>
<Center>
<BR>
<B>***** BUSQUEDA DE CERTIFICADOS DE CALIDAD POR GRUPO *****</B>
<BR><BR>
<Form action="Certificado.asp" method="post" name="Certificado" id="PedidnoNuevo">
<Table Class="Pedido">
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<Tr>
<Td>
<input tabindex="1" type="text" placeholder="Codigo" Title="Codigo" name="Codigo" id="Codigo" Size="15" value="<%= Codigo %>">
</td>
<Td>
<input tabindex="2" type="text" placeholder="Descripcion" Title="Descripcion" name="Descripcion" id="Descripcion" Size="15" value="<%= Descripcion %>">
</Td>
<Td>
<input tabindex="3" type="text" placeholder="Colada" Title="Colada" name="Colada" id="Colada" Size="15" value="<%= Colada %>">
</Td>
<Td>
<button tabindex="4" type="submit" name="Buscar" id="BuscarCli"/>Buscar</button>
</td>
</Tr>
</table>
<%
If (Isnull(Codigo) or Codigo = "") and (Isnull(Descripcion) or Descripcion = "") and (Isnull(Colada) or Colada = "") Then
Else
'***** Conexion a la Base de Datos Cancun *****
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=Cancun"
'***** Conexion A la Tabla Certificados ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs12.Open Sql12,Cn2,1,2
If Rs12.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Cancun *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs12.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Cancun/Certificados/<%= Rs12("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs12("Cveprod") %></a></Td>
<Td><%= Rs12("Nominv") %></Td>
<Td><%= Rs12("Numcol") %></Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos Coatza *****
Set Cn3 = Server.CreateObject( "ADODB.Connection" )
Cn3.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=COATZA"
'***** Conexion A la Tabla Certificados ****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs13.Open Sql13,Cn3,1,2
If Rs13.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Coatzacoalcos *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs13.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Coatza/Certificados/<%= Rs13("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs13("Cveprod") %></a></Td>
<Td><%= Rs13("Nominv") %></Td>
<Td><%= Rs13("Numcol") %></Td>
</Tr>
<%
Rs13.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos guadalajara *****
Set Cn4 = Server.CreateObject( "ADODB.Connection" )
Cn4.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=GUADALAJARA"
'***** Conexion A la Tabla Certificados ****
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs14.Open Sql14,Cn4,1,2
If Rs14.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Guadalajara *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs14.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Guadalajara/Certificados/<%= Rs14("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs14("Cveprod") %></a></Td>
<Td><%= Rs14("Nominv") %></Td>
<Td><%= Rs14("Numcol") %></Td>
</Tr>
<%
Rs14.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MERIDA *****
Set Cn5 = Server.CreateObject( "ADODB.Connection" )
Cn5.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MERIDA"
'***** Conexion A la Tabla Certificados ****
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs15.Open Sql15,Cn5,1,2
If Rs15.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Merida *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs15.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Merida/Certificados/<%= Rs15("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs15("Cveprod") %></a></Td>
<Td><%= Rs15("Nominv") %></Td>
<Td><%= Rs15("Numcol") %></Td>
</Tr>
<%
Rs15.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos MEXICO *****
Set Cn6 = Server.CreateObject( "ADODB.Connection" )
Cn6.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=MEXICO"
'***** Conexion A la Tabla Certificados ****
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs16.Open Sql16,Cn6,1,2
If Rs16.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Mexico *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs16.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Mexico/Certificados/<%= Rs16("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs16("Cveprod") %></a></Td>
<Td><%= Rs16("Nominv") %></Td>
<Td><%= Rs16("Numcol") %></Td>
</Tr>
<%
Rs16.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos ORIZABA *****
Set Cn8 = Server.CreateObject( "ADODB.Connection" )
Cn8.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=ORIZABA"
'***** Conexion A la Tabla Certificados ****
Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs18.Open Sql18,Cn8,1,2
If Rs18.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Orizaba *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs18.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Orizaba/Certificados/<%= Rs18("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs18("Cveprod") %></a></Td>
<Td><%= Rs18("Nominv") %></Td>
<Td><%= Rs18("Numcol") %></Td>
</Tr>
<%
Rs18.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos PUEBLA *****
Set Cn9 = Server.CreateObject( "ADODB.Connection" )
Cn9.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=PUEBLA"
'***** Conexion A la Tabla Certificados ****
Set Rs19 = Server.CreateObject("ADODB.Recordset")
Sql19="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs19.Open Sql19,Cn9,1,2
If Rs19.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Puebla *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs19.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Puebla/Certificados/<%= Rs19("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs19("Cveprod") %></a></Td>
<Td><%= Rs19("Nominv") %></Td>
<Td><%= Rs19("Numcol") %></Td>
</Tr>
<%
Rs19.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TAMPICO *****
Set Cn11 = Server.CreateObject( "ADODB.Connection" )
Cn11.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=TAMPICO"
'***** Conexion A la Tabla Certificados ****
Set Rs21 = Server.CreateObject("ADODB.Recordset")
Sql21="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs21.Open Sql21,Cn11,1,2
If Rs21.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Tampico *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs21.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/TAMPICO/Certificados/<%= Rs21("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs21("Cveprod") %></a></Td>
<Td><%= Rs21("Nominv") %></Td>
<Td><%= Rs21("Numcol") %></Td>
</Tr>
<%
Rs21.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos TOLUCA *****
Set Cn12 = Server.CreateObject( "ADODB.Connection" )
Cn12.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=TOLUCA"
'***** Conexion A la Tabla Certificados ****
Set Rs22 = Server.CreateObject("ADODB.Recordset")
Sql22="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs22.Open Sql22,Cn12,1,2
If Rs22.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Toluca *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs22.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Toluca/Certificados/<%= Rs22("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs22("Cveprod") %></a></Td>
<Td><%= Rs22("Nominv") %></Td>
<Td><%= Rs22("Numcol") %></Td>
</Tr>
<%
Rs22.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
'***** Conexion a la Base de Datos VILLAHERMOSA *****
Set Cn13 = Server.CreateObject( "ADODB.Connection" )
Cn13.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=USRVISOR;PWD=USGPO01;Database=VILLAHERMOSA"
'***** Conexion A la Tabla Certificados ****
Set Rs23 = Server.CreateObject("ADODB.Recordset")
Sql23="Select * from Certificados, Inventarios " &_
"Where Cveprod = Cveinv and CveProd like '%" & UCase(Request("Codigo")) & "%' and Nominv like '%" & UCase(Request("Descripcion")) & "%' and Numcol like '%" & UCase(Request("Colada")) & "%' " &_
"Order by Cveprod;"
Rs23.Open Sql23,Cn13,1,2
If Rs23.EOF Then
Else
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td Colspan="3" Align="center"><b>***** Villahermosa *****</Td>
</Tr>
<Tr>
<Td>Codigo:</Td>
<Td>Descripcion:</Td>
<Td>Colada:</Td>
</Tr>
<%
Do while Not Rs23.EOF
%>
<Tr>
<Td><A HREF="http://www.grupo-mim.com.mx/Villahermosa/Certificados/<%= Rs23("Numcert") %>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;"><%= Rs23("Cveprod") %></a></Td>
<Td><%= Rs23("Nominv") %></Td>
<Td><%= Rs23("Numcol") %></Td>
</Tr>
<%
Rs23.Movenext
Loop
%>
</Table>
<%
End If
%>
<%
End If
%>
<%
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
%>