Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcelo Pescador

Calculo de colunas

Recommended Posts

Boa noite, tenho um campo que se chama "vl_a_vista", esse campo ele já calcula o valor total, eu preciso agora de duas coisas: 1º calcular o valor total do outro campo "vl_a_prazo" e somar os dois campos no final. "vl_a_vista" + "vl_a_prazo". Segue o código:

 

<% 
'----------------- Define o número de registros por página ----------------------------

Const TamanhoPagina = 1000 
set rsQuery = Server.CreateObject( "ADODB.RecordSet" ) 

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 
rsQuery.Open"select * from hospedagem order by codigo desc", Conn 

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1 
select case Request.QueryString( "modo" ) 

       case "proxima" 
            Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount ) 
       case "anterior" 
            Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 ) 
       case "pagina" 
            if isNumeric( request.QueryString("numero") ) then 
               Session("PaginaAtual") = cint( request.QueryString("numero") ) 
               Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 ) 
            end if 
end select 

rsQuery.AbsolutePage = Session("PaginaAtual")
codigo=rsQuery("codigo") 
%>
<table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
<tr bordercolor="000000">
<% 
dim totali
totali = 0
item  = 1 
do while item <= TamanhoPagina and not rsQuery.eof 
codigo=rsQuery("codigo")
%>
<% 
For n = 0 To limite %>
<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
codigo=rsQuery("codigo")
vl_a_vista = rsQuery("vl_a_vista")
if isnumeric(vl_a_vista) then
totali = totali + vl_a_vista
end if
%>


                <td width="30" bordercolor="#666666" bgcolor="#6699CC"><div align="center" class="style9"><%=rsQuery("codigo")%></div></td>
                <td width="323" height="10" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">  <%=rsQuery("hospede")%></div></td>
                <td width="156" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">  <%=rsQuery("tipo")%></div></td>
                <td width="88" bordercolor="666666" bgcolor="#6699CC"><div align="right" class="style9"><%=rsQuery("vl_a_vista")%><span class="style9">,00</span></div></td>
                <td width="91" align="right" bordercolor="666666" bgcolor="#6699CC"><span class="style9"><%=rsQuery("vl_a_prazo")%><span class="style9">,00</span></span></td>
<% rsQuery.Movenext
item = item + 1 
n = n + 1
loop %>
                <% next %>
              </tr>
              <% loop %>
          </table></td>
      </tr>
      <tr>
        <td colspan="3"> </td>
      </tr>
      <tr>
        <td colspan="3"><table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
          <tr>
            <td width="514" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
              <div align="right">Valor Total :</div>
            </div></td>
            <td width="89" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
              <div align="right" class="style8"><%=totali%>,00</div>
            </div></td>
            <td width="89" align="right" bgcolor="#6699CC" class="cellstyle"><span class="style8"><%=totalj%>,00</span></td>
          </tr>
        </table>

Alguém poderia me ajudar ? Agradeço antecipadamente.

Compartilhar este post


Link para o post
Compartilhar em outros sites

que erro apresenta?

Compartilhar este post


Link para o post
Compartilhar em outros sites

não apresenta erro, só não sei como fazer para somar o outro campo "vl_a_prazo, pois o "vl_a_vista" já está somando.

 

  Em 16/10/2010 at 12:02, 'Marcelo Pescador' disse:

não apresenta erro, só não sei como fazer para somar o outro campo "vl_a_prazo, pois o "vl_a_vista" já está somando.

 

Esse é o código que soma o campo "vl_a_vista", segue abaixo:

 

<% 
dim totali
totali = 0
item  = 1 
do while item <= TamanhoPagina and not rsQuery.eof 
codigo=rsQuery("codigo")
%>
<% 
For n = 0 To limite %>
<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
codigo=rsQuery("codigo")
vl_a_vista = rsQuery("vl_a_vista")
if isnumeric(vl_a_vista) then
totali = totali + vl_a_vista
end if
%>

Agora preciso fazer somar o campo "vl_a_prazo" e no final somar os dois valores para dar o total.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Depois de calculado o valor a vista, precisará fazer uma rotina para também calcular o valor a prazo, e isso você terá que desenvolver, pois somente voce sabe qual a taxa de juros, amortização, qual o prazo máximo, etc... que seu cliente trabalha.

 

E depois de feita essa rotina, no final, sendo para somar os dois valores, seria algo do tipo:

valorfinal = valoravista+valoraprazo

 

Claro que terá que formatar as casas decimais e etc... mais depois de montada as rotinas isso é fácil.

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 16/10/2010 at 16:28, 'Vinicius Ianni' disse:

Depois de calculado o valor a vista, precisará fazer uma rotina para também calcular o valor a prazo, e isso você terá que desenvolver, pois somente voce sabe qual a taxa de juros, amortização, qual o prazo máximo, etc... que seu cliente trabalha.

 

E depois de feita essa rotina, no final, sendo para somar os dois valores, seria algo do tipo:

valorfinal = valoravista+valoraprazo

 

Claro que terá que formatar as casas decimais e etc... mais depois de montada as rotinas isso é fácil.

 

Não preciso nada de tx de juros de nada disso, somente fazer a rotina para calcular a coluna "vl_a_prazo" e dar o valor final só isso.

 

Bom dia,

 

Alguém pode me ajudar pra fazer essa rotina de calculo ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Explique melhor como seria feito este calculo do valor final

 

Não está apresentando nenhum erro, nem de logica, mostrando valores que não deveriam?

Compartilhar este post


Link para o post
Compartilhar em outros sites
  Em 19/10/2010 at 12:29, 'Mário Monteiro' disse:

Explique melhor como seria feito este calculo do valor final

 

Não está apresentando nenhum erro, nem de logica, mostrando valores que não deveriam?

 

Essa rotina que postei calcula o valor a vista, preciso de uma outra que calcule o valor a prazo e no final somar os dois, não apresenta erro pois eu não fiz, não sei como fazer, eu tentei utilzar a mesda que tenho do a vista para calcular e ele não calcula.

Compartilhar este post


Link para o post
Compartilhar em outros sites

mas porque o valor a prazo seria somado ao valor a vista?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Para calcular o valor a prazo, você precisa do valor total, esse você já calcula certo ?

 

Supondo que o valor a prazo será calculado na mesma pagina que o valor total, basta utilizar a variavel que armazena o valor total e soma-la a variavel do valor a prazo ou realizar o calculo do valor a prazo e assim ter esse valor:

 

valorprazo = (valortotal + 100)

valorprazo = (valortotal*0,125)

valorprazo = (valortotal + (indice_de_taxa_aplicada_aplicada_sobre_numero_de_parcelas)

 

Lembrando que as variaveis precisam ser do mesmo tipo ou precisarão ser convertidas para que não apresente erros.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Gente o que preciso e isso:

 

 

Item Cliente Tipo Hospedagem Pgto a vista Pagamento a prazo

 

1 Fulano Hospedagem Express 100,00 200,00

 

2 Fulano Hospedagem Express 100,00 200,00

 

3 Fulano Hospedagem Express 100,00 200,00

---------------------

 

Sub Total 300,00 600,00

--------------------------------------------------------------------

Total 900,00

 

Ou seja a coluna que tem Pgto a vista já está calculando o que preciso e que a coluna pagamento a prazo tb some e no final de tudo, somar os dois valores.

 

Segue novamente o código:

 

<% 
dim totali
totali = 0
item  = 1 
do while item <= TamanhoPagina and not rsQuery.eof 
codigo=rsQuery("codigo")
%>

<% For n = 0 To limite %>

<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
codigo=rsQuery("codigo")
vl_a_vista = rsQuery("vl_a_vista")
if isnumeric(vl_a_vista) then
totali = totali + vl_a_vista
end if
%>


                <td width="30" bordercolor="#666666" bgcolor="#6699CC"><div align="center" class="style9"><%=rsQuery("codigo")%></div></td>
                <td width="323" height="10" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9"><%=rsQuery("hospede")%></div></td>
                <td width="156" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9"> <%=rsQuery("tipo")%></div></td>
                <td width="92" bordercolor="666666" bgcolor="#6699CC"><div align="right" class="style9"><%=rsQuery("vl_a_vista")%></div></td>
                <td width="87" align="right" bordercolor="666666" bgcolor="#6699CC"><span class="style9"><%=rsQuery("vl_a_prazo")%></span></td>

<% rsQuery.Movenext
item = item + 1 
n = n + 1
loop
 %>
 
<% next %>
              </tr>
<% loop %>
          </table></td>
      </tr>
      <tr>
        <td colspan="3"> </td>
      </tr>
      <tr>
        <td colspan="3"><table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
          <tr>
            <td width="514" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
              <div align="right">Sub-Total :</div>
            </div></td>
            <td width="89" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
              <div align="right" class="style8"><%=totali%>,00</div>
            </div></td>
            <td width="89" align="right" bgcolor="#6699CC" class="cellstyle"> </td>
          </tr>
          <tr>
            <td width="514" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
              <div align="right">Valor Total :</div>
            </div></td>
            <td colspan="2" align="right" bgcolor="#6699CC" class="style8"> </td>
            </tr>
        </table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

você pode usar o SUM do SQL para pegar o valor total e

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.