Public Class Clsiva
    Public Function SaveIva(ByVal codice As String, ByVal descrizione As String, ByVal aliquota As Decimal) As Iva
        Try
            SqlTrans = Db.BeginTransaction
            SqlCmd.Transaction = SqlTrans
            If modifica = False Then
                SqlCmd.CommandText = "InsIva"
                SqlCmd.Parameters.Add("@Codiceiva", SqlDbType.VarChar).Value = Codice
                SqlCmd.Parameters.Add("@Desciva", SqlDbType.VarChar).Value = Descrizione
                SqlCmd.Parameters.Add("@aliquota", SqlDbType.Decimal).Value = aliquota
                SqlCmd.Connection = Db
                SqlCmd.CommandType = CommandType.StoredProcedure
                SqlCmd.ExecuteNonQuery()
            Else
                SqlCmd.CommandText = "UPDIva"
                SqlCmd.Parameters.Add("@Codiceiva", SqlDbType.VarChar).Value = Codice
                SqlCmd.Parameters.Add("@desciva", SqlDbType.VarChar).Value = Descrizione
                SqlCmd.Parameters.Add("@aliquota", SqlDbType.Decimal).Value = 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()
            Exit Try
        End Try
        Return Iva
    End Function
End Class