Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">DebitoEu 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
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
%>
vc pode até usar máscara para seu campo, com jquery mask, vc configura como quiser.
>
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.
É 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
%>
Nossa perfeito, vou colocar no meu código amanhã sem falta.
Estou ok já publico aqui.
Obrigado.
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>"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)
%>
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=
coloque dentro do value o "-", depois concatene ele dentro a variável
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">
<%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
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');" />DebitoTestei 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
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.
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
%>
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"><%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", Connif 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 selectrsQuery.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
%>
antes dessa linha - Essa linha não vai existir mais
<td align="right"bgcolor="#DCE6E1" class="style3"><span class="style6"><%=rsQuery("valor")%></span> </td>
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
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:
/applications/core/interface/imageproxy/imageproxy.php?img=http://www.arterz.com.br/daytrip/controle/contas.png&key=3e8ea6552e555fa19b88850baba5f672e62adbb88a167255210dba4cd72c3941" alt="contas.png" />
Obrigado.
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"><%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", Connif 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 selectrsQuery.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
%>
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
valeu
Pega o value do campo atual e acrescenta um sinal de negativo, pode ate mudar a cor do texto para vermelho