Stored Procedure Livro Caixa

[renanbg]

Amigos, estou tentando montar uma pequena procedure que me traga os dados de uma tabela chamada movimentacao.

No formulario, vou selecionar o nome do banco e o periodo

A estrutura da tabela é:

CODIGO
COD_BANCO //nome banco. ex BB, bradesco, itau
DATA
LANCAMENTO 
TIPO //SE É CREDITO OU DEBITO.
VALOR

Achei essa procedure, mas não consegui entender como adaptar para pesquisar na minha tabela. Ao que entendi, essa SP seleciona os dados de duas tabelas e eu preciso de apenas 1

CREATE PROCEDURE SALDO_CONTA ( 
    conta varchar(15), 
    datainicial date) 
returns ( 
    data date, 
    contamovimentada varchar(15), 
    saldoanterior numeric(15,2), 
    credito numeric(15,2), 
    debito numeric(15,2), 
    saldoatual numeric(15,2)) 
as 
declare variable valorcredito numeric(15,2); 
declare variable valordebito numeric(15,2); 
declare variable datafinal date; 
begin 
  data = datainicial; 
  contamovimentada = conta; 
  -- datafinal será sempre a data atual do sistema -- 
  datafinal = current_date; 

  -- ************************************************************** 
  -- estas linhas estão fora do while para que sejam           -- * 
  -- executadas apenas 1 vez, aumentando a performance.        -- * 
  -- depois apenas faço a soma dos valores obtidos dia a dia   -- * 
  -- para sempre obter o saldo anterior correto                -- * 
  -- ************************************************************** 
  select coalesce(sum(valor),0)                                -- * 
  from credito                                                 -- * 
  where conta_c = :conta and data < :data into :valorcredito;  -- * 
                                                               -- * 
  select coalesce(sum(valor),0)                                -- * 
  from debito                                                  -- * 
  where conta_d = :conta and data < :data into :valordebito;   -- * 
                                                               -- * 
  -- obtenho o saldo anterior subtraindo o débito do crédito   -- * 
  saldoanterior = valorcredito - valordebito;                  -- * 
  -- ************************************************************** 

  -- verifico o movimento dia a dia, até o dia anterior à data atual 
  while (data <datafinal> 0) or (debito > 0))  then 
      suspend; 

    data = data + 1; 
    saldoanterior = saldoanterior + (credito - debito); 
  end 

  -- somo os créditos da data atual 
  select coalesce(sum(valor),0) 
  from credito 
  where conta_c = :conta and data = :data into :credito; 

  -- somo os débitos da data atual 
  select coalesce(sum(valor),0) 
  from debito 
  where conta_d = :conta and data = :data into :debito; 

  saldoatual = saldoanterior + (credito - debito); 

  -- exibe o registro com o saldo do dia atual 
  suspend; 
end

O resultado da procedure acima, seria algo assim

data       |conta     |saldo anterior |    debito |    credito |    saldo atual 
31/01/06    6                    0,00         0,00        60,00           60,00 
28/02/06    6                   60,00         0,00        30,00           90,00 
31/03/06    6                   90,00        40,00         0,00           50,00 
30/04/06    6                   50,00        60,00         0,00          -10,00 
19/01/07    6                  -10,00         0,00         0,00          -10,00

Alguma sugestão?

Editado Setembro 13, 2017 por renanbg

[Jhonas]

voce quer que essa saida seja em um relatório ou em um dbgrid ?

[renanbg]

Bom dia Jhonas, tudo bem?

Vou ter num formulario um combobox com o nome dos bancos, dois datetimepicker para dataini e datafim e um button para pesquisar.

O resultado sairá num dbgrid.

Não é necessário que tenha uma coluna com o saldo anterior calculado a cada linha. Ele poderia ser mostrado apenas na primeira linha.

Segue um espelho da minha tabela

[Jhonas]

voce tem algumas opções

1 - trabalhar com campos calculados e somente mostrar no dbgrid esses campos  ( sem salvar )

2 - ou pode incluir esses campos na tabela e efetuar os calculos ( e salvar ) ... fica até mais facil para controle

3 - mostrar os valores finais de saldo anterior, debitos, creditos e saldo atual em Edits no Form apenas como referencia ao periodo selecionado  pela select

obs: os datetimepicker podem ser substituidos pelo componente DateEdit1 da Library RxLib ( mais bonito visualmente )

o que voce prefere ?

 

[renanbg]

Não precisa salvar no banco, apenas fazer o calculo dos saldos e mostrar no dbgrid, em colunas, ao exemplo de como está no primeiro tópico.

Editado Setembro 14, 2017 por renanbg

[Jhonas]

ok..  então utilize campo calculado

exemplo: veja a parte onde é incluido o campo calculado ( componente ClientDataSet )

ou veja

https://www.google.com.br/search?q=criar+campo+calculado+delphi+&o que=criar+campo+calculado+delphi+&gs_l=psy-ab.3..0i30k1l2j0i8i30k1l2.2541.5283.0.5662.7.7.0.0.0.0.168.688.0j5.5.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..2.5.683...0j0i7i30k1j0i8i7i30k1.pZgSuNw6vFE

abraço

[renanbg]

O campo calculado não serve neste caso, pois preciso pegar o historico de lançamentos.

Imagina que a tabela tem dados de 2001 até 2017 e você vai selecionar apenas um dia em 2015? Terei que pegar todos valores desde o inicio para ir calculando o saldo anterior e o atual.

Por isso pensei na stored procedure.

 

[Jhonas]

use campo calculado e salve o resultado ... dessa maneira quando voce selecionar um conjunto de dados ( apenas 1 dia de determinado mes e ano ou um período ) voce só tera que pesquisar por esse período ou data.

alem de agilizar a pesquisa ( rede ) trazendo poucos dados, o resultado sempre estara correto.

abraço