Rebase Develop

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb

@@ -25,6 +25,7 @@ Public Class Customers
     Private _CustomerNumber As String = "" 'Ügyfél azonosítója
     Private _VATNumber As String 'Adószám (belföldi)
     Private _VATNumberEU As String 'EU adószám
+    Private _VATNumberOther As String '-- Egyéb adószám (3. országbeli)
     Private _CustomersGLParameters As CustomersGLParameters 'Ügyfél főkönyvi kategária
     Private _CustomersNG As CustomersNG 'Ügyfél sorszám generátor
     Private _Pricing As Pricing 'Árképzés ha vevő az ügyfél
@@ -92,6 +93,8 @@ Public Class Customers
     Private _NAV_queryTaxpayer As String
     Private _NAV_valid As Boolean
     Private _NAV_queryDate As DateTime
+    Private _ExportMode As eExportMode '-- Belföldi, küldöldi, EU belfüldi ÁFA stb.
+    Private _IsPrivatePerson As Boolean '-- Magánszemély
 
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
@@ -178,7 +181,7 @@ Public Class Customers
             SetPropertyValue("VATNumber", _VATNumber, value)
         End Set
     End Property
-    <RuleUniqueValue("Customers-VATNumberEU", DefaultContexts.Save, skipnulloremptyvalues:=True)> _
+    <RuleUniqueValue("Customers-VATNumberEU", DefaultContexts.Save, skipnulloremptyvalues:=True)>
     Property VATNumberEU As String
         Get
             Return _VATNumberEU
@@ -187,6 +190,19 @@ Public Class Customers
             SetPropertyValue("VATNumberEU", _VATNumberEU, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Adószám 3. országbeli
+    ''' </summary>
+    ''' <returns></returns>
+    <RuleRequiredField("Customers-VATNumberOther-Require", DefaultContexts.Save, TargetCriteria:="ExportMode IN (1,3) AND IsPrivatePerson<>True")>
+    Property VATNumberOther As String
+        Get
+            Return _VATNumberOther
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("VATNumberOther", _VATNumberOther, value)
+        End Set
+    End Property
     <RuleRequiredField("Customers-CustomersGLParameters", DefaultContexts.Save)> _
     <VisibleInDetailView(False)> _
     <VisibleInListView(False)> _
@@ -687,6 +703,30 @@ Public Class Customers
             SetPropertyValue("NAV_queryDate", _NAV_queryDate, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Export mód
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ExportMode As eExportMode
+        Get
+            Return _ExportMode
+        End Get
+        Set(value As eExportMode)
+            SetPropertyValue(NameOf(ExportMode), _ExportMode, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' Magánszemély ?
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property IsPrivatePerson As Boolean
+        Get
+            Return _IsPrivatePerson
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrivatePerson", _IsPrivatePerson, value)
+        End Set
+    End Property
     '-----ReadOnly---------------
     Overloads ReadOnly Property IsDeleted As Boolean
         Get

SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFrom.vb

@@ -35,6 +35,7 @@ Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot
     Private _NAV_xmlSignkey As String
     Private _NAV_password As String
     Private _NAV_exchangeKey As String
+    Private _NAV_NumberGenerator As NumberGenerator
 
     Public Overrides Sub AfterConstruction()
         MyBase.AfterConstruction()
@@ -169,6 +170,18 @@ Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot
             SetPropertyValue("NAV_exchangeKey", _NAV_exchangeKey, value)
         End Set
     End Property
+    ''' <summary>
+    ''' NAV RequestID numbergeneratora
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_NumberGenerator As NumberGenerator
+        Get
+            Return _NAV_NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue(NameOf(NAV_NumberGenerator), _NAV_NumberGenerator, value)
+        End Set
+    End Property
     ReadOnly Property DefaultCustomerBankAccounts As CustomerBankAccounts
         Get
             Dim _CustomerBankAccounts As CustomerBankAccounts = Nothing