<%
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">
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="normal" style="position:absolute; top:60px; left:10">
<Center>
<b>Factura por Pedido:
<hr>
<%
Dim Rs10, sql10, Rs11, Sql11
Dim Numped, Clacli
Numped = Request("Numped")
set rs10 = server.CreateObject("ADODB.Recordset")
Sql10 = "Select * from Fpedenc where numfpede = "& Numped &";"
rs10.open sql10,cn1,1,2
If Rs10.Eof then
%>
Lo sentimos el Numero de Pedido <%= Numped %> No Existe.
<%
Else
While Not Rs10.Eof
set rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select clifremd,regfremd, nrefremd, secfremd, codfremd, cpefremd, cveinv, nominv, udminv " &_
"from Fremenc, Fremdet, Inventarios where NUMFREME = NREFREMD AND TIPOR <> 1 AND antfremd = "& Numped &" and cveinv = codfremd and cpefremd > 0 ORDER BY NREFREMD, SECFREMD;"
rs11.open sql11,cn1,1,2
If Rs11.Eof Then
%>
No Hay Partidas a Facturar del Pedido <%= Numped %>
<%
Else
Clacli = rs10("clifpede")
%>
<FORM action="Facclig.asp" name="frm" method='post'>
<%
Dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
Sql5 ="select * from Cxcgen, Monedas where movcxcg = 2 and cladiv = moncxcg and salcxcg < 0 and Clicxcg = '"& Clacli &"'"
rs5.Open SQL5, cn1
If Rs5.EOF then
%>
No Hay Anticipos por Aplicar
<input type="Hidden" name="Reganti" value="0" class="normalc">
<input type="Hidden" name="Anticipo" value="0" class="normalc">
<input type="Hidden" name="Tcanti" value="0" class="normalc">
<%
Else
%>
<SELECT NAME=RegAnti class=normalb>
<optgroup label=Seleccionado:>
<option value=0 Selected>0.00
<optgroup label=Anticipos:>
<%
while not rs5.EOF
%>
<OPTION value="<%= rs5("regcxcg") %>"><%= rs5("nfacxcg") %> - <%= Formatnumber(Cdbl(rs5("salcxcg")) * -1) %> <%= rs5("Desdiv") %></option>
<%
rs5.MoveNext
wend
%>
</select>
<input type="Text" name="Anticipo" value="0.00" class="normalc">
<input type="Text" name="Tcanti" value="0.00" class="normalc">
<%
End If
%>
<br>
<input type="Hidden" name="Esquema" value="<%= Rs10("esqfpede") %>" class="normalc">
<input type="Hidden" name="Cliente" value="<%= Rs10("clifpede") %>" class="normalc">
<input type="Hidden" name="Moneda" value="<%= Rs10("monfpede") %>" class="normalc">
<input type="Hidden" name="Numped" value="<% =rs10("numfpede")%>" >
<table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#336699">
<td align="center"><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs11.recordcount%>)"></td>
<td><font class="n_verdana">Cliente </font></td>
<td><font class="n_verdana">Remision </font></td>
<td><font class="n_verdana">Partida </td>
<td bgcolor="#336699"><font class="n_verdana">Clave </font></td>
<td><font class="n_verdana">Descripcion </td>
<td><font class="n_verdana">Cantidad </td>
<td><font class="n_verdana">U.M. </td>
</tr>
<%
dim count,bg_color
count = 0
For i = 0 to rs11.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,<%=rs11.recordcount%>,'txt_<%=i%>')">
</td>
<td class="n_verdana_simple" align=Right><% =rs11("clifremd")%> </td>
<td class="n_verdana_simple" align=Right><% =rs11("nrefremd")%> </td>
<td class="n_verdana_simple" align=Right><% =rs11("secfremd")%> </td>
<td class="n_verdana_simple" align=Left><% =rs11("codfremd")%> </td>
<td class="n_verdana_simple" align=Left><% =rs11("nominv")%> </td>
<td class="n_verdana_simple" align=Right><% =Formatnumber(rs11("cpefremd"))%> </td>
<td class="n_verdana_simple" align=Left><% =rs11("udminv")%> </td>
<td>
<input type="Hidden" name="txt_<%=i%>" value="<% = rs11("regfremd")%>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</td>
</tr>
<%
rs11.Movenext
count=count+1
Next
%>
<tr>
<td colspan=7 align=center>
<input value="Aceptar" type="button" onclick="frm_submit(document.frm,<%=rs11.recordcount%>)" id=bt name=bt>
</td>
</tr>
</table>
<br>
</form>
<HR>
<%
End If
Rs10.MoveNext
Wend
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>