<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<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>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Fpedm where usuario = '" & nombre & "' order by npedm;"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("Fpedm")%>.asp"><img src="Image/<%=rs5.fields("fpedn")%>.gif" border=0 alt="<%=rs5.fields("fpedn")%>"></a>
<%
rs5.MoveNext
loop
%>
<hr>
</div>
<div class="normal" style="position:absolute; top:120px; left:1">
<%
Dim rs10, sql10, rs11, sql11
Dim NumReq, Numped, Diac, Status, servicio
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="select Requi from consecutivos;"
rs10.Open SQL10, cn1
Numreq = rs10.fields("requi") + 1
set rs16 = server.CreateObject("ADODB.Recordset")
sql16="Update consecutivos set Requi = '"& Numreq &"';"
Cn1.Execute Sql16
Numped = Request.form("Numped")
DiaC = date()
Status = 0
Dim rs12, sql12, rs13, sql13, rs14,sql14, rs15, sql15, rs16, sql16, rs17, sql17
Dim rs20, sql20, rs21, sql21, rs22, sql22, rs23, sql23, rs24, sql24, rs25, sql25
Dim rs26, sql26, rs27, sql27, rs28, sql28, rs29, sql29, rs30, sql30, rs32, sql32, rs33, sql33
DIM CAMPO1, CAMPO2
set rs21 = server.CreateObject("ADODB.Recordset")
sql21="Select servicio from consecutivos;"
rs21.open sql21,cn1,1,2
Servicio = rs21("servicio") + 1
CAMPO1 = "SERVICIO"
CAMPO2 = "AJUSTE DE SERVICIO NUMERO: "& SERVICIO &" "
Dim element
for each element in request("chk")
Dim Disp, Canreq, Code, Upar, Pedido, Embarque
set rs12 = server.CreateObject("ADODB.Recordset")
sql12="Select artmul, almmul, eximul, exirmul, capmul, EMBDIRE, regfpedd, codfpedd, almfpedd, cpefpedd, monfpedd, tcafpedd, embdir, Rsem " &_
"From Multialmacen, Fpeddet " &_
"where regfpedd = '"& Request("txt_"&element) &"' " &_
"and artmul = codfpedd and almmul = almfpedd;"
rs12.Open Sql12, Cn1
Disp = Cdbl(rs12("exirmul")) - Cdbl(rs12("Capmul")) + Cdbl(rs12("EMBDIRE")) - cdbl(rs12("Rsem"))
Embarque = rs12("embdir")
If Embarque = 0 Then
if Disp <= 0 then
Upar = 0
else
Upar = Disp
end if
Pedido = cdbl(Upar) - Cdbl(rs12("cpefpedd"))
if Pedido <= 0 then
Canreq = pedido * (-1)
else
Canreq = 0
end if
if Canreq > 0 then
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13="Insert into Creqdet (Numreqd, PedReqd, ParReqd, AlmReqd, CodReqd, CasReqd, PpeReqd, FpeReqd, monReqd, TcaReqd, ordreqd, orireqd, OBSREQD)" &_
"Select '"& Numreq &"', npefpedd, secfpedd, almfpedd, codfpedd, '"& Canreq &"', unifpedd, " &_
"fpefpedd, monfpedd, tcafpedd, 0, 0, OBSFPEDD from fpeddet, Inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and codfpedd = cveinv and tipinv = 0;"
Cn1.Execute sql13
set rs14 = server.CreateObject("ADODB.Recordset")
Sql14="Update fpeddet set Reqfpded = '"& NumReq &"' From inventarios " &_
"where regfpedd = '"& Request("Txt_"&element) &"' and codfpedd = cveinv and tipinv = 0;"
Cn1.Execute sql14
else
set rs14 = server.CreateObject("ADODB.Recordset")
Sql14="Update fpeddet set Reqfpded = 0 From inventarios " &_
"where regfpedd = '"& Request("Txt_"&element) &"' and codfpedd = cveinv and tipinv = 0;"
Cn1.Execute sql14
end if
set rs15 = server.CreateObject("ADODB.Recordset")
Sql15="Update multialmacen set capmul = (cpefpedd + capmul) from fpeddet, inventarios where artmul = codfpedd " &_
"and almmul = almfpedd and regfpedd = '"& Request("Txt_"&element) &"' and cveinv = codfpedd " &_
"and tipinv = 0;"
Cn1.Execute sql15
set rs20 = server.CreateObject("ADODB.Recordset")
Sql20="Update Inventarios set apainv = (cpefpedd + apainv) from fpeddet where cveinv = codfpedd " &_
"and regfpedd = '"& Request("Txt_"&element) &"' and tipinv = 0;"
Cn1.Execute sql20
Else
'------------------aqui si es 1 el embarque
if Disp <= 0 then
Upar = 0
else
Upar = Disp
end if
If rs12.eof then
Pedido = Upar - 0
else
Pedido = Upar - rs12("cpefpedd")
end if
if Pedido <= 0 then
Canreq = pedido * (-1)
else
Canreq = 0
end if
if Canreq > 0 then
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13="Insert into Creqdet (Numreqd, PedReqd, ParReqd, AlmReqd, CodReqd, CasReqd, PpeReqd, FpeReqd, monReqd, TcaReqd, ordreqd, orireqd, obsreqd)" &_
"Select '"& Numreq &"', npefpedd, secfpedd, almfpedd, codfpedd, '"& Canreq &"', unifpedd, " &_
"fpefpedd, monfpedd, tcafpedd, 0, 0, obsfpedd from fpeddet, inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"codfpedd = cveinv and tipinv = 0;"
Cn1.Execute sql13
set rs14 = server.CreateObject("ADODB.Recordset")
Sql14="Update fpeddet set Reqfpded = '"& NumReq &"' From Inventarios " &_
"where regfpedd = '"& Request("Txt_"&element) &"' and codfpedd = cveinv and tipinv = 0;"
Cn1.Execute sql14
else
set rs14 = server.CreateObject("ADODB.Recordset")
Sql14="Update fpeddet set Reqfpded = 0 where regfpedd = '"& Request("Txt_"&element) &"';"
Cn1.Execute sql14
end if
End If
set rs22 = server.CreateObject("ADODB.Recordset")
Sql22="Insert into Ueps (fecueps, comueps, almueps, codueps, canueps, punueps, pinueps, ppiueps) " &_
"select '"& Diac &"', "& Servicio &", almfpedd, codfpedd, cpefpedd, 0, npefpedd, secfpedd " &_
"from fpeddet, inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and codfpedd = cveinv and tipinv = 1;"
Cn1.Execute sql22
set rs23 = server.CreateObject("ADODB.Recordset")
Sql23="Insert into Uepsc (fecuepsc, comuepsc, almuepsc, coduepsc, canuepsc, punuepsc, pinuepsc) " &_
"select '"& Diac &"', "& Servicio &", almfpedd, codfpedd, cpefpedd, 0, npefpedd " &_
"from fpeddet, inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and codfpedd = cveinv and tipinv = 1;"
Cn1.Execute sql23
set rs24 = server.CreateObject("ADODB.Recordset")
Sql24="Insert into Movinv (tmominv, docminv, fecminv, almminv, codminv, canminv, " &_
"eximinv, prvminv, ucominv, cpminv, pgaminv, monminv, tcaminv, cprminv, venminv, obsminv, usrminv) " &_
"Select 7, "& Servicio &", '"& diac &"', almfpedd, codfpedd, cpefpedd, (exirmul + cpefpedd), "&_
"0, 0, 0, 0, 1, 1, '"& Campo1 &"', 0, '"& Campo2 &"', '"& Nombre &"' " &_
"from fpeddet, multialmacen, inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and almfpedd = almmul and codfpedd = artmul and cveinv = codfpedd and tipinv = 1;"
Cn1.Execute sql24
set rs25 = server.CreateObject("ADODB.Recordset")
Sql25="Update multialmacen set eximul = (eximul + cpefpedd), exirmul = (exirmul + cpefpedd) " &_
"From fpeddet, inventarios where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and almfpedd = almmul and artmul = codfpedd and codfpedd = cveinv and tipinv = 1;"
Cn1.Execute sql25
set rs26 = server.CreateObject("ADODB.Recordset")
Sql26="Update inventarios set exiinv = (exiinv + cpefpedd), exirinv = (exirinv + cpefpedd) " &_
"From fpeddet where regfpedd = '"& Request("Txt_"&element) &"' " &_
"and codfpedd = cveinv and tipinv = 1;"
Cn1.Execute sql26
set rs27 = server.CreateObject("ADODB.Recordset")
Sql27="Update fpeddet set reqfpded = '"& NumReq &"' where regfpedd = '"& Request("Txt_"&element) &"';"
Cn1.Execute sql27
Next
set rs28 = server.CreateObject("ADODB.Recordset")
Sql28="Update Consecutivos set servicio = "& Servicio &" ;"
Cn1.Execute sql28
Dim rs18, sql18, rs19, sql19
Dim Contador, Numpartida
set rs18 = server.CreateObject("ADODB.Recordset")
sql18="select count(*) as Contador from creqdet where numreqd = '"& Numreq &"';"
rs18.open sql18,cn1,1,2
Numpartida = rs18("Contador")
If Numpartida > 0 then
set rs17 = server.CreateObject("ADODB.Recordset")
sql17="Insert Into CreqEnc (NumReqe, Pedreqe, FecReqe, CliReqe, Stareqe, Monreqe, Tcareqe, Obsreqe, Tpereqe, Cerreqe, Facreqe, " &_
"pecreqe, antreqe, insreqe, penreqe, resreqe, otroreqe, obscreqe, UsrReqe, UCAREQE)" &_
"Select '"& Numreq &"', Numfpede, getdate(), Clifpede, '"& Status &"', monfpede, Tcafpede, Obsfpede, Tpedido, Certificado, Factura, " &_
"Pedido, Anticipo, Inspeccion, penalizado, restricciones, otros, Obscom, " &_
"Usufpede, '"& nombre &"' from Fpedenc where Numfpede = '"& Numped &"'; "
Cn1.Execute Sql17
set rs19 = server.CreateObject("ADODB.Recordset")
sql19 = "Update Fpedenc set stafpede = 'R' from creqenc where pedreqe = numfpede and numreqe = '"& Numreq &"';"
Cn1.Execute Sql19
Response.write("En este debe grabar el num de Partida y los cambios de inventarios ")
Set Rs32 = server.CreateObject("ADODB.Recordset")
sql32="UPDATE MULTIALMACEN SET CAPMUL = 0;"
cn1.execute Sql32
Set Rs33 = server.CreateObject("ADODB.Recordset")
sql33="UPDATE MULTIALMACEN SET CAPMUL = CANTIDAD FROM APARTADOSB WHERE ARTMUL = CODIGO AND ALMMUL = almacen;"
cn1.execute Sql33
Response.Redirect("Creqdir.asp?CReqnum="& Numreq &"&Empresa="& Negocio &"")
else if Numpartida = 0 then
set rs19 = server.CreateObject("ADODB.Recordset")
sql19 = "Update Fpedenc set stafpede = 'R' WHERE numfpede = "& Numped &";"
Cn1.Execute Sql19
Set Rs32 = server.CreateObject("ADODB.Recordset")
sql32="UPDATE MULTIALMACEN SET CAPMUL = 0;"
cn1.execute Sql32
Set Rs33 = server.CreateObject("ADODB.Recordset")
sql33="UPDATE MULTIALMACEN SET CAPMUL = CANTIDAD FROM APARTADOSB WHERE ARTMUL = CODIGO AND ALMMUL = almacen;"
cn1.execute Sql33
Response.write("Aqui no debe hacer nada")
Response.Redirect("Creqvac.asp")
end if
end if
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>