<%
Option Explicit
%>
<%
Session.LCID = 2058
Dim Clapro, Nomprv
Clapro = Request("Clapro")
Nomprv = Request("Nomprv")
%>
<!--#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/largo.js"></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 Csalm where (ususam like'" & nombre & "') order by ordsam"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("aspsam")%>.asp"><img src="Image/<%=rs5.fields("nomsam")%>.gif" border=0 Alt="<%=rs5("Nomsam")%>"></a>
<%
rs5.MoveNext
loop
%>
<center>
<hr>
<%
Dim Rs10, Sql10, Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14, rs15, Sql15, rs16, sql16
Dim Tmo, Provee, Ate, cond, Lab, Nota
Dim Entrada, Salida, DEntrada, DSalida, HTipo
Dim Prod, Dcor, Linea, Sublinea, Alma
Dim Mysession
MySession = Session.SessionID
Tmo = Request("Tmo")
Provee = Request("Provee")
Ate = Request("Ate")
Cond = Request("Cond")
Lab = Request("Lab")
Nota = server.HtmlEncode(Request("Nota"))
Prod = Request("Prod")
Dcor = Request("Dcor")
Linea = Request("Linea")
Sublinea = Request("Sublinea")
Alma = Request("Alma")
IF Tmo = 3 then
Entrada = 3
Salida = 53
Dentrada = "Entrada Maquila"
DSalida = "Salida Maquila"
Htipo = "Maquila"
Else If Tmo = 4 then
Entrada = 4
Salida = 54
Dentrada = "Entrada C.F."
DSalida = "Salida C.F."
Htipo = "Cambio Fisico"
End If
End If
set rs10 = server.CreateObject("ADODB.Recordset")
sql10 = "Select Cveprv, Nomprv from Proveedores where Cveprv = '"& Provee &"'"
rs10.open sql10,cn1,1,2
If rs10.EOF then
%>
Lo sentimos no Existe el Proveedor Seleccionado.
<%
Else
%>
<TABLE border="1" cellspacing="1" cellpadding="1" bordercolor="#E5E5E5" width="1000px">
<tr>
<TD align="center" class="normalb" Colspan="4">Nota de Salida ( <%= Mysession %> )</td>
</tr>
<tr>
<TD align="left" class="normalb">Tipo Movimiento</td>
<TD align="left" class="normalb"><%= Htipo %></td>
<TD align="left" class="normalb">Fecha:</td>
<TD align="left" class="normalb"><%= date() %></td>
</tr>
<tr>
<TD align="left" class="normalb">Entregado:</td>
<TD Colspan="3" align="left" class="normalb">( <%= rs10("Cveprv") %> ) <%= rs10("Nomprv") %></td>
</tr>
<tr>
<TD align="left" class="normalb">Atencion:</td>
<TD Colspan="3" align="left" class="normalb"><%= Ate %></td>
</tr>
<tr>
<TD align="left" class="normalb">Nota:</td>
<TD Colspan="3" align="left" class="normalb"><%= Nota %></td>
</tr>
<tr>
<TD align="left" class="normalb">Condiciones de Pago</td>
<TD align="left" class="normalb"><%= Cond %> Dias</td>
<TD align="left" class="normalb">Condidiones de Entrega</td>
<TD align="left" class="normalb"><%= Lab %></td>
</table>
<%
Dim Sexion
Sexion = Session.SessionId
set rs11 = server.CreateObject("ADODB.Recordset")
sql11 = "Select nominv, Csaldtem.* from Csaldtem, Inventarios " &_
"where sestsad = "& Sexion &" and codtsad = cveinv order by sectsad, regtsad"
rs11.open sql11,cn1,1,2
If Rs11.Eof Then
%>
<b>No hay partidas Capturadas
<%
Else
%>
<TABLE border="1" cellspacing="1" cellpadding="1" bordercolor="#e5e5e5" width="1000px">
<tr>
<TD align="left" class="normalb">Mov</td>
<TD align="left" class="normalb">Pt</td>
<TD align="left" class="normalb">Cant.</td>
<TD align="left" class="normalb">Codigo</td>
<TD align="left" class="normalb">Descripcion</td>
<TD align="left" class="normalb">Costo</td>
<TD align="left" class="normalb">F. Entrega</td>
<TD align="left" class="normalb">Origen</td>
<TD align="left" class="normalb">Certificado</td>
<TD align="left" class="normalb">Pedido</td>
<TD align="left" class="normalb">Partida</td>
<TD align="left" class="normalb">Utilidad</td>
<TD align="left" class="normalb" Colspan="2">Accion</td>
</tr>
<%
Dim Pedido, Partida
Pedido = rs11("Pedtsad")
Partida = rs11("Ppitsad")
set rs16 = server.CreateObject("ADODB.Recordset")
sql16 = "select * from fpeddet, inventarios where cveinv=codfpedd and npefpedd = "& Pedido &" and secfpedd = "& Partida &""
rs16.open sql16,cn1,1,2
%>
<%
Dim Movdes, Lectura, DOrigen, DCert, Utilidad
Do while Not Rs11.Eof
IF rs11("oritsad") = 1 Then
Dorigen = "Si"
Else
Dorigen = "No"
End If
IF rs11("certsad") = 1 Then
DCert = "Si"
Else
Dcert = "No"
End If
If rs11("tmotsad") = 3 then
Movdes = "Entrada Maquila"
Lectura = ""
Else If rs11("tmotsad") = 4 then
Movdes = "Entrada C. Fisico"
Lectura = ""
Else If rs11("tmotsad") = 53 then
Movdes = "Salida Maquila"
Lectura = "Readonly"
Else If rs11("tmotsad") = 54 then
Movdes = "Salida C. Fisico"
Lectura = "Readonly"
End If
End If
End If
End If
If Cdbl(rs11("pedtsad")) = 0 then
Utilidad = 100
Else
Utilidad = 0
'Utilidad = ((1 - (cdbl(rs11("Ucotsad")))/ (Cdbl(rs16("tcafpedd")) / Cdbl(rs16("Prefpedd")))) * 100)
End If
%>
<tr>
<FORM action="Salcarm.asp" NAME="ModiM" method='post'>
<td align="Left" Class="normal">
<SELECT NAME="Gmov" Class="normal">
<option value=<%= rs11("Tmotsad") %> Selected><%= Movdes %>
<optgroup label="Seleccione:">
<option value="<%= Entrada %>" Class="normal"><%= DEntrada %></option>
<option value="<%= Salida %>" Class="normal"><%= DSalida %></option>
</select>
</td>
<TD align="left" class="normalb">
<input Type="Text" Name="Sec" size="4" Value="<%= rs11("sectsad") %>" Class="Normalc">
</td>
<TD align="left" class="normalb">
<input Type="Text" Name="Cantidad" size="8" Value="<%= rs11("Cantsad") %>" Class="Normalc">
</td>
<TD align="left" class="normalb"><%= rs11("codtsad") %></td>
<TD align="left" class="normalb"><%= rs11("Nominv") %></td>
<TD align="left" class="normalb" >
<input Type="Text" Name="Costo" size="8" Value="<%= rs11("ucotsad") %>" Class="Normalc" <%= lectura %>>
</td>
<TD align="left" class="normalb" >
<input Type="Text" Name="Fentrega" size="12" Value="<%= rs11("fentsad") %>" Class="Normalc">
</td>
<TD align="left" class="normalb">
<SELECT NAME="Origen">
<option value="<%= rs11("oritsad") %>" Selected> <%= Dorigen %> </option>
<optgroup label="Seleccione:">
<OPTION value="1">Si</option>
<OPTION value="2">No</option>
</select>
</td>
<TD align="left" class="normalb">
<SELECT NAME="Calidad">
<option value="<%= rs11("certsad") %>" Selected> <%= Dcert %> </option>
<optgroup label="Seleccione:">
<OPTION value="1">Si</option>
<OPTION value="2">No</option>
</select>
</td>
<TD align="left" class="normalb" >
<input Type="Text" Name="Pedido" size="8" Value="<%= rs11("pedtsad") %>" Class="Normalc">
</td>
<TD align="left" class="normalb">
<input Type="Text" Name="Partida" size="8" Value="<%= rs11("ppitsad") %>" Class="Normalc">
</td>
<td Class="normal" width="60px" align="right"><%= Formatnumber(Utilidad) %> %</td>
<TD align="left" class="normalb">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value="<%= rs11("Regtsad") %>">
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
<input Type="Hidden" Name="Prod" size="10" Class="Normalc" Value="<%= Prod %>">
<input Type="Hidden" Name="Dcor" size="10" Class="Normalc" Value="<%= Dcor %>">
<input Type="Hidden" Name="Linea" size="10" Class="Normalc" Value="<%= Linea %>">
<input Type="Hidden" Name="Sublinea" size="10" Class="Normalc" Value="<%= Sublinea %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input type="image" src="image/Modificar.gif" value="Accesar" width="16px" Alt="Modificar">
</td>
</form>
<FORM action="Salcard.asp" NAME="EliminaC" method='post'>
<TD align="left" class="normalb">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value="<%= rs11("Regtsad") %>">
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
<input Type="Hidden" Name="Prod" size="10" Class="Normalc" Value="<%= Prod %>">
<input Type="Hidden" Name="Dcor" size="10" Class="Normalc" Value="<%= Dcor %>">
<input Type="Hidden" Name="Linea" size="10" Class="Normalc" Value="<%= Linea %>">
<input Type="Hidden" Name="Sublinea" size="10" Class="Normalc" Value="<%= Sublinea %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input type="image" src="image/Eliminar.gif" value="Accesar" width="13px" Alt="Eliminar">
</td>
</form
</tr>
<%
Rs11.Movenext
Loop
%>
<tr>
<FORM action="Salgen.asp" name="Salgen" method='post'>
<td Colspan="13" align="Center" Class="Normalc">
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
<Input type="Submit" value="Guardar" Class="normal" colspan="2">
</td>
</form>
<Tr>
</table>
<%
End If
%>
<HR>
<b>Buscador</b>
<FORM action="Salccar.asp" name="Carro" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0>
<tr>
<td class="normal">Codigo:</td>
<td>
<input type="text" class="normalb" name="Prod" value="<%= Prod %>" size=15 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<tr>
<td class="normal">Descripcion:</td>
<td><input type="text" class="normalb" name="Dcor" value="<%= Dcor %>" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal">
Seleccione Una linea: </td>
<td class="normal">
<%
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "select * from lineas order by deslin"
rs12.open sql12,cn1,1,2
rs12.MoveFirst
%>
<SELECT NAME="Linea">
<option value='' Selected>
<%
while not rs12.EOF
%>
<OPTION value="<%= rs12("Clalin") %>"><%= rs12("deslin") %>
<%
rs12.MoveNext
wend
%>
</select>
<%
Rs12.close
%>
</td>
</tr>
<tr>
<td class="normal">
Seleccione Una Sublinea: </td>
<td class="normal">
<%
set rs13 = server.CreateObject("ADODB.Recordset")
sql13 = "select * from sublineas order by dessli asc;"
rs13.open sql13,cn1,1,2
rs13.MoveFirst
%>
<SELECT NAME="Sublinea">
<option value="" Selected>Todos</option>
<%
while not rs13.EOF
%>
<OPTION value="<%= rs13("Clasli") %>"><%= rs13("dessli") %></option>
<%
rs13.MoveNext
wend
%>
</select>
<%
rs13.close
%>
</td>
</tr>
<tr>
<td class="normal">
Seleccione Un Almacen: </td>
<td class="normal">
<%
set rs14 = server.CreateObject("ADODB.Recordset")
sql14 = "select * from almacenes where staalm = 'A' order by desalm;"
rs14.open sql14,cn1,1,2
rs14.MoveFirst
%>
<SELECT NAME="Alma">
<option value="" Selected>Todos</option>
<%
while not rs14.EOF
%>
<OPTION value="<%= rs14("Claalm") %>"><%= rs14("desalm") %></option>
<%
rs14.MoveNext
wend
%>
</select>
<%
rs14.close
%>
</td>
<td> 
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
<input type="submit" value="Filtrar" class=normalb></td>
</tr>
</table>
</form>
<%
Dim Numreg, Numcam, NCampo, Nmostrado
Dim msga
'Numero de Paginas
If Request("pag")<>"" Then
Session("Pag")=Request("pag")
Else
Session("Pag")=1
End If
If Alma = "" Then
Alma = 1
Else
Alma = Alma
End if
set rs15 = server.CreateObject("ADODB.Recordset")
sql15 = "select * " &_
"from Inventarios, Multialmacen, almacenes where artmul = cveinv " &_
"and artmul like '%" & Ucase(Request("Prod")) & "%'" &_
"and Nominv like '%" & Ucase(Request("Dcor")) & "%' " &_
"and lininv like '%" & Ucase(Request("linea")) & "%' " &_
"and slininv like '%" & Ucase(Request("Sublinea")) & "%' " &_
"and Almmul = "& ALma &" " &_
"and almmul = claalm;"
rs15.open sql15,cn1,1,2
'Registros por Pagina
numreg = 30
'Dimensionamos las paginas y determinamos la pagina actual
If Dcor = "" and Prod = "" then
%>
<b> Favor de Buscar Un Producto
</b>
<%
else
%>
<%
If rs15.Eof then %>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8" Colspan=6>
<b>No se Encontraron Productos Bajo ese Criterio</td><b>
<%
else
RS15.PageSize=numreg
RS15.AbsolutePage=Session("Pag")
%>
Pagina <b><%=Session("Pag")%></b> De <b><%=RS15.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS15.RecordCount%></b>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0 width="1000px">
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8">Movimiento</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Almacen</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Cant.</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Disp.</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Unidad</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Codigo</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Descripcion</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Costo</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">F. Entrega</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Accion</td>
</tr>
<%
Nmostrado = 0
While (Not RS15.eof And Nmostrado < numreg)
Nmostrado = Nmostrado +1
%>
<tr>
<FORM action="SalCpar.asp" name="Salida" method='post'>
<td align="Left" Class="normal" bgcolor="#d8d8d8">
<SELECT NAME="Gmov" Class="normal" bgcolor="#d8d8d8">
<option value="<%= Entrada %>" Selected Class="normal" bgcolor="#d8d8d8"><%= DEntrada %></option>
<option value="<%= Salida %>" Selected Class="normal" bgcolor="#d8d8d8"><%= DSalida %></option>
</select>
</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs15("desalm") %></td>
<td align="center" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Cantidad" size="8" Class="Normalc" Value="1" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value="<%= rs15("regmul") %>">
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
<input Type="Hidden" Name="Prod" size="10" Class="Normalc" Value="<%= Prod %>">
<input Type="Hidden" Name="Dcor" size="10" Class="Normalc" Value="<%= Dcor %>">
<input Type="Hidden" Name="Linea" size="10" Class="Normalc" Value="<%= Linea %>">
<input Type="Hidden" Name="Sublinea" size="10" Class="Normalc" Value="<%= Sublinea %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
</td>
<td align="Right" Class="normal" bgcolor="#d8d8d8"><%= Formatnumber(cdbl(rs15("exirmul"))) %></td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs15("udminv") %></td>
<td align="left" Class="normal" bgcolor="#d8d8d8"><%= rs15("cveinv") %></td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs15("nominv") %></td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Costo" size="12" Class="Normalc" Value="<%= Csng(rs15("Cpmul")) %>" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Fentrega" size="12" Class="Normalc" Value="<%= date() + 1 %>" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="center" Class="normal" bgcolor="#d8d8d8"><input type="submit" value="Agregar" class="normal" style="background-color:#d8d8d8"></td>
</form>
</tr>
<%
RS15.MoveNext
Wend
End If
%>
<tr>
<td colspan="7" align="center">
<%
i=0
While i<RS15.PageCount
i=i+1
%>
<b><a href="Salccar.asp?pag=<%=i%>&Tmo=<%=Tmo%>&Provee=<%=Provee%>&Ate=<%=Ate%>&Cond=<%=Cond%>&Lab=<%=lab%>&Nota=<%=Nota%>&Prod=<%=Prod%>&Dcor=<%=Dcor%>&Linea=<%=Linea%>&Sublinea=<%=Sublinea%>&Alma=<%=Alma%>"><%=i%></a></b>
<%
Wend
%>
<input Type="Hidden" Name="Tmo" size="10" Class="Normalc" Value="<%= Tmo %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Ate" size="10" Class="Normalc" Value="<%= Ate %>">
<input Type="Hidden" Name="Cond" size="10" Class="Normalc" Value="<%= Cond %>">
<input Type="Hidden" Name="Lab" size="10" Class="Normalc" Value="<%= Lab %>">
<input Type="Hidden" Name="Nota" size="10" Class="Normalc" Value="<%= Nota %>">
</td>
</tr>
</table>
<%
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()
%>