<% 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">
<link rel=stylesheet href="vista.css">
<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("Debe Seleccionar por lo menos una partida")
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>
</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">
<%
Dim Conce, Provee
Conce = Request.Form("Conce")
Provee = Request.Form("Provee")
Dim rs10, sql10
Set rs10 = Server.CreateObject("ADODB.Recordset")
sql10="select regcxpg, nrecxpg, prvcxpg, movcxpg, doccxpg, moncxpg, salcxpg, cladiv, " &_
"Cveprv, Nomprv, desdiv from cxpgen, Monedas, proveedores " &_
"where movcxpg = 2 and prvcxpg = '"& Provee &"' and salcxpg < 0 and cladiv = moncxpg and prvcxpg = '"& Provee &"'" &_
"and cveprv = prvcxpg;"
rs10.Open sql10, cn1
%>
<hr>
<center>
<b>Cuentas por Pagar<br></b>
Aplicacion de Anticipos al Proveedor: <br>
( <%= Provee %> ) <%= rs10("Nomprv") %><br>
<hr>
<CENTER>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#d8d8d8>
<form name="Anticipos" action="cxpapanal.asp" method='post'>
<TR>
<td Class="normalc">Anticipo:</TD>
<td Class="normalc">
<select name="Anti" class="normalc">
<optgroup label="Anticipo - Saldo - Moneda">
<% While not rs10.EOF %>
<Option Value="<%= rs10("Regcxpg") %>" class="normalc">
<%= rs10("nrecxpg") %>
<%= FormatCurrency(rs10("salcxpg")) %>
<%= rs10("desdiv") %></option>
<%
rs10.MoveNext
wend
%>
</select>
</td>
</tr>
<td Class="normalc" colspan="2" Align=center>
<input type="Hidden" name=Conce Value="<%= conce %>">
<input type="Hidden" name=Provee Value="<%= Provee %>">
<input type="submit" Value="Seleccionar" Class="normalb">
</td>
</tr>
</form>
</table>
<%
Dim rs30, sql30, rs31, sql31
Dim Anti, Tca, Tipo, Regant, saldo
Anti = Request.form("anti")
set rs30 = server.CreateObject("ADODB.Recordset")
sql30 = "select regcxpg, movcxpg, prvcxpg, nrecxpg, frecxpg, fpacxpg, moncxpg, tcacxpg, " &_
"salcxpg, imtcxpg, numcxpc, descxpc, tipcxpc, cladiv, desdiv, tcadiv from cxpgen, cxpcon, Monedas " &_
"where prvcxpg = '"& Provee &"' and movcxpg = numcxpc and tipcxpc = 'C' and moncxpg = cladiv;"
rs30.open sql30,cn1,1,2
If rs30.EOF then
Response.Write("No Hay Partidas Para el Proveedor= "& Provee &"")
else
%>
<%
set rs31 = server.CreateObject("ADODB.Recordset")
sql31 = "select regcxpg, movcxpg, nrecxpg, salcxpg, moncxpg, cladiv, desdiv, tcadiv " &_
"from cxpgen, Monedas where regcxpg = '"& Anti &"' and moncxpg = cladiv;"
rs31.open sql31,cn1,1,2
If rs31.EOF then
RegAnt = 0
tca = 0
Saldo = 0
Response.Write("No Ha seleccionado Ningun Anticipo: ")
else
%>
<font class="normal">
Anticipo; ( <b> <%= FormatCurrency(rs31("salcxpg")) %> </b> <%= rs31("Desdiv") %> ) <br>
<%
tca = rs31("tcadiv")
RegAnt = rs31("regcxpg")
Saldo = rs31("salcxpg")
End if
%>
<FORM action="cxpgpant.asp" name="frm" method='post'>
Seleccione Las Cuentas a Pagar:<br>
<table border="0" cellspacing="0" cellpadding="0">
<input type="hidden" name="prove" value="<%= Provee %>" >
<input type="hidden" name="Conce" value="<%= Conce %>" >
<input type="Hidden" name=Tca Value="<%= Tca %>">
<input type="Hidden" name=RegAnt Value="<%= RegAnt %>">
<input type="Hidden" name=Saldo Value="<%= Saldo %>">
<tr bgcolor="#336699">
<td align="center"><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs30.recordcount%>)"></td>
<td><font class="n_verdana">Concepto </font></td>
<td><font class="n_verdana">F. Aplic. </td>
<td><font class="n_verdana">Moneda </td>
<td><font class="n_verdana">T.C. </td>
<td><font class="n_verdana">Saldo </td>
<td><font class="n_verdana">Mx </td>
<td><font class="n_verdana">Dias</td>
</tr>
<%
dim fac, fdoc, dat
fac = date()
fdoc = rs30. fields("fpacxpg")
dat = fac - fdoc
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" ><input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=rs30.recordcount%>,'txt_<%=i%>')">
<input type="hidden" name="txt_<%=i%>" value="<% =rs30("movcxpg")%>" >
<input type="Hidden" name="Reg_<%=i%>" value="<% =rs30("REGcxpg")%>" >
</td>
<td><font class="n_verdana_simple"><% =rs30("descxpc")%> </font></td>
<td align=right><font class="n_verdana_simple"><% =rs30("fpacxpg")%> </font></td>
<td align=left><font class="n_verdana_simple"><% =rs30("desdiv")%> </font></td>
<td align=right><font class="n_verdana_simple"><% =formatcurrency(rs30("tcacxpg"))%> </font></td>
<td align=right><font class="n_verdana_simple"><% =formatcurrency((rs30("salcxpg")/rs30("tcadiv")))%> </font></td>
<td align=right><font class="n_verdana_simple"><% =formatcurrency(rs30("salcxpg"))%> </font></td>
<td align=right><font class="n_verdana_simple"><% = dat %> </font></td>
<td><input type="hidden" name="txt_<%=i%>" value="<% = rs30("movcxpg")%>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple"></td>
</tr>
<%
rs30.Movenext
count=count+1
Next
%>
<tr>
<td align="center">
</td>
<td colspan=8 align=center><input value="Aceptar" class="n_verdana_simple" type=Button onclick="frm_submit(document.frm,<%=rs30.recordcount%>)" id=bt name=bt></td>
</tr>
</table>
</form>
<br>
</div>
</body>
</html>
<%
End If
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>