MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Ajuda sistema de vendas e estoque

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 23/3/2019, 20:19

    Boa tarde

    Alguem pode me ajudar no sistema de vendas.

    Ele esta lançando os produtos na tabela e esta controle o estoque. Quero aperfeiçoar ele para não erros igual esta ocorrendo.

    Desde já agradeço.
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (69 Kb) Baixado 36 vez(es)


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




    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.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2882
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 23/3/2019, 21:55

    Boa noite!

    Amigo, sem especificar o erro e dar maiores detalhes
    fica impossível te ajudarmos...

    Seja mais claro, por favor. Very Happy


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 25/3/2019, 11:41

    Bom dia

    No banco de dados acima, tenho o formulário frm_LancVendas, onde tenho o código de barras e outro campos com informação do produto.

    Ao aperta a tecla enter, se o campo txtCodBarras estiver vazio aparece a tela de Busca do Produto e se ele tiver preenchido lança o produto.

    Quero o seguinte:

    Que ele avise quando o estoque estiver abaixo da quantidade Atual e Minima;
    Quando abre o formulário de pesquisa ao inserir o segundo item aparece a mensagem de confirmação, não quero que isso ocorra;

    Sede já meus agradecimentos.


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




    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.




    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 27/03/2015

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  bigfill em 25/3/2019, 12:20

    Bom dia!

    Connekta Informatica, Tem como postar em access 2007 ?
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 25/3/2019, 12:42

    Banco de dados convertido.
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 19 vez(es)


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




    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.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2882
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 26/3/2019, 01:25

    Boa noite,
    teste por favor:
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 47 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 26/3/2019, 11:31

    Bom dia

    Muito obrigado pela atenção.

    O erro agora que ele esta inserindo quando os campos está em branco, veja:

    Ajuda sistema de vendas e estoque Campo_10

    Somente alterei, colocando a limpeza dos campos, veja:

    Código:

    'VERIFICA SE EXISTE ESTOQUE PARA REALIZAR A VENDA
        Dim x As Integer


        If KeyCode = 13 Then
            'Verifica se ha dados no campo
            If IsNull(Me.txtCodBarras) Or Me.txtCodBarras = "" Then
                'Se não tiver abre o formulário
                DoCmd.OpenForm "frm_BuscaProdutos"
            Else
                'Se tiver busca e Multipla o produto
                Call BuscaProdutos
                Me.txtQuant = 1
                Me.txtSubTotal = Me.txtQuant * Me.txtValorUnitário

            End If

            'If x < Me.txtQuant.Value Then
            'x = DLookup("Est_Atual", "tbl_CadProdutos", "Seq =" & "txtCodProduto")
            'MsgBox "Estoque Insuficiente. Estoque atual :  " & x, vbInformation, "Controle de Estoque e Vendas"
            'Exit Sub
            'End If

            If IsNull(Me.txtcodVenda) Or Me.txtcodVenda = "" Then
                txtcodVenda.Value = Nz(DMax("[CodVenda]", "tbl_Vendas"), 0) + 1
                Exit Sub
            Else

                'If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Gravar Esta Venda? ") = vbYes Then

                    'Verifica se o código da venda se existe na tabela
                    If DCount("CodVenda", "tbl_Vendas", "CodVenda =""" & Me!txtcodVenda & """") > 0 Then

                        'Insere na Tabela Detelhes Vendas
                        CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"

                        'Baixa o estoque da Tabela Produtos
                        CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""
                        Me.lstVendas.Requery
                    Else
                        'Se não existir Insere na Tabela Vendas e Detalhes da Venda
                        CurrentDb.Execute "INSERT INTO tbl_Vendas(CodVenda, DataVenda, CodUsuario, NomeUsuario, ValorVenda, CodEmpresa, NomeEmpresa) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtData.Value & "', '" & Me.txtCodUsuario.Value & "', '" & Me.txtUsuario.Value & "', '" & Me.txtTotal.Value & "', '" & Me.txtCodEmpresa.Value & "', '" & Me.txtNomeEmpresa.Value & "')"
                        CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"
                        'Baixa o estoque da Tabela Produtos
                        CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""

                        Me.txtCodBarras = ""
                        Me.txtDescricao = ""
                        Me.txtValorUnitário = ""
                        Me.txtQuant = 1
                        Me.txtSubTotal = ""

                        Me.lstVendas.Requery
                        Me.txtCodBarras.SetFocus
                    End If
                'End If
            End If


            
            Exit Sub
        End If


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




    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.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2882
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 26/3/2019, 14:12

    Bom dia,
    acrescente essa linha em negrito na posição do exemplo:

    'If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Gravar Esta Venda? ") = vbYes Then
    If Trim(Len(Me.txtCodBarras)) = 0 Then Exit Sub 'Caso esteja em branco o código de barras, para aqui
    'Verifica se o código da venda se existe na tabela
    If DCount("CodVenda", "tbl_Vendas", "CodVenda =""" & Me!txtcodVenda & """") > 0 Then




    'Verifica se o código da venda se existe na tabela
    If Trim(Len(Me.txtCodBarras)) = 0 Then Exit Sub


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2019, 21:50