[Resolvido]Controle de Vendas CNPJ

Bom dia,

Muitas pessoas baixaram aqui minha solicitacao, mas como nao tive um retorno, apaguei aquela e criei esta , vou tentar explicar melhor o que preciso.

Eu gostaria de controlar atraves de 1 caixas de listagem com 1 CNPJ, o total de NFs e totais de Vendas por Mês e Ano.
Gostaria que dentro da caixa de Listagem aparecessem as informacoes conforme figura abaixo.
Sendo que o Ano de referencia será controlado pela caixa de texto em Amarelo, e este Ano sera o que ira aparecer dentro da caixa de listagem, se 2019 entao dentro da caixa de listagem todos os meses serao referencia a 2019.

Se dentro da caixa de listagem da empresa A, por exemplo, eu clicar em Dezembro de 2018, nas caixas de texto que estao acima do icone de imprensao ira aparecer aquelas informacoes. Em posse disto poderei fazer a imprensao.

* Note que dentro da TBl_Compras eu coloqueii 2017 e 2018.Esta tabela é onde registrarei as Compras ( entradas de mercadorias )

* A tblVenda é onde estara registrado as Vendas ( Saida de Mercadorias - Vendas )

Coloquei um botao de Impressora, pois assim que essa parte tiver pronta poderei imprimir em papel. Esta parte eu acho que consigo fazer baseado nos outros relatorios que aqui ja tenho de outras partes do meu sistema.

Como sempre obtenho aqui ajuda, estou certo de que terei novamente êxito.

Muito Obrigado.

Andre

PS : Em TblVenda eu coloquei algusn Empresa A e Empresa B, considere somente como sendo Empresa A, para que os dados dentro desta tabela funcionem corretamente.

Andre

Bom dia André,

Tente assim:

Na Origem da Linha da sua Caixa de listagem, coloque a condição Where conforme a seguinte:

SELECT TblMei_EmpresaA.ID, TblMei_EmpresaA.Ano, TblMei_EmpresaA.Mes, TblMei_EmpresaA.Valor, TblMei_EmpresaA.NF FROM TblMei_EmpresaA WHERE (((TblMei_EmpresaA.Ano) Like Nz([AnoRef],"*")));

E alterei o evento dela Ao clicar, colocando o seguinte:

Private Sub Lista2_Click()
   Dim nCod As Long
   nCod = Me.Lista2.Column(0)
   Me.Filter = "TblMei_EmpresaA.ID=" & nCod
   Me.FilterOn = True
End Sub

Além disso, tive que fazer alteração da quantidade de colunas da Lista e Medidas para incluir a coluna ID.


E no evento Após Atualizar do campo AnoRef:

Private Sub AnoRef_AfterUpdate()
   Me.Recalc
End Sub

Segue exemplo em anexo

Livio, sabia que vc ia responder, grato mais desta vez. Vou testar aqui hj adaptando a meu sistema e volto aqui pdepois pra responder e fechar este topico.

Bom final de semana

Andre

Livio segue a Tabela modificada.
Gostaria que ficasse desta forma.

Grato

Andre

Bom dia....

Veja se é isso que precisa.

Bom dia, Silvio, dentro da solicitacao original seria sim, assim como o Livio tb me passou mais acima. Porem Fiz uma modificacao e mandei uma nova correcao, e está logo acima de sua psotagem.

Obrigado mesmo assim pela sua ajuda.

Grato

Andre

Você olhou corretamente as duas listbox ?
Mudou de ano para ver o que ocorre ?
Entrou as duas query´s que criei para gerar as listas ?

Entao baixei seu arquivo mas aparece no Form somente 1 caixa de listagem.
Vc se baseou na primeira solicitacao que fiz, essa ficou corrtea. porem Fiz uma correcao e disponibilzei .



Baixe o arquivo logo acima de sua primeira mensagem.


EU pedi uma coisa e depois pedi outra, favor se basear no segundo arquivo que disponibilizei.


Andre

Você está correto...mandei o arquivo errado.   Lamento, me desculpe...ato falho meu !

O certo está no anexo.

E quase isso Silvio.

Bz, mas ficou o erro. de estar somente aparecendo o mes de Setembro.
Era pra aparecer setembro/Vendas = 2542,00 , que seria a Total da soma das vendas e Setembro/NF = 4472.80 ( Somatorio de NF ).

Preciso no mesmo Formulario a imagem abaixo sendo uma pra Empresa A e outra prara empresa B , serao 2 caixas de listagens no mesmo Formulario controlados pelo ANo comum aos dois.

Cada caixa de listagem conterá O Ano, comum as 2 caixas de listagens, o Mes janeiro a Dezembro, o Valor que pegara a soma dos valores do mes na TblVenda de cada Empresa, e a Soma por cada mes dentro da TblCpmpras.

Veja que existem a Tbl Venda e Tbl_Compras

Valor usa a TblVenda e NF usa a Tbl_Compras.
Exemplo, na imagem acima eu tenho o somatorio das vendas do mes de janeiro e tenho o somatorio das compras ( NF)

Bom dia, tentarei ser mais claro no que eu gostaria. Sei que acabei confundindo.

Eu tenho uma TblVenda, nesta tem a data da venda ( 18/10/2018), a Empresa que foi feita a venda (Empresa A ou Empresa B), tem o valor total da Venda.
Noutra TblCompra eu tenho as compras ( entrada de mercadoria), contendo a data da compra e o Total de produtos adquiridos naquela NF ( Nota Fiscal ).
Preciso de um Formulario que contenha 2 Caixas de listagens, uma para cada Empresa A e B.
Quero que apareca em cada caixa de listagem 4 colunas:
ANo- Que sera controlado por uma caixa de Texto Externa a ambas as caixas de listagem,
MEs- Nesta coluna sempre ira aparecer Janeiro, Fevereiro, Marco ....., pois sao 12 meses.
Valor- NEsta coluna ira aparecer por exemplo na linha Janeiro, o somatorio de todas as vendas feitas na TBlVenda destinada a Empresa A.
NF- Nesta coluna ira aparecer por exemplo na linha Janeiro, o somatorio de todas as COMPRAS feitas na TBl_Compras destinada a Empresa A.

Sendo assim a Coluna Mes, nao devera puxar os meses de nenhuma das Tabelas, pois nesta coluna Mes, sempre ira aparecer os Meses do ano de Janeiro a Dezembro.
A Data nao ira aparecer na caixa de listagem, pois so preciso mesmo do somatorio dos valores do Mes referentes as TBlVenda e Tbl_Compras.

Na Caixa de Listagem referente a Empresa B, sera o mesmo processo acima.



Grato

Andre

Baseado no ultimo exemplo postado pelo Silvio, faça:

1)Na propriedade Dados, Origem da linha, das caixas de listagens, entre na consulta e exclua os campos: idVenda e dataVenda
2)Clique no botão totais, aquele com símbolo de somatório Σ
3)No campo valor, onde está agrupar por coloque soma (para não ter problemas, mude o nome do campo valor, pois esta é uma palavra reservada do access)
4)Salve, abra o form e teste a consulta.

obs.: faça isso nas duas caixas de listagem.

Ola FabioGO, fiz conforme explicou, mas nao deu certo aqui.

Em TblVenda mudei Valor pata Total
Fiz a modificacao na Caixa Listagem Empresa A.
Outra coisa, preciso que em cada caixa de listagem tb Apareca o Total de Cada Mes que esta em TBl_compras ao lado de Valor de caixa Listagem.

Andre


A sim Empresa Coluna nao e pra aparecer, somente Total de Vendas e Total de NF

Olha, aqui eu fiz conforme lhe falei e esta fazendo sim o que você quer, dê uma olhada no anexo.

Tenha em mente que tem que ter registros de outros meses pra funcionar, no ano de 2018 só tem registros de setembro. Cadastre mais registros com outros meses e teste.

Eu acabei vendo sim onde tinha errado, mas queria que aparecesse tb ao lado do total de setembro, o Total de setembro tambem que esta na Tbl_Compras

Veja se é isso

Tive que mudar um pouco da estrutura de consultas e da caixa de listagem

Agora sim FabioGo, ficou legal mesmo, so poderia mudar o campo Mês 09 pra aparecer Setembro ?

Brigadao Mesmo

Andre

Os valores tb nao estao batendo das somas de Vendas e NF

Nas duas consultas, adicione um campo com a expressão "NomeMes: NomeMês(Mês([dataVenda]))" sem o aspas para a QryVendas e "NomeMes: NomeMês(Mês([DataCompra]))" também sem o aspas para a QryCompras.

Depois é só adicionar os campos na origem das ListBox e alterar as propriedades para que apareça o campo com o nome do mês.

Note que em tabela Compras eu nao tenho mes de setembro, portanto nao era para aparecer em nenhum das duas caixas de listagem valores para NF

fiquei confuso aqui , pode me encaminhar de novo ?

Depois é só adicionar os campos na origem das ListBox e alterar as propriedades para que apareça o campo com o nome do mês.

Fiz a correção, tinha faltado amarrar o mês das duas tabelas.
No entanto, para que apareça o registro na listbox com os dois totais, deverá haver pelo menos 1 registro, tanto na tabela de compras quanto na de vendas, dentro do mesmo mês e ano, nem que seja com valor R$0,00, para que possa aparecer na listbox

FabioGO, muito Obrigado pela sua paciencia em ajudar.
Agora ficou bom,
Te agradeço o empenho.
em poucos meses de Acces, desde Abril deste ano, eu aprendi muito aqui neste forum.

Andre

FabioGo escreveu:Fiz a correção, tinha faltado amarrar o mês das duas tabelas.
No entanto, para que apareça o registro na listbox com os dois totais, deverá haver pelo menos 1 registro, tanto na tabela de compras quanto na de vendas, dentro do mesmo mês e ano, nem que seja com valor R$0,00, para que possa aparecer na listbox

Agora entendi o que quis dizer.

Eu coloquei por exemplo na TBlVenda 28/02/2018 e na TblCompra nao coloquei nenhuma compra netse nês, dai ao rodar o form nao apareceu o Mes de Fevereiro.

Sera que nao teria mesmo como criar uma ação para se ou TblVenda ou TblCompra nao houver nada em determinado Mês considerar 0,00 ?

Andre

Ou você adiciona registros manualmente, ou deverá reescrever o bd usando algumas rotinas em VBA.
No momento não vou dispor de tempo para isso, ou você mesmo se dispõe e pesquise um pouco mais ou espere se alguém mais souber como resolver isso de forma rápida, pois sou limitado, também estou aprendendo.

Da forma que esta esta bom demais.
Adaptei aqui no meu sistema e ficou Show.

Mais uma vez muito grato.

Andre

Se está funcional é o que importa.
Mas nada impede de mais pra frente, você pegando mais experiência, você melhorar o funcionamento.
Fico feliz de ter funcionado.

Agora entendi o que quis dizer.

Eu coloquei por exemplo na TBlVenda 28/02/2018 e na TblCompra nao coloquei nenhuma compra netse nês, dai ao rodar o form nao apareceu o Mes de Fevereiro.

Sera que nao teria mesmo como criar uma ação para se ou TblVenda ou TblCompra nao houver nada em determinado Mês considerar 0,00 ?

Andre

FabioGO escreveu:Ou você adiciona registros manualmente, ou deverá reescrever o bd usando algumas rotinas em VBA.
No momento não vou dispor de tempo para isso, ou você mesmo se dispõe e pesquise um pouco mais ou espere se alguém mais souber como resolver isso de forma rápida, pois sou limitado, também estou aprendendo.

REabri o Topico, pois vamos aguardar que algum amigo aqui do forum possa nos ajudar a contornar esta situacao, sem eu ter que reeditar meu BD que e muito grande.

Agradeco ate aqui tudo que fez FabioGo.


Andre

E queria por o Mes iniciando com a letra maiuscula

Andre

No campo do nome do mês nas consultas, colocar NomeMes: SeqConv(NomeMês(Mês([DataCompra]));3) e NomeMes: SeqConv(NomeMês(Mês([DataVenda]));3)

Onde está o 3 na função significa que a primeira letra será maiúscula

Se colocar 2 serão todas minúsculas

Se colocar 1 serão todas maiúsculas

Edit

Na verdade, para atualizar na caixa de listagem, abra a consulta da caixa de listagem e crie um novo campo com a expressão:

MesM: SeqConv([QryVendas].[NomeMes];3)

Após criar, troque as posições dos campos na consulta para que o campo correto apareça na listbox do formulario

faça isso nas duas caixas de listagem

Ficou perfeito Fabio GO, vamos agora esperar que alguem saiva agora como resolver o outro problema.

Andre

Nao vi que tinha editado sua resposta,

Fiz so isso e deu certo, ficou Maiuscula com o 3

FabioGO escreveu:No campo do nome do mês nas consultas, colocar NomeMes: SeqConv(NomeMês(Mês([DataCompra]));3) e NomeMes: SeqConv(NomeMês(Mês([DataVenda]));3)

Onde está o 3 na função significa que a primeira letra será maiúscula

Se colocar 2 serão todas minúsculas

Se colocar 1 serão todas maiúsculas

Veja se atende. Estude o que foi feito. Sucesso.

Ola, testei aqui ano de 2018 ficou certo, porem 2016 e 2017 ficou tudo zerado, porem perceba nas tabelas que existem mesmes com valores em 2016 e 2017 nas duas tabelas/

Andre

digamos que em 2017 algum mes tenha venda e nao tenha CNPJ, entao era para aparecer . Mas so aparece se Venda e NF ouver algum registro nos nois Vendas e NF dentro do mês.

Ahhh... então esse era o problema. Pensei que só o que queria era que todos os meses aparecessem. Fiz com o que tinha a mão. Notei que não dava resultado também pra outros anos no arquivo da mensagem nº 24 e pensei que tava normal pois não tinha parado pra analisar as relações das tabelas. Estudando aqui. Já retorno com o resultado.

Agora vai... sempre quis array bidimensional. Tive que mexer na estrutura da tabela compras: campo "Empresa" estava com texto quando na verdade devia ser número. Tive que fazer isso pois na tabela vendas você salva o nome da empresa, já em compras você salva o id da empresa. E na consulta eu precisava puxar o nome da empresa pra usar como filtro para montar o quadro de valores anual. Estude como fiz.

Código que faz a lista A

Código:

Dim i As Byte
    Dim rs As DAO.Recordset
    Dim arrValor(1 To 12, 1 To 2) As Currency
    Dim strEmpresa As String
   
    strEmpresa = "EmpresaA"
   
    Set rs = CurrentDb.OpenRecordset("SELECT Ano, Mês, Empresa, TotalCompras " & _
                                    "FROM QryCompras " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strEmpresa & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 1) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing
   
    Set rs = CurrentDb.OpenRecordset("SELECT Ano, Mês, Empresa, TotalCompras " & _
                                    "FROM QryVendas " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strEmpresa & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 2) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing
   
    For i = 1 To 12
        Me!LstEmpresaA.AddItem Me!AnoRef & ";" & StrConv(MonthName(i), vbProperCase) & ";" & strEmpresa & ";R$ " & Format(arrValor(i, 1), "Standard") & ";R$ " & Format(arrValor(i, 2), "Standard")
    Next i

Nesta linha pra empresa A

Código:

strEmpresa = "EmpresaA"

Nesta linha pra empresa B

Código:

strEmpresa = "EmpresaB"

Sugiro copiar as consultas pro seu projeto. Observe que das originais foi tirado o filtro que apontava pro formulário, também foi excluído delas o campo que dava o nome do mês etc. Também foi excluída tabela tblAnoFiltro.

Ola IvanJR, demorei a responder porque tive dificuldades em entender todas as mudancas que fez tanto nos codigos da macro quanto na alteracao da caixa de listagem em :

Tipo de Origem da linha =Lista de Valores, o meu estava Tabela Consulta.

PS: No seu exemplo vc inverteu as posicoes de Compra e Venda.

O meu codigo ficou assim pois alterei umas ordens e tive que acrescentar mais uma str, devido em TblCad_EMpresa ter Empresa e nome fantasia.:

Código:

Private Sub fncFazLista1()

    Dim i As Byte
    Dim rs As DAO.Recordset
    Dim arrValor(1 To 12, 1 To 2) As Currency
    Dim strEmpresa, strFantasia As String
   
    strEmpresa = "EmpresaA"
    strFantasia = "Loja Joao"
                                       
    Set rs = CurrentDb.OpenRecordset("SELECT * " & _
                                    "FROM QryVendas " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strEmpresa & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 1) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing
   
    Set rs = CurrentDb.OpenRecordset("SELECT * " & _
                                    "FROM QryCompras " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strFantasia & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 2) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing
   
    For i = 1 To 12
        Me!LstEmpresaA.AddItem Me!AnoRef & ";" & StrConv(MonthName(i), vbProperCase) & ";" & strEmpresa & ";R$ " & Format(arrValor(i, 1), "Standard") & ";R$ " & Format(arrValor(i, 2), "Standard")
    Next i

End Sub

Código:

Private Sub fncFazLista2()

    Dim i As Byte
    Dim rs As DAO.Recordset
    Dim arrValor(1 To 12, 1 To 2) As Currency
    Dim strEmpresa As String
   
    strEmpresa = "EmpresaB"
    strFantasia = "Loja do Pedro"

    Set rs = CurrentDb.OpenRecordset("SELECT * " & _
                                    "FROM QryVendas " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strEmpresa & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 1) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing

    Set rs = CurrentDb.OpenRecordset("SELECT * " & _
                                    "FROM QryCompras " & _
                                    "WHERE Ano = " & Me!AnoRef & " And Empresa = '" & strFantasia & "' " & _
                                    "ORDER BY Mês;", 8)
                                   
    While Not rs.EOF
        arrValor(rs.Fields(1), 2) = rs.Fields(3)
        rs.MoveNext
    Wend
   
    rs.Close: Set rs = Nothing
   
    For i = 1 To 12
        Me!LstEmpresaB.AddItem Me!AnoRef & ";" & StrConv(MonthName(i), vbProperCase) & ";" & strEmpresa & ";R$ " & Format(arrValor(i, 1), "Standard") & ";R$ " & Format(arrValor(i, 2), "Standard")
    Next i

End Sub

Esta tudo certinho agora, entao meu muito Obrigado a vc e a ao FabioGO.

Andre

O fórum agradece o retorno. Sucesso.

So uma ultima coisa IvanJr, se eu quiser colocar 2 caixas de texto por fora , sendo 1 para Total De Vendas e outra Total NF para todo o ano corrente, como eu faria ?

Total Vendas = Soma de Janeiro a Dezembro
Total NF = Soma de Janeiro a Dezembro

Grato

Andre

Um modo simples, numa caixa de texto, na propriedade Dados, Fonte do Controle, coloque o texto:

Código:

=Nz(DSoma("[TotalCompras]";"QryCompras";"[Ano]= [AnoRef] ");0)

FabioGO, nao funcionou nao, poderia neste ultimo BD enviado acima me mandar 4 caixas de texto para cada Empresa A e B, sedndo uma caixa com total de vendas e outra total de compras?

Outra forma

Ola IvanJR, adaptei aqui certinho e ficou correto, Grato por mais esta ajuda.

Estava entao aqui pensando, Minha tela ficou desta forma:



Se eu quiser criar um PDF e imprimir direto do Formulario somente o quadro a direita onde esta o Relatorio Mensal das Receitas Brutas , isso seria possivel, sem ter que criar um Relatorio ?

Cito que para cada Resumo de Empresa A e B, existe a imagem da impressora. e somente 1 Quadro, pois o quadro do relatorio e usado a ambas as empresas.
Quando aciono a impressora da imagem em Empresa A ou B, o Relatorio e preenchido conforme os dados de cada Empresa.

Ja esta tudo OK, preciso so saber como criar um PDF deste Relatorio a direita e criar o PDF, e em seguida imprimir. Para isso criarei um Novo botao de comando criar PDF que sera posto ao lado de RefAno.

Com isso eu fecho de vez e termino este Formulario

Grato Andre

FabioGO, nao funcionou nao, poderia neste ultimo BD enviado acima me mandar 4 caixas de texto para cada Empresa A e B, sedndo uma caixa com total de vendas e outra total de compras?

Funciona sim, era só colocar o filtro para empresa A e empresa B na função e mudar a consulta conforme compra ou venda:

Código:

=Nz(DSoma("[TotalCompras]";"QryCompras";"[Empresa]= 'EmpresaA' and [Ano]= [AnoRef] ");0)
=Nz(DSoma("[TotalVendas]";"QryVendas";"[Empresa]= 'EmpresaA' and [Ano]= [AnoRef] ");0)
=Nz(DSoma("[TotalCompras]";"QryCompras";"[Empresa]= 'EmpresaB' and [Ano]= [AnoRef] ");0)
=Nz(DSoma("[TotalVendas]";"QryVendas";"[Empresa]= 'EmpresaB' and [Ano]= [AnoRef] ");0)

Mas a solução do IvanJr seguiu o esquema que ele já havia proposto e está a funcionar também.

Sim FabioGo, obrigado tamebm amigao !

Outra duvida ainda neste tema:

Se na TblVenda conter os campos: IdVenda, Data, Empresa, PagoDinheiro, PagoDebito, PagoCredito.
O campo Empresa podera ser preenchido conforme a Empresa lançada ( Empresa A ou Empresa B ).

Tenho o Formulario em questao onde ja existe a caixa de Texto REFANO.
Preciso criar 4 caixas de texto, 2 para Empresa A ( Cx1 e Cx2 ) e 2 para Empresa B ( Cx3 e Cx4 ).

Em Cx1 será somado todos os valores que estao no campo da TblVenda/PagoDinheiro ( seguindo a referencia do Ano e Empresa A )
Em Cx2 sera somado todos os valores que estao em PagoDebito + PagoCredito ( seguindo a referencia do Ano e Empresa A )

Em Cx3 será somado todos os valores que estao no campo da TblVenda/PagoDinheiro ( seguindo a referencia do Ano e Empresa B )
Em Cx4 sera somado todos os valores que estao em PagoDebito + PagoCredito ( seguindo a referencia do Ano e Empresa B )

Para isso seria possivel me fazer este adicionamento ?

Grato

Andre

O que diferencia se é pagamento em crédito ou dinheiro? Um campo na tabela? Como é esse campo, sim/não, texto simples?

Código:

=Nz(DSoma("[CampoASerSomado]";"TblVenda";"[Ano]= [AnoRef] and [Empresa]= 'EmpresaA' and [PagoDinheiro]= 'SIM'");0)
=(Nz(DSoma("[CampoASerSomado]";"TblVenda";"[Ano]= [AnoRef] and [Empresa]= 'EmpresaA' and [PagoDebito]= 'SIM'");0))+(Nz(DSoma("[CampoASerSomado]";"TblVenda";"[Ano]= [AnoRef] and [Empresa]= 'EmpresaA' and [PagoCredito]= 'SIM'");0))