MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Controle de Vendas CNPJ

    Compartilhe

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 9/10/2018, 13:32

    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


    Anexos
    ControleMEI1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 62 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 9/10/2018, 13:35

    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
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  livio.sfranca em 11/10/2018, 14:51

    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
    Anexos
    ControleMEI1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 40 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 12/10/2018, 14:25

    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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 17/10/2018, 00:08

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

    Grato

    Andre
    Anexos
    CNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 27 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4178
    Registrado : 20/04/2011

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  Silvio em 17/10/2018, 12:31

    Bom dia....

    Veja se é isso que precisa.
    Anexos
    ControleMEI1_EXEMPLO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 36 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 17/10/2018, 14:12

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4178
    Registrado : 20/04/2011

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  Silvio em 17/10/2018, 14:29

    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 ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 17/10/2018, 14:37

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4178
    Registrado : 20/04/2011

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  Silvio em 17/10/2018, 14:59

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

    O certo está no anexo.
    Anexos
    CNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 34 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 17/10/2018, 15:58

    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




    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 17/10/2018, 16:38

    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)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 13:20

    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




    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 13:38

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 14:11

    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







    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 14:51

    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.
    Anexos
    CNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 15 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 15:05

    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

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 16:47

    Veja se é isso

    Tive que mudar um pouco da estrutura de consultas e da caixa de listagem
    Anexos
    CNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (125 Kb) Baixado 17 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 16:58

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

    Brigadao Mesmo

    Andre

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 17:23

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

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 17:29

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 17:36

    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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 17:39

    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.


    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 17:49

    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
    Anexos
    CNPJ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (108 Kb) Baixado 40 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 17:58

    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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 19:34

    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


    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 21:14

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 18/10/2018, 21:25

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

    Mais uma vez muito grato.

    Andre

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 18/10/2018, 21:35

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 19/10/2018, 00:34

    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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 19/10/2018, 00:41



    E queria por o Mes iniciando com a letra maiuscula

    Andre


    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 19/10/2018, 01:29

    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



    Última edição por FabioGO em 19/10/2018, 01:49, editado 1 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 19/10/2018, 01:41

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

    Andre

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 19/10/2018, 01:53

    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

    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 20/10/2018, 19:48

    Veja se atende. Estude o que foi feito. Sucesso.
    Anexos
    CNPJ_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (146 Kb) Baixado 29 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 20/10/2018, 20:43

    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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 20/10/2018, 21:22

    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.
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 20/10/2018, 21:27

    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.
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 20/10/2018, 22:56

    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
    Anexos
    CNPJ_rev2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (149 Kb) Baixado 70 vez(es)
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 20/10/2018, 23:50

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 21/10/2018, 03:58

    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

    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 21/10/2018, 04:09

    O fórum agradece o retorno. Sucesso.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 26/10/2018, 15:07

    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

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 26/10/2018, 22:31

    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)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 27/10/2018, 15:45

    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?
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  IvanJr. em 27/10/2018, 16:15

    Outra forma
    Anexos
    CNPJ_rev3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (183 Kb) Baixado 40 vez(es)

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 27/10/2018, 17:17

    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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 29/10/2018, 11:52

    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.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  fazerbem em 29/10/2018, 20:01

    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

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 22/08/2012

    Re: [Resolvido]Controle de Vendas CNPJ

    Mensagem  FabioGO em 30/10/2018, 19:02

    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))

      Data/hora atual: 18/1/2019, 12:18