[Resolvido] Soma no resultado de busca

vitorlouzada · Janeiro 10, 2008

Estou precisando muito da ajuda de vocês.

Tenho um sistema, que busca os dados inseridos e manda os resultados em forma de relatório por cliente, porém eu queria que desse uma soma "total" dos valores de cada pedido que foi inserido.

tipo, segue o código do relatório, da busca que será realizada:

CODE

<%
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then

  Response.Write "<FORM name=""form_edit_" & Cont & """ action=""" & pagina_alteracao & """ method=post>"

  Response.Write "<TD  align=""center"" nowrap style=""background-color: gainsboro""  nowrap> "

  If indice <> "" Then Response.Write "<input type=""hidden"" name=""indice"" value=""" & indice & "=" & objRS.Fields.Item(indice).Value & """>"

  Response.Write "<INPUT type=hidden name=recordno value=""" & (objRS.AbsolutePosition) & """>"

  Response.Write "<INPUT type=hidden name=strQ value=""" & strQ & """>"

  Response.Write "<INPUT type=image src=""imagens\edit.gif"" alt=""Alterar Registro"" name=alterar value=alterar>"

  If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then

  Response.Write " <IMG src=""imagens\delete.gif"" alt=""Excluir Registro"" name=delete border=0 style=""cursor:hand"" OnClick=""confirm_delete('form_edit_" & Cont & "')"">"

  End If

  Response.Write " </TD>"

  Response.Write "</FORM>"

End If

%>
 
    <TD><%=(objRS.Fields.Item("Código").Value)%></TD>

    <TD><%=(objRS.Fields.Item("cliente").Value)%></TD>

    <TD><%=(objRS.Fields.Item("data").Value)%></TD>

    <TD><%=(objRS.Fields.Item("hora").Value)%></TD>

    <TD><%=(objRS.Fields.Item("preco").Value)%></TD>

    <TD><%=(objRS.Fields.Item("status").Value)%></TD>

    <TD><%=(objRS.Fields.Item("placa").Value)%></TD>

    <TD><%=(objRS.Fields.Item("renavam").Value)%></TD>

    <TD><%=(objRS.Fields.Item("tipo").Value)%></TD>

    <TD><%=(objRS.Fields.Item("categoria").Value)%></TD>

    <TD><%=(objRS.Fields.Item("descricao").Value)%></TD>

    <TD><%=(objRS.Fields.Item("material").Value)%></TD>

    <TD><%=(objRS.Fields.Item("medida").Value)%></TD>

    <TD><%=(objRS.Fields.Item("lacre").Value)%></TD>

    <TD><%=(objRS.Fields.Item("observacao").Value)%></TD>

    <TD><%=(objRS.Fields.Item("cidades").Value)%></TD>

    <TD><%=(objRS.Fields.Item("estados").Value)%></TD>

  </TR>
 
<%

  objRS.MoveNext

  If objRS.Eof then Exit For

Next

Set Cont = Nothing

%>

queria somar todos os resultados apresentados na tabela de preco e apresentar em um campo a parte...

como que eu faço?????

Maux · Janeiro 10, 2008

cria uma variavel que dentro do loop soma o valor desejado, ex:

<TD><%

soma = soma + objRS("preco")

(objRS.Fields.Item("preco").Value)%></TD>

respois do loop você exibe o resultado

RESULTADO: <%=soma%>

mais existe alguns problemas..

se o campo preço não for do tipo número ou moéda você vai precisa filtrar a string e pegar soh os numeros...

caso for numero ta di boa...

ehehe

abrass

vitorlouzada · Janeiro 11, 2008

cria uma variavel que dentro do loop soma o valor desejado, ex:

<TD><%

soma = soma + objRS("preco")

(objRS.Fields.Item("preco").Value)%></TD>

respois do loop você exibe o resultado

RESULTADO: <%=soma%>

mais existe alguns problemas..

se o campo preço não for do tipo número ou moéda você vai precisa filtrar a string e pegar soh os numeros...

caso for numero ta di boa...

ehehe

abrass

pode inserir direto no código acima? não entendi como eu coloco isso lá... me dá uma ajuda ai...

Maux · Janeiro 11, 2008

faz assim:

CODE

<%
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then

  Response.Write "<FORM name=""form_edit_" & Cont & """ action=""" & pagina_alteracao & """ method=post>"

  Response.Write "<TD  align=""center"" nowrap style=""background-color: gainsboro""  nowrap> "

  If indice <> "" Then Response.Write "<input type=""hidden"" name=""indice"" value=""" & indice & "=" & objRS.Fields.Item(indice).Value & """>"

  Response.Write "<INPUT type=hidden name=recordno value=""" & (objRS.AbsolutePosition) & """>"

  Response.Write "<INPUT type=hidden name=strQ value=""" & strQ & """>"

  Response.Write "<INPUT type=image src=""imagens\edit.gif"" alt=""Alterar Registro"" name=alterar value=alterar>"

  If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then

  Response.Write " <IMG src=""imagens\delete.gif"" alt=""Excluir Registro"" name=delete border=0 style=""cursor:hand"" OnClick=""confirm_delete('form_edit_" & Cont & "')"">"

  End If

  Response.Write " </TD>"

  Response.Write "</FORM>"

End If

%>
 
    <TD><%=(objRS.Fields.Item("Código").Value)%></TD>

    <TD><%=(objRS.Fields.Item("cliente").Value)%></TD>

    <TD><%=(objRS.Fields.Item("data").Value)%></TD>

    <TD><%=(objRS.Fields.Item("hora").Value)%></TD>

    <TD><%

             total = total + objRS.Fields.Item("preco").Value

               response.write (objRS.Fields.Item("preco").Value)%></TD>

    <TD><%=(objRS.Fields.Item("status").Value)%></TD>

    <TD><%=(objRS.Fields.Item("placa").Value)%></TD>

    <TD><%=(objRS.Fields.Item("renavam").Value)%></TD>

    <TD><%=(objRS.Fields.Item("tipo").Value)%></TD>

    <TD><%=(objRS.Fields.Item("categoria").Value)%></TD>

    <TD><%=(objRS.Fields.Item("descricao").Value)%></TD>

    <TD><%=(objRS.Fields.Item("material").Value)%></TD>

    <TD><%=(objRS.Fields.Item("medida").Value)%></TD>

    <TD><%=(objRS.Fields.Item("lacre").Value)%></TD>

    <TD><%=(objRS.Fields.Item("observacao").Value)%></TD>

    <TD><%=(objRS.Fields.Item("cidades").Value)%></TD>

    <TD><%=(objRS.Fields.Item("estados").Value)%></TD>

  </TR>
 
<%

  objRS.MoveNext

  If objRS.Eof then Exit For

Next

Set Cont = Nothing

%>

TOTAL: <%=total%>

vitorlouzada · Janeiro 11, 2008

Parcialmente deu certo...

Só no <%=total%> onde deveria dar a soma dos preços... ele tá repetindo todos os preços...

por exemplo:

1010 onde seria 20...

tem como fazer algo para somar? ao invés de repetir os valores?

Mário Monteiro · Janeiro 11, 2008

provavelmente esta apenas concatenando

converta para numero

total = CDBL(total) + CDBL(objRS.Fields.Item("preco").Value)

veja se da certo

vitorlouzada · Janeiro 15, 2008

Opa!!!

Muito obrigado, deu certo!

Mário Monteiro · Janeiro 15, 2008

de nada

parabens pela solução

vitorlouzada · Janeiro 15, 2008

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CDBL'

/lojacachoeiro/admin/consulta.asp, line 432

Rapaz... quando eu mandei para o servidor, deu esse erro.. a linha 432 é justamente a linha que você me enviou....

você sabe o que eu posso fazer para solucionar ?

Mário Monteiro · Janeiro 15, 2008

os numeros sao sempre inteiros ou nao?

se sim troque para CINT

verifique tambem se tem valor mesmo

vitorlouzada · Janeiro 15, 2008

hum... então deve ser isso... alguns campos estão sem o preço, todos devem ter preço né???

beleza!!

Então deu tudo certo.

Mário Monteiro · Janeiro 15, 2008

isso mesmo

ponha pelo menos zero

abraços

Arquivado

[Resolvido] Soma no resultado de busca

Recommended Posts

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Fóruns

Tempo Real

Informação importante