NAV OnlineInvoices

Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb

@@ -93,6 +93,10 @@ Public Class Customers
     Private _GreenCardNumber As String 'Mezőgazdasági zöldkönyv száma
     Private _BiologicalControlContractNumber As String 'Növényvédelmi szerződés száma
 
+    Private _NAV_queryTaxpayer As String
+    Private _NAV_valid As Boolean
+    Private _NAV_queryDate As DateTime
+
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
@@ -577,7 +581,42 @@ Public Class Customers
             SetPropertyValue("BiologicalControlContractNumber", _BiologicalControlContractNumber, value)
         End Set
     End Property
-
+    ''' <summary>
+    ''' NAV adószám ellenőrzés
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_queryTaxpayer As String
+        Get
+            Return _NAV_queryTaxpayer
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_queryTaxpayer", _NAV_queryTaxpayer, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV adószám rendben van ?
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_valid As Boolean
+        Get
+            Return _NAV_valid
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("NAV_valid", _NAV_valid, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV adószámlekérdezés utolsó dátuma
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_queryDate As DateTime
+        Get
+            Return _NAV_queryDate
+        End Get
+        Set(value As DateTime)
+            SetPropertyValue("NAV_queryDate", _NAV_queryDate, value)
+        End Set
+    End Property
     <VisibleInDetailView(False)>
     <VisibleInListView(False)>
     <VisibleInLookupListView(False)>

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

@@ -31,6 +31,11 @@ Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot
     Private _RabbitMQServerPassword As String
     Private _RabbitMQBodyEncryptCode As String
 
+    Private _NAV_login As String
+    Private _NAV_xmlSignkey As String
+    Private _NAV_password As String
+    Private _NAV_exchangeKey As String
+
     Public Overrides Sub AfterConstruction()
         MyBase.AfterConstruction()
         IsDefault = False
@@ -116,7 +121,54 @@ Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot
             SetPropertyValue("RabbitMQBodyEncryptCode", _RabbitMQBodyEncryptCode, value)
         End Set
     End Property
-
+    ''' <summary>
+    ''' NAV felhasználó az Online számlához
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_login As String
+        Get
+            Return _NAV_login
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_login", _NAV_login, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV aláírókulcs az Online számlához
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_xmlSignkey As String
+        Get
+            Return _NAV_xmlSignkey
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_xmlSignkey", _NAV_xmlSignkey, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV jelszó az Online számlához
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_password As String
+        Get
+            Return _NAV_password
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_password", _NAV_password, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV cserekulcs az Online számlához
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_exchangeKey As String
+        Get
+            Return _NAV_exchangeKey
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_exchangeKey", _NAV_exchangeKey, value)
+        End Set
+    End Property
     ReadOnly Property DefaultCustomerBankAccounts As CustomerBankAccounts
         Get
             Dim _CustomerBankAccounts As CustomerBankAccounts = Nothing