bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Baixa de Estoque

Baixa de Estoque

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Usuário Matheus:

Bom dia.

Gostaria de saber qual a melhor forma de dar baixa em estoque, através de um formulário.

Por exemplo: - tenho 3 unidades de banana na minha tblEstoque, entreguei duas unidades e quero dar baixa nessas duas unidades através do meu frmSaídaProdutos.

Também gostaria de inserir parâmetros para que, quando eu obtiver zero unidade de um determinado item, eu não possa dar saída nele (pelo fato de não tê-lo em estoque).

Desde já, grato.

Suporte:

Matheus, para atualizar o estoque você pode utilizar uma consulta atualização Update e para verificar o estoque, pode usar a função Dlookup()

Vamos supor que o seu produto seja identificado pelo número exclusivo idProduto. Você teria algo assim:

Dim dblQuantidade as double
Dim strSql$
'Captura a quantidade em estoque do produto que está sendo lançado
dblQuantidade = Dlookup("QuantidadeEstoque","tblEstoque","IdProduto = " & me!idproduto)
'Verifica se tem quantidade suficiente no estoque
if (dblQuantidade - me!quantidade) < 0 then
   msgbox "Não tem quantidade de produto suficiente no estoque...", vbInformation ,"Aviso"
   cancel = true
else
   'Atualiza estoque
   strSql = "UPDATE tblEstoque"
   strSql = strSql & " SET quantidadeEstoque = QuantidadeEstoque - " & me!Quantidade
   strSql = strSql & " WHERE idproduto = " & me!idProduto & ";"
   currentdb.execute strSql
end if

Você pode colocar este código no evento "Antes de atualizar" do campo quantidade.

Nota: Me!quantidade e Me!idProduto são valores com origem no seu formulário frmSaidaProdutos.

Usuário Matheus:

Excelente, mestre Avelino.

Muito obrigado!

 


 

 


3 comentário(s)

Cláudio Ramos   15/10/2020 13:40:26

Excelente, eu tinha procurado um código simples para atualizar meu estoque na hora da venda e não tinha conseguido... esse ficou perfeito.

Muito Obrigado

Aldir Alves de Oliveira   24/07/2018 17:25:05

Para este caso acima, relatado pelo Matheus, tenho o costume de criar uma tabela para os movimentos de entrada e saída do estoque para efeito de inventário e auditoria. Desta forma, mantenho uma consulta que calcula o saldo atual do item que é: saldo inicial + entradas - saídas. Acho que resolve tb!!!
Abs

arilson    09/03/2018 05:32:02

Super Mestre Avelino


Envie seu comentário: