Caros amigos,

Tenho uma tabela de contas a receber e outra para contas a pagar. Nestas tabelas, existe um campo denominado TIPO, onde e informado se aquela conta e um CHEQUE, ou PROMISSORIA, ou DUPLICATA. Tanto em contas a receber, quanto em contas a pagar.
Preciso elaborar um relatorio de fluxo de caixa com essas duas tabelas, mas de uma forma particular:

- No cabecalho, haveria um campo que seria preenchido atraves de uma informacao de um formulario (isso e simples);
- O relatorio teria em seu corpo, totais das contas a receber por dia em cada linha e, mesmo se em um determinado dia nao houvesse contas a pagar ou a receber, seria impresso a linha referente aquela data com os valores zerados.
- No corpo do relatorio haveriam 9 colunas, sendo: as 4 primeiras colunas seriam referentes as contas a receber da seguinte forma: as 3 primeiras seriam a descriminacao dos recebimentos do dia (CHEQUES A RECEBER, DUPLICATAS A RECEBER e PROMISSORIAS A RECEBER), e a quarta coluna a soma destas tres.
- As proximas 4 colunas, teria o mesmo molde da anterior (CHEQUES A PAGAR, DUPLICATAS A PAGAR, e PROMISSORIAS A PAGAR), a quarta coluna seria o somatorio a pagar do dia.
- a ultima coluna seria o valor do cabe�alho + total das contas a receber do dia � total das contas a pagar do dia = saldo do dia.
- Ja os dias seguintes, nao usariam mais a informa��o do cabecalho, mas sim, o saldo do dia anterior.

Segue anexo, imagem da planilha que explica melhor o que preciso automatizar.

Oi Dennis,

Eu faria em dois passos:

1) Montaria um relatório só com uma das Contas (a receber), tentando montar a divisão de tipos.

2) Se conseguiu montar o relatório acima, visualizo que você pode se utilizar de uma consulta união. para fazer um único relatório, pois a estrutura de ambas as contas são identicas.

Espero ter ajudado.
...

A união já consegui fazer, mas não consegui:

1 - Fazer com que a primeira linha do corpo do relatório utilize o valor das disponibidades, e as demais linhas usariam o saldo do dia anterior;

2 - Não consegui fazer com que, as datas onde não ocorrem movimentações fossem impressas;

3 - Também não consegui especificar, separar por tipo, consegui somente os totais a pagar e receber;

Uma outra ideia seria utilizar uma tabela auxiliar. O relatório estaria então baseado nesta tabela auxiliar

veja o exemplo que eu utilizo num formulário.




faço um loop no periodo selecionado fazendo os cálculos necessários.

veja um pedaço do código

'-----------------------------------------------------
'Limpa tabela tblFluxodeCaixa para novo preenchimento
'-----------------------------------------------------
Me!Lista.RowSource = ""
mysql = "DELETE FROM tblFluxoDeCaixa;"
CurrentDb.Execute (mysql)

Set tblFluxo = CurrentDb.OpenRecordset("tblFluxoDecaixa")
DataControle = Me!dtaInicial
Saldo = Me!SaldoInicial
Do While DataControle <= Me!dtaFinal
    DataPesquisa = acertadata(DataControle)
    Crédito = fSomaCrédito(DataPesquisa, Me!cboCaixa)
    Débito = fSomaDébito(DataPesquisa, Me!cboCaixa)
    Saldo = Saldo + Crédito - Débito
    tblFluxo.AddNew
        tblFluxo!fxo_DataVencimento = DataControle
        tblFluxo!fxo_Crédito = Crédito
        tblFluxo!fxo_Débito = Débito
        tblFluxo!fxo_SaldoDia = Crédito - Débito
        tblFluxo!fxo_SaldoAcumulado = Saldo
        tblFluxo!fxo_Dia = fSemana(DatePart("w", DataControle))
    tblFluxo.Update
    DataControle = DataControle + 1
Loop
mysql = "SELECT fxo_DataVencimento, fxo_Dia, fxo_Crédito, fxo_Débito, fxo_SaldoDia, fxo_SaldoAcumulado "
mysql = mysql & "FROM tblFluxoDeCaixa ORDER BY fxo_DataVencimento;"
Me!Lista.RowSource = mysql

End Sub

'==============================================
Private Function fSomaDébito(datacap As String, sCaixa As String) As Double
Dim filtro As String
On Error Resume Next
filtro = "Quitar = 0 AND DataVencimento = " & datacap & " AND Caixa = '" & sCaixa & "'"
fSomaDébito = Nz(DSum("valorRecebimento", "tblPrestaçõesCap", filtro), 0)
End Function

'================================================
Private Function fSomaCrédito(datacar As String, sCaixa As String) As Double
Dim filtro As String
On Error Resume Next
filtro = "DataFluxo = " & datacar & " AND Caixa = '" & sCaixa & "'"
fSomaCrédito = Nz(DSum("valorPagamento", "tblPrestaçõesCar", filtro), 0)
End Function  

no aguardo.
...

This message has been edited. Last edited by: Avelino Sampaio,

Isso mesmo que preciso...

Duvidas:

Qual e a funcao acertadata?

O codigo usado para limpar tabela tblFluxodeCaixa para novo preenchimento, e aplicado no botao Montar Fluxo?

O que quer dizer datacap e sCaixa?

Como sao os relatorio (layouts)?

Muito Obrigado.

Oi meu amigo Dennis como estão as suas tabelas para esse procedimento como estão divididas? informe detalhes talvez possa ajudar vc a resolver este problema.

Aguardo um retorno!!!

Grande Adriano,

A tabela de contas a receber:
RECEBIDO (campo sim/nao)
TIPO_CONREC
DATA_VENCIMENTO
VALOR_RECEBER

A tabela de contas a pagar:

PAGO (campo sim/nao)
TIPO_CCP
DATA_VENCIMENTO
VALOR_PAGAR

Estes s�o os campos q necessito para serem trabalhados...

Lembrando que, a uniao das tabelas eu j� consegui. O que preciso e resolver as particularidades mencionadas.

Bom Dennis ve se eu entendi vc quer que no relatorio mostre o que a soma individual por parte e depois o total é isso?

um abraço!!!

Isso mesmo...

Mas, na primeira linha, e considerado a disponibilidade, ja na segunda, o saldo do dia anterior, e assim vai...

Igual a planilha...

Bom Dennis pode ser um longo caminho mais pode dar certo.

primeiro nessas tabelas contas a pagar e receber crie um campo chamado código da opção ou seja uma idéia opção 1 contas as pagar opção 2 contas a receber. para que isso? no relatorio não se vc já observou na barra de ferramentas uma opção agrupar e Classificar lá vc ordena como vc quer que os dados apareçam por campo e logo a seguir lá em baixo nesta caixa que aparece tem umas opções se quer que apareça o cabeçalho ou rodapé do agrupamento pelo campo e so mudar a opção para sim. Sendo assim essas opções que vc criou opção 1 e 2 seria para dividir as duas e agrupar os dados de cada uma delas e no rodapé desse agrupamento vc usaria os calculos nas caixas de texto bom essa é primeira etapa. Dennis uma eu consigo capturar a imagem do relatório como vc captura a imagem da planilha talvez ficaria mais fácil de entender.

Valeu Dennis!!!

Estou entendendo...

Pode continuar.

Vc tem messenger?
dennis.crc@hotmail.com

Dennis meu endereço é atno@hotmail.com

falou !!!