[Resolvido]Devoluções de Mercadorias

Já estava com saudades do forum
Estou de volta!!
formulario caixavenda

Bom analisei meu bd e notei ao fazer minhas vendas que está faltando
devoluções de produtos o cara veio devolver e ai!!

como poderia fazer
que a quantidade do produto feita na venda diminua
e a do estoque do produto aumente confome a quantidade devolvida

agradeço

Mas especifico

fiz uma venda hoje

10 sacos de cimento

mas tarde o cara volta para devlver
2 sacos de cimento

ou seja
vai dininuir 2 na ficha do cara

e o estoque aumentara mas 2
do porduto cimento

agora qual a forma certa para fazer!!

Leam

Procura por Gestão de stocks do Mestre JPaulo. É o melhor programa de exemplo que conheço. Procura no repositório de exemplos. Se tiveres dificuldades em encontrar, vai ao portal dos programadores e clica sobre o nome JPaulo que irás logo localizar essa app.

Olhei vieria
mas não tem devolução de produtos

tem outras coisas muito bom!!!

encontrei o exemplo do mestre jpaulo

mas nao tem o a função de devolver produto
ou deste tipo!!

A devolução é um acréscimo, funciona como uma entrada de produto.

Neste Bd não tem forms de entrada de produtos no estoque? Dê uma entrada com o nome do cliente. sem valor, OK, tenho em algum bd meu o mesmo caso e funciona no perfeito...

Olá amigão

Então poste aí ou envie para o meu email que eu posto aqui:

sergiovieirasoft@gmail.com

Já tenho o de entrada e saida
de produtos

to vendo uma forma para a devolução!!

no meu caso

ou se podesse colocar
o botão que quande apagase o item
da lista de venda

automaticamente a quantidade do produto voltase
para o estoque
-----------------------

Meu caro...
Se voce utiliza uma lstBox...

No código
Option Compare Database
Option Explicit
Dim Selecionado As Boolean


No Duplo Click do Mouse
Private Sub lst_Abastecimento_DblClick(Cancel As Integer)
cmdExcluir_Click
End Sub

Aqui o código CmdExcluir_Click, que é chamado pelo Duplo Click do mouse

Private Sub cmdExcluir_Click()
On Error Resume Next
Dim msg
Dim Itens As Integer
Dim Linha As Integer

Linha = Me.SuaLista.ListIndex

If Me.SuaLista.Column(1, Linha) = "" Then Exit Sub
msg = MsgBox("Confirma a exclusão deste registro de Venda ?" & Chr(10) & Chr(10) & "Linha ..: " & Me.SuaLista.Column(2, Linha) & Chr(10) & "Quantidade .: " & Me.SuaLista.Column(3, Linha), vbExclamation + vbYesNo + vbDefaultButton2, "Syspen") 'Observe que essas instruções em verde mostrara para voce valores da linha que esta excluido, para que tenha certeza que e a linha correta.. altere as colunas de acordo com a informacao que quer exibir
If msg = vbNo Then Exit Sub
Me.SuaLIsta.SetFocus

DoCmd.SetWarnings False

'Essa consulta pede o código do lançamento para excluir o mesmo
'DoCmd.OpenQuery "SuaConsultaAtualização para mais.. Somando a saida na linha + o Total do Estoque" '(considerando que tem o campo ID da linha, se nao o tiver crie uma caixa texo no form, deixe em oculto, e no clique do mouse coloque Me.SuaCaixaTexto.Value = Me.SuaLista.Column.(0) ou 1 ou 2.... dependendo de em qual coluna esta a ID... Quando clicar no mouse a ID vai pra caita texto.. e nessa consulta atualizacao em criterios do campo ID coloque: Como Forms!NomedoForm.SuaCaixaTextoID
CurrentDb.Execute "Delete * from SuaTabelaVendas where Id = " & Me.SuaLista.Column(0) & ";" 'Observe que as duas consultas utilizarão a ID da linha para fazer o procedimento somente referente a esta linha
DoCmd.SetWarnings True

Me.Sua Lista.Requery
Me.lst_Sua Lista.Selected(Me.SuaLista.ListCount - 1) = True
End Sub

vou analisar aqui!!

o que posso fazer

vlw harysonh

to meio perdido aqui!!!

tantos códigos

Me envie o BD somente desta parte

ok, vou ajustar aqui

e te manderei!!

enviado para seu email
so a parte neccessaria!!

Verei se consigo hoje.. pois nao puder trabalhar na parte do dia.. e estou resolvendo algo meu aqui.. caso nao consiga hoje.. amanha vejo

Ate mais

Leam meu amigo.. pra que esse campo data na escolha do prpduto?????

A cada produto que vai inserir tem que colocar a data..

a data é por venda e não por produto... isso nao ta certo..

Agora o seguinte.. Meu conselho...
Venda feita é Venda Feita....

Nao acho certo voce ficar alterando isso no Form de vendas.. isso um dia podera dar problemas nos calculos e ralacionamentos...
Supondo que voce vá la.. na frente alterar uma venda do passado.. isso pode baguncar todos os dados de outros forms que dependem dessa informacao...Caixa.. produtos etc..

O ideal aqui.. é voce no form de entrada de produtos.. voce adicionar algo para a devolucao..

Entao..

Venda Feita = Produto baixado Estoque + Dinheiro no Caixa
Produto Devolvido = Reentrada no estoque e - Dinheiro desse produto no caixa...

A lógica é essa.. Se os mestres do Fórum puderem ler o que estou falando, podem discordar se estou errado..
Aguardemos uma dica deles sobre isso

Ate mais

LEAM

O que você está querendo é um estorno da venda da mercadoria....alterando aquele código de baixa de mercadorias que te passei dá pra fazer sem complicações qualquer coisa me envia a parte do banco de dados que ajeito pra você.

Té esplicarei harysonh

aquele campo data e preciso onde vai ser usado o bd

pois faço muitas vendas ao mesmo cliente em dias diferentes

eu sigo os padores de venda porque trabalho com isso e sei!!
para o cliente nao ficar com duvida
então coloca o campo data!!
para ter controle saber qual dia foi pego
ou seja


diego leam
20/05/11 x x
21/5/20/11

e assim por diante

Jungli e isso não sei muito o que estorno
porque e necessario agora a devolução de produto
para que o cliente nao fique devendo o que nao levou



so falta isso para finalisar e começar a testar


se poder voçe já conhece a estrutua do codigo

te manderei para email

Beleza, meus emails: glicerio.junior@hotmail.com ou jungli@ibest.com.br no aguardo.

mandei para o jungli@ibest.com.br

agradeço a todos

Leam o nosso amigo enviou-lhe isto:

Não estou trabalhando neste BD no momento, inclusive está inacabado. Mas acredito que ajude o Leam no quesito Entrada de Produtos.

Os campos que tiverem com senha é 355498. Login ALESSANDRO Senha: 355498 ou shift.

Lembrando que este BD é somente esboçado e não acabado, quase sem códigos, a maioria macros...

Valeu amigão.

Alessandro...

http://dl.dropbox.com/u/8157744/SisControl%205.rar

Ainda não recebi tente re-enviar novamente por favor

ok vou mandar novamente
jungli
para os 2 emaill

Obrigado grande vieria

analisei

tem no meu bd já a entrada de produtos
vlw pelo exemplo!!!

Caro amigo jungli

mandei para os seus 2 email

da uma olhadinha se não foi para no lixo
as veses eles mandam para lixo eletronico

obrigado por dispor

LEAM

mandei o banco de dados modificado

OBS:

modifiquei o padrão da quantidade para 0 (zero) pois a rotina de baixa funciona no evento após atualizar do campo Quant e não daria baixa no estoque no caso da quantidade ser 1 ok...

Bloqueio no campo Quant também por motivo de segurança para que não mude após lançada a quantidade do item...

em caso de digitar a quantidade errada o usuário deve excluir o movimento e lançar novamente.

abraços.

grande jungli vou analisar

obrigado sucesso para voçê

se poder tem como colocar aqui

para nossos amigos vejam se precisarem

Agradeço a todos por sempre me ajudar
a lista e imensa mas vale lembrar

Sergio veira
harysonh
Jungli
Criquio
sucesso a todos

ok

Fico feliz em ajudar


vou postar no repositório de exemplos.

Bem,, perdoe-me nao poder ter lhe dado a devoda atenção neste tópico... so puder entrar agora.. esses dois dias fiquei sem trabalhar por motivos pessoais..
Mas se resolveu esta ótimo

Até mais