<%
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 Orden, Numore, ProOre
Dim ClienteF, ProveF, AgenteF
ClienteF = "0000MIM7"
ProveF = "0MIMPINT"
AgenteF = "0"
Orden = Request("Orden")
%>
<center>
<br><br>
<b>***** TRANSFERENCIA ORDENES DE MEXICO A DIVISION PINTURAS ***** </b>
<br><br>
<Form action="Comex.asp" method="post" name="Comex" id="PedidnoNuevo">
<Table Class="Pedido">
<Tr>
<Td>Orden:</Td>
<Td><input type="Text" name="Orden" Value="<%= Orden %>" size="7" style="text-align:Right"></Td>
<Td><button tabindex="4" type="submit" name="Buscar" id="BuscarCli"/>Buscar</button></Td>
</Tr>
</Table>
</Form>
<%
If Orden = "" or Isnull(Orden) or Orden = "000000" then
Orden = "000000"
%>
<br><br>
<b> ***** Buscar Una Orden A Transferir *****</b>
<%
Else
Orden = Orden
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select * from Cordenc where Numore = "& Orden &";"
Rs12.open Sql12,Cn1,1,2
If Rs12.Eof Then
%>
NO existe el Numero de Orden de Compra <%= Orden %>
<%
Else
Numore = Rs12("Numore")
ProOre = Rs12("ProOre")
If ProOre = "0MIMPINT" Then
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Select Proore, Nomprv, Numore, Fecore " &_
"from Cordenc, Proveedores " &_
"where Numore = "& Orden &" and Proore = Cveprv;"
Rs13.open Sql13,Cn1,1,2
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 = "select secord, desalm, codord, nominv, udminv, csoord, cpeord, punord, pinord, ppiord " &_
"from corddet, almacenes, inventarios " &_
"where almord = claalm and codord = cveinv and numord = "& Orden &" order by secord;"
Rs14.open Sql14,Cn1,1,2
%>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td>Proveedor:</Td>
<Td>Orden:</Td>
<Td>Fecha:</Td>
</Tr>
<Tr>
<Td>( <%= Rs13("Proore") %> ) <%= Rs13("Nomprv") %></Td>
<Td><%= Rs13("Numore") %></Td>
<Td><%= Rs13("fecore") %></Td>
</Tr>
</Table>
<br><br>
<Table Class="Pedido" width="800px">
<Tr>
<Td>Partida</Td>
<Td>Almacen</Td>
<Td>Codigo</Td>
<Td>Descripcion</Td>
<Td>UDM</Td>
<Td>Solicitado</Td>
<Td>Pendiente</Td>
<Td>Unitario</Td>
<Td>Pedido</Td>
<Td>Partida</Td>
</Tr>
<%
Do While Not Rs14.Eof
%>
<Tr>
<Td><%= Rs14("Secord") %></Td>
<Td><%= Rs14("Desalm") %></Td>
<Td><%= Rs14("codord") %></Td>
<Td><%= Rs14("Nominv") %></Td>
<Td><%= Rs14("udminv") %></Td>
<Td Align="Right"><%= Formatnumber(Rs14("csoord")) %></Td>
<Td Align="Right"><%= Formatnumber(Rs14("cpeord")) %> </Td>
<Td Align="Right"><%= Formatnumber(Rs14("punord")) %></Td>
<Td Align="Right"><%= Rs14("PINord") %></Td>
<Td Align="Right"><%= Rs14("PPIord") %></Td>
</Tr>
<%
Rs14.Movenext
Loop
%>
</Table>
<br>
<hr>
<br>
<Form action="Comexadd.asp" name="ComexAdd" method="post">
<Table Class="Pedido" width="800px">
<Tr>
<Td>Cliente MIM</Td>
<Td>Proveedor MIM</Td>
<Td>Agente Aduanal MIM</Td>
<Td>Tipo Producto</Td>
</Tr>
<Tr>
<Td><%= ClienteF %></Td>
<Td><%= ProveF %></Td>
<Td><%= AgenteF %></Td>
<Td>
<Input Type="Radio" Name="TipoProd" Value="0"> Tuberia
<Input Type="Radio" Name="TipoProd" Value="1" Checked> Conexion
</Td>
</Tr>
<Tr>
<Td Colspan="4" Align="Center">
<input Type="Hidden" Name="Orden" size="5" Value="<%= Orden %>">
<input Type="Hidden" Name="ClienteF" size="5" Value="<%= ClienteF %>">
<input Type="Hidden" Name="proveF" size="5" Value="<%= proveF %>">
<input Type="Hidden" Name="AgenteF" size="5" Value="<%= AgenteF %>">
<button tabindex="4" type="submit" name="Buscar" id="BuscarCli"/>Transferir</button>
</Td>
</tr>
</Table>
</Form>
<!----------- Formulario para Transferir Orden-->
<%
Else
%>
<br>
<b>El Proveedor del Orden de Compra <%= Orden %> No es MIM es <%= ProOre %></b>
<%
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
%>