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

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb

@@ -28,13 +28,18 @@ Public Class Storage '-- Raktárak ------------
     Private _ReportIn As ReportData ' -- Nyomtatvány betárolás
     Private _ReportOut As ReportData ' -- Nyomtatvány kitárolás
     Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR
-
+    Private _DeliveryNoteOutType_InventoryTransfer As DeliveryNoteOutType '--Szállítólevél a raktárközi átadás hoz
+    Private _DeliveryNoteOutType_ReturnBack As DeliveryNoteOutType '--Szállítólevél a visszárúhoz
 
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
     Public Overrides Sub AfterConstruction()
     End Sub
+    ''' <summary>
+    ''' Saját cég
+    ''' </summary>
+    ''' <returns></returns>
     Property CustomersFrom As CustomersFrom
         Get
             Return _CustomersFrom
@@ -43,6 +48,10 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("CustomersFrom", _CustomersFrom, value)
         End Set
     End Property
+    ''' <summary>
+    ''' A raktár címe
+    ''' </summary>
+    ''' <returns></returns>
     <ImmediatePostData(True), DataSourceProperty("CustomersFrom_Address")>
     Property Address As Address
         Get
@@ -52,7 +61,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("Address", _Address, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-ShortName", DefaultContexts.Save)> _
+    ''' <summary>
+    ''' Rövid megnevezés
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-ShortName", DefaultContexts.Save)>
     Property ShortName As String
         Get
             Return _ShortName
@@ -61,7 +74,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("ShortName", _ShortName, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-Description", DefaultContexts.Save)> _
+    ''' <summary>
+    ''' Leírás (max 100 karakter)
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-Description", DefaultContexts.Save)>
     Property Description As String
         Get
             Return _Description
@@ -70,7 +87,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("Description", _Description, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-NumberGeneratorOut", DefaultContexts.Save), NonCloneable()> _
+    ''' <summary>
+    ''' Kitárolás sorszám generátora
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-NumberGeneratorOut", DefaultContexts.Save), NonCloneable()>
     Property NumberGeneratorOut As NumberGenerator
         Get
             Return _NumberGeneratorOut
@@ -79,7 +100,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("NumberGeneratorOut", _NumberGeneratorOut, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-NumberGeneratorIn", DefaultContexts.Save), NonCloneable()> _
+    ''' <summary>
+    ''' Betárolás sorszámgenerátora
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-NumberGeneratorIn", DefaultContexts.Save), NonCloneable()>
     Property NumberGeneratorIn As NumberGenerator
         Get
             Return _NumberGeneratorIn
@@ -88,7 +113,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("NumberGeneratorIn", _NumberGeneratorIn, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-NumberGeneratorOutS", DefaultContexts.Save), NonCloneable()> _
+    ''' <summary>
+    ''' Kitárolás stornó sorszámgenerátora
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-NumberGeneratorOutS", DefaultContexts.Save), NonCloneable()>
     Property NumberGeneratorOutS As NumberGenerator
         Get
             Return _NumberGeneratorOutS
@@ -97,7 +126,11 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("NumberGeneratorOutS", _NumberGeneratorOutS, value)
         End Set
     End Property
-    <RuleRequiredField("Storage-NumberGeneratorInS", DefaultContexts.Save), NonCloneable()> _
+    ''' <summary>
+    ''' Betárolás stornó sorszámgenerátora
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Storage-NumberGeneratorInS", DefaultContexts.Save), NonCloneable()>
     Property NumberGeneratorInS As NumberGenerator
         Get
             Return _NumberGeneratorInS
@@ -106,6 +139,10 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("NumberGeneratorInS", _NumberGeneratorInS, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Betárolás nyomtatványa
+    ''' </summary>
+    ''' <returns></returns>
     Property ReportIn As ReportData
         Get
             Return _ReportIn
@@ -114,6 +151,10 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("ReportIn", _ReportIn, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Kitárolás nyomtatvány
+    ''' </summary>
+    ''' <returns></returns>
     Property ReportOut As ReportData
         Get
             Return _ReportOut
@@ -122,6 +163,10 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("ReportOut", _ReportOut, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Leltár nyomtatvány
+    ''' </summary>
+    ''' <returns></returns>
     Property ReportInventory As ReportData
         Get
             Return _ReportInventory
@@ -130,7 +175,30 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("ReportInventory", _ReportInventory, value)
         End Set
     End Property
-
+    ''' <summary>
+    ''' Szállítólevél a raktárközi átadás hoz
+    ''' </summary>
+    ''' <returns></returns>
+    Property DeliveryNoteOutType_InventoryTransfer As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType_InventoryTransfer
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType_InventoryTransfer", _DeliveryNoteOutType_InventoryTransfer, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' Szállítólevél a visszárúhoz
+    ''' </summary>
+    ''' <returns></returns>
+    Property DeliveryNoteOutType_ReturnBack As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType_ReturnBack
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType_ReturnBack", _DeliveryNoteOutType_ReturnBack, value)
+        End Set
+    End Property
     '-------------ReadOnly--------------
     <VisibleInListView(False)> _
     Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address)