Contas a pagar e receber

Marcelo Pescador · Agosto 19, 2014

Bom dia a todos,

Estou criando um cadastro de contas e tenho o seguinte código:

<input type="radio" name="tipo_conta" id="radio" value="credito">Credito
<input type="radio" name="tipo_conta" id="radio" value="debito">Debito

Eu gostaria que, qd um dos dois tipo de conta "Crédito ou Débito" for selecionado a conta seja lançada no campo abaixo com o valor negativo ou positivo.

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

Alguém poderia me ajudar?

Obrigado

Ronaldo Bueno · Agosto 19, 2014

Pega o value do campo atual e acrescenta um sinal de negativo, pode ate mudar a cor do texto para vermelho

wilnet · Agosto 19, 2014

Veja se resolve o que deseja.

<%
If lista_conta("tipo_conta") = "credito" Then

Response.Write "<font color=#blue>"
Response.Write "Positivo"
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"
 
Else

Response.Write "<font color=#red>"
Response.Write "Negativo"
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"

End If

lista_conta.Close
Set lista_conta = Nothing
%>

xanburzum · Agosto 19, 2014

vc pode até usar máscara para seu campo, com jquery mask, vc configura como quiser.

Marcelo Pescador · Agosto 19, 2014

Veja se resolve o que deseja.

<%
If lista_conta("tipo_conta") = "credito" Then

Response.Write "<font color=#blue>"
Response.Write "Positivo"
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"
 
Else

Response.Write "<font color=#red>"
Response.Write "Negativo"
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"

End If

lista_conta.Close
Set lista_conta = Nothing
%>

Eu acho que o caminho é esse mesmo wilnet.

Na verdade eu acho que me expressei mal.

Quando eu selecionar "Crédito" no checkbox eu quero que o valor que eu lançar seja positivo, ou seja: Ex: "50,00".

E quando for "Débito" o valor seja negativo "- R$ 50,00"

Daria pra gente ajustar isso?

O lance da cor tb vai ser perfeito também.

wilnet · Agosto 19, 2014

É assim que quer?

<%
If lista_conta("tipo_conta") = "credito" Then

Response.Write "<font color=#blue>"
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"
 
Else

Response.Write "<font color=#red>"
Response.Write "-"
Response.Write " "
%>

<input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" />

<%
Response.Write "</font>"

End If

lista_conta.Close
Set lista_conta = Nothing
%>

Marcelo Pescador · Agosto 19, 2014

Nossa perfeito, vou colocar no meu código amanhã sem falta.

Estou ok já publico aqui.

Obrigado.

Marcelo Pescador · Agosto 20, 2014

wilnet,

Eu coloquei o código mas deu erro no *.asp que recebe os campos do formulário e grava no banco.

Então achei melhor colocar diretamente nesse *.asp mas tb deu erro.

Segue o código:

<%

if Request.Form("status_financeiro") = 0 then
status_financeiro = "A"
end if

if Request.Form("tipo_conta") = credito then
valor = Response.Write "<font color=#blue>"
Response.Write "</font>"
end if

if Request.Form("tipo_conta") = debito then
valor = Response.Write "<font color=#red>"
valor = Response.Write "-"
valor =  Response.Write " "
Response.Write "</font>"
end if

descricao			= Request.Form("descricao")
numero_documento 	= Request.Form("numero_documento")
forma_pagamento		= Request.Form("forma_pagamento")
data_vencimento		= Request.Form("data_vencimento")
valor				= Request.Form("valor")
parcelas			= Request.Form("parcelas")
observacao			= Request.Form("observacao")

strsql10=" insert into financeiro(descricao,numero_documento,forma_pagamento,data_vencimento,valor,parcelas,observacao,status_financeiro,tipo_conta) values ('" & descricao & "','" & numero_documento & "','" & forma_pagamento & "','" & data_vencimento & "','" & valor & "','" & parcelas & "','" & observacao & "','" & status_financeiro & "','" & tipo_conta & "')"
set rs10=Conn.execute(strsql10)
%>

wilnet · Agosto 20, 2014

você está jogando os "Response.Write" dentro da variável "valor=".

você precisa pegar os valores que vem de seu Form e jogar na variável valor=

xanburzum · Agosto 20, 2014

coloque dentro do value o "-", depois concatene ele dentro a variável

Marcelo Pescador · Agosto 20, 2014

Entend.

Montei assim:

<input type="radio" name="tipo_conta" id="radio" value="credito">Crédito 
                  <input type="radio" name="tipo_conta" id="radio" value="debito">Débito</th>
                </tr>
                <tr>
                  <th align="right" bgcolor="#dce6e1" class="style3" scope="col"> </th>
                  <th align="left" bgcolor="#dce6e1" scope="col">
				  <%
If lista_conta("tipo_conta") = "credito" Then

Response.Write "<font color=#blue>"
%>
				  <%
Response.Write "</font>"
 
Else

Response.Write "<font color=#red>"
Response.Write "-"
Response.Write " "
%>
                  <%
Response.Write "</font>"

End If

lista_conta.Close
Set lista_conta = Nothing
%></th>
                </tr>
                <tr>
                  <th width="16%" align="right" bgcolor="#dce6e1" class="style3" scope="col">Descrição:</th>
                  <th width="84%" align="left" bgcolor="#dce6e1" scope="col"> <input name="descricao" type="text" class="fct2" id="descricao" size="56" maxlength="255" /></th>
                </tr>
                <tr>
                  <th width="16%" align="right" bgcolor="#dce6e1" class="style3" scope="col">Nº Dcto.:</th>
                  <th width="84%" align="left" bgcolor="#dce6e1" scope="col"> <input name="numero_documento" type="text" class="fct2" id="numero_documento" size="4" maxlength="8" /></th>
                <tr>
                  <th width="16%" align="right" bgcolor="#dce6e1" class="style3" scope="col">Forma Pgto.:</th>
                  <th align="left" bgcolor="#DCE6E1" scope="col"> <input name="forma_pagamento" type="text" class="fct2" id="forma_pagamento" size="30" maxlength="30" />
                  <span class="style3">Ex.: Boleto, Depósito...</span></th>
                <tr>
                  <th width="16%" align="right" bgcolor="#dce6e1" class="style3" scope="col">Data Vencimento:</th>
                  <th align="left" bgcolor="#DCE6E1" scope="col"> <input name="data_vencimento" type="text" class="fct2" id="data_vencimento" size="9" maxlength="10" onKeyUp="formataData(this,event);" /></th>
                <tr>
                  <th align="right" bgcolor="#dce6e1" class="style3" scope="col"> </th>
                  <th align="left" bgcolor="#DCE6E1" scope="col"> </th>
                <tr>
      
                  <th width="16%" align="right" bgcolor="#dce6e1" class="style3" scope="col">Valor:</th>
                  <th align="left" bgcolor="#DCE6E1" scope="col"> <input name="valor" type="text" class="fct2" id="valor" size="9" maxlength="10" onKeyUp="formataValor(this,event);" /></th>
                <tr>

E deu o seguinte erro:

Type mismatch: 'lista_conta'

/daytrip/controle/cad_financeiro.asp, line 158

Ronaldo Bueno · Agosto 20, 2014

eu faria assim:

	<style type="text/css">
		.TextoAzul{
			color:#ffffff;
			background-color:#0033cc;
		}
		.TextoVermelho{
			color:#ffffff;
			background-color:#cc3300;
		}
	</style>
	
	<script type="text/javascript">
	
		function MostraValor(Opcao){
		
			ValorDigitado = document.getElementById('valor').value;
			ValorDigitado = ValorDigitado.replace("+ ","");
			ValorDigitado = ValorDigitado.replace("- ","");
		
			if (Opcao == 'C'){
				var ValorCampo = '+ ' + ValorDigitado;
				document.getElementById('valor').value = ValorCampo;
				document.getElementById("valor").setAttribute("class","TextoAzul");
			}
			else{
				var ValorCampo = '- ' + ValorDigitado;
				document.getElementById('valor').value = ValorCampo;
				document.getElementById("valor").setAttribute("class","TextoVermelho");
			}
			
		}
	
	</script>

<input name="valor" type="text" class="fct2" id="valor" size="9" class="TextoVermelho" maxlength="10" />

<input type="radio" name="tipo_conta" id="radio" value="credito" onclick="MostraValor('C');" />Credito
<input type="radio" name="tipo_conta" id="radio" value="debito" onclick="MostraValor('D');" />Debito

Testei no IE e funcionou, para outros navegadores apenas mude a linha

document.getElementById("valor").setAttribute("class","TextoAzul");

para

document.getElementById("valor").setAttribute("className","TextoAzul");

claro que pode ser melhorado o código, basta um pouco de paciência

Marcelo Pescador · Agosto 20, 2014

Funcionou Ronaldo.

Agora, como faço para que na minha lista de contas tb fique na cor vermelha ou azul?

Eu tentei fazer assim, mas não rolou:

<% if rsQuery("valor") = "-" then response.write "color:#ffffff" end if %>

Obrigado pela ajuda.

Ronaldo Bueno · Agosto 20, 2014

posta o código que vc tem que gera a lista, mas adiantando seria assim

<%
ValorDaConta = rsQuery("valor")
ValorNegativo = InStr(ValorDaConta,"-")

if ValorNegativo > 0 then
	response.write "<font color='#c0072a'>" & ValorConta & "</font>"
else
	response.write "<font color='#5181b9'>" & ValorConta & "</font>"
end if
%>

Marcelo Pescador · Agosto 20, 2014

Desculpe, segue o código:

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)

Function FormataData(Data)
   If Data <> "" Then 
      FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
   End if
End Function
%>

<!DOCTYPE HTML>

<html lang="pt-br">
<meta charset="ISO-8859-1">

<head>

<script src="mascara.js" type=text/javascript></script>

<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>

<script type="text/javascript">

function limparPadrao(campo) {
	if (campo.value == campo.defaultValue) {
		campo.value = "";
	}
}

function escreverPadrao(campo) {
	if (campo.value == "") {
		campo.value = campo.defaultValue;
	}
}

</script>

<title>Financeiro Geral</title>

<link href="style_site.css" rel="stylesheet" type="text/css" media="screen" />
<link rel="stylesheet" type="text/css" href="style_menu.css" />

<%
Session.LCID = 1046
Session.TimeOut = 600
%>

<!-- favicon -->
<link rel="shortcut icon" href="favicon.png">
<!-- fim favicon -->

</head>

<body>
  <table width="972" align="center" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td> </td>
      <td width="627" rowspan="2" align="right" class="style4">Day Trip || Turismo sob medida</td>
    </tr>
    <tr>
      <td width="301"> </td>
    </tr>
  </table>
  <table width="960" align="center" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td colspan="3" align="left"> </td>
    </tr>
    <tr>
      <td colspan="3" align="left"><img src="images/logo_day_trip_pq.png" width="300" height="128" /></td>
    </tr>
    <tr>
      <td colspan="3"><table width="960" height="50" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/tarjas/tarja_pagamento.png"><!--#INCLUDE FILE = "menu.asp" --></td>
        </tr>
      </table></td>
    </tr>
    <tr>
      <td colspan="3"></td>
    </tr>
    <tr>
      <td colspan="3"><table width="960" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="159"><table width="130" border="0" cellpadding="0" cellspacing="0" id="content-add">
            <tr>
              <td width="17" align="center" bgcolor="#accabc"><img src="icones/icone_mais.png" width="16" height="16"></td>
              <td width="126" align="center" class="style3" bgcolor="#accabc"><a href="cad_financeiro.asp">Adicionar Conta</a></td>
            </tr>
          </table></td>
          <td width="669"><table width="130" border="0" cellpadding="0" cellspacing="0" id="content-print">
            <tr>
              <td align="center" bgcolor="#accabc"><a href="imp_cliente_lista_gerais.asp" target="_blank"><img src="icones/print_01.gif" alt="Imprimir" title="Imprimir" width="16" height="16"></a></td>
              </tr>
          </table></td>
          <td width="132" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="1">
            <tr>
              <td width="27%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_gerais.asp">Ago</a></td>
                </tr>
              </table></td>
              <td width="17%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_ativos.asp">Set</a></td>
                </tr>
              </table></td>
              <td width="18%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td width="23" align="center"><a href="roteiros_inativos.asp">Out</a></td>
                </tr>
              </table></td>
              <td width="19%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_inativos.asp">Nov</a></td>
                </tr>
              </table></td>
              <td width="19%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_inativos.asp">Dez</a></td>
                  </tr>
              </table></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td colspan="3"> </td>
        </tr>
      </table>
        <table width="1105" border="0" cellpadding="0" cellspacing="0" bordercolor="#666666" id="content-box1">
        <tr bgcolor="#339999">
          <td colspan="7" align="center" bgcolor="#accabc" class="style9"><% 
'----------------- Define o número de registros por página ----------------------------

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

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 

'rsQuery.Open "select * from alunos where status='A' order by aluno" , Conn
rsQuery.Open "select * from financeiro order by data_vencimento", 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")
cod_financeiro=rsQuery("cod_financeiro") 
%>
            Contas a Pagar/Receber</td>
        </tr>
        
        <tr bgcolor="#339999" class="style3">
          <td bgcolor="#accabc" class="style4"> </td>
          <td colspan="2" bgcolor="#accabc" class="style4"> </td>
          <td align="left" bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          </tr>
        <tr bgcolor="#339999" class="style3">
          <td width="117" align="center" bgcolor="#accabc" class="style3">Data</td>
          <td width="367" align="left" bgcolor="#accabc" class="style3"> Descrição</td>
          <td width="150" align="center" bgcolor="#accabc"> Parcela</td>
          <td width="150" align="center" bgcolor="#accabc" class="style3"> Documento</td>
          <td width="58" align="center" bgcolor="#accabc" class="style3">Status</td>
          <td width="99" align="right" bgcolor="#accabc">Valor </td>
          <td width="53" align="center" bgcolor="#accabc" class="style3">Edição</td>
          </tr>
        <tr bordercolor="000000">
        
        <% 
   item  = 1 
   do while item <= TamanhoPagina and not rsQuery.eof 
   
   cod_financeiro=rsQuery("cod_financeiro")
	%>
          <% 
      For n = 0 To limite %>
          <%
		Dim n
		n = 0 
		do while n < colNum and NOT rsQuery.eof
		
		cod_financeiro=rsQuery("cod_financeiro")
				
		%>
          <td height="26" align="center" bgcolor="#DCE6E1" class="style6"><%=rsQuery("data_vencimento")%></td>
          <td bgcolor="#DCE6E1" class="style6"> <%=rsQuery("descricao")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style6"> <%=rsQuery("parcelas")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style6"> <%=rsQuery("numero_documento")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style3"><%=rsQuery("status_financeiro")%></td>
          <td align="right"bgcolor="#DCE6E1" class="style3"><span class="style6"><%=rsQuery("valor")%></span> </td>
          <td align="right"bgcolor="#DCE6E1" class="style3"><table width="39%" border="0" cellpadding="3" cellspacing="3">
            <tr>
              <td><a href="ver_financeiro.asp?cod_financeiro=<%=cod_financeiro%>"><img src="icones/icone_ver.png" title="Ver Conta" alt="Ver Conta" width="16" height="16" border="0" /></a></td>
              <td width="39"><a href="ver_exc_financeiro.asp?cod_financeiro=<%=cod_financeiro%>"><img src="icones/icone_excluir.png" title="Excluir" alt="Excluir" width="16" height="16" border="0" /></a></td>
            </tr>
          </table></td>
          <% rsQuery.Movenext
			 item = item + 1 
			 n = n + 1
		     loop %>
          <% next %>
        </tr>
        <% loop %>
        <tr bordercolor="000000">
          <td class="style4"> </td>
          <td colspan="2" class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
         </tr>
         <tr bordercolor="000000">
           <td colspan="5" align="right" class="style3">Saldo:</td>
           <td align="right" class="style2">*** </td>
           <td align="right" class="style2"> </td>
         </tr>
         <tr bordercolor="000000">
           <td colspan="7" class="style4"> </td>
         </tr>
         </table></td>
    </tr>
    <tr>
      <td colspan="3" align="left" class="style6">Copyright Day Trip || Turismo sob medida</td>
    </tr>
  </table>
  <br>
</body>
</html>

<% 
function iif ( condicao, valor1, valor2 ) 
if condicao then iif = valor1 else iif = valor2 
end function 

function min( value1, value2 ) 
min = iif( value1 < value2, value1, value2 ) 
end function 

function max( value1, value2 ) 
max = iif( value1 > value2, value1, value2 ) 
end function 
%>

<%
set rsQuery=nothing
%>

Ronaldo Bueno · Agosto 20, 2014

antes dessa linha - Essa linha não vai existir mais

ValorDaConta = rsQuery("valor") 

ValorNegativo = InStr(ValorDaConta,"-")



if ValorNegativo > 0 then 



<td align="right"bgcolor="#DCE6E1" class="style3"><font color='#c0072a'><span class="style6"><%=rsQuery("valor")%></span></font> </td> 



else 



<td align="right"bgcolor="#DCE6E1" class="style3"><font color='#5181b9'><span class="style6"><%=rsQuery("valor")%></span></font> </td> 



end if

Marcelo Pescador · Agosto 20, 2014

Ronaldo, posso te pedir um favor?

você poderia colocar isso pra mim direto no código, pq eu coloquei aqui e não funcionou!!

Ficou assim oh:

Obrigado.

Ronaldo Bueno · Agosto 20, 2014

faz uma copia do seu código, segue abaixo completo

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)

Function FormataData(Data)
   If Data <> "" Then 
      FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
   End if
End Function
%>

<!DOCTYPE HTML>

<html lang="pt-br">
<meta charset="ISO-8859-1">

<head>

<script src="mascara.js" type=text/javascript></script>

<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>

<script type="text/javascript">

function limparPadrao(campo) {
	if (campo.value == campo.defaultValue) {
		campo.value = "";
	}
}

function escreverPadrao(campo) {
	if (campo.value == "") {
		campo.value = campo.defaultValue;
	}
}

</script>

<title>Financeiro Geral</title>

<link href="style_site.css" rel="stylesheet" type="text/css" media="screen" />
<link rel="stylesheet" type="text/css" href="style_menu.css" />

<%
Session.LCID = 1046
Session.TimeOut = 600
%>

<!-- favicon -->
<link rel="shortcut icon" href="favicon.png">
<!-- fim favicon -->

</head>

<body>
  <table width="972" align="center" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td> </td>
      <td width="627" rowspan="2" align="right" class="style4">Day Trip || Turismo sob medida</td>
    </tr>
    <tr>
      <td width="301"> </td>
    </tr>
  </table>
  <table width="960" align="center" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td colspan="3" align="left"> </td>
    </tr>
    <tr>
      <td colspan="3" align="left"><img src="images/logo_day_trip_pq.png" width="300" height="128" /></td>
    </tr>
    <tr>
      <td colspan="3"><table width="960" height="50" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/tarjas/tarja_pagamento.png"><!--#INCLUDE FILE = "menu.asp" --></td>
        </tr>
      </table></td>
    </tr>
    <tr>
      <td colspan="3"></td>
    </tr>
    <tr>
      <td colspan="3"><table width="960" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="159"><table width="130" border="0" cellpadding="0" cellspacing="0" id="content-add">
            <tr>
              <td width="17" align="center" bgcolor="#accabc"><img src="icones/icone_mais.png" width="16" height="16"></td>
              <td width="126" align="center" class="style3" bgcolor="#accabc"><a href="cad_financeiro.asp">Adicionar Conta</a></td>
            </tr>
          </table></td>
          <td width="669"><table width="130" border="0" cellpadding="0" cellspacing="0" id="content-print">
            <tr>
              <td align="center" bgcolor="#accabc"><a href="imp_cliente_lista_gerais.asp" target="_blank"><img src="icones/print_01.gif" alt="Imprimir" title="Imprimir" width="16" height="16"></a></td>
              </tr>
          </table></td>
          <td width="132" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="1">
            <tr>
              <td width="27%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_gerais.asp">Ago</a></td>
                </tr>
              </table></td>
              <td width="17%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_ativos.asp">Set</a></td>
                </tr>
              </table></td>
              <td width="18%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td width="23" align="center"><a href="roteiros_inativos.asp">Out</a></td>
                </tr>
              </table></td>
              <td width="19%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_inativos.asp">Nov</a></td>
                </tr>
              </table></td>
              <td width="19%" align="center"><table border="0" cellpadding="0" cellspacing="0" class="but">
                <tr>
                  <td align="center"><a href="roteiros_inativos.asp">Dez</a></td>
                  </tr>
              </table></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td colspan="3"> </td>
        </tr>
      </table>
        <table width="1105" border="0" cellpadding="0" cellspacing="0" bordercolor="#666666" id="content-box1">
        <tr bgcolor="#339999">
          <td colspan="7" align="center" bgcolor="#accabc" class="style9"><% 
'----------------- Define o número de registros por página ----------------------------

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

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 

'rsQuery.Open "select * from alunos where status='A' order by aluno" , Conn
rsQuery.Open "select * from financeiro order by data_vencimento", 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")
cod_financeiro=rsQuery("cod_financeiro") 
%>
            Contas a Pagar/Receber</td>
        </tr>
        
        <tr bgcolor="#339999" class="style3">
          <td bgcolor="#accabc" class="style4"> </td>
          <td colspan="2" bgcolor="#accabc" class="style4"> </td>
          <td align="left" bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          <td bgcolor="#accabc" class="style4"> </td>
          </tr>
        <tr bgcolor="#339999" class="style3">
          <td width="117" align="center" bgcolor="#accabc" class="style3">Data</td>
          <td width="367" align="left" bgcolor="#accabc" class="style3"> Descrição</td>
          <td width="150" align="center" bgcolor="#accabc"> Parcela</td>
          <td width="150" align="center" bgcolor="#accabc" class="style3"> Documento</td>
          <td width="58" align="center" bgcolor="#accabc" class="style3">Status</td>
          <td width="99" align="right" bgcolor="#accabc">Valor </td>
          <td width="53" align="center" bgcolor="#accabc" class="style3">Edição</td>
          </tr>
        <tr bordercolor="000000">
        
        <% 
   item  = 1 
   do while item <= TamanhoPagina and not rsQuery.eof 
   
   cod_financeiro=rsQuery("cod_financeiro")
	%>
          <% 
      For n = 0 To limite %>
          <%
		Dim n
		n = 0 
		do while n < colNum and NOT rsQuery.eof
		
		cod_financeiro=rsQuery("cod_financeiro")
				
		%>
          <td height="26" align="center" bgcolor="#DCE6E1" class="style6"><%=rsQuery("data_vencimento")%></td>
          <td bgcolor="#DCE6E1" class="style6"> <%=rsQuery("descricao")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style6"> <%=rsQuery("parcelas")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style6"> <%=rsQuery("numero_documento")%></td>
          <td align="center" bgcolor="#DCE6E1" class="style3"><%=rsQuery("status_financeiro")%></td>





			
			<!-- ---------------------------- COLOQUEI AQUI A PARTE ALTERADA ------------------------------ -->
			<%
			ValorDaConta = rsQuery("valor") 
			ValorNegativo = InStr(ValorDaConta,"-")
			if ValorNegativo > 0 then
			%> 
			<td align="right"bgcolor="#DCE6E1"><font color='#c0072a'><span class="style6"><%=rsQuery("valor")%></span></font> </td> 
			<%
			else
			%> 
			<td align="right"bgcolor="#DCE6E1"><font color='#5181b9'><span class="style6"><%=rsQuery("valor")%></span></font> </td> 
			<%
			end if
			%>
			<!-- ---------------------------- COLOQUEI AQUI A PARTE ALTERADA ------------------------------ -->
			





			
          <td align="right"bgcolor="#DCE6E1" class="style3"><table width="39%" border="0" cellpadding="3" cellspacing="3">
            <tr>
              <td><a href="ver_financeiro.asp?cod_financeiro=<%=cod_financeiro%>"><img src="icones/icone_ver.png" title="Ver Conta" alt="Ver Conta" width="16" height="16" border="0" /></a></td>
              <td width="39"><a href="ver_exc_financeiro.asp?cod_financeiro=<%=cod_financeiro%>"><img src="icones/icone_excluir.png" title="Excluir" alt="Excluir" width="16" height="16" border="0" /></a></td>
            </tr>
          </table></td>
          <% rsQuery.Movenext
			 item = item + 1 
			 n = n + 1
		     loop %>
          <% next %>
        </tr>
        <% loop %>
        <tr bordercolor="000000">
          <td class="style4"> </td>
          <td colspan="2" class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
          <td class="style4"> </td>
         </tr>
         <tr bordercolor="000000">
           <td colspan="5" align="right" class="style3">Saldo:</td>
           <td align="right" class="style2">*** </td>
           <td align="right" class="style2"> </td>
         </tr>
         <tr bordercolor="000000">
           <td colspan="7" class="style4"> </td>
         </tr>
         </table></td>
    </tr>
    <tr>
      <td colspan="3" align="left" class="style6">Copyright Day Trip || Turismo sob medida</td>
    </tr>
  </table>
  <br>
</body>
</html>

<% 
function iif ( condicao, valor1, valor2 ) 
if condicao then iif = valor1 else iif = valor2 
end function 

function min( value1, value2 ) 
min = iif( value1 < value2, value1, value2 ) 
end function 

function max( value1, value2 ) 
max = iif( value1 > value2, value1, value2 ) 
end function 
%>

<%
set rsQuery=nothing
%>

Marcelo Pescador · Agosto 20, 2014

O meu tb estava certo a cor continua sem mudar.

Achei o problema.

<td align="right"bgcolor="#DCE6E1"><font color='#c0072a'><span class="style6"><%=rsQuery("valor")%></span></font> </td>

Tirei o "<span class="style6">" </span> do campo "<%=rsQuery("valor")%>"

Agora funcionou.

Obrigado Ronaldo

Ronaldo Bueno · Agosto 20, 2014

valeu

Arquivado

Contas a pagar e receber

Recommended Posts

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23