ProductsGroups javítások

Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb

@@ -21,7 +21,7 @@ Public Class ProductsVC
 
     Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
     Public Event DoWork()
-    Public Event FinalWork
+    Public Event FinalWork()
     Public Sub New()
         MyBase.New()
         _Selection = New ArrayList
@@ -260,7 +260,22 @@ Public Class ProductsVC
                 If _ModifyProductsParameters.ProductsSource IsNot Nothing Then
                     _ocur.Delete(_Products.ProductsDocumentations)
                     For Each _ProductsDocumentations As ProductsDocumentations In _ModifyProductsParameters.ProductsSource.ProductsDocumentations
-                        _Products.ProductsDocumentations.Add(_ocur.GetObject(_ProductsDocumentations))
+                        Dim _ProductsDocumentations_New As ProductsDocumentations = _ocur.CreateObject(Of ProductsDocumentations)
+
+                        _ProductsDocumentations_New.Products = _Products
+                        _ProductsDocumentations_New.Description = _ProductsDocumentations.Description
+                        _ProductsDocumentations_New.File = _ocur.GetObject(_ProductsDocumentations.File)
+                        _ProductsDocumentations_New.FileCreated = _ProductsDocumentations.FileCreated
+                        _ProductsDocumentations_New.FileModified = _ProductsDocumentations.FileModified
+
+                        _ProductsDocumentations_New.ObjectCreated = _ProductsDocumentations.ObjectCreated
+                        _ProductsDocumentations_New.RowGroup1 = _ProductsDocumentations.RowGroup1
+                        _ProductsDocumentations_New.RowGroup2 = _ProductsDocumentations.RowGroup2
+                        _ProductsDocumentations_New.ShortName = _ProductsDocumentations.ShortName
+                        _ProductsDocumentations_New.UserCreated = _ocur.GetObject(_ProductsDocumentations.UserCreated)
+
+
+                        _Products.ProductsDocumentations.Add(_ocur.GetObject(_ProductsDocumentations_New))
                     Next
                 Else
 
@@ -270,7 +285,12 @@ Public Class ProductsVC
                 If _ModifyProductsParameters.ProductsSource IsNot Nothing Then
                     _ocur.Delete(_Products.ProductsSentence)
                     For Each _ProductsSentence As ProductsSentence In _ModifyProductsParameters.ProductsSource.ProductsSentence
-                        _Products.ProductsSentence.Add(_ocur.GetObject(_ProductsSentence))
+                        Dim _ProductsSentence_New As ProductsSentence = _ocur.CreateObject(Of ProductsSentence)
+
+                        _ProductsSentence_New.Products = _Products
+                        _ProductsSentence_New.Sentence = _ocur.GetObject(_ProductsSentence.Sentence)
+
+                        _Products.ProductsSentence.Add(_ocur.GetObject(_ProductsSentence_New))
                     Next
                 Else
 
@@ -280,7 +300,12 @@ Public Class ProductsVC
                 If _ModifyProductsParameters.ProductsSource IsNot Nothing Then
                     _ocur.Delete(_Products.ProductsUNList)
                     For Each _ProductsUNList As ProductsUNList In _ModifyProductsParameters.ProductsSource.ProductsUNList
-                        _Products.ProductsUNList.Add(_ocur.GetObject(_ProductsUNList))
+                        Dim _ProductsUNList_New As ProductsUNList = _ocur.CreateObject(Of ProductsUNList)
+
+                        _ProductsUNList_New.Products = _Products
+                        _ProductsUNList_New.UNList = _ocur.GetObject(_ProductsUNList.UNList)
+
+                        _Products.ProductsUNList.Add(_ocur.GetObject(_ProductsUNList_New))
                     Next
                 Else
 
@@ -353,7 +378,7 @@ Public Class ProductsVC
                 End If
             Next
             _uow.CommitChanges()
-            RaiseEvent FinalWork
+            RaiseEvent FinalWork()
         Catch ex As Exception
 
         End Try
@@ -503,6 +528,6 @@ Public Class ProductsVC
         Next
 
         _ocur.CommitChanges()
-        RaiseEvent FinalWork
+        RaiseEvent FinalWork()
     End Sub
 End Class