[Resolvido]Excluir venda e produto voltar para o estoque

Kaynan boa noite, chegou a ver esse tópico?

https://www.maximoaccess.com/t17663-sistema-de-controle-de-vendas-estoque-e-financeiro

Kaynan


Se sabe excluir, então:

crie uma consulta atualização para atualizar o estoque , adicionando a quantidade ao estoque.

No momento de excluir, mas antes de deletar o registros. coloque a sql da consulta atualização no vba:

Docmd.RunSql " UPDATE  tbl ... " 'aqui a sql da consulta.

teste antes de deletar o registro.
Quando estiver funcionando, ou seja, a quantidade está sendo retornada ao estoque
já pode deletar o registro.

[ ]'s

Ta

Me diga onde quer fazer isso, porque nem encontrei o botão de deletar
no teu aplicativo.

Blz Kaynan,

Vou dar uma olhada!!!

Abraços,

consegui devolver a quantidade para o estoque, mas quando deleto o registro tá dando o erro 3167 - REGISTRO EXCLUÍDO, to tentando contornar esse erro, falta pouco.


abraços

Kaynan,


Para fazer a exclusão do item vc deve digitar o número do item no campo Texto134, no rodapé do form DetalhesVenda.

Em seguida surgirá uma MsgBox solicitando a confirmação, após a confirmar pressione a tecla F5 para continuar normalmente a venda.

Quantos ao campo para os código do produto e código de barras, consegui resolver, agora vc pode na mesma venda realizar as duas opções normalmente.

Umas das alterações foi a mudança do tipo de dados de inteiro longo para duplo, em alguns campos das tabelas envolvidas.


Vc desativou algumas funcionalidades do form, isso me atrasou um pouco, mas ainda não ativei deixo por sua conta.


Favor testar o arquivo abaixo e dar retorno.


https://www.dropbox.com/s/byt3ccmdjb5vngm/Ordem_cleverson.zip?dl=0


Abraços,

Kaynan,


Pronto tá não mão.


Criei dois campos, um para informar o Item e o outro para os códigos do produto/barras.


Até onde testei sem erros.


Tá redondo quem nem uma SKOLL kkkkkkkkkk.


Testa e dá retorno!


https://www.dropbox.com/s/byt3ccmdjb5vngm/Ordem_cleverson.zip?dl=0


Abraços,

Kaynan,

Aqui tudo beleza.

A questão é que os campos txtEstoque, txtUnidade e txtproduto do formulário Ponto de Venda não estavam sendo atualizados de acordo com o último item da venda, após a exclusão.

Se vc conferir na combo codbarras, do mesmo form, a coluna estoque mostrará o saldo atualizado após a exclusão, e mais certeza ainda na própria tabela Produto.

Bem acho que conseguimos, alterei e não ocorreram erros, mas se tiver avisa, depois acertamos as SKOLL'S kkkkkkkkkkkkkk.


https://www.dropbox.com/s/byt3ccmdjb5vngm/Ordem_cleverson.zip?dl=0


Testa e dá retorno.


Abraços,

Cleverson - VBA & ACCESS na veia

Aqui tá DEZ PATRÃO!

Não tô em casa agora, vou ver as referencias da biblioteca do meu access 2010, e depois te passo pra vc conferir com as suas.

Abraços,

Se alguns dos colegas pudessem testar pra saber realmente onde está dando esse erro seria uma boa

Abraços,

Kaynan,


Confere ai essa é a minha configuração.

Vou testar na máquina do trabalho, ai te retorno:





Abraços,

Olá amigos

Analisando um pouquinho o trecho do código para estornar a quantidade e deletar o registro:


'Se código de barras (1) então
If Forms!FrmPontodeVenda!Quadro_Codigo.Value = 1 Then

 
  If MsgBox("Confirma Excluir Item  " & Me.Itens & " ?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
      'me. itens: por mais que escolha o item a estornar, sempre irá pegar o ultimo da lista
       CurrentDb.Execute "UPDATE Tab_Produto SET QuantidadeEstoque = QuantidadeEstoque +(""" & Forms!FrmPontodeVenda!txtQtd & """)  
                     WHERE CódigoBarras ='" & Me.Texto134 & "'"
                        'aqui o texto134 não está como o código de barras e sim com o número do item que foi digitado para estornar, lembram?
                      Portanto, não irá atualizar a tabela produtos.
       CurrentDb.Execute "DELETE * FROM tbldetalhe_sisPDV WHERE Itens = " & Me.Itens  & ""
   
       Forms!FrmPontodeVenda.Requery
   
   Else
   
       MsgBox "Exclusão cancelada! ", vbExclamation, "Aviso"
       
   
   End If


End If

Kaynam

Caixa de texto com o campo código de barras, deve existir somente um no formulário, outros só servem para poluir o formulário e confundir o usuário.
Por enquanto é isso

[ ]'s

Kaynan, aqui no trabalho também tá redondo que nem uma SKOLL.


Mestre Noobezinho, concordo plenamente, tanto que no último arquivo enviado, alterei essa parte do código para as duas situações incluindo os campos ExcluirItem e ExcluirProduto, conforme abaixo:

Código:

Private Sub ExcluirProduto_AfterUpdate()


On Error GoTo TrataErros


'Se código de barras (1) então
If Forms!FrmPontodeVenda!Quadro_Codigo.Value = 1 Then


    If MsgBox("Confirma Excluir o Produto  " & Me.ExcluirProduto & " ?", vbYesNo + vbQuestion, "Excluir") = vbYes Then

    CurrentDb.Execute "UPDATE Tab_Produto SET QuantidadeEstoque = QuantidadeEstoque +(""" & Me.quant & """) WHERE CódigoBarras ='" & Me.ExcluirProduto & "'"
   
    CurrentDb.Execute "DELETE * FROM tbldetalhe_sisPDV WHERE Itens = " & Me.ExcluirItem & ""
       
    Me.Requery
   
    Forms!FrmPontodeVenda!txtUnidade = Null
    Forms!FrmPontodeVenda!txtEstoque = Null
    Forms!FrmPontodeVenda!txtproduto = Null
   
    Me.ExcluirItem = Null
    Me.ExcluirProduto = Null
   
    Exit Sub
   
    Else
   
    MsgBox "Exclusão cancelada! ", vbExclamation, "Aviso"
       
   
    End If


End If


Certo. Cleverson !

Eu baixei hoje teu exemplo, mas ainda não estava atualizado, por isso ...


Acredito que deveria continuar a usar somente o campo item, pois são apenas 3 dígitos (deve-se fazer com que volte a 001 quando chegar a 999).
Para isso use o bookmark do subformulário, acredito que saiba usar o  recordset do formulário com o  bookmark do recordsetclone
e assim, fazer com que qualquer registro que queira seja o corrente.
Como disse, o registro corrente no subform é o último, por isso ele só estornava/deletava esse último.


[ ]'s

Com certeza, entendi agora o procedimento.


Abraços,

Kaynan,

Vou testar a idéia do Noobezinho.

Te retorno mais tarde.


Abraços,

Kaynan

Na realidade, seria bom você  baixar esse exemplo..

E pode aprender a cria-lo, aqui

É um curso de um membro daqui, veja esse tópico

Ver essa aulas será ótimo pra aprender.

Atenha para as tabelas de estoque, vendas, detalhes vendas e as relações das tabelas.

[ ]'s

Kaynan

Se tiver vontade de aprender mesmo, no fórum tem vários exemplos de vendas, dos mais simples aos mais
complexos.
Dificilmente irá encontrar uma sistema completo, pronto para uso.
Se estudar com interesse, poderá pegar partes de um, partes de outro, como se monta um quebra-cabeças e
montar o teu próprio.
Entenda que o aplicativo que deseja, usa apenas 3 tabelas, tbl_produto, tbl_venda e tbl_detalhesvendas.
Não precisa de mais nada que envolva a venda e controle do estoque (venda e estorno de venda).
Aqui está mais um exemplo de venda simples e funcional.

Quando aprendi access, não tinha internet, tinha apenas a biblia do access (livro) e a ajuda do próprio access(97).
E com apenas essas duas ajudas, fiz um aplicativo para uma clínica veterinária, que funcionou por mais de 10 anos.
O veterinário me chamou tempos atrás,(2 anos) para ajudar a retirar o aplicativo do computador, porque o computador
já estava muito velho(). Na oportunidade, ele comentou que o meu aplicativo nunca tinha dado um problema sequer.
Aproveitei a ocasião para atualizar o aplicativo para Acc2007.

Kainan,


Sempre gostei de desafios, e desta forma aprendo cada vez mais com a ajuda dos colegas deste forum.

Assim to revendo todo o código de acordo com as dicas do Mestre Noobezinho, apenas o tempo esta semana que ficou mais escasso.

Me aguarde.


Abraços,

Na realidade é uma coisa muito simples.

O que dificulta é a estrutura do teu aplicativo.

Mesmo assim, o Cleverson conseguiu resolver em parte.
Estou com coceira na mão pra fazer isso,mas não posso,
estou trabalhando num aplicativo que está atrasado, e você tem que aprender,   .
Veja no tópico que indiquei, a solução do Avelino.

E veja se começa a colocar os nomes nos controles, tenho certeza que o Cleverson está
tendo dificuldades por causa disso.


Obs.: Tirei o resolvido do título do tópico.

[ ] 's

Padronização, é chave , uma mão na roda quando da manutenção ou alteração de um aplicativo.

Tai Kaynan

1º - Apague todos os registros das 2 tabelas  tblsisPDV e tbldetalhe_PDV

2º - Na tbldetalhe_PDV apague o ultimo campo CodVenda (que está vazio) e renomeie  campo coddetalhevenda para codvenda (minusculo)

3º - Entre em relações e edite a relação dessas duas tabelas e assinale impor integridade referencial.

A tecla F9  exibe a caixa de texto e o botão para deletar o item da venda.
Você decide o quer fazer com essas teclas
Clicando no botão Cancelar/Venda - irá cancelar a venda toda,estornando os valores para o estoque.

Sei que vai copiar e colar, faça isso com cuidado, estude o código primeiro para entender a operação.

[ ] 's

Download do arquivo

Falou e disse Kaynan

Boa sorte !!

Link da mensagem 38 não funciona, teria como colocar novamente

Link da mensagem 38 não funciona, teria como colocar novamente