Imports System.Data.SqlClient
Public Class GestoreIva
    Public Sub SaveIva(ByVal Iva As PropertyIva)
        Try
            SqlTrans = Db.BeginTransaction
            SqlCmd.Transaction = SqlTrans
            If modifica = False Then
                SqlCmd.CommandText = "InsIva"
                SqlCmd.Parameters.Add("@Codiceiva", SqlDbType.VarChar).Value = Iva.Codice
                SqlCmd.Parameters.Add("@Desciva", SqlDbType.VarChar).Value = Iva.Descrizione
                SqlCmd.Parameters.Add("@aliquota", SqlDbType.Decimal).Value = Iva.Descrizione
                SqlCmd.Connection = Db
                SqlCmd.CommandType = CommandType.StoredProcedure
                SqlCmd.ExecuteNonQuery()
            Else
                SqlCmd.CommandText = "UPDIva"
                SqlCmd.Parameters.Add("@Codiceiva", SqlDbType.VarChar).Value = Iva.Codice
                SqlCmd.Parameters.Add("@desciva", SqlDbType.VarChar).Value = Iva.Descrizione
                SqlCmd.Parameters.Add("@aliquota", SqlDbType.Decimal).Value = Iva.Aliquota
                SqlCmd.Connection = Db
                SqlCmd.CommandType = CommandType.StoredProcedure
                SqlCmd.ExecuteNonQuery()
            End If
            SqlTrans.Commit()
            SqlCmd.Dispose()
        Catch ex As Exception
            SqlTrans.Rollback()
            MessageBox.Show(ex.Message, "INVOICE.IT", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            SqlCmd.Parameters.Clear()
            Return
        End Try
    End Sub
End Class