Baixa no Estoque!!

[DiguinhoO]

Pessoal, boa noite!

Estou querendo dar baixa no meu estoque do meu projeto...

só q nao sei como fazer o codigo

eu pensei da seguinte forma: Criar um objeto ou função e chamar ele quando for concluir a venda, até aí acho q td bem

Só q nao estou conseguindo programar esse objeto ou função pra executar o comando de excluir a quantidade de produto no estoque

Nao sei se é melhor usar função ou criar um objeto, e também nao estou conseguindo acertar a programação

pois nao entendo muito bem ainda...

segue o codigo q estou usando para a função

OBS: A variável "strConn" esta puxando a conexao q declarei em um modulo, por isso nao coloquei o caminho da conexao no codigo

por favor me ajudem!!!

Private Sub trigger(ByVal cod_produto As Integer)

Dim sql As String = ""

Dim strConn As String = My.Settings.Paty_Modas_Banco_Dados.ToString

Dim con As New OleDbConnection(strConn)

Dim cmd As New OleDbCommand(sql, con)

'*************************************************************************

'INSTRUÇÃO PARA CONEXÃO E EXECUÇÃO DA INSTRUÇÃO

'*************************************************************************

Try

con.Open()

cmd.ExecuteNonQuery()

Dim qtde As Integer

Dim qtde_menos_estoque = ("SELECT QTDE_PRODUTO FROM TB_5ESTOQUE WHERE COD_PRODUTO=") & cod_produto

Dim baixaest As Double

Dim autcodpro

autcodpro = txtCodProd1.Text

qtde = Val(txtQtdProd1.Text)

baixaest = qtde_menos_estoque - qtde

sql = "update TB_5ESTOQUE set QTDE_PRODUTO = '" + val(baixaest)"'" _

+ "where cod_produto =" + (autcodprod)

Finally

con.Close()

End Try

End Sub

[DiguinhoO]

pessoal, boa noite!

Estou querendo dar baixa no meu estoque do meu projeto...

Só q nao sei como fazer o codigo

eu pensei da seguinte forma: Criar um objeto ou função e chamar ele quando for concluir a venda, até aí acho q td bem

só q nao estou conseguindo programar esse objeto ou função pra executar o comando de excluir a quantidade de produto no estoque

nao sei se é melhor usar função ou criar um objeto, e também nao estou conseguindo acertar a programação

pois nao entendo muito bem ainda...

Segue o codigo q estou usando para a função

obs: A variável "strconn" esta puxando a conexao q declarei em um modulo, por isso nao coloquei o caminho da conexao no codigo

por favor me ajudem!!!

private sub trigger(byval cod_produto as integer)

dim sql as string = ""

dim strconn as string = my.settings.paty_modas_banco_dados.tostring

dim con as new oledbconnection(strconn)

dim cmd as new oledbcommand(sql, con)

'*************************************************************************

'instruÇÃo para conexÃo e execuÇÃo da instruÇÃo

'*************************************************************************

try

con.open()

cmd.executenonquery()

dim qtde as integer

dim qtde_menos_estoque = ("select qtde_produto from tb_5estoque where cod_produto=") & cod_produto

dim baixaest as double

dim autcodpro

autcodpro = txtcodprod1.text

qtde = val(txtqtdprod1.text)

baixaest = qtde_menos_estoque - qtde

sql = "update tb_5estoque set qtde_produto = '" + val(baixaest)"'" _

+ "where cod_produto =" + (autcodprod)

finally

con.close()

end try

end sub

deixaaaaa

já consegui fazer funcionar

coloquei o codigo direto na rotina de finalizar venda e alterei uns codigos e deu certo!!!!

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.