MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 18/6/2021, 22:29

    Prezados mestres, boa noite.
    Estou com uma dúvida que não consegui resolver via pesquisa nos tópicos do fórum.
    Estou tentando montar uma consulta que me retorne os valores de aquisição e me retorne a variação de uma compra a outra (na ordem de data de compra) e o percentual de variação que houve.
    Obs.: Para a primeira compra (primeira linha), o valor tem que ser 0.

    Anexei o modelo do BD e um exemplo em EXCEL de como ficaria a consulta.

    Algum mestre poderia me auxiliar?

    Apesar de estar já há algum tempo no fórum, ainda não tenho 100% de experiência.

    Desde já agradeço o apoio.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentDocumentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 9 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 19/6/2021, 16:19

    Boa tarde
    Crie campo Registo com numeração automática
    Crie consulta com
    SELECT T1.Registo,T1.Codigo, T1.Descritivo, T1.Um, T1.Vlr_Aquisicao, Format(T1.Vlr_Aquisicao-T2.Vlr_Aquisicao,'0.0000') as Dif,Format(T1.Vlr_Aquisicao/T2.Vlr_Aquisicao-1,'0.00%') as DifPerc FROM Tab_Lanc as T1 LEFT JOIN Tab_Lanc as T2 ON T2.Registo=T1.Registo-1


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 19/6/2021, 22:06

    Mestre Alexandre, não consegui por em prática o indicado por vossa maestria.
    Pode detalhar melhor como aplicar este exemplo?
    Obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 20/6/2021, 09:26

    Bom dia Alesson
    Crie consulta, em modo sql, e cole o código e obtém a consulta desejada


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 20/6/2021, 10:24

    Mestre, bom dia.
    Fiz aqui e deu certo, obrigado.

    Só precisava que esta consulta reiniciasse para cada item diferente.
    É que no primeiro exemplo eu coloquei apenas um item, mas no relatório terão vários.

    Montei um relatório com um item diferente e o cálculo está sendo sequencial, sem a separação por item.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentModelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 6 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 20/6/2021, 20:13

    Boa tarde,
    SELECT T1.Registo, T1.Codigo, T1.Descritivo, T1.Um, T1.Vlr_Aquisicao, Format(T1.Vlr_Aquisicao-T2.Vlr_Aquisicao,'0.0000') AS Dif, Format(T1.Vlr_Aquisicao/T2.Vlr_Aquisicao-1,'0.00%') AS DifPerc
    FROM Tab_Lanc AS T1 LEFT JOIN Tab_Lanc AS T2 ON T2.Registo=T1.Registo-1 and T2.Codigo=T1.Codigo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 20/6/2021, 22:05

    Mestre Alexandre, boa noite.

    Desculpe continuar a importunar.
    Sua instrução deu certo, porém, na minha aplicação (anexo) não puxou o último lançamento que realizei para um item em específico.
    Acredito que por não estar na sequência da numeração automática.
    Existe algum meio de puxar pela última data do lançamento deste item?

    Na minha tabela de lançamento nem sempre os itens estarão na sequência de numeração automática.
    O ideal seria verificar pela data do lançamento (de cada item) e assim fazer a verificação da variação.

    Mais uma vez, obrigado.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentCapturar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 21/6/2021, 00:19

    Boa noite,
    Deve disponibilizar dados para trabalhar, a tabela não tem datas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 21/6/2021, 00:39

    Boa noite mestre.

    Segue BD.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentModelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 21/6/2021, 18:07

    Boa tarde
    Continua a não ter datas para trabalhar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 21/6/2021, 18:11

    Perdão.

    Segue BD corrigido.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentModelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 2 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 21/6/2021, 21:53

    Boa noite
    SELECT Data_Lanc_Lan_Det, NUMERO_ROMANEIO_LAN_DET, CODIGO_LAN_DET, DESCRITIVO_LAN_DET, UNID_MED_LAN_DET, PRECO_MEDIO_LAN_DET
    , (SELECT Format(T1.PRECO_MEDIO_LAN_DET-Max(PRECO_MEDIO_LAN_DET),'0.0000') FROM LANCAMENTO_DETALHES WHERE CODIGO_LAN_DET=T1.CODIGO_LAN_DET and Data_Lanc_Lan_Det IN (SELECT Max(Data_Lanc_Lan_Det) FROM LANCAMENTO_DETALHES WHERE Data_Lanc_Lan_Det


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 21/6/2021, 23:45

    Mestres, boa noite.

    Peço desculpas pela minha ignorância, mas não consegui aplicar a consulta...

    Segue erro (anexo) que está aparecendo.

    Grato.
    Anexos
    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) AttachmentCapturar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 2 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alexandre Neves 21/6/2021, 23:53

    Pode ter cortado a última parte
    Código:
    SELECT Data_Lanc_Lan_Det, NUMERO_ROMANEIO_LAN_DET, CODIGO_LAN_DET, DESCRITIVO_LAN_DET, UNID_MED_LAN_DET, PRECO_MEDIO_LAN_DET, (SELECT Format(T1.PRECO_MEDIO_LAN_DET-Max(PRECO_MEDIO_LAN_DET),'0.0000') FROM LANCAMENTO_DETALHES WHERE CODIGO_LAN_DET=T1.CODIGO_LAN_DET and Data_Lanc_Lan_Det IN (SELECT Max(Data_Lanc_Lan_Det) FROM LANCAMENTO_DETALHES WHERE Data_Lanc_Lan_Det<t1.Data_Lanc_Lan_Det AND CODIGO_LAN_DET=T1.CODIGO_LAN_DET)) AS Dif, (SELECT Format(T1.PRECO_MEDIO_LAN_DET/Max(PRECO_MEDIO_LAN_DET)-1,'0.00%') FROM LANCAMENTO_DETALHES WHERE CODIGO_LAN_DET=T1.CODIGO_LAN_DET and Data_Lanc_Lan_Det IN (SELECT Max(Data_Lanc_Lan_Det) FROM LANCAMENTO_DETALHES WHERE Data_Lanc_Lan_Det<t1.Data_Lanc_Lan_Det AND CODIGO_LAN_DET=T1.CODIGO_LAN_DET)) AS DifPerc
    FROM LANCAMENTO_DETALHES AS T1


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual) Empty Re: [Resolvido]Consulta para mostrar variação de preço (Valor e Percentual)

    Mensagem  Alesson 28/6/2021, 15:29

    Prezados, bom dia.

    Mestre Alexandre, muito obrigado pela ajuda.
    Tópico resolvido com sucesso.

      Data/hora atual: 20/9/2021, 10:00