Raktárközi átadásról és szállítói visszárúról lehet szállítólevelet készíteni

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb

@@ -48,6 +48,8 @@ Public Class StorageOutHeader
     Private _WorkSheet_Header As WorkSheet_Header 'Melyik munkalaphoz kapcsolódik a kitárolás
     Private _StoragePDACollectionHeader As StoragePDACollectionHeader
     Private _ConnectInfo As String
+    Private _DeliveryNoteOutHeader As DeliveryNoteOutHeader 'Milyen szállítólevelen lett raktárközi kiszállítva, visszárúzva stb.
+
 
     '----------------------------------------------------------------------------
     Private _row_OutMode As eOutMode
@@ -239,6 +241,18 @@ Public Class StorageOutHeader
             SetPropertyValue("ConnectInfo", _ConnectInfo, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Milyen szállítólevelen lett kiszállítva (raktárközi, visszárú esetén)
+    ''' </summary>
+    ''' <returns></returns>
+    Property DeliveryNoteOutHeader As DeliveryNoteOutHeader
+        Get
+            Return _DeliveryNoteOutHeader
+        End Get
+        Set(value As DeliveryNoteOutHeader)
+            SetPropertyValue("DeliveryNoteOutHeader", _DeliveryNoteOutHeader, value)
+        End Set
+    End Property
 
     'Nonpersistent
     <NonPersistent()>
@@ -298,9 +312,9 @@ Public Class StorageOutHeader
     End Property
 
     'XPCollections
-    <VisibleInListView(False)> _
-    <Association("StorageOut", GetType(StorageOutRows))> _
-    Public ReadOnly Property StorageOutRows() As XPCollection(Of StorageOutRows)
+    <VisibleInListView(False)>
+    <Association("StorageOut", GetType(StorageOutRows))>
+    Public ReadOnly Property StorageOutRows As XPCollection(Of StorageOutRows)
         Get
             Return GetCollection(Of StorageOutRows)("StorageOutRows")
         End Get