<%
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>
</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 & "') ORDER BY NREMM ASC"
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 Alt="<%=rs5.fields("fremn")%>"></a>
<%
rs5.MoveNext
loop
%>
<%
Response.Flush
%>
</div>
<div class="normal" style="position:absolute; top:100px; left:1">
<center>
<hr>
<BR>
<B>***** CAPTURA DE FLETES *****</B>
<%
Dim Rs11, Sql11
Dim Flete, Remision, Documento
Dim ImporteT, FleteT
Flete = Request("Flete")
Documento = Session.sessionid
Remision = Request("remision")
ImporteT = 0
FleteT = 0
If Flete = "" Or Isnull(Flete) then
Flete = 0
Else
Flete = Flete
End If
If Remision = "" Or Isnull(Remision) then
Remision = 0
Else
Remision = Remision
End If
%>
<Form action="Fremfle.asp" name="Fremfle" method='post'>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Importe Flete:</td>
<td align="Center" Class="normal" bgcolor="#d8d8d8">
<input type="text" name="Flete" value="<%= Formatnumber(Flete) %>" class="normalb" size="7" style="Text-align:Right;">
</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">
<input type="submit" value="Capturar" class="normalb">
</td>
</tr>
</Table>
</form>
<hr>
<%
If Flete = 0 then
%>
<%
Else
%>
<Form action="Fremfled.asp" name="Fremfled" method='post'>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Remision:</td>
<td align="Center" Class="normal" bgcolor="#d8d8d8">
<input type="text" name="Remision" value="<%= Remision %>" class="normalb" size="7" style="Text-align:Right;">
<input type="Hidden" name="Flete" value="<%= Flete %>" class="normalb" size="7" style="Text-align:Right;">
</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">
<input type="submit" value="Agregar" class="normalb">
</td>
</tr>
</Table>
</form>
<%
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="Select Idfletem, RemFletem, Fecfletem, Clifletem, Nomcli, desdiv, Tcafletem, Subfletem, CosFletem " &_
"from Fletem, clientes, Monedas where sesfletem = "& Documento &" and Clifletem = Clacli and Monfletem = cladiv " &_
"Order by remfletem;"
Rs11.open Sql11,Cn1,1,2
If Rs11.Eof then
Else
%>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Remision</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Fecha</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Clave</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Cliente</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Moneda</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">T. Cambio</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Subtotal</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Flete</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Accion</td>
</tr>
<%
Do While Not Rs11.Eof
%>
<tr>
<td align="Right" Class="normal"><%= Rs11("Remfletem") %></td>
<td align="Left" Class="normal"><%= Rs11("Fecfletem") %></td>
<td align="Left" Class="normal"><%= Rs11("Clifletem") %></td>
<td align="Left" Class="normal"><%= Rs11("Nomcli") %></td>
<td align="Left" Class="normal"><%= Rs11("Desdiv") %></td>
<td align="right" Class="normal"><%= Formatnumber(Rs11("Tcafletem")) %></td>
<td align="Right" Class="normal"><%= FormatNumber(Rs11("subfletem")) %></td>
<td align="Right" Class="normal"><%= Formatnumber(Rs11("Cosfletem")) %></td>
<td align="Center" Class="normal">
<a href="Fledel.asp?regi=<%= rs11("Idfletem") %>&Flete=<%=Flete%>&Remision=<%=Remision%>">
<img src="image/Eliminar.gif" border="0" height="12px" alt="Eliminar"></a>
</td>
</tr>
<%
ImporteT = Cdbl(ImporteT) + Cdbl(Rs11("Subfletem"))
FleteT = Cdbl(FleteT) + Cdbl(Rs11("Cosfletem"))
Rs11.Movenext
loop
%>
<tr>
<td align="Left" Class="normal"></td>
<td align="Left" Class="normal"></td>
<td align="Left" Class="normal"></td>
<td align="Left" Class="normal"></td>
<td align="Left" Class="normal"></td>
<td align="Left" Class="normal"></td>
<td align="Right" Class="normal"><%= FormatNumber(ImporteT) %></td>
<td align="Right" Class="normal"><%= Formatnumber(FleteT) %></td>
</tr>
<tr>
<td align="Center" Class="normal" colspan="9">
<Form action="FremfleG.asp" name="FremfleG" method='post'>
<input type="Hidden" name="FleteT" value="<%= FleteT %>" class="normalb" size="7" style="Text-align:Right;">
<input type="Hidden" name="ImporteT" value="<%= ImporteT %>" class="normalb" size="7" style="Text-align:Right;">
<input type="Hidden" name="Documento" value="<%= Documento %>" class="normalb" size="10" style="Text-align:Right;">
<input type="Submit" value="Guardar" class="normalb">
</Form>
</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()
%>