<%
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="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 CXcM where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("cxcm")%>.asp"><img src="Image/<%=rs5.fields("cxcn")%>.gif" border=0 ALT="<%=rs5.fields("cxCn")%>"></a>
<%
rs5.MoveNext
loop
%>
</div>
<div style="position:absolute; top:95px; left:10">
<hr>
<center>
<br>
<Form action="CxcEdoCli.asp" name="FindCli" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Clave:</td>
<td><input type="text" class="normalb" name="Clacli" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td Class="Normalb">Cliente:</td>
<td><input type="text" class="normalb" name="Nomcli" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>  <input type="submit" value="Buscar" class="normalb"></td>
</tr>
</table>
</form>
<hr>
<FORM action="Cxcformato.asp" name="CxcEdoa" method='post'>
<b>Estado de Cuenta Por Cliente</b>
<table cellspacing="2" cellpadding="2" border=0 align="center">
<tr>
<td class="normal">Cliente:</td>
<td>
<%
Dim rs10, sql10
Dim Nomcli, Clacli
Clacli = Request("Clacli")
Nomcli = Request("Nomcli")
If Nomcli = "" and Clacli = "" Then
%>
<SELECT NAME=Cliente class=normalb>
<optgroup label="CLIENTE:">
<OPTION value=" " selected>Favor de Buscar un Cliente</option>"
</select>
<%
Else
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 ="select Clacli, Nomcli From clientes where nomcli like '%" & UCase(Request("Nomcli")) & "%' " &_
"and clacli like '%" & UCase(Request("clacli")) & "%' order by nomcli asc;"
rs10.Open SQL10, cn1
'Move to the first record in the recordset
response.write "<SELECT NAME=Cliente class=normalb>"
response.write "<optgroup label=CLIENTE:>"
while not rs10.EOF
response.write "<OPTION value='" & rs10("Clacli") & "'>" & rs10("claCli") & " - " & rs10("nomcli") & "</option>"
rs10.MoveNext
wend
response.write "</select>"
End If
%></td>
</tr>
<tr>
<td class="normal">Moneda:</td>
<td>
<%
Dim rs11, sql11
set rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select Cladiv, Desdiv, Tcadiv from Monedas order by Cladiv;"
rs11.Open SQL11, cn1
'Move to the first record in the recordset
response.write "<SELECT NAME=Moneda class=normalb>"
response.write "<optgroup label=MONEDA:>"
response.write "<option value=0 Selected>" & "TODAS"
while not rs11.EOF
response.write "<OPTION value=" & rs11("Cladiv") & ">" & rs11("Desdiv") & "</option>"
rs11.MoveNext
wend
response.write "</select>"
%>
</Td>
</tr>
<tr>
<td class="normal">Saldos:</td>
<td Class="normal"><input Type="radio" name="Saldo" Value="0" Class="normal" checked>Todos
<input Type="radio" name="Saldo" Value="1" Class="normal">Negros
<input Type="radio" name="Saldo" Value="2" Class="normal">Rojos</td>
</tr>
<tr>
<td class="normal">Formato:</td>
<td Class="normal"><input Type="radio" name="Formato" Value="0" Class="normal">Excel
<input Type="radio" name="Formato" Value="1" Class="normal">Word
<input Type="radio" name="Formato" Value="2" Class="normal" checked>Pdf</td>
</tr>
<tr>
<td Class="normal" colspan="2" align="center">
<input Type="Hidden" Name="Empresa" value="<%= Negocio %>" size="12" class="normal">
<input type="image" src="image/b1.jpg" value="Accesar">
</td>
</tr>
</Table>
</form
</center>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>