<%
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>
<script language="javascript">
stat=1
function frm_submit(frm,rec)
{
var msgDel,check
check = 0
msgDel = "Desea continuar ?"
if (rec == 1)
{
if(frm.chk.checked == false){
check = 0
}
else{
check= 1
}
}
else if(rec > 1 )
{
for(i=0;i<frm.chk.length;i++)
{
if(frm.chk[i].checked == true)
{
check = 1;
break;
}
}
}
if (check == 0)
{
alert("Active la casilla para continuar")
return;
}
else if(check == 1)
{
ok = confirm(msgDel)
if (ok == false)
{
return;
}
else
{
frm.submit()
}
}
}
function en_dis(frm,RecCount,val){
var chkLength
// tg= document.getElementById(tag_id1).className
//if (tg =='slected'){
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className=''")
//}}
//else{
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className='slected'")
//}
//}
//tg_id.className='slected'
if (RecCount>1){
chkLength=frm.chk.length
}
else
{
chkLength=1
frm.chkMain.checked=frm.chk.checked
if (stat==1){
eval("document.frm."+val+".disabled=false")
stat=0
}
else{
eval("document.frm."+val+".disabled=true")
stat=1
}
return;
}
for(i=0;i<=chkLength-1;i++){
if(frm.chk[i].checked==false){
frm.chkMain.checked=false
break;
}
else{
frm.chkMain.checked=true
}
}
tt= eval("document.frm."+val+".disabled")
if (tt== true){
eval("document.frm."+val+".disabled=false")
}
else
eval("document.frm."+val+".disabled=true")
}
function chk_all(frm,RecCount){
var chkLength
if (RecCount>1)
{
chkLength=frm.chk.length
}
else if (RecCount==1)
{
chkLength=1
frm.chk.checked=frm.chkMain.checked
if (stat==1){
document.frm.txt_0.disabled=false
stat=0
}
else{
document.frm.txt_0.disabled=true
stat=1
}
return;
}
if(frm.chkMain.checked==true){
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=true
//frm.txt[i].disabled= false
eval("frm.txt_"+i+".disabled= false")
}
}
else
{
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=false
//frm.txt[i].disabled= true
eval("frm.txt_"+i+".disabled= true")
}
}
return;
}
</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 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>Remision Por Mantenimiento de Pedido</b>
<hr>
<%
Dim Rs11, Sql11
Dim Pedido, Ftipo, StatusC
Pedido = Request("Pedido")
If Pedido = "" or Isnull(Pedido) Then
Pedido = "000000"
Else
Pedido = Pedido
End If
%>
<Form action="Fremman.asp" name="Bpedido" method='post'>
<Table border=0 cellspacing=0 cellpadding=1 class="normal">
<tr>
<td Class="normal"><b> Numero de Pedido: </b></td>
<td Class="normal"><b><input Type="Text" Value="<%= Pedido %>" class="NormalB" name="Pedido" size="5" style="text-align:right;"> </b></td>
</tr>
<Tr>
<td Colspan="2" Align="Center"><input type="Submit" value="Buscar" class=normal></td>
</table>
</Form>
<hr>
<%
If Pedido = "" or Isnull(Pedido) Then
%>
<b>Seleccione un Pedido a Remisionar<br></b>
<%
Else
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11 = "Select regfpedd, npefpedd, secfpedd, almfpedd, desalm, Codfpedd, nominv, cpefpedd, udminv, exirmul, tpedido, stacli, NOMCLI " &_
"from fpeddet, Fpedenc, Inventarios, Multialmacen, almacenes, clientes " &_
"where npefpedd = "& Pedido &" and numfpede = npefpedd and Clifpede = clacli " &_
"and cveinv = artmul and almfpedd = claalm " &_
"and almfpedd = almmul and codfpedd = artmul and cpefpedd >0 " &_
"Order by secfpedd;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof Then
%>
<B> 1.- Msg: El Pedido Solicitado no Existe.<br>
<%
Else
StatusC = Rs11("Stacli")
If Statusc = "B" or StatusC = "S" then
%>
<B>2.- Msg: **** EL CLIENTE <%= Rs11("Nomcli") %> SE ENCUENTRA SUSPENDIDO ***** <BR><BR></B>
<%
Else
%>
<FORM action="fremmanti.asp" name="frm" method='post'>
<input type="Hidden" name="Pedido" value="<%= Pedido %>" class="n_verdana_simple">
<table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#62A08B">
<td align="center" Colspan=1><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=Rs11.recordcount%>)"></td>
<td Class="n_verdana">| Pedido </td>
<td Class="n_verdana">| Partida </td>
<td Class="n_verdana">| Almacen </td>
<td Class="n_verdana">| Codigo </td>
<td Class="n_verdana">| Descripcion </td>
<td Class="n_verdana">| Cantidad </td>
<td Class="n_verdana">| U.M. </td>
<td Class="n_verdana">| Existencia </td>
<td Class="n_verdana">| Tpedido </td>
<td Class="n_verdana">| Remisionar </td>
</tr>
<%
Dim count,bg_color
count = 0
For i = 0 to Rs11.RecordCount - 1
if (count Mod 2= 0) then bg_color="#ffffff" else bg_color="#EFF5F3" end if
if Cdbl(Rs11("Tpedido")) = 1 then
ftipo = "PARCIAL"
ELSE IF Cdbl(Rs11("Tpedido")) = 2 THEN
FTIPO = "PTDAS COMPLETAS"
ELSE IF Cdbl(Rs11("Tpedido")) = 0 THEN
FTIPO = "COMPLETO"
END IF
END IF
END IF
%>
<tr bgcolor="<%=bg_color%>" >
<td align="center" >
<input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=Rs11.recordcount%>,'txt_<%=i%>')">
</td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("npefpedd")%></font> </td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("secfpedd")%></font> </td>
<td align="Left"><font class="n_verdana_simple"><%= Rs11("desalm")%></font> </td>
<td align="left"><font class="n_verdana_simple">
<a href="KardexI.asp?Code=<%= Rs11("codfpedd")%>&Almacen=<%= Rs11("almfpedd")%>" onclick="NewWindow(this.href,'Kardexm','800','600','yes');return false;">
<%= Rs11("codfpedd")%></font> </a></td>
<td align="left"><font class="n_verdana_simple"><%= Rs11("nominv")%></font> </td>
<td align="right"><font class="n_verdana_simple"><%= Formatnumber(Rs11("cpefpedd"))%></font> </td>
<td align="right"><font class="n_verdana_simple"><%= Rs11("udminv")%></font> </td>
<td align="right"><font class="n_verdana_simple"><%= Formatnumber(Rs11("exirmul"))%></font> </td>
<td align="right"><font class="n_verdana_simple"><%= Ftipo %></font> </td>
<td align="right"><font class="n_verdana_simple">
<input type="text" name="txt_<%=i%>" value="<% = Rs11("cpefpedd") %>" size=6 disabled style="border:1px solid:#000000;background:<%=bg_color%>; Text-align:right" class="n_verdana_simple">
<input type="HIDDEN" name="Reg_<%=i%>" value="<%= Rs11("regfpedd") %>" class="n_verdana_simple">
</td>
</tr>
<%
Rs11.Movenext
count=count+1
Next
%>
<tr>
<td align="center" colspan=11>
<br>
<input value="Grabar" type="button" onclick="frm_submit(document.frm,<%=Rs11.recordcount%>)" id=bt name=bt class="normalc">
</td>
</tr>
</table>
</form>
<%
END iF
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()
%>