<%
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">
</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:15">
<CENTER>
<B> ***** CANCELACION DE REMISIONES ***** </B>
<HR>
<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, Rs15, Sql15
Dim Rs16, Sql16, Rs17, Sql17, Rs18, Sql18, RS19, Sql19, Rs20, Sql20
Dim Rs21, Sql21, Rs22, Sql22, Rs23, Sql23, Rs24, Sql24, Rs25, Sql25
Dim Rs26, Sql26
Dim Fremnum, Cpedido, Dpedido, Capedido
Dim TipoR, FechaC, MsgC
Dim RPedido, Npedido, VecesP, StatusP, PedidoA, SiguienteP, PartidasP, PedidoSta
Dim Rnext, RegistroR
Fremnum = Request("Fremnum")
Cpedido = Request("Cpedido")
FechaC = Date()
If Cpedido = 0 Then
Dpedido = " CERRAR PEDIDO "
Else If Cpedido = 1 Then
Dpedido = " ACTIVAR PEDIDO "
End If
End If
MsgC = "CANCELADO EL DIA: " & FechaC & " POR EL USUARIO: " & Nombre & " BAJO EL PROCESO : " & Dpedido
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select Numfreme, TipoR " &_
"From Fremenc " &_
"Where Numfreme = "& Fremnum &";"
Rs11.Open Sql11,Cn1,1,2
TipoR = Rs11("TipoR")
'***** CONDICIONAL SI ES TIPO1 (REMISIONES SIN EXISTENCIA) ******
If TipoR = 1 Then
'***** RECORDSET PARA PONER EL STATUS DE REMISIONES EN 'C' *****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Update Fremenc " &_
"Set Stafreme = 'C', Obsfreme = '"& MsgC &"' " &_
"Where Numfreme = "& Fremnum &";"
Cn1.Execute Sql12
'***** RECORDSET PARA PONER LAS CANTIDADES DE PENDIENTES Y SURTIDOS EN CERO *****
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="Update Fremdet " &_
"Set Cpefremd = 0, Csufremd = 0 " &_
"Where Nrefremd = "& Fremnum &";"
Cn1.Execute Sql13
'***** CONDICIONAL DE ACTIVAR EL PEDIDO, SI ES 0 ENTONCES NO HACE NADA ****
If Cpedido = 0 Then
'***** EN CASO CONTRARIO REVIVE SOLO LAS PARTIDAS DEL PEDIDO QUE SE REMISIONARON ASI COMO SUS CANTIDADES *****
Else
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Select Rgpfremd, Antfremd, Regfremd, Nrefremd, Secfremd, Almfremd, Codfremd, Canfremd " &_
"From Fremdet " &_
"Where nrefremd = "& Fremnum &";"
Rs14.Open Sql14,Cn1,1,2
Do While Not Rs14.Eof
Rpedido = Rs14("Rgpfremd")
Capedido = Rs14("Canfremd")
Npedido = Rs14("Antfremd")
Response.write(" 1 <BR>")
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Update Fpeddet " &_
"Set Cpefpedd = (Cpefpedd + "& Capedido &"), Csufpedd = (Csufpedd - "& Capedido &"), sigfpedd = Null " &_
"Where Regfpedd = "& Rpedido &";"
Cn1.Execute Sql15
Response.write(" 2 <BR>")
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="select npefpedd, count(sigfpedd) as Veces " &_
"From fpeddet " &_
"where npefpedd = "& Npedido &" " &_
"group by npefpedd;"
Rs16.Open Sql16,Cn1,1,2
VecesP = Rs16("Veces")
Response.write(" 3 <BR>")
If Vecesp = 0 Then
StatusP = "R"
Else
StatusP = "P"
End If
Response.write(" 4 <BR>")
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="Update Fpedenc " &_
"Set Stafpede = '"& StatusP &"' " &_
"Where Numfpede = "& Npedido &";"
Cn1.Execute Sql17
Response.write(" 5 <BR>")
Rs14.Movenext
Loop
End If
Response.Redirect("Fremcan.asp")
'***** CONDICIONAL SI ES DIFERENTE A TIPO1 (REMISIONES CON EXISTENCIA) ******
Else
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select nrefremd, Count(sigfremd) as Veces " &_
"From Fremdet where nrefremd = "& Fremnum &" " &_
"Group by nrefremd;"
Rs12.Open Sql12,Cn1,1,2
Rnext = Rs12("Veces")
If Rnext > 0 Then
%>
La Remision <%= Fremnum %> Tiene Partidas Facturas <br><br>
<a href="#" title="Regresar a página anterior" onclick="history.back()">Regresar</a>
<br>
<%
Else
Set Rs13 = Server.CreateObject("ADODB.Recordset")
Sql13="select Rgpfremd, Antfremd, Regfremd, Nrefremd, Secfremd, Almfremd, Codfremd, Canfremd " &_
"From Fremdet " &_
"Where nrefremd = "& Fremnum &";"
Rs13.Open Sql13,Cn1,1,2
Do While Not Rs13.Eof
RegistroR = Rs13("Regfremd")
Response.write(" 0 <BR>")
Set Rs14 = Server.CreateObject("ADODB.Recordset")
Sql14="Insert Into Ueps " &_
"(fecueps, Comueps, Almueps, Codueps, Canueps, Punueps, pinueps, Ppiueps, Pedimento, Aduanap, PatenteP, PedimentoP, YearP) " &_
"Select " &_
"'"& FechaC &"', "& Fremnum &", Almfremd, Codfremd, Canfremd, Ucofremd, 0, 0, pedimento, AduanaP, PatenteP, PedimentoP, YearP " &_
"From Fremdet " &_
"Where Regfremd = "& RegistroR &" and canfremd > 0;"
Cn1.Execute Sql14
Response.write(" 1 <BR>")
Set Rs15 = Server.CreateObject("ADODB.Recordset")
Sql15="Insert Into UepsC " &_
"(fecuepsc, Comuepsc, Almuepsc, Coduepsc, Canuepsc, Punuepsc, pinuepsc, Pedimento, Aduanap, PatenteP, PedimentoP, YearP) " &_
"Select " &_
"'"& FechaC &"', "& Fremnum &", Almfremd, Codfremd, Canfremd, Ucofremd, 0, pedimento, AduanaP, PatenteP, PedimentoP, YearP " &_
"From Fremdet " &_
"Where Regfremd = "& RegistroR &" and canfremd > 0;"
Cn1.Execute Sql15
Response.write(" 2 <BR>")
Set Rs16 = Server.CreateObject("ADODB.Recordset")
Sql16="Update Multialmacen " &_
"Set Exirmul = (Exirmul + Canfremd), Eximul = (Eximul + Canfremd), Ucomul = Ucofremd, " &_
"Cpmul = (((Exirmul * Cpmul) + (Canfremd * Cprfremd)) / (Exirmul + Canfremd)) " &_
"From Fremdet " &_
"Where Regfremd = "& RegistroR &" and Almfremd = Almmul and Codfremd = Artmul and canfremd > 0;"
Cn1.Execute Sql16
Response.write(" 3 <BR>")
Set Rs17 = Server.CreateObject("ADODB.Recordset")
Sql17="Update Inventarios " &_
"Set Exirinv = (Exirinv + Canfremd), Exiinv = (Exiinv + Canfremd), Ultcinv = Ucofremd, " &_
"Cpinv = (((Exiinv * Cpinv) + (Canfremd * Cprfremd)) / (Exirinv + Canfremd)) " &_
"From Fremdet " &_
"Where Regfremd = "& RegistroR &" and Codfremd = Cveinv and canfremd > 0;"
Cn1.Execute Sql17
Response.write(" 4 <BR>")
Set Rs18 = Server.CreateObject("ADODB.Recordset")
Sql18="Insert Into Movinv " &_
"(TmoMinv, DocMinv, Almminv, Codminv, CanMinv, ExiMinv, Prvminv, UcoMinv, CpMinv, " &_
"pgaminv, Monminv, Tcaminv, cprminv, venminv, obsminv, usrminv, Fecminv) " &_
"Select 6, nrefremd, almfremd, Codfremd, Canfremd, Exirmul, 0, Ucofremd, Cpmul, " &_
"0, monfremd, tcafremd, clifremd, 0, obsfremd, '"& Nombre &"', '"& FechaC &"' " &_
"From Fremdet, multialmacen where regfremd = "& RegistroR &" and almmul = almfremd and codfremd = artmul and canfremd > 0;"
Cn1.Execute Sql18
Response.write(" 5 <BR>")
'******* CONDICIONAL PARA SABER SI SE CIERRA O SE ACTIVA EL PEDIDO ******
If Cpedido = 0 Then
Set Rs19 = Server.CreateObject("ADODB.Recordset")
Sql19="Update Fremdet " &_
"Set Cpefremd = 0, Csufremd = 0 " &_
"Where Regfremd = "& RegistroR &";"
Cn1.Execute Sql19
Response.write(" 6 <BR>")
Set Rs24= Server.CreateObject("ADODB.Recordset")
Sql24="Select Antfremd as PedidoA " &_
"From Fremdet " &_
"Where regfremd = "& RegistroR &";"
Rs24.Open Sql24,Cn1,1,2
Response.write(" 7 <BR>")
PedidoA = Rs24("PedidoA")
Set Rs25= Server.CreateObject("ADODB.Recordset")
Sql25="SELECT NPEFPEDD, COUNT(SECFPEDD) AS PARTIDAS, COUNT(SIGFPEDD) AS SIGUIENTE " &_
"FROM FPEDDET WHERE NPEFPEDD = "& PedidoA &" " &_
"GROUP BY NPEFPEDD;"
Rs25.Open Sql25,Cn1,1,2
Response.write(" 8 <BR>")
SiguienteP = Rs25("Siguiente")
PartidasP = Rs25("Partidas")
Response.write(" 9 <BR> " & siguienteP & " <br>" & PartidasP & "<br>")
If PartidasP = SiguienteP Then
PedidoSta = "T"
Else If SiguienteP = 0 Then
PedidoSta = "T"
Else If SiguienteP > 0 Then
PedidoSta = "P"
End If
End If
End If
PedidoSta = PedidoSta
Response.write(" 9A <BR>" & PedidoSta & " <br>" & PedidoA & "<br>" )
Set Rs26 = Server.CreateObject("ADODB.Recordset")
Sql26="Update Fpedenc " &_
"Set Stafpede = '"& PedidoSta &"' " &_
"Where Numfpede = "& PedidoA &";"
Cn1.Execute Sql26
Response.write(" 10 <BR>")
Else If Cpedido = 1 Then
Set Rs19 = Server.CreateObject("ADODB.Recordset")
Sql19="Update Fremdet " &_
"Set Cpefremd = 0, Csufremd = 0 " &_
"Where Regfremd = "& RegistroR &";"
Cn1.Execute Sql19
Response.write(" 6 <BR>")
Set Rs20 = Server.CreateObject("ADODB.Recordset")
Sql20="Update Fpeddet " &_
"Set Cpefpedd = (Cpefpedd + Canfremd), Csufpedd = (Csufpedd - canfremd), sigfpedd = Null " &_
"from fremdet Where Regfremd = "& RegistroR &" and regfpedd = rgpfremd;"
Cn1.Execute Sql20
Response.write(" 6 A <BR>")
Response.write(" 7 <BR>")
Set Rs21 = Server.CreateObject("ADODB.Recordset")
Sql21="select npefpedd, count(sigfpedd) as Veces " &_
"From fpeddet, Fremdet " &_
"where regfremd = "& RegistroR &" and Npefpedd = antfremd " &_
"group by npefpedd;"
Rs21.Open Sql21,Cn1,1,2
VecesP = Rs21("Veces")
Response.write(" 8 <BR>")
If Vecesp = 0 Then
StatusP = "R"
Else
StatusP = "P"
End If
Response.write(" 9 <BR>")
Set Rs22 = Server.CreateObject("ADODB.Recordset")
Sql22="Update Fpedenc " &_
"Set Stafpede = '"& StatusP &"' " &_
"From fremdet " &_
"where Regfremd = "& RegistroR &" and Numfpede = antfremd;"
Cn1.Execute Sql22
Response.write(" 10 <BR>")
End If
End If
Rs13.Movenext
Loop
'***** RECORDSET PARA PONER EL STATUS DE REMISIONES EN 'C' *****
Set Rs23 = Server.CreateObject("ADODB.Recordset")
Sql23="Update Fremenc " &_
"Set Stafreme = 'C', Obsfreme = '"& MsgC &"' " &_
"Where Numfreme = "& Fremnum &";"
Cn1.Execute Sql23
End If
Response.Redirect("Fremcan.asp")
End If
%>
</div>
</body>
</html>
<%
End Sub
Call AddUsuario()
Call DisplayUsuario()
%>