Click here to Skip to main content
15,886,067 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
I am currently trying to understand as to why when I apply the following changes to the interface object that it does not get added to the changeset.

The following is a transaction which is looping through XML and setting the values to the object(Which is some kind of item-type)
VB
' If Connection is Closed
' Open before we get a Transaction
If DB.Connection.State = ConnectionState.Closed Then
    DB.Connection.Open()
End If

DB.Transaction = DB.Connection.BeginTransaction

Try
    Dim nEl = 0
    For Each el As XElement In XDoc.Root.Elements
        Dim Type = el.Element("Type").Value.ToUpper
        Dim RefCode = el.Element("RefCode").Value.ToUpper

        Dim oIItem = GetItemByTypeAndCode(DB, Type, RefCode)

        If oIItem IsNot Nothing Then
            If Not el.Element("SP1").Value.IsNullOrEmpty Then
                oIItem.ItmSelling1 = CDbl(el.Element("SP1").Value)
            End If
            If Not el.Element("SP2").Value.IsNullOrEmpty Then
                oIItem.ItmSelling2 = CDbl(el.Element("SP2").Value)
            End If
            If Not el.Element("SP3").Value.IsNullOrEmpty Then
                oIItem.ItmSelling3 = CDbl(el.Element("SP3").Value)
            End If
            If Not el.Element("SP4").Value.IsNullOrEmpty Then
                oIItem.ItmSelling4 = CDbl(el.Element("SP4").Value)
            End If
            If Not el.Element("SP5").Value.IsNullOrEmpty Then
                oIItem.ItmSelling5 = CDbl(el.Element("SP5").Value)
            End If
            If Not el.Element("SP6").Value.IsNullOrEmpty Then
                oIItem.ItmSelling6 = CDbl(el.Element("SP6").Value)
            End If
            nEl += 1

            If ReportProgressDel IsNot Nothing Then
                ReportProgressDel.Invoke(nEl / XDoc.Root.Elements.Count * 100)
            End If
        Else
            Throw New Exception("Item '{0}' of type {1} not found!", RefCode.Trim, Type.Trim)
        End If
    Next

    DB.SubmitChanges()
    DB.Transaction.Commit()

Catch ex As Exception
    lError = True
    DB.Transaction.Rollback()
    Throw ex
End Try
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900