[Resolvido]exclusão de lote vencido sem perda de registros de saída

Bom dia, caros membros,

Sei que, sempre temos vários tópicos com temas iguais e/ou parecidos,
mas com a configuração dos formulários e as tabelas que o meu BD tem,
não tive sucesso nas pesquisas que fiz ou os tópicos que achei, não con-
segui implementar no BD.

- registramos a entrada de medicamentos
- esses medicamentos têm validade e são por lote.
- registramos as saídas de medicamentos, mas claro, somente com lotes
que estejam dentro da validade.

Meu problema é uma forma de excluir os lotes, quando a validade vencer,
mas sem excluir os registros de saída desses lotes, quando eles estavam
dentro validade.

Deixo o arquivo com o que é importante para os mestres darem uma
olhada, com dados registrados.

drive.google.com/file/d/1G10fS4V2zAUsLQQKDPFQItK-Np_2Z0-A

Desde já agradeço,

Ninguém ainda?

Todo mundo viajou no feriadão?

Não coloque espaço e acentos na tabelas, isso da problema

Código:

Private Sub Comando0_Click()
Dim db As DAO.Database
Set db = CurrentDb
    db.Execute "DELETE FROM Tbl_EntradasDet WHERE Valido_Ate < #" & Format(Date, "yyyy/mm/dd") & "#"
db.Close
    Set db = Nothing
        MsgBox "Registros excluídos com sucesso!", vbInformation
End Sub

Eriston,

Qual tabela e qual formulário voce se refere à rotina de exclusão?

A minha sugestão é que vc faça "exclusão lógica" do registro, ou seja, torná-lo inativo para determinadas operações, mas que ele seja histórico para outras operações e relatórios e etc.

Na tabela vc pode incluir os seguintes campos

Nome do campo                   Tipo                   Tamanho
ind_inativo                           Sim/Não             --
data_inativo                         Data/Hora           --
CodigoFuncionario                 Numero             --

Você vai "excluir logicamente" o registro alterando (UPDATE) os campos acima. Desta forma, toda vez que vc pesquisar a tabela e veificar esses campos, o sistema vai entender que o(s) registros estão inativos.

É isso

Att,

Alexandre Fim

Bom dia caros,

crysostomo, rapaz, não lembro de ter alguma tabela ou outra
entidade qualquer com acento etc, o máximo que coloco é o
underline... Diferente das legendas que sim, está escritas devidamente.

onde Válido_até = Validade (nome do campo), entendi a formatação da data, mas
retornou erro, mesmo assim. Testei no botão "excluir" do form Saida.

Esse código no evento ao clicar é no botão "excluir" ou em outro botão a criar?

-----------------------------------------

Alexandre Fim, bastante pertinente seu entendimento, mas não sei como
implementar isso no BD do jeito que está, veja que além dos forms de
entrada e saída e seus subforms (que atualizam somente o campo estoque
da tabela Produtos), criei um form para lotes vencidos e seu subform, pq
seria uma forma mais estética para o BD enfim, até o form "MovimentoVencidosLotes"
mostra os lotes vencidos funcionando bem, mas já tentei vários
códigos usados em exemplos que encontrei aqui, mas nenhum com sucesso.
É nele que pretendo excluir (ou deixar inativo), como vc sugere.

No form Entrada tudo está funcionando ok, todos os medicamentos e seus lotes são
registrados e o estoque vai alterando/somando certinho.
No form Saída, (com aviso na caixa azul) tbm está tudo ok, ao clicar no botão "Novo"
o campo "Código da Baixa" gera uma Nota com ano/mês/número e
tem o botão para ver os lotes em estoque, onde a data de validade está em ordem
crescente, obviamente pra saber que devo usar o lote com validade ok, inclusive, ao
dar 2 cliques na linha do devido medicamento ela preenche os campos "validade" e
"lote" do subform "MovimentoSaiDetalhe", alterando/diminuindo certinho do estoque ao salvar.

Entendo então que tenho 3 questões:
- Como excluir uma entrada e alterar no estoque (diminuir) somente aquela entrada?
- Como excluir uma saída e alterar no estoque (devolver/somar) somente aquela saída? (aqui tem vários ex)
- Como excluir somente o lote vencido (torná-lo inativo como Alexandre Fim sugere) e
alterar no estoque (diminuir) sem alterar uma saída onde ele tenha estado quando a
validade estava em dia?

Sei que sou ansioso às vezes, pq sei que tem muito fera aqui, mas é que gostaria muito
que fosse o mais funcional e fácil de entender, pq não sou somente eu que vou usar esse
sistema quando ficar pronto.
Tenho os relatórios de Entrada, Saída, Validade, Status, Medicamentos, suas consultas ok,
tudo legal, mas essa necessidade de tirar os lotes vencidos do estoque é importante, pq
eu preciso gerar um relatório/Nota de lotes vencidos para devolvê-los para o fornecedor
que é o que fazemos de fato.

Espero que os mestres Alexandre Fim e/ou crysostomo possam ajudar, enfim.

att,

Nenhuma sugestão, caros crysostomo e Alexandre Fim?

Boa tarde.

Ao criar o botão delete
Private Sub Comando0_Click()

Código:

Dim db As DAO.Database
Set db = CurrentDb
   db.Execute "DELETE FROM nome Da Tabela WHERE [b]nome do campo da tabela[/b]< #" & Format(Date, "yyyy/mm/dd") & "#"
db.Close
   Set db = Nothing
        MsgBox "Registros excluídos com sucesso!", vbInformation
End Sub

Existe essa forma e a como o Alexandre disse; deixa-los ele inativos. Isso depende de como vai seu projeto

Mas crysostomo, boa tarde,

Se vc baixou o BD no link que tem na primeira mensagem, notou que
eu criei os forms "MovimentoVencidos" e "MovimentoVencidosDet" na
intenção de excluir os lotes vencidos fazendo a alteração no campo
"estoque" da tabela "Produtos"...

Esse código que vc mandou agora de novo, serviria somente para eu
excluir alguma "entrada" de medicamento.

E sim, de fato, a ideia do Alexandre Fim é muita boa, mas ele só sugeriu
e não falou mais nada.

Não sou tão expert assim em Access, o auxílio de vcs mestres é sempre
de muita ajuda, nas dúvidas de todos.

Abraço,

Eu sou bem leigo, mas acredito que eu faria da seguinte forma:
Criaria uma tabela Lote com as seguintes variáveis: CodLote(Numeração Automática), CodDetEntradas(Número), NroLote(Número), QuantEntradas(Número), CodSaiDet(Número), QuantSaidas(Número), Validade(DataHora) e StatusLote(Assistente de Pesquisa com valores "Ativo" e "Inativo");
Removeria da tabela Tbl_EntradasDet os campos Quantidade, Validade e NroLote, pois essa tabela terá relação CodDetEntradas(Numeração Automática) com o campo CodDetEntradas(Número) da tabela Lote;
Removeria da tabela Tbl_SaidasDet os campos Quantidade, Validade e NroLote, pois essa tabela terá relação CodSaiDet(Numeração Automática) com o campo CodSaiDet(Número) da tabela Lote;

Dessa forma, Você teria acesso ao Lote em ambas as tabelas, precisando alimentar apenas uma vez o número do lote e podendo alterar o status dele se é inativo ou ativo.
Quando fosse colocar as saídas, filtrar para mostrar apenas os lotes ativos.

Abymael Souza, boa tarde fera

Até entendo sua sugestão com a tabela Lote, mas sou mais
leigo que vc então, nobre...

Como fazer uso da tabela Lote nos Forms de Entrada e Saída?
Essa tabela Lote é para criar um subform com ela?

Confesso que achei confuso a forma de implementar isso, a
ideia do Alexandre Fim, super interessante, mas o mestre
sumiu.

Enfim, vou continuar buscando uma saída pra questão.

Abraço,

Eriston boa tarde,

Você mencionou que vc pretende "excluir" (fisica/logica) o lote quando ocorrer o vencimento da data do medicamento.
Como seria essa questão do lote?
Existem N medicamentos para 1 Lote?
Dentro destes N medicamentos, acredito que nem todos tenham a mesma data de validade, certo?
Se sim, o lote não pode ser considerado enquanto a MAIOR DATA de vencimento dos medicamentos não for atingida. É isso?

Opa Alexandre Fim,
Boa tarde,

Não, cada medicamento tem um único lote, como conhecemos de fato... E a validade tbm é somente daquele medicamento...
Eu criei um Form e um subForm na intenção de usá-los pra fazer essa exclusão, mas não sei como fazer isso, dando baixa no campo "estoque" da tabela "Produtos"...

Sua sugestão de deixar inativo é perfeita, pq eu posso gerar um relatório entre períodos, justamente com todos os lotes vencidos naquele período.

Mas não sei como implementar isso, nesse BD que deixei o link na primeira mensagem, nobre.

Como fazer isso funcionar?

Abraço,

Ok, meu caro !!
Já baixei o exemplo e vou pensar numa solução para o problema. É simples!!

Att,
Alexandre Fim

Fico no aguardo Alexandre.

Boa tarde!

Em minha opinião, acho que deveria efetuar uma análise em seu fluxo de trabalho, ainda mais por ser tratar de medicamentos. Em uma primeira análise vejo que poderia criar campos tanto para as entradas como as saídas chamados tipo de movimentação, onde por exemplo criaria os tipos:

Entradas
----------
Compra
Empréstimo
Doação
Etc...

Saídas
-------
Remessa a UBS
Uso enfermaria
Quebra/Dano
Vencimento prazo validade
Etc...

Onde de acordo com a situação seria selecionado o tipo adequado a operação dando assim a entrada e a saída. Dessa forma seria criando então o histórico de para onde foi esse remédio vencido.

Eriston boa noite,

Fiz algumas alterações que julguei pertinentes para o funcionamento da tua necessidade no controle de lotes.

1 - Formulário para exclusão do lote


2 - Após "exclusão lógica" do lote, o sistema atualiza os campos abaixo:


3 - Ao informar o lote excluido na Saida de medicamentos, o sistema exibe mensagem ao usuário.


NOTA: No botão Salvar, também há validação do lote informado no subformulário, ou seja, não permite gravar o registro enquanto não informar o lote correto.

4 - Inclusão do campo na tabela de Produtos que define a quantidade mínimo de dias para vencimento do lote, que pode ser usado como um "aviso" pelo sistema, para que o usuário tome providencias.


5 - Criação de consulta com Status do Vencimento do medicamento conforme quantidade mínimo de dias da tabela produtos, através de cálculo entre datas.



Segue link para baixar o arquivo:
"https://drive.google.com/file/d/1HG3pTofL22fmheuYJ6PbjTTRE308sEmG/view?usp=sharing"


Espero ter ajudado.

Boa sorte

Att,

Alexandre Fim

Bom dia, Alexandre Fim,

Excelente solução, fera... Quase resolvida, creio.

O campo "estoque" da tabela Produtos, não é atualizado na exclusão
de lotes, concorda que a diminuição deve acontecer quando excluímos
um lote com sua devida quantidade?

Exemplo: tenho 2 lotes de um medicamento:
um lote A com 500 e outro B com 150 = 650, mas somente B está vencido,
quando eu excluir o lote B, o campo "estoque" da tabela Produtos precisa
ser atualizado pra somente 500, em vez dos 650 que constam lá.

Consegue uma solução?

Sobre suas alterações, muito lógicas e fáceis de entender... Vou ver se
altero os dados na consulta pra não mostrar os lotes excluídos no
Form "MovimentoLotes", assim não precisa do aviso na Msgbox e por
o Form de exclusão de lotes com o design igual os outros forms.

Att,

Eriston,

Ajustei a rotina para atualizar o estoque da tabela de Produtos:



O produto acima estava com 1000 un em estoque.
Ao excluir o Lote com 600 un, o estoque foi atualizado para 400 un :


Segue link da versão "GMed_v2".
"https://drive.google.com/drive/folders/1dtD-KDnZOjj7HQLKvBHpVS_4Lj5C0WJS"


Boa sorte

Att,

Alexandre Fim

Eriston,

Os ajustes feitos no sistema atenderam suas expectativas?
Se sim, finalize o tópico, por gentileza.

Att,

Alexandre Fim

Alexandre, boa tarde,

Atenderam até eu testar nova entrada e o lote não aparecer
no Form de Exclusão de Lotes que vc criou, eu fiz uma
entrada de um lote com 540 testes do Pezinho, que se somaram
aos 1000 que tinham na tabela Produtos, vi que vc colocou 1000
em todos os medicamentos.
Mas não aparece na combobox de Nº de Lote para excluir no Form
que vc criou, olhei a origem da linha, sem alterar nada, e tbm não
mostra ao executar no modo design.

Creio que seria somente esse o problema, ao testar aqui, nobre.

Eis o link com a Entrada, Lote "010101"
drive.google.com/file/d/1sGTXuY7R_OzbOGBOJJqMCx5pti9t4dAV


Obs. este lote está com data vencida, pq queria testar justamente
isso no BD.

Att,

Olá Eriston,

A consulta que monta o combobx de Lote na tela de exclusão, verifica esses 3 campos:


E o lote não aparece pq justamente o campo CodigoFuncionario está com valor ZERO, devido à propriedade "Valor Padrão" está definida como Zero (0).



Considerações:
1 - Remova o valor zero do campo "CodigoFuncionario" da tabela "Tbl_EntradaDet"
2 - Deixe o Valor Padrão como VAZIO...retire o ZERO.

Assim vai funcionar.

Faça os testes e nos informe sobre qq ocorrência indevida no sistema.

É isso.

Att,

Alexandre Fim

Vou dar como resolvido Alexandre, mas nos testes,
percebo que o usuário não pode errar de forma alguma
os registros de entrada ou saída, pq se precisar alterar
uma entrada ou uma saída qualquer, o estoque não mostra
a realidade de fato, sobre as quantidades.

Enfim, fera, obrigado pela grande ajuda, resolveu o tópico
como ele foi exposto aqui.

Abraço e bom dia,

Eriston,
Os respectivos formulários que vc mencionou já foram desenvolvidos por você.
Cabe a vc definir as validações de dados e habilitar o formulário para edição também.
Boa sorte.
Att
Fim