Ayuda para calcular suma en una consulta.

06/02/2005 - 11:16 por ago | Informe spam
Hola.

Tengo una consulta a la bd y ésta pagina los resultados, mi problema es
que necesito que me sume
las cantidades de la consulta, pero lo máximo que consigo es que me
ponga la primera cantidad como
total de la suma .

Creo que el problema reside en

<%Function suma(importe_factura)
total_final=importe_factura+suma%>

Adjunto el código para que lo reviséis o lo uséis si os sirve.

Saludos -- CÓDIGO-

<%@ LANGUAGE = VBScript %>
<%Response.Expires=0%>
<% Set Ob_Conn=Server.CreateObject("ADODB.Connection")

%>




<%
Dim oConn
Dim oRs
Dim filePath
Dim Index

filePath = Server.MapPath("bd2.mdb")


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath



Set oRs = oConn.Execute("SELECT * FROM ClientesJunio2 WHERE [Id de
cliente]='" & request("ID") & "'")
%>






<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Gestión de carteras - <%= oRs("Nombre") %></TITLE>
<SCRIPT language=JavaScript>
var browser;
if (navigator.platform.indexOf('MacPPC') >= 0) {
if (navigator.appVersion.indexOf('MSIE 5') >= 0) {
document.writeln('<LINK rel="stylesheet" href="ie.css"
type="text/css">');
} else {
document.writeln('<LINK rel="stylesheet" href="nt.css"
type="text/css">');
}
}
else
{
if((navigator.appName=="Microsoft Internet
Explorer")&&(parseInt(navigator.appVersion)>=4))
browser='ie4+';
else
if((navigator.appName=="Netscape")&&(parseInt(navigator.appVersion)>=4))

browser='nn4+';
else
browser='sorry dude';
if (browser=='ie4+')
document.writeln('<LINK rel="stylesheet" href="ie.css"
type="text/css">');
else
document.writeln('<LINK rel="stylesheet" href="nt.css"
type="text/css">');
}
</SCRIPT>
<SCRIPT>




function entrar(src,color_entrada) {
if (!src.contains(event.fromElement)) {
src.style.cursor = "hand";
src.bgColor = color_entrada;
src.FontColor="ff0000";
}
}
function sortir(src,color_default) {
if (!src.contains(event.toElement)) {
src.style.cursor = "default";
src.bgColor = color_default;
}
}
function stattitle(texto)
{
if (texto.length==0) texto="www..com";
self.status=texto;
return(true);
}
stattitle('');
function MM_checkBrowser(NSmin,IEmin)
{
var newURL = '', version = parseFloat(navigator.appVersion);
if (navigator.appName.indexOf('Netscape') != -1)
{
if (version < NSmin) alert("Hemos detectado que el navegador que estás
usando es una versión anterior a la 4.x.La visualización de
Publieuropa.com puede que no sea correcta.");
}
else
if (navigator.appName.indexOf('Microsoft') != -1)
{
if (version < IEmin) alert("Hemos detectado que el navegador que
estás usando es una versión anterior a la 4.x.La visualización de
Publieuropa.com puede que no sea correcta.");
}
else
alert("Hemos detectado que el navegador que estás usando es una
versión anterior a la 4.x.La visualización de Publieuropa.com puede
que no sea correcta.");
document.MM_returnValue = false;
}

var isNav, isIE;
var coll = "";
var styleObj = "";


if (parseInt(navigator.appVersion) >=4) {
if (navigator.appName == "Netscape") {
isNav = true
} else {

isIE = true;
coll = "all.";
styleObj = ".style";
}
}
else
{
alert("Hemos detectado que el navegador que estás usando es una
versión anterior a la 4.x.La visualización de Publieuropa.com puede
que no sea correcta.");
}

</SCRIPT>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>

<META content=0 http-equiv=Expires>
<META content=no_cache http-equiv=Pragma>
<STYLE type=text/css>TD.Estandard {
BACKGROUND-COLOR: #dcddee; COLOR: #000000; FONT-FAMILY: Verdana;
FONT-SIZE: 12px
}
TD.Cabecera {
BACKGROUND-COLOR: #a7ceca; COLOR: #333366; FONT-FAMILY: Verdana;
FONT-SIZE: 13px; FONT-WEIGHT: bold
}
INPUT.Boton {
BACKGROUND-COLOR: #a7ceca; BORDER-BOTTOM: #000000 2px solid;
BORDER-LEFT: #000000 2px solid; BORDER-RIGHT: #000000 2px solid;
BORDER-TOP: #000000 2px solid; COLOR: #ffffff; FONT-FAMILY: Verdana;
FONT-SIZE: 13px; FONT-WEIGHT: bold
}
A:link {
COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 11px; TEXT-DECORATION:
none
}
A:visited {
COLOR: #000000; FONT-SIZE: 11px; TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
A:hover {
COLOR: #e16c00
}
.jump {
TEXT-DECORATION: none
}

</STYLE>

<META content="MSHTML 5.00.2314.1000" name=GENERATOR></HEAD>
<TBODY>
<TR background="imatges/fondo_rayas.gif">
<TD align=right bgColor=#ffffff height>
<BODY bgColor=#ffffff>

<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="95%">
<TBODY>
<TR>
<TD align=left class=taula colSpan=5
style="PADDING-LEFT: 4px; PADDING-TOP: 4px" vAlign=center
width="70%"><A
href="/"><IMG border=0
src="LOGO.GIF"></A><IMG src="shim.gif"> </TD></TR>
<TR>
<TD align=middle bgColor=black class=taula colSpan=5><FONT
color=white
face=verdana><B><%= oRs("Id de cliente") %>&nbsp;&nbsp;<%oRs("Nombre") %></B></FONT></TD></TR>
<TR>
<TD class=Cabecera
colSpan=5>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Información
</TD></TR>
<TR>
<TD align=right class=Estandard>Representante:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<%= oRs("IdRepte") %></TD></TR>
<TR>
<TD align=right class=Estandard>Teléfono:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<%= oRs("NúmTeléfono")
%></TD></TR>
<TR>
<TD align=right class=Estandard>Fax:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<%= oRs("NúmFax") %> </TD></TR>
<TR>
<TD align=right class=Estandard>Persona de contacto:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<%= oRs("NombreContacto") %>
</TD></TR>
<TR>
<TD align=right class=Estandard>País:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;España </TD></TR>
<TR>
<TD align=right class=Estandard>Documentos:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<%= oRs("Hiper") %> </TD></TR>
<!-- <TR>
<TD align=right class=Estandard>e-mail:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<A href="mailto:<%= oRs("em@il")
%>"
target=_blank><%= oRs("em@il") %></a></TD></TR> -->
<TR>
<TD align=right class=Estandard>e-mail:&nbsp; </TD>
<TD class=Estandard colSpan=4>&nbsp;<A href="<%= oRs("em@il") %>"
target=_blank><%= oRs("em@il") %></A> </TD></TR>
<TR>
<TD align=right class=Estandard
vAlign=top><B>Observaciones:&nbsp;</B> </TD>
<TD align=justify class=Estandard colSpan=4
style="PADDING-LEFT: 4px; PADDING-TOP: 4px" vAlign=top
width="30%">&nbsp;<%= oRs ("Observaciones") %></TD></TR>
<TR>
<TD align=right class=Estandard vAlign=top><B>Dynamic?:&nbsp;</B>
</TD>
<TD align=justify class=Estandard colSpan=4
style="PADDING-LEFT: 4px; PADDING-TOP: 4px" vAlign=top
width="30%">&nbsp;<%= oRs ("Dynac1") %></TD></TR>
<TR>
<TD colSpan=5>&nbsp; </TD></TR>

<%Function suma(importe_factura)
total_final=importe_factura+suma%>

<TR>
<TD align=center class=Cabecera2 width="15%"><B>Facturas en
Gestión&nbsp;</B>&nbsp;</TD>
<TD align=center class=Cabecera width="15%"><B>Resto de
Facturas&nbsp;</B>&nbsp; </TD>
<TD class=Cabecera>&nbsp; </TD>
<TD class=Cabecera>&nbsp;</TD></TR>
<TR>
<TD align=center class=Estandard>&nbsp;<B><%Response.Write
total_final%>&nbsp;€</B></TD>
<TD class=Estandard>&nbsp;
</TD>
<TD class=Estandard>&nbsp; </TD>
<TD class=Estandard>&nbsp;</TD></TR>
<TR>
<TD colSpan=4>&nbsp; </TD></TR></TABLE>



<%End Function%>



<%
Set oRs = oConn.Execute("SELECT * FROM
FacturasJunio WHERE [Id de cliente] LIKE'%" & request("ID") & "%'
AND Cobrado=off ")
%>
<%suma(oRs ("Importe")) %>





<%'
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<% Next %>
<tr>
<TR vAlign=top>
<TD class=cabecera colSpan width="95%"></TD></TR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="95%">
<TR bgColor=#ECF2FC onmouseout="sortir(this,'#ECF2FC');"
onmouseover="entrar(this,'d4e5ff');">
<TD width="2%">&nbsp;</TD>
<TD align=right class=azul
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Número de Factura');return true;"
vAlign=center
width="3%"><%=oRs("Id de factura") %></A> </TD>
<TD align=right class=azul
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Fecha de Factura');return true;"
vAlign=center
width="4%"><%=oRs ("Fecha fra") %></A> </TD>
<TD align=right class=azul colSpan=2
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Fecha de Vencimiento');return true;"
vAlign=center width="3%"><%=oRs ("Fecha Vto") %></TD>
<TD align=center class=azul colSpan=2
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Forma de Pago');return true;"
vAlign=center width="2%"><%=oRs ("RU") %></TD>
<TD align=right class=azul colSpan=2
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Importe de la Factura');return true;"
vAlign=right width="3%"><%=oRs ("Importe") %> €</TD>
<TD align=left class=azul colSpan=2
onclick="window.location='';"
onmouseout="stattitle(''); return true;"
onmouseover="stattitle('Situación de la Factura');return
true;"
vAlign=right width="15%"><%=oRs ("Situación") %></TD>
</TR></TABLE>



</tr>
<% oRs.MoveNext
Loop
%>

<%
oRs.close
'oConn.close
%>
</tr></TABLE>
<TR>
</TBODY>
<SCRIPT>
document.write("<br><center><form action='SimpleQuery5.asp'><INPUT
TYPE='Submit' VALUE='volver' NAME='enviar'></form></center>");
</SCRIPT>
</BODY></HTML>

Preguntas similare

Leer las respuestas

Search Busqueda sugerida