Nemtom commit szarság

This commit is contained in:
2018-05-08 15:54:14 +02:00
parent 766436dc59
commit 2698dd20aa
170 changed files with 327 additions and 294 deletions
Binary file not shown.
+12 -2
View File
@@ -1,7 +1,17 @@
{ {
"ExpandedNodes": [ "ExpandedNodes": [
"" "",
"\\SISBusiness.Module",
"\\SISBusiness.Module\\BusinessObjects",
"\\SISBusiness.Module\\BusinessObjects\\Business",
"\\SISBusiness.Module\\BusinessObjects\\Business\\BusinessTransactions",
"\\SISBusiness.Module\\BusinessObjects\\Business\\BusinessTransactions\\Invoice",
"\\SISBusiness.Module\\BusinessObjects\\Financial",
"\\SISBusiness.Module\\BusinessObjects\\Financial\\FinancialObjects",
"\\SISBusiness.Module\\BusinessObjects\\Financial\\FinancialObjects\\FinancialTransactions",
"\\SISBusiness.Module\\BusinessObjects\\Financial\\FinancialObjects\\FinancialTransactions\\Reports",
"\\SISBusiness.Module\\BusinessObjects\\Financial\\FinancialObjects\\FinancialTransactions\\Reports\\VAT"
], ],
"SelectedNode": "\\SISBusiness.Win", "SelectedNode": "\\SISBusiness.Module\\BusinessObjects\\Financial\\FinancialObjects\\FinancialTransactions\\Reports\\VAT\\VATReportVC.vb",
"PreviewInSolutionExplorer": false "PreviewInSolutionExplorer": false
} }
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
@@ -1 +1 @@
f53295e70045624c85dea06febdc40b7ebc810dd 5c094180ea1bb4ff132bf6b3198070800de5cf17
@@ -1 +1 @@
4288aec33375cd5123b7cccd4cbca6ce75d00911 cc410708b3f1e383b30f2ba5834af17359a9e723
@@ -1 +1 @@
56e9020f15b83ace682634e22b9d7c00797daf07 743be4bc237437fa5abab9c4a0bcdd7f6b095d4e
@@ -1 +1 @@
95a26e48f2437f21996afa4f61e6a1966a0a9a93 49e54437514d52c66d0cbd986f5953f444287cdd
@@ -1 +1 @@
6d3ebd2ac35b954054f2df0e460152e10f5779ea 598e56abdcf6d6983680a4e0cac963ecc72544ce
@@ -1 +1 @@
98066d7b5cfe40d8b6546b7f2d49c836a11ba897 65ad65e605c440bb965eb8e8bfa886d65ebe24fc
@@ -1 +1 @@
a70743cb496111d1923b63ba6c59c55f9f952c5e bc9adeeedf3ed7cff7efb36594c4e05580afb64a
@@ -1 +1 @@
585c48c6f64fc3930e021ea3ed09e89d90efabcb 535a9ee50e36d4861f4c88d0e8c54d8e986ee373
@@ -1 +1 @@
fcd0ed3715827380fc74089de8732323c334609b edce244492c41f91a0eb1c32892191441f4d4705
@@ -1 +1 @@
2a2bdd918ebef40ecbb3637eb81c8f83daccad50 bfac0fbb209956c38cb397f7e6b2b12fa2012c8f
@@ -1 +1 @@
34bf3da1eeebde3bedbd2cef52554c20f0ee2094 5060e5d9d7a84cdb688c2058c167f91783f8a267
@@ -1 +1 @@
63f4fe0dc8e09d35d0259565e60647ef7d12560a 734ee84c48bc80cdf5695bc21b86993718d76db2
@@ -1 +1 @@
c83ca63f875d6bc371b866bed3cdac076dc9e919 ca77f5bd12cda4866c46563a6c674f3243b3c58f
@@ -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)> _ '<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; " _ '<EditorStateRuleAttribute("Disable, som properties when is corrigendum", "CustomersFrom; InvoiceType; Customers; BankInformation; DateCreated; " _
' & "PaymentOption; CurrencyName", EditorState.Disabled, "IsNull(InvoiceHeader)=False", ViewType.DetailView)> _ ' & "PaymentOption; CurrencyName", EditorState.Disabled, "IsNull(InvoiceHeader)=False", ViewType.DetailView)> _
<NavigationItem("BusinessTransactions")> _ <NavigationItem("BusinessTransactions")>
<Appearance("Disable UserCreated InvoiceHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _ <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("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("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 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("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.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("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;" _ <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)> _ & "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)> _ <Appearance("Hide CurrencyRate", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="CurrencyRate", Visibility:=Editors.ViewItemVisibility.Hide)>
<DefaultProperty("DisplayName")> _ <DefaultProperty("DisplayName")>
<RuleCriteria("RuleCriteria InvoiceHeader-Controlling", "aToTable_Invoice_Contexts", _ <RuleCriteria("RuleCriteria InvoiceHeader-Controlling", "aToTable_Invoice_Contexts",
"((row_Controlling.IsParent=False) or (InvoiceType.Rule5DMatrix.RequireControlling=False and isnull(row_Controlling)=True)) or IsCorrigendum=True", _ "((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)> _ "Gyüjtő kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)>
<RuleCriteria("RuleCriteria InvoiceHeader-DateExecution", "Save", _ <RuleCriteria("RuleCriteria InvoiceHeader-DateExecution", "Save",
"IsVATClosed=False", _ "IsVATClosed=False",
"ÁFA időszak zárva, nem lehet rögzíteni !", SkipNullOrEmptyValues:=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)> _ <Appearance("InvoiceHeader - Hide aCreateInvoiceCreditNote", AppearanceItemType.Action, "IsEditable=True OR IsStorno=True OR DocumentNumber=''", TargetItems:="aCreateInvoiceCreditNote", Visibility:=Editors.ViewItemVisibility.Hide)>
Public Class InvoiceHeader Public Class InvoiceHeader
Inherits BaseObject Inherits BaseObject
Private _InvoiceType As InvoiceType Private _InvoiceType As InvoiceType
@@ -205,29 +205,29 @@ Public Class InvoiceHeader
End Sub End Sub
' --- XPCollections ' --- XPCollections
<VisibleInListView(False)> _ <VisibleInListView(False)>
<Association("InvoiceHeader", GetType(InvoiceRows))> _ <Association("InvoiceHeader", GetType(InvoiceRows))>
Public ReadOnly Property InvoiceRows() As XPCollection(Of InvoiceRows) Public ReadOnly Property InvoiceRows() As XPCollection(Of InvoiceRows)
Get Get
Return GetCollection(Of InvoiceRows)("InvoiceRows") Return GetCollection(Of InvoiceRows)("InvoiceRows")
End Get End Get
End Property End Property
<VisibleInListView(False)> _ <VisibleInListView(False)>
<Association("InvoiceHeader-InvoiceVATRows", GetType(InvoiceVATRows))> _ <Association("InvoiceHeader-InvoiceVATRows", GetType(InvoiceVATRows))>
Public ReadOnly Property InvoiceVATRows() As XPCollection(Of InvoiceVATRows) Public ReadOnly Property InvoiceVATRows() As XPCollection(Of InvoiceVATRows)
Get Get
Return GetCollection(Of InvoiceVATRows)("InvoiceVATRows") Return GetCollection(Of InvoiceVATRows)("InvoiceVATRows")
End Get End Get
End Property End Property
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _ <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold) ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold)
Get Get
Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me)) Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me))
End Get End Get
End Property End Property
<DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and InvoiceTypeBase in (2,3)")> _ <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and InvoiceTypeBase in (2,3)")>
<RuleRequiredField("InvoiceHeader-InvoiceType", DefaultContexts.Save)> _ <RuleRequiredField("InvoiceHeader-InvoiceType", DefaultContexts.Save)>
Property InvoiceType() As InvoiceType Property InvoiceType() As InvoiceType
Get Get
Return _InvoiceType Return _InvoiceType
@@ -244,7 +244,7 @@ Public Class InvoiceHeader
SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property DocumentNumber() As String Property DocumentNumber() As String
Get Get
Return _DocumentNumber Return _DocumentNumber
@@ -253,7 +253,7 @@ Public Class InvoiceHeader
SetPropertyValue("DocumentNumber", _DocumentNumber, value) SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property DocumentNumberProforma As String Property DocumentNumberProforma As String
Get Get
Return _DocumentNumberProforma Return _DocumentNumberProforma
@@ -262,7 +262,7 @@ Public Class InvoiceHeader
SetPropertyValue("DocumentNumberProforma", _DocumentNumberProforma, value) SetPropertyValue("DocumentNumberProforma", _DocumentNumberProforma, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property ConnectInfo() As String Property ConnectInfo() As String
Get Get
Return _ConnectInfo Return _ConnectInfo
@@ -271,7 +271,7 @@ Public Class InvoiceHeader
SetPropertyValue("ConnectInfo", _ConnectInfo, value) SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader.CustomersFrom", "aInvoiceFromContractsRows_Context")> _ <RuleRequiredField("InvoiceHeader.CustomersFrom", "aInvoiceFromContractsRows_Context")>
Property CustomersFrom() As CustomersFrom Property CustomersFrom() As CustomersFrom
Get Get
Return _CustomersFrom Return _CustomersFrom
@@ -280,7 +280,7 @@ Public Class InvoiceHeader
SetPropertyValue("CustomersFrom", _CustomersFrom, value) SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader.Customers", "aInvoiceFromContractsRows_Context")> _ <RuleRequiredField("InvoiceHeader.Customers", "aInvoiceFromContractsRows_Context")>
Property Customers() As Customers Property Customers() As Customers
Get Get
Return _Customers Return _Customers
@@ -310,8 +310,8 @@ Public Class InvoiceHeader
SetPropertyValue("DateCreated", _DateCreated, value) SetPropertyValue("DateCreated", _DateCreated, value)
End Set End Set
End Property End Property
<ImmediatePostData()> _ <ImmediatePostData()>
<RuleRequiredField("InvoiceHeader.DateExecution", "aInvoiceFromContractsRows_Context")> _ <RuleRequiredField("InvoiceHeader.DateExecution", "aInvoiceFromContractsRows_Context")>
Property DateExecution() As Date Property DateExecution() As Date
Get Get
Return _DateExecution Return _DateExecution
@@ -339,7 +339,7 @@ Public Class InvoiceHeader
SetPropertyValue("VATAvowalType", _VATAvowalType, value) SetPropertyValue("VATAvowalType", _VATAvowalType, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _ <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
Property DateExecutionYear As String Property DateExecutionYear As String
Get Get
Return _DateExecutionYear Return _DateExecutionYear
@@ -348,7 +348,7 @@ Public Class InvoiceHeader
SetPropertyValue("DateExecutionYear", _DateExecutionYear, value) SetPropertyValue("DateExecutionYear", _DateExecutionYear, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _ <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
Property DateExecutionMonth As String Property DateExecutionMonth As String
Get Get
Return _DateExecutionMonth Return _DateExecutionMonth
@@ -357,7 +357,7 @@ Public Class InvoiceHeader
SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value) SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _ <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
Property DateExecutionQuarter As String Property DateExecutionQuarter As String
Get Get
Return _DateExecutionQuarter Return _DateExecutionQuarter
@@ -366,7 +366,7 @@ Public Class InvoiceHeader
SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value) SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _ <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
Property DateExecutionWeek As String Property DateExecutionWeek As String
Get Get
Return _DateExecutionWeek Return _DateExecutionWeek
@@ -391,7 +391,7 @@ Public Class InvoiceHeader
SetPropertyValue("DatePaymentMode", _DatePaymentMode, value) SetPropertyValue("DatePaymentMode", _DatePaymentMode, value)
End Set End Set
End Property End Property
<Size(-1)> _ <Size(-1)>
Property Description As String Property Description As String
Get Get
Return _Description Return _Description
@@ -400,7 +400,7 @@ Public Class InvoiceHeader
SetPropertyValue("Description", _Description, value) SetPropertyValue("Description", _Description, value)
End Set End Set
End Property End Property
<Size(-1)> _ <Size(-1)>
Property DescriptionHeader As String Property DescriptionHeader As String
Get Get
Return _DescriptionHeader Return _DescriptionHeader
@@ -409,9 +409,9 @@ Public Class InvoiceHeader
SetPropertyValue("DescriptionHeader", _DescriptionHeader, value) SetPropertyValue("DescriptionHeader", _DescriptionHeader, value)
End Set End Set
End Property End Property
<ImmediatePostData()> _ <ImmediatePostData()>
<RuleRequiredField("InvoiceHeader-PaymentOption", "aGenerateInvoicefromContractsRows_Context")> _ <RuleRequiredField("InvoiceHeader-PaymentOption", "aGenerateInvoicefromContractsRows_Context")>
<RuleRequiredField("InvoiceHeader-PaymentOption2", DefaultContexts.Save)> _ <RuleRequiredField("InvoiceHeader-PaymentOption2", DefaultContexts.Save)>
Property PaymentOption() As PaymentOption Property PaymentOption() As PaymentOption
Get Get
Return _PaymentOption Return _PaymentOption
@@ -452,7 +452,7 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader.CurrencyName required", DefaultContexts.Save)> <RuleRequiredField("InvoiceHeader.CurrencyName required", DefaultContexts.Save)>
<ImmediatePostData(True)> _ <ImmediatePostData(True)>
Property CurrencyName() As CurrencyName Property CurrencyName() As CurrencyName
Get Get
Return _CurrencyName Return _CurrencyName
@@ -461,8 +461,8 @@ Public Class InvoiceHeader
SetPropertyValue("CurrencyName", _CurrencyName, value) SetPropertyValue("CurrencyName", _CurrencyName, value)
End Set End Set
End Property End Property
<RuleRange("InvoiceHeader-CurrencyRate-aToTable", "aToTable_Invoice_Contexts", 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'")> _ <RuleRange("InvoiceHeader-CurrencyRate", DefaultContexts.Save, 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName <> 'HUF'")>
Property CurrencyRate() As Double Property CurrencyRate() As Double
Get Get
Return _CurrencyRate Return _CurrencyRate
@@ -472,7 +472,7 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property IsEditable() As Boolean Property IsEditable() As Boolean
Get Get
Return _IsEditable Return _IsEditable
@@ -481,7 +481,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsEditable", _IsEditable, value) SetPropertyValue("IsEditable", _IsEditable, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property IsStorno() As Boolean Property IsStorno() As Boolean
Get Get
Return _IsStorno Return _IsStorno
@@ -490,7 +490,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsStorno", _IsStorno, value) SetPropertyValue("IsStorno", _IsStorno, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property IsProforma As Boolean Property IsProforma As Boolean
Get Get
Return _IsProforma Return _IsProforma
@@ -499,7 +499,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsProforma", _IsProforma, value) SetPropertyValue("IsProforma", _IsProforma, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
Property IsCorrigendum As Boolean Property IsCorrigendum As Boolean
Get Get
Return _IsCorrigendum Return _IsCorrigendum
@@ -508,7 +508,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsCorrigendum", _IsCorrigendum, value) SetPropertyValue("IsCorrigendum", _IsCorrigendum, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
Property IsCreditNote As Boolean Property IsCreditNote As Boolean
Get Get
Return _IsCreditNote Return _IsCreditNote
@@ -517,8 +517,8 @@ Public Class InvoiceHeader
SetPropertyValue("IsCreditNote", _IsCreditNote, value) SetPropertyValue("IsCreditNote", _IsCreditNote, value)
End Set End Set
End Property End Property
<DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")> _ <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.CustomersFrom'")>
<RuleRequiredField("InvoiceHeader-BankInformation", DefaultContexts.Save, TargetCriteria:="PaymentOption.PayMode = 1 and not (InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment'))")> _ <RuleRequiredField("InvoiceHeader-BankInformation", DefaultContexts.Save, TargetCriteria:="PaymentOption.PayMode = 1 and not (InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment'))")>
Property BankInformation As BankInformation Property BankInformation As BankInformation
Get Get
Return _BankInformation Return _BankInformation
@@ -527,7 +527,7 @@ Public Class InvoiceHeader
SetPropertyValue("CustomerBankAccounts", _BankInformation, value) SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property InvoiceHeader As InvoiceHeader Property InvoiceHeader As InvoiceHeader
Get Get
Return _InvoiceHeader Return _InvoiceHeader
@@ -544,7 +544,7 @@ Public Class InvoiceHeader
SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value) SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False), VisibleInLookupListView(False)> _ <VisibleInDetailView(False), VisibleInLookupListView(False)>
Property IsAssetsHandling As Boolean Property IsAssetsHandling As Boolean
Get Get
Return _IsAssetsHandling Return _IsAssetsHandling
@@ -553,7 +553,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value) SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value)
End Set End Set
End Property End Property
<Size(-1), VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _ <Size(-1), VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)>
Property AssetsHandling_Note As String Property AssetsHandling_Note As String
Get Get
Return _AssetsHandling_Note Return _AssetsHandling_Note
@@ -570,7 +570,7 @@ Public Class InvoiceHeader
SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value) SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
Property AssetsHandling_GLMixed As GLMixed Property AssetsHandling_GLMixed As GLMixed
Get Get
Return _AssetsHandling_GLMixed Return _AssetsHandling_GLMixed
@@ -579,7 +579,7 @@ Public Class InvoiceHeader
SetPropertyValue("AssetsHandling_GLMixed", _AssetsHandling_GLMixed, value) SetPropertyValue("AssetsHandling_GLMixed", _AssetsHandling_GLMixed, value)
End Set End Set
End Property End Property
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
Property IsLateCharge As Boolean Property IsLateCharge As Boolean
Get Get
Return _IsLateCharge Return _IsLateCharge
@@ -588,7 +588,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsLateCharge", _IsLateCharge, value) SetPropertyValue("IsLateCharge", _IsLateCharge, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property UserCreated As User Property UserCreated As User
Get Get
Return _UserCreated Return _UserCreated
@@ -616,7 +616,7 @@ Public Class InvoiceHeader
End Property End Property
'-- a számla kiállításakor el kell menteni bizonyos adatokat '-- a számla kiállításakor el kell menteni bizonyos adatokat
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Name As String Property Saved_Customers_Name As String
Get Get
Return _Saved_Customers_Name Return _Saved_Customers_Name
@@ -625,7 +625,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Name", _Saved_Customers_Name, value) SetPropertyValue("Saved_Customers_Name", _Saved_Customers_Name, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Address_Country As String Property Saved_Customers_Address_Country As String
Get Get
Return _Saved_Customers_Address_Country Return _Saved_Customers_Address_Country
@@ -634,7 +634,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Address_Country", _Saved_Customers_Address_Country, value) SetPropertyValue("Saved_Customers_Address_Country", _Saved_Customers_Address_Country, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Address_ZipPostal As String Property Saved_Customers_Address_ZipPostal As String
Get Get
Return _Saved_Customers_Address_ZipPostal Return _Saved_Customers_Address_ZipPostal
@@ -643,7 +643,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Address_ZipPostal", _Saved_Customers_Address_ZipPostal, value) SetPropertyValue("Saved_Customers_Address_ZipPostal", _Saved_Customers_Address_ZipPostal, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Address_Street As String Property Saved_Customers_Address_Street As String
Get Get
Return _Saved_Customers_Address_Street Return _Saved_Customers_Address_Street
@@ -652,7 +652,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Address_Street", _Saved_Customers_Address_Street, value) SetPropertyValue("Saved_Customers_Address_Street", _Saved_Customers_Address_Street, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Address_City As String Property Saved_Customers_Address_City As String
Get Get
Return _Saved_Customers_Address_City Return _Saved_Customers_Address_City
@@ -661,7 +661,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Address_City", _Saved_Customers_Address_City, value) SetPropertyValue("Saved_Customers_Address_City", _Saved_Customers_Address_City, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_Address_StateProvince As String Property Saved_Customers_Address_StateProvince As String
Get Get
Return _Saved_Customers_Address_StateProvince Return _Saved_Customers_Address_StateProvince
@@ -670,7 +670,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_Address_StateProvince", _Saved_Customers_Address_StateProvince, value) SetPropertyValue("Saved_Customers_Address_StateProvince", _Saved_Customers_Address_StateProvince, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_VATNumber As String Property Saved_Customers_VATNumber As String
Get Get
Return _Saved_Customers_VATNumber Return _Saved_Customers_VATNumber
@@ -679,7 +679,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_VATNumber", _Saved_Customers_VATNumber, value) SetPropertyValue("Saved_Customers_VATNumber", _Saved_Customers_VATNumber, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_Customers_VATNumberEU As String Property Saved_Customers_VATNumberEU As String
Get Get
Return _Saved_Customers_VATNumberEU Return _Saved_Customers_VATNumberEU
@@ -688,7 +688,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_Customers_VATNumberEU ", _Saved_Customers_VATNumberEU, value) SetPropertyValue("Saved_Customers_VATNumberEU ", _Saved_Customers_VATNumberEU, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Name As String Property Saved_CustomersFrom_Name As String
Get Get
Return _Saved_CustomersFrom_Name Return _Saved_CustomersFrom_Name
@@ -697,7 +697,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Name", _Saved_CustomersFrom_Name, value) SetPropertyValue("Saved_CustomersFrom_Name", _Saved_CustomersFrom_Name, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Address_Country As String Property Saved_CustomersFrom_Address_Country As String
Get Get
Return _Saved_CustomersFrom_Address_Country Return _Saved_CustomersFrom_Address_Country
@@ -706,7 +706,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Address_Country", _Saved_CustomersFrom_Address_Country, value) SetPropertyValue("Saved_CustomersFrom_Address_Country", _Saved_CustomersFrom_Address_Country, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Address_ZipPostal As String Property Saved_CustomersFrom_Address_ZipPostal As String
Get Get
Return _Saved_CustomersFrom_Address_ZipPostal Return _Saved_CustomersFrom_Address_ZipPostal
@@ -715,7 +715,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Address_ZipPostal", _Saved_CustomersFrom_Address_ZipPostal, value) SetPropertyValue("Saved_CustomersFrom_Address_ZipPostal", _Saved_CustomersFrom_Address_ZipPostal, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Address_Street As String Property Saved_CustomersFrom_Address_Street As String
Get Get
Return _Saved_CustomersFrom_Address_Street Return _Saved_CustomersFrom_Address_Street
@@ -724,7 +724,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Address_Street", _Saved_CustomersFrom_Address_Street, value) SetPropertyValue("Saved_CustomersFrom_Address_Street", _Saved_CustomersFrom_Address_Street, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Address_City As String Property Saved_CustomersFrom_Address_City As String
Get Get
Return _Saved_CustomersFrom_Address_City Return _Saved_CustomersFrom_Address_City
@@ -733,7 +733,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Address_City", _Saved_CustomersFrom_Address_City, value) SetPropertyValue("Saved_CustomersFrom_Address_City", _Saved_CustomersFrom_Address_City, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Address_StateProvince As String Property Saved_CustomersFrom_Address_StateProvince As String
Get Get
Return _Saved_CustomersFrom_Address_StateProvince Return _Saved_CustomersFrom_Address_StateProvince
@@ -742,7 +742,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Address_StateProvince", _Saved_CustomersFrom_Address_StateProvince, value) SetPropertyValue("Saved_CustomersFrom_Address_StateProvince", _Saved_CustomersFrom_Address_StateProvince, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_VATNumber As String Property Saved_CustomersFrom_VATNumber As String
Get Get
Return _Saved_CustomersFrom_VATNumber Return _Saved_CustomersFrom_VATNumber
@@ -751,7 +751,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_VATNumber", _Saved_CustomersFrom_VATNumber, value) SetPropertyValue("Saved_CustomersFrom_VATNumber", _Saved_CustomersFrom_VATNumber, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_VATNumberEU As String Property Saved_CustomersFrom_VATNumberEU As String
Get Get
Return _Saved_CustomersFrom_VATNumberEU Return _Saved_CustomersFrom_VATNumberEU
@@ -760,7 +760,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_VATNumberEU", _Saved_CustomersFrom_VATNumberEU, value) SetPropertyValue("Saved_CustomersFrom_VATNumberEU", _Saved_CustomersFrom_VATNumberEU, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Bank_ShortName As String Property Saved_CustomersFrom_Bank_ShortName As String
Get Get
Return _Saved_CustomersFrom_Bank_ShortName Return _Saved_CustomersFrom_Bank_ShortName
@@ -769,7 +769,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Bank_ShortName", _Saved_CustomersFrom_Bank_ShortName, value) SetPropertyValue("Saved_CustomersFrom_Bank_ShortName", _Saved_CustomersFrom_Bank_ShortName, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Bank_IBAN As String Property Saved_CustomersFrom_Bank_IBAN As String
Get Get
Return _Saved_CustomersFrom_Bank_IBAN Return _Saved_CustomersFrom_Bank_IBAN
@@ -778,7 +778,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Bank_IBAN", _Saved_CustomersFrom_Bank_IBAN, value) SetPropertyValue("Saved_CustomersFrom_Bank_IBAN", _Saved_CustomersFrom_Bank_IBAN, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Bank_SWIFT As String Property Saved_CustomersFrom_Bank_SWIFT As String
Get Get
Return _Saved_CustomersFrom_Bank_SWIFT Return _Saved_CustomersFrom_Bank_SWIFT
@@ -787,7 +787,7 @@ Public Class InvoiceHeader
SetPropertyValue("Saved_CustomersFrom_Bank_SWIFT", _Saved_CustomersFrom_Bank_SWIFT, value) SetPropertyValue("Saved_CustomersFrom_Bank_SWIFT", _Saved_CustomersFrom_Bank_SWIFT, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property Saved_CustomersFrom_Bank_AccountNumber As String Property Saved_CustomersFrom_Bank_AccountNumber As String
Get Get
Return _Saved_CustomersFrom_Bank_AccountNumber Return _Saved_CustomersFrom_Bank_AccountNumber
@@ -799,18 +799,18 @@ Public Class InvoiceHeader
ReadOnly Property Saved_Customers_FullAddress As String ReadOnly Property Saved_Customers_FullAddress As String
Get 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 Saved_Customers_Address_Street & vbCrLf & Saved_Customers_Address_Country
End Get End Get
End Property End Property
ReadOnly Property Saved_CustomersFrom_FullAddress As String ReadOnly Property Saved_CustomersFrom_FullAddress As String
Get 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 Saved_CustomersFrom_Address_Street & vbCrLf & Saved_CustomersFrom_Address_Country
End Get End Get
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property TotalBruttoHUF As Double Property TotalBruttoHUF As Double
Get Get
Return _TotalBruttoHUF Return _TotalBruttoHUF
@@ -836,7 +836,7 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property TotalBruttoDEV As Double Property TotalBruttoDEV As Double
Get Get
Return _TotalBruttoDEV Return _TotalBruttoDEV
@@ -871,8 +871,8 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
<Size(255)> _ <Size(255)>
<NonCloneable()> _ <NonCloneable()>
Property HUNumberToText As String Property HUNumberToText As String
Get Get
Return _HUNumberToText Return _HUNumberToText
@@ -881,7 +881,7 @@ Public Class InvoiceHeader
SetPropertyValue("HUNumberToText", _HUNumberToText, value) SetPropertyValue("HUNumberToText", _HUNumberToText, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property IsImported As Boolean Property IsImported As Boolean
Get Get
Return _IsImported Return _IsImported
@@ -890,7 +890,7 @@ Public Class InvoiceHeader
SetPropertyValue("IsImported", _IsImported, value) SetPropertyValue("IsImported", _IsImported, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property GLAccounts As GLAccounts Property GLAccounts As GLAccounts
Get Get
Return _GLAccounts Return _GLAccounts
@@ -899,8 +899,8 @@ Public Class InvoiceHeader
SetPropertyValue("GLAccounts", _GLAccounts, value) SetPropertyValue("GLAccounts", _GLAccounts, value)
End Set End Set
End Property End Property
<Size(255)> _ <Size(255)>
<NonCloneable()> _ <NonCloneable()>
Property BookEntryErrorString As String Property BookEntryErrorString As String
Get Get
Return _BookEntryErrorString Return _BookEntryErrorString
@@ -909,7 +909,7 @@ Public Class InvoiceHeader
SetPropertyValue("BookEntryErrorString", _BookEntryErrorString, value) SetPropertyValue("BookEntryErrorString", _BookEntryErrorString, value)
End Set End Set
End Property End Property
<NonCloneable()> _ <NonCloneable()>
Property ReadyforBookEntry As Boolean Property ReadyforBookEntry As Boolean
Get Get
Return _ReadyforBookEntry Return _ReadyforBookEntry
@@ -953,7 +953,7 @@ Public Class InvoiceHeader
End If End If
End Get End Get
End Property End Property
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
ReadOnly Property DisplayName() As String ReadOnly Property DisplayName() As String
Get Get
If Me.CurrencyName IsNot Nothing Then If Me.CurrencyName IsNot Nothing Then
@@ -963,7 +963,7 @@ Public Class InvoiceHeader
End If End If
End Get End Get
End Property End Property
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _ <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
ReadOnly Property Contact_string() As String ReadOnly Property Contact_string() As String
Get Get
Dim _Contact As String = "" Dim _Contact As String = ""
@@ -973,7 +973,7 @@ Public Class InvoiceHeader
Return _Contact Return _Contact
End Get End Get
End Property End Property
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _ <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
ReadOnly Property CustomersRefNumber_string() As String ReadOnly Property CustomersRefNumber_string() As String
Get Get
Dim _CustomersRefNumber As String = "" Dim _CustomersRefNumber As String = ""
@@ -1052,8 +1052,8 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
'-- Nonpersistent property-k a számla sor rögzítéséhez '-- Nonpersistent property-k a számla sor rögzítéséhez
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_CustomsTariffs As CustomsTariffs Property row_CustomsTariffs As CustomsTariffs
Get Get
Return _row_CustomsTariffs Return _row_CustomsTariffs
@@ -1062,9 +1062,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_CustomsTariffs", _row_CustomsTariffs, value) SetPropertyValue("row_CustomsTariffs", _row_CustomsTariffs, value)
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader-row_ShortName", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_ShortName", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_ShortName() As String 'Megnevezés Property row_ShortName() As String 'Megnevezés
Get Get
Return _row_ShortName Return _row_ShortName
@@ -1073,9 +1073,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_ShortName", _row_ShortName, value) SetPropertyValue("row_ShortName", _row_ShortName, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<Size(4000)> _ <Size(4000)>
Property row_Description() As String 'Leírás Property row_Description() As String 'Leírás
Get Get
Return _row_Description Return _row_Description
@@ -1084,9 +1084,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_Description", _row_Description, value) SetPropertyValue("row_Description", _row_Description, value)
End Set End Set
End Property End Property
<RuleRange("InvoiceHeader-row_ListPriceHUF", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName='HUF'")> _ <RuleRange("InvoiceHeader-row_ListPriceHUF", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName='HUF'")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_ListPriceHUF() As Double ' Egységár HUF (nettó !) Property row_ListPriceHUF() As Double ' Egységár HUF (nettó !)
Get Get
Return _row_ListPriceHUF Return _row_ListPriceHUF
@@ -1095,9 +1095,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value)
End Set End Set
End Property End Property
<RuleRange("InvoiceHeader-row_ListPriceDEV", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName!='HUF' and IsCorrigendum=False")> _ <RuleRange("InvoiceHeader-row_ListPriceDEV", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName!='HUF' and IsCorrigendum=False")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_ListPriceDEV() As Double ' Egységár DEV (Nettó !) Property row_ListPriceDEV() As Double ' Egységár DEV (Nettó !)
Get Get
Return _row_ListPriceDEV Return _row_ListPriceDEV
@@ -1109,9 +1109,9 @@ Public Class InvoiceHeader
End If End If
End Set End Set
End Property End Property
<RuleRange("InvoiceHeader-row_DiscountPercent", "aToTable_Invoice_Contexts", 0, 99, targetcriteria:="IsCorrigendum=False")> _ <RuleRange("InvoiceHeader-row_DiscountPercent", "aToTable_Invoice_Contexts", 0, 99, TargetCriteria:="IsCorrigendum=False")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_DiscountPercent() As Double 'Kedvezmény mértéke %-ban Property row_DiscountPercent() As Double 'Kedvezmény mértéke %-ban
Get Get
Return _row_DiscountPercent Return _row_DiscountPercent
@@ -1122,9 +1122,9 @@ Public Class InvoiceHeader
End Property End Property
'<RuleValueComparison("RuleValue-PayMode-RegistryHeader", "RegistryNextStep_Context", ValueComparisonType.NotEquals, ePayMode.NotSet, TargetCriteria:="RegistryType.RegistryMainType=0")> _ '<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)> _ '<RuleRange("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", 0.00001, Double.MaxValue)> _
<RuleValueComparison("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", ValueComparisonType.NotEquals, 0)> _ <RuleValueComparison("InvoiceHeader-row_QTT", "aToTable_Invoice_Contexts", ValueComparisonType.NotEquals, 0)>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_QTT() As Double 'Mennyiség Property row_QTT() As Double 'Mennyiség
Get Get
Return _row_QTT Return _row_QTT
@@ -1133,9 +1133,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_QTT", _row_QTT, value) SetPropertyValue("row_QTT", _row_QTT, value)
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader-row_Units", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_Units", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_Units() As Units ' Mennyiségi egység Property row_Units() As Units ' Mennyiségi egység
Get Get
Return _row_Units Return _row_Units
@@ -1144,9 +1144,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_Units", _row_Units, value) SetPropertyValue("row_Units", _row_Units, value)
End Set End Set
End Property End Property
<RuleRequiredField("InvoiceHeader-row_VAT", "aToTable_Invoice_Contexts", targetcriteria:="IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_VAT", "aToTable_Invoice_Contexts", TargetCriteria:="IsCorrigendum=False")>
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_VAT() As VAT 'ÁFA Property row_VAT() As VAT 'ÁFA
Get Get
Return _row_VAT Return _row_VAT
@@ -1155,8 +1155,8 @@ Public Class InvoiceHeader
SetPropertyValue("row_VAT", _row_VAT, value) SetPropertyValue("row_VAT", _row_VAT, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
Property row_QualityOption() As QualityOption 'Minőségi kondíció Property row_QualityOption() As QualityOption 'Minőségi kondíció
Get Get
Return _row_QualityOption Return _row_QualityOption
@@ -1165,9 +1165,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_QualityOption", _row_QualityOption, value) SetPropertyValue("row_QualityOption", _row_QualityOption, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
<VisibleInLookupListView(False)> _ <VisibleInLookupListView(False)>
Property row_InvoicePeriod As String Property row_InvoicePeriod As String
Get Get
Return _row_InvoicePeriod Return _row_InvoicePeriod
@@ -1176,10 +1176,10 @@ Public Class InvoiceHeader
SetPropertyValue("row_InvoicePeriod", _row_InvoicePeriod, value) SetPropertyValue("row_InvoicePeriod", _row_InvoicePeriod, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<VisibleInLookupListView(False)> _ <VisibleInLookupListView(False)>
Property row_Products As Products Property row_Products As Products
Get Get
Return _row_Products Return _row_Products
@@ -1188,10 +1188,10 @@ Public Class InvoiceHeader
SetPropertyValue("row_Products", _row_Products, value) SetPropertyValue("row_Products", _row_Products, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInDetailView(False)> _ <VisibleInDetailView(False)>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<VisibleInLookupListView(False)> _ <VisibleInLookupListView(False)>
Property row_Services As Services Property row_Services As Services
Get Get
Return _row_Services Return _row_Services
@@ -1201,10 +1201,10 @@ Public Class InvoiceHeader
End Set End Set
End Property End Property
'Rule5DMatrix ... 'Rule5DMatrix ...
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_Controlling", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireControlling=True and IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_Controlling", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireControlling=True and IsCorrigendum=False")>
<DataSourceCriteria("IsAdvancePayment=False")> _ <DataSourceCriteria("IsAdvancePayment=False")>
Property row_Controlling() As Controlling '-- Controlling szám Property row_Controlling() As Controlling '-- Controlling szám
Get Get
Return _row_Controlling Return _row_Controlling
@@ -1213,9 +1213,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_Controlling", _row_Controlling, value) SetPropertyValue("row_Controlling", _row_Controlling, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")>
Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító
Get Get
Return _row_UniqueObjects Return _row_UniqueObjects
@@ -1224,9 +1224,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value) SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_CostHolder", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostHolder=True and IsCorrigendum=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ő Property row_CostHolder() As CostHolder ' -- Költség viselő
Get Get
Return _row_CostHolder Return _row_CostHolder
@@ -1235,9 +1235,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_CostHolder", _row_CostHolder, value) SetPropertyValue("row_CostHolder", _row_CostHolder, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_CostPlace", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True and IsCorrigendum=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ő Property row_CostPlace() As CostPlace ' -- Költség viselő
Get Get
Return _row_CostPlace Return _row_CostPlace
@@ -1246,9 +1246,9 @@ Public Class InvoiceHeader
SetPropertyValue("row_CostPlace", _row_CostPlace, value) SetPropertyValue("row_CostPlace", _row_CostPlace, value)
End Set End Set
End Property End Property
<NonPersistent()> _ <NonPersistent()>
<VisibleInListView(False)> _ <VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_JobNumberObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireJobNumberObjects=True and IsCorrigendum=False")> _ <RuleRequiredField("InvoiceHeader-row_JobNumberObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireJobNumberObjects=True and IsCorrigendum=False")>
Property row_JobNumberObjects() As JobNumberObjects ' -- Project Property row_JobNumberObjects() As JobNumberObjects ' -- Project
Get Get
Return _row_JobNumberObjects Return _row_JobNumberObjects
@@ -1267,13 +1267,13 @@ Public Class InvoiceHeader
_ocur.Delete(_InvoiceHeader.InvoiceVATRows) _ocur.Delete(_InvoiceHeader.InvoiceVATRows)
Dim invoices = New XPQuery(Of InvoiceRows)(_ocur.Session) Dim invoices = New XPQuery(Of InvoiceRows)(_ocur.Session)
Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid _ Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid
Group invoice By invoice.VAT Into g = Group _ Group invoice By invoice.VAT Into g = Group
Select New With {Key .VAT = VAT, _ Select New With {Key .VAT = VAT,
Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ 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 .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT),
Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _ Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV),
Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)}
For Each item In query For Each item In query
_InvoiceVATRows = _ocur.CreateObject(Of InvoiceVATRows)() _InvoiceVATRows = _ocur.CreateObject(Of InvoiceVATRows)()
_InvoiceVATRows.InvoiceHeader = _InvoiceHeader _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) Sub BookEntry(ByVal _p_BookEntryMode As Long, ByVal _p_InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False)
'//ÁFA miatt !!! '//ÁFA miatt !!!
Dim _SQL As String = "" 'Dim _SQL As String = ""
Select Case GLOBAL_SQLType 'Select Case GLOBAL_SQLType
Case eSQLType.MySQL ' Case eSQLType.MySQL
_SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON" ' _SQL = "UPDATE InvoiceVATRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid "
_SQL += " t1.InvoiceHeader = t2.Oid" ' _SQL += " SET t1.DateVAT=t2.DateExecution"
_SQL += " SET t1.DateVAT = t2.DateExecution" ' _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
_SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL" ' Case eSQLType.MSSQL
Case eSQLType.MSSQL ' _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
_SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution" ' _SQL += " from InvoiceVATRows t1 JOIN InvoiceHeader t2 ON"
_SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON" ' _SQL += " t1.InvoiceHeader = t2.Oid"
_SQL += " t1.InvoiceHeader = t2.Oid" ' _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
_SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL" ' Case eSQLType.PostgreSQL
Case eSQLType.PostgreSQL ' _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
_SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution""" ' _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
_SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON" ' _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
_SQL += " t1.""InvoiceHeader""=t2.""Oid""" ' _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
_SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL" 'End Select
End Select
_uow.ExecuteNonQuery(_SQL) '_uow.ExecuteNonQuery(_SQL)
_uow.CommitChanges() '_uow.CommitChanges()
@@ -1488,19 +1487,19 @@ Public Class InvoiceHeader
_UniqueObjects = _InvoiceRows.UniqueObjects _UniqueObjects = _InvoiceRows.UniqueObjects
End If End If
_GLRows.InvoiceRows = _InvoiceRows _GLRows.InvoiceRows = _InvoiceRows
_GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _InvoiceRows.SumPriceDEV, _ _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _InvoiceRows.SumPriceDEV,
_InvoiceRows.SumPriceHUF, Nothing, _InvoiceHeader.Customers, _InvoiceHeader.DateExecution.Date, _InvoiceRows.VAT, _ _InvoiceRows.SumPriceHUF, Nothing, _InvoiceHeader.Customers, _InvoiceHeader.DateExecution.Date, _InvoiceRows.VAT,
_InvoiceRows.Description, _UniqueObjects, _Controlling, _JobNumberObjects, _ _InvoiceRows.Description, _UniqueObjects, _Controlling, _JobNumberObjects,
_CostPlace, _CostHolder, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _ _CostPlace, _CostHolder, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eNettoRow,
_GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables) _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables)
_NettoNotRounded += _InvoiceRows.SumPriceHUF _NettoNotRounded += _InvoiceRows.SumPriceHUF
Next Next
For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows
_GLRows = New GLRows(_uow) _GLRows = New GLRows(_uow)
_GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _InvoiceVATRows.VAT.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, eVATMode.eOut), _InvoiceVATRows.AmountVATDEV, _ _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, _ _InvoiceVATRows.AmountVATHUF, Nothing, _InvoiceHeader.Customers, _InvoiceVATRows.DateVAT.Date, _InvoiceVATRows.VAT,
"", Nothing, Nothing, Nothing, _ "", Nothing, Nothing, Nothing,
Nothing, Nothing, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eVATRow, _ Nothing, Nothing, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eVATRow,
_GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables) _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables)
_NettoRounded += _InvoiceVATRows.AmountBruttoHUF - _InvoiceVATRows.AmountVATHUF _NettoRounded += _InvoiceVATRows.AmountBruttoHUF - _InvoiceVATRows.AmountVATHUF
@@ -1657,7 +1656,7 @@ Public Class InvoiceHeader
'-- Számla információk (XPCollection) '-- Számla információk (XPCollection)
'// Kapcsolódó bejövő megrendelések '// 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) ReadOnly Property OrderInHeader_Collection As XPCollection(Of OrderInHeader)
Get Get
Dim _OrderInHeader_Collection As XPCollection(Of OrderInHeader) Dim _OrderInHeader_Collection As XPCollection(Of OrderInHeader)
@@ -1692,7 +1691,7 @@ Public Class InvoiceHeader
End Get End Get
End Property End Property
'// Kapcsolódó munkalapok '// 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) ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
Get Get
Dim _WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header) Dim _WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
@@ -1720,7 +1719,7 @@ Public Class InvoiceHeader
End Get End Get
End Property End Property
'// Kapcsolódó szerződések '// 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) ReadOnly Property Contracts_Collection As XPCollection(Of Contracts)
Get Get
Dim _Contracts_Collection As XPCollection(Of Contracts) Dim _Contracts_Collection As XPCollection(Of Contracts)
@@ -1748,14 +1747,14 @@ Public Class InvoiceHeader
End Get End Get
End Property End Property
<VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)> _ <VisibleInListView(False), VisibleInLookupListView(False), VisibleInDetailView(False)>
ReadOnly Property IsVATClosed As Boolean ReadOnly Property IsVATClosed As Boolean
Get Get
Dim _Closed As Boolean = False Dim _Closed As Boolean = False
If Me.CustomersFrom IsNot Nothing Then If Me.CustomersFrom IsNot Nothing Then
If Me.IsEditable = False Then If Me.IsEditable = False Then
Dim _VATReport As VATReport = Session.FindObject(Of VATReport) _ 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)) Me.DateExecution.Date, Me.DateExecution.Date, Me.CustomersFrom))
If _VATReport IsNot Nothing Then If _VATReport IsNot Nothing Then
_Closed = _VATReport.Closed _Closed = _VATReport.Closed
@@ -156,26 +156,25 @@ Public Class VATReportVC
_uow.Delete(_VATReportGroupCustomers2M_Collection) _uow.Delete(_VATReportGroupCustomers2M_Collection)
Select Case GLOBAL_SQLType 'Select Case GLOBAL_SQLType
Case eSQLType.MySQL ' Case eSQLType.MySQL
_SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON" ' _SQL = "UPDATE InvoiceVATRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid "
_SQL += " t1.InvoiceHeader = t2.Oid" ' _SQL += " SET t1.DateVAT=t2.DateExecution"
_SQL += " SET t1.DateVAT = t2.DateExecution" ' _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL"
_SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL" ' Case eSQLType.MSSQL
Case eSQLType.MSSQL ' _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution"
_SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution" ' _SQL += " from InvoiceVATRows t1 JOIN InvoiceHeader t2 ON"
_SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON" ' _SQL += " t1.InvoiceHeader = t2.Oid"
_SQL += " t1.InvoiceHeader = t2.Oid" ' _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL"
_SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL" ' Case eSQLType.PostgreSQL
Case eSQLType.PostgreSQL ' _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution"""
_SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution""" ' _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON"
_SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON" ' _SQL += " t1.""InvoiceHeader""=t2.""Oid"""
_SQL += " t1.""InvoiceHeader""=t2.""Oid""" ' _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL"
_SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL" 'End Select
End Select
_uow.ExecuteNonQuery(_SQL) '_uow.ExecuteNonQuery(_SQL)
_uow.CommitChanges() '_uow.CommitChanges()
'ÁFA P.Ü. szemlélet ellenõrzése ----------------------------------------- 'ÁFA P.Ü. szemlélet ellenõrzése -----------------------------------------
Me.CheckVATAvowalType(_ocur, _VATReport.DateFrom, _VATReport.DateTo) Me.CheckVATAvowalType(_ocur, _VATReport.DateFrom, _VATReport.DateTo)
@@ -0,0 +1 @@
DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
Binary file not shown.
Binary file not shown.
@@ -1 +1 @@
80ff8871ff5eb6e89369078f4109f338a8cde906 9f864e7bb72e496deb289933318a09f2bcc38a5c
@@ -1 +1 @@
80ff8871ff5eb6e89369078f4109f338a8cde906 4fa2326e2fefaef81c04a14bb4873400406a9991
@@ -1 +1 @@
80ff8871ff5eb6e89369078f4109f338a8cde906 4fa2326e2fefaef81c04a14bb4873400406a9991
@@ -1 +1 @@
80ff8871ff5eb6e89369078f4109f338a8cde906 4fa2326e2fefaef81c04a14bb4873400406a9991
@@ -1 +1 @@
80ff8871ff5eb6e89369078f4109f338a8cde906 9f864e7bb72e496deb289933318a09f2bcc38a5c
@@ -441,7 +441,6 @@ C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Win.
C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Win.v17.2.resources.dll C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Win.v17.2.resources.dll
C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Win.v17.2.resources.dll C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Win.v17.2.resources.dll
C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Win.v17.2.resources.dll C:\SIS-Business-GIT\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Win.v17.2.resources.dll
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.vbprojResolveAssemblyReference.cache
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReviewHeader_VC.resources C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReviewHeader_VC.resources
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReview_VC.resources C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReview_VC.resources
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetVC.resources C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetVC.resources
@@ -591,3 +590,4 @@ C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.vbproj.Cor
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\hu\SISBusiness.Module.resources.dll C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\hu\SISBusiness.Module.resources.dll
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.vbproj.CopyComplete C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.vbproj.CopyComplete
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.dll C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.dll
C:\SIS-Business-GIT\SISBusiness.Module\obj\Release\SISBusiness.Module.vbprojResolveAssemblyReference.cache
@@ -1 +1 @@
e8ec443c624a07aa1308868599316ca5565a1de3 60bf07a750a04751f3fa8d985acbe30472132e77
@@ -1 +1 @@
bcf361a07959a7dbcbaf83529f16cc633cc1a861 90e580eda478fa1e157d4fa78e37895495e10325
@@ -1 +1 @@
3ed84b595c4db63c2284491550bc6e42d23c59ea 2304dec9d6b7b979490e07157b6727ed930b58e6
@@ -921,3 +921,15 @@ C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Company.vb
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Company.vbproj.CopyComplete C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Company.vbproj.CopyComplete
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.exe C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.exe
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.pdb C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.pdb
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Shell.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Shell.Interop.8.0.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.OLE.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.TextManager.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Designer.Interfaces.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.TextManager.Interop.8.0.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Shell.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Shell.Interop.8.0.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.OLE.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.TextManager.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.Designer.Interfaces.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.TextManager.Interop.8.0.xml
@@ -1 +1 @@
c7dc89f64c26c5c54159c5970bc44ca5132b72ad 53c80d0af80a20e7c4f7213b690ef964b7b5b3f5
@@ -1 +1 @@
0d4d40c82caeb9153e67bc1682a16260b038e0de c475dc5bb8c509e3dac4685107d1d3b5e9dea14d
@@ -1 +1 @@
6256442466e98b67294f97eccdc0d1ca2b0b8b36 b66a17c061fa5c1044a30345366c30ff09d53b4c
@@ -910,3 +910,15 @@ C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.exe.lice
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbproj.CoreCompileInputs.cache C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbproj.CoreCompileInputs.cache
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbproj.CopyComplete C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbproj.CopyComplete
C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.exe C:\SIS-Business-GIT\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.exe
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Shell.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Shell.Interop.8.0.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.OLE.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.TextManager.Interop.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Designer.Interfaces.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.TextManager.Interop.8.0.dll
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Shell.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Shell.Interop.8.0.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.OLE.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.TextManager.Interop.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.Designer.Interfaces.xml
C:\SIS-Business-GIT\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.TextManager.Interop.8.0.xml
@@ -1 +1 @@
15fdea1c65862e1d2a5d9e355d3bcd0310810f86 06a3300638193bd360738df8d01fb59b6b7d1a71
@@ -1 +1 @@
046392a40e6bc4d0db998e4343f48af4dc0f78dc e72047c7910d9de9a8f55a3bcf5967305815f1db
@@ -1 +1 @@
86ec421d1cd0a97000bfa16940137a13ed8f7832 0a97ce923327cfc127887cac114cd13d24c2a964
@@ -1 +1 @@
1d86177b4f4921dbef5c94381ebd6f31cdea325e 30a8a57e4dd3b14964fa9d0f2c3e2eb9f6c26666
@@ -1 +1 @@
bdc1c724f9330cdb2fc71fac73f1d0c4900afbfc e901ee7811df4fb598b7ea295209c672699ef456
@@ -1 +1 @@
9260eec7487ece10a1d067ada3bb4d2a9ce5879a b7ddc0df248dccb7a0d9795fb519adfb7f08b8af
@@ -1 +1 @@
791f4805b38b7fd065b58d8dd85522f0c21c98a6 3a303bbc627931f9484c8a95b863a03b86f218bd
@@ -1 +1 @@
d4d612cd1e4978fbd58e64518f05a5e0e17d257d dffd15ccacd0d91a272e40bd6c725ef96b6e936e
@@ -1 +1 @@
0d54de3245707800ba0249c7ca344fe300ef9ccc b167f9b4fcc3ffa16996dedd466b5321fc5cb742
@@ -1 +1 @@
c3f5fdfa027d3a4582eb439d31c4007ab60d5e93 0988b3459e806358887b7177e39353dd665112d6
@@ -1 +1 @@
70ec39d536b89fe736028e6b23186e497d2c2253 004c01c7ef89a224e9701f04e20a4cab0901032f
@@ -1 +1 @@
08a3b498d4a6bd25d41b2cff1a5cb386f7593cb5 95d30ce48902d9196580d94fcd00b6d8e5c599ae
@@ -1 +1 @@
19f6a9a15186a692e132a042b6a54e4134ae6822 02c0e40b1fae1b898e371510cd82cf94f15eb431
@@ -1 +1 @@
73aafb4549972cd5a5c596e684b7822f5fc72fcc 25785f647255b2a8fce20da192cb5461e9ab91f4
@@ -1 +1 @@
45f6835803b272b1c85e242fd175e17c7fb90486 29d215f282c740b22da6262278b5eb32d0a7f42d

Some files were not shown because too many files have changed in this diff Show More