From 120b3e3cc36b1e6d05059043a91ff63f03259d2f Mon Sep 17 00:00:00 2001
From: "ivan.szabo" <ivan.szabo.sis@gmail.com>
Date: Thu, 23 Mar 2017 12:04:06 +0100
Subject: [PATCH] =?UTF-8?q?PacketMode=20kieg=C3=A9sz=C3=ADt=C3=A9s?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Related Work Items: #5
---
 .../PopUp/ModifyProductsParameters.vb         |  6 +++
 .../Business/Products/ProductsVC.vb           | 41 +++++++++++++++++++
 2 files changed, 47 insertions(+)

diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb b/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb
index 2dc3900..626550e 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb
+++ b/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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
index bbac8ec..a683b11 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
+++ b/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()