<%
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 CXPM where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("cxpm")%>.asp"><img src="Image/<%=rs5.fields("cxpn")%>.gif" border=0></a>
<%
rs5.MoveNext
loop
%>
</div>
<div style="position:absolute; top:100px; left:10">
<hr>
<center>
<b>Cuentas por Pagar
</center>
Alta de Cuentas Por Pagar::::::
<hr>
<b>
<CENTER>
<Form action="Cxpalcxp.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="Claprv" size=14 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td Class="Normalb">Cliente:</td>
<td><input type="text" class="normalb" name="Nomprv" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td>  <input type="submit" value="Buscar" class="normalb"></td>
</tr>
</table>
</form>
<hr>
<b>
<CENTER>
<Form action="CxpAgcxp.asp" name="CxpAgcxp" method='post'>
<Table border=0 cellspacing=2 cellpadding=0 class="normal">
<tr>
<td Class="normal">Concepto:</td>
<td>
<%
Dim Claprv, Nomprv
Claprv = Request("Claprv")
Nomprv = Request("Nomprv")
Dim rs6, sql6
set rs6 = server.CreateObject("ADODB.Recordset")
Sql6 ="select * from cxpcon where stacxpc = 'U' order by numcxpc;"
rs6.Open SQL6, cn1
response.write "<SELECT NAME=conce class=normalb>"
while not rs6.EOF
response.write "<OPTION value=" & rs6("numcxpc") & ">" & rs6("descxpc") & "| " & Rs6("Tipcxpc")
rs6.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td Class="normal">Proveedor:</td>
<td>
<%
Dim rs7, sql7
set rs7 = server.CreateObject("ADODB.Recordset")
Sql7 ="select * from proveedores "&_
" where Cveprv like '%" & UCase(Request("Claprv")) & "%' and "&_
"Nomprv like '%" & UCase(Request("Nomprv")) & "%' and staprv = 'a' order by rfcprv"
rs7.Open SQL7, cn1
response.write "<SELECT NAME=Prove class=normalb>"
while not rs7.EOF
response.write "<OPTION value=" & rs7("cveprv") & ">" & rs7("nomprv")
rs7.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td Class="normal">Moneda:</td>
<td>
<%
Dim rs8, sql8
set rs8 = server.CreateObject("ADODB.Recordset")
Sql8 ="select * from monedas order by cladiv"
rs8.Open SQL8, cn1
response.write "<SELECT NAME=Mone class=normalb>"
while not rs8.EOF
response.write "<OPTION value=" & rs8("Cladiv") & ">" & rs8("desdiv")
rs8.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td colspan=2 align=center><input type="submit" value="Guardar" class="normaln"></td>
</tr>
</table>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>