30/09/2013, 09:20
|
| | Fecha de Ingreso: septiembre-2009
Mensajes: 15
Antigüedad: 15 años, 3 meses Puntos: 0 | |
Respuesta: Sumar los textbox de varios registros usando javascritpt De todos modos sigo el consejo y pongo todo mi código.
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=2)">
<meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=3)">
<LINK href="estilos2.css" rel=stylesheet>
<title>Cobrar Recibos</title>
<LINK REL="SHORTCUT ICON" href="http://www.administracionesvallesol.es/images/sol.ico">
<meta name=“viewport” content="width=320" />
</head>
<body>
<script>
Sub Sumar()
if IsNumeric(document.all("Importe").value) and IsNumeric(document.all("Importe").value) then
document.all("Total").value = CDbl(document.all("Importe").value) + CDbl(document.all("Importe").value)
else
document.all("Total").value = ""
end if
End Sub
</script>
<font face="Verdana">
<%
Desde=Request("Desde")
Asta=Request("Asta")
Fecha1= Date()
Anio1=(Right(Fecha1,4))
Anio2=Anio1-1
Anio3=Anio1-2
If Desde="" Then
Desde="01/01/"&Anio3
End If
If Asta="" Then
Asta="31/12/"&Anio1
End If
%>
</font>
<table border="0" width="100%" id="table1">
<tr>
<td valign="top">
<table border="0" width="100%" id="table6">
<tr>
<td align="center" bgcolor="#790000" width="50%" valign="top">
<b><font face="Verdana" color="#FFFFFF">COBRAR RECIBOS</font></b></td>
</tr>
<tr>
<td align="center" width="50%" valign="top">
<form method="POST" action="Cobrar2.asp?Comunidad=<%=Request("Comunida d")%>&Com=<%=Request("Com")%>">
<table border="0" width="80%" id="table9">
<tr>
<td bgcolor="#C0C0C0">Desde</td>
<td bgcolor="#C0C0C0">
<input type="text" name="Desde" size="20" value="<%Response.Write""&Desde&""%>"></td>
<td bgcolor="#C0C0C0">Hasta</td>
<td bgcolor="#C0C0C0">
<input type="text" name="Asta" size="20" value="<%Response.Write""&Asta&""%>"></td>
<td bgcolor="#C0C0C0">
Nombre</td>
<td bgcolor="#C0C0C0">
<input type="text" name="Nombre" size="33" value="<%=Request("Nombre")%>"></td>
<td bgcolor="#C0C0C0">
Cuenta</td>
<td bgcolor="#C0C0C0">
<input type="text" name="Cuenta" size="14" value="<%=Request("Cuenta")%>"><input type="submit" value="Filtrar" name="B1"></td>
</tr>
</table>
</form>
<table border="0" width="100%" id="table8">
<tr>
<td width="7%" align="center">
<font face="Verdana" size="2" color="#790000">Cliente</font></td>
<td width="8%" align="center">
<font face="Verdana" size="2" color="#790000">
Fecha</font></td>
<td width="10%" align="center">
<font face="Verdana" size="2" color="#790000">
Concepto</font></td>
<td width="4%">
<p align="center">
<font face="Verdana" size="2" color="#790000">Entrega</font></td>
<td width="2%">
<p align="center">
</td>
<%
Session.LCID = 7178
Com=Request("Com")
Nombre=Request.form("Nombre")
Cuenta=Request.form("Cuenta")
Desde=Request.form("Desde")
Asta=Request.form("Asta")
Desde=month(Desde)&"/"&day(Desde)&"/"&year(Desde)
Asta=month(Asta)&"/"&day(Asta)&"/"&year(Asta)
Set obj_Conn = Server.CreateObject ("ADODB.Connection")
Set obj_RS = Server.CreateObject ("ADODB.RecordSet")
Obj_Conn.Open ""& Com &""
If Nombre="" Then
SQL= "select * From Recibos Where tipo_documento<>'"&"P"&"' And cuenta Like '%" & Cuenta &"%' And Fecha Between #"&Desde&"# And #"&Asta&"# Order By Fecha Asc"
Else
SQL= "select * From Recibos Where tipo_documento<>'"&"P"&"' And Propietario Like '%" & Nombre &"%' And Fecha Between #"&Desde&"# And #"&Asta&"# Order By Fecha Asc"
End If
Obj_RS.Open SQL, Obj_Conn, 3,3
If Obj_Rs.eof Then
%><% Else %>
<%Do While Not Obj_RS.eof%>
<%
iCount = iCount + 1
If iCount Mod 2 = 0 Then
'Color 1
sRowColor = "#FFFFFF"
Else
'Color 2
sRowColor = "#D5C89B"
End If
%>
<script>
function calcula(){
TOTAL.value = eval(UNO.value)+eval(DOS.value)+eval(TRES.value);
RESTA.value = eval(ENTREGA.value)-eval(TOTAL.value);
}
</script>
</tr>
<tr bgcolor="<%Response.Write ""& sRowColor & "" %>">
<td width="7%" align="center">
<font face="Verdana" size="2" color="#790000">
<form method="POST" action="CobrarSi.asp?Comunidad=<%=Request("Comunid ad")%>&Com=<%=Request("Com")%>">
<font face="Verdana" size="2" color="#FFFFFF">
<b>
<input name="Cuenta" size="10" style="border-width:0px; background-color:<%Response.Write ""& sRowColor & "" %>" value="<%=Obj_RS("Cuenta")%>" tabindex="8"></b></font></td>
<td width="8%">
<font face="Verdana" size="2" color="#790000">
<%=Obj_RS("Fecha")%>
</font></td>
<td width="10%">
<font face="Verdana" size="2" color="#790000">
<%=Obj_RS("Concepto")%>
</font>
</td>
<td width="4%">
<input type="textbox" value="0" name="Importe" id="importe<%=Obj_RS("clave_registro")%>" onchange="Calcula()" size="7" tabindex="1">
</td>
<td width="2%">
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font face="Verdana" size="2" color="#790000">
<input type="text" name="clave" size="1" value="<%=Obj_RS("clave_registro")%>" style="visibility: hidden"></font></td>
<%
Obj_RS.MoveNext
Loop
%>
</tr>
<%End If
Set Obj_RS = Nothing
SET Obj_Conn = Nothing
%>
<tr>
</tr>
</table>
<table border="1" width="60%" id="table10">
<tr>
<td>
Fecha</td>
<td>
<input type="text" name="FechaC" size="8" value="<%Response.Write""&Fecha1&""%>"></td>
<td>
<INPUT onclick=javascript: SumarColumna('importe', 1); value="Total" type=button name=button2></td>
<td>
<input type="text" id="total" size="8" name="Total" value="0"></td>
<td>Entrega</td>
<td><input type="text" size="3" id="ENTREGA" value="0" onChange="calcula();"></td>
<td>
Cambio</td>
<td><input type="text" size="15" id="RESTA" name="T1"></td>
<td>Modo</td>
<td>
<SELECT NAME="Modo" size="1" tabindex="1" style="border: 1px solid #0099CC; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
<%
Tipo="2"
grado="3"
Com=Request("Com")
Set Modo_Conn = Server.CreateObject ("ADODB.Connection")
Set Modo_RS = Server.CreateObject ("ADODB.RecordSet")
Modo_Conn.Open ""& Com &""
SQL= "Select * From cuentas_contables Where Tipo>("&Tipo&") and grado=("&grado&") Order By Cuenta Asc"
Modo_RS.Open SQL, Obj_Conn, 3,3
If Modo_Rs.eof Then %>
<% Else %>
<%Do While Not Modo_RS.eof%>
<OPTION VALUE="<%=Modo_RS("cuenta")%>"><%=Modo_RS("denomin acion")%></OPTION>
<%
Modo_RS.MoveNext
Loop
%>
<%End If
Modo_Rs.Close
Modo_Conn.Close
Set Modo_RS = Nothing
SET Modo_Conn = Nothing
%>
</SELECT>
</td>
<td>
<input type="submit" value="Cobrar" name="B2" style="float: right"></td></form>
</tr>
</table>
<p>
<%
Obj_RS.MoveNext
Loop
%>
<% End If
Obj_Rs.Close
Obj_Conn.Close
Set Obj_RS = Nothing
SET Obj_Conn = Nothing
%>
</tr>
</td>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html> |