Sistema de Controle de Vendas, Estoque e Financeiro

Connekta Informatica 25/2/2014, 18:16

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº1

Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 25/2/2014, 18:16

Boa Tarde

Eu vim aqui pedir ajuda para os colegas para me ajudar a desenvolver um sistema de controle de Vendas, Estoque e Financeiro.

Comecei a fazer no meu sistema o controle de estoque, procurei na Internet sobre o assunto, encontrei algumas coisas, mas, o que eu quero é que ao clicar no botão Lançar ele verifique o campo Estoque e Estoque Minimo.

Ex.: Vou efetuar uma venda com um determinado produto e sendo que na tabela seu estoque é 10 unidades, o estoque minimo é de 5 unidades, no formulário venda vou vender 5 unidades. Quando for clicar no botão lançar ele me avise "Seu estoque ficará igual ao estoque minimo. Deseja continuar?".

Em outro caso:

Ex.: Vou efetuar uma venda com um determinado produto e sendo que na tabela seu estoque é 10 unidades, o estoque minimo é de 5 unidades, no formulário vendas vou vender 8 unidades. Quando for clicar no botão lançar ele me avise "Seu estoque ficará: 2 unidades. E esta abaixo do estoque minimo que é : 5 unidades. Deseja continuar?"

E se não for nenhum desses dois casos, lance o produto normalmente.

Alguém pode me dar essa ajuda?

Obrigado.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Avelino João 25/2/2014, 22:03

Avelino João

Avelino João: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 316
Registrado : 10/03/2012

Mensagem nº2

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Avelino João 25/2/2014, 22:03

Boa Noite veja esse da Aqui ou Esse

.................................................................................
Proaccess - Angola

Connekta Informatica 26/2/2014, 11:11

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº3

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 26/2/2014, 11:11

Bom dia Avelino João

Já tentei adaptar os meus sistemas com classes, mais não tive sucesso, me enrolei todo.

Por isso que eu quero um código mais simples.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 26/2/2014, 12:00

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº4

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 26/2/2014, 12:00

Bom dia

Fiz a comparação entre o Estoque e Estoque Minimo.

Como eu faço quando eu clicar em Sim adicione o produto e quando clicar em Não não adicionar o produto?

Código:: Dim Estoque As Integer Dim EstoqueMinimo As Integer Estoque = DLookup("Estoque", "tblProdutos", "Codigo=" & Me.txtCodigoProduto) EstoqueMinimo = DLookup("EstoqueMinimo", "tblProdutos", "Codigo=" & Me.txtCodigoProduto) If Estoque <= EstoqueMinimo Then MsgBox "O Estoque dp produto:" & vbCrLf & vbCrLf & Me.txtDescricao & "." & vbCrLf & vbCrLf & "Ficará igual ou menor Estoque Minimo." & vbCrLf & vbCrLf & "Deseja Continuar?", vbYesNo, "Aviso" End If '<--- Adiciona os Produtos a Tabela Vendas ----> DoCmd.SetWarnings False CurrentDb.Execute "INSERT INTO tblVendas ( CodDetalhesVenda, CodigoBarras, DescricaoProduto, Unidade, Quantidade, PrecoUnitario, SubTotal) VALUES (""" & Codigo & """, """ & txtCodigoBarras & """,""" & txtDescricao & """, """ & txtUnidade & """, """ & txtQtde & """,""" & txtPrecoUnitario & """, """ & txtSubTotal & """)" DoCmd.RunSQL ("update tblProdutos set Estoque=(Estoque-(Forms!frmVendas!txtQtde)) where tblProdutos.Codigo=(Forms!frmVendas!txtCodigoProduto);") DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente Me.txtTotal.Value = fncSomaListBox(Me.ltxProdutosVenda, 7) Me.ltxProdutosVenda.Requery

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 26/2/2014, 12:37

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº5

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 26/2/2014, 12:37

Bom dia
tem aqui um ex:

Anexos

VendaOO.zip: Você não tem permissão para fazer download dos arquivos anexados.; (148 Kb) Baixado 625 vez(es)

Connekta Informatica 27/2/2014, 11:04

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº6

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 27/2/2014, 11:04

Bom dia

VendaOO trabalha com classes e ja tinha dado uma olhada nesse sistema. Mais no meu caso pretendo montar um sem copiar dos colegas.

Vamos la´:

Se alguém puder dar uma olhada para mim e ver se o código que estou disponibilizado esta correto e se não estiver correto corrigir os erros.

Código:: Estoque = DLookup("Estoque", "tblProdutos", "Codigo=" & Me.txtCodigoProduto) EstoqueMinimo = DLookup("EstoqueMinimo", "tblProdutos", "Codigo=" & Me.txtCodigoProduto) If Estoque <= 0 Or (Estoque - Me.txtQtde.Value) <= 0 Then MsgBox " O estoque atual do Produto: " & vbCrLf & vbCrLf & Me.txtDescricao & "." & vbCrLf & vbCrLf & "Estoque = " & Estoque & ".", vbInformation, "Aviso" Call Limpar Exit Sub 'End If If Estoque <= EstoqueMinimo Then Mensagem = MsgBox("O Estoque do produto:" & vbCrLf & vbCrLf & Me.txtDescricao & "." & vbCrLf & vbCrLf & "Ficará igual ou menor Estoque Minimo." & vbCrLf & vbCrLf & "Deseja Continuar?", vbYesNo, "Aviso") If Mensagem = vbNo Then Exit Sub End If '<--- Adiciona os Produtos a Tabela Vendas ----> DoCmd.SetWarnings False CurrentDb.Execute "INSERT INTO tblVendas ( CodDetalhesVenda, CodigoBarras, DescricaoProduto, Unidade, Quantidade, PrecoUnitario, SubTotal) VALUES (""" & Codigo & """, """ & txtCodigoBarras & """,""" & txtDescricao & """, """ & txtUnidade & """, """ & txtQtde & """,""" & txtPrecoUnitario & """, """ & txtSubTotal & """)" DoCmd.RunSQL ("update tblProdutos set Estoque=(Estoque-(Forms!frmVendas!txtQtde)) where tblProdutos.Codigo=(Forms!frmVendas!txtCodigoProduto);") DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente Me.txtTotal.Value = fncSomaListBox(Me.ltxProdutosVenda, 7) Me.ltxProdutosVenda.Requery Call Limpar End If End If

E como faço para que as duas verificações de estoque funcione em conjuntas?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 27/2/2014, 16:05

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº7

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 27/2/2014, 16:05

Alguém?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

**Administrador** 27/2/2014, 16:15

Administrador

Administrador: Administrador; Respeito às regras :

Sexo :
Localização :
Mensagens : 432
Registrado : 02/11/2009

Mensagem nº8

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Administrador 27/2/2014, 16:15

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

.................................................................................
Admin

Pina 27/2/2014, 20:00

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº9

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 27/2/2014, 20:00

Bom dia
Não sou barra no Access para ajudar sem um exemplo da sua base de dados mas envio um ex: de como eu faço
se ajudar muito bem.
Pina

Anexos

TesteStock.zip: Você não tem permissão para fazer download dos arquivos anexados.; (47 Kb) Baixado 396 vez(es)

Connekta Informatica 28/2/2014, 13:18

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº10

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 28/2/2014, 13:18

Valeu Pina pelo exemplo me ajudou muito.

Sendo que a parte de estoque esteja resolvido.

Tenho outra dúvida:

No meu form vendas tenho um botão cancelar venda, e código dele é esse:

Código:: Private Sub cmdCancelarVenda_Click() If MsgBox("Deseja cancelar a venda nº: " & Me!Codigo & "?", vbQuestion + vbYesNo, "Aviso") = vbNo Then Exit Sub CurrentDb.Execute "DELETE FROM tblDetalhesVenda WHERE Codigo = " & Me!Codigo & ";" Call Limpar Me.ltxProdutosVenda.Requery End Sub

Mas na logica ao excluir uma venda os produtos voltam para o estoque.

Como eu faço para excluir a venda e a quantidade dos produtos voltar para o estoque?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 28/2/2014, 14:02

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº11

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 28/2/2014, 14:02

Boas amigo
Sem saber como está a sua base de dados não consigo.
Mas tem que fazer uma consulta de acréscimo antes de apagar uma venda.
Será possível enviar um exemplo em 2003 para ver?
Abraços
Pina

Connekta Informatica 28/2/2014, 14:09

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº12

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 28/2/2014, 14:09

Num dos aqui do forum encontrei um que deleta e atualizar. Mas não esta dando certo. Veja:

Código:: Private Sub cmdCancelarVenda_Click() If MsgBox("Deseja cancelar a venda nº: " & Me!Codigo & "?", vbQuestion + vbYesNo, "Aviso") = vbNo Then Exit Sub CurrentDb.Execute ("DELETE FROM tblDetalhesVenda WHERE "Codigo"= " & Me!Codigo & ");" DoCmd.RunSQL ("UPDATE tblVendas set [CodigoBarras] WHERE = tblProdutos.CodigoBarras SET [Estoque] = tblProdutos!Estoque+tblVendas!Quantidade);") Call Limpar Me.ltxProdutosVenda.Requery End Sub

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 28/2/2014, 14:22

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº13

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 28/2/2014, 14:22

Boas
Penso que tem que trocar a 3a linha pela 4a linha.
porque está apagar o que tem de repor
pina

Connekta Informatica 28/2/2014, 16:10

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº14

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 28/2/2014, 16:10

Boa Tarde Pina

Mostrar um exemplo:

Vou efetuar um venda, adicionei todos os produtos, mas na hora de finalizar vai que o cliente não tenha dinheiro, somente cartão e no estabelecimento a máquina do cartão esteja fora de area ou não possua maquina de cartão. Então dono do estabelecimento não confia naquele cliente (não tem credito na praça). Sendo que quando adicionei os produtos ele foram descontados no estoque.

Então o produtos adicionados terão que voltar para prateleira, certo? Os produto precisar ser excluídos e voltar a sia quantidade para estoque, certo?

Tem outras sistuações que também precisa desse recurso no sistema.

Então antes de excluir deve voltar a quantidade para cada produto e depois eliminar na tabela vendas.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 28/2/2014, 19:24

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº15

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 28/2/2014, 19:24

Boas
Já tinha comprendido, o que dizia de exemplo era enviar em base de dados em Access 2003
Já fez assim?:

Private Sub cmdCancelarVenda_Click()
If MsgBox("Deseja cancelar a venda nº: " & Me!Codigo & "?", vbQuestion + vbYesNo, "Aviso") = vbNo Then Exit Sub
DoCmd.RunSQL ("UPDATE tblVendas set [CodigoBarras] WHERE = tblProdutos.CodigoBarras SET [Estoque] = tblProdutos!Estoque+tblVendas!Quantidade);")
CurrentDb.Execute ("DELETE FROM tblDetalhesVenda WHERE "Codigo"= " & Me!Codigo & ");"
Me.ltxProdutosVenda.Requery
End Sub

Pina

Connekta Informatica 1/3/2014, 12:21

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº16

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 1/3/2014, 12:21

Se você estiver outro codigo.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 1/3/2014, 15:52

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº17

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 1/3/2014, 15:52

Boas
No ex: que envio tem 2 opções 1º faz a saída do produto se paga, 2º se fez a saída e não pagou faz a entrada do mesmo produto.
Numa venda pode ter vários produtos
Abraços
Pina
não sei se consegui ajuda?

Anexos

TesteStock1.zip: Você não tem permissão para fazer download dos arquivos anexados.; (184 Kb) Baixado 225 vez(es)

Connekta Informatica 5/3/2014, 19:04

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº18

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 5/3/2014, 19:04

Boa Tarde

A parte de cancelar a venda esta resolvido, ficou assim:

Código:: Public Sub CancelarVenda() Dim strSql As Variant If MsgBox("Deseja cancelar a venda nº: " & Me!Codigo & "?", vbQuestion + vbYesNo, "Aviso") = vbNo Then Exit Sub DoCmd.SetWarnings False strSql = "UPDATE tblProdutos INNER JOIN tblVendas ON tblProdutos.CodigoBarras = tblVendas.CodigoBarras SET tblProdutos.Estoque = [tblProdutos]![Estoque]+[tblVendas]![Quantidade];" CurrentDb.Execute "DELETE FROM tblDetalhesVenda WHERE Codigo = " & Me.Codigo & ";" DoCmd.SetWarnings True Me.ltxProdutosVenda.Requery End Sub

Agora vamos partir para outra coisa: nova venda.

Como eu faço para ao abrir formulário Vendas gerar um novo código, sem eu precisar digitar alguma coisa.

Ou seja, tenho a tabela detalhes vendas, no formulário para adicionar um novo registro tenho que digitar a data, mas como o campo data na tabela tenho o valor padrão. Como eu faço para não precisar digitar a data e nem outro dados para gerar um novo registro?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 5/3/2014, 19:34

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº19

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 5/3/2014, 19:34

Boas
ao Abrir do formulário (DoCmd.GoToRecord , , acNewRec)
Pina

Pina 5/3/2014, 19:37

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº20

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 5/3/2014, 19:37

Desculpa não coloquei a data = Data()
Pina

Connekta Informatica 6/3/2014, 11:33

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº21

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 6/3/2014, 11:33

Bom dia

Pina consegui.

Outra coisa talvez possa me ajudar, é as teclas de atalhos. Peguei alguns exemplo da internet, mas não funcionaram.

Será que pode ajudar?

Fechar Venda (F2) = frmFechamentoVrnda
Cancelar Venda (F3) = call CancelarVenda
Excluir Item (Del) = Call ExcluirItem
Pesquisa de Produto (F4) call PesquisaProduto
Pesquisa Preços (F6) = frmConsultaPrecos
Mudar Usuário (Ctrl+U) = frmLogin
Cadastro Produto (F7) = frmAddProdutos
Cadastro Cliente (F8) = frmAddClientes
Entrada Produtos (F9) = frmEntradaProdutos

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 6/3/2014, 21:49

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº22

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 6/3/2014, 21:49

Boas
No Evento do seu formulário (com a tecla em baixo) cole o seguinte, depois a tecla que quer e enter

Dim IntTeclaControl As Integer
IntTeclaControl = (Shift And acCtrlMask) > 0
If IntTeclaControl And KeyCode = F2 Then
Me.SeuCampo = "frmFechamentoVrnda"
ElseIf IntTeclaControl And KeyCode = F3 Then
Me.SeuCampo = "call CancelarVenda"
ElseIf IntTeclaControl And KeyCode = 51 Then
Me.SeuCampo = "Call ExcluirItem"
ElseIf IntTeclaControl And KeyCode = 52 Then
Me.SeuCampo = "call PesquisaProduto"
End If

Abraços
Pina

Connekta Informatica 7/3/2014, 11:05

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº23

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 7/3/2014, 11:05

Bom dia

Em qual evento coloca?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 7/3/2014, 11:12

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº24

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 7/3/2014, 11:12

Bom dia
No formulário que quer correr as teclas pôe em modo de estrutura e em (Com a tecla para baixo) e [Procedimento de acontecimento]
Cola o ex: que lhe enviei e pode alterar os nº que quiser.
Pina

Connekta Informatica 7/3/2014, 18:33

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº25

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 7/3/2014, 18:33

Deu certo.

Assim que for surgindo a necessidade de alguma coisa eu retorno.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 17/3/2014, 19:14

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº26

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 17/3/2014, 19:14

Boa Tarde

Tenho um formulário de cadastro de produto, onde seus campos são todos NãoAcoplados. Como eu faço para carregar uma imagem e ao clicar do botão Salvar adicionar junto com os dados do produto? E quando clicar na ListBox para editar eu visualize a imagem?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 20/3/2014, 18:22

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº27

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 20/3/2014, 18:22

Alguém?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 20/3/2014, 19:25

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº28

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 20/3/2014, 19:25

Boas
Tens aqui um exemplo para colocares as fotos
Pina

Anexos

Fotos.zip: Você não tem permissão para fazer download dos arquivos anexados.; (771 Kb) Baixado 199 vez(es)

Connekta Informatica 24/3/2014, 16:22

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº29

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 24/3/2014, 16:22

Muito Obrigado, funcionou perfeitamente.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 24/3/2014, 16:27

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº30

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 24/3/2014, 16:27

Boa Tarde

Será que tem como inserir a mascara de entrada num tabela.

Ex.: Tenho um formulário desvinculado onde tenho um campo para CPF e CNPJ, na tabela se for CNPJ fica assim 00442562000195 e se for CPF fica 00049839832.
O que eu quero se for CNPJ ficasse na tabela assim 00.442.562/0001-95 e o CPF assim 000.498.398-32.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 26/3/2014, 14:13

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº31

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 26/3/2014, 14:13

Alguém?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Kaynan 26/3/2014, 22:22

Kaynan

Kaynan: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012

Mensagem nº32

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Kaynan 26/3/2014, 22:22

Tente assim, na tabela tipos de dados cnpj e cpf deixe como texto
e no formulario modo extrutura selecione o campo CPF va em propriedades,dados máscara de entrada e coloque assim:

CPF:000.000.000\-00;;_

CNPJ: 000\.000\.000\-00

Abçs.

Pina 26/3/2014, 23:31

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº33

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 26/3/2014, 23:31

Boas
Se é para se ver na Tabela

CPF:000.000.000\-00;;_

CNPJ: 00\.000\.000"/"0000\-00"

Pina

Connekta Informatica 27/3/2014, 14:49

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº34

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 27/3/2014, 14:49

Bom dia

Obrigado pela atenção.

Mas não é Mascara de entrada na tabela, porque, tenho um campo na tabela (Doc1) que é para CPF e CNPJ então não pode adicionar mascara de entrada.

O que eu saber se tem como do formulário adicionar a mascara de entrada (dependo de ser CPF ou CNPJ) no campo Doc1 da tabela.

Ex.: Em vez do formulário adicionar o CPF 02999210211 ou CNPJ 00332543000187 na tabela adicionar assim CPF 029.992.102-11 e CNPJ 00.332.543/0001-87. Adicionar os numeros e marcara junto natabela.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

rdrck 27/3/2014, 15:09

rdrck

rdrck: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1011
Registrado : 11/03/2014

Mensagem nº35

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem rdrck 27/3/2014, 15:09

Olá Konnekta,
Dê uma olhada neste tópico:

http://maximoaccess.forumeiros.com/t506-resolvidomascara-de-entrada-dinamica

.................................................................................
Meu Programa / OS:
Access 2010 - Windows 10.

Connekta Informatica 31/3/2014, 15:51

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº36

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 31/3/2014, 15:51

Bom dia

Obrigado pelas tentativas, mais nenhum desses é o que eu pretendo, então essa questão com resolvido.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 3/4/2014, 13:06

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº37

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 3/4/2014, 13:06

Bom dia

Na minha tabela produtos tenho produtos por Unidade e Quilo.

O problema é o seguinte, vamos supor que vou vender 1 unidade de um determinado produto, ele aceita, quando eu vou vender 1 quilo, também aceita, mas quando eu vou vender mais de um quilo ele não aceita.

Alguém pode me ajudar?

Código:: 'função para dar a baixa no estoque. Dim QtdEst As Integer ' Variável para armazenar a quantidade em estoque da mercadoria Dim QtdEstMin As Integer 'Variável para verificar a quantidade em estoque minimo da mercadoria If IsNull(Me.txtQtde) Or Me!txtQtde = "" Then MsgBox ("O Campo quantidade é obrigatório!"), vbInformation, "Aviso" Me.txtQtde.SetFocus Exit Sub End If ' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o txtCodigoProduto QtdEst = DLookup("Estoque", "tblProdutos", "Codigo =" & Me.txtCodigoProduto & "") QtdEstMin = DLookup("EstoqueMinimo", "tblProdutos", "Codigo =" & Me.txtCodigoProduto & "") 'Compara a quantidade do estoque atual com a quantidade do estoque minimo If QtdEst <= QtdEstMin Then MsgBox "Necessita de repósição: " & Chr(10) & Chr(10) & "Produto: " & Me.txtDescricao & Chr(10) & " Estoque Atual: " & QtdEst & Chr(10) & " Estoque Minimo: " & QtdEstMin, vbInformation, "Aviso" Exit Sub End If ' Aqui verifico se a quantidade que vai ser baixada existe no estoque, se for maior emite mensagem If QtdEst < Str(Me.txtQtde) Then MsgBox "Estoque atual... menor que a quantidade solicitada !!" & Chr(10) & Chr(10) & "Estoque atual = " & QtdEst, vbInformation, "Atenção" Me.txtQtde.SetFocus Exit Sub End If 'Aqui verifica se há quantidade no estoque If QtdEst = 0 Then MsgBox "Produto com estoque 0.", , "Aviso" Exit Sub End If 'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque DoCmd.SetWarnings False If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Aviso? ") = vbYes Then CurrentDb.Execute "Insert Into " & _ "tblDetalhesVendas(CodigoVenda,CodigoBarras,DescricaoProduto,Quantidade,Unidade,PrecoUnitario,SubTotal) " & _ "Values (""" & Codigo & """,""" & txtCodigoBarras.Value & """,""" & Me.txtDescricao.Value & """, " & _ """" & Me.txtQtde.Value & """,""" & txtUnidade.Value & """,""" & txtPrecoUnitario.Value & """,""" & txtSubTotal.Value & """)" MsgBox ("Produto Adicionado com Sucesso!"), vbInformation, "Controle de Estoque e vendas" Me.ltxProdutosVenda.Requery Call ValoresCompra 'Atualiza o saldo de estoque DoCmd.OpenQuery "qryAtuaEstoque" 'CurrentDb.Execute "UPDATE tblProdutos Set Estoque = Estoque - " & Me.txtQtde.Value & " WHERE CodigoBarras = " & Me.txtCodigoProduto.Value & "';" Exit Sub End If DoCmd.SetWarnings True

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 4/4/2014, 12:27

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº38

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 4/4/2014, 12:27

Alguém?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 7/4/2014, 00:02

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº39

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 7/4/2014, 00:02

Alguém tem alguma dica?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 9/4/2014, 03:44

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº40

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 9/4/2014, 03:44

Alguém?

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 9/4/2014, 13:10

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº41

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 9/4/2014, 13:10

Boas
Em relação ao stock (Estoque) já lhe tinha enviado um exemplo anteriormente e disse que estava tudo bem?
Pina

Connekta Informatica 9/4/2014, 14:59

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº42

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 9/4/2014, 14:59

Bom dia Pina.

É por que ocorreu um erro na venda de produtos por quilo.

Ele não esta aceitando a venda com gramas. Por exemplo, vou vender 2,100, 1,800, 3,200. Ele informa que o salo no estoque não suficiente.

E se vou vou vender 1,000, 2,000, 3,000 ele aceita.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 9/4/2014, 16:42

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº43

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 9/4/2014, 16:42

Boas
veja agora se é isto? Modifiquei para décimais
Pina

Anexos

StockDecimais.zip: Você não tem permissão para fazer download dos arquivos anexados.; (56 Kb) Baixado 172 vez(es)

Connekta Informatica 9/4/2014, 17:54

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº44

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 9/4/2014, 17:54

Qual a modificação que você fez na código, para mim adaptar no meu.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 9/4/2014, 18:33

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº45

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 9/4/2014, 18:33

Boas
É isso que pretende?
Então nos campo da sua quantidade formata no tamanho (Simples) e formatar em (Número geral)
No formulário em seu campo de quantidade formatar em (Número geral) com 3 casas décimais.
Mas isto tudo está no ex: que enviei.
Pina

Pina 9/4/2014, 21:26

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº46

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 9/4/2014, 21:26

Boas
quando disse se é isso que pretende, era se o ex: que enviei conrrespondia ao seu problrma
Geralmente qaundo lhe envio alguma ajuda o meu amigo demora a responder se está resolvido ou não.
Assim começo a pensar se val a pena ajudar de quem nada sabe.
Pina

Connekta Informatica 10/4/2014, 12:20

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº47

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 10/4/2014, 12:20

Bom dia

Alterei o campo Estoque da Tabela:

Campo: Estoque
Tamanho do Campo: Simples
Formato: Número Geral
Casas Decimais: 0

Alterei o campo txtQtde do Formulário:

Campo: txtQtde
Formato: Número Geral
Casas Decimais: 3

Mas esta acontecendo o mesmo problema.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Pina 14/4/2014, 17:01

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº48

Sistema de Controle de Vendas, Estoque e Financeiro.

Mensagem Pina 14/4/2014, 17:01

Bom dia
se quiser enviar um ex: da sua base de dados para ver o que está a fazer era melhor.
Se não quiser enviar por aqui o meu email e:pina0808@gmail.com
Pina

Connekta Informatica 14/4/2014, 18:02

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº49

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 14/4/2014, 18:02

Enviei o banco de dados para seu e-mail.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Connekta Informatica 20/4/2014, 23:38

Connekta Informatica

Connekta Informatica: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011

Mensagem nº50

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Connekta Informatica 20/4/2014, 23:38

Boa Noite

Tenho um código ao digitar na caixa de texto ele seleciona o registro correspondente:

Código:: Private Sub txtDescricao_Change() On Error Resume Next Dim i As Integer Dim strProcura As String, intPos As Integer Dim strList As String strProcura = UCase$(Me.txtDescricao.Text) intPos = Len(strProcura) If intPos Then For i = 0 To ltxListaProdutos.ListCount - 1 strList = Me.ltxListaProdutos.Column(3, i) If UCase$(Left(strList, intPos)) = strProcura Then Me.ltxListaProdutos.Selected(i) = True Selecionado = True Me.ltxListaProdutos = Me.ltxListaProdutos.Column(0) Exit For Else Me.ltxListaProdutos.Selected(i) = False Selecionado = False End If Next End If End Sub

Como eu faço em vez de selecionar o registro correspondente só aparecer os registros de acordo com o que foi digita.

Ex.: Digitei na caixa de texto "Arroz" na caixa de listagem deve aparecer somente arroz.

.................................................................................

Untitled Document

Connekta Informática Apoia:

Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.

Clique Aqui

Lembrete: Desfrutar e Preservar é um direito de Todos.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº51

Re: Sistema de Controle de Vendas, Estoque e Financeiro

Mensagem Conteúdo patrocinado

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada

MaximoAccess

MaximoAccess

MaximoAccess

Sistema de Controle de Vendas, Estoque e Financeiro

Tópicos semelhantes

Tópicos semelhantes