20/03/2006, 11:45
|
| | | Fecha de Ingreso: octubre-2005
Mensajes: 85
Antigüedad: 19 años, 7 meses Puntos: 0 | |
muchas gracias u_goldman, pero tengo un form dentro de mi aplicación para sacar los reportes en la misma página, así que cuando el cliente elige facturar lo mando por una función javascript a otra página, tal vés viendo el código me entiendas, el problema es que no sé como enviar los distintos valores del checkbox a través de esta función u de otra manera.
Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Gonzalez Peñaherrera</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="template_css.css" rel="stylesheet" type="text/css">
<link href="admin_login.css" rel="stylesheet" type="text/css"></head>
<script language="JavaScript" type="text/JavaScript">
<!--
function prueba(idv,factv,opcg,ruc) {
window.open("factpn.asp?facturado="+factv+"&opcm="+opcg+"&ruc="+ruc+"&id="+idv,tarjet="_top")
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' debe contener una dirección e-mail.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' debe contener un número.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' debe contener un número entre'+min+' y '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es requerido.\n'; }
} if (errors) alert('Los siguientes datos son requeridos:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<body background="fondo_int.gif">
<%
session.lcid=1053
buscarc=Request("buscarc")
opc=Request("opc")
facturadoll=Request("facturado")
Dim Conn, Tabla
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=gp"
Set Tabla=Server.CreateObject("ADODB.recordset")
Temp = "Select * from tbl_persona_natural order by pn_nombres ASC"
Tabla.Open Temp, Conn
%>
<p> </p>
<p> </p><p> </p>
<table width="395" border="1" align="center" cellpadding="0" cellspacing="0" class="adminform">
<tr>
<td><table width="200" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td >
<div align="center"><IMG src="h_gp.gif" width="198" height="130" border="0" alt=""></div>
<br>
<div align="center" class="menuline"> <strong>Consulta de Rutas por Facturar - Persona Natural</strong></div></td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td align="center"><br>
<img src="images/addedit.png" width="48" height="48" border="0">
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<form name="form1" method="post" action="rutas_facturacion.asp">
<input name="acce" type="hidden" id="acce" value="ing123">
<div align="center">
<input class="botones2" type="submit" name="Submit32" value="Menú Facturación">
</div>
</form></td>
<td>
<form name="form3" method="post" action="verif2.asp">
<input name="ops" type="hidden" id="ops2" value="43">
<div align="center">
<input class="botones2" type="submit" name="Submit32" value="Menú Principal">
</div>
</form></td>
</tr>
</table>
<td ><div align="center" class="menuline"><strong>Consulta de Rutas por Facturar Persona Natural</strong></div>
<form name="form2" method="post" action="report_hojaruta_pn_fact.asp" onSubmit="MM_validateForm('buscarc','','R');return document.MM_returnValue">
<table width="388" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="366"><div align="center" class="formtxt">
<input name="acce2" type="hidden" id="acce4" value="<% Response.Write acce %>">
Seleccione del:
<select name="buscarc" class="cmb" id="buscarc">
<option value="">---Listado---</option>
<%
DO WHILE NOT Tabla.Eof
apellidos = Tabla ("pn_apellidos")
nombres = Tabla ("pn_nombres")
codigo = Tabla ("pn_no_doc_identidad")
If (buscarc = codigo) Then
Response.Write "<option value='"&codigo&"' selected>"&nombres&" "&apellidos&"</option>"
else
Response.Write "<option value='"&codigo&"'>"&nombres&" "&apellidos&"</option>"
end If
Tabla.MoveNext
LOOP
%>
</select>
<input name="opc" type="hidden" id="opc" value="1">
<input class="botones" type="submit" name="Submit23" value="Buscar">
</div></td>
</tr>
<tr>
<td class="cmb">
<%
If (opc=1) Then
Set ConexionBD = Server.CreateObject("ADOdb.Connection")
ConexionBD.Open "DSN=gp"
Set Familias = ConexionBD.Execute("select * from tbl_persona_natural WHERE pn_no_doc_identidad = '" & buscarc & "'")
If Not Familias.EOF Then
Response.Write("<br>")
Response.Write("<TABLE Border='0' align='center' width='366'>")
Response.Write("<TR><TD>")
Response.Write("<div class='formtxt'>Apellidos : " & Familias("pn_apellidos") & "<BR>" & " </div>")
Response.Write("<div class='formtxt'>Nombres: " & Familias("pn_nombres") & "<BR>" & " </div>")
Response.Write("<div class='formtxt'>I.D: " & Familias("pn_no_doc_identidad") & "<BR>" & " </div>")
Response.Write("</TD><TD>")
Response.Write("</TABLE>")
Response.Write("<br>")
End If
Set Articulos = ConexionBD.Execute("select * from tbl_pn_hoja_ruta WHERE pn_no_doc_identidad = '" & buscarc & "' and facturado like 'No' order by fecha ASC")
If Articulos.EOF Then
Response.Write("<br>")
Response.Write("<p class='formtxtmsg'>No hay rutas registradas</p>")
Else
Articulos.MoveFirst
%>
<div class="login">
<div class="form-block">
<%Do While Not Articulos.EOF %>
<div>Fecha: <%=Articulos("fecha")%> </div>
<div>Abogado: <%=Articulos("id_abogado")%> </div>
<div>Tramite: <%=Articulos("tramite") %> </div>
<div>Horas: <%=Articulos("no_horas") %> </div>
<div>Minutos: <%=Articulos("no_minutos") %> </div>
<div>Facturado: <%=Articulos("facturado") %></div>
<% idr=Articulos("id")%>
<%
if (Articulos("facturado")="Si") then
factv="No"
Else
factv="Si"
End If
opcm=1
%>
</p>
<table width="330" border="2">
<td width="50">
<input type="button" name="Submit2" value="Facturar" onClick="prueba('<%=idr%>','<%=factv%>','<%=opcm%>','<%=Familias("pn_no_doc_identidad")%>')"></td>
<td width="80">
</td>
</tr>
</table>
<%
totalh=Articulos("no_horas")+totalh
totalm=Articulos("no_minutos")+totalm
If(totalm>=60) Then
residuo=Int(totalm/60)
var=totalm Mod 60
Else
var=totalm
End If
Articulos.MoveNext
Response.Write("<hr>")
Loop
totalh=totalh+residuo
Response.Write("<div align='left' >Total de Horas: " & totalh & "<br>" & " </div>" & "Total de minutos: " & var)
%>
</div>
</div>
<%
End If
opcm=2
%>
<table width="330" border="2" align="center">
<td width="178">
<input type="button" name="Submit2" value="Facturar todo" onClick="prueba('<%=idr%>','<%=factv%>','<%=opcm%>','<%=Familias("pn_no_doc_identidad")%>')"></td>
</tr>
</table>
<%
End If
%>
</td>
</tr>
</table>
<p> </p>
<div align="center"><input class="botones" type="submit" name="Submit" value="Imprimir" onClick="javascript:print()"></div>
</form></td>
</tr>
</table>
</body>
</html>
|