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]Saldo de data

    Compartilhe
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Saldo de data

    Mensagem  lindomar.silva em 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!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  Silvio em 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

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

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

    Obrigado  Very Happy
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 9 vez(es)
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

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

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

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  ahteixeira em 29/4/2017, 01:15

    Olá Lindomar,
    Veja se consegue adaptar a mesma técnica deste exemplo:
    [Você precisa estar registrado e conectado para ver este link.]

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva em 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!
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

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

    Encerrando o tópico.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  ahteixeira em 3/5/2017, 20:53

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

    Respeito às Regras 100%

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

    Saldo de data

    Mensagem  lindomar.silva em 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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  ahteixeira em 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
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva em 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.

    [Você precisa estar registrado e conectado para ver esta imagem.]

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



    Alguma sugestão?

    Obrigado!
    Anexos
    Previsão_Entrega.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 5 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  ahteixeira em 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
    PrevisaoEntrega_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 23 vez(es)
    avatar
    lindomar.silva
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  lindomar.silva em 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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Saldo de data

    Mensagem  ahteixeira em 18/5/2017, 16:05

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

    Abraço

      Data/hora atual: 15/11/2018, 04:45