Resumo Caixa

[Boris 0]

Boa Tarde Galera,

 

Estou com uma dificuldade tenho um sisteminha e preciso criar um relatorio html do resumo do caixa.

 

Tipo tudo o que for cartão, seja credito, debito vai ficar na variavel Valor_cartao e assim por diante com o cheque e dinheiro

 

Meu codigo está assim:

 

<!--#include file="conexao01.asp"-->

<%

SQL ="SELECT CADASTRO_CLI_FOR.NOME_CLIFOR, LOJA_VENDA_PGTO.DATA, LOJA_VENDA_PARCELAS.VALOR AS 'VALOR', TIPOS_PGTO.DESC_TIPO_PGTO, LOJA_VENDA_PARCELAS.TIPO_PGTO as 'TIPO_PAGTO' FROM CADASTRO_CLI_FOR CADASTRO_CLI_FOR, LOJA_VENDA_PARCELAS LOJA_VENDA_PARCELAS, LOJA_VENDA_PGTO LOJA_VENDA_PGTO, TB_FECHA_CAIXA TB_FECHA_CAIXA, TIPOS_PGTO TIPOS_PGTO WHERE TIPOS_PGTO.TIPO_PGTO = LOJA_VENDA_PARCELAS.TIPO_PGTO AND LOJA_VENDA_PGTO.CODIGO_FILIAL = LOJA_VENDA_PARCELAS.CODIGO_FILIAL AND LOJA_VENDA_PGTO.LANCAMENTO_CAIXA = LOJA_VENDA_PARCELAS.LANCAMENTO_CAIXA AND LOJA_VENDA_PGTO.TERMINAL = LOJA_VENDA_PARCELAS.TERMINAL AND LOJA_VENDA_PARCELAS.CODIGO_FILIAL = CADASTRO_CLI_FOR.CLIFOR AND TB_FECHA_CAIXA.codigo_filial = LOJA_VENDA_PARCELAS.CODIGO_FILIAL AND TB_FECHA_CAIXA.codigo_filial = LOJA_VENDA_PGTO.CODIGO_FILIAL AND LOJA_VENDA_PGTO.DATA = TB_FECHA_CAIXA.data_registro AND ((LOJA_VENDA_PGTO.DATA={ts '2009-06-10 00:00:00'})) ORDER BY CADASTRO_CLI_FOR.NOME_CLIFOR ASC"

Set Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao01, 3 

if not Dados.eof then
	nome_clifor=empty
	
 WHILE NOT DADOS.EOF
		if nome_clifor<>Dados("nome_clifor") then
			nome_clifor=Dados("nome_clifor")
			response.write"<hr><br><b>FILIAL " &nome_clifor& "</b><br>"
		end if
%>	

		<br><% =Dados("DESC_TIPO_PGTO")%> - <% =FormatCurrency(Dados("valor"))%>
<%
DADOS.MOVENEXT
Wend
end if
%>

Da maneira que está ele está me trazendo assim o resultado:

(Mosta o valor e o tipo de pagto de cada registro e eu não consigo fazer o resumo disso )

 

FILIAL CENTER NORTE

 

CARTAO DE CREDITO POS - R$ 39,99

CARTAO DE CREDITO POS - R$ 99,99

CARTAO DE DEBITO - R$ 169,98

CARTAO DE DEBITO - R$ 29,99

CARTAO DE CREDITO POS - R$ 129,99

DINHEIRO - R$ 50,00

CARTAO DE DEBITO - R$ 259,98

CARTAO DE CREDITO POS - R$ 359,96

DINHEIRO - R$ 149,99

CHEQUE A VISTA - R$ 20,00

CHEQUE PREDATADO - R$ 64,99

 

Eu não estou conseguindo fazer com que apareça desta forma

 

FILIAL CENTER NORTE

 

CARTAO R$ 1.089,88 (soma dos Tipo_pagto: D+E)

CHEQUE R$ 84,99 (soma dos Tipo_pagto: B+C)

DINHEIRO R$ 199,99 (soma dos Tipo_pagto: D)

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

 

FILIAL BELO HORIZONTE

 

.

.

.

 

Alguem pode me ajudar...

 

Valew

[Patrique 0]

Cara pelo que eu entendi, para fazer este esquema basta você identificar e somar os resultados, utilize if para saber quais são cartões por exemplo, depois dentro deste if faça somar todos os resultados.

[Ted k' 126]

é como o patrique citou, e tbm se tiver descriminado tudo no banco, quem é quem, melhora ainda a soma, o campo não pode ser string, para não dar erros de cálculos

[xanburzum 169]

k tipo de resumo, você necessita ???

lembre-se k dependendo do k necessita, muitas vezes

você poe usar o SELECT SUM direto

[Boris 0]

Ok, eu fiz assim mas está dando erro.

 

 

FILIAL CENTER NORTE (NOVA)

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/sys_hbf/teste_busca_01.asp, line 19

 

 

<!--#include file="conexao01.asp"-->

<%
SQL ="SELECT CADASTRO_CLI_FOR.NOME_CLIFOR, LOJA_VENDA_PGTO.DATA, LOJA_VENDA_PARCELAS.VALOR AS 'VALOR', TIPOS_PGTO.DESC_TIPO_PGTO, LOJA_VENDA_PARCELAS.TIPO_PGTO as 'TIPO_PAGTO' FROM CADASTRO_CLI_FOR CADASTRO_CLI_FOR, LOJA_VENDA_PARCELAS LOJA_VENDA_PARCELAS, LOJA_VENDA_PGTO LOJA_VENDA_PGTO, TB_FECHA_CAIXA TB_FECHA_CAIXA, TIPOS_PGTO TIPOS_PGTO WHERE TIPOS_PGTO.TIPO_PGTO = LOJA_VENDA_PARCELAS.TIPO_PGTO AND LOJA_VENDA_PGTO.CODIGO_FILIAL = LOJA_VENDA_PARCELAS.CODIGO_FILIAL AND LOJA_VENDA_PGTO.LANCAMENTO_CAIXA = LOJA_VENDA_PARCELAS.LANCAMENTO_CAIXA AND LOJA_VENDA_PGTO.TERMINAL = LOJA_VENDA_PARCELAS.TERMINAL AND LOJA_VENDA_PARCELAS.CODIGO_FILIAL = CADASTRO_CLI_FOR.CLIFOR AND TB_FECHA_CAIXA.codigo_filial = LOJA_VENDA_PARCELAS.CODIGO_FILIAL AND TB_FECHA_CAIXA.codigo_filial = LOJA_VENDA_PGTO.CODIGO_FILIAL AND LOJA_VENDA_PGTO.DATA = TB_FECHA_CAIXA.data_registro AND ((LOJA_VENDA_PGTO.DATA={ts '2009-06-10 00:00:00'})) ORDER BY CADASTRO_CLI_FOR.NOME_CLIFOR ASC"

SET Dados = Server.CreateObject("ADODB.Recordset")
Dados.Open SQL, conexao01, 3 

IF NOT Dados.eof THEN
	nome_clifor=EMPTY 
	
 WHILE NOT DADOS.EOF
		IF nome_clifor<>Dados("nome_clifor") THEN
			nome_clifor=Dados("nome_clifor")
			response.write"<hr><br><b>FILIAL " &nome_clifor& "</b><br>"
		END IF 
		
				IF tipo_pagto=D THEN
					v_dinheiro=dados("valor")+ dados("valor")
					response.write"<b><BR><BR>"&v_dinheiro&"</b>"
				END IF

DADOS.MOVENEXT
WEND 
END IF 
%>

Está certo a maneira que eu coloquei pra somar tudo o que é do tipo_pgto D (Dinheiro)???

 

Obrigado