Imports System.ComponentModel
Imports Microsoft.Office.Interop
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.IO

Public Class Stock
    Implements IEditableObject
    Implements INotifyPropertyChanged

    'Properties
#Region "Property"

    Private _ProdId As Integer
    Public Property ProdId As Integer
        Get
            Return _ProdId
        End Get
        Set(ByVal value As Integer)
            _ProdId = value
        End Set
    End Property

    Private _FuifId As Integer
    Public Property FuifId As Integer
        Get
            Return _FuifId
        End Get
        Set(ByVal value As Integer)
            _FuifId = value
        End Set
    End Property


    Private _Categorie As String
    Public Property Categorie As String
        Get
            Return _Categorie
        End Get
        Set(ByVal value As String)
            _Categorie = value
        End Set
    End Property


    Private _Aankoopprijs As Double
    Public Property Aankoopprijs As Double
        Get
            Return _Aankoopprijs
        End Get
        Set(ByVal value As Double)
            _Aankoopprijs = value
        End Set
    End Property


    Private _Aantal As Integer
    Public Property Aantal As Integer
        Get
            Return _Aantal
        End Get
        Set(ByVal value As Integer)
            _Aantal = value
        End Set
    End Property


    Private _Ratio As Byte
    Public Property Ratio As Byte
        Get
            Return _Ratio
        End Get
        Set(ByVal value As Byte)
            _Ratio = value
        End Set
    End Property



    Private _Verkoopprijs As Double
    Public Property Verkoopprijs As Double
        Get
            Return _Verkoopprijs
        End Get
        Set(ByVal value As Double)
            _Verkoopprijs = value
        End Set
    End Property


    Private _RestAantal As Byte
    Public Property RestAantal As Byte
        Get
            Return _RestAantal
        End Get
        Set(ByVal value As Byte)
            _RestAantal = value
        End Set
    End Property

#End Region

#Region "Constructor"

    Public Sub New(ByVal restaantal As Byte, ByVal prodid As Integer, ByVal fuifid As Integer, ByVal categorie As String, ByVal aantal As Integer, ByVal aankoopprijs As Double, Optional ByVal delen As Integer = 1, Optional ByVal BerekenVerkoopprijs As Boolean = True)
        _Aankoopprijs = aankoopprijs
        _Aantal = aantal
        _Categorie = categorie
        _FuifId = fuifid
        _ProdId = prodid
        If delen > 0 Then
            _Ratio = 1 / delen
        Else
            _Ratio = 1
        End If
        _RestAantal = restaantal
        If BerekenVerkoopprijs = True Then
            _Verkoopprijs = BepaalVerkoopprijs(aankoopprijs, fuifid, prodid)
        End If

    End Sub
#End Region

    'Functie stock in lijst plaatsen
    'functie aankoopprijs verkrijgen van Product Id
    'functie categorieen in lijst plaatsen
    'Verkoopprijs Bepalen
#Region "Functions"
    Public Shared Function FactuurMaken(ByVal FuifNaam As String, ByVal sBestandslocatie As String)
        'Controleren of fuif al gedaan is
        Dim name As String = "BeursFuifConnectionString"
        Dim DatumFuif, EindUurFuif, FuifFactuur As String
        Dim FuifOrgId, FuifId As Integer
        Dim factuur As Boolean = False

        Database.GetConnectionString(name)
        Dim conn As SqlConnection = Database.GetConnection(name)

        Dim sql As String = "SELECT FuifId, FuifDatum,FuifEindtijd,FuifOrgId,FuifFactuur from fuif WHERE FuifNaam = @FuifNaam"
        Dim parameters() As SqlParameter = {New SqlParameter("@FuifNaam", FuifNaam)}
        Dim dr As SqlDataReader = Database.getDatareader(name, sql, parameters)
        While dr.Read
            FuifId = dr("FuifId")
            DatumFuif = dr("FuifDatum")
            EindUurFuif = dr("FuifEindtijd")
            FuifOrgId = dr("FuifOrgId")
            If Not IsDBNull(dr("FuifFactuur")) Then
                factuur = True
                FuifFactuur = dr("FuifFactuur")
            End If
        End While
        dr.Close()

        If factuur = False Then
            Dim d, m, j, u, min As String
            d = DatumFuif.Substring(0, 2)
            m = DatumFuif.Substring(2, 2)
            j = DatumFuif.Substring(4, 4)
            If EindUurFuif.Length = 3 Then
                u = EindUurFuif.Substring(0, 1)
                min = EindUurFuif.Substring(1, 2)
            Else
                u = EindUurFuif.Substring(0, 2)
                min = EindUurFuif.Substring(2, 2)
            End If
            Dim dateFuif As New DateTime(j, m, d, u, min, 0)

            Dim DateError As Boolean = True

            If Now >= dateFuif Then
                DateError = False
            End If

            If DateError = False Then
                'stap 0: info uit app.config halen
                Dim sTemplate As String = ConfigurationManager.AppSettings("templateFactuur")

                'stap 1: bestandsnaam template samenstellen:
                sTemplate = Path.GetFullPath(sTemplate)

                'stap 2: word opstarten en bestand openen
                Dim oApp As New Word.Application
                oApp.Visible = True

                'opm: indien een word-sjabloon (*.dotx) -> Add-methode gebruiken
                '     indien een word-document (*.docx) -> Open-methode gebruiken
                Dim oDoc As Word.Document = oApp.Documents.Add(sTemplate)


                'Organisatie ophalen
                Dim OrgId, OrgNaam, OrgAdreslijn1, OrgPlaats, OrgLand, OrgTelefoon, OrgMobiel, OrgEmail, OrgBTWNummer As String
                Dim OrgPostcode As Integer

                sql = "SELECT OrgId,OrgNaam,OrgAdreslijn1,OrgPostcode,OrgPlaats,OrgLand,OrgTelefoon,OrgMobiel,OrgEmail,OrgBTWNummer from Organisatie WHERE OrgId = @OrgId"
                parameters = {New SqlParameter("@OrgId", FuifOrgId)}
                dr = Database.getDatareader(name, sql, parameters)
                Dim Organ As Organisatie
                While dr.Read
                    OrgId = dr("OrgId")
                    OrgNaam = dr("OrgNaam")
                    OrgAdreslijn1 = dr("OrgAdreslijn1")
                    OrgPlaats = dr("OrgPlaats")
                    OrgLand = dr("OrgLand")
                    If Not IsDBNull(dr("OrgTelefoon")) Then
                        OrgTelefoon = dr("OrgTelefoon")
                    End If
                    If Not IsDBNull(dr("OrgMobiel")) Then
                        OrgMobiel = dr("OrgMobiel")
                    End If
                    If Not IsDBNull(dr("OrgEmail")) Then
                        OrgEmail = dr("OrgEmail")
                    End If
                    If Not IsDBNull(dr("OrgBTWNummer")) Then
                        OrgBTWNummer = dr("OrgBTWNummer")
                    End If
                    If Not IsDBNull(dr("OrgPostcode")) Then
                        OrgPostcode = dr("OrgPostcode")
                    End If

                    Organ = New Organisatie(OrgNaam, OrgAdreslijn1, OrgPostcode, OrgPlaats, OrgLand, OrgTelefoon, OrgMobiel, OrgEmail, OrgBTWNummer)
                End While
                dr.Close()

                'stap 3: bladwijzers overlopen en telkens tekst daar gaan plaatsen

                Dim rng As Word.Range = oDoc.Bookmarks("OrgNaam").Range
                rng.InsertAfter(Organ.Naam)
                rng = oDoc.Bookmarks("OrgAdres").Range
                rng.InsertAfter(Organ.Adreslijn1)
                rng = oDoc.Bookmarks("OrgPostcode").Range
                rng.InsertAfter(Organ.Postcode)
                rng = oDoc.Bookmarks("OrgPlaats").Range
                rng.InsertAfter(Organ.Plaats)
                rng = oDoc.Bookmarks("OrgLand").Range
                rng.InsertAfter(Organ.Land)
                rng = oDoc.Bookmarks("OrgTelefoon").Range
                rng.InsertAfter(Organ.Telefoon)
                rng = oDoc.Bookmarks("OrgMobiel").Range
                rng.InsertAfter(Organ.Mobiel)
                rng = oDoc.Bookmarks("OrgEmail").Range
                rng.InsertAfter(Organ.Email)
                rng = oDoc.Bookmarks("OrgBtw").Range
                rng.InsertAfter(Organ.BTWNummer)



                'tabel: voor sebiet
                rng = oDoc.Bookmarks("StartTabel").Range
                'tabel even vastnemen...
                Dim tabel As Word.Table = rng.Tables(1)
                'huidige cel opvragen
                Dim cel As Word.Cell = rng.Cells(1)
                'rijnummer opvragen
                Dim iRijnummer As Integer = cel.RowIndex

                Dim totalePrijsProduct As Double
                Dim ProductId As Integer
                sql = "select sum(VKPrijs) as TotalePrijsProduct, VKProdId from verkoop where VKFuifId= @VKFuifId group by VKProdId"
                parameters = {New SqlParameter("@VKFuifId", FuifId)}
                dr = Database.getDatareader(name, sql, parameters)
                Dim ProductInfo As New Dictionary(Of Integer, Double)
                While dr.Read
                    totalePrijsProduct = dr("TotalePrijsProduct")
                    ProductId = dr("VKProdId")
                    ProductInfo.Add(Product.ProductNaam(ProductId), totalePrijsProduct)
                End While
                dr.Close()

                For Each Product In ProductInfo
                    tabel.Rows.Add()
                    iRijnummer += 1
                    cel = tabel.Cell(iRijnummer, 1)
                    cel.Range.InsertAfter(Product.Key)
                    cel = tabel.Cell(iRijnummer, 2)
                    cel.Range.InsertAfter(Product.Value)
                    cel = tabel.Cell(iRijnummer, 3)
                    cel.Range.InsertAfter(Product.Value * 0.79)
                Next

                'stap 4: bestand opslaan en afsluiten
                oDoc.SaveAs(sBestandslocatie)
                oDoc.Close()
                'stap 5: word afsluiten
                oApp.Quit()
            Else
                Return "Er kan geen factuur gemaakt worden als je fuif nog niet is geïndigd."
            End If
        Else

        End If
        Return String.Empty

        conn.Close()
    End Function

    Public Shared Function GetStock(Optional ByVal fuifid As Integer = Nothing) As List(Of Stock)
        Dim Lijst As New List(Of Stock)

        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Dim conn As SqlConnection = Database.GetConnection(name)

        Dim sql As String = "SELECT FPProdId, FPFuifId, FPCategorie, FPAankoopprijs, FPAantal, FPRatio, FPVerkoopprijs, FPRestAantal FROM FuifProduct"
        Dim dr As SqlDataReader
        Dim param(0) As SqlParameter
        If fuifid <> Nothing Then
            sql &= " WHERE FPFuifId=@fuifid"
            param(0) = New SqlParameter("@fuifid", fuifid)
            dr = Database.getDatareader(name, sql, param)
        Else
            dr = Database.getDatareader(name, sql, Nothing)
        End If



        While dr.Read
            Dim stock As New Stock(dr("FPRestAantal"), dr("FPProdId"), dr("FPFuifId"), dr("FPCategorie"), dr("FPAantal"), dr("FPAankoopprijs"), , False)
            With stock
                .Ratio = dr("FPRatio")
                .Verkoopprijs = dr("FPVerkoopprijs")
            End With
            Lijst.Add(stock)
        End While

        dr.Close()
        conn.Close()
        Return Lijst
    End Function

    Private Shared Function GetAankoopprijs(ByVal ProdId As Byte)
        Dim aankoopprijs As Double

        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Dim conn As SqlConnection = Database.GetConnection(name)

        Dim sql As String = "SELECT ProdAankoopprijs FROM dbo.Product WHERE ProdId=@Id"
        Dim parameters() As SqlParameter = {New SqlParameter("@Id", ProdId)}

        Dim dr As SqlDataReader = Database.getDatareader(name, sql, parameters)

        While dr.Read
            aankoopprijs = dr("ProdAankoopprijs")
        End While
        dr.Close()
        Return aankoopprijs
    End Function

    Public Shared Function getCategorien() As List(Of String)
        Dim olijst As New List(Of String)
        Dim categorie As String

        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Dim conn As SqlConnection = Database.GetConnection(name)

        Dim sql As String = "select DISTINCT(FPCategorie) from dbo.FuifProduct"
        Database.GetCommand(name, sql)

        Dim dr As SqlDataReader = Database.getDatareader(name, sql, Nothing) ' eventuele parameters

        Dim reader As New OleDb.OleDbCommand(name)
        While dr.Read
            categorie = dr("FPCategorie")
            olijst.Add(categorie)
        End While
        dr.Close()
        conn.Close()
        Return olijst
    End Function

    Private Shared Function BepaalVerkoopprijs(ByVal Aankoopprijs As String, ByVal fuifId As Integer, ByVal productId As Integer) As Double
        Dim vkprijs As Double

        Dim gemiddeldAantalVerkopenProduct, Bonwaarde, beoogdeWinstmarge As Double
        Dim oorspronkelijkStock, vooropgesteldDuurFuif, VerlopenTijd, StartTijdFuif As Integer
        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Dim conn As SqlConnection = Database.GetConnection(name)

        Dim sql As String = "SELECT FPAantal FROM FuifProduct where FPFuifId=@FPFuifId AND FPProdId=@FPProdId"
        Dim parameters() As SqlParameter = {New SqlParameter("@FPFuifId", fuifId), New SqlParameter("@FPProdId", productId)}
        Dim dr As SqlDataReader = Database.getDatareader(name, sql, parameters)
        While dr.Read
            oorspronkelijkStock = dr("FPAantal")
        End While
        dr.Close()

        sql = "SELECT CONVERT(Integer,FuifEindtijd) - CONVERT(Integer,FuifStarttijd) as 'Verschil' ,FuifBonWaarde, FuifWinstmarge, FuifStarttijd from fuif where Fuifid=@Fuifid"
        parameters = {New SqlParameter("@Fuifid", fuifId)}
        dr = Database.getDatareader(name, sql, parameters)
        While dr.Read
            vooropgesteldDuurFuif = dr("Verschil")
            Bonwaarde = dr("FuifBonWaarde")
            beoogdeWinstmarge = dr("FuifWinstmarge")
            StartTijdFuif = dr("FuifStarttijd")
        End While
        dr.Close()

        gemiddeldAantalVerkopenProduct = oorspronkelijkStock / vooropgesteldDuurFuif

        Dim EffectiefGemiddelde As Double
        Dim Verkopen As Integer

        sql = "SELECT count(VKId) as AantalVerkopen FROM Verkoop WHERE VKFuifId=@VKFuifId"
        parameters = {New SqlParameter("@VKFuifId", fuifId)}
        dr = Database.getDatareader(name, sql, parameters)
        While dr.Read
            Verkopen = dr("AantalVerkopen")
        End While
        dr.Close()

        sql = "SELECT TOP 1 VKTijd FROM Verkoop WHERE VKFuifId=@VKFuifId Order By VKTijd desc"
        parameters = {New SqlParameter("@VKFuifId", fuifId)}
        dr = Database.getDatareader(name, sql, parameters)
        While dr.Read
            VerlopenTijd = dr("VKTijd")
        End While
        dr.Close()

        EffectiefGemiddelde = Verkopen / VerlopenTijd

        Dim EffVooropGem As Double = (EffectiefGemiddelde / gemiddeldAantalVerkopenProduct) ^ 2
        Dim reeeleWinstmarge As Double = EffVooropGem * beoogdeWinstmarge

        If oorspronkelijkStock <> 0 Then
            vkprijs = Aankoopprijs * reeeleWinstmarge
        Else
            vkprijs = Aankoopprijs * ((beoogdeWinstmarge / 100) + 1)
        End If


        conn.Close()
        Return Math.Round(vkprijs, 2)


    End Function

    Public Shared Function importProducten(ByVal sbestandsnaam As String, ByVal fuifnaam As String)
        Try
            Dim MyConnection As OleDb.OleDbConnection
            Dim fuifId As Byte = GetFuifId(fuifnaam)
            Dim DS As New DataSet

            Dim MyCommand As OleDb.OleDbDataAdapter

            MyConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sbestandsnaam & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;""")
            '
            MyCommand = New OleDb.OleDbDataAdapter("select * from [Blad1$]", MyConnection)
            MyCommand.Fill(DS)

            Dim LijstStock As New List(Of Stock)
            Dim lijstNbProduct As New List(Of String)
            Dim iteller As Byte = 0
            Dim test As New Collection

            For i As Byte = 0 To DS.Tables(0).Rows.Count - 1
                If Not (DS.Tables(0).Rows(i) Is Nothing) Then
                    Dim productnaam, cat As String
                    Dim aantal, delen, rest As Byte
                    Dim aankoopprijs As Double
                    productnaam = DS.Tables(0).Rows(i).Item(0).ToString
                    If productnaam <> "" Then
                        aantal = DS.Tables(0).Rows(i).Item(1)
                        delen = DS.Tables(0).Rows(i).Item(2)
                        rest = DS.Tables(0).Rows(i).Item(3)
                        cat = DS.Tables(0).Rows(i).Item(4)
                        Dim productId As SByte = GetProdId(productnaam)
                        If productId = -1 Then
                            'Product bestaat niet
                            lijstNbProduct.Add(productnaam)
                        Else
                            aankoopprijs = GetAankoopprijs(productId)

                            'product bestaat wel
                            Dim ProdStock As New Stock(rest, productId, fuifId, cat, aantal, aankoopprijs, delen)
                            LijstStock.Add(ProdStock)
                        End If
                    End If
                End If
            Next
            MyConnection.Close()
            test.Add(LijstStock)
            test.Add(lijstNbProduct)
            Return test
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally

        End Try

    End Function

    Public Shared Function GetFuifId(ByVal fuifnaam As String) As Byte
        Try
            Dim name As String = "BeursFuifConnectionString"
            Dim FuifId As Byte

            Database.GetConnectionString(name)
            Dim conn As SqlConnection = Database.GetConnection(name)

            Dim sql As String = "SELECT FuifId FROM dbo.Fuif WHERE FuifNaam=@FuifNaam"
            Dim parameters As SqlParameter = New SqlParameter("@FuifNaam", fuifnaam)

            Dim dr As SqlDataReader = Database.getDatareader(name, sql, parameters) ' eventuele parameters

            dr.Read()
            FuifId = dr("FuifId")

            dr.Close()
            conn.Close()

            Return FuifId
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally

        End Try

    End Function

    Private Shared Function GetProdId(ByVal productnaam As String) As SByte
        Try
            Dim name As String = "BeursFuifConnectionString"
            Dim prodid As Byte

            Database.GetConnectionString(name)
            Dim conn As SqlConnection = Database.GetConnection(name)

            Dim sql As String = "Select prodid from product where ProdNaam=@ProdNaam"
            Dim parameters() As SqlParameter = {New SqlParameter("@ProdNaam", productnaam)}

            Dim dr As SqlDataReader = Database.getDatareader(name, sql, parameters) ' eventuele parameters

            Dim reader As New SqlCommand(name)
            dr.Read()
            If dr.HasRows Then
                prodid = dr("prodid")
                Return prodid
            Else
                Return -1
            End If
            dr.Close()
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally

        End Try

    End Function
#End Region

    'Updaten van de stock & invoegen van de stock
    'uitvoeren van de sql statement
#Region "SQL Subs"
    Public Shared Sub addStock(ByVal Stock As Stock)
        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Database.GetConnection(name)
        Dim sql As String = "INSERT INTO FUIFPRODUCT (FPProdId,FPFuifId,FPCategorie,FPAankoopprijs,FPAantal,FPRatio,FPVerkoopprijs,FPRestAantal) VALUES (@FPProdId,@FPFuifId,@FPCategorie,@FPAankoopprijs,@FPAantal,@FPRatio,@FPVerkoopprijs,@FPRestAantal)"

        Dim parameters() As SqlParameter = {New SqlParameter("@FPProdId", Stock.ProdId), New SqlParameter("@FPFuifId", Stock.FuifId), New SqlParameter("@FPCategorie", Stock.Categorie), New SqlParameter("@FPAankoopprijs", Stock.Aankoopprijs), New SqlParameter("@FPAantal", Stock.Aantal), New SqlParameter("@FPRatio", Stock.Ratio), New SqlParameter("@FPVerkoopprijs", Stock.Verkoopprijs), New SqlParameter("@FPRestAantal", Stock.RestAantal)}

        Database.ExecuteQuery(name, sql, parameters)
    End Sub

    Public Shared Sub updateStock(ByVal Stock As Stock, ByVal oudeProdId As Integer, ByVal oudeFuifId As Integer)
        Dim name As String = "BeursFuifConnectionString"

        Database.GetConnectionString(name)
        Database.GetConnection(name)

        Dim sql As String = "UPDATE FUIFPRODUCT SET FPFuifId=@FPFuifId,FPProdId=@FPProdId, FPCategorie=@FPCategorie,FPAankoopprijs=@FPAankoopprijs,FPAantal=@FPAantal,FPRatio=@FPRatio,FPVerkoopprijs=@FPVerkoopprijs,FPRestAantal=@FPRestAantal WHERE FPProdId=@FPProdIdOud AND FPFuifId=@FPFuifIdOud"

        Dim parameters() As SqlParameter = {New SqlParameter("@FPCategorie", Stock.Categorie), New SqlParameter("@FPProdId", Stock.ProdId),
                                            New SqlParameter("@FPAantal", Stock.Aantal.ToString.Replace(",", ".")), New SqlParameter("@FPAankoopprijs", Stock.Aankoopprijs.ToString.Replace(",", ".")),
                                        New SqlParameter("@FPRatio", Stock.Ratio), New SqlParameter("@FPVerkoopprijs", Stock.Verkoopprijs.ToString.Replace(",", ".")),
                                            New SqlParameter("@FPRestAantal", Stock.RestAantal.ToString.Replace(",", ".")), New SqlParameter("@FPFuifId", Stock.FuifId), New SqlParameter("@FPFuifIdOud", oudeFuifId), New SqlParameter("@FPProdIdOud", oudeProdId)}

        Database.ExecuteQuery(name, sql, parameters)

    End Sub

#End Region

#Region "Edit"
    Private msOldCategorie As String
    Private msOldAankoopprijs As Double
    Private mbFinalStatus As Boolean = True
    Private msOldRestAantal, msOldRatio, msOldDelen, msOldAantal, msOldFuifId, msOldProdId As Integer

    Public Sub BeginEdit() Implements System.ComponentModel.IEditableObject.BeginEdit
        If mbFinalStatus = True Then
            'start van editeren: oude waarden bijhouden (belangrijk bij cancel-opdracht)
            mbFinalStatus = False
            msOldCategorie = _Categorie
            msOldAankoopprijs = _Aankoopprijs
            msOldRestAantal = _RestAantal
            msOldRatio = _Ratio
            msOldAantal = _Aantal
            msOldFuifId = _FuifId
            msOldProdId = _ProdId
        End If
    End Sub

    Public Sub CancelEdit() Implements System.ComponentModel.IEditableObject.CancelEdit
        If mbFinalStatus = False Then
            mbFinalStatus = True
            'waarden terug zetten naar oorspronkelijke waarde
            _Categorie = msOldCategorie
            _Aankoopprijs = msOldAankoopprijs
            _RestAantal = msOldRestAantal
            _Ratio = msOldRatio
            _Aantal = msOldAantal
            _FuifId = msOldFuifId
            _ProdId = msOldProdId
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Categorie"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Aankoopprijs"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("RestAantal"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Ratio"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Aantal"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("FuifId"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("ProdId"))
        End If
    End Sub

    Public Sub EndEdit() Implements System.ComponentModel.IEditableObject.EndEdit
        If mbFinalStatus = False Then
            mbFinalStatus = True
            msOldCategorie = Nothing
            msOldAankoopprijs = Nothing
            msOldRestAantal = Nothing
            msOldRatio = Nothing
            msOldAantal = Nothing
            msOldFuifId = Nothing
            msOldProdId = Nothing

            'iedereen verwittigen dat er een aanpassing is
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Categorie"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Aankoopprijs"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("RestAantal"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Ratio"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Aantal"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("FuifId"))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("ProdId"))
        End If
    End Sub
#End Region

    Protected Overridable Sub onPropertyChanged(ByVal propertyName As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
    End Sub

    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

End Class