[Resolvido]Excluir venda e produto voltar para o estoque

Ola pessoal,seguinte,queria que neste exemplo quando efetuasse alguma venda e tiver que excluir um produto dessa venda o mesmo voltasse para o estoque,tentei alguns código mas não deu.
É no form "FrmPontodevenda"
Obs: para fazer o teste escolher um cliente antes.
Abç.



https://dl.dropboxusercontent.com/u/90217826/Teste.rar

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

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

Ola Fernando eu ja tinha dado uma olhada, até tentei fazer neste meu exemplo mas sem sucesso.
Pra excluir o produto é facil,o problema é fazer voltar o produto pro estoque.

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

Ola mestre,pra excluir o produto eu digo que é facil usando o assistente de exclusão do access,mas do jeito que me disse pra fazer ta complicado, e pode me puxar as orelhas

Ta

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

Noob, esta no form "frmdetalhesVenda" um botao com um "E" seria pra excluir o item que fosse preciso.
Mas se tiver outra idéia.....

Blz Kaynan,

Vou dar uma olhada!!!

Abraços,

E ai pessoal ta dificil essa minha lida..

up

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,

Grande Cleverson,esta muito bom,só que quando exclui o produto o mesmo não retorna ao estoque,fica como se estivesse vendido entende.
Abç.

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,

Amigo véio,to te dando trabalho né mas não de bola.
Seguinte, esta cada vez melhor,só veja uma coisa.
Olhe na tabela de produtos "Tab_Produto" e veja por exe:o produto Barbeador eletrico, no campo estoque ele tem uma quantidade certo...ao efetuar a venda coloco o código de barras deste produto, coloco a quantidade a ser vendida e teclo enter ele ja diminui do estoque esta quantidade,mas se eu excluo esse produto a quantidade não retorna para o estoque outra vez,só falta esse detalhe.

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

Amigo véio,continua do mesmo jeito,eu faço a venda, o produto da baixa, depois excluo mas o estoque continua como se não tivessse excluido a quantidade vendida não retorna ao estoque..

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,

Ok amigo,mas se ai ta dando baixa no produto e quando exclui a quantidade volta pro estoque,então o problema esta aqui no meu access.
vamos ver.
Abç,e obrigado por tudo amigo.

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

Abraços,

É verdade...

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,

Amigos não sei oque dizer mas ainda não esta estornando a quantidade após excluir o produto.
Coloquei o código que o noob postou mas não deu. Se tenho "129 BOIA9" vendo 9 ficara 100,mas por algum motivo o cliente desiste desse produto,eu excluo e a quantidade deveria voltar para 129 BOIA,mas não continua 100 como se eu tivesse realmente vendido.

Kaynan,

Vou testar a idéia do Noobezinho.

Te retorno mais tarde.


Abraços,

Cleverson,noob sera que da pra fazer neste exemplo ai,que só desse baixa nos produtos após finalizar a venda,assim daria tempo de excluir algum sem que desse a baixa no estoque. Tipo quando clicar o F2 para fazer o troco.
Do jeito que esta ele da baixa quando faz o lançamento do produto na tela de vendas.

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

Ok noob,pena que este tópico ficara sem solução.
Abç.

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.

Entendo o puxãozinho de orelha mestre em querer que eu realmente aprenda, e ja aprendi varias coisas com ajuda e dicas dos mestres ai inclusive vc noob que tem uma paciencia de invejá rsrs, mas na questão desse estorno do produto eu achei que seria bem simples ai pro pessoal,mas porque que não da certo e ninguém consegue resolver,será porque é nesse exemplo específico que não funfa.
Desculpa ai pessoal.

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.

Realmente pessoal, eu to tentando aqui uma hora da certo........eeeeitaaaa.

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

É mestre oque dizer né,quem sabe,sabe.Talvez um dia eu chegue la,e é como dizes, estudando e tendo vontade de aprender a gente vai longe.Noob mais uma vez obrigado por tudo,Cleverson,vc também sabe das coisas,aprendi muito com vc.
Fiquem com Deus e um ótimo fim de semana.

Abç.

Resolvido essa lida.

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