Trabalhando com valores dinâmicos e cores

Filipe Mendonça · Julho 22, 2009

Olá Pessoal, estou desenvolvendo um sistema de lançamento de valores (R$) mas estou com um probleminha.

Tenho a tb de lançamentos e uma tb no BD que armazena os tipos de lançamentos

nessa tb (tipos de lançamentos) existe dois registros, CRÉDITO E DÉBITO.

ou seja

quando faço um novo lançamento especifico se ele é débito ou crédito, por ex. 25,00 (débito) e outro lanç. de 30,00 (crédito)

até ai tudo bem, ta funfando..

o que eu quero é o seguinte, quando listar todos os lançamentos, dependendo do tipo de lançamento ele mostrar o valor em determinada cor.

por exemplo, se o lanç. for débito, fica em verm. se for crédito fica em azul.

se puderem me ajudar agradeço!

abraços!!

hargon · Julho 22, 2009

Será necessário apenas um IF no momento da exibição para verificar se é débito ou crédito.

Poste o código de leitura dos lançamentos, onde será alterado a cor.

kania · Julho 22, 2009

Pelo que entendi você quer fazer um tabela com sistema de zebra

Fera vai uam idéia ai para você testar:

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Dim Cor
Valor = -1
Cor = not Cor
   if Cor = True and Valor < 0 then 
%>
<tr bgcolor="#0033FF">
<%Else%>
<tr bgcolor="#990000">
<%End IF%>
    <td> </td>
  </tr>
</table>

Lembrando que onde tem a varialver Valor você coloca o valor que você tem no BD e verifica se ele é negativo

Testa ai, veja se entende, qualquer coisa avisa

Filipe Mendonça · Julho 22, 2009

Será necessário apenas um IF no momento da exibição para verificar se é débito ou crédito.

Poste o código de leitura dos lançamentos, onde será alterado a cor.

olá amigo

segue abaixo o codigo da pag q exibe os lançamentos,

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/db_fin.asp" -->
<%

Set Conn = CreateObject("ADODB.Connection")
Conn.Open MM_db_fin_STRING

Dim PathServer 
Dim PathServerImages 
Dim Atv 
Dim Dstv 
Dim StatusAtv 
Dim StatusDstv
Dim moColor1 
Dim moColor2 
Dim moColor3
Dim moColor
Dim strSQL
Dim strSQLCR
Dim strSQLDB
Dim Credito
Dim Debito
Dim SubTotal


	moColor1 = "#CCCCCC"
	moColor2 = "#999999"
	moColor3 = "#FFFFFF"
	moColor = moColor1
	PathServer = "http://www.deltadesigners.net/teste/fin/"
	PathServerImages = "img/"
	Atv = "ATIVADO.PNG"
	Dstv = "DESATIVADO.PNG"
	StatusAtv = PathServer & PathServerImages & Atv
	StatusDstv = PathServer & PathServerImages & Dstv	
	strSQL = "SELECT Lancamentos.ID_Lancamento, ContasBancarias.NomeContaBancaria, ContasBancarias.Banco, ClientesFornecedores.Nome, "
	strSQL = strSQL & "FormasDePagamento.DescricaoFormaPagamento, Lancamentos.DescricaoLancamento, Lancamentos.Documento, "
	strSQL = strSQL & "Lancamentos.DataVencimento, Lancamentos.Valor, TiposDeLancamento.DescricaoTipoLancamento, "
	strSQL = strSQL & "Status.ID_Status, Situacao.DescricaoSituacao "
	strSQL = strSQL & "FROM FormasDePagamento "
	strSQL = strSQL & "INNER JOIN (ContasBancarias "
	strSQL = strSQL & "INNER JOIN ((Status "
	strSQL = strSQL & "INNER JOIN ClientesFornecedores "
	strSQL = strSQL & "ON Status.[ID_Status] = ClientesFornecedores.[ID_Status]) "
	strSQL = strSQL & "INNER JOIN (TiposDeLancamento "
	strSQL = strSQL & "INNER JOIN (Situacao "
	strSQL = strSQL & "INNER JOIN Lancamentos "
	strSQL = strSQL & "ON Situacao.[ID_Situacao] = Lancamentos.[ID_Situacao]) "
	strSQL = strSQL & "ON TiposDeLancamento.[ID_TipoLancamento] = Lancamentos.[ID_TipoLancamento]) "
	strSQL = strSQL & "ON ClientesFornecedores.[ID_Cliente/Fornecedor] = Lancamentos.[ID_Cliente/Fornecedor]) "
	strSQL = strSQL & "ON ContasBancarias.[ID_ContaBancaria] = Lancamentos.[ID_ContaBancaria]) "
	strSQL = strSQL & "ON FormasDePagamento.[ID_FormaPagamento] = Lancamentos.[ID_FormaPagamento] "
	strSQL = strSQL & "ORDER BY Lancamentos.ID_Lancamento ASC;"
	strSQLCR = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 1;"
	strSQLDB = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 2;"

Set RS = Conn.Execute (strSQL)
Set RScr = Conn.Execute (strSQLCR)
Set RSdb = Conn.Execute (strSQLDB)

	Credito = RScr("total")
	Debito = RSdb("total")	
	
	If IsNull(Credito) And IsNull(Debito) Then
		SubTotal = "0,00"
	Else
		If IsNull(Credito) Then
			SubTotal = "-" & Debito
		Else
			If IsNull(Debito) Then
				SubTotal = Credito
			Else
				SubTotal = Credito - Debito
			End If
		End If
	End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
		<title>:: Lançamentos ::</title>
		<style type="text/css">
			.text {font-size:9px;color:#333333;font-family:Verdana, Arial, Helvetica, sans-serif;}
		</style>
	</head>
<body>

<div class="text" align="center">
<table border="0">
	<tr>
		<td align="center">
			<strong>
				ID
			</strong>
		</td>
		<td align="center">
			<strong>
				Conta Bancaria
			</strong>
		</td>
		<td align="center">
			<strong>
				Cliente/Fornecedor
			</strong>
		</td>
		<td align="center">
			<strong>
				Forma de Pagamento
			</strong>
		</td>
		<td align="center">
			<strong>
				Descricao
			</strong>
		</td>
		<td align="center">
			<strong>
				Documento
			</strong>
		</td>
		<td align="center">
			<strong>
				Vencimento
			</strong>
		</td>
		<td align="center">
			<strong>
				Valor
			</strong>
		</td>	
		<td align="center">
			<strong>
				Situacao
			</strong>
		</td>	
		<td align="center">
			<strong>
				Tipo de Lancamento
			</strong>
		</td>			
		<td align="center">
			<strong>
				Status
			</strong>
		</td>			
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>						
	</tr>

	<%

	Do While Not RS.EOF

	%>

	<tr 
		<%
		
		Response.Write(" style='background-color:" & moColor & "' onMouseOver='this.style.backgroundColor=" & chr(34) & moColor3 & chr(34) & "' onMouseOut='this.style.backgroundColor=" & chr(34) & moColor & chr(34) & "'")
		%>
	>
		<td align="center">
			<% = RS("ID_Lancamento") %>
		</td>
		<td align="center">
			<% = RS("NomeContaBancaria") %> - <% = RS("Banco") %>
		</td>
		<td align="center">
			<% = RS("Nome") %>
		</td>
		<td align="center">
			<% = RS("DescricaoFormaPagamento") %>
		</td>
		<td align="center">
			<% = RS("DescricaoLancamento") %>
		</td>
		<td align="center">
			<% = RS("Documento") %>
		</td>
		<td align="center">
			<% = RS("DataVencimento") %>
		</td>
		<td align="center">
			<% = RS("Valor") %>
		</td>
		<td align="center">
			<% = RS("DescricaoSituacao") %>
		</td>
		<td align="center">
			<% = RS("DescricaoTipoLancamento") %>
		</td>
		<td align="center">
			<img 
				src="
					<% 
						If RS("ID_Status") = "1" Then 
							Response.Write(StatusAtv) 
						Else 
							Response.Write(StatusDstv) 
						End If 
					%>"
				width="16px" height="16px" 
			/>
		</td>
		<td align="center">
			<a href="delete_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
				<img src="img/Delete.png" width="16" height="16" border="0" />
			</a>
		</td>
		<td align="center">
			<a href="form_update_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
				<img src="img/24.png" width="16" height="16" border="0" />
			</a>
		</td>							
	</tr>
	
	<%

	If moColor = moColor1 Then
		moColor = moColor2
	Else
		moColor = moColor1
	End If

	%>
	
	<%

	RS.MoveNext

	Loop

	%>
	
	<tr>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center">
			<strong>
				SUBTOTAL:
			</strong>
		</td>		
		<td align="center">
			<strong>
				<% =FormatNumber(SubTotal) %>		
			</strong>
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>	
		<td align="center"> 
			
		</td>								
	</tr>	

	<%

	Conn.Close
	
	%>	
</table>
</div>

<div class="text" align="center">
<table border="0">
	<tr>
		<td align="center">
			<a href="default.asp">:: Menu Principal ::</a>
		</td>
		<td align="center">
			<a href="cad_lancamento.asp">:: Novo Lançamento ::</a>
		</td>
	</tr>
</table>
</div>

</body>
</html>

kania · Julho 22, 2009

Fera fiz uma modificação no código, testa ai

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/db_fin.asp" -->
<%

Set Conn = CreateObject("ADODB.Connection")
Conn.Open MM_db_fin_STRING

Dim PathServer 
Dim PathServerImages 
Dim Atv 
Dim Dstv 
Dim StatusAtv 
Dim StatusDstv
Dim moColor1 
Dim moColor2 
Dim moColor3
Dim moColor
Dim strSQL
Dim strSQLCR
Dim strSQLDB
Dim Credito
Dim Debito
Dim SubTotal


        moColor1 = "#CCCCCC"
        moColor2 = "#999999"
        moColor3 = "#FFFFFF"
        moColor = moColor1
        PathServer = "http://www.deltadesigners.net/teste/fin/"
        PathServerImages = "img/"
        Atv = "ATIVADO.PNG"
        Dstv = "DESATIVADO.PNG"
        StatusAtv = PathServer & PathServerImages & Atv
        StatusDstv = PathServer & PathServerImages & Dstv       
        strSQL = "SELECT Lancamentos.ID_Lancamento, ContasBancarias.NomeContaBancaria, ContasBancarias.Banco, ClientesFornecedores.Nome, "
        strSQL = strSQL & "FormasDePagamento.DescricaoFormaPagamento, Lancamentos.DescricaoLancamento, Lancamentos.Documento, "
        strSQL = strSQL & "Lancamentos.DataVencimento, Lancamentos.Valor, TiposDeLancamento.DescricaoTipoLancamento, "
        strSQL = strSQL & "Status.ID_Status, Situacao.DescricaoSituacao "
        strSQL = strSQL & "FROM FormasDePagamento "
        strSQL = strSQL & "INNER JOIN (ContasBancarias "
        strSQL = strSQL & "INNER JOIN ((Status "
        strSQL = strSQL & "INNER JOIN ClientesFornecedores "
        strSQL = strSQL & "ON Status.[ID_Status] = ClientesFornecedores.[ID_Status]) "
        strSQL = strSQL & "INNER JOIN (TiposDeLancamento "
        strSQL = strSQL & "INNER JOIN (Situacao "
        strSQL = strSQL & "INNER JOIN Lancamentos "
        strSQL = strSQL & "ON Situacao.[ID_Situacao] = Lancamentos.[ID_Situacao]) "
        strSQL = strSQL & "ON TiposDeLancamento.[ID_TipoLancamento] = Lancamentos.[ID_TipoLancamento]) "
        strSQL = strSQL & "ON ClientesFornecedores.[ID_Cliente/Fornecedor] = Lancamentos.[ID_Cliente/Fornecedor]) "
        strSQL = strSQL & "ON ContasBancarias.[ID_ContaBancaria] = Lancamentos.[ID_ContaBancaria]) "
        strSQL = strSQL & "ON FormasDePagamento.[ID_FormaPagamento] = Lancamentos.[ID_FormaPagamento] "
        strSQL = strSQL & "ORDER BY Lancamentos.ID_Lancamento ASC;"
        strSQLCR = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 1;"
        strSQLDB = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 2;"

Set RS = Conn.Execute (strSQL)
Set RScr = Conn.Execute (strSQLCR)
Set RSdb = Conn.Execute (strSQLDB)

        Credito = RScr("total")
        Debito = RSdb("total")  
        
        If IsNull(Credito) And IsNull(Debito) Then
                SubTotal = "0,00"
        Else
                If IsNull(Credito) Then
                        SubTotal = "-" & Debito
                Else
                        If IsNull(Debito) Then
                                SubTotal = Credito
                        Else
                                SubTotal = Credito - Debito
                        End If
                End If
        End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
        <head>
                <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
                <title>:: Lançamentos ::</title>
                <style type="text/css">
                        .text {font-size:9px;color:#333333;font-family:Verdana, Arial, Helvetica, sans-serif;}
                </style>
        </head>
<body>

<div class="text" align="center">
<table border="0">
        <tr>
                <td align="center">
                        <strong>
                                ID
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Conta Bancaria
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Cliente/Fornecedor
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Forma de Pagamento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Descricao
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Documento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Vencimento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Valor
                        </strong>
                </td>   
                <td align="center">
                        <strong>
                                Situacao
                        </strong>
                </td>   
                <td align="center">
                        <strong>
                                Tipo de Lancamento
                        </strong>
                </td>                   
                <td align="center">
                        <strong>
                                Status
                        </strong>
                </td>                   
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>                                           
        </tr>

        <%

        Do While Not RS.EOF
		
		If RS("Valor") < 0 Then

        %>

        <tr bgcolor="#0000FF">
                <td align="center">
                        <% = RS("ID_Lancamento") %>
                </td>
                <td align="center">
                        <% = RS("NomeContaBancaria") %> - <% = RS("Banco") %>
                </td>
                <td align="center">
                        <% = RS("Nome") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoFormaPagamento") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoLancamento") %>
                </td>
                <td align="center">
                        <% = RS("Documento") %>
                </td>
                <td align="center">
                        <% = RS("DataVencimento") %>
                </td>
                <td align="center">
                        <% = RS("Valor") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoSituacao") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoTipoLancamento") %>
                </td>
                <td align="center">
                        <img 
                                src="
                                        <% 
                                                If RS("ID_Status") = "1" Then 
                                                        Response.Write(StatusAtv) 
                                                Else 
                                                        Response.Write(StatusDstv) 
                                                End If 
                                        %>"
                                width="16px" height="16px" 
                        />
                </td>
                <td align="center">
                        <a href="delete_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/Delete.png" width="16" height="16" border="0" />
                        </a>
                </td>
                <td align="center">
                        <a href="form_update_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/24.png" width="16" height="16" border="0" />
                        </a>
                </td>                                                   
        </tr>
        
        <%Else%>
        <tr bgcolor="#990000">
                <td align="center">
                        <% = RS("ID_Lancamento") %>
                </td>
                <td align="center">
                        <% = RS("NomeContaBancaria") %> - <% = RS("Banco") %>
                </td>
                <td align="center">
                        <% = RS("Nome") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoFormaPagamento") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoLancamento") %>
                </td>
                <td align="center">
                        <% = RS("Documento") %>
                </td>
                <td align="center">
                        <% = RS("DataVencimento") %>
                </td>
                <td align="center">
                        <% = RS("Valor") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoSituacao") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoTipoLancamento") %>
                </td>
                <td align="center">
                        <img 
                                src="
                                        <% 
                                                If RS("ID_Status") = "1" Then 
                                                        Response.Write(StatusAtv) 
                                                Else 
                                                        Response.Write(StatusDstv) 
                                                End If 
                                        %>"
                                width="16px" height="16px" 
                        />
                </td>
                <td align="center">
                        <a href="delete_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/Delete.png" width="16" height="16" border="0" />
                        </a>
                </td>
                <td align="center">
                        <a href="form_update_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/24.png" width="16" height="16" border="0" />
                        </a>
                </td>                                                   
        </tr>
        
        <%
		End IF

        If moColor = moColor1 Then
                moColor = moColor2
        Else
                moColor = moColor1
        End If

        %>
        
        <%

        RS.MoveNext

        Loop

        %>
        
        <tr>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center">
                        <strong>
                                SUBTOTAL:
                        </strong>
                </td>           
                <td align="center">
                        <strong>
                                <% =FormatNumber(SubTotal) %>           
                        </strong>
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>   
                <td align="center"> 
                        
                </td>                                                           
        </tr>   

        <%

        Conn.Close
        
        %>      
</table>
</div>

<div class="text" align="center">
<table border="0">
        <tr>
                <td align="center">
                        <a href="default.asp">:: Menu Principal ::</a>
                </td>
                <td align="center">
                        <a href="cad_lancamento.asp">:: Novo Lançamento ::</a>
                </td>
        </tr>
</table>
</div>

</body>
</html>

No lugar do bgcolor="#0000FF" você colcoa a cor que você quer para o valor negativo, acredito que seja algo assim que você quer

Filipe Mendonça · Julho 22, 2009

Amigo, na verdade o que preciso é que o código colore o campo <% = RS("Valor") %> e não a linha inteira..

Entende?

tipo assim, se for Crédito = R$ 25,00 se for Débito = R$ 25,00

kania · Julho 22, 2009

a sim agora entendi, foi mal, tenta com este código.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/db_fin.asp" -->
<%

Set Conn = CreateObject("ADODB.Connection")
Conn.Open MM_db_fin_STRING

Dim PathServer 
Dim PathServerImages 
Dim Atv 
Dim Dstv 
Dim StatusAtv 
Dim StatusDstv
Dim moColor1 
Dim moColor2 
Dim moColor3
Dim moColor
Dim strSQL
Dim strSQLCR
Dim strSQLDB
Dim Credito
Dim Debito
Dim SubTotal


        moColor1 = "#CCCCCC"
        moColor2 = "#999999"
        moColor3 = "#FFFFFF"
        moColor = moColor1
        PathServer = "http://www.deltadesigners.net/teste/fin/"
        PathServerImages = "img/"
        Atv = "ATIVADO.PNG"
        Dstv = "DESATIVADO.PNG"
        StatusAtv = PathServer & PathServerImages & Atv
        StatusDstv = PathServer & PathServerImages & Dstv       
        strSQL = "SELECT Lancamentos.ID_Lancamento, ContasBancarias.NomeContaBancaria, ContasBancarias.Banco, ClientesFornecedores.Nome, "
        strSQL = strSQL & "FormasDePagamento.DescricaoFormaPagamento, Lancamentos.DescricaoLancamento, Lancamentos.Documento, "
        strSQL = strSQL & "Lancamentos.DataVencimento, Lancamentos.Valor, TiposDeLancamento.DescricaoTipoLancamento, "
        strSQL = strSQL & "Status.ID_Status, Situacao.DescricaoSituacao "
        strSQL = strSQL & "FROM FormasDePagamento "
        strSQL = strSQL & "INNER JOIN (ContasBancarias "
        strSQL = strSQL & "INNER JOIN ((Status "
        strSQL = strSQL & "INNER JOIN ClientesFornecedores "
        strSQL = strSQL & "ON Status.[ID_Status] = ClientesFornecedores.[ID_Status]) "
        strSQL = strSQL & "INNER JOIN (TiposDeLancamento "
        strSQL = strSQL & "INNER JOIN (Situacao "
        strSQL = strSQL & "INNER JOIN Lancamentos "
        strSQL = strSQL & "ON Situacao.[ID_Situacao] = Lancamentos.[ID_Situacao]) "
        strSQL = strSQL & "ON TiposDeLancamento.[ID_TipoLancamento] = Lancamentos.[ID_TipoLancamento]) "
        strSQL = strSQL & "ON ClientesFornecedores.[ID_Cliente/Fornecedor] = Lancamentos.[ID_Cliente/Fornecedor]) "
        strSQL = strSQL & "ON ContasBancarias.[ID_ContaBancaria] = Lancamentos.[ID_ContaBancaria]) "
        strSQL = strSQL & "ON FormasDePagamento.[ID_FormaPagamento] = Lancamentos.[ID_FormaPagamento] "
        strSQL = strSQL & "ORDER BY Lancamentos.ID_Lancamento ASC;"
        strSQLCR = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 1;"
        strSQLDB = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 2;"

Set RS = Conn.Execute (strSQL)
Set RScr = Conn.Execute (strSQLCR)
Set RSdb = Conn.Execute (strSQLDB)

        Credito = RScr("total")
        Debito = RSdb("total")  
        
        If IsNull(Credito) And IsNull(Debito) Then
                SubTotal = "0,00"
        Else
                If IsNull(Credito) Then
                        SubTotal = "-" & Debito
                Else
                        If IsNull(Debito) Then
                                SubTotal = Credito
                        Else
                                SubTotal = Credito - Debito
                        End If
                End If
        End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
        <head>
                <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
                <title>:: Lançamentos ::</title>
                <style type="text/css">
                        .text {font-size:9px;color:#333333;font-family:Verdana, Arial, Helvetica, sans-serif;}
                </style>
        </head>
<body>

<div class="text" align="center">
<table border="0">
        <tr>
                <td align="center">
                        <strong>
                                ID
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Conta Bancaria
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Cliente/Fornecedor
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Forma de Pagamento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Descricao
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Documento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Vencimento
                        </strong>
                </td>
                <td align="center">
                        <strong>
                                Valor
                        </strong>
                </td>   
                <td align="center">
                        <strong>
                                Situacao
                        </strong>
                </td>   
                <td align="center">
                        <strong>
                                Tipo de Lancamento
                        </strong>
                </td>                   
                <td align="center">
                        <strong>
                                Status
                        </strong>
                </td>                   
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>                                           
        </tr>

        <%

        Do While Not RS.EOF
        %>

        <tr bgcolor="#0000FF">
                <td align="center">
                        <% = RS("ID_Lancamento") %>
                </td>
                <td align="center">
                        <% = RS("NomeContaBancaria") %> - <% = RS("Banco") %>
                </td>
                <td align="center">
                        <% = RS("Nome") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoFormaPagamento") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoLancamento") %>
                </td>
                <td align="center">
                        <% = RS("Documento") %>
                </td>
                <td align="center">
                        <% = RS("DataVencimento") %>
                </td>
                <td align="center">
                <%If Cint(RS("Valor")) < 0 Then%>
                	<span style="color:#F00;"><% = RS("Valor") %></span>
                <%Else%>
                	<span style="color:#00F;"><% = RS("Valor") %></span>
                <%End IF%>
                </td>
                <td align="center">
                        <% = RS("DescricaoSituacao") %>
                </td>
                <td align="center">
                        <% = RS("DescricaoTipoLancamento") %>
                </td>
                <td align="center">
                        <img 
                                src="
                                        <% 
                                                If RS("ID_Status") = "1" Then 
                                                        Response.Write(StatusAtv) 
                                                Else 
                                                        Response.Write(StatusDstv) 
                                                End If 
                                        %>"
                                width="16px" height="16px" 
                        />
                </td>
                <td align="center">
                        <a href="delete_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/Delete.png" width="16" height="16" border="0" />
                        </a>
                </td>
                <td align="center">
                        <a href="form_update_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
                                <img src="img/24.png" width="16" height="16" border="0" />
                        </a>
                </td>                                                   
        </tr>
        <%
        If moColor = moColor1 Then
                moColor = moColor2
        Else
                moColor = moColor1
        End If

        %>
        
        <%

        RS.MoveNext

        Loop

        %>
        
        <tr>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center">
                        <strong>
                                SUBTOTAL:
                        </strong>
                </td>           
                <td align="center">
                        <strong>
                                <% =FormatNumber(SubTotal) %>           
                        </strong>
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>
                <td align="center"> 
                        
                </td>   
                <td align="center"> 
                        
                </td>                                                           
        </tr>   

        <%

        Conn.Close
        
        %>      
</table>
</div>

<div class="text" align="center">
<table border="0">
        <tr>
                <td align="center">
                        <a href="default.asp">:: Menu Principal ::</a>
                </td>
                <td align="center">
                        <a href="cad_lancamento.asp">:: Novo Lançamento ::</a>
                </td>
        </tr>
</table>
</div>

</body>
</html>

Filipe Mendonça · Julho 22, 2009

Cara é exatamente isso, mas eu fiz de forma diferente, até poque meus valores serão sempre maiores que zero, por isso preciso verificar na tb lançamentos se é débito ou credito...

mas ja consegui...

abaixo segue o codigo e o link para verem como ficou!!

www.deltadesigners.net/teste/fin/lançamentos.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/db_fin.asp" -->
<%

Set Conn = CreateObject("ADODB.Connection")
Conn.Open MM_db_fin_STRING

Dim PathServer 
Dim PathServerImages 
Dim Atv 
Dim Dstv 
Dim StatusAtv 
Dim StatusDstv
Dim moColor1 
Dim moColor2 
Dim moColor3
Dim moColor
Dim strSQL
Dim strSQLCR
Dim strSQLDB
Dim Credito
Dim Debito
Dim SubTotal


	moColor1 = "#CCCCCC"
	moColor2 = "#999999"
	moColor3 = "#FFFFFF"
	moColor = moColor1
	PathServer = "http://www.deltadesigners.net/teste/fin/"
	PathServerImages = "img/"
	Atv = "ATIVADO.PNG"
	Dstv = "DESATIVADO.PNG"
	StatusAtv = PathServer & PathServerImages & Atv
	StatusDstv = PathServer & PathServerImages & Dstv	
	strSQL = "SELECT Lancamentos.ID_Lancamento, ContasBancarias.NomeContaBancaria, ContasBancarias.Banco, ClientesFornecedores.Nome, "
	strSQL = strSQL & "FormasDePagamento.DescricaoFormaPagamento, Lancamentos.DescricaoLancamento, Lancamentos.Documento, "
	strSQL = strSQL & "Lancamentos.DataVencimento, Lancamentos.Valor, TiposDeLancamento.DescricaoTipoLancamento, "
	strSQL = strSQL & "TiposDeLancamento.ID_TipoLancamento, Status.ID_Status, Situacao.DescricaoSituacao "
	strSQL = strSQL & "FROM FormasDePagamento "
	strSQL = strSQL & "INNER JOIN (ContasBancarias "
	strSQL = strSQL & "INNER JOIN ((Status "
	strSQL = strSQL & "INNER JOIN ClientesFornecedores "
	strSQL = strSQL & "ON Status.[ID_Status] = ClientesFornecedores.[ID_Status]) "
	strSQL = strSQL & "INNER JOIN (TiposDeLancamento "
	strSQL = strSQL & "INNER JOIN (Situacao "
	strSQL = strSQL & "INNER JOIN Lancamentos "
	strSQL = strSQL & "ON Situacao.[ID_Situacao] = Lancamentos.[ID_Situacao]) "
	strSQL = strSQL & "ON TiposDeLancamento.[ID_TipoLancamento] = Lancamentos.[ID_TipoLancamento]) "
	strSQL = strSQL & "ON ClientesFornecedores.[ID_Cliente/Fornecedor] = Lancamentos.[ID_Cliente/Fornecedor]) "
	strSQL = strSQL & "ON ContasBancarias.[ID_ContaBancaria] = Lancamentos.[ID_ContaBancaria]) "
	strSQL = strSQL & "ON FormasDePagamento.[ID_FormaPagamento] = Lancamentos.[ID_FormaPagamento] "
	strSQL = strSQL & "ORDER BY Lancamentos.ID_Lancamento ASC;"
	strSQLCR = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 1;"
	strSQLDB = "SELECT SUM(Valor) as total FROM Lancamentos WHERE ID_TipoLancamento = 2;"

Set RS = Conn.Execute (strSQL)
Set RScr = Conn.Execute (strSQLCR)
Set RSdb = Conn.Execute (strSQLDB)

	Credito = RScr("total")
	Debito = RSdb("total")	
	
	If IsNull(Credito) And IsNull(Debito) Then
		SubTotal = "0,00"
	Else
		If IsNull(Credito) Then
			SubTotal = "-" & Debito
		Else
			If IsNull(Debito) Then
				SubTotal = "+" & Credito
			Else
				SubTotal = Credito - Debito
			End If
		End If
	End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
		<title>:: Lançamentos ::</title>
		<style type="text/css">
			.text {font-size:9px;color:#333333;font-family:Verdana, Arial, Helvetica, sans-serif;}
		</style>
	</head>
<body>

<div class="text" align="center">
<table border="0">
	<tr>
		<td align="center">
			<strong>
				ID
			</strong>
		</td>
		<td align="center">
			<strong>
				Conta Bancaria
			</strong>
		</td>
		<td align="center">
			<strong>
				Cliente/Fornecedor
			</strong>
		</td>
		<td align="center">
			<strong>
				Forma de Pagamento
			</strong>
		</td>
		<td align="center">
			<strong>
				Descricao
			</strong>
		</td>
		<td align="center">
			<strong>
				Documento
			</strong>
		</td>
		<td align="center">
			<strong>
				Vencimento
			</strong>
		</td>
		<td align="center">
			<strong>
				Valor
			</strong>
		</td>	
		<td align="center">
			<strong>
				Situacao
			</strong>
		</td>	
		<td align="center">
			<strong>
				Tipo de Lancamento
			</strong>
		</td>			
		<td align="center">
			<strong>
				Status
			</strong>
		</td>			
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>						
	</tr>

	<%

	Do While Not RS.EOF

	%>

	<tr 
		<%
		
		Response.Write(" style='background-color:" & moColor & "' onMouseOver='this.style.backgroundColor=" & chr(34) & moColor3 & chr(34) & "' onMouseOut='this.style.backgroundColor=" & chr(34) & moColor & chr(34) & "'")
		%>
	>
		<td align="center">
			<% = RS("ID_Lancamento") %>
		</td>
		<td align="center">
			<% = RS("NomeContaBancaria") %> - <% = RS("Banco") %>
		</td>
		<td align="center">
			<% = RS("Nome") %>
		</td>
		<td align="center">
			<% = RS("DescricaoFormaPagamento") %>
		</td>
		<td align="center">
			<% = RS("DescricaoLancamento") %>
		</td>
		<td align="center">
			<% = RS("Documento") %>
		</td>
		<td align="center">
			<% = RS("DataVencimento") %>
		</td>
		<td align="center">
			<% 
				If RS("ID_TipoLancamento") = 1 Then	
			%>	
			<font color="#0000CC">
				<% = "+" & RS("Valor") %>
			</font>
			<%			
				Else				
			%>
			<font color="#FF0000">
				<% = "-" & RS("Valor") %>
			</font>
			<% 			
				End IF				
			%>
		</td>
		<td align="center">
			<% = RS("DescricaoSituacao") %>
		</td>
		<td align="center">
			<% = RS("DescricaoTipoLancamento") %>
		</td>
		<td align="center">
			<img 
				src="
					<% 
						If RS("ID_Status") = "1" Then 
							Response.Write(StatusAtv) 
						Else 
							Response.Write(StatusDstv) 
						End If 
					%>"
				width="16px" height="16px" 
			/>
		</td>
		<td align="center">
			<a href="delete_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
				<img src="img/Delete.png" width="16" height="16" border="0" />
			</a>
		</td>
		<td align="center">
			<a href="form_update_lancamento.asp?ID_Lancamento=<% = RS("ID_Lancamento") %>">
				<img src="img/24.png" width="16" height="16" border="0" />
			</a>
		</td>							
	</tr>
	
	<%

	If moColor = moColor1 Then
		moColor = moColor2
	Else
		moColor = moColor1
	End If

	%>
	
	<%

	RS.MoveNext

	Loop

	%>
	
	<tr>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center">
			<strong>
				SUBTOTAL:
			</strong>
		</td>		
		<td align="center">
			<strong>
				<%
					If Subtotal > 0 Then
					
				%>
				<font color="#0000CC">
					<% = FormatNumber(SubTotal) %>		
				</font>
				<%					
					Else
				%>
				<font color="#FF0000">
					<% = FormatNumber(Subtotal) %>
				</font>
				<%					
					End If				
				%>
			</strong>
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>
		<td align="center"> 
			
		</td>	
		<td align="center"> 
			
		</td>								
	</tr>	

	<%

	Conn.Close
	
	%>	
</table>
</div>

<div class="text" align="center">
<table border="0">
	<tr>
		<td align="center">
			<a href="default.asp">:: Menu Principal ::</a>
		</td>
		<td align="center">
			<a href="cad_lancamento.asp">:: Novo Lançamento ::</a>
		</td>
	</tr>
</table>
</div>

</body>
</html>

xanburzum · Julho 22, 2009

faz o k o hargon disse, um if, você recupera os valores verifica se o recordset é credito ou debito e faz o if da sua cor...

Arquivado

Trabalhando com valores dinâmicos e cores

Recommended Posts

Filipe Mendonça 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Filipe Mendonça 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Filipe Mendonça 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Filipe Mendonça 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

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