NAV OnlineInvoices

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb

@@ -151,6 +151,11 @@ Public Class InvoiceHeader
     Private _InvoiceFactoringParameter As InvoiceFactoringParameter ' Faktorálási paraméter !!!
     Private _InvoiceFactoringBank As InvoiceFactoringBank 'Bankba küldési csomag !
 
+    'NAV onlineszámla feladása
+    Private _NAV_transactionId As String
+    Private _NAV_InvoiceStatus As String
+    Private _NAV_queryDate As DateTime
+
     '-- Nonpersistent objektumok a számla sor rögzítéséhez
     Private _row_CustomsTariffs As CustomsTariffs 'ITJ, SZJ, Vámtarifaszám stb.
     Private _row_ShortName As String 'Megnevezés
@@ -1095,6 +1100,45 @@ Public Class InvoiceHeader
             SetPropertyValue("InvoiceFactoringBank", _InvoiceFactoringBank, value)
         End Set
     End Property
+
+    'NAV onlineszámla miatt
+    ''' <summary>
+    ''' NAV tranzakció azonosító Onlineszámla miatt
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_transactionId As String
+        Get
+            Return _NAV_transactionId
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_transactionId", _NAV_transactionId, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV számla állapota Online számla miatt
+    ''' </summary>
+    ''' <returns></returns>
+    <Size(255)>
+    Property NAV_InvoiceStatus As String
+        Get
+            Return _NAV_InvoiceStatus
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAV_InvoiceStatus", _NAV_InvoiceStatus, value)
+        End Set
+    End Property
+    ''' <summary>
+    ''' NAV lekérdezés dátuma Onlineszámla miatt
+    ''' </summary>
+    ''' <returns></returns>
+    Property NAV_queryDate As Date
+        Get
+            Return _NAV_queryDate
+        End Get
+        Set(value As Date)
+            SetPropertyValue("NAV_queryDate", _NAV_queryDate, value)
+        End Set
+    End Property
     '-- Nonpersistent property-k a számla sor rögzítéséhez
     <NonPersistent()>
     <VisibleInListView(False)>

Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant.vb

@@ -84,6 +84,9 @@ Public Class ProductsGant
         Get
             Dim _CC As String = " ProductsGant.Oid = '" & Me.Oid.ToString() & "'"
 
+            'IDEIGLENES
+            '_CC += " AND Products.Oid ='81ed2085-6bf7-4c77-9906-d7165d0cbb8b'"
+
             If String.IsNullOrEmpty(Criteria) = False Then
                 _CC += " AND " & CriteriaOperator.Parse(Criteria).ToString()
             End If

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