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


3 participantes

    [Resolvido]Saldo de data

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty [Resolvido]Saldo de data

    Mensagem  lindomar.silva 24/4/2017, 14:04

    Senhores, bom dia.
    Preciso de uma ajuda com uma consulta, tentei algumas alternativas e não deu certo, pesquisei aqui no Forum mas também não encontrei.

    Tenho uma Consulta com os campos abaixo e dados de exemplo:

    DATA_PEDIDO: 24/04/2017
    PEDIDO: 100
    PRODUTO: ABC123
    QTDE_PRODUZIR: 2100
    QTDE_CARGA_DIARIA: 700
    DIAS: 3    =[QTDE_PRODUZIR]/[QTDE_CARGA_DIARIA]
    DATA_ENTREGA: 27/04/2017    =[DATA_PEDIDO]+[DIAS]
    DATA_REAL_ENTREGA:


    O campo DATA_REAL_ENTREGA tem que ser um campo de "saldo de data", ou seja, tem que calcular a DATA_ENTREGA do registro anterior e somar com o campo DIAS.

    Exemplo:

    DATA_PEDIDO: 25/04/2017
    PEDIDO: 101
    PRODUTO: ABC123
    QTDE_PRODUZIR: 1400
    QTDE_CARGA_DIARIA: 700
    DIAS: 2    =[QTDE_PRODUZIR]/[QTDE_CARGA_DIARIA]
    DATA_ENTREGA: 27/04/2017    =[DATA_PEDIDO]+[DIAS]
    DATA_REAL_ENTREGA: 29/04/2017


    Alguma ideia como resolver isso?

    Desde já agradeço!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Silvio 24/4/2017, 14:38

    Bom dia...

    Poste a consulta envolvida para lhe ajudarmos.


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

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 24/4/2017, 17:51

    Boa tarde.
    Seguem arquivos (Banco de dados e imagem).

    Obrigado  Very Happy
    Anexos
    [Resolvido]Saldo de data AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 14 vez(es)
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 29/4/2017, 01:04

    Boa noite!
    Alguém teria alguma sugestão?

    [Resolvido]Saldo de data 110
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Alvaro Teixeira 29/4/2017, 01:15

    Olá Lindomar,
    Veja se consegue adaptar a mesma técnica deste exemplo:
    https://www.maximoaccess.com/t82-gerir-kilometros-das-viaturas

    Abraço
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 30/4/2017, 18:44

    Boa tarde ahteixeira.

    Obrigado pela dica, mas já tem 2 dias que estou tentando adaptar o exemplo que você sugeriu ao meu sistema, porém sem sucesso. Crying or Very sad

    Já saiu até fumaça da cabeça...  Rolling Eyes mas não consegui evoluir com o problema.


    De qualquer forma, agradeço pela sua tentativa em tentar me ajudar.
    Continuarei tentando achar alguma forma de resolver isso.


    Abraço!
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 3/5/2017, 00:24

    Encerrando o tópico.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Alvaro Teixeira 3/5/2017, 20:53

    Olá Lindomar,
    Resolveu, pode partlhar?
    Os membros do forum agradecem.
    Abraço
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Saldo de data

    Mensagem  lindomar.silva 12/5/2017, 22:46

    Olá ahteixeira, boa noite.

    Desculpe-me pela demora em retornar e obrigado pelo seu interesse no meu tópico.

    Gostaria de poder dizer que deu certo e compartilhar com os colegas do Fórum, porém não consegui ainda uma solução. Neutral
    Estou há dias "quebrando a cabeça" e fazendo pesquisas, porém sem sucesso.
    Infelizmente não sou um expert em programação VBA e SQL, mas sei que aqui no Fórum há grandes experts!

    Como já havia passado alguns dias e eu ainda não tinha conseguido nada de concreto aqui no Fórum, resolvi finalizar o tópico colocando como Resolvido.

    Acabei conseguindo uma orientação com o Mestre Avelino que chegou próximo do que eu precisava, porém ao excluir um registro o recurso para de funcionar. Além disso surgiu a necessidade de trabalhar com mais de um produto.

    Acredito que essa minha necessidade é algo de interesse (e poderá ser útil) para muitos aqui no Fórum.
    Principalmente quando se trata de assunto de produção, previsão de data, PCP, etc.

    Será que podemos dar continuidade ao assunto?
    Seria o caso de eu iniciar um tópico na sala Projetos em Desenvolvimento?

    Obrigado!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Alvaro Teixeira 16/5/2017, 08:51

    Olá, com base na imagem da mensagem n. 4.
    Só acontece com mais de um registo no mesmo dia ou deve ser corrido com várias datas.

    Exemplo poroduçao diária 3
    Dia 2 pedidos 6 (vai gastar dia 2 e 3)
    Dia 3 pedidos 6 (vai gastar dis 4 e 5)

    Abraço
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 17/5/2017, 01:19

    Boa noite! Very Happy

    Estou enviando um modelo (Access 2013).

    Resumo do cenário:

    O cliente cadastra os dados do Pedido. (Formulário Principal)
    Cada Pedido tem seus processos "cortar, furar, fitar". (Subformulário).

    A necessidade é controlar a Previsão de Entrega de cada processo, baseado na Capacidade diária de cada processo.

    A Data de Entrega do Pedido será a maior data de cada processo.

    Abaixo um exemplo do que gostaria que funcionasse. Na imagem a Data Prevista é baseada no Processo.

    [Resolvido]Saldo de data Tela110

    Mas no exemplo abaixo, a Data Prevista é baseada no ID. (VBA no subformulário)



    Alguma sugestão?

    Obrigado!
    Anexos
    [Resolvido]Saldo de data AttachmentPrevisão_Entrega.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 10 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Alvaro Teixeira 17/5/2017, 16:43

    Olá Lindomar, Veja se é isso.

    Código utilizado:
    Código:
    Private Sub QTDE_AfterUpdate()
        Dim uData, eData As Date
        
        'pesquisa última data do ID_PROCESSO
        uData = Nz(DLast("DT_ENTREGA", "QRY_PCP_DETALHES", "ID_PROCESSO = " & Me!ID_PROCESSO & "AND ID < " & Me!ID))
        
        Me!DIAS = Nz(Me!QTDE \ Me!CARGA_DIA, 0)
        
        If uData = 0 Then
            eData = DateAdd("d", Me!DIAS, Me!DT_PEDIDO)
        Else
            If uData > Me.DT_PEDIDO Then 'se tiver data entrega superior à data pedido
                eData = DateAdd("d", Me!DIAS, uData)
            Else
                eData = DateAdd("d", Me!DIAS, Me!DT_PEDIDO)
            End If
        End If
        
        'atualiza data entrega PCP_DETALHES
        Me!DT_ENTREGA = eData
        
        If IsNull(Forms!FRM_PCP!DT_ENTREGA_PCP) Then
            'atualiza data FRM_PCP
            Forms!FRM_PCP!DT_ENTREGA_PCP = eData
        ElseIf eData > CDate(Forms!FRM_PCP!DT_ENTREGA_PCP) Then
            Forms!FRM_PCP!DT_ENTREGA_PCP = eData
        End If
        Me.Refresh
    End Sub

    Abraço
    Anexos
    [Resolvido]Saldo de data AttachmentPrevisaoEntrega_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 35 vez(es)
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva 18/5/2017, 12:49

    Prezado Ahteixeira, muito bom dia!

    É exatamente o que eu precisava! Very Happy
    Está funcionando perfeitamente. cheers

    Muito obrigado pela boa vontade em me ajudar!

    Estarei melhorando o sistema e postarei ele aqui no Fórum em breve, dando os devidos créditos nas funções que você resolveu.


    Um grande abraço!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Alvaro Teixeira 18/5/2017, 16:05

    Olá Lindomar,fico feliz por ter ajudado.
    Obrigado pelo retorno.
    Os utilizadores do fórum agradecem.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Saldo de data Empty Re: [Resolvido]Saldo de data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:53