ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ProductsGroups javítások

Browse Source
This commit is contained in:
ivanszabo
2017-04-25 12:30:51 +02:00
parent 2cf199449f
commit 312bdf847a
1 changed files with 31 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
+31 -6
View File
@@ -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