none
Erro ao Diminui Campo do banco de Dados RRS feed

  • Pergunta

  • Gelera estou com um problema toda hora que faço uma venda ele da erro ele diminui o estoque no programa mais no banco de dados fica a mesma coisa segue meu codigo

      Dim PorcentagemTotal = valortotal_textbox.Text * txtporcentagemtxtbox.Text / (100) * valortotal_textbox.Text


    Private Sub PDIMINUIEstoque() 'private que uso para salvar e diminuir


            Using con As OleDbConnection = GeetConectionestoque()

                Try
                    con.Open()
                    Dim sql As String = "UPDATE produtos_cotacao SET saldoestoque = @saldoestoque WHERE codigo = @codigo"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@saldoestoque", SaldoestoqueTextBox.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@codigo", Integer.Parse(txtCodigoProduto.Text)))

                    cmd.ExecuteNonQuery()

                    Dim diminui As Integer
                    diminui = SaldoestoqueTextBox.Text - UNKGtextbox.Text
                    SaldoestoqueTextBox.Text = (diminui)

                    pcarregadadosdatagrid()


                    MsgBox("Alterado com sucesso")


                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    con.Close()
                End Try
            End Using
        End Sub

    Private Function pverificasaldoestoque() 'funcao que uso para nao deixa vender se estiver com -1 
            If SaldoestoqueTextBox.Text <= 1 Then
                MsgBox("O Produto Esta em Estoque critico, Por Favor Abasteça o Estoque")
                Return False
            End If
            Return True
        End Function


     Private Sub Cadastrar_Click(sender As System.Object, e As System.EventArgs) Handles Cadastrar.Click 'botao que uso para cadastrar


            If pverificasaldoestoque() = False Then Exit Sub 'aqui esta a funcao que verifica se ele for igual -1 ele nao passa daqui (ta funcionando) nao so salva no dados
            PDIMINUIEstoque() ' private que uso para diminuir stoque mais esta dando erro

            If cmb_tipo_modo_pagamento.Text = "Anotar" Then
                Dim Valor As Decimal
                Valor = valortotal_textbox.Text
                valortotal_textbox.Text = Convert.ToInt32(Valor)
                Dim somarTotalDevendo = Convert.ToDecimal(Int32.Parse(valortotal_textbox.Text) + Convert.ToDecimal(Int32.Parse(Total_DevendoTextBox.Text)))

                Total_DevendoTextBox.Text = Convert.ToDecimal(Int32.Parse(valortotal_textbox.Text) + Convert.ToDecimal(Int32.Parse(Total_DevendoTextBox.Text)))

                PCadastrarValortotalDevendo() 'private que uso para se modo anotar estiver no cmbbox ele soma e anota(ja funcionando)

            End If




            PGravaDadosVenda() ' private que uso para salvar dados da venda funcionando ja


            pcarregadadosdatagrid() 

            gpVendas.Visible = False
            txtPesquisa.Enabled = True
            btnPesquisarCliente.Enabled = True


            txtCodigoClienteTextBox.Text = ""
            NomeTextbox.Text = ""
            CPFTextBox.Text = ""
            SituacaoTextBox.Text = ""
            txtPesquisa.Text = ""
            Total_DevendoTextBox.Text = "R$ 00,00"
            txtPesquisa.Enabled = True

        End Sub    


    XD

    terça-feira, 25 de julho de 2017 19:24

Respostas

  • Bom dia, jose_down. Tudo bem?

    Aparece alguma mensagem de erro?

    Poderia ser mais especifico, com o que está acontecendo, por favor?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 26 de julho de 2017 12:40
    Moderador

Todas as Respostas

  • Bom dia, jose_down. Tudo bem?

    Aparece alguma mensagem de erro?

    Poderia ser mais especifico, com o que está acontecendo, por favor?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 26 de julho de 2017 12:40
    Moderador
  • Bom dia,

    Por falta de retorno, essa thread está sendo encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 31 de julho de 2017 13:55
    Moderador