<%@Language="VBScript"%>
<%
Option Explicit
%>
<%
Session.LCID = 2058
Dim Entrada
Entrada = Request("Entrada")
If Isnull(Entrada) or Entrada = "000000" or Entrada = "" then
Entrada = "000000"
else
entrada = entrada
end If
%>
<!--#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/carro.js"></script>
<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>
</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:80px; left:10">
<Center>
<b>Mantenimiento a Tabla de Recepciones</b>
<hr>
<a href="Mantenimiento.asp"><<< Regrear Al Menu de Mantenimientos </a>
<Form action="MtoRecepciones.asp" name="Buscae" method='get'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Recepcion: </td>
<td><input type="text" class="normalb" Value="<%= Entrada %>" name="Entrada" size="5" style="text-align:right;"></td>
<td> <input type="submit" value="Buscar" class="normalc"></td>
</tr>
</Table>
</form>
<%
Dim Rs11, Sql11, Rs12, Sql12
Dim Count, bg_color
If Isnull(Entrada) or Entrada = "000000" or Entrada = "" then
%>
Favor de Buscar Un Numero de Recepcion<br>
<%
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "select Numrenc, Ocorenc, Fecrenc, Prorenc, Nomprv, Ivarenc, desdiv, Tcarenc, Subrenc, Ivtrenc, TotRenc " &_
"from Crecenc, Proveedores, Monedas " &_
"where Numrenc = "& Entrada &" and Cveprv = Prorenc and cladiv = Monrenc;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof then
%>
<br>
El Numero de Recepcion <%= Entrada %> No Existe <br>
<%
Else
%>
<br>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<Tr>
<TD width="80" align="center" class="normalw" bgcolor="#006699">Recepcion </td>
<TD width="80" align="center" class="normalw" bgcolor="#006699">O.C. </td>
<TD width="80" align="center" class="normalw" bgcolor="#006699">Fecha </td>
<TD width="300" align="center" class="normalw" bgcolor="#006699">Proveedor </td>
</tr>
<Tr>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("NumRenc") %> </td>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("ocorenc") %> </td>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("fecRenc") %> </td>
<TD width="300" align="center" class="normalb" bgcolor="#FFFFFF">( <%= Rs11("proRenc") %> ) <%= Rs11("Nomprv") %></td>
</tr>
<Tr>
<TD width="80" align="center" class="normalw" bgcolor="#006699">Iva </td>
<TD width="80" align="center" class="normalw" bgcolor="#006699">Moneda </td>
<TD width="80" align="center" class="normalw" bgcolor="#006699">Tipo Cambio </td>
<TD width="300" align="center" class="normalw" bgcolor="#006699"> </td>
</tr>
<Tr>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("ivaRenc") %> %</td>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Rs11("desdiv") %> </td>
<TD width="80" align="center" class="normalb" bgcolor="#FFFFFF"><%= Formatnumber(Rs11("tcaRenc")) %> </td>
<TD width="300" align="center" class="normalb" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<br>
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Regrdet, numrdet, secrdet, desalm, codrdet, desmul, crerdet, punrdet " &_
"from crecdet, multialmacen, almacenes " &_
"where numrdet = "& entrada &" and almrdet = almmul and codrdet = artmul and almrdet = claalm order by regrdet;"
Rs12.Open Sql12,cn1,1,2
%>
<FORM action="MtoRecup.asp" name="frm" method='post'>
<input type="Hidden" Name="Entrada" value="<%= Entrada %>">
<table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#336699">
<td align="center">
<input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs12.recordcount%>)">
</td>
<td><font class="n_verdana">Partida </font></td>
<td><font class="n_verdana">Almacen </td>
<td bgcolor="#336699"><font class="n_verdana">Codigo </font></td>
<td><font class="n_verdana">Descripcion </td>
<td><font class="n_verdana">Cantidad </td>
<td><font class="n_verdana">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"><font class="n_verdana_simple"><% =Rs12("secrdet")%> </font></td>
<td align="right"><font class="n_verdana_simple"><% =Rs12("desalm")%> </font></td>
<td><font class="n_verdana_simple"><% =Rs12("codrdet")%> </font></td>
<td align="Left"><font class="n_verdana_simple"><% =Rs12("desmul")%> </font></td>
<td align="right"><font class="n_verdana_simple"><%= Formatnumber(Rs12("crerdet"))%> </font></td>
<td>
<input type="Text" name="txt_<%=i%>" value="<% = Rs12("punrdet")%>" size="7" disabled style="border:1px; text-align:Right; solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
<input type="Hidden" name="reg_<%=i%>" size="7" value="<%= Rs12("regrdet") %>" style="Text-align:right;" class="n_verdana_simple">
</td>
</tr>
<%
Rs12.Movenext
count=count+1
Next
%>
<tr>
<td colspan=5 align="Right" class="n_verdana_simple">
</Td>
<td align="Left" class="n_verdana_simple"><br>Subtotal: </td>
<td align="Right" class="n_verdana_simple"><br><%= Formatnumber(Rs11("Subrenc")) %></td>
</tr>
<tr>
<td colspan=5 align="Right" class="n_verdana_simple">
</Td>
<td align="Left" class="n_verdana_simple">Iva: </td>
<td align="Right" class="n_verdana_simple"><%= Formatnumber(Rs11("Ivtrenc")) %></td>
</tr>
<tr>
<td colspan=5 align="Right" class="n_verdana_simple">
</Td>
<td align="Left" class="n_verdana_simple">Total: </td>
<td align="Right" class="n_verdana_simple"><%= Formatnumber(Rs11("totrenc")) %></td>
</tr>
<tr>
<td colspan=7 align=center>
<input value="Aceptar" type="button" class="n_verdana_simple" onclick="frm_submit(document.frm,<%=Rs12.recordcount%>)" id=bt name=bt>
</td>
</tr>
</table>
<br>
</form>
<%
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()
%>