PacketMode kiegészítés

Related Work Items: #5

Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb

@@ -159,4 +159,10 @@ Public Class ModifyProductsParameters
     ''' </summary>
     ''' <returns></returns>
     <NonPersistent()> Property CloneDocumentations As Boolean
+    <NonPersistent> Property IsPacketMode As Boolean
+    ''' <summary>
+    ''' Csomagolási mód változtatása
+    ''' </summary>
+    ''' <returns></returns>
+    <NonPersistent> Property PacketMode As PacketMode
 End Class

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

@@ -253,6 +253,47 @@ Public Class ProductsVC
             If _ModifyProductsParameters.IsDecimalIn Then _Products.DecimalIn = _ModifyProductsParameters.DecimalIn
             If _ModifyProductsParameters.IsDecimalOut Then _Products.DecimalOut = _ModifyProductsParameters.DecimalOut
 
+
+            If _ModifyProductsParameters.IsADRPackingUnit Then _Products.ADRPackingUnit = _ModifyProductsParameters.ADRPackingUnit
+
+            If _ModifyProductsParameters.CloneDocumentations Then
+                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))
+                    Next
+                Else
+
+                End If
+            End If
+            If _ModifyProductsParameters.CloneSentence Then
+                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))
+                    Next
+                Else
+
+                End If
+            End If
+            If _ModifyProductsParameters.CloneUNList Then
+                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))
+                    Next
+                Else
+
+                End If
+                If _Products.ProductsUNList.Count > 0 Then
+                    _Products.UNNumber = _Products.ProductsUNList(0).UNList.ShortName
+                End If
+            End If
+
+            If _ModifyProductsParameters.IsPacketMode Then
+                _Products.PacketMode = _ocur.GetObject(_ModifyProductsParameters.PacketMode)
+            End If
+
             _Products.Save()
         Next
         _ocur.CommitChanges()