Ola Lucio, desculpe a demora.
Como eu comentei acima, esta funcionando bem para os recibos que sao abertos e pagos logo e seguida, porem como eu comentei acima, gostaria de armazenar os recibos em abertos (Os que nao foram pagos ainda), como se a mesa do restaurante ainda estivesse com
as pessoas ordenando bebidas ou outros itens e esses recibos podem ser reabertos posteriormente tanto para agregar mais itens como tambem para serem finalizados e pagos.
Segue abaixo o codigo que estou usando para inserir os dados nas tabelas por SQLite:
Public Sub AdicionarTransacao()
Dim Transacao As SQLiteTransaction
Try
Dim cn As SQLiteConnection = GetConnectionSQLite()
cn.Open()
Transacao = cn.BeginTransaction
Dim sql As String = "insert into tblRecibos (DataRecibo, TotalRecibo) Values (@DataRecibo, @TotalRecibo)"
Dim cmd As New SQLiteCommand
cmd.Connection = cn
cmd.Transaction = Transacao
cmd.CommandText = sql
cmd.Parameters.AddWithValue("@DataRecibo", Now.Date)
cmd.Parameters.AddWithValue("@TotalRecibol", txtTotal.Text)
cmd.ExecuteNonQuery()
cmd.Dispose()
sql = "select max(ReciboID) as MAXID from tblRecibos"
Dim cmd2 As New SQLiteCommand
cmd2.Connection = cn
cmd2.Transaction = MyTransaction
cmd2.CommandText = sql
Dim ReciboID As Long = cmd2.ExecuteScalar()
cmd2.Dispose()
Dim I As Integer
For I = 0 To dgvCheck.Rows.Count - 1
Dim Descricao As String = dgvCheck.Rows(I).Cells(0).Value
Dim QTY As Integer = dgvCheck.Rows(I).Cells(1).Value
Dim Preco As Decimal = dgvCheck.Rows(I).Cells(2).Value
Dim Taxa As Decimal = dgvCheck.Rows(I).Cells(3).Value
Dim Total As Decimal = dgvCheck.Rows(I).Cells(4).Value
Dim Departamento As String = dgvCheck.Rows(I).Cells(5).Value
Dim cmd3 As New SQLiteCommand
sql = "insert into tblReciboDetalhe (ReciboID, Descricao, Departamento, QTY, Preco, Taxa, DataRecibo) Values (@ReciboID, @Descricao, @Departamento, @QTY, @Preco, @Taxa, @DataRecibo)"
cmd3.Connection = cn
cmd3.Transaction = Transacao
cmd3.CommandText = sql
cmd3.Parameters.AddWithValue("@ReciboID", ReciboID)
cmd3.Parameters.AddWithValue("@Descricao", Descricao)
cmd3.Parameters.AddWithValue("@Departamento", Departamento)
cmd3.Parameters.AddWithValue("@QTY", QTY)
cmd3.Parameters.AddWithValue("@Preco", Preco)
cmd3.Parameters.AddWithValue("@Taxa", Taxa)
cmd3.Parameters.AddWithValue("@DataRecibo", Now.Date)
cmd3.ExecuteNonQuery()
cmd3.Dispose()
'End If
Next
Transacao.Commit()
Transacao.Dispose()
cn.Close()
cn.Dispose()
Catch ex As Exception
If Transacao IsNot Nothing Then
Transacao.Rollback()
End If
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Test")
End Try
End Sub
Obrigado pela ajuda!
