<%
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">
</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">
<center>
<br>
<%
Dim Rs11, Sql11
Dim Clacli, Nomcli, Anticipo
Dim Cliente, Pedido
Cliente = Request("Cliente")
Clacli = Cliente
Nomcli = Request("Nomcli")
Pedido = Request("Pedido")
Set Rs11 = server.CreateObject("ADODB.Recordset")
SQL11="select regcxcg, nfacxcg, frecxcg, salcxcg, desdiv, tcacxcg from cxcgen, monedas " &_
"where movcxcg = 2 and moncxcg = cladiv and salcxcg < -1 and clicxcg = '"& Cliente &"';"
Rs11.open Sql11,Cn1,1,2
If Rs11.EOF then
%>
No Existen Registros bajo Estos Criterios
<br>
<%
Else
%>
<Table border=0 cellspacing=0 cellpadding=1 bordecolor=#000000>
<TR>
<TD width="100" align="left" Class="Normalc"><b>Documento</b></td>
<TD width="100" align="left" Class="Normalb"><b>Fecha</b></td>
<TD width="100" align="left" Class="Normalb"><b>Saldo</b></td>
<TD width="100" align="left" Class="Normalb"><b>Moneda</b></td>
<TD width="100" align="left" Class="Normalb"><b>T. Cambio</b></td>
</Tr>
<%
Do While Not Rs11.Eof
Anticipo= Rs11("regcxcg")
%>
<TR>
<TD width="100" align="Right" Class="Normalb">
<a href="BclienteF.asp?Cliente=<%= Cliente %>&Pedido=<%= Pedido %>&Anticipo=<%= Anticipo %>"
onclick="window.opener.location.reload('FacturaN.asp?Cliente=<%= Cliente %>&Pedido=<%= Pedido %>&Anticipo=<%= Anticipo %>'); window.close()">
<%= Rs11("Nfacxcg") %>
</td>
<TD width="100" align="left" Class="Normalb"><%= Rs11("frecxcg") %></td>
<TD width="100" align="Right" Class="Normalb"><%= Formatnumber(Rs11("salcxcg")) %></td>
<TD width="100" align="Left" Class="Normalb"><%= Rs11("desdiv") %></td>
<TD width="100" align="Right" Class="Normalb"><%= Formatnumber(Rs11("tcacxcg")) %></td>
</tr>
<%
Rs11.Movenext
Loop
End If
%>
</table>
<Hr>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>