<%
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 type="text/javascript" src="Java/carrorse.js"></script>
<Script language="javascript">
function checkKeyCode(evt)
{
var evt = (evt) ? evt : ((event) ? event : null);
var node = (evt.target) ? evt.target : ((evt.srcElement) ? evt.srcElement : null);
if(event.keyCode==116)
{
evt.keyCode=0;
return false
}
}
document.onkeydown=checkKeyCode;
</script>
</head>
<BODY>
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Fremm where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("Fremm")%>.asp"><img src="Image/<%=rs5.fields("fremn")%>.gif" border=0></a>
<%
rs5.MoveNext
loop
%>
<center>
<hr>
<b>Procesos de Remision</b>
<TABLE border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="Fremrse.asp" name="Fpedrse" method="Post">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Pedido</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="Npedido" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<Tr>
<TD align="Center" class="normalw" bgcolor="#006699" Colspan="2">
<input type="submit" value="Buscar" class="normalc">
</td>
</tr>
</form>
</Table>
<hr>
<%
'************* VARIABLES DE LA SESION ******
Dim Rs11, Sql11, Rs12, Sql12
Dim Count, bg_color
Dim Npedido, Status, Tpedido
Dim ColorF
Dim Mostrador
Npedido = Request("Npedido")
'************* CONDICIONAL PARA SABER SI EXISTE EL PEDIDO ***********
If Npedido = "" or Npedido = 0 or Isnull(Npedido) Then
Else
'************ RECORDSET PARA SACAR EL ENCABEZADO DEL PEDIDO
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Numfpede, Fecfpede, Clifpede, Nomcli, Esqfpede, Ivafpede, Retfpede, Desdiv, labfpede, Stafpede, Tpedido, Stacli, Mosfpede as Mostrador, NotasAut " &_
"From Fpedenc, Clientes, Monedas " &_
"Where Numfpede = "& Npedido &" and clifpede = clacli and Monfpede = Cladiv AND FDCFPEDE IS NOT NULL AND EAUTORIZA = 9;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof Then
%>
****** NO EXISTE EL PEDIDO <%= NPEDIDO %> O EL CLIENTE ESTA SUSPENDIDO ******
<%
ELSE
Status = Rs11("Stafpede")
If Status = "A" or Status = "C" or Status = "T" Then
%>
<BR>
****** EL PEDIDO TIENE EL STATUS <%= STATUS %> ******
<%
Else
Mostrador = Rs11("Mostrador")
Tpedido = Rs11("Tpedido")
If Tpedido = 1 then
Tpedido = "PARCIAL"
ELSE IF Tpedido = 2 THEN
Tpedido = "PTDAS COMPLETAS"
ELSE IF Tpedido = 0 THEN
Tpedido = "COMPLETO"
END IF
END IF
END IF
If Rs11("stacli") = "A" Then
ColorF = "#0341D2"
Else
ColorF = "#B21F35"
End If
%>
<TABLE border=0 cellspacing=1 cellpadding=1 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Pedido</td>
<TD align="Left" class="normalw" bgcolor="#006699">Cliente</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha</td>
<TD align="Left" class="normalw" bgcolor="#006699">Tipo Ped.</td>
</tr>
<Tr>
<TD align="Left" class="normalb"><%= Rs11("Numfpede") %></td>
<TD align="Left" class="normalb"><B><Font Color = "<%= ColorF %>">( <%= Rs11("clifpede") %> ) <%= Rs11("Nomcli") %> <b>( <%= Rs11("Stacli") %> )<b></f></td>
<TD align="Left" class="normalb"><%= Rs11("fecfpede") %></td>
<TD align="Left" class="normalb"><b><%= Tpedido %></td>
</tr>
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Moneda</td>
<TD align="Center" class="normalw" bgcolor="#006699">Esquema Iva</td>
<TD align="Left" class="normalw" bgcolor="#006699">Referencia</td>
<TD align="Left" class="normalw" bgcolor="#006699">Embarque Directo</td>
</tr>
<FORM action="Frseadd.asp" name="frm" method="Post">
<Tr>
<TD align="Left" class="normalb"><%= Rs11("Desdiv") %></td>
<TD align="Center" class="normalb"> <%= Formatnumber(Rs11("Ivafpede")) %> % | <%= Formatnumber(Rs11("Retfpede")) %> %</td>
<TD align="Center" class="normalb"><%= Rs11("labfpede") %></td>
<TD align="Center" class="normalb"><input type="checkbox" name="Embdire" value="1"></td>
</tr>
<Tr>
<Td Colspan="4" align="Center" class="normalw" bgcolor="#006699" >Notas Autorizacion</Td>
</Tr>
<Tr>
<Td Colspan="4" align="Center" Style="Color:#F53345; Font-size:12px; Font-weight:Bold"><%= Rs11("Notasaut") %></td>
</Tr>
<%
If Mostrador = False Then
Else
%>
<Tr>
<Td Colspan="4" class="normalw" bgcolor="#ff742f"><b>ESTE PEDIDO ES PAGO EN CAJA</Td>
</Tr>
<%
End If
%>
</Table>
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Regfpedd, Npefpedd, Secfpedd, Codfpedd, Exirmul, Desmul, Udminv, Cpefpedd, Unifpedd " &_
"From Fpeddet, Multialmacen, Inventarios " &_
"where Npefpedd = "& Npedido &" and almfpedd = almmul and codfpedd = artmul and codfpedd = cveinv and cpefpedd > 0 and cveinv not like 'mensa%' " &_
"order by secfpedd;"
Rs12.Open Sql12,cn1,1,2
%>
<input type="Hidden" Name="Npedido" value="<%= Npedido %>" >
<TABLE border=0 cellspacing=1 cellpadding=1 class="normal">
<Tr bgcolor="#006699">
<td align="center"><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=Rs12.Recordcount%>)"></td>
<td><font class="Normalw">Pedido</td>
<td><font class="Normalw">Partida</td>
<td><font class="Normalw">Codigo</td>
<td><font class="Normalw">Descripcion</td>
<td><font class="Normalw">UDM</td>
<td><font class="Normalw">Cantidad</td>
<td><font class="Normalw">Existencias</td>
<td><font class="Normalw">Unitario</td>
</tr>
<%
Count = 0
For i = 0 to Rs12.RecordCount - 1
if (Count Mod 2= 0) then bg_color="#ffffff" else bg_color="#EFF5F3" end if
%>
<Tr bgcolor="<%=bg_color%>" >
<td align="center" ><input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=Rs12.recordcount%>,'txt_<%=i%>')">
</td>
<td Align="Right"><%= Rs12("Npefpedd") %></td>
<td Align="Right"><%= Rs12("Secfpedd") %></td>
<td Align="Left"><%= Rs12("Codfpedd") %></td>
<td Align="Left"><%= Rs12("Desmul") %></td>
<td Align="Left"><%= Rs12("Udminv") %></td>
<td Align="Right">
<input type="Text" name="Can_<%=i%>" size="7" value="<%= Rs12("Cpefpedd") %>" style="Text-align:right;" class="Normalc">
</Td>
<td Align="Right"><%= Formatnumber(Rs12("Exirmul")) %></td>
<td Align="Right"><%= Formatnumber(Rs12("Unifpedd")) %></td>
<td>
<input type="Hidden" name="txt_<%=i%>" value="<%= Rs12("regfpedd") %>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</td>
</tr>
<%
Rs12.Movenext
count=count+1
Next
%>
<tr>
<td Colspan="8" Align="Center"><input value="Aceptar" type="button" Class="Normalc" onclick="frm_submit(document.frm,<%=Rs12.recordcount%>)" id=bt name=bt></td>
</tr>
</Table>
</Form>
<%
END IF
END IF
End If
%>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>