[Resolvido]Limitar solicitação de estoque por usuário

Bom dia!
Prezados amigos, eu tenho um formulário de solicitação de estoque e eu gostaria de limitar a solicitação dos produtos de estoque. Na empresa que eu trabalho temos 10 filiais e gostaria de limitar as solicitações por quantidade de produto a cada 15 dias.
Ex..: A filial (A) só pode pedir de 15 em 15 dias 10 canetas azuis. Apos os 15 dias o sistema libera a solicitação de novo.
Desde já grato!

Bom dia...

Algo parecido com isso para pensar e estudar...

Código:

If datapedido +15 <date() then ' se data do pedido mais 15 dias, for menor que a data de hoje então.
me.seucampo_de_quantidade.enabled=false ' seu campo onde coloca a quantidade está desabilitado para inserção de quantidade.
msgbox ("sua mensagem de aviso"),vbcritical, me.caption ' uma mensagem qualquer de aviso

elseif datapedido+ 15 > date() then
me.seucampo_de_quantidade.enabled=true

end if

Bons estudos !

Boa tarde!
Silvio, grato pela atenção.

Boa noite amigo,
Eu precisava limitar is pedido de 15 em 15 dias e limitar também a quantidade itens solicitado por filial.

Ex: filial A só pode pedir 500 envelopes de 15 em 15 dias. Se pedir 501 e sistema criticar.

Disponibiliza a sua base de dados, para ver como esta a estrutura fica mais fácil.



ate mais

Segue o bd. Grato pela atenção.

Claudio, seguinte.....

Terá que ser criado uma tabela com as unidades e com as quantidades que podem vir a ser pedida para cada item em estoque, ou seja estaremos estabelecendo o limite para cada unidade.

Unidade: Ilha
Produto: caixa de isopor
Qtd: 10 -> esse será o limite para essa unidade, pode variar de unidade para unidade.

Isso vai dar trabalho a principio para você mas depois, administrar isso é fácil ! Esse é o primeiro passo para chegar onde você deseja

Pow show.....Já estou preparando
Grato pela atenção. Após esta tabela criada qual o segundo passo ?

Uma dica....

Nas caixas de combinação, combobox, coloque sempre uma caixa de texto oculta para receber o texto da coluna 1 ou 2 ( depende de onde está o texto).

Motivo, estive vendo a TBL_PEDIDODET e não aparece os materiais e isso prejudica muito a administração de um banco de dados. E ajuda muito, quando se cria uma consulta e posteriormente.....relatórios.

Faça isso......e vamos por partes.

Show. Blz

Grato.

Qual o fator limitante, o prazo de quinze dias ou qnt.?

o dia de retirada é fixo ou variável?


Vou tentar desenvolver em paralelo com você.
Va seguindo os conselhos do Silvio


Ate mais

Há dois fatores que tem que ser levados em conta:

data de pedido: se for superior a 15 dias, deverá haver bloqueio. Se inferior, liberado.

Quantidade: Limitado. Terá que ser construído uma tabela onde será realizado o cadastro de cada unidade por quantidade de material.


Ou seja teremos que partir para: Dlast para datas...e Dlookup para quantidade de materiais. Isso tudo dentro de um IF e Else.

Sou grato a vcs.....Já estarei preparando a tabela com as filiais e a quantidade de cada setor.

Fiz algumas modificações no banco de dados, para ficar mais fácil para mim......

o evento de checagem esta no campo "quantidade"

Veja se é isto que voce quer se sim tentaremos adaptar ao seu projeto, depois de algumas modificações rsrsrsrsrs.


att

Bom dia!

Prezado, desculpa não ter respondido antes, passei por momento meio complicado. Pow ficou ótimo.Só a informação do dia que fiquei meio na duvida, não entendi direito a mensagem. Teria como informar a data do último pedido.

Obrigado pela atenção.

Substitua o codigo por este

'scandinavo 31/05/15
' Declara as variáveis.
Dim DataAnterior As Date ' Data do ultimo pedido
Dim DataAtual As Date ' Data pedido atual
Dim QntPermitida As Integer
'Confere se ja foi dado alguma saida de material
'aqui como ainda não foi feito nenhuma retirada permite retirar mais do que o permitido
'a partir da proxima é bloqueado
If DCount("Material", "csConferencia") > 0 Then
'carrega as variaveis
DataAnterior = DLast("[Data/Hora]", "csConferencia")
DataAtual = Forms!frmPedido!DATAVENDA
QntPermitida = DLookup("QntLimiteSetor", "csConferencia", "Material=" & "Material")
'verifica se esta dentro do prazo e a qnt é permitida
If DateDiff("d", DataAnterior, DataAtual) > 15 And Me.QUANTIDADE <= QntPermitida Then

Else
'Se o periodo ou a qnt estiver fora emite as mensagens e cancela o evento
MsgBox ("Dia do ultimo Pedido, " & DataAnterior & _
Chr(13) & Chr(13) & _
"Faz, " & DateDiff("d", DataAnterior, DataAtual) & " dias que foi feito o ultimo pedido do " & _
Chr(13) & Chr(13) & _
"Material " & UCase(Me.Material) & " para a filial, " & Forms!frmPedido![SETOR/FILIAL]) & _
Chr(13) & Chr(13) & _
" E estara liberado a partir de " & DateAdd("d", 15, DataAnterior) & _
Chr(13) & Chr(13) & _
"Com a qnt Permitida de " & QntPermitida & " Unidades", vbCritical, "Atenção"

Me.Undo
DoCmd.CancelEvent
End If
End If

Bom dia!

Pow perfeito. Show de bola.

Estou entrando em curso de access, quero poder chegar perto do conhecimento de vcs.

Grato por tudo.

Estou fechando o tópico.

Boa noite meu amigo!

Depois de algum tempo afastado estou de volta. Amigo você me ajudou muito no meu projeto e gostaria de saber se teria como você fazer algum ajuste nele. Eu tenho uma tabela de pedido de estoque que limita a quantidade e o prazo de uma filial nossa fazer os pedidos, porem este código esta falhando. Ora o código da a informação de pedido acima do permitido ou não. E esse bloqueio só acontece nas primeiras duas linha do pedido no campo quantidade que é onde você colocou o código.