<%
Option Explicit
%>
<%
Session.LCID = 2058
Response.ContentType = "application/vnd.ms-excel"
%>
<!--#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>
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
<center>
<%
Dim Rs10, sql10, Rs11, Sql11
Dim Code
Code = Request("Code")
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="Select * from Inventarios where Cveinv = '"& Code &"';"
rs10.open sql10,cn1,1,2
set rs11 = server.createobject("ADODB.Recordset")
sql11 = "SELECT * FROM movinv, almacenes, movcon WHERE codminv = '"& code &"' AND claalm = almminv AND tmominv = cvecim ORDER BY almminv, regminv desc;"
rs11.open sql11, cn1,1,2
%>
<br><br>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td class="normalb"><%= code %> </td>
<td class="normalb"><%= rs10("nominv") %> </td>
</tr>
<tr>
<td class="normalb">Unidad de Salida: </td>
<td class="normalb"><%= rs10("udminv") %></td>
<td class="normalb">Stock Minimo: </td>
<td class="normalb"><%= formatnumber(rs10("smininv")) %> </td>
</tr>
<tr>
<td class="normalb">Unidad de Entrada: </td>
<td class="normalb"><%= rs10("udminv") %></td>
<td class="normalb">Stock Maximo: </td>
<td class="normalb"><%= formatnumber(rs10("smaxinv")) %> </td>
</tr>
<tr>
<td class="normalb">Existencias: </td>
<td class="normalb"><%= formatnumber(rs10("exirinv")) %> </td>
</tr>
<tr>
<td Class="Normalb">Ultima Costo: </td>
<td Class="Normalb"><%= FormatNumber(Rs10("ultcinv")) %> </td>
<td Class="Normalb">Promedio: </td>
<td Class="Normalb"><%= FormatNumber(Rs10("cpinv")) %> </td>
</tr>
</table>
<hr>
<!--- Esta es la tabla donde van las descripciones de todos los movimientos que tiene el producto, en si, su Kardez --->
<table height="100%" width="800px" border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td class="normalb" width="80">Fecha </td>
<td class="normalb" width="80">Movimiento </td>
<td class="normalb" width="80">Documento </td>
<td class="normalb" width="80">Almacen </td>
<td class="normalb" width="80">E/S </td>
<td class="normalb" width="80">Cant. E/S </td>
<td class="normalb" width="80">Existencia </td>
<td class="normalb" width="80">Ult. Costo </td>
<td class="normalb" width="80">Promedio </td>
</tr>
<!-- Aqui va el Kardex --->
<%
Dim Color, Colorfila
While Not Rs11.EOF
if colorfila = 0 then
Color= "#ece5b6"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if
%>
<tr>
<td class="normalb" width="80" align="left" bgcolor=<%= color %>><%= rs11("fecminv") %> </td>
<td class="normalb" width="80"align="left" bgcolor=<%= color %>><%= rs11("dcocim") %> </td>
<td class="normalb" width="60" align="right" bgcolor=<%= color %>><%= rs11("docminv") %> </td>
<td class="normalb" width="80" align="left" bgcolor=<%= color %>><%= rs11("desalm") %> </td>
<td class="normalb" width="80" align="left" bgcolor=<%= color %>><%= rs11("tipcim") %> </td>
<%
Dim numero
If rs11("tipcim") = "S" then
numero = cdbl(rs11("canminv"))
numero = numero * - 1
%>
<td class="normalb" width="50" align="right" bgcolor=<%= color %>><%= formatnumber(numero) %> </td>
<%
Else
%>
<td class="normalb" width="50" align="right" bgcolor=<%= color %>><%= formatnumber(rs11("canminv")) %> </td>
<% End If %>
<td class="normalb" width="50" align="right" bgcolor=<%= color %>><%= formatnumber(rs11("eximinv")) %> </td>
<td class="normalb" width="50" align="right" bgcolor=<%= color %>><%= formatnumber(rs11("ucominv")) %> </td>
<td class="normalb" width="50" align="right" bgcolor=<%= color %>><%= formatnumber(rs11("cpminv")) %> </td>
</tr>
<%
Rs11.MoveNext
Wend
%>
</table>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>