<%
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:95px; left:10">
<hr>
<center>
<b>Cuentas por Pagar
</center>
Alta de Cuentas Por Pagar:
<hr>
<CENTER>
<b>
<%
Dim Prove, Mone, Conce
Dim rs20, sql20, rs21, sql21, sql22, rs22
Conce = request.Form("Conce")
Prove = request.Form("Prove")
Mone = request.Form("Mone")
set rs20 = server.CreateObject("ADODB.Recordset")
Sql20 ="select * from cxpdet, proveedores where prvcxpd = '"& Prove &"' and cveprv = prvcxpd;"
rs20.Open SQL20, cn1
if rs20.EOF then
Response.Write("No existen Documentos <br>Para El Proveedor: <br>"& Prove &"")
else
set rs21 = server.CreateObject("ADODB.Recordset")
Sql21 ="select * from cxpcon where numcxpc = "& Conce &";"
rs21.Open SQL21, cn1
set rs22 = server.CreateObject("ADODB.Recordset")
Sql22 ="select * from monedas where cladiv = "& mone &";"
rs22.Open SQL22, cn1
%>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<TR>
<td Class="normalc">Proveedor:</TD>
<td Class="normalc">( <%= rs20.fields("prvcxpd") %> ) <%= rs20.fields("nomprv") %></TD>
</TR>
<TR>
<td Class="normalc">Moneda:</TD>
<td Class="normalc"> <%= rs22.fields("DESdiv") %></TD>
</TR>
<TR>
<td Class="normalc">Concepto:</TD>
<td Class="normalc">( <%= rs21.fields("numcxpc") %> ) <%= rs21.fields("DEScxpc") %></TD>
</TR>
</TABLE>
<hr>
<Form action="CxpAlgua.asp" name="CxpAglgua" method='post'>
<Table border=0 cellspacing=2 cellpadding=0 class="normal">
<tr>
<td Class="normal">Recepcion:</td>
<td Class="normal">
<%
Dim rs6, sql6
set rs6 = server.CreateObject("ADODB.Recordset")
Sql6 ="select REGCXPG, movcxpg, nrecxpg, prvcxpg, impcxpg, salcxpg, moncxpg from cxpgen where (movcxpg = '2' or movcxpg = '19' or movcxpg=1) and prvcxpg = '"& Prove &"' and salcxpg < 0;"
rs6.Open SQL6, cn1
response.write "<SELECT NAME=Rece class=normalb>"
while not rs6.EOF
response.write "<OPTION value=" & rs6("REGCxpg") & ">" & rs6("nrecxpg") & " - " & FormatCurrency(rs6("impcxpg")) & " - " & formatcurrency(rs6("salcxpg"))
rs6.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
<tr>
<td Class="normal">Documento:</td>
<td Class="normal">
<input type="text" class="normalb" name="Docu" size=15 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</TR>
<tr>
<td Class="normal">F. Aplicacion:</td>
<td Class="normal">
<input type="text" class="normalb" name="fapli" value=<%= date () %> size=10 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</TR>
<tr>
<td Class="normal">F. Vencimiento:</td>
<td Class="normal">
<input type="text" class="normalb" name="fvenc" value=<%= date () %> size=10 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</TR>
<tr>
<td Class="normal">Importe:</td>
<td Class="normal">
<input type="text" class="normalb" name="Impor" value="0.00" size=10 onChange="javascript:this.value=this.value.toUpperCase();">
<input type="Hidden" class="normalb" name="Prove" value="<%= Prove %>" size=13>
<input type="Hidden" class="normalb" name="Moncxp" value="<%= rs20.fields("moncxpd") %>" size=13>
<input type="Hidden" class="normalb" name="Mone" value="<%= mone %>" size=13>
<input type="Hidden" class="normalb" name="Conce" value="<%= Conce %>" size=13>
</td>
</TR>
<tr>
<td Class="normal" colspan=2 align=center>
<input type="submit" value="Guardar" class="normalb">
</td>
</TR>
</table>
</div>
</body>
</html>
<%
end if
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>