Nemtom commit szarság

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

@@ -23,25 +23,25 @@ End Enum
 '<Appearance("Hide tab page Item2 if header is incomplete-InvoiceHeader", AppearanceItemType.LayoutItem, "IsNull(InvoiceType)=True", TargetItems:="Item2", visibility:=Editors.ViewItemVisibility.Hide)> _
 '<EditorStateRuleAttribute("Disable, som properties when is corrigendum", "CustomersFrom; InvoiceType; Customers; BankInformation; DateCreated; " _
 '    & "PaymentOption; CurrencyName", EditorState.Disabled, "IsNull(InvoiceHeader)=False", ViewType.DetailView)> _
-<NavigationItem("BusinessTransactions")> _
-<Appearance("Disable UserCreated InvoiceHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
-<Appearance("Disable, all properties when IsEditable = False", TargetItems:="*", Criteria:="IsEditable=False", Enabled:=False, Context:="DetailView")> _
-<Appearance("Hide BankInfo when PaymentOption.PayMode = 0", AppearanceItemType.ViewItem, "PaymentOption.PayMode = 0", TargetItems:="BankInformation", visibility:=Editors.ViewItemVisibility.Hide)> _
-<Appearance("Disable InvoiceType when is not empty", TargetItems:="InvoiceType", Criteria:="IsNull(InvoiceType) = False", Enabled:=False, Context:="DetailView")> _
-<Appearance("Disable Customers when is not empty in invoice", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")> _
-<Appearance("InvoiceHeader.TotalNettoDEV Hide", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="row_ListPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
-<Appearance("InvoiceHeader.TotalNettoHUF Hide", AppearanceItemType.ViewItem, "CurrencyName.ShortName != 'HUF'", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<NavigationItem("BusinessTransactions")>
+<Appearance("Disable UserCreated InvoiceHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)>
+<Appearance("Disable, all properties when IsEditable = False", TargetItems:="*", Criteria:="IsEditable=False", Enabled:=False, Context:="DetailView")>
+<Appearance("Hide BankInfo when PaymentOption.PayMode = 0", AppearanceItemType.ViewItem, "PaymentOption.PayMode = 0", TargetItems:="BankInformation", Visibility:=Editors.ViewItemVisibility.Hide)>
+<Appearance("Disable InvoiceType when is not empty", TargetItems:="InvoiceType", Criteria:="IsNull(InvoiceType) = False", Enabled:=False, Context:="DetailView")>
+<Appearance("Disable Customers when is not empty in invoice", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")>
+<Appearance("InvoiceHeader.TotalNettoDEV Hide", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="row_ListPriceDEV", Visibility:=Editors.ViewItemVisibility.Hide)>
+<Appearance("InvoiceHeader.TotalNettoHUF Hide", AppearanceItemType.ViewItem, "CurrencyName.ShortName != 'HUF'", TargetItems:="row_ListPriceHUF", Visibility:=Editors.ViewItemVisibility.Hide)>
 <Appearance("Hide row_ info when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_ShortName; row_Description; row_ListPriceHUF; row_ListPriceDEV; row_DiscountPercent;" _
-    & "row_QTT; row_Units; row_VAT; row_QualityOption; row_Controlling; row_UniqueObjects; row_CostHolder; row_CostPlace; row_JobNumberObjects; row_CustomsTariffs; row_InvoicePeriod", visibility:=Editors.ViewItemVisibility.Hide)> _
-<Appearance("Hide CurrencyRate", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
-<DefaultProperty("DisplayName")> _
-<RuleCriteria("RuleCriteria InvoiceHeader-Controlling", "aToTable_Invoice_Contexts", _
-    "((row_Controlling.IsParent=False) or (InvoiceType.Rule5DMatrix.RequireControlling=False and isnull(row_Controlling)=True)) or IsCorrigendum=True", _
-    "Gyüjtő kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)> _
-<RuleCriteria("RuleCriteria InvoiceHeader-DateExecution", "Save", _
-    "IsVATClosed=False", _
-    "ÁFA időszak zárva, nem lehet rögzíteni !", SkipNullOrEmptyValues:=False)> _
-<Appearance("InvoiceHeader - Hide aCreateInvoiceCreditNote", AppearanceItemType.Action, "IsEditable=True OR IsStorno=True OR DocumentNumber=''", TargetItems:="aCreateInvoiceCreditNote", visibility:=Editors.ViewItemVisibility.Hide)> _
+    & "row_QTT; row_Units; row_VAT; row_QualityOption; row_Controlling; row_UniqueObjects; row_CostHolder; row_CostPlace; row_JobNumberObjects; row_CustomsTariffs; row_InvoicePeriod", Visibility:=Editors.ViewItemVisibility.Hide)>
+<Appearance("Hide CurrencyRate", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="CurrencyRate", Visibility:=Editors.ViewItemVisibility.Hide)>
+<DefaultProperty("DisplayName")>
+<RuleCriteria("RuleCriteria InvoiceHeader-Controlling", "aToTable_Invoice_Contexts",
+    "((row_Controlling.IsParent=False) or (InvoiceType.Rule5DMatrix.RequireControlling=False and isnull(row_Controlling)=True)) or IsCorrigendum=True",
+    "Gyüjtő kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)>
+<RuleCriteria("RuleCriteria InvoiceHeader-DateExecution", "Save",
+    "IsVATClosed=False",
+    "ÁFA időszak zárva, nem lehet rögzíteni !", SkipNullOrEmptyValues:=False)>
+<Appearance("InvoiceHeader - Hide aCreateInvoiceCreditNote", AppearanceItemType.Action, "IsEditable=True OR IsStorno=True OR DocumentNumber=''", TargetItems:="aCreateInvoiceCreditNote", Visibility:=Editors.ViewItemVisibility.Hide)>
 Public Class InvoiceHeader
     Inherits BaseObject
     Private _InvoiceType As InvoiceType
@@ -205,29 +205,29 @@ Public Class InvoiceHeader
     End Sub
 
     ' --- XPCollections
-    <VisibleInListView(False)> _
-    <Association("InvoiceHeader", GetType(InvoiceRows))> _
+    <VisibleInListView(False)>
+    <Association("InvoiceHeader", GetType(InvoiceRows))>
     Public ReadOnly Property InvoiceRows() As XPCollection(Of InvoiceRows)
         Get
             Return GetCollection(Of InvoiceRows)("InvoiceRows")
         End Get
     End Property
-    <VisibleInListView(False)> _
-    <Association("InvoiceHeader-InvoiceVATRows", GetType(InvoiceVATRows))> _
+    <VisibleInListView(False)>
+    <Association("InvoiceHeader-InvoiceVATRows", GetType(InvoiceVATRows))>
     Public ReadOnly Property InvoiceVATRows() As XPCollection(Of InvoiceVATRows)
         Get
             Return GetCollection(Of InvoiceVATRows)("InvoiceVATRows")
         End Get
     End Property
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold)
         Get
             Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me))
         End Get
     End Property
 
-    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and InvoiceTypeBase in (2,3)")> _
-    <RuleRequiredField("InvoiceHeader-InvoiceType", DefaultContexts.Save)> _
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and InvoiceTypeBase in (2,3)")>
+    <RuleRequiredField("InvoiceHeader-InvoiceType", DefaultContexts.Save)>
     Property InvoiceType() As InvoiceType
         Get
             Return _InvoiceType
@@ -244,7 +244,7 @@ Public Class InvoiceHeader
             SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property DocumentNumber() As String
         Get
             Return _DocumentNumber
@@ -253,7 +253,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DocumentNumber", _DocumentNumber, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property DocumentNumberProforma As String
         Get
             Return _DocumentNumberProforma
@@ -262,7 +262,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DocumentNumberProforma", _DocumentNumberProforma, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property ConnectInfo() As String
         Get
             Return _ConnectInfo
@@ -271,7 +271,7 @@ Public Class InvoiceHeader
             SetPropertyValue("ConnectInfo", _ConnectInfo, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceHeader.CustomersFrom", "aInvoiceFromContractsRows_Context")> _
+    <RuleRequiredField("InvoiceHeader.CustomersFrom", "aInvoiceFromContractsRows_Context")>
     Property CustomersFrom() As CustomersFrom
         Get
             Return _CustomersFrom
@@ -280,7 +280,7 @@ Public Class InvoiceHeader
             SetPropertyValue("CustomersFrom", _CustomersFrom, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceHeader.Customers", "aInvoiceFromContractsRows_Context")> _
+    <RuleRequiredField("InvoiceHeader.Customers", "aInvoiceFromContractsRows_Context")>
     Property Customers() As Customers
         Get
             Return _Customers
@@ -310,8 +310,8 @@ Public Class InvoiceHeader
             SetPropertyValue("DateCreated", _DateCreated, value)
         End Set
     End Property
-    <ImmediatePostData()> _
-    <RuleRequiredField("InvoiceHeader.DateExecution", "aInvoiceFromContractsRows_Context")> _
+    <ImmediatePostData()>
+    <RuleRequiredField("InvoiceHeader.DateExecution", "aInvoiceFromContractsRows_Context")>
     Property DateExecution() As Date
         Get
             Return _DateExecution
@@ -339,7 +339,7 @@ Public Class InvoiceHeader
             SetPropertyValue("VATAvowalType", _VATAvowalType, value)
         End Set
     End Property
-    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
     Property DateExecutionYear As String
         Get
             Return _DateExecutionYear
@@ -348,7 +348,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DateExecutionYear", _DateExecutionYear, value)
         End Set
     End Property
-    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
     Property DateExecutionMonth As String
         Get
             Return _DateExecutionMonth
@@ -357,7 +357,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value)
         End Set
     End Property
-    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
     Property DateExecutionQuarter As String
         Get
             Return _DateExecutionQuarter
@@ -366,7 +366,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value)
         End Set
     End Property
-    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
     Property DateExecutionWeek As String
         Get
             Return _DateExecutionWeek
@@ -391,7 +391,7 @@ Public Class InvoiceHeader
             SetPropertyValue("DatePaymentMode", _DatePaymentMode, value)
         End Set
     End Property
-    <Size(-1)> _
+    <Size(-1)>
     Property Description As String
         Get
             Return _Description
@@ -400,7 +400,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Description", _Description, value)
         End Set
     End Property
-    <Size(-1)> _
+    <Size(-1)>
     Property DescriptionHeader As String
         Get
             Return _DescriptionHeader
@@ -409,9 +409,9 @@ Public Class InvoiceHeader
             SetPropertyValue("DescriptionHeader", _DescriptionHeader, value)
         End Set
     End Property
-    <ImmediatePostData()> _
-    <RuleRequiredField("InvoiceHeader-PaymentOption", "aGenerateInvoicefromContractsRows_Context")> _
-    <RuleRequiredField("InvoiceHeader-PaymentOption2", DefaultContexts.Save)> _
+    <ImmediatePostData()>
+    <RuleRequiredField("InvoiceHeader-PaymentOption", "aGenerateInvoicefromContractsRows_Context")>
+    <RuleRequiredField("InvoiceHeader-PaymentOption2", DefaultContexts.Save)>
     Property PaymentOption() As PaymentOption
         Get
             Return _PaymentOption
@@ -452,7 +452,7 @@ Public Class InvoiceHeader
         End Set
     End Property
     <RuleRequiredField("InvoiceHeader.CurrencyName required", DefaultContexts.Save)>
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
     Property CurrencyName() As CurrencyName
         Get
             Return _CurrencyName
@@ -461,8 +461,8 @@ Public Class InvoiceHeader
             SetPropertyValue("CurrencyName", _CurrencyName, value)
         End Set
     End Property
-    <RuleRange("InvoiceHeader-CurrencyRate-aToTable", "aToTable_Invoice_Contexts", 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
-   <RuleRange("InvoiceHeader-CurrencyRate", DefaultContexts.Save, 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName <> 'HUF'")> _
+    <RuleRange("InvoiceHeader-CurrencyRate-aToTable", "aToTable_Invoice_Contexts", 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName<>'HUF'")>
+    <RuleRange("InvoiceHeader-CurrencyRate", DefaultContexts.Save, 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName <> 'HUF'")>
     Property CurrencyRate() As Double
         Get
             Return _CurrencyRate
@@ -472,7 +472,7 @@ Public Class InvoiceHeader
 
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property IsEditable() As Boolean
         Get
             Return _IsEditable
@@ -481,7 +481,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsEditable", _IsEditable, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property IsStorno() As Boolean
         Get
             Return _IsStorno
@@ -490,7 +490,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsStorno", _IsStorno, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property IsProforma As Boolean
         Get
             Return _IsProforma
@@ -499,7 +499,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsProforma", _IsProforma, value)
         End Set
     End Property
-    <VisibleInDetailView(False)> _
+    <VisibleInDetailView(False)>
     Property IsCorrigendum As Boolean
         Get
             Return _IsCorrigendum
@@ -508,7 +508,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsCorrigendum", _IsCorrigendum, value)
         End Set
     End Property
-    <VisibleInDetailView(False)> _
+    <VisibleInDetailView(False)>
     Property IsCreditNote As Boolean
         Get
             Return _IsCreditNote
@@ -517,8 +517,8 @@ Public Class InvoiceHeader
             SetPropertyValue("IsCreditNote", _IsCreditNote, value)
         End Set
     End Property
-    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")> _
-    <RuleRequiredField("InvoiceHeader-BankInformation", DefaultContexts.Save, TargetCriteria:="PaymentOption.PayMode = 1 and not (InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment'))")> _
+    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")>
+    <RuleRequiredField("InvoiceHeader-BankInformation", DefaultContexts.Save, TargetCriteria:="PaymentOption.PayMode = 1 and not (InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment'))")>
     Property BankInformation As BankInformation
         Get
             Return _BankInformation
@@ -527,7 +527,7 @@ Public Class InvoiceHeader
             SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property InvoiceHeader As InvoiceHeader
         Get
             Return _InvoiceHeader
@@ -544,7 +544,7 @@ Public Class InvoiceHeader
             SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value)
         End Set
     End Property
-    <VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInDetailView(False), VisibleInLookupListView(False)>
     Property IsAssetsHandling As Boolean
         Get
             Return _IsAssetsHandling
@@ -553,7 +553,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value)
         End Set
     End Property
-    <Size(-1), VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <Size(-1), VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
     Property AssetsHandling_Note As String
         Get
             Return _AssetsHandling_Note
@@ -570,7 +570,7 @@ Public Class InvoiceHeader
             SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value)
         End Set
     End Property
-    <VisibleInDetailView(False)> _
+    <VisibleInDetailView(False)>
     Property AssetsHandling_GLMixed As GLMixed
         Get
             Return _AssetsHandling_GLMixed
@@ -579,7 +579,7 @@ Public Class InvoiceHeader
             SetPropertyValue("AssetsHandling_GLMixed", _AssetsHandling_GLMixed, value)
         End Set
     End Property
-    <VisibleInDetailView(False)> _
+    <VisibleInDetailView(False)>
     Property IsLateCharge As Boolean
         Get
             Return _IsLateCharge
@@ -588,7 +588,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsLateCharge", _IsLateCharge, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property UserCreated As User
         Get
             Return _UserCreated
@@ -616,7 +616,7 @@ Public Class InvoiceHeader
     End Property
 
     '-- a számla kiállításakor el kell menteni bizonyos adatokat
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Name As String
         Get
             Return _Saved_Customers_Name
@@ -625,7 +625,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Name", _Saved_Customers_Name, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Address_Country As String
         Get
             Return _Saved_Customers_Address_Country
@@ -634,7 +634,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Address_Country", _Saved_Customers_Address_Country, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Address_ZipPostal As String
         Get
             Return _Saved_Customers_Address_ZipPostal
@@ -643,7 +643,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Address_ZipPostal", _Saved_Customers_Address_ZipPostal, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Address_Street As String
         Get
             Return _Saved_Customers_Address_Street
@@ -652,7 +652,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Address_Street", _Saved_Customers_Address_Street, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Address_City As String
         Get
             Return _Saved_Customers_Address_City
@@ -661,7 +661,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Address_City", _Saved_Customers_Address_City, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_Address_StateProvince As String
         Get
             Return _Saved_Customers_Address_StateProvince
@@ -670,7 +670,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_Address_StateProvince", _Saved_Customers_Address_StateProvince, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_VATNumber As String
         Get
             Return _Saved_Customers_VATNumber
@@ -679,7 +679,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_VATNumber", _Saved_Customers_VATNumber, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_Customers_VATNumberEU As String
         Get
             Return _Saved_Customers_VATNumberEU
@@ -688,7 +688,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_Customers_VATNumberEU ", _Saved_Customers_VATNumberEU, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Name As String
         Get
             Return _Saved_CustomersFrom_Name
@@ -697,7 +697,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Name", _Saved_CustomersFrom_Name, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Address_Country As String
         Get
             Return _Saved_CustomersFrom_Address_Country
@@ -706,7 +706,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Address_Country", _Saved_CustomersFrom_Address_Country, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Address_ZipPostal As String
         Get
             Return _Saved_CustomersFrom_Address_ZipPostal
@@ -715,7 +715,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Address_ZipPostal", _Saved_CustomersFrom_Address_ZipPostal, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Address_Street As String
         Get
             Return _Saved_CustomersFrom_Address_Street
@@ -724,7 +724,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Address_Street", _Saved_CustomersFrom_Address_Street, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Address_City As String
         Get
             Return _Saved_CustomersFrom_Address_City
@@ -733,7 +733,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Address_City", _Saved_CustomersFrom_Address_City, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Address_StateProvince As String
         Get
             Return _Saved_CustomersFrom_Address_StateProvince
@@ -742,7 +742,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Address_StateProvince", _Saved_CustomersFrom_Address_StateProvince, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_VATNumber As String
         Get
             Return _Saved_CustomersFrom_VATNumber
@@ -751,7 +751,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_VATNumber", _Saved_CustomersFrom_VATNumber, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_VATNumberEU As String
         Get
             Return _Saved_CustomersFrom_VATNumberEU
@@ -760,7 +760,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_VATNumberEU", _Saved_CustomersFrom_VATNumberEU, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Bank_ShortName As String
         Get
             Return _Saved_CustomersFrom_Bank_ShortName
@@ -769,7 +769,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Bank_ShortName", _Saved_CustomersFrom_Bank_ShortName, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Bank_IBAN As String
         Get
             Return _Saved_CustomersFrom_Bank_IBAN
@@ -778,7 +778,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Bank_IBAN", _Saved_CustomersFrom_Bank_IBAN, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Bank_SWIFT As String
         Get
             Return _Saved_CustomersFrom_Bank_SWIFT
@@ -787,7 +787,7 @@ Public Class InvoiceHeader
             SetPropertyValue("Saved_CustomersFrom_Bank_SWIFT", _Saved_CustomersFrom_Bank_SWIFT, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property Saved_CustomersFrom_Bank_AccountNumber As String
         Get
             Return _Saved_CustomersFrom_Bank_AccountNumber
@@ -799,18 +799,18 @@ Public Class InvoiceHeader
 
     ReadOnly Property Saved_Customers_FullAddress As String
         Get
-            Return Saved_Customers_Address_ZipPostal & " " & Saved_Customers_Address_City & " " & vbCrLf & _
+            Return Saved_Customers_Address_ZipPostal & " " & Saved_Customers_Address_City & " " & vbCrLf &
             Saved_Customers_Address_Street & vbCrLf & Saved_Customers_Address_Country
         End Get
     End Property
     ReadOnly Property Saved_CustomersFrom_FullAddress As String
         Get
-            Return Saved_CustomersFrom_Address_ZipPostal & " " & Saved_CustomersFrom_Address_City & " " & vbCrLf & _
+            Return Saved_CustomersFrom_Address_ZipPostal & " " & Saved_CustomersFrom_Address_City & " " & vbCrLf &
             Saved_CustomersFrom_Address_Street & vbCrLf & Saved_CustomersFrom_Address_Country
         End Get
     End Property
 
-    <NonCloneable()> _
+    <NonCloneable()>
     Property TotalBruttoHUF As Double
         Get
             Return _TotalBruttoHUF
@@ -836,7 +836,7 @@ Public Class InvoiceHeader
         End Set
     End Property
 
-    <NonCloneable()> _
+    <NonCloneable()>
     Property TotalBruttoDEV As Double
         Get
             Return _TotalBruttoDEV
@@ -871,8 +871,8 @@ Public Class InvoiceHeader
         End Set
     End Property
 
-    <Size(255)> _
-    <NonCloneable()> _
+    <Size(255)>
+    <NonCloneable()>
     Property HUNumberToText As String
         Get
             Return _HUNumberToText
@@ -881,7 +881,7 @@ Public Class InvoiceHeader
             SetPropertyValue("HUNumberToText", _HUNumberToText, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property IsImported As Boolean
         Get
             Return _IsImported
@@ -890,7 +890,7 @@ Public Class InvoiceHeader
             SetPropertyValue("IsImported", _IsImported, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property GLAccounts As GLAccounts
         Get
             Return _GLAccounts
@@ -899,8 +899,8 @@ Public Class InvoiceHeader
             SetPropertyValue("GLAccounts", _GLAccounts, value)
         End Set
     End Property
-    <Size(255)> _
-    <NonCloneable()> _
+    <Size(255)>
+    <NonCloneable()>
     Property BookEntryErrorString As String
         Get
             Return _BookEntryErrorString
@@ -909,7 +909,7 @@ Public Class InvoiceHeader
             SetPropertyValue("BookEntryErrorString", _BookEntryErrorString, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
     Property ReadyforBookEntry As Boolean
         Get
             Return _ReadyforBookEntry
@@ -953,7 +953,7 @@ Public Class InvoiceHeader
             End If
         End Get
     End Property
-    <VisibleInDetailView(False)> _
+    <VisibleInDetailView(False)>
     ReadOnly Property DisplayName() As String
         Get
             If Me.CurrencyName IsNot Nothing Then
@@ -963,7 +963,7 @@ Public Class InvoiceHeader
             End If
         End Get
     End Property
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property Contact_string() As String
         Get
             Dim _Contact As String = ""
@@ -973,7 +973,7 @@ Public Class InvoiceHeader
             Return _Contact
         End Get
     End Property
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property CustomersRefNumber_string() As String
         Get
             Dim _CustomersRefNumber As String = ""
@@ -1052,8 +1052,8 @@ Public Class InvoiceHeader
         End Set
     End Property
     '-- Nonpersistent property-k a számla sor rögzítéséhez
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_CustomsTariffs As CustomsTariffs
         Get
             Return _row_CustomsTariffs
@@ -1062,9 +1062,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_CustomsTariffs", _row_CustomsTariffs, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceHeader-row_ShortName", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRequiredField("InvoiceHeader-row_ShortName", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_ShortName() As String 'Megnevezés
         Get
             Return _row_ShortName
@@ -1073,9 +1073,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_ShortName", _row_ShortName, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <Size(4000)> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <Size(4000)>
     Property row_Description() As String 'Leírás
         Get
             Return _row_Description
@@ -1084,9 +1084,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_Description", _row_Description, value)
         End Set
     End Property
-    <RuleRange("InvoiceHeader-row_ListPriceHUF", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName='HUF'")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRange("InvoiceHeader-row_ListPriceHUF", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName='HUF'")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_ListPriceHUF() As Double ' Egységár HUF (nettó !)
         Get
             Return _row_ListPriceHUF
@@ -1095,9 +1095,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value)
         End Set
     End Property
-    <RuleRange("InvoiceHeader-row_ListPriceDEV", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName!='HUF' and IsCorrigendum=False")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRange("InvoiceHeader-row_ListPriceDEV", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName!='HUF' and IsCorrigendum=False")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_ListPriceDEV() As Double ' Egységár DEV (Nettó !)
         Get
             Return _row_ListPriceDEV
@@ -1109,9 +1109,9 @@ Public Class InvoiceHeader
             End If
         End Set
     End Property
-    <RuleRange("InvoiceHeader-row_DiscountPercent", "aToTable_Invoice_Contexts", 0, 99, targetcriteria:="IsCorrigendum=False")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRange("InvoiceHeader-row_DiscountPercent", "aToTable_Invoice_Contexts", 0, 99, TargetCriteria:="IsCorrigendum=False")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_DiscountPercent() As Double 'Kedvezmény mértéke %-ban
         Get
             Return _row_DiscountPercent
@@ -1122,9 +1122,9 @@ Public Class InvoiceHeader
     End Property
     '<RuleValueComparison("RuleValue-PayMode-RegistryHeader", "RegistryNextStep_Context", ValueComparisonType.NotEquals, ePayMode.NotSet, TargetCriteria:="RegistryType.RegistryMainType=0")> _
     '<RuleRange("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue)> _
-    <RuleValueComparison("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", ValueComparisonType.NotEquals, 0)> _
-     <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleValueComparison("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", ValueComparisonType.NotEquals, 0)>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_QTT() As Double 'Mennyiség
         Get
             Return _row_QTT
@@ -1133,9 +1133,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_QTT", _row_QTT, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceHeader-row_Units", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRequiredField("InvoiceHeader-row_Units", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_Units() As Units ' Mennyiségi egység
         Get
             Return _row_Units
@@ -1144,9 +1144,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_Units", _row_Units, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceHeader-row_VAT", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <RuleRequiredField("InvoiceHeader-row_VAT", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_VAT() As VAT 'ÁFA
         Get
             Return _row_VAT
@@ -1155,8 +1155,8 @@ Public Class InvoiceHeader
             SetPropertyValue("row_VAT", _row_VAT, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
     Property row_QualityOption() As QualityOption 'Minőségi kondíció
         Get
             Return _row_QualityOption
@@ -1165,9 +1165,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_QualityOption", _row_QualityOption, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInDetailView(False)> _
-    <VisibleInLookupListView(False)> _
+    <NonPersistent()>
+    <VisibleInDetailView(False)>
+    <VisibleInLookupListView(False)>
     Property row_InvoicePeriod As String
         Get
             Return _row_InvoicePeriod
@@ -1176,10 +1176,10 @@ Public Class InvoiceHeader
             SetPropertyValue("row_InvoicePeriod", _row_InvoicePeriod, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInDetailView(False)> _
-    <VisibleInListView(False)> _
-    <VisibleInLookupListView(False)> _
+    <NonPersistent()>
+    <VisibleInDetailView(False)>
+    <VisibleInListView(False)>
+    <VisibleInLookupListView(False)>
     Property row_Products As Products
         Get
             Return _row_Products
@@ -1188,10 +1188,10 @@ Public Class InvoiceHeader
             SetPropertyValue("row_Products", _row_Products, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInDetailView(False)> _
-    <VisibleInListView(False)> _
-    <VisibleInLookupListView(False)> _
+    <NonPersistent()>
+    <VisibleInDetailView(False)>
+    <VisibleInListView(False)>
+    <VisibleInLookupListView(False)>
     Property row_Services As Services
         Get
             Return _row_Services
@@ -1201,10 +1201,10 @@ Public Class InvoiceHeader
         End Set
     End Property
     'Rule5DMatrix ...
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <RuleRequiredField("InvoiceHeader-row_Controlling", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireControlling=True and IsCorrigendum=False")> _
-    <DataSourceCriteria("IsAdvancePayment=False")> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <RuleRequiredField("InvoiceHeader-row_Controlling", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireControlling=True and IsCorrigendum=False")>
+    <DataSourceCriteria("IsAdvancePayment=False")>
     Property row_Controlling() As Controlling '-- Controlling szám
         Get
             Return _row_Controlling
@@ -1213,9 +1213,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_Controlling", _row_Controlling, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")>
     Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító
         Get
             Return _row_UniqueObjects
@@ -1224,9 +1224,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <RuleRequiredField("InvoiceHeader-row_CostHolder", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostHolder=True and IsCorrigendum=False")> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <RuleRequiredField("InvoiceHeader-row_CostHolder", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostHolder=True and IsCorrigendum=False")>
     Property row_CostHolder() As CostHolder ' -- Költség viselő
         Get
             Return _row_CostHolder
@@ -1235,9 +1235,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_CostHolder", _row_CostHolder, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <RuleRequiredField("InvoiceHeader-row_CostPlace", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True and IsCorrigendum=False")> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <RuleRequiredField("InvoiceHeader-row_CostPlace", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True and IsCorrigendum=False")>
     Property row_CostPlace() As CostPlace ' -- Költség viselő
         Get
             Return _row_CostPlace
@@ -1246,9 +1246,9 @@ Public Class InvoiceHeader
             SetPropertyValue("row_CostPlace", _row_CostPlace, value)
         End Set
     End Property
-    <NonPersistent()> _
-    <VisibleInListView(False)> _
-    <RuleRequiredField("InvoiceHeader-row_JobNumberObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireJobNumberObjects=True and IsCorrigendum=False")> _
+    <NonPersistent()>
+    <VisibleInListView(False)>
+    <RuleRequiredField("InvoiceHeader-row_JobNumberObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireJobNumberObjects=True and IsCorrigendum=False")>
     Property row_JobNumberObjects() As JobNumberObjects ' -- Project
         Get
             Return _row_JobNumberObjects
@@ -1267,13 +1267,13 @@ Public Class InvoiceHeader
 
         _ocur.Delete(_InvoiceHeader.InvoiceVATRows)
         Dim invoices = New XPQuery(Of InvoiceRows)(_ocur.Session)
-        Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid _
-            Group invoice By invoice.VAT Into g = Group _
-            Select New With {Key .VAT = VAT, _
-                             Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _
-                             Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _
-                             Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _
-                             Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)}
+        Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid
+                    Group invoice By invoice.VAT Into g = Group
+                    Select New With {Key .VAT = VAT,
+                                     Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT),
+                                     Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT),
+                                     Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV),
+                                     Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)}
         For Each item In query
             _InvoiceVATRows = _ocur.CreateObject(Of InvoiceVATRows)()
             _InvoiceVATRows.InvoiceHeader = _InvoiceHeader
@@ -1374,27 +1374,26 @@ Public Class InvoiceHeader
     Sub BookEntry(ByVal _p_BookEntryMode As Long, ByVal _p_InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False)
 
         '//ÁFA miatt !!!
-        Dim _SQL As String = ""
-        Select Case GLOBAL_SQLType
-            Case eSQLType.MySQL
-                _SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON"
-                _SQL += " t1.InvoiceHeader = t2.Oid"
-                _SQL += " SET t1.DateVAT = t2.DateExecution"
-                _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
-            Case eSQLType.MSSQL
-                _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
-                _SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON"
-                _SQL += " t1.InvoiceHeader = t2.Oid"
-                _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
-            Case eSQLType.PostgreSQL
-                _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
-                _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
-                _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
-                _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
-        End Select
+        'Dim _SQL As String = ""
+        'Select Case GLOBAL_SQLType
+        '    Case eSQLType.MySQL
+        '        _SQL = "UPDATE InvoiceVATRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid "
+        '        _SQL += " SET t1.DateVAT=t2.DateExecution"
+        '        _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
+        '    Case eSQLType.MSSQL
+        '        _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
+        '        _SQL += " from InvoiceVATRows t1 JOIN InvoiceHeader t2 ON"
+        '        _SQL += " t1.InvoiceHeader = t2.Oid"
+        '        _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
+        '    Case eSQLType.PostgreSQL
+        '        _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
+        '        _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
+        '        _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
+        '        _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
+        'End Select
 
-        _uow.ExecuteNonQuery(_SQL)
-        _uow.CommitChanges()
+        '_uow.ExecuteNonQuery(_SQL)
+        '_uow.CommitChanges()
 
 
 
@@ -1488,19 +1487,19 @@ Public Class InvoiceHeader
                     _UniqueObjects = _InvoiceRows.UniqueObjects
                 End If
                 _GLRows.InvoiceRows = _InvoiceRows
-                _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _InvoiceRows.SumPriceDEV, _
-                                   _InvoiceRows.SumPriceHUF, Nothing, _InvoiceHeader.Customers, _InvoiceHeader.DateExecution.Date, _InvoiceRows.VAT, _
-                                   _InvoiceRows.Description, _UniqueObjects, _Controlling, _JobNumberObjects, _
-                                    _CostPlace, _CostHolder, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _
+                _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _InvoiceRows.SumPriceDEV,
+                                   _InvoiceRows.SumPriceHUF, Nothing, _InvoiceHeader.Customers, _InvoiceHeader.DateExecution.Date, _InvoiceRows.VAT,
+                                   _InvoiceRows.Description, _UniqueObjects, _Controlling, _JobNumberObjects,
+                                    _CostPlace, _CostHolder, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eNettoRow,
                                     _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables)
                 _NettoNotRounded += _InvoiceRows.SumPriceHUF
             Next
             For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows
                 _GLRows = New GLRows(_uow)
-                _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _InvoiceVATRows.VAT.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, eVATMode.eOut), _InvoiceVATRows.AmountVATDEV, _
-                                   _InvoiceVATRows.AmountVATHUF, Nothing, _InvoiceHeader.Customers, _InvoiceVATRows.DateVAT.Date, _InvoiceVATRows.VAT, _
-                                   "", Nothing, Nothing, Nothing, _
-                                    Nothing, Nothing, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eVATRow, _
+                _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _InvoiceVATRows.VAT.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, eVATMode.eOut), _InvoiceVATRows.AmountVATDEV,
+                                   _InvoiceVATRows.AmountVATHUF, Nothing, _InvoiceHeader.Customers, _InvoiceVATRows.DateVAT.Date, _InvoiceVATRows.VAT,
+                                   "", Nothing, Nothing, Nothing,
+                                    Nothing, Nothing, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eVATRow,
                                     _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables)
 
                 _NettoRounded += _InvoiceVATRows.AmountBruttoHUF - _InvoiceVATRows.AmountVATHUF
@@ -1657,7 +1656,7 @@ Public Class InvoiceHeader
 
     '-- Számla információk (XPCollection)
     '// Kapcsolódó bejövő megrendelések
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property OrderInHeader_Collection As XPCollection(Of OrderInHeader)
         Get
             Dim _OrderInHeader_Collection As XPCollection(Of OrderInHeader)
@@ -1692,7 +1691,7 @@ Public Class InvoiceHeader
         End Get
     End Property
     '// Kapcsolódó munkalapok
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
         Get
             Dim _WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
@@ -1720,7 +1719,7 @@ Public Class InvoiceHeader
         End Get
     End Property
     '// Kapcsolódó szerződések
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     ReadOnly Property Contracts_Collection As XPCollection(Of Contracts)
         Get
             Dim _Contracts_Collection As XPCollection(Of Contracts)
@@ -1748,14 +1747,14 @@ Public Class InvoiceHeader
         End Get
     End Property
 
-    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _
+    <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)>
     ReadOnly Property IsVATClosed As Boolean
         Get
             Dim _Closed As Boolean = False
             If Me.CustomersFrom IsNot Nothing Then
                 If Me.IsEditable = False Then
                     Dim _VATReport As VATReport = Session.FindObject(Of VATReport) _
-                            (CriteriaOperator.Parse("GetDate(DateFrom)<=? and GetDate(DateTo)>=? and CustomersFrom=? and Closed=True", _
+                            (CriteriaOperator.Parse("GetDate(DateFrom)<=? and GetDate(DateTo)>=? and CustomersFrom=? and Closed=True",
                             Me.DateExecution.Date, Me.DateExecution.Date, Me.CustomersFrom))
                     If _VATReport IsNot Nothing Then
                         _Closed = _VATReport.Closed

SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb

@@ -156,26 +156,25 @@ Public Class VATReportVC
         _uow.Delete(_VATReportGroupCustomers2M_Collection)
 
 
-        Select Case GLOBAL_SQLType
-            Case eSQLType.MySQL
-                _SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON"
-                _SQL += " t1.InvoiceHeader = t2.Oid"
-                _SQL += " SET t1.DateVAT = t2.DateExecution"
-                _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
-            Case eSQLType.MSSQL
-                _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
-                _SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON"
-                _SQL += " t1.InvoiceHeader = t2.Oid"
-                _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
-            Case eSQLType.PostgreSQL
-                _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
-                _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
-                _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
-                _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
-        End Select
+        'Select Case GLOBAL_SQLType
+        '    Case eSQLType.MySQL
+        '        _SQL = "UPDATE InvoiceVATRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid "
+        '        _SQL += " SET t1.DateVAT=t2.DateExecution"
+        '        _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
+        '    Case eSQLType.MSSQL
+        '        _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
+        '        _SQL += " from InvoiceVATRows t1 JOIN InvoiceHeader t2 ON"
+        '        _SQL += " t1.InvoiceHeader = t2.Oid"
+        '        _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
+        '    Case eSQLType.PostgreSQL
+        '        _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
+        '        _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
+        '        _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
+        '        _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
+        'End Select
 
-        _uow.ExecuteNonQuery(_SQL)
-        _uow.CommitChanges()
+        '_uow.ExecuteNonQuery(_SQL)
+        '_uow.CommitChanges()
 
         'ÁFA P.Ü. szemlélet ellenõrzése -----------------------------------------
         Me.CheckVATAvowalType(_ocur, _VATReport.DateFrom, _VATReport.DateTo)