<%
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>
<script language="javascript">
stat=1
function frm_submit(frm,rec)
{
var msgDel,check
check = 0
msgDel = "Desea continuar ?"
if (rec == 1)
{
if(frm.chk.checked == false){
check = 0
}
else{
check= 1
}
}
else if(rec > 1 )
{
for(i=0;i<frm.chk.length;i++)
{
if(frm.chk[i].checked == true)
{
check = 1;
break;
}
}
}
if (check == 0)
{
alert("Active la casilla para continuar")
return;
}
else if(check == 1)
{
ok = confirm(msgDel)
if (ok == false)
{
return;
}
else
{
frm.submit()
}
}
}
function en_dis(frm,RecCount,val){
var chkLength
// tg= document.getElementById(tag_id1).className
//if (tg =='slected'){
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className=''")
//}}
//else{
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className='slected'")
//}
//}
//tg_id.className='slected'
if (RecCount>1){
chkLength=frm.chk.length
}
else
{
chkLength=1
frm.chkMain.checked=frm.chk.checked
if (stat==1){
eval("document.frm."+val+".disabled=false")
stat=0
}
else{
eval("document.frm."+val+".disabled=true")
stat=1
}
return;
}
for(i=0;i<=chkLength-1;i++){
if(frm.chk[i].checked==false){
frm.chkMain.checked=false
break;
}
else{
frm.chkMain.checked=true
}
}
tt= eval("document.frm."+val+".disabled")
if (tt== true){
eval("document.frm."+val+".disabled=false")
}
else
eval("document.frm."+val+".disabled=true")
}
function chk_all(frm,RecCount){
var chkLength
if (RecCount>1)
{
chkLength=frm.chk.length
}
else if (RecCount==1)
{
chkLength=1
frm.chk.checked=frm.chkMain.checked
if (stat==1){
document.frm.txt_0.disabled=false
stat=0
}
else{
document.frm.txt_0.disabled=true
stat=1
}
return;
}
if(frm.chkMain.checked==true){
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=true
//frm.txt[i].disabled= false
eval("frm.txt_"+i+".disabled= false")
}
}
else
{
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=false
//frm.txt[i].disabled= true
eval("frm.txt_"+i+".disabled= true")
}
}
return;
}
</script>
<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 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>
<b>Cuentas por Cobrar
</center>
Aplicacion de Pagos del Cliente:
<hr>
<CENTER>
<b>
<%
Dim Cliente, Mone, Conce, Docu, Tcac, Importe
Dim rs20, sql20, rs21, sql21, sql22, rs22
Tcac = request.querystring("Tcac")
Conce = request.querystring("Conce")
Cliente = request.querystring("Cliente")
Mone = request.querystring("Mone")
Docu = request.querystring("Docu")
Importe = Request("Importe")
set rs20 = server.CreateObject("ADODB.Recordset")
Sql20 ="select clacli, nomcli from clientes where clacli = '"& Cliente &"';"
rs20.Open SQL20, cn1
set rs21 = server.CreateObject("ADODB.Recordset")
Sql21 ="select * from cxccon where numcxcc = "& 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">Cliente:</TD>
<td Class="normalc">( <%= rs20.fields("clacli") %> ) <%= rs20.fields("nomcli") %></TD>
</TR>
<TR>
<td Class="normalc">Concepto:</TD>
<td Class="normalc">( <%= rs21.fields("numcxcc") %> ) <%= rs21.fields("DEScxcc") %></TD>
</TR>
<TR>
<td Class="normalc">Documento:</TD>
<td Class="normalc"><%= Docu %></TD>
</TR>
<TR>
<td Class="normalc">Importe:</TD>
<td Class="normalc"><%= Formatnumber(Importe) %> </TD>
</TR>
<TR>
<td Class="normalc">Moneda:</TD>
<td Class="normalc"><%= rs22("Desdiv") %> <%= Tcac %></TD>
</TR>
</TABLE>
<hr>
<%
Dim Rojo
dim Docto, Subtotal, Ivaf, Total, Tmx, Tfac
Dim rs10, sql10
Total = 0
Tmx = 0
Tfac = 0
Docto = Session.SessionID
Dim Pega, Tpega
set rs10 = server.CreateObject("ADODB.Recordset")
sql10 = "SELECT * FROM cxcdtem, cxcGEN, monedas Where sescxct = " & Docto & " and regcxcG = rancxcd and moncxct = cladiv;"
rs10.open sql10,cn1,1,2
%>
<TABLE border=1 cellspacing=1 cellpadding=1 bordercolor=#c0c0c0>
<tr>
<td class="normalc"><B>Factura.</td>
<td class="normalc"><B>Moneda</td>
<td class="normalc"><B>Tcambio</td>
<td class="normalc"><B>Docto</td>
<td class="normalc"><B>Refer</td>
<td class="normalc"><B>F. Doc</td>
<td class="normalc"><B>F. APli</td>
<td class="normalc"><B>Saldo</td>
<td class="normalc"><B>Captura</td>
<td class="normalc"><B>T. Cam</td>
<td class="normalc"><B>MX</td>
<td class="normalc"><B>V Fact</td>
<td class="normalc"><B>Per/Gan</td>
<td class="normalc" colspan="2" align=center><B>Accion</td>
</tr>
<%
do until rs10.eof
If cdbl(Rs10("pegacxct")) > 0 or cdbl(Rs10("pegacxct")) < 0 then
Rojo = "<b><Font color=#E61610>"
Else
Rojo ="<Font color=#000000>"
End If
%>
<tr>
<FORM action="cxcdtmod.asp" name="cambia" method='post'>
<td Class="normalc" align=right><%=rs10.fields("faccxct")%></td>
<td Class="normalc" align=right><%=rs10.fields("desdiv")%></td>
<td Class="normalc" align=right><%=Formatcurrency(rs10.fields("tcacxct"),4)%></td>
<td Class="normalc" align=right><%=rs10.fields("refcxct")%></td>
<td Class="normalc" align=right><%=rs10.fields("doccxct")%></td>
<td Class="normalc" align=right><%=rs10.fields("frecxct")%></td>
<td Class="normalc" align=right><%=rs10.fields("fpacxct")%></td>
<td Class="normalc" align=right><%=Formatcurrency(rs10.fields("salcxct"))%></td>
<td Class="normalc" align=right>
<input type="text" name="Impc" value="<%=rs10("IMccxct")%>" size=12 class="normalb" Style="Text-align:Right">
</td>
<td Class="normalc" align=right>
<input type="text" name="TcaDoc" value="<%=rs10("tcccxct")%>" size=12 class="normalb" Style="Text-align:Right">
</td>
<td Class="normalc" align=right><%=Formatcurrency(rs10.fields("MXCcxct"))%></td>
<td Class="normalc" align=right><%= Rojo %><%=Formatcurrency(rs10.fields("imdcxct"))%></td>
<td Class="normalc" align=right><%=Formatnumber(rs10.fields("pegacxct"))%></td>
<td class="normalc" align=right>
<input type="Hidden" name="regcxc" value="<%=rs10.fields("regcxct")%>">
<input type="Hidden" name="Cliente" value="<%=Cliente%>">
<input type="Hidden" name="Mone" value="<%=Mone%>">
<input type="Hidden" name="Conce" value="<%=Conce%>">
<input type="Hidden" name="Docu" value="<%=Docu%>">
<input type="Hidden" name="Tcac" value="<%= Tcac %>">
<input type="Hidden" name="Importe" value="<%= Importe %>">
<input type="Hidden" name="Tfactura" value="<%= Rs10("Tcacxct") %>">
<input type="image" src="image/modificar.gif" value="Accesar">
</td>
</form>
<FORM action="cxcdtdel.asp" name="Quita" method='post'>
<td>
<input type="Hidden" name="regcxc" value="<%=rs10.fields("regcxct")%>">
<input type="Hidden" name="Cliente" value="<%=Cliente%>">
<input type="Hidden" name="Mone" value="<%=Mone%>">
<input type="Hidden" name="Conce" value="<%=Conce%>">
<input type="Hidden" name="Docu" value="<%=Docu%>">
<input type="Hidden" name="Tcac" value="<%= Tcac %>">
<input type="Hidden" name="Importe" value="<%= Importe %>">
<input type="image" src="image/Eliminar.gif" value="Accesar">
</td>
</FORM>
</tr>
<%
rs10.movenext
loop
%>
<%
rs10.close
%>
<tr>
<FORM action="cxctgen.asp" name="frm" method='post'>
<td align=center colspan=16>
<input type="hidden" name="Cliente" value="<%= Cliente %>" size=2>
<input type="hidden" name="Mone" value="<%= Mone %>" size=2>
<input type="hidden" name="Conce" value="<%= Conce %>" size=2>
<input type="Hidden" name="Docu" value=<%= docu %> size=7>
</td>
</tr>
<%
dim sql30, rs30
set rs30 = server.CreateObject("ADODB.Recordset")
sql30 = "SELECT * FROM cxcdtem Where (sescxct = " & Docto & ");"
rs30.open sql30,cn1,1,2
%>
<tr bgcolor="#336699">
<td align="center" Colspan=1><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs30.recordcount%>)"></td>
<td colspan=16><font class="n_verdana">Active la Casilla Para Confirmar</font></td>
</tr>
<%
dim count,bg_color
count = 0
For i = 0 to rs30.RecordCount - 1
if (count Mod 2= 0) then bg_color="#ffffff" else bg_color="#EFF5F3" end if
%>
<tr bgcolor="<%=bg_color%>" >
<td align="center" colspan =16><input type="hidden" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=rs30.recordcount%>,'txt_<%=i%>')">
<input type="hidden" name=<%=i%> value="<% =rs30("regcxct")%>" size =2>
<input type="hidden" name="fac_<%=i%>" value="<% =rs30("Faccxct")%>" size =2>
<input type="hidden" name="regi_<%=i%>" value="<% =rs30("rancxcd")%>" size =2>
<input type="hidden" name="Pega_<%=i%>" value="<% =rs30("pegacxct")%>" size =2>
<input type="hidden" name="con_<%=i%>" value="<%= Conce %>" size =2>
<input type="hidden" name="txt_<%=i%>" value="<% = rs30("regcxct")%>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple" size =2></td>
</tr>
<%
rs30.Movenext
count=count+1
Next
%>
<tr>
<td align="center">
</td>
<td colspan=16 align=center>
<%
Dim rsa, sqla
dim Totales, msg, Tx, Pergan
set rsa = server.CreateObject("ADODB.Recordset")
sqla = "SELECT sum(mxccxct) as Total, sum(pegacxct) as Pergan FROM cxcdtem Where (sescxct = " & Docto & ");"
rsa.open sqla,cn1,1,2
Totales = rsa("Total")
Pergan = Rsa("pergan")
If (Cdbl(Totales)) > ((Cdbl(Importe) * Cdbl(tcac)) + .1) then
msg = "El Total de las Facturas no puede ser mayor al Pago"
tx = "hidden"
else
msg = " "
Tx = "Button"
End IF
%>
<%= Formatnumber(Cdbl(Totales) - Cdbl(Pergan)) %>- <%= Importe %>
<br>
<input value="Aceptar" type="<%= Tx %>" onclick="frm_submit(document.frm,<%=rs30.recordcount%>)" id=bt name=bt>
<%= msg %>
<br>
</td>
</td>
</tr>
</Form>
</table>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>