[Resolvido]Saldo de data

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!

Bom dia...

Poste a consulta envolvida para lhe ajudarmos.

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

Obrigado  

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

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

Abraço

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.

Já saiu até fumaça da cabeça...   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!

Encerrando o tópico.

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

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.
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!

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

Boa noite!

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.



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



Alguma sugestão?

Obrigado!

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

Prezado Ahteixeira, muito bom dia!

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

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!

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

Abraço