<%
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>
<center>
<br><br>
<b>***** TRANSFERENCIA ORDENES DE COMPRA A MIM MEXICO *****</b>
<br>
<%
Dim Orden, ClienteF, ProveF, AgenteF
Dim Npedido, NOrden
Dim RegistroO, AlmacenO, CodigoO, CantidadO, PartidaO, PrecioO, MonedaO, FechaPo, TcambioO, ObservaO, EmbarqueO, RequiO
Dim FechaH, FechaEH, ClienteH, Monedah, TcambioH, LabH, EmbH, StaH, SubH, IvtH, TotH, ObsH
Dim registroD, PartidaD, AlmaD, CodD, CsoD, PrecioD, Mond, Tcad, FproD, Obsd
Dim Monc, TcaC, SubC, IvtC, TotC, Obsc
Dim TipoProd
Orden = Request("Orden")
ClienteF = Request("ClienteF")
ProveF = Request("ProveF")
AgenteF = Request("AgenteF")
TipoProd = Request("TipoProd")
FechaH = Date()
FechaEh = Date()+30
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=MEXPINTURAS"
'****** Consecutivo Para el Pedido ****
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Pedidos from Consecutivos;"
Rs12.open Sql12,Cn2,1,2
Npedido = Rs12("Pedidos") + 1
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 = "Update Consecutivos set Pedidos = "& Npedido &";"
Cn2.Execute Sql13
'***** Graba Detalle del Pedido ******
Set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14 = "Select * From Corddet, Monedas where Numord = "& Orden &" and Monord = Cladiv order by secord;"
Rs14.open Sql14,Cn1,1,2
Do While Not Rs14.Eof
RegistroO = Rs14("RegOrd")
AlmacenO = 1
CodigoO = Rs14("Codord")
CantidadO = Rs14("Csoord")
PartidaO = Rs14("Secord")
PrecioO = Rs14("PunOrd")
MonedaO = Rs14("MonOrd")
TcambioO = Rs14("Tcadiv")
FechaPo = Rs14("fpord")
EmbarqueO = 0
RequiO = 0
ObservaO = Rs14("ObsOrd")
Set Rs15 = server.CreateObject("ADODB.Recordset")
Sql15 = "Insert into Fpeddet " &_
"(Npefpedd, clifpedd, Ranfpedd, Almfpedd, Codfpedd, Canfpedd, Csufpedd, Cpefpedd, secfpedd, prefpedd, Desfpedd, Unifpedd, "&_
"Ucofpedd, Monfpedd, Tcafpedd, Embdir, Reqdir, Fpefpedd, Ivafpedd, Obsfpedd, ReqFpded, Usufpedd, STAFPEDD, ANTFPEDD) "&_
"Values ("& Npedido &", '"& ClienteF &"', "& RegistroO &", "& AlmacenO &", '"& CodigoO &"', "& CantidadO &", 0, "& CantidadO &", "& PartidaO &", "&_
""& PrecioO &", 0, "& PrecioO &", 0, "& MonedaO &", "& TcambioO &", "& EmbarqueO &", "& RequiO &", '"& FechaPo &"', 16, '"& Sanea(ObservaO) &"', "&_
"0, '"& Session("MyName") &"', 'N', 0);"
Cn2.Execute Sql15
Rs14.MoveNext
Loop
'***** GRABA EL ENCABEZADO DEL PEDIDO ******
Set Rs16 = server.CreateObject("ADODB.Recordset")
Sql16 = "Select * From Cordenc, Monedas where Numore = "& Orden &" and Monore = Cladiv;"
Rs16.open Sql16,Cn1,1,2
MonedaH = Rs16("Monore")
TcambioH = Rs16("Tcadiv")
EmbH = Rs16("Embore")
StaH = "A"
SubH = Rs16("SubOre")
IvtH = Rs16("IvtOre")
TotH = Rs16("Totore")
ObsH = Rs16("Obsore")
Set Rs17 = server.CreateObject("ADODB.Recordset")
Sql17 = "Insert Into Fpedenc "&_
"(Numfpede, FecFpede, Fenfpede, Clifpede, Esqfpede, Ivafpede, Retfpede, monfpede, Tcafpede, labfpede, "&_
"embfpede, stafpede, Subfpede, Ivtfpede, Imrfpede, Totfpede, Obsfpede, obscom, Atefpede, Confpede, Usufpede, "&_
"Tpedido, Certificado, Factura, Pedido, Anticipo, Inspeccion, Penalizado, Restricciones, FleteMim, "&_
"FleteXc, Otros, seguridad, Medfpede, Staimp, fecimp, hrecibo, CONSOLIDAR, RECOGE, EMBARCAR, FMODFPEDE, " &_
"FDVFPEDE, HFDVFPEDE, FDCFPEDE, HFDCFPEDE, CENTREGA, EAUTORIZA, TipoProd) " &_
"Values ("& Npedido &", '"& FechaH &"', '"& FechaEH &"', '"& ClienteF &"', 1, 16, 0, "& MonedaH &", "& TcambioH &", "& Orden &", " &_
"'"& Sanea(EmbH) &"', '"& StaH &"', "& SubH &", "& IvtH &", 0, "& TotH &", '', '"& Sanea(ObsH) &"', 'MIGUEL LOPEZ', 30, '"& Session("MyName") &"', " &_
"1, 1, 1, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, getdate(), 'LUNES A VIERNES', 0, 0, 0, GETDATE(), " &_
"'FT55555', GETDATE(), 'FT55555', GETDATE(), 'MIGUEL LOPEZ', 9, "& TipoProd &");"
Cn2.Execute Sql17
'***** Graba Detalle de La Orden De compra ******
'***** Graba Detalle de La Orden De compra ******
Response.redirect("ComexPrint.asp?Norden="& Norden &"&Npedido="& Npedido &"")
%>
</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
%>