First create solution
This commit is contained in:
+38
@@ -0,0 +1,38 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), NonPersistent, CreatableItem(False)> _
|
||||
Public Class GLAccountMixedPCI
|
||||
Inherits BaseObject
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<ClassDiagram MajorVersion="1" MinorVersion="1">
|
||||
<Class Name="Nuvolar.Module.GLAccounts">
|
||||
<Position X="0.5" Y="0.5" Width="2.25" />
|
||||
<Members>
|
||||
<Field Name="_AmountDEVBrutto" Hidden="true" />
|
||||
<Field Name="_AmountHUFBrutto" Hidden="true" />
|
||||
<Field Name="_ChartOfAccounts" Hidden="true" />
|
||||
<Field Name="_CurrencyRateVAT" Hidden="true" />
|
||||
<Field Name="_Customers" Hidden="true" />
|
||||
<Field Name="_PartnerType" Hidden="true" />
|
||||
<Field Name="_PaymentOption" Hidden="true" />
|
||||
<Method Name="AfterConstruction" Hidden="true" />
|
||||
<Method Name="New" Hidden="true" />
|
||||
<Method Name="OnSaving" Hidden="true" />
|
||||
<Method Name="RecalculateTotal" Hidden="true" />
|
||||
<Property Name="row_ChartOfAccounts" Hidden="true" />
|
||||
</Members>
|
||||
<TypeIdentifier>
|
||||
<HashCode>oAFAAAAQQAEIAIAAAAAAAIEBAAAAAAAAAAIAABAgADA=</HashCode>
|
||||
<FileName>FinancialObjects\FinancialTransactions\Accounts\GLAccounts.vb</FileName>
|
||||
</TypeIdentifier>
|
||||
</Class>
|
||||
<Class Name="Nuvolar.Module.GLHeader">
|
||||
<Position X="0.5" Y="3" Width="2.25" />
|
||||
<Members>
|
||||
<Field Name="_CashHandler" Hidden="true" />
|
||||
<Field Name="_CurrencyName" Hidden="true" />
|
||||
<Field Name="_CurrencyRate" Hidden="true" />
|
||||
<Field Name="_CustomersFrom" Hidden="true" />
|
||||
<Field Name="_DateCreated" Hidden="true" />
|
||||
<Field Name="_DateExecution" Hidden="true" />
|
||||
<Field Name="_DatePayment" Hidden="true" />
|
||||
<Field Name="_DocumentNumber" Hidden="true" />
|
||||
<Field Name="_GLDocumentType" Hidden="true" />
|
||||
<Field Name="_HUNumberToText" Hidden="true" />
|
||||
<Field Name="_ImportedInvoice" Hidden="true" />
|
||||
<Field Name="_ImportedOther" Hidden="true" />
|
||||
<Field Name="_ImportedRegistryHeader" Hidden="true" />
|
||||
<Field Name="_IsEditable" Hidden="true" />
|
||||
<Field Name="_IsStorno" Hidden="true" />
|
||||
<Field Name="_NoteHeader" Hidden="true" />
|
||||
<Field Name="_RegistryNumber" Hidden="true" />
|
||||
<Field Name="_row_AmountDEV" Hidden="true" />
|
||||
<Field Name="_row_AmountHUF" Hidden="true" />
|
||||
<Field Name="_row_ConnectInfo" Hidden="true" />
|
||||
<Field Name="_row_Controlling" Hidden="true" />
|
||||
<Field Name="_row_CostHolder" Hidden="true" />
|
||||
<Field Name="_row_CostPlace" Hidden="true" />
|
||||
<Field Name="_row_CreditChartOfAccounts" Hidden="true" />
|
||||
<Field Name="_row_Customer" Hidden="true" />
|
||||
<Field Name="_row_DateVAT" Hidden="true" />
|
||||
<Field Name="_row_DebitChartOfAccounts" Hidden="true" />
|
||||
<Field Name="_row_GLHeader" Hidden="true" />
|
||||
<Field Name="_row_JobNumberObjects" Hidden="true" />
|
||||
<Field Name="_row_LiquidAssets" Hidden="true" />
|
||||
<Field Name="_row_NoteRows" Hidden="true" />
|
||||
<Field Name="_row_UniqueObjects" Hidden="true" />
|
||||
<Field Name="_row_VAT" Hidden="true" />
|
||||
<Method Name="AfterConstruction" Hidden="true" />
|
||||
<Method Name="New" Hidden="true" />
|
||||
<Method Name="RecalculateAmountHUF" Hidden="true" />
|
||||
<Method Name="Reconfigure_GLDetail" Hidden="true" />
|
||||
<Property Name="row_AmountDEV" Hidden="true" />
|
||||
<Property Name="row_AmountHUF" Hidden="true" />
|
||||
<Property Name="row_ConnectInfo" Hidden="true" />
|
||||
<Property Name="row_Controlling" Hidden="true" />
|
||||
<Property Name="row_CostHolder" Hidden="true" />
|
||||
<Property Name="row_CostPlace" Hidden="true" />
|
||||
<Property Name="row_CreditChartOfAccounts" Hidden="true" />
|
||||
<Property Name="row_Customer" Hidden="true" />
|
||||
<Property Name="row_DateVAT" Hidden="true" />
|
||||
<Property Name="row_DebitChartOfAccounts" Hidden="true" />
|
||||
<Property Name="row_JobNumberObjects" Hidden="true" />
|
||||
<Property Name="row_LiquidAssets" Hidden="true" />
|
||||
<Property Name="row_NoteRows" Hidden="true" />
|
||||
<Property Name="row_UniqueObjects" Hidden="true" />
|
||||
<Property Name="row_VAT" Hidden="true" />
|
||||
</Members>
|
||||
<TypeIdentifier>
|
||||
<HashCode>mBkBAKdgJECEANAJoICIOkEQAASIQQGgAEhEv5IDqHg=</HashCode>
|
||||
<FileName>FinancialObjects\FinancialTransactions\Base\GLHeader.vb</FileName>
|
||||
</TypeIdentifier>
|
||||
</Class>
|
||||
<Class Name="Nuvolar.Module.GLRows">
|
||||
<Position X="3.5" Y="0.5" Width="2.75" />
|
||||
<Members>
|
||||
<Field Name="_AmountDEV" Hidden="true" />
|
||||
<Field Name="_AmountHUF" Hidden="true" />
|
||||
<Field Name="_CashType" Hidden="true" />
|
||||
<Field Name="_ConnectInfo" Hidden="true" />
|
||||
<Field Name="_Controlling" Hidden="true" />
|
||||
<Field Name="_CostHolder" Hidden="true" />
|
||||
<Field Name="_CostPlace" Hidden="true" />
|
||||
<Field Name="_CreditAmountDEV" Hidden="true" />
|
||||
<Field Name="_CreditAmountHUF" Hidden="true" />
|
||||
<Field Name="_CreditChartOfAccounts" Hidden="true" />
|
||||
<Field Name="_CurrencyName2" Hidden="true" />
|
||||
<Field Name="_CurrencyRate2" Hidden="true" />
|
||||
<Field Name="_Customer" Hidden="true" />
|
||||
<Field Name="_DateVAT" Hidden="true" />
|
||||
<Field Name="_DebitAmountDEV" Hidden="true" />
|
||||
<Field Name="_DebitAmountHUF" Hidden="true" />
|
||||
<Field Name="_DebitChartOfAccounts" Hidden="true" />
|
||||
<Field Name="_GLAccounts" Hidden="true" />
|
||||
<Field Name="_GLHeader" Hidden="true" />
|
||||
<Field Name="_GLRowsGUID" Hidden="true" />
|
||||
<Field Name="_GLRowsTypeVAT" Hidden="true" />
|
||||
<Field Name="_ImportID" Hidden="true" />
|
||||
<Field Name="_InAmountDEV" Hidden="true" />
|
||||
<Field Name="_InAmountDEV2" Hidden="true" />
|
||||
<Field Name="_InAmountHUF" Hidden="true" />
|
||||
<Field Name="_JobNumberObjects" Hidden="true" />
|
||||
<Field Name="_LiquidAssets" Hidden="true" />
|
||||
<Field Name="_NoteRows" Hidden="true" />
|
||||
<Field Name="_OutAmountDEV" Hidden="true" />
|
||||
<Field Name="_OutAmountDEV2" Hidden="true" />
|
||||
<Field Name="_OutAmountHUF" Hidden="true" />
|
||||
<Field Name="_PartnerType" Hidden="true" />
|
||||
<Field Name="_TransactionType" Hidden="true" />
|
||||
<Field Name="_UniqueObjects" Hidden="true" />
|
||||
<Field Name="_VAT" Hidden="true" />
|
||||
<Method Name="AddGLRows" Hidden="true" />
|
||||
<Method Name="New" Hidden="true" />
|
||||
</Members>
|
||||
<TypeIdentifier>
|
||||
<HashCode>FAWBioEBRATDJBEQCgEBFSAAIQAgCQFREFRigSBgkGo=</HashCode>
|
||||
<FileName>FinancialObjects\FinancialTransactions\Base\GLRows.vb</FileName>
|
||||
</TypeIdentifier>
|
||||
</Class>
|
||||
<Font Name="Segoe UI" Size="9" />
|
||||
</ClassDiagram>
|
||||
+445
@@ -0,0 +1,445 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports System.Drawing
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
'<EditorStateRule("Hide currency rate VAT", "CurrencyRateVAT", EditorState.Hidden, "(CurrencyName.ShortName = 'HUF') or PartnerType=0", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide row_AmountHUF when Currency is not HUF", "row_AmountHUF", EditorState.Hidden, "CurrencyName.ShortName <> 'HUF'", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide IsRegistry", "IsRegistry;DocumentFile", EditorState.Hidden, "(PartnerType = 0)", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide DocumentFile when IsRegistry=False", "DocumentFile;CustomerBankAccounts", EditorState.Hidden, "(IsRegistry=False)", ViewType.DetailView)> _
|
||||
'<EditorStateRule("GLAccounts date properties hide when PaymentOption.PayMode Is InCash", "DateExecution;DatePayment;row_DateVAT", ViewType.DetailView, "(PaymentOption.PayMode = 0)", EditorState.Disabled)> _
|
||||
|
||||
'-- Vevő szállító
|
||||
<Appearance("Hide currency rate VAT", TargetItems:="CurrencyRateVAT", Criteria:="(CurrencyName.ShortName = 'HUF') or PartnerType=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide row_AmountHUF when Currency is not HUF", TargetItems:="row_AmountHUF", Criteria:="CurrencyName.ShortName <> 'HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide IsRegistry", TargetItems:="IsRegistry;DocumentFile", Criteria:="(PartnerType = 0)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide DocumentFile when IsRegistry=False", TargetItems:="DocumentFile;CustomerBankAccounts", Criteria:="(IsRegistry=False)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("GLAccounts date properties hide when PaymentOption.PayMode Is InCash", TargetItems:="DateExecution;DatePayment;row_DateVAT", Criteria:="(PaymentOption.PayMode = 0)", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Hide row_ info when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_ChartOfAccounts", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable if ImportedRegistryHeader is not null", AppearanceItemType.ViewItem, "isnull(ImportedRegistryHeader)=False", _
|
||||
TargetItems:="Customers;DateExecution;DocumentNumber;CurrencyName;RegistryNumber;DateCreated;DatePayment;PaymentOption;PartnerType;CustomerBankAccounts;DateVAT", Enabled:=False)> _
|
||||
<Appearance("Disable row action if ImportedRegistryHeader is not null", AppearanceItemType.Action, "isnull(ImportedRegistryHeader)=False and IsRegistry=False", _
|
||||
TargetItems:="aToTableD_GLAccounts;aToTable_GLAccounts;aBackToRowEdit_GLAccounts", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide aGetRegistryNumber_GLAccounts", AppearanceItemType.Action, "IsRegistry=False or isnull(RegistryNumber)=False", TargetItems:="aGetRegistryNumber_GLAccounts", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<RuleCriteria("Rulecriteria GLAccounts-row_ChartOfAccounts", "aToTable_GLAccounts_Contexts", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialTransactions")> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
Public Class GLAccounts
|
||||
Inherits GLHeader
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _PaymentOption As PaymentOption
|
||||
Private _CurrencyRateVAT As Double
|
||||
Private _AmountHUFBrutto As Double
|
||||
Private _AmountDEVBrutto As Double
|
||||
Private _Customers As Customers
|
||||
Private _CustomerBankAccounts As CustomerBankAccounts
|
||||
Private _HeaderInfo As String
|
||||
Private _DocumentFile As FileData
|
||||
Private _IsRegistry As Boolean = False 'Ha szállítói bizonylat, van-e iktatás
|
||||
Private _ConnectInfo As String
|
||||
Private _IsControlling_InCash As Boolean 'Készpénzes rögzítés esetén csináljon-e
|
||||
Private _Controlling_InCash As Controlling 'Készpénz esetén GLAccounts rögzítéskor a kifizetés mire menjen (automatikus sor beszúrás) !
|
||||
Private _GLMixed_InCash As GLMixed 'A pénzügyi teljesítés vegyes bizonylata, ami ehhez kapcsolódik
|
||||
Private _VATAvowalType As eVATAvowalType 'ÁFA bevallás módja
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Me.RegistryNumber IsNot Nothing Then
|
||||
Dim _RegistryHeader As RegistryHeader = Session.FindObject(Of RegistryHeader)(1, CriteriaOperator.Parse("RegistryNumber=?", Me.RegistryNumber))
|
||||
If _RegistryHeader IsNot Nothing Then
|
||||
_RegistryHeader.F_IsImported = True
|
||||
_RegistryHeader.Save()
|
||||
End If
|
||||
End If
|
||||
If IsDeleted = False Then
|
||||
Dim _GLRows As GLRows
|
||||
For Each _GLRows In Me.GLRows
|
||||
_GLRows.ConnectInfo = Me.row_ConnectInfo
|
||||
Next
|
||||
Me.ConnectInfo = Me.row_ConnectInfo
|
||||
End If
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Session.IsNewObject(Me) Then Me.GLDocumentType = eGLDocumentType.eGLAccount
|
||||
IsRegistry = False
|
||||
HeaderInfo = ""
|
||||
IsControlling_InCash = False
|
||||
VATAvowalType = eVATAvowalType.eGeneral
|
||||
PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode='InTransfer' and DefaultForBusinnes=True"))
|
||||
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("GLAccounts.PartnerType", "aFinal_GLAccount_Context")> _
|
||||
<ImmediatePostData(True)> _
|
||||
Property PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<RuleRequiredField("GLAccounts.row_Customer.ToTable", "aToTable_GLAccounts_Contexts")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_ChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)>
|
||||
<RuleRequiredField("GLAccounts.PaymentOption", "aFinal_GLAccount_Context")>
|
||||
Property PaymentOption() As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(ByVal value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If Not Me.DateCreated = Nothing Then
|
||||
If value IsNot Nothing Then
|
||||
If value.PayMode = ePayMode.InCash Then
|
||||
Me.DatePayment = Me.DateCreated
|
||||
Me.DateExecution = Me.DateCreated
|
||||
Me.row_DateVAT = Me.DateCreated
|
||||
Else
|
||||
Me.DatePayment = Me.DateCreated.AddDays(value.PayDay)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If value IsNot Nothing Then
|
||||
If value.PayMode = ePayMode.InCash Then
|
||||
IsControlling_InCash = value.IsControlling_InCash
|
||||
If IsControlling_InCash = True Then
|
||||
If value.Controlling_InCash IsNot Nothing Then
|
||||
Controlling_InCash = value.Controlling_InCash
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("GLAcconuts.CurrencyRateVAT_RangeRule", "aFinal_GLAccount_Context", 1.01, 99999999999999999, TargetCriteria:="CurrencyName.ShortName != 'HUF'")>
|
||||
Property CurrencyRateVAT() As Double
|
||||
Get
|
||||
Return _CurrencyRateVAT
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("CurrencyRateVAT", _CurrencyRateVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFBrutto() As Double
|
||||
Get
|
||||
Return _AmountHUFBrutto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEVBrutto() As Double
|
||||
Get
|
||||
Return _AmountDEVBrutto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountDEVBrutto", _AmountDEVBrutto, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)>
|
||||
<RuleRequiredField("GLAccounts-Customers", DefaultContexts.Save)>
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
row_Customer = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property HeaderInfo As String
|
||||
Get
|
||||
Return _HeaderInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("HeaderInfo", _HeaderInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)>
|
||||
Property IsRegistry As Boolean
|
||||
Get
|
||||
Return _IsRegistry
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsRegistry", _IsRegistry, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.IsRegistryGLAccounts = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLAccounts-DocumentFile", "GLAccounts_Context", TargetCriteria:="IsRegistry=True and PartnerType=1")>
|
||||
<NonCloneable()>
|
||||
<Aggregated()>
|
||||
<ExpandObjectMembers(ExpandObjectMembers.Never)>
|
||||
Property DocumentFile As FileData
|
||||
Get
|
||||
Return _DocumentFile
|
||||
End Get
|
||||
Set(ByVal value As FileData)
|
||||
SetPropertyValue("DocumentFile", _DocumentFile, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("Customers='@This.Customers'")>
|
||||
<RuleRequiredField("GLAccounts-CustomerBankAccounts", DefaultContexts.Save, _
|
||||
TargetCriteria:="PartnerType=1 and PaymentOption.PayMode=1 and IsRegistry=True and PaymentOption.PayMode<>0")> _
|
||||
Property CustomerBankAccounts As CustomerBankAccounts
|
||||
Get
|
||||
Return _CustomerBankAccounts
|
||||
End Get
|
||||
Set(ByVal value As CustomerBankAccounts)
|
||||
SetPropertyValue("CustomerBankAccounts", _CustomerBankAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
ReadOnly Property Image1 As Image
|
||||
Get
|
||||
If PartnerType = ePartnerType.eReceivables Then
|
||||
If ImportedInvoice IsNot Nothing Then
|
||||
Return ImageLoader.Instance.GetImageInfo("row_delete").Image
|
||||
Else
|
||||
Return ImageLoader.Instance.GetImageInfo("edit").Image
|
||||
|
||||
End If
|
||||
End If
|
||||
If PartnerType = ePartnerType.ePayabels Then
|
||||
If IsRegistry Then
|
||||
Return ImageLoader.Instance.GetImageInfo("edit").Image
|
||||
ElseIf ImportedRegistryHeader IsNot Nothing Then
|
||||
Return ImageLoader.Instance.GetImageInfo("row_delete").Image
|
||||
Else
|
||||
Return ImageLoader.Instance.GetImageInfo("edit").Image
|
||||
End If
|
||||
End If
|
||||
|
||||
End Get
|
||||
End Property
|
||||
Property ConnectInfo As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.row_ConnectInfo = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling_InCash As Controlling
|
||||
Get
|
||||
Return _Controlling_InCash
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_InCash", _Controlling_InCash, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsControlling_InCash As Boolean
|
||||
Get
|
||||
Return _IsControlling_InCash
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsControlling_InCash", _IsControlling_InCash, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLMixed_InCash As GLMixed
|
||||
Get
|
||||
Return _GLMixed_InCash
|
||||
End Get
|
||||
Set(value As GLMixed)
|
||||
SetPropertyValue("GLMixed_InCash", _GLMixed_InCash, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VATAvowalType As eVATAvowalType
|
||||
Get
|
||||
Return _VATAvowalType
|
||||
End Get
|
||||
Set(value As eVATAvowalType)
|
||||
SetPropertyValue("VATAvowalType", _VATAvowalType, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
If Me.Customers IsNot Nothing Then
|
||||
If Me.CurrencyName IsNot Nothing Then
|
||||
Return String.Format("{0} {1} {2}", Me.CurrencyName.ShortName, Me.DocumentNumber, Me.Customers.FullName)
|
||||
Else
|
||||
Return String.Format("{0}", Me.DocumentNumber)
|
||||
End If
|
||||
Else
|
||||
Return String.Format("{0}", Me.DocumentNumber)
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides Property DocumentNumber As String
|
||||
Get
|
||||
Return MyBase.DocumentNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
MyBase.DocumentNumber = value
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsSaving = False Then
|
||||
If ConnectInfo <> value Then
|
||||
ConnectInfo = value
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Overrides Property row_Controlling As Controlling
|
||||
Get
|
||||
Return MyBase.row_Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
MyBase.row_Controlling = value
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsSaving = False Then
|
||||
If value IsNot Nothing Then
|
||||
row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Sub RecalculateTotal(Optional ByVal WithCurrencyRate As Boolean = False)
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
AmountHUFBrutto = 0
|
||||
AmountDEVBrutto = 0
|
||||
For Each _GLRows In Me.GLRows
|
||||
If _PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLRows.DebitChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) Or _GLRows.CreditChartOfAccounts Is _
|
||||
_Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) Then
|
||||
AmountHUFBrutto += _GLRows.AmountHUF
|
||||
AmountDEVBrutto += _GLRows.AmountDEV
|
||||
End If
|
||||
Else
|
||||
If _GLRows.DebitChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) Or _
|
||||
_GLRows.CreditChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) Then
|
||||
AmountHUFBrutto += _GLRows.AmountHUF
|
||||
AmountDEVBrutto += _GLRows.AmountDEV
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If WithCurrencyRate Then
|
||||
If Me.CurrencyName IsNot Nothing Then
|
||||
If Me.CurrencyName.ShortName <> "HUF" Then
|
||||
If AmountDEVBrutto <> 0 Then
|
||||
Me.CurrencyRate = Math.Round(AmountHUFBrutto / AmountDEVBrutto, 4, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function ReturnTotal()
|
||||
Dim _GLRows As GLRows
|
||||
Dim _Total As Double
|
||||
For Each _GLRows In Me.GLRows
|
||||
_Total = _Total + _GLRows.AmountHUF + _GLRows.AmountDEV
|
||||
Next
|
||||
Return _Total
|
||||
End Function
|
||||
Function CreateRegistry(ByVal _ocur As Xpo.XPObjectSpace, ByVal _RegistryHeader As RegistryHeader) As RegistryHeader
|
||||
Dim _RegistryType As RegistryType
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
Dim _RegistryBankTransfer_Collection As XPCollection(Of RegistryBankTransfer)
|
||||
Dim _WorkflowSystemSteps As WorkflowSystemSteps
|
||||
If Me.CustomersFrom Is Nothing Then
|
||||
Return Nothing
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
If Me.PartnerType = ePartnerType.ePayabels Then
|
||||
If Me.IsRegistry Then
|
||||
If _RegistryHeader Is Nothing Then
|
||||
_RegistryType = _ocur.FindObject(Of RegistryType)(CriteriaOperator.Parse("CustomersFrom.Oid=? and RegistryMainType=0 and RegistryGLAccount=True", Me.CustomersFrom.Oid))
|
||||
If _RegistryType IsNot Nothing Then
|
||||
_RegistryHeader = _ocur.CreateObject(Of RegistryHeader)()
|
||||
_RegistryHeader.CustomersFrom = CustomersFrom
|
||||
_RegistryHeader.Customers = Me.Customers
|
||||
_RegistryHeader.RegistryType = _RegistryType
|
||||
For Each _WorkflowSystemSteps In _RegistryType.WorkflowSystem.WorkflowSystemSteps
|
||||
If _WorkflowSystemSteps.IsLastStep Then
|
||||
_RegistryHeader.CurrentWorkflowSystemSteps = _WorkflowSystemSteps
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
_ocur.Rollback()
|
||||
Return Nothing
|
||||
Exit Function
|
||||
End If
|
||||
Else
|
||||
_RegistryBankTransfer_Collection = New XPCollection(Of RegistryBankTransfer)(_ocur.Session, CriteriaOperator.Parse("RegistryHeader.Oid=?", _RegistryHeader.Oid))
|
||||
_ocur.Delete(_RegistryBankTransfer_Collection)
|
||||
End If
|
||||
|
||||
_RegistryHeader.CustomersFrom = CustomersFrom
|
||||
_RegistryHeader.Customers = Me.Customers
|
||||
|
||||
_RegistryHeader.F_CurrencyName = Me.CurrencyName
|
||||
_RegistryHeader.F_CurrencyRate = Me.CurrencyRate
|
||||
_RegistryHeader.F_DateCreated = Me.DateCreated
|
||||
_RegistryHeader.F_DateExecution = Me.DateExecution
|
||||
_RegistryHeader.F_DatePayment = Me.DatePayment
|
||||
_RegistryHeader.F_DateVAT = Me.DateExecution
|
||||
_RegistryHeader.F_PayMode = Me.PaymentOption.PayMode
|
||||
_RegistryHeader.F_AmountBruttoDEV = Me.AmountDEVBrutto
|
||||
_RegistryHeader.F_AmountBruttoHUF = Me.AmountHUFBrutto
|
||||
_RegistryHeader.F_CustomerBankAccounts = Me.CustomerBankAccounts
|
||||
_RegistryHeader.F_ReadyforBookEntry = True
|
||||
_RegistryHeader.DocumentFile = Me.DocumentFile
|
||||
_RegistryHeader.DateCreated = GetSQLTime(Session)
|
||||
_RegistryHeader.DeliveryType = eDeliveryType.eOther
|
||||
_RegistryHeader.DocumentNumber = Me.DocumentNumber
|
||||
_RegistryHeader.IsEditable = False
|
||||
|
||||
|
||||
|
||||
If Me.PaymentOption.PayMode = ePayMode.InTransfer Or Me.PaymentOption.PayMode = ePayMode.InContinuous Then
|
||||
_RegistryBankTransfer = New RegistryBankTransfer(Session)
|
||||
_RegistryBankTransfer.DatePayment = Me.DatePayment
|
||||
_RegistryBankTransfer.RegistryHeader = _RegistryHeader
|
||||
_RegistryBankTransfer.AmountDEV = Me.AmountDEVBrutto
|
||||
_RegistryBankTransfer.AmountHUF = Me.AmountHUFBrutto
|
||||
|
||||
End If
|
||||
|
||||
Return _RegistryHeader
|
||||
End If
|
||||
End If
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
+75
@@ -0,0 +1,75 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.DC
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
'<ImageName("BO_Contact")> _
|
||||
'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
|
||||
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
|
||||
'<Persistent("DatabaseTableName")> _
|
||||
Public Enum eGLRowsTypeSelect
|
||||
eOpen = 0
|
||||
eClose = 1
|
||||
eBoth = 2
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
|
||||
Public Class GLAccountsOpenClosePCIPopup ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
|
||||
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
|
||||
YearClose = Now.Year
|
||||
GLRowsTypeSelect = eGLRowsTypeSelect.eBoth
|
||||
|
||||
End Sub
|
||||
|
||||
Private _YearClose As Long
|
||||
Private _GLRowsTypeSelect As eGLRowsTypeSelect
|
||||
Property YearClose As Long
|
||||
Get
|
||||
Return _YearClose
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("YearClose", _YearClose, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLRowsTypeSelect As eGLRowsTypeSelect
|
||||
Get
|
||||
Return _GLRowsTypeSelect
|
||||
End Get
|
||||
Set(value As eGLRowsTypeSelect)
|
||||
SetPropertyValue("GLRowsTypeSelect", _GLRowsTypeSelect, value)
|
||||
End Set
|
||||
End Property
|
||||
'Private _PersistentProperty As String
|
||||
'<XafDisplayName("My display name"), ToolTip("My hint message")> _
|
||||
'<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
|
||||
'<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
|
||||
'Public Property PersistentProperty() As String
|
||||
' Get
|
||||
' Return _PersistentProperty
|
||||
' End Get
|
||||
' Set(ByVal value As String)
|
||||
' SetPropertyValue("PersistentProperty", _PersistentProperty, value)
|
||||
' End Set
|
||||
'End Property
|
||||
|
||||
'<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
|
||||
'Public Sub ActionMethod()
|
||||
' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
|
||||
' Me.PersistentProperty = "Paid"
|
||||
'End Sub
|
||||
End Class
|
||||
+65
@@ -0,0 +1,65 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLAccountsRevaluations
|
||||
Inherits BaseObject
|
||||
Private _GLAccounts As GLAccounts
|
||||
Private _GLRows As GLRows
|
||||
Private _CurrencyRate As Double
|
||||
Private _CurrencyRate_Revaluation As Double
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property GLAccounts As GLAccounts
|
||||
Get
|
||||
Return _GLAccounts
|
||||
End Get
|
||||
Set(ByVal value As GLAccounts)
|
||||
SetPropertyValue("GLAccounts", _GLAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLRows As GLRows
|
||||
Get
|
||||
Return _GLRows
|
||||
End Get
|
||||
Set(ByVal value As GLRows)
|
||||
SetPropertyValue("GLRows", _GLRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyRate As Double
|
||||
Get
|
||||
Return _CurrencyRate
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyRate_Revaluation As Double
|
||||
Get
|
||||
Return _CurrencyRate_Revaluation
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CurrencyRate_Revaluation", _CurrencyRate_Revaluation, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+250
@@ -0,0 +1,250 @@
|
||||
Partial Class GLAccountsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aBackToRowEdit_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportReceivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGetRegistryNumber_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCloneGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aMakeEditable_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinal_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalAndNew_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCIDW_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOpenAccountsPdf = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPCICheckGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateMixedPCI_GLAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aToTable_GLAccounts_Telephone = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGenerateOpenClosePCIRecord = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGenerateOpenClosePCIRecord_Storno = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aRestoreDeletedRecord_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aBackToRowEdit_GLAccounts
|
||||
'
|
||||
Me.aBackToRowEdit_GLAccounts.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_GLAccounts.Category = "aBackToRowEdit_GLAccounts"
|
||||
Me.aBackToRowEdit_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_GLAccounts.Id = "aBackToRowEdit_GLAccounts"
|
||||
Me.aBackToRowEdit_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToRowEdit_GLAccounts.Shortcut = "F8"
|
||||
Me.aBackToRowEdit_GLAccounts.TargetViewId = "GLAccounts_DetailView"
|
||||
Me.aBackToRowEdit_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aImportReceivables
|
||||
'
|
||||
Me.aImportReceivables.Caption = "Import Receivables"
|
||||
Me.aImportReceivables.Category = "ObjectsCreation"
|
||||
Me.aImportReceivables.ConfirmationMessage = "Do you want to execute command"
|
||||
Me.aImportReceivables.Id = "aImportReceivables"
|
||||
Me.aImportReceivables.TargetViewId = "InvoiceHeader_ListView_GLAccount"
|
||||
Me.aImportReceivables.ToolTip = Nothing
|
||||
'
|
||||
'aGetRegistryNumber_GLAccounts
|
||||
'
|
||||
Me.aGetRegistryNumber_GLAccounts.Caption = "aGetRegistryNumber_GLAccounts"
|
||||
Me.aGetRegistryNumber_GLAccounts.Category = "aGetRegistryNumber_GLAccounts"
|
||||
Me.aGetRegistryNumber_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aGetRegistryNumber_GLAccounts.Id = "aGetRegistryNumber_GLAccounts"
|
||||
Me.aGetRegistryNumber_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aCloneGLAccounts
|
||||
'
|
||||
Me.aCloneGLAccounts.Caption = "Clone GLAccounts"
|
||||
Me.aCloneGLAccounts.Category = "ObjectsCreation"
|
||||
Me.aCloneGLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aCloneGLAccounts.Id = "aCloneGLAccounts"
|
||||
Me.aCloneGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCloneGLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aToTable_GLAccounts
|
||||
'
|
||||
Me.aToTable_GLAccounts.Caption = "aToTable"
|
||||
Me.aToTable_GLAccounts.Category = "aToTable_GLAccounts"
|
||||
Me.aToTable_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLAccounts.Id = "aToTable_GLAccounts"
|
||||
Me.aToTable_GLAccounts.Shortcut = "F6"
|
||||
Me.aToTable_GLAccounts.Tag = "row_AmountHUF"
|
||||
Me.aToTable_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aToTable_GLAccounts.TargetViewId = "GLAccounts_DetailView"
|
||||
Me.aToTable_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aMakeEditable_GLAccounts
|
||||
'
|
||||
Me.aMakeEditable_GLAccounts.Caption = "aMakeEditable_GLAccounts"
|
||||
Me.aMakeEditable_GLAccounts.Category = "ObjectsCreation"
|
||||
Me.aMakeEditable_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aMakeEditable_GLAccounts.Id = "aMakeEditable_GLAccounts"
|
||||
Me.aMakeEditable_GLAccounts.ImageName = "replace2.png"
|
||||
Me.aMakeEditable_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aMakeEditable_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aMakeEditable_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aFinal_GLAccounts
|
||||
'
|
||||
Me.aFinal_GLAccounts.Caption = "aFinal_GLAccounts"
|
||||
Me.aFinal_GLAccounts.Category = "ObjectsCreation"
|
||||
Me.aFinal_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aFinal_GLAccounts.Id = "aFinal_GLAccounts"
|
||||
Me.aFinal_GLAccounts.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aFinal_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aFinal_GLAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinal_GLAccounts.ToolTip = Nothing
|
||||
Me.aFinal_GLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aFinalAndNew_GLAccounts
|
||||
'
|
||||
Me.aFinalAndNew_GLAccounts.Caption = "aFinalAndNew_GLAccounts"
|
||||
Me.aFinalAndNew_GLAccounts.Category = "ObjectsCreation"
|
||||
Me.aFinalAndNew_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aFinalAndNew_GLAccounts.Id = "aFinalAndNew_GLAccounts"
|
||||
Me.aFinalAndNew_GLAccounts.ImageName = "MenuBar_SaveAndNew"
|
||||
Me.aFinalAndNew_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aFinalAndNew_GLAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalAndNew_GLAccounts.ToolTip = Nothing
|
||||
Me.aFinalAndNew_GLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aToTableD_GLAccounts
|
||||
'
|
||||
Me.aToTableD_GLAccounts.Caption = "Delete row"
|
||||
Me.aToTableD_GLAccounts.Category = "aToTableD_GLAccounts"
|
||||
Me.aToTableD_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLAccounts.Id = "aToTableD_GLAccounts"
|
||||
Me.aToTableD_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_GLAccounts.Shortcut = "F7"
|
||||
Me.aToTableD_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aToTableD_GLAccounts.TargetViewId = "GLAccounts_DetailView"
|
||||
Me.aToTableD_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aViewPCIDW_GLAccounts
|
||||
'
|
||||
Me.aViewPCIDW_GLAccounts.Caption = "View detail"
|
||||
Me.aViewPCIDW_GLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aViewPCIDW_GLAccounts.Id = "aViewPCIDW_GLAccounts"
|
||||
Me.aViewPCIDW_GLAccounts.ImageName = "document_pinned"
|
||||
Me.aViewPCIDW_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCIDW_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aViewPCIDW_GLAccounts.TargetViewId = ""
|
||||
Me.aViewPCIDW_GLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aOpenAccountsPdf
|
||||
'
|
||||
Me.aOpenAccountsPdf.Caption = "aOpen Accounts Pdf"
|
||||
Me.aOpenAccountsPdf.ConfirmationMessage = Nothing
|
||||
Me.aOpenAccountsPdf.Id = "aOpenAccountsPdf"
|
||||
Me.aOpenAccountsPdf.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aOpenAccountsPdf.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aOpenAccountsPdf.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aOpenAccountsPdf.ToolTip = Nothing
|
||||
Me.aOpenAccountsPdf.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aPCICheckGLAccounts
|
||||
'
|
||||
Me.aPCICheckGLAccounts.Caption = "aPCICheck GLAccounts"
|
||||
Me.aPCICheckGLAccounts.Category = "RecordEdit"
|
||||
Me.aPCICheckGLAccounts.ConfirmationMessage = Nothing
|
||||
Me.aPCICheckGLAccounts.Id = "aPCICheckGLAccounts"
|
||||
Me.aPCICheckGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPCICheckGLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aPCICheckGLAccounts.ToolTip = Nothing
|
||||
'
|
||||
'aCreateMixedPCI_GLAccount
|
||||
'
|
||||
Me.aCreateMixedPCI_GLAccount.AcceptButtonCaption = Nothing
|
||||
Me.aCreateMixedPCI_GLAccount.CancelButtonCaption = Nothing
|
||||
Me.aCreateMixedPCI_GLAccount.Caption = "aCreateMixedPCI_GLAccount"
|
||||
Me.aCreateMixedPCI_GLAccount.ConfirmationMessage = Nothing
|
||||
Me.aCreateMixedPCI_GLAccount.Id = "aCreateMixedPCI_GLAccount"
|
||||
Me.aCreateMixedPCI_GLAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCreateMixedPCI_GLAccount.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aCreateMixedPCI_GLAccount.ToolTip = Nothing
|
||||
'
|
||||
'aToTable_GLAccounts_Telephone
|
||||
'
|
||||
Me.aToTable_GLAccounts_Telephone.AcceptButtonCaption = Nothing
|
||||
Me.aToTable_GLAccounts_Telephone.CancelButtonCaption = Nothing
|
||||
Me.aToTable_GLAccounts_Telephone.Caption = "aToTable_GLAccounts_Telephone"
|
||||
Me.aToTable_GLAccounts_Telephone.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLAccounts_Telephone.Id = "aToTable_GLAccounts_Telephone"
|
||||
Me.aToTable_GLAccounts_Telephone.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aToTable_GLAccounts_Telephone.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_GLAccounts_Telephone.ToolTip = Nothing
|
||||
Me.aToTable_GLAccounts_Telephone.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGenerateOpenClosePCIRecord
|
||||
'
|
||||
Me.aGenerateOpenClosePCIRecord.AcceptButtonCaption = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord.CancelButtonCaption = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord.Caption = "aGenerate Open Close PCIRecord"
|
||||
Me.aGenerateOpenClosePCIRecord.ConfirmationMessage = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord.Id = "aGenerateOpenClosePCIRecord"
|
||||
Me.aGenerateOpenClosePCIRecord.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGenerateOpenClosePCIRecord.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aGenerateOpenClosePCIRecord.ToolTip = Nothing
|
||||
'
|
||||
'aGenerateOpenClosePCIRecord_Storno
|
||||
'
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.AcceptButtonCaption = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.CancelButtonCaption = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.Caption = "aGenerateOpenClosePCIRecord_Storno"
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.ConfirmationMessage = Nothing
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.Id = "aGenerateOpenClosePCIRecord_Storno"
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aGenerateOpenClosePCIRecord_Storno.ToolTip = Nothing
|
||||
'
|
||||
'aRestoreDeletedRecord_GLAccounts
|
||||
'
|
||||
Me.aRestoreDeletedRecord_GLAccounts.Caption = "aRestoreDeletedRecord_GLAccounts"
|
||||
Me.aRestoreDeletedRecord_GLAccounts.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aRestoreDeletedRecord_GLAccounts.Id = "aRestoreDeletedRecord_GLAccounts"
|
||||
Me.aRestoreDeletedRecord_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aRestoreDeletedRecord_GLAccounts.TargetObjectType = GetType(Nuvolar.[Module].GLAccounts)
|
||||
Me.aRestoreDeletedRecord_GLAccounts.TargetViewId = "GLAccounts_ListView_Deleted"
|
||||
Me.aRestoreDeletedRecord_GLAccounts.ToolTip = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinal_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aMakeEditable_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalAndNew_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportReceivables As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCIDW_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGetRegistryNumber_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOpenAccountsPdf As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPCICheckGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCloneGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateMixedPCI_GLAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aToTable_GLAccounts_Telephone As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGenerateOpenClosePCIRecord As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGenerateOpenClosePCIRecord_Storno As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aRestoreDeletedRecord_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+174
@@ -0,0 +1,174 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aBackToRowEdit_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aImportReceivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aGetRegistryNumber_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 641</value>
|
||||
</metadata>
|
||||
<metadata name="aCloneGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 602</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aMakeEditable_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 563</value>
|
||||
</metadata>
|
||||
<metadata name="aFinal_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 485</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalAndNew_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 524</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCIDW_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aOpenAccountsPdf.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aPCICheckGLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateMixedPCI_GLAccount.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLAccounts_Telephone.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateOpenClosePCIRecord.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateOpenClosePCIRecord_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aRestoreDeletedRecord_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>190, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1268
File diff suppressed because it is too large
Load Diff
+243
@@ -0,0 +1,243 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandling 'Kintlévõség kezelés
|
||||
Inherits BaseObject
|
||||
Private _QueueIndex As Long = 0 'Hanyadik a sorban
|
||||
Private _InvoiceHeader As InvoiceHeader 'Bázis objektum, amihez kapcsolódik
|
||||
Private _DateClose As Date 'Záró dátum
|
||||
Private _CustomersFrom As CustomersFrom 'Saját cég
|
||||
Private _Customers As Customers 'Vevõ
|
||||
Private _DocumentNumber As String 'Számlaszám
|
||||
Private _AmountDEV_Account As Double 'Számla eredeti bruttó végösszege (DEV)
|
||||
Private _AmountHUF_Account As Double 'Számla eredeti bruttó végösszege (HUF)
|
||||
Private _BalanceHUF As Double 'Egyenleg (nyitott összeg) HUF
|
||||
Private _BalanceDEV As Double 'Egyenleg (nyitott összeg) DEV
|
||||
Private _DateCreated As Date 'Számla kiáll. dátuma
|
||||
Private _DatePayment As Date 'Számla fiz. hat.
|
||||
Private _DateExecution As Date 'A fizetési felszólítás dátuma
|
||||
Private _DelayedDay As Long 'Késett nap
|
||||
Private _Note As String 'Megjegyzés
|
||||
Private _IsActive As Boolean = False
|
||||
Private _ObjectCreated As Date 'Keletkezés dátuma
|
||||
Private _UserCreated As User 'Létrehozó felhasználó
|
||||
Private _EMailSendQueueRows As EMailSendQueueRows
|
||||
|
||||
Private _LateChargesBalanceHUF As Double 'Késedelmi kamat összege forintban
|
||||
|
||||
Private _CountLateCharges As Boolean = True 'Számolunk-e késedelmi kamatot
|
||||
Private _NoAssetsHandling As Boolean = False 'Nem kell fizetési felszólítás erre a számlára vonatkozólag
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
_UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property QueueIndex As Long
|
||||
Get
|
||||
Return _QueueIndex
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("QueueIndex", _QueueIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InvoiceHeader As InvoiceHeader
|
||||
Get
|
||||
Return _InvoiceHeader
|
||||
End Get
|
||||
Set(ByVal value As InvoiceHeader)
|
||||
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateClose As Date
|
||||
Get
|
||||
Return _DateClose
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateClose", _DateClose, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV_Account As Double
|
||||
Get
|
||||
Return _AmountDEV_Account
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF_Account As Double
|
||||
Get
|
||||
Return _AmountHUF_Account
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BalanceHUF As Double
|
||||
Get
|
||||
Return _BalanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BalanceHUF", _BalanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BalanceDEV As Double
|
||||
Get
|
||||
Return _BalanceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BalanceDEV", _BalanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DatePayment As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Note As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsActive As Boolean
|
||||
Get
|
||||
Return _IsActive
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsActive", _IsActive, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EMailSendQueueRows As EMailSendQueueRows
|
||||
Get
|
||||
Return _EMailSendQueueRows
|
||||
End Get
|
||||
Set(value As EMailSendQueueRows)
|
||||
SetPropertyValue("EMailSendQueueRows", _EMailSendQueueRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property CountLateCharges As Boolean
|
||||
Get
|
||||
Return _CountLateCharges
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("CountLateCharges", _CountLateCharges, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NoAssetsHandling As Boolean
|
||||
Get
|
||||
Return _NoAssetsHandling
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property LateChargesBalanceHUF As Double
|
||||
Get
|
||||
Return _LateChargesBalanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Association("AssetsHandlin-AssetsHandlingPCI", GetType(AssetsHandlingPCI)), VisibleInListView(False)> _
|
||||
ReadOnly Property AssetsHandlingPCI As XPCollection(Of AssetsHandlingPCI)
|
||||
Get
|
||||
Return GetCollection(Of AssetsHandlingPCI)("AssetsHandlingPCI")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+78
@@ -0,0 +1,78 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandlingActivity
|
||||
Inherits BaseObject
|
||||
Private _AssetsHandling As AssetsHandling 'Fejléc objektum
|
||||
Private _ObjectCreated As Date 'Objektum létrehozás dátum idõ
|
||||
Private _UserCreated As User ' Ki csinálta a bejegyzést
|
||||
Private _Note As String 'Megjegyzés
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
_UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property AssetsHandling As AssetsHandling
|
||||
Get
|
||||
Return _AssetsHandling
|
||||
End Get
|
||||
Set(ByVal value As AssetsHandling)
|
||||
SetPropertyValue("AssetsHandling", _AssetsHandling, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+116
@@ -0,0 +1,116 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandlingCPB
|
||||
Inherits BaseObject
|
||||
Private _Customers As Customers
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.row_ConversationType = eConversationType.eNotset
|
||||
Me.row_DateDeadline = GetSQLTime(Session)
|
||||
End Sub
|
||||
Public Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _row_NoteCustomers As String
|
||||
Private _row_NotePrivate As String
|
||||
Private _row_DateDeadline As Date 'Határidõ
|
||||
Private _row_Amount As Double = 0 ' Összeget fizet határidõig
|
||||
Private _row_AmountPercent As Double '%-ot fizet határidõig
|
||||
Private _row_ConversationType As eConversationType
|
||||
|
||||
<NonPersistent(), Size(-1)> _
|
||||
Property row_NoteCustomers As String
|
||||
Get
|
||||
Return _row_NoteCustomers
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_NoteCustomers", _row_NoteCustomers, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent(), Size(-1)>
|
||||
Property row_NotePrivate As String
|
||||
Get
|
||||
Return _row_NotePrivate
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_NotePrivate", _row_NotePrivate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property row_DateDeadline As Date
|
||||
Get
|
||||
Return _row_DateDeadline
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("row_DateDeadline", _row_DateDeadline, value)
|
||||
End Set
|
||||
End Property
|
||||
Property row_Amount As Double
|
||||
Get
|
||||
Return _row_Amount
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_Amount", _row_Amount, value)
|
||||
End Set
|
||||
End Property
|
||||
Property row_AmountPercent As Double
|
||||
Get
|
||||
Return _row_AmountPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_AmountPercent", _row_AmountPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property row_ConversationType As eConversationType
|
||||
Get
|
||||
Return _row_ConversationType
|
||||
End Get
|
||||
Set(value As eConversationType)
|
||||
SetPropertyValue("row_ConversationType", _row_ConversationType, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property AssetsHandlingCPBActivity As XPCollection(Of AssetsHandlingCPBActivity)
|
||||
Get
|
||||
Return New XPCollection(Of AssetsHandlingCPBActivity)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property PCIGroup As XPCollection(Of PCIGroup)
|
||||
Get
|
||||
Dim _Criteria As String = " IsNull(InvoiceHeader)=False And PartnerType = 0 And InvoiceHeader.PaymentOption.PayMode in ('InTransfer','InContinuous') And " +
|
||||
"GetDate(InvoiceHeader.DatePayment) < GetDate(?) and (GetDate(InvoiceHeader.DatePayment) < GetDate(DateLastConnected) OR " +
|
||||
"IsNull(DateLastConnected)=True) and AmountHUF_Account>1000 And InvoiceHeader.IsStorno=False and Customers=?"
|
||||
Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse(_Criteria, Now, Me.Customers))
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property AssetsHandling As XPCollection(Of AssetsHandling)
|
||||
Get
|
||||
Return New XPCollection(Of AssetsHandling)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+130
@@ -0,0 +1,130 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Public Enum eConversationType
|
||||
eNotset = -1
|
||||
ePhone = 0
|
||||
ePersonal = 1
|
||||
eMail = 2
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandlingCPBActivity
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Customers As Customers
|
||||
Private _NoteCustomers As String
|
||||
Private _NotePrivate As String
|
||||
Private _DateDeadline As Date 'Határidõ
|
||||
Private _Amount As Double = 0 ' Összeget fizet határidõig
|
||||
Private _AmountPercent As Double '%-ot fizet határidõig
|
||||
Private _ConversationType As eConversationType
|
||||
Private _ObjectCreated As Date 'Keletkezés dátuma
|
||||
Private _UserCreated As User 'Létrehozó felhasználó
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
If Session.IsNewObject(Me) Then
|
||||
Me.ConversationType = eConversationType.eNotset
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
Me.ObjectCreated = GetSQLTime(Session)
|
||||
If SecuritySystem.CurrentUser IsNot Nothing Then
|
||||
Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("AssetsHandlingCPBActivity-Customers", DefaultContexts.Save)> _
|
||||
Public Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("AssetsHandlingCPBActivity-NoteCustomers", DefaultContexts.Save), Size(-1)> _
|
||||
Public Property NoteCustomers As String
|
||||
Get
|
||||
Return _NoteCustomers
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteCustomers", _NoteCustomers, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("AssetsHandlingCPBActivity-NotePrivate", DefaultContexts.Save), Size(-1)> _
|
||||
Public Property NotePrivate As String
|
||||
Get
|
||||
Return _NotePrivate
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NotePrivate", _NotePrivate, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property DateDeadline As Date
|
||||
Get
|
||||
Return _DateDeadline
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateDeadline", _DateDeadline, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property Amount As Double
|
||||
Get
|
||||
Return _Amount
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount", _Amount, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property AmountPercent As Double
|
||||
Get
|
||||
Return _AmountPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountPercent", _AmountPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleValueComparison("AssetsHandlingCPBActivity-ConversationType", DefaultContexts.Save, ValueComparisonType.NotEquals, eConversationType.eNotset)> _
|
||||
Public Property ConversationType As eConversationType
|
||||
Get
|
||||
Return _ConversationType
|
||||
End Get
|
||||
Set(value As eConversationType)
|
||||
SetPropertyValue("ConversationType", _ConversationType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+104
@@ -0,0 +1,104 @@
|
||||
Partial Class AssetsHandlingCPBVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aToTable_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAtachments_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aToTable_AHCPB
|
||||
'
|
||||
Me.aToTable_AHCPB.Caption = "aToTable"
|
||||
Me.aToTable_AHCPB.Category = "aToTable_AHCPB"
|
||||
Me.aToTable_AHCPB.ConfirmationMessage = Nothing
|
||||
Me.aToTable_AHCPB.Id = "aToTable_AHCPB"
|
||||
Me.aToTable_AHCPB.ImageName = Nothing
|
||||
Me.aToTable_AHCPB.Shortcut = Nothing
|
||||
Me.aToTable_AHCPB.Tag = Nothing
|
||||
Me.aToTable_AHCPB.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
|
||||
Me.aToTable_AHCPB.TargetViewId = ""
|
||||
Me.aToTable_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_AHCPB.ToolTip = Nothing
|
||||
Me.aToTable_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aToTableD_AHCPB
|
||||
'
|
||||
Me.aToTableD_AHCPB.Caption = "Delete row"
|
||||
Me.aToTableD_AHCPB.Category = "aToTableD_AHCPB"
|
||||
Me.aToTableD_AHCPB.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_AHCPB.Id = "aToTableD_AHCPB"
|
||||
Me.aToTableD_AHCPB.ImageName = Nothing
|
||||
Me.aToTableD_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_AHCPB.Shortcut = Nothing
|
||||
Me.aToTableD_AHCPB.Tag = Nothing
|
||||
Me.aToTableD_AHCPB.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
|
||||
Me.aToTableD_AHCPB.TargetViewId = ""
|
||||
Me.aToTableD_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTableD_AHCPB.ToolTip = Nothing
|
||||
Me.aToTableD_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aBackToRowEdit_AHCPB
|
||||
'
|
||||
Me.aBackToRowEdit_AHCPB.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_AHCPB.Category = "aBackToRowEdit_AHCPB"
|
||||
Me.aBackToRowEdit_AHCPB.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.Id = "aBackToRowEdit_AHCPB"
|
||||
Me.aBackToRowEdit_AHCPB.ImageName = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.Tag = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandlingCPB)
|
||||
Me.aBackToRowEdit_AHCPB.TargetViewId = ""
|
||||
Me.aBackToRowEdit_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aBackToRowEdit_AHCPB.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aViewAtachments_AHCPB
|
||||
'
|
||||
Me.aViewAtachments_AHCPB.Caption = "aViewAtachments_AHCPB"
|
||||
Me.aViewAtachments_AHCPB.ConfirmationMessage = Nothing
|
||||
Me.aViewAtachments_AHCPB.Id = "aViewAtachments_AHCPB"
|
||||
Me.aViewAtachments_AHCPB.ImageName = Nothing
|
||||
Me.aViewAtachments_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAtachments_AHCPB.Shortcut = Nothing
|
||||
Me.aViewAtachments_AHCPB.Tag = Nothing
|
||||
Me.aViewAtachments_AHCPB.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAtachments_AHCPB.TargetViewId = "AssetsHandlingCPB_PCIGroup_ListView"
|
||||
Me.aViewAtachments_AHCPB.ToolTip = Nothing
|
||||
Me.aViewAtachments_AHCPB.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAtachments_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+135
@@ -0,0 +1,135 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aToTable_AHCPB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_AHCPB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_AHCPB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAtachments_AHCPB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+80
@@ -0,0 +1,80 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
Public Class AssetsHandlingCPBVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aToTable_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_AHCPB.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _AssetsHandlingCPBA As AssetsHandlingCPB = TryCast(View.SelectedObjects(0), AssetsHandlingCPB)
|
||||
Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity
|
||||
|
||||
If _AssetsHandlingCPBA IsNot Nothing Then
|
||||
|
||||
_AssetsHandlingCPBActivity = _onew.CreateObject(Of AssetsHandlingCPBActivity)()
|
||||
_AssetsHandlingCPBActivity.Customers = _onew.GetObject(_AssetsHandlingCPBA.Customers)
|
||||
_AssetsHandlingCPBActivity.Amount = _AssetsHandlingCPBA.row_Amount
|
||||
_AssetsHandlingCPBActivity.AmountPercent = _AssetsHandlingCPBA.row_AmountPercent
|
||||
_AssetsHandlingCPBActivity.ConversationType = _AssetsHandlingCPBA.row_ConversationType
|
||||
_AssetsHandlingCPBActivity.DateDeadline = _AssetsHandlingCPBA.row_DateDeadline
|
||||
_AssetsHandlingCPBActivity.NoteCustomers = _AssetsHandlingCPBA.row_NoteCustomers
|
||||
_AssetsHandlingCPBActivity.NotePrivate = _AssetsHandlingCPBA.row_NotePrivate
|
||||
_AssetsHandlingCPBActivity.Customers.AssetsHandling_Note = _AssetsHandlingCPBA.row_NoteCustomers
|
||||
_onew.CommitChanges()
|
||||
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
If _DetailView IsNot Nothing Then
|
||||
Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aToTableD_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_AHCPB.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _AssetsHandlingCPBActivity_Collection As New List(Of AssetsHandlingCPBActivity)
|
||||
Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
If _DetailView IsNot Nothing Then
|
||||
Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView)
|
||||
If _ListView IsNot Nothing Then
|
||||
For Each _AssetsHandlingCPBActivity In _ListView.SelectedObjects
|
||||
_AssetsHandlingCPBActivity_Collection.Add(_onew.GetObject(_AssetsHandlingCPBActivity))
|
||||
Next
|
||||
_onew.Delete(_AssetsHandlingCPBActivity_Collection)
|
||||
_onew.CommitChanges()
|
||||
End If
|
||||
TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aViewAtachments_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAtachments_AHCPB.Execute
|
||||
Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup)
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom = _PCIGroup.CustomersFrom
|
||||
Dim _Customers As Customers = _PCIGroup.Customers
|
||||
Dim _DocumentNumber As String = _PCIGroup.ConnectInfo
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
|
||||
End Sub
|
||||
End Class
|
||||
+145
@@ -0,0 +1,145 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()> _
|
||||
Public Class AssetsHandlingGroupChange
|
||||
Inherits BaseObject
|
||||
Private _QueueIndex As Long
|
||||
Private _AssetsHandlingStatus As AssetsHandlingStatus
|
||||
Private _IsQueueIndex As Boolean
|
||||
Private _AssetsHandling_Note_Customers As String
|
||||
Private _IsAssetsHandling_Note_Customers As Boolean
|
||||
Private _AssetsHandling_Note_Invoice As String
|
||||
Private _IsAssetsHandling_Note_Invoice As Boolean
|
||||
Private _NoAssetsHandlingModifies As Boolean 'Nincs felsz. módosítod?
|
||||
Private _NoAssetsHandling As Boolean
|
||||
Private _AktivModifies As Boolean 'Aktív státuszt módosítod?
|
||||
Private _IsActive As Boolean
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Browsable(False)> _
|
||||
Property QueueIndex As Long
|
||||
Get
|
||||
Return _QueueIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("QueueIndex", _QueueIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AssetsHandlingStatus As AssetsHandlingStatus
|
||||
Get
|
||||
Return _AssetsHandlingStatus
|
||||
End Get
|
||||
Set(value As AssetsHandlingStatus)
|
||||
SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value)
|
||||
If value IsNot Nothing Then
|
||||
QueueIndex = value.QueueIndex
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property IsQueueIndex As Boolean
|
||||
Get
|
||||
Return _IsQueueIndex
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsQueueIndex", _IsQueueIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Size(-1)> _
|
||||
Property AssetsHandling_Note_Customers As String
|
||||
Get
|
||||
Return _AssetsHandling_Note_Customers
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("AssetsHandling_Note_Customers", _AssetsHandling_Note_Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsAssetsHandling_Note_Customers As Boolean
|
||||
Get
|
||||
Return _IsAssetsHandling_Note_Customers
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsAssetsHandling_Note_Customers", _IsAssetsHandling_Note_Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Size(-1)> _
|
||||
Property AssetsHandling_Note_Invoice As String
|
||||
Get
|
||||
Return _AssetsHandling_Note_Invoice
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("AssetsHandling_Note_Invoice", _AssetsHandling_Note_Invoice, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsAssetsHandling_Note_Invoice As Boolean
|
||||
Get
|
||||
Return _IsAssetsHandling_Note_Invoice
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsAssetsHandling_Note_Invoice", _IsAssetsHandling_Note_Invoice, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property NoAssetsHandlingModifies() As Boolean
|
||||
Get
|
||||
Return _NoAssetsHandlingModifies
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("NoAssetsHandlingModifies", _NoAssetsHandlingModifies, value)
|
||||
End Set
|
||||
End Property 'Nem kell fizetési felszólítás módosuljon
|
||||
Public Property NoAssetsHandling() As Boolean
|
||||
Get
|
||||
Return _NoAssetsHandling
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value)
|
||||
End Set
|
||||
End Property 'Nem kell fizetési felszólítás / Legyen
|
||||
|
||||
Public Property AktivModifies() As Boolean
|
||||
Get
|
||||
Return _AktivModifies
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("AktivModifies", _AktivModifies, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property IsActive() As Boolean
|
||||
Get
|
||||
Return _IsActive
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsActive", _IsActive, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property IsAssetsHandling_InvoiceHeader As Boolean
|
||||
Property IsAssetsHandling_InvoiceHeader_Modifies As Boolean
|
||||
|
||||
Property IsLateChargeModifies As Boolean 'A késedelmi kamatszáml módosuljon ?
|
||||
Property IsLateCharge As Boolean
|
||||
End Class
|
||||
+94
@@ -0,0 +1,94 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandlingPCI
|
||||
Inherits BaseObject
|
||||
Private _AssetsHandling As AssetsHandling 'Fejléc objektum
|
||||
Private _MainType As String 'Tipus (Számla, pénztár, bank stb)
|
||||
Private _DateExecution As Date 'Teljestés dátuma
|
||||
Private _BallanceHUF As Double 'Egyenleg HUF
|
||||
Private _BallanceDEV As Double 'Egyenleg DEV
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Association("AssetsHandlin-AssetsHandlingPCI", GetType(AssetsHandling))> _
|
||||
Property AssetsHandling As AssetsHandling
|
||||
Get
|
||||
Return _AssetsHandling
|
||||
End Get
|
||||
Set(ByVal value As AssetsHandling)
|
||||
SetPropertyValue("AssetsHandling", _AssetsHandling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MainType As String
|
||||
Get
|
||||
Return _MainType
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("MainType", _MainType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExectution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceDEV As Double
|
||||
Get
|
||||
Return _BallanceDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+259
@@ -0,0 +1,259 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports System.Drawing
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class AssetsHandlingParameter
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _ReportData As ReportData '1 fizetési felszólítás
|
||||
Private _ReportData2 As ReportData '2 fizetési felszólítás
|
||||
Private _ReportData3 As ReportData '3 rendkivüli felmondás
|
||||
|
||||
Private _ReportData_LateChargesDocument As ReportData 'Késedelmi kamatlevél
|
||||
|
||||
Private _ReportDataEN As ReportData '1 fizetési felszólítás (angol nyelven)
|
||||
Private _ReportData2EN As ReportData '2 fizetési felszólítás (angol nyelven)
|
||||
Private _ReportData3EN As ReportData '3 rendkivüli felmondás (angol nyelven)
|
||||
|
||||
Private _TolerationDay1 As Long 'Türelmi nap 1. felszólításhoz
|
||||
Private _TolerationDay2 As Long 'Türelmi nap 2. felszólításhoz
|
||||
Private _TolerationDay3 As Long 'Türelmi nap 3. felmondáshoz
|
||||
Private _Cost1HUF As Double ' 1. felszólítás költsége
|
||||
Private _Cost2HUF As Double ' 2. felszólítás költsége
|
||||
Private _Cost3HUF As Double ' 3. felszólítás költsége
|
||||
Private _EMailSendQueueParameters As EMailSendQueueParameters
|
||||
|
||||
<Persistent("ForeColor0")> Private _ForeColor0 As Int32 = -1 '0 sorszám színe
|
||||
<Persistent("ForeColor1")> Private _ForeColor1 As Int32 = -1 '1 sorszám színe
|
||||
<Persistent("ForeColor2")> Private _ForeColor2 As Int32 = -1 '0 sorszám színe
|
||||
<Persistent("ForeColor3")> Private _ForeColor3 As Int32 = -1 '1 sorszám színe
|
||||
|
||||
<Persistent("BackColor0")> Private _BackColor0 As Int32 = -1 '0 sorszám színe
|
||||
<Persistent("BackColor1")> Private _BackColor1 As Int32 = -1 '1 sorszám színe
|
||||
<Persistent("BackColor2")> Private _BackColor2 As Int32 = -1 '0 sorszám színe
|
||||
<Persistent("BackColor3")> Private _BackColor3 As Int32 = -1 '1 sorszám színe
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData2 As ReportData
|
||||
Get
|
||||
Return _ReportData2
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData2", _ReportData2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData3 As ReportData
|
||||
Get
|
||||
Return _ReportData3
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData3", _ReportData3, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportDataEN As ReportData
|
||||
Get
|
||||
Return _ReportDataEN
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportDataEN", _ReportDataEN, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData2EN As ReportData
|
||||
Get
|
||||
Return _ReportData2EN
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData2EN", _ReportData2EN, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData3EN As ReportData
|
||||
Get
|
||||
Return _ReportData3EN
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData3EN", _ReportData3EN, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ReportData_LateChargesDocument As ReportData
|
||||
Get
|
||||
Return _ReportData_LateChargesDocument
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData_LateChargesDocument", _ReportData_LateChargesDocument, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property TolerationDay1 As Long
|
||||
Get
|
||||
Return _TolerationDay1
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("TolerationDay1", _TolerationDay1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TolerationDay2 As Long
|
||||
Get
|
||||
Return _TolerationDay2
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("TolerationDay2", _TolerationDay2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TolerationDay3 As Long
|
||||
Get
|
||||
Return _TolerationDay3
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("TolerationDay3", _TolerationDay3, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Cost1HUF As Double
|
||||
Get
|
||||
Return _Cost1HUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Cost1HUF", _Cost1HUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Cost2HUF As Double
|
||||
Get
|
||||
Return _Cost2HUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Cost2HUF", _Cost2HUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Cost3HUF As Double
|
||||
Get
|
||||
Return _Cost3HUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Cost3HUF", _Cost3HUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EMailSendQueueParameters As EMailSendQueueParameters
|
||||
Get
|
||||
Return _EMailSendQueueParameters
|
||||
End Get
|
||||
Set(value As EMailSendQueueParameters)
|
||||
SetPropertyValue("EMailSendQueueParameters", _EMailSendQueueParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<NonPersistent> _
|
||||
Public Property ForeColor0() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_ForeColor0)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_ForeColor0 = value.ToArgb()
|
||||
OnChanged("ForeColor0")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property ForeColor1() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_ForeColor1)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_ForeColor1 = value.ToArgb()
|
||||
OnChanged("ForeColor1")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property ForeColor2() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_ForeColor2)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_ForeColor2 = value.ToArgb()
|
||||
OnChanged("ForeColor2")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property ForeColor3() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_ForeColor3)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_ForeColor3 = value.ToArgb()
|
||||
OnChanged("ForeColor3")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<NonPersistent> _
|
||||
Public Property BackColor0() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_BackColor0)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_BackColor0 = value.ToArgb()
|
||||
OnChanged("BackColor0")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property BackColor1() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_BackColor1)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_BackColor1 = value.ToArgb()
|
||||
OnChanged("BackColor1")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property BackColor2() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_BackColor2)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_BackColor2 = value.ToArgb()
|
||||
OnChanged("BackColor2")
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent> _
|
||||
Public Property BackColor3() As Color
|
||||
Get
|
||||
Return Color.FromArgb(_BackColor3)
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
_BackColor3 = value.ToArgb()
|
||||
OnChanged("BackColor3")
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+48
@@ -0,0 +1,48 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsHandlingStatus
|
||||
Inherits BaseObject
|
||||
Private _QueueIndex As Long
|
||||
Private _ShortName As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property QueueIndex As Long
|
||||
Get
|
||||
Return _QueueIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("QueueIndex", _QueueIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+48
@@ -0,0 +1,48 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class AssetsPCICustomersFrom
|
||||
Inherits BaseObject
|
||||
Private _AssetsPCIHeader As AssetsPCIHeader
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Association("AssetsPCIHeader-AssetsPCICustomersFrom", GetType(AssetsPCIHeader))> _
|
||||
Property AssetsPCIHeader As AssetsPCIHeader
|
||||
Get
|
||||
Return _AssetsPCIHeader
|
||||
End Get
|
||||
Set(value As AssetsPCIHeader)
|
||||
SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+124
@@ -0,0 +1,124 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialTransactions")> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class AssetsPCIHeader
|
||||
Inherits BaseObject
|
||||
Private _DateClose As Date 'Utolsó banki nap dátuma (csak az ezt megelõzõ tételek vagy u.a. dátumú tételek)
|
||||
Private _DateExecution As Date 'A fizetési felszólítás érvényességi dátuma
|
||||
Private _ShortName As String
|
||||
Private _QueryCustomersFrom As Boolean = False 'Lekérdezze e a saját céget is ?
|
||||
Private _ObjectCreated As Date 'Keletkezés dátuma
|
||||
Private _UserCreated As User 'Létrehozó felhasználó
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.DateClose = Now
|
||||
Me.DateExecution = Now
|
||||
|
||||
Dim _AssetsPCICustomersFrom As AssetsPCICustomersFrom
|
||||
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session)
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
|
||||
For Each _CustomersFrom In _CustomersFrom_Collection
|
||||
_AssetsPCICustomersFrom = New AssetsPCICustomersFrom(Session)
|
||||
_AssetsPCICustomersFrom.AssetsPCIHeader = Me
|
||||
_AssetsPCICustomersFrom.CustomersFrom = _CustomersFrom
|
||||
Next
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
_UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Property DateClose As Date
|
||||
Get
|
||||
Return _DateClose
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateClose", _DateClose, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QueryCustomersFrom As Boolean
|
||||
Get
|
||||
Return _QueryCustomersFrom
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("QueryCustomersFrom", _QueryCustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Association("AssetsPCIHeader-AssetsPCIRows", GetType(AssetsPCIRows)), VisibleInListView(False)> _
|
||||
ReadOnly Property AssetsPCIRows As XPCollection(Of AssetsPCIRows)
|
||||
Get
|
||||
Return GetCollection(Of AssetsPCIRows)("AssetsPCIRows")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
<Association("AssetsPCIHeader-AssetsPCICustomersFrom", GetType(AssetsPCICustomersFrom))> _
|
||||
ReadOnly Property AssetsPCICustomersFrom As XPCollection(Of AssetsPCICustomersFrom)
|
||||
Get
|
||||
Return GetCollection(Of AssetsPCICustomersFrom)("AssetsPCICustomersFrom")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
+153
@@ -0,0 +1,153 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class AssetsPCIRows
|
||||
Inherits BaseObject
|
||||
Private _AssetsPCIHeader As AssetsPCIHeader 'Kapcsolódó fejléc
|
||||
Private _CustomersFrom As CustomersFrom 'Saját cég
|
||||
Private _Customers As Customers 'Partner
|
||||
Private _PartnerType As ePartnerType 'Partner tipusa, mindig 0
|
||||
Private _ConnectInfo As String 'Pontozási info
|
||||
Private _CurrencyName As CurrencyName 'Devizanem
|
||||
Private _DateExecution As Date 'Teljesítés dátuma
|
||||
Private _DateCreated As Date 'Kiáll. dátuma
|
||||
Private _DatePayment As Date 'Fizetési határidõ
|
||||
Private _DelayedDay As Long 'Késett nap
|
||||
Private _AmountHUF_Account As Double 'Számla eredeti bruttó összege
|
||||
Private _AmountDEV_Account As Double 'Számla eredeti bruttó összege
|
||||
Private _BallanceHUF As Double 'Egyenleg HUF
|
||||
Private _BallanceDEV As Double 'Egyenleg DEV
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Association("AssetsPCIHeader-AssetsPCIRows", GetType(AssetsPCIHeader))> _
|
||||
Property AssetsPCIHeader As AssetsPCIHeader
|
||||
Get
|
||||
Return _AssetsPCIHeader
|
||||
End Get
|
||||
Set(ByVal value As AssetsPCIHeader)
|
||||
SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom() As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers() As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ConnectInfo() As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName() As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DatePayment As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DelayedDay As Long
|
||||
Get
|
||||
Return _DelayedDay
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("DelayedDay", _DelayedDay, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceDEV As Double
|
||||
Get
|
||||
Return _BallanceDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceTotal", _BallanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF_Account As Double
|
||||
Get
|
||||
Return _AmountHUF_Account
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV_Account As Double
|
||||
Get
|
||||
Return _AmountDEV_Account
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
+404
@@ -0,0 +1,404 @@
|
||||
Partial Class AssetsPCIVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aGenerateAssetsReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttachments_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintAssetsHandling2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewLateCharges = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCountLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aNoAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintAssetsHandling3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewCPBAssetsPCIRows_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewCPBAssetsHandling_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCIDW_AssetsPCIRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPCIGenerate_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aAssetsHandling_CreateSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aAssetsHandling_GroupChange = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aViewLateCharges_AssetsHandling = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateLateChargesDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aRemoveLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGenerateAssetsReport
|
||||
'
|
||||
Me.aGenerateAssetsReport.Caption = "Generate report"
|
||||
Me.aGenerateAssetsReport.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aGenerateAssetsReport.Id = "aGenerateAssetsReport"
|
||||
Me.aGenerateAssetsReport.ImageName = "stopwatch_run"
|
||||
Me.aGenerateAssetsReport.Shortcut = Nothing
|
||||
Me.aGenerateAssetsReport.Tag = Nothing
|
||||
Me.aGenerateAssetsReport.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateAssetsReport.TargetViewId = "AssetsPCIHeader_DetailView"
|
||||
Me.aGenerateAssetsReport.ToolTip = Nothing
|
||||
Me.aGenerateAssetsReport.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateAssetsHandling
|
||||
'
|
||||
Me.aCreateAssetsHandling.Caption = "aCreate Assets Handling"
|
||||
Me.aCreateAssetsHandling.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateAssetsHandling.Id = "aCreateAssetsHandling"
|
||||
Me.aCreateAssetsHandling.ImageName = "cube_green_new"
|
||||
Me.aCreateAssetsHandling.Shortcut = Nothing
|
||||
Me.aCreateAssetsHandling.Tag = Nothing
|
||||
Me.aCreateAssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateAssetsHandling.TargetViewId = "AssetsPCIHeader_DetailView"
|
||||
Me.aCreateAssetsHandling.ToolTip = Nothing
|
||||
Me.aCreateAssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttachments_AssetsHandling
|
||||
'
|
||||
Me.aViewAttachments_AssetsHandling.Caption = "View attachments"
|
||||
Me.aViewAttachments_AssetsHandling.ConfirmationMessage = Nothing
|
||||
Me.aViewAttachments_AssetsHandling.Id = "aViewAttachments_AssetsHandling"
|
||||
Me.aViewAttachments_AssetsHandling.ImageName = "printer_view"
|
||||
Me.aViewAttachments_AssetsHandling.Shortcut = Nothing
|
||||
Me.aViewAttachments_AssetsHandling.Tag = Nothing
|
||||
Me.aViewAttachments_AssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttachments_AssetsHandling.TargetViewId = "AssetsPCIHeader_AssetsPCIRows_ListView"
|
||||
Me.aViewAttachments_AssetsHandling.ToolTip = Nothing
|
||||
Me.aViewAttachments_AssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintAssetsHandling
|
||||
'
|
||||
Me.aPrintAssetsHandling.Caption = "Print I."
|
||||
Me.aPrintAssetsHandling.ConfirmationMessage = "Do you want to print ?"
|
||||
Me.aPrintAssetsHandling.Id = "aPrintAssetsHandling"
|
||||
Me.aPrintAssetsHandling.ImageName = "Action_Printing_Print"
|
||||
Me.aPrintAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPrintAssetsHandling.Shortcut = Nothing
|
||||
Me.aPrintAssetsHandling.Tag = Nothing
|
||||
Me.aPrintAssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintAssetsHandling.TargetViewId = ""
|
||||
Me.aPrintAssetsHandling.ToolTip = Nothing
|
||||
Me.aPrintAssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintAssetsHandling2
|
||||
'
|
||||
Me.aPrintAssetsHandling2.Caption = "Print II."
|
||||
Me.aPrintAssetsHandling2.ConfirmationMessage = "Do you want to print ?"
|
||||
Me.aPrintAssetsHandling2.Id = "aPrintAssetsHandling2"
|
||||
Me.aPrintAssetsHandling2.ImageName = "Action_Printing_Print"
|
||||
Me.aPrintAssetsHandling2.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPrintAssetsHandling2.Shortcut = Nothing
|
||||
Me.aPrintAssetsHandling2.Tag = Nothing
|
||||
Me.aPrintAssetsHandling2.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintAssetsHandling2.TargetViewId = ""
|
||||
Me.aPrintAssetsHandling2.ToolTip = Nothing
|
||||
Me.aPrintAssetsHandling2.TypeOfView = Nothing
|
||||
'
|
||||
'aViewLateCharges
|
||||
'
|
||||
Me.aViewLateCharges.AcceptButtonCaption = Nothing
|
||||
Me.aViewLateCharges.CancelButtonCaption = Nothing
|
||||
Me.aViewLateCharges.Caption = "View Late Charges"
|
||||
Me.aViewLateCharges.ConfirmationMessage = Nothing
|
||||
Me.aViewLateCharges.Id = "aViewLateCharges"
|
||||
Me.aViewLateCharges.ImageName = Nothing
|
||||
Me.aViewLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewLateCharges.Shortcut = Nothing
|
||||
Me.aViewLateCharges.Tag = Nothing
|
||||
Me.aViewLateCharges.TargetObjectsCriteria = Nothing
|
||||
Me.aViewLateCharges.TargetViewId = ""
|
||||
Me.aViewLateCharges.ToolTip = Nothing
|
||||
Me.aViewLateCharges.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateLateCharges
|
||||
'
|
||||
Me.aCreateLateCharges.Caption = "aCreate Late Charges"
|
||||
Me.aCreateLateCharges.Category = "ObjectsCreation"
|
||||
Me.aCreateLateCharges.ConfirmationMessage = Nothing
|
||||
Me.aCreateLateCharges.Id = "aCreateLateCharges"
|
||||
Me.aCreateLateCharges.ImageName = Nothing
|
||||
Me.aCreateLateCharges.Shortcut = Nothing
|
||||
Me.aCreateLateCharges.Tag = Nothing
|
||||
Me.aCreateLateCharges.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateLateCharges.TargetViewId = ""
|
||||
Me.aCreateLateCharges.ToolTip = Nothing
|
||||
Me.aCreateLateCharges.TypeOfView = Nothing
|
||||
'
|
||||
'aCountLateCharges
|
||||
'
|
||||
Me.aCountLateCharges.Caption = "aCount Late Charges"
|
||||
Me.aCountLateCharges.Category = "ObjectsCreation"
|
||||
Me.aCountLateCharges.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCountLateCharges.Id = "aCountLateCharges"
|
||||
Me.aCountLateCharges.ImageName = Nothing
|
||||
Me.aCountLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCountLateCharges.Shortcut = Nothing
|
||||
Me.aCountLateCharges.Tag = Nothing
|
||||
Me.aCountLateCharges.TargetObjectsCriteria = Nothing
|
||||
Me.aCountLateCharges.TargetViewId = ""
|
||||
Me.aCountLateCharges.ToolTip = Nothing
|
||||
Me.aCountLateCharges.TypeOfView = Nothing
|
||||
'
|
||||
'aNoAssetsHandling
|
||||
'
|
||||
Me.aNoAssetsHandling.Caption = "aNo Assets Handling"
|
||||
Me.aNoAssetsHandling.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aNoAssetsHandling.Id = "aNoAssetsHandling"
|
||||
Me.aNoAssetsHandling.ImageName = Nothing
|
||||
Me.aNoAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aNoAssetsHandling.Shortcut = Nothing
|
||||
Me.aNoAssetsHandling.Tag = Nothing
|
||||
Me.aNoAssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aNoAssetsHandling.TargetViewId = ""
|
||||
Me.aNoAssetsHandling.ToolTip = Nothing
|
||||
Me.aNoAssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintAssetsHandling3
|
||||
'
|
||||
Me.aPrintAssetsHandling3.Caption = "Print III."
|
||||
Me.aPrintAssetsHandling3.ConfirmationMessage = "Do you want to print ?"
|
||||
Me.aPrintAssetsHandling3.Id = "aPrintAssetsHandling3"
|
||||
Me.aPrintAssetsHandling3.ImageName = "Action_Printing_Print"
|
||||
Me.aPrintAssetsHandling3.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPrintAssetsHandling3.Shortcut = Nothing
|
||||
Me.aPrintAssetsHandling3.Tag = Nothing
|
||||
Me.aPrintAssetsHandling3.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintAssetsHandling3.TargetViewId = Nothing
|
||||
Me.aPrintAssetsHandling3.ToolTip = Nothing
|
||||
Me.aPrintAssetsHandling3.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintLateChargesDocument
|
||||
'
|
||||
Me.aPrintLateChargesDocument.Caption = "aPrint Late Charges Document"
|
||||
Me.aPrintLateChargesDocument.ConfirmationMessage = Nothing
|
||||
Me.aPrintLateChargesDocument.Id = "aPrintLateChargesDocument"
|
||||
Me.aPrintLateChargesDocument.ImageName = Nothing
|
||||
Me.aPrintLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aPrintLateChargesDocument.Shortcut = Nothing
|
||||
Me.aPrintLateChargesDocument.Tag = Nothing
|
||||
Me.aPrintLateChargesDocument.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
|
||||
Me.aPrintLateChargesDocument.ToolTip = Nothing
|
||||
Me.aPrintLateChargesDocument.TypeOfView = Nothing
|
||||
'
|
||||
'aViewCPBAssetsPCIRows_ListView
|
||||
'
|
||||
Me.aViewCPBAssetsPCIRows_ListView.Caption = "aViewCPBAssetsPCIRows_ListView"
|
||||
Me.aViewCPBAssetsPCIRows_ListView.ConfirmationMessage = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.Id = "aViewCPBAssetsPCIRows_ListView"
|
||||
Me.aViewCPBAssetsPCIRows_ListView.ImageName = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewCPBAssetsPCIRows_ListView.Shortcut = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.Tag = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.TargetObjectsCriteria = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
|
||||
Me.aViewCPBAssetsPCIRows_ListView.TargetViewId = ""
|
||||
Me.aViewCPBAssetsPCIRows_ListView.ToolTip = Nothing
|
||||
Me.aViewCPBAssetsPCIRows_ListView.TypeOfView = Nothing
|
||||
'
|
||||
'aViewCPBAssetsHandling_ListView
|
||||
'
|
||||
Me.aViewCPBAssetsHandling_ListView.Caption = "aViewCPBAssetsHandling_ListView"
|
||||
Me.aViewCPBAssetsHandling_ListView.ConfirmationMessage = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.Id = "aViewCPBAssetsHandling_ListView"
|
||||
Me.aViewCPBAssetsHandling_ListView.ImageName = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewCPBAssetsHandling_ListView.Shortcut = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.Tag = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.TargetObjectsCriteria = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
|
||||
Me.aViewCPBAssetsHandling_ListView.TargetViewId = ""
|
||||
Me.aViewCPBAssetsHandling_ListView.ToolTip = Nothing
|
||||
Me.aViewCPBAssetsHandling_ListView.TypeOfView = Nothing
|
||||
'
|
||||
'aViewPCIDW_AssetsPCIRows
|
||||
'
|
||||
Me.aViewPCIDW_AssetsPCIRows.Caption = "aViewPCIDW_AssetsPCIRows"
|
||||
Me.aViewPCIDW_AssetsPCIRows.ConfirmationMessage = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.Id = "aViewPCIDW_AssetsPCIRows"
|
||||
Me.aViewPCIDW_AssetsPCIRows.ImageName = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCIDW_AssetsPCIRows.Shortcut = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.Tag = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.TargetObjectsCriteria = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
|
||||
Me.aViewPCIDW_AssetsPCIRows.TargetViewId = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.ToolTip = Nothing
|
||||
Me.aViewPCIDW_AssetsPCIRows.TypeOfView = Nothing
|
||||
'
|
||||
'aPCIGenerate_AssetsHandling
|
||||
'
|
||||
Me.aPCIGenerate_AssetsHandling.Caption = "aPCIGenerate_AssetsHandling"
|
||||
Me.aPCIGenerate_AssetsHandling.Category = "ObjectsCreation"
|
||||
Me.aPCIGenerate_AssetsHandling.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aPCIGenerate_AssetsHandling.Id = "aPCIGenerate_AssetsHandling"
|
||||
Me.aPCIGenerate_AssetsHandling.ImageName = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPCIGenerate_AssetsHandling.Shortcut = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.Tag = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCIRows)
|
||||
Me.aPCIGenerate_AssetsHandling.TargetViewId = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.ToolTip = Nothing
|
||||
Me.aPCIGenerate_AssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aAssetsHandling_CreateSendEmailQueue
|
||||
'
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.Caption = "aAssetsHandling_CreateSendEmailQueue"
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.ConfirmationMessage = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.Id = "aAssetsHandling_CreateSendEmailQueue"
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.ImageName = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.Shortcut = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.Tag = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectsCriteria = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.TargetViewId = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.ToolTip = Nothing
|
||||
Me.aAssetsHandling_CreateSendEmailQueue.TypeOfView = Nothing
|
||||
'
|
||||
'aAssetsHandling_RemoveSendEmailQueue
|
||||
'
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.Caption = "aAssetsHandling_RemoveSendEmailQueue"
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.ConfirmationMessage = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.Id = "aAssetsHandling_RemoveSendEmailQueue"
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.ImageName = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.Shortcut = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.Tag = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectsCriteria = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.TargetViewId = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.ToolTip = Nothing
|
||||
Me.aAssetsHandling_RemoveSendEmailQueue.TypeOfView = Nothing
|
||||
'
|
||||
'aAssetsHandling_GroupChange
|
||||
'
|
||||
Me.aAssetsHandling_GroupChange.AcceptButtonCaption = Nothing
|
||||
Me.aAssetsHandling_GroupChange.CancelButtonCaption = Nothing
|
||||
Me.aAssetsHandling_GroupChange.Caption = "aAssetsHandling_GroupChange"
|
||||
Me.aAssetsHandling_GroupChange.ConfirmationMessage = Nothing
|
||||
Me.aAssetsHandling_GroupChange.Id = "aAssetsHandling_GroupChange"
|
||||
Me.aAssetsHandling_GroupChange.ImageName = Nothing
|
||||
Me.aAssetsHandling_GroupChange.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aAssetsHandling_GroupChange.Shortcut = Nothing
|
||||
Me.aAssetsHandling_GroupChange.Tag = Nothing
|
||||
Me.aAssetsHandling_GroupChange.TargetObjectsCriteria = Nothing
|
||||
Me.aAssetsHandling_GroupChange.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
|
||||
Me.aAssetsHandling_GroupChange.TargetViewId = Nothing
|
||||
Me.aAssetsHandling_GroupChange.ToolTip = Nothing
|
||||
Me.aAssetsHandling_GroupChange.TypeOfView = Nothing
|
||||
'
|
||||
'aViewLateCharges_AssetsHandling
|
||||
'
|
||||
Me.aViewLateCharges_AssetsHandling.AcceptButtonCaption = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.CancelButtonCaption = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.Caption = "View Late Charges"
|
||||
Me.aViewLateCharges_AssetsHandling.ConfirmationMessage = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.Id = "aViewLateCharges_AssetsHandling"
|
||||
Me.aViewLateCharges_AssetsHandling.ImageName = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewLateCharges_AssetsHandling.Shortcut = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.Tag = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.TargetObjectsCriteria = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.TargetObjectType = GetType(Nuvolar.[Module].AssetsHandling)
|
||||
Me.aViewLateCharges_AssetsHandling.TargetViewId = ""
|
||||
Me.aViewLateCharges_AssetsHandling.ToolTip = Nothing
|
||||
Me.aViewLateCharges_AssetsHandling.TypeOfView = Nothing
|
||||
'
|
||||
'aSelectCustomersFromAssetsHandlingPCI
|
||||
'
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.AcceptButtonCaption = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.CancelButtonCaption = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.Caption = "Select CustomersFrom"
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.ConfirmationMessage = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.Id = "aSelectCustomersFromAssetsHandlingPCI"
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.ImageName = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.Shortcut = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.Tag = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectsCriteria = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectType = GetType(Nuvolar.[Module].AssetsPCICustomersFrom)
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewId = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.ToolTip = Nothing
|
||||
Me.aSelectCustomersFromAssetsHandlingPCI.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCreateLateChargesDocument
|
||||
'
|
||||
Me.aCreateLateChargesDocument.AcceptButtonCaption = Nothing
|
||||
Me.aCreateLateChargesDocument.CancelButtonCaption = Nothing
|
||||
Me.aCreateLateChargesDocument.Caption = "aCreate Late Charges Document"
|
||||
Me.aCreateLateChargesDocument.ConfirmationMessage = Nothing
|
||||
Me.aCreateLateChargesDocument.Id = "aCreateLateChargesDocument"
|
||||
Me.aCreateLateChargesDocument.ImageName = Nothing
|
||||
Me.aCreateLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCreateLateChargesDocument.Shortcut = Nothing
|
||||
Me.aCreateLateChargesDocument.Tag = Nothing
|
||||
Me.aCreateLateChargesDocument.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateLateChargesDocument.TargetObjectType = GetType(Nuvolar.[Module].PCIGroup)
|
||||
Me.aCreateLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
|
||||
Me.aCreateLateChargesDocument.ToolTip = Nothing
|
||||
Me.aCreateLateChargesDocument.TypeOfView = Nothing
|
||||
'
|
||||
'aRemoveLateChargesDocument
|
||||
'
|
||||
Me.aRemoveLateChargesDocument.Caption = "aRemove Late Charges Document"
|
||||
Me.aRemoveLateChargesDocument.ConfirmationMessage = "Do you want to execute ?"
|
||||
Me.aRemoveLateChargesDocument.Id = "aRemoveLateChargesDocument"
|
||||
Me.aRemoveLateChargesDocument.ImageName = Nothing
|
||||
Me.aRemoveLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aRemoveLateChargesDocument.Shortcut = Nothing
|
||||
Me.aRemoveLateChargesDocument.Tag = Nothing
|
||||
Me.aRemoveLateChargesDocument.TargetObjectsCriteria = Nothing
|
||||
Me.aRemoveLateChargesDocument.TargetObjectType = GetType(Nuvolar.[Module].PCIGroup)
|
||||
Me.aRemoveLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay"
|
||||
Me.aRemoveLateChargesDocument.ToolTip = Nothing
|
||||
Me.aRemoveLateChargesDocument.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGenerateAssetsReport As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttachments_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintAssetsHandling2 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewLateCharges As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateLateCharges As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCountLateCharges As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aNoAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewCPBAssetsPCIRows_ListView As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewCPBAssetsHandling_ListView As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCIDW_AssetsPCIRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPCIGenerate_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aAssetsHandling_CreateSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aAssetsHandling_RemoveSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aAssetsHandling_GroupChange As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aViewLateCharges_AssetsHandling As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aSelectCustomersFromAssetsHandlingPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aPrintAssetsHandling3 As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateLateChargesDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aRemoveLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+189
@@ -0,0 +1,189 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aGenerateAssetsReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>194, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttachments_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>834, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>460, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintAssetsHandling2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>660, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aViewLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>509, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>349, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCountLateCharges.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>959, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aNoAssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>191, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintAssetsHandling3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>905, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aViewCPBAssetsPCIRows_ListView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>723, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aViewCPBAssetsHandling_ListView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>257, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCIDW_AssetsPCIRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>515, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aPCIGenerate_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>301, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aAssetsHandling_CreateSendEmailQueue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>719, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aAssetsHandling_RemoveSendEmailQueue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aAssetsHandling_GroupChange.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>496, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewLateCharges_AssetsHandling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aSelectCustomersFromAssetsHandlingPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>627, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>243, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aRemoveLateChargesDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1435
File diff suppressed because it is too large
Load Diff
+114
@@ -0,0 +1,114 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class InstallmentPayment 'Részletfizetési megállapodás
|
||||
Inherits BaseObject
|
||||
Private _InvoiceHeader As InvoiceHeader
|
||||
Private _DatePayment As Date
|
||||
Private _AmountHUF As Double
|
||||
Private _AmountDEV As Double
|
||||
Private _NoteRow As String
|
||||
Private _Active As Boolean
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
_UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property InvoiceHeader As InvoiceHeader
|
||||
Get
|
||||
Return _InvoiceHeader
|
||||
End Get
|
||||
Set(value As InvoiceHeader)
|
||||
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DatePayment As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV As Double
|
||||
Get
|
||||
Return _AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Active", _Active, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+151
@@ -0,0 +1,151 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Xpo.DB
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class LateCharges
|
||||
Inherits BaseObject
|
||||
Private _InvoiceHeader As InvoiceHeader 'Aktuális számla
|
||||
Private _DateExecution As Date 'Dátum
|
||||
Private _CapitalBalanceHUF As Double 'Tõke egyenleg HUF
|
||||
Private _CapitalBalanceDEV As Double 'Tõke egyenleg DEV
|
||||
Private _LateChargesBalanceHUF As Double ' Késedelmi kamat egyenleg HUF
|
||||
Private _LateChargesBalanceDEV As Double ' Késedelmi kamat egyenleg DEV
|
||||
Private _CostBalanceHUF As Double ' Egyéb költség
|
||||
Private _CostBalanceDEV As Double
|
||||
Private _DebitHUF As Double
|
||||
Private _DebitDEV As Double
|
||||
Private _CreditHUF As Double
|
||||
Private _CreditDEV As Double
|
||||
Private _CostNote As String
|
||||
Private _CurrentLateChargesPercent As Double
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property InvoiceHeader As InvoiceHeader
|
||||
Get
|
||||
Return _InvoiceHeader
|
||||
End Get
|
||||
Set(value As InvoiceHeader)
|
||||
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CapitalBalanceHUF As Double
|
||||
Get
|
||||
Return _CapitalBalanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CapitalBalanceHUF", _CapitalBalanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CapitalBalanceDEV As Double
|
||||
Get
|
||||
Return _CapitalBalanceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CapitalBalanceDEV", _CapitalBalanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LateChargesBalanceHUF As Double
|
||||
Get
|
||||
Return _LateChargesBalanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LateChargesBalanceDEV As Double
|
||||
Get
|
||||
Return _LateChargesBalanceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("LateChargesBalanceDEV", _LateChargesBalanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostBalanceHUF As Double
|
||||
Get
|
||||
Return _CostBalanceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CostBalanceHUF", _CostBalanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostBalanceDEV As Double
|
||||
Get
|
||||
Return _CostBalanceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CostBalanceDEV", _CostBalanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitHUF As Double
|
||||
Get
|
||||
Return _DebitHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DebitHUF", _DebitHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitDEV As Double
|
||||
Get
|
||||
Return _DebitDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DebitDEV", _DebitDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditHUF As Double
|
||||
Get
|
||||
Return _CreditHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CreditHUF", _CreditHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditDEV As Double
|
||||
Get
|
||||
Return _CreditDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CreditDEV", _CreditDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostNote As String
|
||||
Get
|
||||
Return _CostNote
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("CostNote", _CostNote, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrentLateChargesPercent As Double
|
||||
Get
|
||||
Return _CurrentLateChargesPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CurrentLateChargesPercent", _CurrentLateChargesPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+53
@@ -0,0 +1,53 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Public Enum eLCCountMode
|
||||
eFix = 0
|
||||
eVariable = 1
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class LateChargesCountMode
|
||||
Inherits BaseObject
|
||||
Private _LCCountMode As eLCCountMode 'Számítás módja
|
||||
Private _LCValue As Double ' Érték. Ha LCCountMode=0 akkor a késedelmi kamat %-os mértéke pld 6%, ha 1 akkor ? szorosa a kamattörzsnek pld 2
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property LCCountMode As eLCCountMode
|
||||
Get
|
||||
Return _LCCountMode
|
||||
End Get
|
||||
Set(value As eLCCountMode)
|
||||
SetPropertyValue("LCCountMode", _LCCountMode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LCValue As Double
|
||||
Get
|
||||
Return _LCValue
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("LCValue", _LCValue, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+30
@@ -0,0 +1,30 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NonPersistent, NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class LateChargesPopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property DateCreated As Date
|
||||
End Class
|
||||
+78
@@ -0,0 +1,78 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable UserCreated-BankImportHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
<Appearance("Disable ObjectCreated-BankImportHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
Public Class BankImportHeader 'Banki kivonat betöltõ fejléc
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String 'Banki elektronikus kivonat megnevezése
|
||||
Private _FileData As FileData 'Elektronikus kivonat file.
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
Private _UserCreated As User 'Létrehozta
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileData As FileData
|
||||
Get
|
||||
Return _FileData
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("FileData", _FileData, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Association("BankImportHeader-BankImportHeaderSum", GetType(BankImportHeaderSum)), VisibleInListView(False)> _
|
||||
ReadOnly Property BankImportHeaderSum As XPCollection(Of BankImportHeaderSum)
|
||||
Get
|
||||
Return GetCollection(Of BankImportHeaderSum)("BankImportHeaderSum")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+137
@@ -0,0 +1,137 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class BankImportHeaderSum
|
||||
Inherits BaseObject
|
||||
Private _BankImportHeader As BankImportHeader
|
||||
Private _DateOpen As Date 'Nyitó dátumn
|
||||
Private _DateClose As Date 'Záró dátum
|
||||
Private _AccountNumber As String 'Bankszámlaszám amire a kivonat szól (saját számláink egyike)
|
||||
Private _CurrencyName As CurrencyName 'Deviza
|
||||
Private _AmountOpen As Double 'Nyitó összeg
|
||||
Private _AmountClose As Double 'Záró összeg
|
||||
Private _DocumentNumber As String 'Kionat száma
|
||||
Private _LiquidAssets As LiquidAssets ' Saját pénzeszközünk !!!
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Association("BankImportHeader-BankImportHeaderSum", GetType(BankImportHeader))> _
|
||||
Property BankImportHeader As BankImportHeader
|
||||
Get
|
||||
Return _BankImportHeader
|
||||
End Get
|
||||
Set(value As BankImportHeader)
|
||||
SetPropertyValue("BankImportHeader", _BankImportHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateOpen As Date
|
||||
Get
|
||||
Return _DateOpen
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateOpen", _DateOpen, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateClose As Date
|
||||
Get
|
||||
Return _DateClose
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateClose", _DateClose, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountNumber As String
|
||||
Get
|
||||
Return _AccountNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("AccountNumber", _AccountNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountOpen As Double
|
||||
Get
|
||||
Return _AmountOpen
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountOpen", _AmountOpen, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountClose As Double
|
||||
Get
|
||||
Return _AmountClose
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountClose", _AmountClose, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LiquidAssets As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets", _LiquidAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("BankImportHeaderSum-BankImportHeaderSumDetail", GetType(BankImportHeaderSumDetail))> _
|
||||
ReadOnly Property BankImportHeaderSumDetail As XPCollection(Of BankImportHeaderSumDetail)
|
||||
Get
|
||||
Return GetCollection(Of BankImportHeaderSumDetail)("BankImportHeaderSumDetail")
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property GLBank As GLBank
|
||||
Get
|
||||
Dim _GLBank As GLBank
|
||||
_GLBank = Session.FindObject(Of GLBank)(CriteriaOperator.Parse("BankImportHeaderSum.Oid=?", Me.Oid))
|
||||
Return _GLBank
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property GLRows As XPCollection(Of GLRows)
|
||||
Get
|
||||
If GLBank Is Nothing Then
|
||||
Return Nothing
|
||||
Else
|
||||
Return New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("GLHeader.Oid=?", GLBank.Oid))
|
||||
End If
|
||||
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property BankImportNameParameters As XPCollection(Of BankImportNameParameters)
|
||||
Get
|
||||
Return New XPCollection(Of BankImportNameParameters)(Session)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+90
@@ -0,0 +1,90 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
'<DeferredDeletion(False)> _ 'Foreign key miatt ez nem jó.
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class BankImportHeaderSumDetail
|
||||
Inherits BaseObject
|
||||
Private _BankImportHeader As BankImportHeader
|
||||
Private _BankImportHeaderSum As BankImportHeaderSum
|
||||
Private _NoteRow As String 'Sorhoz tartozó közlemény
|
||||
Private _AccountNumber As String 'Bankszámla
|
||||
Private _PartnerString As String 'Partner azonosítása
|
||||
Private _DebitAmount As Double
|
||||
Private _CreditAmount As Double
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Property BankImportHeader As BankImportHeader
|
||||
Get
|
||||
Return _BankImportHeader
|
||||
|
||||
End Get
|
||||
Set(value As BankImportHeader)
|
||||
SetPropertyValue("BankImportHeader", _BankImportHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("BankImportHeaderSum-BankImportHeaderSumDetail", GetType(BankImportHeaderSum))> _
|
||||
Property BankImportHeaderSum As BankImportHeaderSum
|
||||
Get
|
||||
Return _BankImportHeaderSum
|
||||
End Get
|
||||
Set(value As BankImportHeaderSum)
|
||||
SetPropertyValue("BankImportHeaderSum", _BankImportHeaderSum, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountNumber As String
|
||||
Get
|
||||
Return _AccountNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("AccountNumber", _AccountNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property PartnerString As String
|
||||
Get
|
||||
Return _PartnerString
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("PartnerString", _PartnerString, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitAmount As Double
|
||||
Get
|
||||
Return _DebitAmount
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DebitAmount", _DebitAmount, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditAmount As Double
|
||||
Get
|
||||
Return _CreditAmount
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CreditAmount", _CreditAmount, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+52
@@ -0,0 +1,52 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialStocks")> _
|
||||
Public Class BankImportNameParameters
|
||||
Inherits BaseObject
|
||||
Private _NoteRow As String 'Sorhoz tartozó közlemény
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _Controlling As Controlling
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+576
@@ -0,0 +1,576 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports DevExpress.Xpo.DB
|
||||
'<Appearance("Disable, all properties when IsEditable = False GLBank",
|
||||
' AppearanceItemType:="ViewItem",
|
||||
' TargetItems:="*",
|
||||
' Criteria:="IsEditable=False",
|
||||
' Enabled:=False,
|
||||
' Context:="DetailView")> _
|
||||
<DefaultClassOptions()>
|
||||
<NavigationItem("FinancialTransactions")>
|
||||
<DefaultProperty("DisplayName")>
|
||||
<Appearance("Hide properties if Correction",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountDEV;row_CurrencyRate2;row_CurrencyRate;row_CurrencyName2;row_AmountDEV2",
|
||||
Criteria:="row_TransactionType in (5,6)",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_AmountDEV in GLBank",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountDEV",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName = 'HUF'",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_CurrencyRate in GLBank",
|
||||
TargetItems:="row_CurrencyRate",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName = 'HUF' and row_CurrencyName2.ShortName='HUF'",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_CurrencyRate2 in GLBank",
|
||||
TargetItems:="row_CurrencyRate2",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_CurrencyRate2 in GLBank and HUF",
|
||||
TargetItems:="row_CurrencyRate2",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName ='HUF' or row_CurrencyName2.ShortName='HUF'",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("ChartOfAccounts-hide",
|
||||
TargetItems:="row_ChartOfAccounts",
|
||||
Criteria:="row_TransactionType in (0,1) OR IsEditable=False",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Normal transactions hide",
|
||||
TargetItems:="row_CurrencyName2;row_CurrencyRate2",
|
||||
Criteria:="row_TransactionType in (2,3,4) OR IsEditable=False",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Partnerconnection-hide",
|
||||
TargetItems:="row_PCIGroup;row_PartnerType",
|
||||
Criteria:="row_TransactionType in (2,3) OR IsEditable=False",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide GLCassa-LiquidAssets",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="LiquidAssets_Main",
|
||||
Criteria:="(IsNull(LiquidAssets_Main))=False",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide DEV info in HUF",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="TotalInAmountDEV;TotalOutAmountDEV;BallanceDEV;CloseDEV",
|
||||
Criteria:="CurrencyName.ShortName='HUF'",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide HUF info in DEV",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="TotalInAmountHUF;TotalOutAmountHUF;BallanceHUF;CloseHUF",
|
||||
Criteria:="CurrencyName.ShortName!='HUF'",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Disable GLBank.row_AmountHUF when DEV != HUF",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountHUF",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName != 'HUF' and not (row_TransactionType in (5,6))",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide row_Amount2 when CurrencyName2=CurrencyName",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="row_CurrencyName2.ShortName=LiquidAssets_Main.CurrencyName.ShortName",
|
||||
TargetItems:="row_CurrencyRate2;row_AmountDEV2",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_ info when IsEditable=False",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="IsEditable=False",
|
||||
TargetItems:="row_PartnerType;row_TransactionType;row_ChartOfAccounts;" +
|
||||
"row_PCIGroup;row_AmountDEV2;row_CurrencyRate;row_CurrencyRate2;row_CurrencyName2",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide aImportSavedBank when CurrencyName2=CurrencyName",
|
||||
AppearanceItemType:="Action",
|
||||
Criteria:="LiquidAssets_Main.CurrencyName.ShortName<>'HUF'",
|
||||
TargetItems:="aImportSavedBank",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide aImportPCIGroupBank when row_PartnerType=-1",
|
||||
AppearanceItemType:="Action",
|
||||
Criteria:="row_PartnerType=-1",
|
||||
TargetItems:="aImportPCIGroupBank",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide aGetCurrencyRateBank",
|
||||
AppearanceItemType:="Action",
|
||||
TargetItems:="aGetCurrencyRateBank",
|
||||
Criteria:="CurrencyName.ShortName='HUF'",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<RuleCriteria("RuleCriteria GLAccounts-row_ChartOfAccounts", "aToTable_GLBank_Contexts", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class GLBank
|
||||
Inherits GLHeader
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _TransactionType As eTransactionType
|
||||
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _TotalInAmountHUF As Double = 0
|
||||
Private _TotalOutAmountHUF As Double = 0
|
||||
Private _TotalInAmountDEV As Double = 0
|
||||
Private _TotalOutAmountDEV As Double = 0
|
||||
Private _LiquidAssets As LiquidAssets
|
||||
Private _BallanceHUF As Double
|
||||
Private _BallanceDEV As Double
|
||||
Private _PCIGroup As PCIGroup
|
||||
Private _GLHeader_RateDiff As GLHeader 'Kapcsolódó árf. kül. elszámolási vegyes bizonylat
|
||||
|
||||
'-- A másodlagos
|
||||
Private _row_CurrencyRate As Double
|
||||
Private _row_AmountDEV2 As Double = 0
|
||||
Private _row_CurrencyRate2 As Double = 0
|
||||
Private _row_CurrencyName2 As CurrencyName
|
||||
Private _BankImportHeaderSum As BankImportHeaderSum
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Session.IsNewObject(Me) Then
|
||||
Me.GLDocumentType = eGLDocumentType.eGLBank
|
||||
Me.DateExecution = Now
|
||||
Me.row_PartnerType = ePartnerType.eNotSet
|
||||
Me.row_TransactionType = eTransactionType.eNotSet
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
<RuleValueComparison("GLBank-row_PartnerType", "aToTable_GLBank_Contexts", ValueComparisonType.NotEquals, ePartnerType.eNotSet, TargetCriteria:="row_TransactionType in (0,1)")> _
|
||||
Property row_PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("row_PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
<RuleValueComparison("GLBank-row_TransactionType", "aToTable_GLBank_Contexts", ValueComparisonType.NotEquals, eTransactionType.eNotSet)> _
|
||||
Property row_TransactionType() As eTransactionType
|
||||
Get
|
||||
Return _TransactionType
|
||||
End Get
|
||||
Set(ByVal value As eTransactionType)
|
||||
SetPropertyValue("row_TransactionType", _TransactionType, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If LiquidAssets_Main IsNot Nothing Then
|
||||
Select Case row_TransactionType
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet, eTransactionType.eCorrectionCreditHUF, eTransactionType.eCorrectionDebitHUF
|
||||
row_PartnerType = ePartnerType.eNotSet
|
||||
row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
Case eTransactionType.ePartnerCredit
|
||||
row_PartnerType = ePartnerType.eReceivables
|
||||
Case eTransactionType.ePartnerDebit
|
||||
row_PartnerType = ePartnerType.ePayabels
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<RuleRequiredField("GLBank-row_ChartOfAccounts", "aToTable_GLBank_Contexts", TargetCriteria:="row_TransactionType in (2,3,4)")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_ChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and PartnerType='@This.row_PartnerType' and BallanceState=0 and isnull(CurrencyName_Account)=False ")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_PCIGroup() As PCIGroup
|
||||
Get
|
||||
Return _PCIGroup
|
||||
End Get
|
||||
Set(ByVal value As PCIGroup)
|
||||
SetPropertyValue("row_PCIGroup", _PCIGroup, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value IsNot Nothing Then
|
||||
row_ConnectInfo = value.ConnectInfo
|
||||
row_Customer = value.Customers
|
||||
row_PartnerType = value.PartnerType
|
||||
If value.CurrencyName_Account Is Nothing Then
|
||||
If Me.CurrencyName.ShortName = "HUF" Then
|
||||
Me.row_AmountHUF = Math.Abs(value.BallanceHUF)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
|
||||
End If
|
||||
Else
|
||||
If value.CurrencyName_Account.ShortName = "HUF" Then
|
||||
If Me.CurrencyName.ShortName = "HUF" Then
|
||||
Me.row_AmountHUF = Math.Abs(value.BallanceHUF)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
|
||||
End If
|
||||
Else
|
||||
If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then
|
||||
Me.row_AmountDEV = Math.Abs(value.BallanceDEV)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("LiquidAssetsType=1 and CustomerFrom='@This.CustomersFrom'")>
|
||||
<RuleRequiredField("GLBank-LiquidAssets_Cassa", "aFinal_GLBank_Context")> _
|
||||
<RuleRequiredField("GLBank-LiquidAssets_Cassa2", "aFinalAndNew_GLBank_Context")> _
|
||||
<VisibleInListView(False)> _
|
||||
Property LiquidAssets_Main() As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets_Main", _LiquidAssets, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
row_LiquidAssets = value
|
||||
row_CurrencyName2 = value.CurrencyName
|
||||
If value IsNot Nothing Then
|
||||
|
||||
Me.CurrencyName = value.CurrencyName
|
||||
Me.row_CurrencyName2 = CurrencyName
|
||||
|
||||
If Me.DateExecution > Now.AddYears(-1) Then
|
||||
BallanceHUF = GetBallanceHUF(value, Me.DateExecution)
|
||||
BallanceDEV = GetBallanceDEV(value, Me.DateExecution)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
<RuleRange("GLBank-row_CurrencyRate", "aToTable_GLBank_Contexts", 0.01, 999999, TargetCriteria:="LiquidAssets_Main.CurrencyName.ShortName != 'HUF' and not (row_TransactionType in (5,6))")> _
|
||||
Property row_CurrencyRate As Double
|
||||
Get
|
||||
Return _row_CurrencyRate
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_CurrencyRate", _row_CurrencyRate, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
|
||||
If LiquidAssets_Main.CurrencyName.ShortName = "HUF" And row_CurrencyName2.ShortName <> "HUF" Then
|
||||
If row_CurrencyRate <> 0 Then row_AmountDEV2 = Math.Round(row_AmountHUF / row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName = "HUF" Then
|
||||
row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
row_AmountDEV2 = row_AmountHUF
|
||||
End If
|
||||
If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName <> "HUF" Then
|
||||
row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_AmountDEV2 As Double
|
||||
Get
|
||||
Return _row_AmountDEV2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And _
|
||||
row_CurrencyName2.ShortName <> "HUF" And _
|
||||
LiquidAssets_Main.CurrencyName.ShortName <> row_CurrencyName2.ShortName Then
|
||||
If row_AmountDEV <> 0 Then
|
||||
row_CurrencyRate2 = Math.Round(row_AmountDEV2 / row_AmountDEV, 4, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
<RuleRange("GLBank.CurrencyName.ToTable", "aToTable_GLBank_Contexts", 0.01, 999999999999999999, _
|
||||
TargetCriteria:="LiquidAssets_Main.CurrencyName.ShortName != row_CurrencyName2.ShortName and " +
|
||||
"LiquidAssets_Main.CurrencyName.ShortName !='HUF' and " +
|
||||
"row_CurrencyName2.ShortName !='HUF'")> _
|
||||
Property row_CurrencyRate2 As Double
|
||||
Get
|
||||
Return _row_CurrencyRate2
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_CurrencyName2 As CurrencyName
|
||||
Get
|
||||
Return _row_CurrencyName2
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
row_AmountDEV2 = 0
|
||||
row_CurrencyRate2 = 0
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property TotalInAmountHUF As Double
|
||||
Get
|
||||
Return _TotalInAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountHUF As Double
|
||||
Get
|
||||
Return _TotalOutAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalInAmountDEV As Double
|
||||
Get
|
||||
Return _TotalInAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountDEV As Double
|
||||
Get
|
||||
Return _TotalOutAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceDEV As Double
|
||||
Get
|
||||
Return _BallanceDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BankImportHeaderSum As BankImportHeaderSum
|
||||
Get
|
||||
Return _BankImportHeaderSum
|
||||
End Get
|
||||
Set(value As BankImportHeaderSum)
|
||||
SetPropertyValue("BankImportHeaderSum", _BankImportHeaderSum, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLHeader_RateDiff As GLHeader
|
||||
Get
|
||||
Return _GLHeader_RateDiff
|
||||
End Get
|
||||
Set(value As GLHeader)
|
||||
SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub RecalculateTotal()
|
||||
Dim _GLRows As GLRows
|
||||
TotalInAmountHUF = 0
|
||||
TotalOutAmountHUF = 0
|
||||
TotalInAmountDEV = 0
|
||||
TotalOutAmountDEV = 0
|
||||
For Each _GLRows In Me.GLRows
|
||||
Me.TotalInAmountHUF += _GLRows.InAmountHUF
|
||||
Me.TotalOutAmountHUF += _GLRows.OutAmountHUF
|
||||
Me.TotalInAmountDEV += _GLRows.InAmountDEV
|
||||
Me.TotalOutAmountDEV += _GLRows.OutAmountDEV
|
||||
Next
|
||||
Me.Save()
|
||||
End Sub
|
||||
ReadOnly Property CloseHUF As Double
|
||||
Get
|
||||
Return BallanceHUF + TotalInAmountHUF - TotalOutAmountHUF
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property CloseDEV As Double
|
||||
Get
|
||||
Return BallanceDEV + TotalInAmountDEV - TotalOutAmountDEV
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
If Me.LiquidAssets_Main IsNot Nothing Then
|
||||
Return Me.LiquidAssets_Main.ShortName
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<RuleValueComparison("GLBank-row_AmountDEV", "aToTable_GLBank_Contexts", ValueComparisonType.GreaterThan, 0, TargetCriteria:="CurrencyName.ShortName != 'HUF' and not (row_TransactionType in (5,6))")> _
|
||||
Overrides Property row_AmountDEV As Double
|
||||
Get
|
||||
Return MyBase.row_AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
MyBase.row_AmountDEV = value
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
If Me.row_CurrencyRate > 0 Then
|
||||
Me.row_AmountHUF = value * Me.row_CurrencyRate
|
||||
End If
|
||||
If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" Then
|
||||
If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then
|
||||
Else
|
||||
row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLBank-row_Customers", "aToTable_GLBank_Contexts", TargetCriteria:="row_TransactionType in (0,1)")> _
|
||||
<ImmediatePostData(True)> _
|
||||
Overrides Property row_Customer As Customers
|
||||
Get
|
||||
Return MyBase.row_Customer
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
MyBase.row_Customer = value
|
||||
End Set
|
||||
End Property
|
||||
Overrides Property row_Controlling As Controlling
|
||||
Get
|
||||
Return MyBase.row_Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
MyBase.row_Controlling = value
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If value.ChartOfAccounts IsNot Nothing Then
|
||||
|
||||
row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceHUF As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Main AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLBank t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Main=@Bank AND "
|
||||
_SQL += " DATE(t2.DateExecution)<=@Date"
|
||||
Dim _stringparam() As String = New String() {"@Bank", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceHUF = row.Values(1)
|
||||
Next row
|
||||
Return _BallanceHUF
|
||||
End Function
|
||||
Function GetBallanceOpenHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceHUF As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Main AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLBank t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Main=@Bank AND "
|
||||
_SQL += " DATE(t2.DateExecution)<@Date"
|
||||
Dim _stringparam() As String = New String() {"@Bank", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceHUF = row.Values(1)
|
||||
Next row
|
||||
Return _BallanceHUF
|
||||
End Function
|
||||
Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceDEV As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Main AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLBank t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Main=@Bank AND "
|
||||
_SQL += " DATE(t2.DateExecution)<=@Date"
|
||||
Dim _stringparam() As String = New String() {"@Bank", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceDEV = row.Values(2)
|
||||
Next row
|
||||
Return _BallanceDEV
|
||||
|
||||
End Function
|
||||
Function GetBallanceOpenDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceDEV As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Main AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLBank t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Main=@Bank AND "
|
||||
_SQL += " DATE(t2.DateExecution)<@Date"
|
||||
Dim _stringparam() As String = New String() {"@Bank", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceDEV = row.Values(2)
|
||||
Next row
|
||||
Return _BallanceDEV
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
+136
@@ -0,0 +1,136 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class BankParameterDEV
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom '-- Saját cég
|
||||
Private _BankCost As eBankCost '-- Ki fizeti az utalást
|
||||
Private _CurrencyName As CurrencyName '-- A teljesítés milyen devizában legyen
|
||||
Private _Ref As String '-- Referencia string
|
||||
Private _Urgent As Boolean = False '-- Sürgõs vagy nem
|
||||
Private _DateExecution As Date '-- Teljesítés dátuma
|
||||
Private _BankInformation As BankInformation '-- Milyen számlaszámról menjen az utalás
|
||||
Private _FolderName As String
|
||||
Private _TransferCount As Long '? db számlát akar utalni
|
||||
Private _TransferTotalHUF As Double '? az utalni kívánt tételek összege
|
||||
Private _TransferTotalDEV As Double '? az utalni mkívánt tételek összege devizában
|
||||
Private _CustomFileName As String 'Opciós, ha meg van adva, akkor ez lesz a letöltéskori file neve
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
CustomFileName = ""
|
||||
End Sub
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Property BankCost As eBankCost
|
||||
Get
|
||||
Return _BankCost
|
||||
End Get
|
||||
Set(ByVal value As eBankCost)
|
||||
SetPropertyValue("BankCost", _BankCost, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("BankParameterDEV-CurrencyName", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Urgent As Boolean
|
||||
Get
|
||||
Return _Urgent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("Urgent", _Urgent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("BankParameterDEV-BankInformation", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("LiquidAssests.CustomerFrom='@This.CustomersFrom'")>
|
||||
Property BankInformation As BankInformation
|
||||
Get
|
||||
Return _BankInformation
|
||||
End Get
|
||||
Set(ByVal value As BankInformation)
|
||||
SetPropertyValue("BankInformation", _BankInformation, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property FolderName As String
|
||||
Get
|
||||
Return _FolderName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("FolderName", _FolderName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TransferCount As Long
|
||||
Get
|
||||
Return _TransferCount
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("TransferCount", _TransferCount, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TransferTotalHUF As Double
|
||||
Get
|
||||
Return _TransferTotalHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TransferTotalHUF", _TransferTotalHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TransferTotalDEV As Double
|
||||
Get
|
||||
Return _TransferTotalDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TransferTotalDEV", _TransferTotalDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomFileName As String
|
||||
Get
|
||||
Return _CustomFileName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("CustomFileName", _CustomFileName, value)
|
||||
End Set
|
||||
End Property
|
||||
Public ReadOnly Property PCIGroup As XPCollection(Of PCIGroup)
|
||||
Get
|
||||
Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse("PartnerType=1 and BallanceHUF<0"))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+262
@@ -0,0 +1,262 @@
|
||||
Partial Class GLBankVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aRecalculateBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalAndNew_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportSavedBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFinal_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGenerateGLBankRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLBankDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aToTableD_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aMakeEditable_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportPCIGroupBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aPCICheckBankTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGetCurrencyRateBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aRecalculateBallance
|
||||
'
|
||||
Me.aRecalculateBallance.Caption = "Recalculate ballance"
|
||||
Me.aRecalculateBallance.ConfirmationMessage = Nothing
|
||||
Me.aRecalculateBallance.Id = "aRecalculateBallance"
|
||||
Me.aRecalculateBallance.ImageName = Nothing
|
||||
Me.aRecalculateBallance.Shortcut = Nothing
|
||||
Me.aRecalculateBallance.Tag = Nothing
|
||||
Me.aRecalculateBallance.TargetObjectsCriteria = Nothing
|
||||
Me.aRecalculateBallance.TargetObjectType = GetType(Nuvolar.[Module].GLBank)
|
||||
Me.aRecalculateBallance.TargetViewId = Nothing
|
||||
Me.aRecalculateBallance.ToolTip = Nothing
|
||||
Me.aRecalculateBallance.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalAndNew_GLBank
|
||||
'
|
||||
Me.aFinalAndNew_GLBank.Caption = "aFinalAndNew_GLBank"
|
||||
Me.aFinalAndNew_GLBank.Category = "ObjectsCreation"
|
||||
Me.aFinalAndNew_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aFinalAndNew_GLBank.Id = "aFinalAndNew_GLBank"
|
||||
Me.aFinalAndNew_GLBank.ImageName = "MenuBar_SaveAndNew"
|
||||
Me.aFinalAndNew_GLBank.Shortcut = Nothing
|
||||
Me.aFinalAndNew_GLBank.Tag = Nothing
|
||||
Me.aFinalAndNew_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalAndNew_GLBank.TargetObjectType = GetType(Nuvolar.[Module].GLBank)
|
||||
Me.aFinalAndNew_GLBank.TargetViewId = Nothing
|
||||
Me.aFinalAndNew_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalAndNew_GLBank.ToolTip = Nothing
|
||||
Me.aFinalAndNew_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aImportSavedBank
|
||||
'
|
||||
Me.aImportSavedBank.AcceptButtonCaption = Nothing
|
||||
Me.aImportSavedBank.CancelButtonCaption = Nothing
|
||||
Me.aImportSavedBank.Caption = "Get exported "
|
||||
Me.aImportSavedBank.Category = "aImportSavedBank"
|
||||
Me.aImportSavedBank.ConfirmationMessage = Nothing
|
||||
Me.aImportSavedBank.Id = "aImportSavedBank"
|
||||
Me.aImportSavedBank.ImageName = Nothing
|
||||
Me.aImportSavedBank.Shortcut = Nothing
|
||||
Me.aImportSavedBank.Tag = Nothing
|
||||
Me.aImportSavedBank.TargetObjectsCriteria = Nothing
|
||||
Me.aImportSavedBank.TargetViewId = "GLBank_DetailView"
|
||||
Me.aImportSavedBank.ToolTip = Nothing
|
||||
Me.aImportSavedBank.TypeOfView = Nothing
|
||||
'
|
||||
'aFinal_GLBank
|
||||
'
|
||||
Me.aFinal_GLBank.Caption = "aFinal_GLBank"
|
||||
Me.aFinal_GLBank.Category = "ObjectsCreation"
|
||||
Me.aFinal_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aFinal_GLBank.Id = "aFinal_GLBank"
|
||||
Me.aFinal_GLBank.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aFinal_GLBank.Shortcut = Nothing
|
||||
Me.aFinal_GLBank.Tag = Nothing
|
||||
Me.aFinal_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aFinal_GLBank.TargetObjectType = GetType(Nuvolar.[Module].GLBank)
|
||||
Me.aFinal_GLBank.TargetViewId = Nothing
|
||||
Me.aFinal_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinal_GLBank.ToolTip = Nothing
|
||||
Me.aFinal_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aToTable_GLBank
|
||||
'
|
||||
Me.aToTable_GLBank.Caption = "aToTable"
|
||||
Me.aToTable_GLBank.Category = "aToTable_GLBank"
|
||||
Me.aToTable_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLBank.Id = "aToTable_GLBank"
|
||||
Me.aToTable_GLBank.ImageName = Nothing
|
||||
Me.aToTable_GLBank.Shortcut = Nothing
|
||||
Me.aToTable_GLBank.Tag = Nothing
|
||||
Me.aToTable_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_GLBank.TargetObjectType = GetType(Nuvolar.[Module].GLBank)
|
||||
Me.aToTable_GLBank.TargetViewId = ""
|
||||
Me.aToTable_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_GLBank.ToolTip = Nothing
|
||||
Me.aToTable_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGenerateGLBankRateDiff
|
||||
'
|
||||
Me.aGenerateGLBankRateDiff.Caption = "Generate rate diff"
|
||||
Me.aGenerateGLBankRateDiff.Category = "ObjectsCreation"
|
||||
Me.aGenerateGLBankRateDiff.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aGenerateGLBankRateDiff.Id = "aGenerateGLBankRateDiff"
|
||||
Me.aGenerateGLBankRateDiff.ImageName = "money"
|
||||
Me.aGenerateGLBankRateDiff.Shortcut = Nothing
|
||||
Me.aGenerateGLBankRateDiff.Tag = Nothing
|
||||
Me.aGenerateGLBankRateDiff.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateGLBankRateDiff.TargetViewId = "GLBank_ListView"
|
||||
Me.aGenerateGLBankRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGenerateGLBankRateDiff.ToolTip = Nothing
|
||||
Me.aGenerateGLBankRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGLBankDivideRows
|
||||
'
|
||||
Me.aGLBankDivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLBankDivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLBankDivideRows.Caption = "Divide rows"
|
||||
Me.aGLBankDivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLBankDivideRows.Id = "aGLBankDivideRows"
|
||||
Me.aGLBankDivideRows.ImageName = "row_add_after"
|
||||
Me.aGLBankDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBankDivideRows.Shortcut = Nothing
|
||||
Me.aGLBankDivideRows.Tag = Nothing
|
||||
Me.aGLBankDivideRows.TargetObjectsCriteria = Nothing
|
||||
Me.aGLBankDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Bank"
|
||||
Me.aGLBankDivideRows.ToolTip = Nothing
|
||||
Me.aGLBankDivideRows.TypeOfView = Nothing
|
||||
'
|
||||
'aToTableD_GLBank
|
||||
'
|
||||
Me.aToTableD_GLBank.Caption = "Delete row"
|
||||
Me.aToTableD_GLBank.Category = "aToTableD_GLBank"
|
||||
Me.aToTableD_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLBank.Id = "aToTableD_GLBank"
|
||||
Me.aToTableD_GLBank.ImageName = Nothing
|
||||
Me.aToTableD_GLBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_GLBank.Shortcut = Nothing
|
||||
Me.aToTableD_GLBank.Tag = Nothing
|
||||
Me.aToTableD_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_GLBank.TargetViewId = "GLBank_DetailView"
|
||||
Me.aToTableD_GLBank.ToolTip = Nothing
|
||||
Me.aToTableD_GLBank.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToRowEdit_GLBank
|
||||
'
|
||||
Me.aBackToRowEdit_GLBank.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_GLBank.Category = "aBackToRowEdit_GLBank"
|
||||
Me.aBackToRowEdit_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_GLBank.Id = "aBackToRowEdit_GLBank"
|
||||
Me.aBackToRowEdit_GLBank.ImageName = Nothing
|
||||
Me.aBackToRowEdit_GLBank.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_GLBank.Tag = Nothing
|
||||
Me.aBackToRowEdit_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_GLBank.TargetViewId = "GLBank_DetailView"
|
||||
Me.aBackToRowEdit_GLBank.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_GLBank.TypeOfView = Nothing
|
||||
'
|
||||
'aMakeEditable_GLBank
|
||||
'
|
||||
Me.aMakeEditable_GLBank.Caption = "aMakeEditable_GLBank"
|
||||
Me.aMakeEditable_GLBank.Category = "ObjectsCreation"
|
||||
Me.aMakeEditable_GLBank.ConfirmationMessage = Nothing
|
||||
Me.aMakeEditable_GLBank.Id = "aMakeEditable_GLBank"
|
||||
Me.aMakeEditable_GLBank.ImageName = "Images.replace2.png"
|
||||
Me.aMakeEditable_GLBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aMakeEditable_GLBank.Shortcut = Nothing
|
||||
Me.aMakeEditable_GLBank.Tag = Nothing
|
||||
Me.aMakeEditable_GLBank.TargetObjectsCriteria = Nothing
|
||||
Me.aMakeEditable_GLBank.TargetViewId = Nothing
|
||||
Me.aMakeEditable_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aMakeEditable_GLBank.ToolTip = Nothing
|
||||
Me.aMakeEditable_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aImportPCIGroupBank
|
||||
'
|
||||
Me.aImportPCIGroupBank.AcceptButtonCaption = Nothing
|
||||
Me.aImportPCIGroupBank.CancelButtonCaption = Nothing
|
||||
Me.aImportPCIGroupBank.Caption = "Get exported "
|
||||
Me.aImportPCIGroupBank.Category = "aImportPCIGroupBank"
|
||||
Me.aImportPCIGroupBank.ConfirmationMessage = Nothing
|
||||
Me.aImportPCIGroupBank.Id = "aImportPCIGroupBank"
|
||||
Me.aImportPCIGroupBank.ImageName = Nothing
|
||||
Me.aImportPCIGroupBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aImportPCIGroupBank.Shortcut = Nothing
|
||||
Me.aImportPCIGroupBank.Tag = Nothing
|
||||
Me.aImportPCIGroupBank.TargetObjectsCriteria = Nothing
|
||||
Me.aImportPCIGroupBank.TargetViewId = "GLBank_DetailView"
|
||||
Me.aImportPCIGroupBank.ToolTip = Nothing
|
||||
Me.aImportPCIGroupBank.TypeOfView = Nothing
|
||||
'
|
||||
'aPCICheckBankTransfer
|
||||
'
|
||||
Me.aPCICheckBankTransfer.Caption = "aPCICheck Bank Transfer"
|
||||
Me.aPCICheckBankTransfer.Category = "RecordEdit"
|
||||
Me.aPCICheckBankTransfer.ConfirmationMessage = Nothing
|
||||
Me.aPCICheckBankTransfer.Id = "aPCICheckBankTransfer"
|
||||
Me.aPCICheckBankTransfer.ImageName = Nothing
|
||||
Me.aPCICheckBankTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPCICheckBankTransfer.Shortcut = Nothing
|
||||
Me.aPCICheckBankTransfer.Tag = Nothing
|
||||
Me.aPCICheckBankTransfer.TargetObjectsCriteria = Nothing
|
||||
Me.aPCICheckBankTransfer.TargetObjectType = GetType(Nuvolar.[Module].RegistryBankTransferView)
|
||||
Me.aPCICheckBankTransfer.TargetViewId = Nothing
|
||||
Me.aPCICheckBankTransfer.ToolTip = Nothing
|
||||
Me.aPCICheckBankTransfer.TypeOfView = Nothing
|
||||
'
|
||||
'aGetCurrencyRateBank
|
||||
'
|
||||
Me.aGetCurrencyRateBank.Caption = "aGet Currency Rate Bank"
|
||||
Me.aGetCurrencyRateBank.Category = "aGetCurrencyRateBank"
|
||||
Me.aGetCurrencyRateBank.ConfirmationMessage = Nothing
|
||||
Me.aGetCurrencyRateBank.Id = "aGetCurrencyRateBank"
|
||||
Me.aGetCurrencyRateBank.ImageName = Nothing
|
||||
Me.aGetCurrencyRateBank.Shortcut = Nothing
|
||||
Me.aGetCurrencyRateBank.Tag = Nothing
|
||||
Me.aGetCurrencyRateBank.TargetObjectsCriteria = Nothing
|
||||
Me.aGetCurrencyRateBank.TargetObjectType = GetType(Nuvolar.[Module].GLBank)
|
||||
Me.aGetCurrencyRateBank.TargetViewId = Nothing
|
||||
Me.aGetCurrencyRateBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGetCurrencyRateBank.ToolTip = Nothing
|
||||
Me.aGetCurrencyRateBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aRecalculateBallance As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalAndNew_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportSavedBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aFinal_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTable_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGenerateGLBankRateDiff As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLBankDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aToTableD_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aMakeEditable_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportPCIGroupBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aPCICheckBankTransfer As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGetCurrencyRateBank As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+162
@@ -0,0 +1,162 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aRecalculateBallance.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalAndNew_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>181, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aImportSavedBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>357, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aFinal_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>690, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>992, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateGLBankRateDiff.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1139, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aGLBankDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>179, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>335, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aMakeEditable_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>522, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aImportPCIGroupBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>819, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aPCICheckBankTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>511, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aGetCurrencyRateBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>699, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+911
@@ -0,0 +1,911 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.IO
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
|
||||
Public Class GLBankVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected selection As ArrayList
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
selection = New ArrayList()
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
End If
|
||||
If View.Id = "GLBank_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Dim _GLBank As GLBank = TryCast(View.CurrentObject, GLBank)
|
||||
If _GLBank Is Nothing Then
|
||||
Else
|
||||
|
||||
If _GLBank.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
|
||||
Frame.GetController(Of GLBankVC).aFinal_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aFinalAndNew_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aToTable_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aToTableD_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aBackToRowEdit_GLBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aImportSavedBank.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aImportPCIGroupBank.Active.SetItemValue("", False)
|
||||
|
||||
Else
|
||||
If _ocur.Session.IsNewObject(_GLBank) = False Then
|
||||
|
||||
_GLBank.BallanceHUF = _GLBank.GetBallanceOpenHUF(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
_GLBank.BallanceDEV = _GLBank.GetBallanceOpenDEV(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
_GLBank.RecalculateTotal()
|
||||
|
||||
End If
|
||||
End If
|
||||
If _GLBank.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If View.Id = "GLBank_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLBank_ListView_Editable" Then
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLBank_DeleteAction_Executed
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_HUF" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
|
||||
'If View.Id = "PCIGroup_ListView_Find" Then
|
||||
' Dim ListView As ListView = TryCast(View, ListView)
|
||||
' ListView.CollectionSource.Criteria.Clear()
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLBank_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
End If
|
||||
If View.Id = "PCIGroup_ListView_HUF" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
If View Is Nothing Then Exit Sub
|
||||
If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
Dim _GLBankPrepareName As GLBankPrepareName
|
||||
Dim _GLBankPrepareNameGroup As GLBankPrepareNameGroup
|
||||
_GLBankPrepareName = TryCast(cs.MasterObject, GLBankPrepareName)
|
||||
|
||||
If _GLBankPrepareName IsNot Nothing Then
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
_GLBankPrepareNameGroup = TryCast(View.SelectedObjects(0), GLBankPrepareNameGroup)
|
||||
If _GLBankPrepareNameGroup IsNot Nothing Then
|
||||
_GLBankPrepareName.BankPrepareName = _GLBankPrepareNameGroup.BankPrepareName
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim _GLBank As GLBank = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLBank)
|
||||
If _GLBank.IsEditable = False Then
|
||||
Frame.GetController(Of GLBankVC).aToTable_GLBank.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aMakeEditable_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLBank.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
If _GLBank IsNot Nothing Then
|
||||
|
||||
_GLBank.IsEditable = True
|
||||
_ocur.CommitChanges()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLBank_DetailView", True, _onew.GetObject(_GLBank))
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFinalAndNew_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLBank.Execute
|
||||
GLBank_Final(e)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLBank_Finalized = _onew.GetObject(TryCast(e.SelectedObjects(0), GLBank))
|
||||
Dim _GLBank As GLBank = _onew.CreateObject(Of GLBank)()
|
||||
|
||||
_GLBank.CustomersFrom = _GLBank_Finalized.CustomersFrom
|
||||
_GLBank.LiquidAssets_Main = _GLBank_Finalized.LiquidAssets_Main
|
||||
_GLBank.DateExecution = _GLBank_Finalized.DateExecution
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLBank)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.Current
|
||||
|
||||
End Sub
|
||||
Private Sub aToTable_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLBank.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _GLHeader As GLHeader = TryCast(_GLBank, GLHeader)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GUID As Guid = Guid.NewGuid()
|
||||
Dim _CashType As eCashType
|
||||
|
||||
If _GLBank Is Nothing Then Exit Sub
|
||||
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
|
||||
If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Or _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_CashType = eCashType.ePartner
|
||||
If _GLBank.row_PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
ElseIf _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
End If
|
||||
Else
|
||||
If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn)
|
||||
ElseIf _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
_CashType = eCashType.eNormal
|
||||
If _GLBank.row_TransactionType = eTransactionType.eNormalCredit Or _GLBank.row_TransactionType = eTransactionType.eCorrectionCreditHUF Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.row_ChartOfAccounts
|
||||
Else
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLBank.row_ChartOfAccounts
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
End If
|
||||
|
||||
End If
|
||||
Select Case _GLBank.row_TransactionType
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit, eTransactionType.eCorrectionCreditHUF
|
||||
_GLRows.CreditAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.CreditAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.DebitAmountHUF = 0
|
||||
_GLRows.DebitAmountDEV = 0
|
||||
_GLRows.InAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.InAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.InAmountDEV2 = _GLBank.row_AmountDEV2
|
||||
_GLRows.CurrencyRate2 = _GLBank.row_CurrencyRate2
|
||||
Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit, eTransactionType.eCorrectionDebitHUF
|
||||
_GLRows.DebitAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.DebitAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.OutAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.OutAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.OutAmountDEV2 = _GLBank.row_AmountDEV2
|
||||
_GLRows.CurrencyRate2 = _GLBank.row_CurrencyRate2
|
||||
End Select
|
||||
_GLRows.PartnerType = _GLBank.row_PartnerType
|
||||
|
||||
_GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _
|
||||
_GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLBank.LiquidAssets_Main, _
|
||||
_GLHeader.row_Customer, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
|
||||
_GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _
|
||||
_GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _
|
||||
_GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
|
||||
_GLBank.row_TransactionType, _CashType, _GLBank.row_PartnerType)
|
||||
_GLBank.RecalculateTotal()
|
||||
_GLBank.GetBallanceDEV(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
_GLBank.GetBallanceHUF(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'--- Pontozás ellenőrzése !!!! ----------------------------------------------------------------------------------------------------------------
|
||||
Select Case _GLBank.row_TransactionType
|
||||
Case eTransactionType.ePartnerCredit, eTransactionType.ePartnerDebit
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End Select
|
||||
|
||||
'----------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
_GLBank.row_NoteRows = ""
|
||||
_GLBank.row_AmountDEV = 0
|
||||
_GLBank.row_AmountHUF = 0
|
||||
_GLBank.row_PCIGroup = Nothing
|
||||
_GLBank.row_Customer = Nothing
|
||||
_GLBank.row_ConnectInfo = ""
|
||||
_GLBank.row_ChartOfAccounts = Nothing
|
||||
_GLBank.row_AmountDEV2 = 0
|
||||
_GLBank.row_CurrencyRate2 = 0
|
||||
|
||||
'// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!----------------------------------------------------------------
|
||||
|
||||
Dim _Action As IModelAction
|
||||
Dim _IModelActionExtender As IModelActionExtender
|
||||
For Each _Action In Application.Model.ActionDesign.Actions
|
||||
If _Action.Id = e.Action.Id Then
|
||||
_IModelActionExtender = TryCast(_Action, IModelActionExtender)
|
||||
If _IModelActionExtender IsNot Nothing Then
|
||||
If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then
|
||||
Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem)
|
||||
If ItemToFocus IsNot Nothing Then
|
||||
Dim ItemControl As Object
|
||||
ItemControl = ItemToFocus.Control
|
||||
ItemControl.Focus()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
'--------------------------------------------------------------------------------------------------------
|
||||
|
||||
View.Refresh()
|
||||
|
||||
End Sub
|
||||
Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLBank.Execute
|
||||
GLBank_Final(e)
|
||||
View.Close(False)
|
||||
End Sub
|
||||
|
||||
#Region "SIS"
|
||||
Public Sub GLBank_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank As GLBank = TryCast(e.SelectedObjects(0), GLBank)
|
||||
Dim _GLRows As GLRows
|
||||
For Each _GLBank In e.SelectedObjects
|
||||
If _GLBank.GLRows.Count <= 0 Then
|
||||
Throw New Exception("*Nincs rögzített sor !")
|
||||
End If
|
||||
For Each _GLRows In _GLBank.GLRows
|
||||
_GLRows.LiquidAssets = _GLBank.LiquidAssets_Main
|
||||
Next
|
||||
|
||||
_GLBank.GetBallanceHUF(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
_GLBank.GetBallanceDEV(_GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
_GLBank.IsEditable = False
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'// Az összes sorra vonatkozó pontozás újragenerálása, mert változhat a dátum !
|
||||
For Each _GLRows In _GLBank.GLRows
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
Next
|
||||
|
||||
If _GLBank.CurrencyName.ShortName <> "HUF" Then
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GenerateCurrencyRateAverageStart(_uow, _GLBank.DateExecution.Year, _GLBank)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GenerateCurrencyRateAverageStart(_uow As UnitOfWork, _Year As Long, _GLBank As GLBank)
|
||||
|
||||
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows) _
|
||||
(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _
|
||||
CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _
|
||||
_GLBank.LiquidAssets_Main.Oid, New Date(_Year, 1, 1)))
|
||||
|
||||
Dim _GLRows As GLRows
|
||||
Dim _SumAmountDEV As Double = 0
|
||||
Dim _SumAmountHUF As Double = 0
|
||||
Dim _LiquidAssetsRate As LiquidAssetsRate = _uow.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("LiquidAssets.oid=? and GetYear(DateExecution)=?", _
|
||||
_GLBank.LiquidAssets_Main.Oid, _
|
||||
_Year))
|
||||
If _LiquidAssetsRate IsNot Nothing Then
|
||||
_SumAmountDEV = _LiquidAssetsRate.AmountDEV
|
||||
_SumAmountHUF = _LiquidAssetsRate.AmountHUF
|
||||
Else
|
||||
'// HA NINCS BEÁLLÍTVA AKKOR NEM FUT LE !"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
_GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending))
|
||||
_GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending))
|
||||
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
'// A deviza a fix és az MNB árfolyammal újra kell számolni mindent
|
||||
RaiseEvent DoWork()
|
||||
If _GLRows.InAmountDEV > 0 Then
|
||||
Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
|
||||
(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
|
||||
_GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
|
||||
_CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
|
||||
If _CurrencyRate_MNB_Collection.Count > 0 Then
|
||||
For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
|
||||
If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
|
||||
_GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero)
|
||||
_GLRows.AmountHUF = _GLRows.InAmountHUF
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
_uow.CommitChanges()
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows) _
|
||||
(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _
|
||||
CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _
|
||||
_GLBank.LiquidAssets_Main.Oid, New Date(_Year, 1, 1)))
|
||||
|
||||
_GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending))
|
||||
_GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending))
|
||||
_GLRows_Collection.Sorting.Add(New SortProperty("OutAmountDEV", DB.SortingDirection.Ascending))
|
||||
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
|
||||
'// Árfolyamok helyrerakása
|
||||
If _GLRows.OutAmountDEV > 0 Then
|
||||
If _SumAmountDEV <> 0 Then
|
||||
_GLRows.OutAmountHUF = Math.Round(_GLRows.OutAmountDEV * (_SumAmountHUF / _SumAmountDEV), 2, MidpointRounding.AwayFromZero)
|
||||
_GLRows.AmountHUF = _GLRows.OutAmountHUF
|
||||
_GLRows.Save()
|
||||
_uow.CommitChanges()
|
||||
|
||||
If _GLRows.PartnerType <> ePartnerType.eNotSet Then
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
_uow.CommitChanges()
|
||||
End If
|
||||
Else
|
||||
Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
|
||||
(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
|
||||
_GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
|
||||
_CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
|
||||
If _CurrencyRate_MNB_Collection.Count > 0 Then
|
||||
For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
|
||||
If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
|
||||
_GLRows.OutAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero)
|
||||
_GLRows.AmountHUF = _GLRows.OutAmountHUF
|
||||
_GLRows.Save()
|
||||
_uow.CommitChanges()
|
||||
If _GLRows.PartnerType <> ePartnerType.eNotSet Then
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
_uow.CommitChanges()
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
_SumAmountDEV -= Math.Round(_GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero)
|
||||
_SumAmountHUF -= Math.Round(_GLRows.OutAmountHUF, 2, MidpointRounding.AwayFromZero)
|
||||
|
||||
If _SumAmountDEV < 0 Then _SumAmountDEV = 0
|
||||
If _SumAmountHUF < 0 Then _SumAmountHUF = 0
|
||||
Else
|
||||
_SumAmountDEV += Math.Round(_GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero)
|
||||
_SumAmountHUF += Math.Round(_GLRows.InAmountHUF, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub aToTableD_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLBank.Execute
|
||||
'Törli a táblázatban lévő sort
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GUID As Guid
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
Dim i As Long
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
Dim _Customers As Customers
|
||||
Dim _PartnerType As ePartnerType
|
||||
Dim _ConnectInfo As String
|
||||
|
||||
|
||||
_GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows")
|
||||
|
||||
_GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows)
|
||||
|
||||
If _GLRows.GLRowsRateDiff IsNot Nothing Then
|
||||
Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GUID = _GLRows.GLRowsGUID
|
||||
selection.Clear()
|
||||
For Each _GLRows In _GLBank.GLRows
|
||||
If _GLRows.GLRowsGUID = _GUID Then
|
||||
selection.Add(_GLRows)
|
||||
End If
|
||||
Next
|
||||
For i = 0 To selection.Count - 1
|
||||
_GLRows = TryCast(selection(i), GLRows)
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersFrom = _GLBank.CustomersFrom
|
||||
_Customers = _GLRows.Customer
|
||||
_ConnectInfo = _GLRows.ConnectInfo
|
||||
_PartnerType = _GLRows.PartnerType
|
||||
End If
|
||||
_GLRows.Delete()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo)
|
||||
|
||||
Next
|
||||
_GLBank.RecalculateTotal()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLBank.Execute
|
||||
'Visszatölti a sort editáláshoz
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
Dim _PCIGroup As PCIGroup
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
Dim _Customers As Customers
|
||||
Dim _PartnerType As ePartnerType
|
||||
Dim _ConnectInfo As String
|
||||
|
||||
_GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows")
|
||||
_GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
If _GLRows.GLRowsRateDiff IsNot Nothing Then
|
||||
Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
_GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLBank.CurrencyName.ShortName))
|
||||
_PCIGroup = _ocur.FindObject(Of PCIGroup) _
|
||||
(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? ", _GLRows.GLHeader.CustomersFrom, _
|
||||
_GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True)
|
||||
If _PCIGroup IsNot Nothing Then
|
||||
_GLBank.row_PCIGroup = _PCIGroup
|
||||
If _PCIGroup.CurrencyName_Account Is Nothing Then
|
||||
_GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName.ShortName))
|
||||
Else
|
||||
_GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName_Account.ShortName))
|
||||
End If
|
||||
|
||||
If _GLBank.row_CurrencyName2 Is Nothing Then
|
||||
_GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLBank.CurrencyName.ShortName))
|
||||
End If
|
||||
End If
|
||||
|
||||
_GLBank.row_TransactionType = _GLRows.TransactionType
|
||||
_GLBank.row_PartnerType = _GLRows.PartnerType
|
||||
_GLBank.row_Customer = _GLRows.Customer
|
||||
_GLBank.row_ConnectInfo = _GLRows.ConnectInfo
|
||||
|
||||
_GLBank.row_NoteRows = _GLRows.NoteRows
|
||||
_GLBank.row_CurrencyRate = _GLRows.CurrencyRate
|
||||
_GLBank.row_CurrencyRate2 = _GLRows.CurrencyRate2
|
||||
|
||||
If _GLRows.InAmountHUF > 0 Then
|
||||
_GLBank.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_GLBank.row_AmountDEV2 = _GLRows.InAmountDEV2
|
||||
Else
|
||||
_GLBank.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_GLBank.row_AmountDEV2 = _GLRows.OutAmountDEV2
|
||||
End If
|
||||
|
||||
selection.Clear()
|
||||
Dim _GLRows_GUID_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRows.GLRowsGUID))
|
||||
Dim _AmountDEV As Double = 0
|
||||
Dim _AmountHUF As Double = 0
|
||||
For Each _GLRows In _GLRows_GUID_Collection
|
||||
_AmountDEV += _GLRows.AmountDEV
|
||||
_AmountHUF += _GLRows.AmountHUF
|
||||
selection.Add(_GLRows)
|
||||
Next
|
||||
_GLBank.row_AmountDEV = _AmountDEV
|
||||
_GLBank.row_AmountHUF = _AmountHUF
|
||||
|
||||
For i = 0 To selection.Count - 1
|
||||
_GLRows = TryCast(selection(i), GLRows)
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersFrom = _GLBank.CustomersFrom
|
||||
_Customers = _GLRows.Customer
|
||||
_ConnectInfo = _GLRows.ConnectInfo
|
||||
_PartnerType = _GLRows.PartnerType
|
||||
End If
|
||||
_GLRows.Delete()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo)
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aImportSavedBank_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportSavedBank.CustomizePopupWindowParams
|
||||
Dim _GLBank As GLBank = View.SelectedObjects(0)
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As New CollectionSource(_onew, GetType(RegistryBankTransferView))
|
||||
Dim _RegistryBankTransferviewCollection As XPCollection = _onew.CreateCollection(GetType(RegistryBankTransferView), _
|
||||
CriteriaOperator.Parse("BankSavedFileName !='' and RegistryHeader.CustomersFrom=? and (BallanceHUF <> 0 Or BallanceDEV <> 0)", _onew.GetObject(_GLBank.CustomersFrom)))
|
||||
Dim _KeyCollection As Collection = New Collection()
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView
|
||||
For Each _RegistryBankTransferView In _RegistryBankTransferviewCollection
|
||||
_KeyCollection.Add(_RegistryBankTransferView.Oid)
|
||||
Next
|
||||
Dim _InOperator As New InOperator("Oid", _KeyCollection)
|
||||
_CS.BeginUpdateCriteria()
|
||||
|
||||
_CS.Criteria.Clear()
|
||||
_CS.Criteria("First") = _InOperator
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("RegistryBankTransfer_ListView_Import", _CS, False)
|
||||
e.View.Refresh()
|
||||
End Sub
|
||||
Private Sub aImportSavedBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportSavedBank.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader)
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _RegistryBankTransfer_view_onew As RegistryBankTransferView
|
||||
Dim _RegistryBankTransfer_view As RegistryBankTransferView
|
||||
Dim _RegistryBankTransfer As RegistryBankTransfer
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
Dim _GUID As Guid
|
||||
For Each _RegistryBankTransfer_view_onew In e.PopupWindow.View.SelectedObjects
|
||||
_RegistryBankTransfer_view = _ocur.GetObject(_RegistryBankTransfer_view_onew)
|
||||
_RegistryBankTransfer = _ocur.FindObject(Of RegistryBankTransfer)(CriteriaOperator.Parse("Oid=?", _RegistryBankTransfer_view.Oid))
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
_GUID = Guid.NewGuid
|
||||
_DebitChartOfAccounts = _RegistryBankTransfer.RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryBankTransfer.RegistryHeader.F_DateExecution.Year, eVATMode.eIn)
|
||||
_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_RegistryBankTransfer.RegistryHeader.F_DateExecution.Year, 0)
|
||||
_GLRows.DebitAmountHUF = _RegistryBankTransfer.AmountHUF
|
||||
_GLRows.DebitAmountDEV = _RegistryBankTransfer.AmountDEV
|
||||
_GLRows.OutAmountHUF = _RegistryBankTransfer.AmountHUF
|
||||
_GLRows.OutAmountDEV = _RegistryBankTransfer.AmountDEV
|
||||
_GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _
|
||||
_RegistryBankTransfer.AmountDEV, _RegistryBankTransfer.AmountHUF, _GLHeader.row_LiquidAssets, _
|
||||
_RegistryBankTransfer.RegistryHeader.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
|
||||
_GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _
|
||||
_GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _
|
||||
_RegistryBankTransfer.RegistryHeader.DocumentNumber, eGLRowsTypeVAT.eNettoRow, _GUID, _
|
||||
eTransactionType.ePartnerDebit, eCashType.ePartner, ePartnerType.ePayabels)
|
||||
_ocur.CommitChanges()
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLBank.CustomersFrom, _RegistryBankTransfer.RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryBankTransfer.RegistryHeader.DocumentNumber)
|
||||
|
||||
Next
|
||||
_GLBank.RecalculateTotal()
|
||||
View.Refresh()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aRecalculateBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateBallance.Execute
|
||||
Dim _LiquidAssets As LiquidAssets = TryCast(e.SelectedObjects(0), GLBank).LiquidAssets_Main
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank_Collection As New XPCollection(Of GLBank)(_ocur.Session, CriteriaOperator.Parse("LiquidAssets_Main=? and IsEditable=False ", _LiquidAssets))
|
||||
Dim _GLBank As GLBank
|
||||
Dim _GLRows As GLRows
|
||||
Dim _InAmountHUF As Double = 0
|
||||
Dim _OutAmountHUF As Double = 0
|
||||
Dim _InAmountDEV As Double = 0
|
||||
Dim _OutAmountDEV As Double = 0
|
||||
Dim I As Long = 0
|
||||
|
||||
Dim _InAmountHUF_Open As Double = 0
|
||||
Dim _OutAmountHUF_Open As Double = 0
|
||||
Dim _InAmountDEV_Open As Double = 0
|
||||
Dim _OutAmountDEV_Open As Double = 0
|
||||
|
||||
Dim _InAmountHUF_Close As Double = 0
|
||||
Dim _OutAmountHUF_Close As Double = 0
|
||||
Dim _InAmountDEV_Close As Double = 0
|
||||
Dim _OutAmountDEV_Close As Double = 0
|
||||
|
||||
Try
|
||||
GLOBAL_HAS_Audit = False
|
||||
If _LiquidAssets IsNot Nothing Then
|
||||
_GLBank_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
||||
_GLBank_Collection.Sorting.Add(New SortProperty("DocumentNumber", DB.SortingDirection.Ascending))
|
||||
_InAmountHUF = 0
|
||||
_InAmountDEV = 0
|
||||
_OutAmountHUF = 0
|
||||
_OutAmountDEV = 0
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _GLBank_Collection.Count)
|
||||
For Each _GLBank In _GLBank_Collection
|
||||
_GLBank.BallanceHUF = 0
|
||||
_GLBank.BallanceDEV = 0
|
||||
RaiseEvent DoWork()
|
||||
I += 1
|
||||
If I > 1 Then
|
||||
_GLBank.BallanceHUF = _InAmountHUF - _OutAmountHUF
|
||||
_GLBank.BallanceDEV = _InAmountDEV - _OutAmountDEV
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
|
||||
|
||||
For Each _GLRows In _GLBank.GLRows
|
||||
_InAmountDEV += _GLRows.InAmountDEV
|
||||
_InAmountHUF += _GLRows.InAmountHUF
|
||||
_OutAmountDEV += _GLRows.OutAmountDEV
|
||||
_OutAmountHUF += _GLRows.OutAmountHUF
|
||||
Next
|
||||
|
||||
_GLBank.RecalculateTotal()
|
||||
Next
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
GLOBAL_HAS_Audit = True
|
||||
RaiseEvent FinalWork
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGLBankDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBankDivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
|
||||
Else
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBankDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBankDivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGenerateGLBankRateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLBankRateDiff.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank As GLBank = TryCast(e.SelectedObjects(0), GLBank)
|
||||
|
||||
For Each _GLBank In e.SelectedObjects
|
||||
If Not _GLBank.CurrencyName.ShortName = "HUF" Then
|
||||
_GLBank.Reconfigure_RateDiff(_ocur, _GLBank)
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPCIGroupBank_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportPCIGroupBank.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup))
|
||||
|
||||
Dim _P As PCIGroup
|
||||
If _GLBank IsNot Nothing Then
|
||||
|
||||
_CollectionSource.Criteria.Clear()
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("CurrencyName_Account.ShortName=?", _GLBank.LiquidAssets_Main.CurrencyName.ShortName)
|
||||
_CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLBank.row_PartnerType)
|
||||
_CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLBank.CustomersFrom.Oid)
|
||||
If _GLBank.LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then
|
||||
_CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceHUF>0")
|
||||
Else
|
||||
_CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceDEV>0")
|
||||
End If
|
||||
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPCIGroupBank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportPCIGroupBank.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _PCIGroup As PCIGroup
|
||||
Dim _PCIGroup_P As PCIGroup
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
Dim _GLHeader As GLHeader = TryCast(_GLBank, GLHeader)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GUID As Guid
|
||||
Dim _CashType As eCashType
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
Dim _TransactionType As eTransactionType
|
||||
If _GLBank Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
For Each _PCIGroup_P In e.PopupWindow.View.SelectedObjects
|
||||
_PCIGroup = _ocur.GetObject(_PCIGroup_P)
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
_GUID = Guid.NewGuid()
|
||||
_CashType = eCashType.ePartner
|
||||
If _PCIGroup.PartnerType = ePartnerType.eReceivables Then
|
||||
_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
_TransactionType = eTransactionType.ePartnerCredit
|
||||
Else
|
||||
_DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn)
|
||||
_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_TransactionType = eTransactionType.ePartnerDebit
|
||||
End If
|
||||
|
||||
Select Case _PCIGroup.PartnerType
|
||||
Case ePartnerType.eReceivables
|
||||
|
||||
_GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.DebitAmountHUF = 0
|
||||
_GLRows.DebitAmountDEV = 0
|
||||
_GLRows.InAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.InAmountDEV = _PCIGroup.BallanceDEV
|
||||
|
||||
Case ePartnerType.ePayabels
|
||||
_GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.OutAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.OutAmountDEV = _PCIGroup.BallanceDEV
|
||||
|
||||
End Select
|
||||
_GLRows.PartnerType = _PCIGroup.PartnerType
|
||||
_GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _
|
||||
_PCIGroup.BallanceDEV, _PCIGroup.BallanceHUF, _GLBank.LiquidAssets_Main, _
|
||||
_PCIGroup.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
|
||||
_GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _
|
||||
_GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _
|
||||
_PCIGroup.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
|
||||
_TransactionType, _CashType, _PCIGroup.PartnerType)
|
||||
_GLBank.RecalculateTotal()
|
||||
_GLBank.GetBallanceDEV(_GLBank.row_LiquidAssets, _GLBank.DateExecution)
|
||||
_GLBank.GetBallanceHUF(_GLBank.row_LiquidAssets, _GLBank.DateExecution)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'--- Pontozás ellenőrzése !!!! ----------------------------------------------------------------------------------------------------------------
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub GLBank_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLBank As GLBank
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_Collection As XPCollection(Of GLRows)
|
||||
|
||||
|
||||
For Each _GLBank In TryCast(e, SimpleActionExecuteEventArgs).SelectedObjects
|
||||
'// Pontozás erre a bankra vonatkozólag törölni !
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("PartnerType<>'eNotSet' and GLHeader.Oid=?", _GLBank.Oid), True)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub aPCICheckBankTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckBankTransfer.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
|
||||
Dim _RegistryBankTransferView As RegistryBankTransferView
|
||||
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _RegistryBankTransferView In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
If _RegistryBankTransferView IsNot Nothing Then
|
||||
GLFunctions.ReconfigurePCI(_uow, _RegistryBankTransferView.RegistryHeader.CustomersFrom, _RegistryBankTransferView.RegistryHeader.Customers, 1, _RegistryBankTransferView.RegistryHeader.F_ConnectInfo)
|
||||
End If
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Sub
|
||||
|
||||
Private Sub aGetCurrencyRateBank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetCurrencyRateBank.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
|
||||
|
||||
If _GLBank IsNot Nothing Then
|
||||
_GLBank.row_CurrencyRate = _GLBank.LiquidAssets_Main.GetCurrencyRateDate(_ocur, _GLBank.row_TransactionType, _GLBank.LiquidAssets_Main, _GLBank.DateExecution)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
+128
@@ -0,0 +1,128 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<RuleCriteria("BankImportPopup-ChartOfAccounts", DefaultContexts.Save, "ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class BankImportPopup
|
||||
Inherits BaseObject
|
||||
Private _TransactionType As eTransactionType
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _Controlling As Controlling
|
||||
Private _Customers As Customers
|
||||
Private _ConnectInfo As String
|
||||
Private _AmountHUF As Double = 0
|
||||
Private _AmountDEV As Double = 0
|
||||
Private _AmountDEV2 As Double = 0
|
||||
Private _CurrencyName2 As CurrencyName
|
||||
Private _PCIGroup As PCIGroup
|
||||
Private _NoteRows As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Property TransactionType As eTransactionType
|
||||
Get
|
||||
Return _TransactionType
|
||||
End Get
|
||||
Set(value As eTransactionType)
|
||||
SetPropertyValue("TransactionType", _TransactionType, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Require BankImportPopup-ChartOfAccounts", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.PCIGroup.DateExecution_Account')")>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ConnectInfo As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV As Double
|
||||
Get
|
||||
Return _AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV2 As Double
|
||||
Get
|
||||
Return _AmountDEV2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV2", _AmountDEV2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName2 As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName2
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName2", _CurrencyName2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PCIGroup As PCIGroup
|
||||
Get
|
||||
Return _PCIGroup
|
||||
End Get
|
||||
Set(value As PCIGroup)
|
||||
SetPropertyValue("PCIGroup", _PCIGroup, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property NoteRows As String
|
||||
Get
|
||||
Return _NoteRows
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRows", _NoteRows, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+61
@@ -0,0 +1,61 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<NonPersistent()>
|
||||
Public Class GLBankPrepareName
|
||||
Inherits BaseObject
|
||||
Private _BankPrepareName As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Property BankPrepareName As String
|
||||
Get
|
||||
Return _BankPrepareName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("BankPrepareName", _BankPrepareName, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property GLBankPrepareNameGroup As XPCollection(Of GLBankPrepareNameGroup)
|
||||
Get
|
||||
Return New XPCollection(Of GLBankPrepareNameGroup)(Session)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Persistent("vv_RegistryBankTransferPrepareName")> _
|
||||
Public Class GLBankPrepareNameGroup
|
||||
Inherits XPLiteObject
|
||||
<Persistent("Oid"), Key(True)> Property Oid As String
|
||||
<Persistent("BankPrepareName")> Property BankPrepareName As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
End Class
|
||||
+213
@@ -0,0 +1,213 @@
|
||||
Partial Class GLBaseVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aGLBaseOpenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLRowsRepairYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aRepairNoDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDown_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLBaseDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLBaseOpenAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPCICheck_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewGLDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aReconfigureGLDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDeleteGLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLRowsNormalToPartner = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aUp_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLBaseViewPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGLBaseOpenDocument
|
||||
'
|
||||
Me.aGLBaseOpenDocument.Caption = "View document"
|
||||
Me.aGLBaseOpenDocument.Category = "View"
|
||||
Me.aGLBaseOpenDocument.ConfirmationMessage = Nothing
|
||||
Me.aGLBaseOpenDocument.Id = "aGLBaseOpenDocument"
|
||||
Me.aGLBaseOpenDocument.ImageName = "Action_Open"
|
||||
Me.aGLBaseOpenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBaseOpenDocument.TargetViewId = ""
|
||||
Me.aGLBaseOpenDocument.ToolTip = Nothing
|
||||
'
|
||||
'aGLRowsRepairYear
|
||||
'
|
||||
Me.aGLRowsRepairYear.Caption = "aGLRows Repair Year"
|
||||
Me.aGLRowsRepairYear.ConfirmationMessage = Nothing
|
||||
Me.aGLRowsRepairYear.Id = "aGLRowsRepairYear"
|
||||
Me.aGLRowsRepairYear.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLRowsRepairYear.TargetViewId = "GLRows_ListView_Error"
|
||||
Me.aGLRowsRepairYear.ToolTip = Nothing
|
||||
'
|
||||
'aRepairNoDetails
|
||||
'
|
||||
Me.aRepairNoDetails.Caption = "aRepair No Details"
|
||||
Me.aRepairNoDetails.ConfirmationMessage = Nothing
|
||||
Me.aRepairNoDetails.Id = "aRepairNoDetails"
|
||||
Me.aRepairNoDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aRepairNoDetails.TargetViewId = "GLRows_ListView_Error_NoDetails"
|
||||
Me.aRepairNoDetails.ToolTip = Nothing
|
||||
'
|
||||
'aDown_GLRows
|
||||
'
|
||||
Me.aDown_GLRows.Caption = "Down"
|
||||
Me.aDown_GLRows.Category = "RecordsNavigation"
|
||||
Me.aDown_GLRows.ConfirmationMessage = Nothing
|
||||
Me.aDown_GLRows.Id = "aDown_GLRows"
|
||||
Me.aDown_GLRows.ImageName = "arrow_down_green"
|
||||
Me.aDown_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDown_GLRows.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aDown_GLRows.TargetViewId = ""
|
||||
Me.aDown_GLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Nested
|
||||
Me.aDown_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aDown_GLRows.ToolTip = Nothing
|
||||
Me.aDown_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aGLBaseDivideRows
|
||||
'
|
||||
Me.aGLBaseDivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLBaseDivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLBaseDivideRows.Caption = "Divide rows"
|
||||
Me.aGLBaseDivideRows.Category = "Edit"
|
||||
Me.aGLBaseDivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLBaseDivideRows.Id = "aGLBaseDivideRows"
|
||||
Me.aGLBaseDivideRows.ImageName = "row_add_after"
|
||||
Me.aGLBaseDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBaseDivideRows.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aGLBaseDivideRows.TargetViewId = ""
|
||||
Me.aGLBaseDivideRows.ToolTip = Nothing
|
||||
'
|
||||
'aGLBaseOpenAttachments
|
||||
'
|
||||
Me.aGLBaseOpenAttachments.Caption = "View document"
|
||||
Me.aGLBaseOpenAttachments.Category = "View"
|
||||
Me.aGLBaseOpenAttachments.ConfirmationMessage = Nothing
|
||||
Me.aGLBaseOpenAttachments.Id = "aGLBaseOpenAttachments"
|
||||
Me.aGLBaseOpenAttachments.ImageName = "Action_Open"
|
||||
Me.aGLBaseOpenAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBaseOpenAttachments.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aGLBaseOpenAttachments.TargetViewId = ""
|
||||
Me.aGLBaseOpenAttachments.ToolTip = Nothing
|
||||
'
|
||||
'aPCICheck_GLRows
|
||||
'
|
||||
Me.aPCICheck_GLRows.Caption = "aPCICheck_GLRows"
|
||||
Me.aPCICheck_GLRows.ConfirmationMessage = "Do you want to execute ?"
|
||||
Me.aPCICheck_GLRows.Id = "aPCICheck_GLRows"
|
||||
Me.aPCICheck_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPCICheck_GLRows.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aPCICheck_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aPCICheck_GLRows.ToolTip = Nothing
|
||||
Me.aPCICheck_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aViewGLDetail
|
||||
'
|
||||
Me.aViewGLDetail.Caption = "aView GLDetail"
|
||||
Me.aViewGLDetail.ConfirmationMessage = Nothing
|
||||
Me.aViewGLDetail.Id = "aViewGLDetail"
|
||||
Me.aViewGLDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewGLDetail.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aViewGLDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aViewGLDetail.ToolTip = Nothing
|
||||
Me.aViewGLDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aReconfigureGLDetail
|
||||
'
|
||||
Me.aReconfigureGLDetail.Caption = "aReconfigure GLDetail"
|
||||
Me.aReconfigureGLDetail.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aReconfigureGLDetail.Id = "aReconfigureGLDetail"
|
||||
Me.aReconfigureGLDetail.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aReconfigureGLDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aReconfigureGLDetail.ToolTip = Nothing
|
||||
Me.aReconfigureGLDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aDeleteGLRows
|
||||
'
|
||||
Me.aDeleteGLRows.Caption = "aDelete GLRows"
|
||||
Me.aDeleteGLRows.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aDeleteGLRows.Id = "aDeleteGLRows"
|
||||
Me.aDeleteGLRows.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aDeleteGLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aDeleteGLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aDeleteGLRows.ToolTip = Nothing
|
||||
Me.aDeleteGLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aGLRowsNormalToPartner
|
||||
'
|
||||
Me.aGLRowsNormalToPartner.AcceptButtonCaption = Nothing
|
||||
Me.aGLRowsNormalToPartner.CancelButtonCaption = Nothing
|
||||
Me.aGLRowsNormalToPartner.Caption = "aGLRows Normal To Partner"
|
||||
Me.aGLRowsNormalToPartner.ConfirmationMessage = Nothing
|
||||
Me.aGLRowsNormalToPartner.Id = "aGLRowsNormalToPartner"
|
||||
Me.aGLRowsNormalToPartner.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLRowsNormalToPartner.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aGLRowsNormalToPartner.ToolTip = Nothing
|
||||
'
|
||||
'aUp_GLRows
|
||||
'
|
||||
Me.aUp_GLRows.Caption = "Up"
|
||||
Me.aUp_GLRows.Category = "RecordsNavigation"
|
||||
Me.aUp_GLRows.ConfirmationMessage = Nothing
|
||||
Me.aUp_GLRows.Id = "aUp_GLRows"
|
||||
Me.aUp_GLRows.ImageName = "arrow_up_green"
|
||||
Me.aUp_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aUp_GLRows.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aUp_GLRows.TargetViewId = ""
|
||||
Me.aUp_GLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Nested
|
||||
Me.aUp_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aUp_GLRows.ToolTip = Nothing
|
||||
Me.aUp_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aGLBaseViewPCIDetail
|
||||
'
|
||||
Me.aGLBaseViewPCIDetail.Caption = "aGLBaseViewPCIDetail"
|
||||
Me.aGLBaseViewPCIDetail.Category = "View"
|
||||
Me.aGLBaseViewPCIDetail.ConfirmationMessage = Nothing
|
||||
Me.aGLBaseViewPCIDetail.Id = "aGLBaseViewPCIDetail"
|
||||
Me.aGLBaseViewPCIDetail.ImageName = ""
|
||||
Me.aGLBaseViewPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLBaseViewPCIDetail.TargetObjectType = GetType(Nuvolar.[Module].GLRows)
|
||||
Me.aGLBaseViewPCIDetail.TargetViewId = ""
|
||||
Me.aGLBaseViewPCIDetail.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
|
||||
Me.aGLBaseViewPCIDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aGLBaseViewPCIDetail.ToolTip = Nothing
|
||||
Me.aGLBaseViewPCIDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGLBaseDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLBaseOpenDocument As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLBaseOpenAttachments As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPCICheck_GLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewGLDetail As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aReconfigureGLDetail As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDeleteGLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLRowsNormalToPartner As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLRowsRepairYear As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aRepairNoDetails As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aUp_GLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDown_GLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLBaseViewPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+162
@@ -0,0 +1,162 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aGLBaseOpenDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGLRowsRepairYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aRepairNoDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aDown_GLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aGLBaseDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aGLBaseOpenAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aPCICheck_GLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aViewGLDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aReconfigureGLDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aDeleteGLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aGLRowsNormalToPartner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aUp_GLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>302, 373</value>
|
||||
</metadata>
|
||||
<metadata name="aGLBaseViewPCIDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>147, 446</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+632
@@ -0,0 +1,632 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.IO
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo.DB
|
||||
|
||||
Public Class GLBaseVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
'-- Sor módosító letiltása
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseViewPCIDetail.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.TargetObjectType = GetType(Nuvolar.Module.GLRows)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.TargetObjectsCriteria = "GLHeader.GLDocumentType='eGLBank' or GLHeader.GLDocumentType='eGLCassa' or GLHeader.GLDocumentType='eGLCompensation' or GLHeader.GLDocumentType='eGLMixed'"
|
||||
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenAttachments.Active.SetItemValue("", False)
|
||||
|
||||
|
||||
|
||||
If View.Id = "GLRows_ListView_Bank" Or _
|
||||
View.Id = "GLRows_ListView_Cassa" Or _
|
||||
View.Id = "GLRows_ListView_Mixed" Or _
|
||||
View.Id = "GLRows_ListView_All" Or _
|
||||
View.Id = "GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenAttachments.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseViewPCIDetail.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLRows_ListView_*" Then
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRows_ListView_Error_NoDetails" Then
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
|
||||
_ListView.CollectionSource.BeginUpdateCriteria()
|
||||
|
||||
_ListView.CollectionSource.Criteria("First") = CriteriaOperator.Parse(GetFilterforNoDetails())
|
||||
_ListView.CollectionSource.EndUpdateCriteria()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "GLRows_ListView_*" Then
|
||||
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBaseDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBaseDivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
|
||||
Else
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBaseDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBaseDivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGLBaseOpenDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLBaseOpenDocument.Execute
|
||||
'-- Karton sorához tartozó eredeti dokumentum megnyitása
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
If _GLRows IsNot Nothing Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_GLRows.GLHeader))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGLBaseOpenAttachments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLBaseOpenAttachments.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _GLRows.GLHeader IsNot Nothing Then
|
||||
Select Case _GLRows.GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLAccount
|
||||
Dim _GLAccounts As GLAccounts = _ocur.GetObjectByKey(Of GLAccounts)(_GLRows.GLHeader.Oid)
|
||||
If _GLAccounts IsNot Nothing Then
|
||||
If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then
|
||||
Dim _RegistryHeader As RegistryHeader = _ocur.GetObjectByKey(Of RegistryHeader)(_GLAccounts.ImportedRegistryHeader.Oid)
|
||||
If _RegistryHeader IsNot Nothing Then
|
||||
If _RegistryHeader.DocumentFile IsNot Nothing Then
|
||||
ProcessDocument(_RegistryHeader.DocumentFile)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If _GLAccounts.ImportedInvoice IsNot Nothing Then
|
||||
Dim _InvoiceHeader As InvoiceHeader = _ocur.GetObjectByKey(Of InvoiceHeader)(_GLAccounts.ImportedInvoice.Oid)
|
||||
If _InvoiceHeader IsNot Nothing Then
|
||||
If _InvoiceHeader.PDF_Copy IsNot Nothing Then
|
||||
ProcessDocument(_InvoiceHeader.PDF_Copy)
|
||||
End If
|
||||
If _InvoiceHeader.PDF_Copy Is Nothing Then
|
||||
ViewAttachments.ViewAttachments(_ocur, Frame, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber, "")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case eGLDocumentType.eGLBank
|
||||
Dim _GLBank As GLBank = _ocur.GetObjectByKey(Of GLBank)(_GLRows.GLHeader.Oid)
|
||||
Case eGLDocumentType.eGLCassa
|
||||
Dim _GLCassa As GLCassa = _ocur.GetObjectByKey(Of GLCassa)(_GLRows.GLHeader.Oid)
|
||||
_GLCassa.PrintCassaDocument(_GLCassa, _ocur, Frame)
|
||||
Case (eGLDocumentType.eGLCompensation)
|
||||
Dim _GLCompensation As GLCompensation = _ocur.GetObjectByKey(Of GLCompensation)(_GLRows.GLHeader.Oid)
|
||||
|
||||
Case eGLDocumentType.eGLMixed
|
||||
Dim _GLMixed As GLMixed = _ocur.GetObjectByKey(Of GLMixed)(_GLRows.GLHeader.Oid)
|
||||
If _GLMixed IsNot Nothing Then
|
||||
If _GLMixed.DocumentFile IsNot Nothing Then
|
||||
ProcessDocument(_GLMixed.DocumentFile)
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub ProcessDocument(_DocumentFile As FileData)
|
||||
Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _DocumentFile.FileName)
|
||||
Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create)
|
||||
_DocumentFile.SaveToStream(_Stream)
|
||||
_Stream.Close()
|
||||
Process.Start(_FilePath)
|
||||
End Sub
|
||||
|
||||
Private Sub aPCICheck_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_GLRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
If _GLRows.PartnerType <> ePartnerType.eNotSet Then
|
||||
RaiseEvent DoWork()
|
||||
ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End If
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
|
||||
Private Sub aViewGLDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLDetail.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
If _GLRows IsNot Nothing Then
|
||||
Dim _CS As New CollectionSource(_onew, GetType(GLDetails))
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria.Clear()
|
||||
_CS.Criteria("First") = CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid)
|
||||
_CS.EndUpdateCriteria()
|
||||
e.ShowViewParameters.CreatedView = Application.CreateListView("GLDetails_ListView", _CS, False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aReconfigureGLDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReconfigureGLDetail.Execute
|
||||
'// Csak SysAdmin használhatja
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _CurrentUser As User = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
If _CurrentUser.UserName <> "SysAdmin" Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(_uow)
|
||||
_uow.Delete(_GLDetail_Collection)
|
||||
|
||||
Dim _GLDetail As GLDetails
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow)
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
RaiseEvent DoWork()
|
||||
_GLDetail = New GLDetails(_uow)
|
||||
_GLDetail.GLRows = _GLRows
|
||||
_GLDetail.AmountDEV = _GLRows.AmountDEV
|
||||
_GLDetail.AmountHUF = _GLRows.AmountHUF
|
||||
_GLDetail.Side = "T"
|
||||
_GLDetail.ChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
|
||||
_GLDetail = New GLDetails(_uow)
|
||||
_GLDetail.GLRows = _GLRows
|
||||
_GLDetail.AmountDEV = _GLRows.AmountDEV
|
||||
_GLDetail.AmountHUF = _GLRows.AmountHUF
|
||||
_GLDetail.Side = "K"
|
||||
_GLDetail.ChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_uow.CommitChanges()
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
|
||||
Private Sub aReconfigureRowsDateExecution_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
'Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
|
||||
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
|
||||
'Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False and isnull(DateExecution)=True"))
|
||||
'Dim _InvoiceRows As InvoiceRows
|
||||
|
||||
'RaiseEvent InitWork(1, 1, _InvoiceRows_Collection.Count)
|
||||
'For Each _InvoiceRows In _InvoiceRows_Collection
|
||||
' RaiseEvent DoWork()
|
||||
' _InvoiceRows.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution
|
||||
'Next
|
||||
'RaiseEvent FinalWork
|
||||
'_uow.CommitChanges()
|
||||
|
||||
'Dim _RegistryRowsFinancialControlling_Collection As New XPCollection(Of RegistryRowsFinancialControlling)(_uow, CriteriaOperator.Parse("isnull(DateExecution)=True and isnull(RegistryHeader)=False and RegistryHeader.IsEditable=False and RegistryHeader.RegistryType.RegistryMainType in ('eAccount')"))
|
||||
'Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
|
||||
|
||||
'For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection
|
||||
' RaiseEvent DoWork()
|
||||
' _RegistryRowsFinancialControlling.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution
|
||||
|
||||
'Next
|
||||
'RaiseEvent FinalWork
|
||||
'_uow.CommitChanges()
|
||||
|
||||
'Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("isnull(GLHeader)=False and isnull(DateExecution)=True"))
|
||||
'Dim _GLRows As GLRows
|
||||
|
||||
'RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
|
||||
'For Each _GLRows In _GLRows_Collection
|
||||
' RaiseEvent DoWork()
|
||||
' _GLRows.DateExecution = _GLRows.GLHeader.DateExecution
|
||||
'Next
|
||||
'RaiseEvent FinalWork
|
||||
'_uow.CommitChanges()
|
||||
|
||||
|
||||
|
||||
'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Sub aDeleteGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteGLRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
Dim _Customers As Customers
|
||||
Dim _PartnerType As ePartnerType
|
||||
Dim _ConnectInfo As String
|
||||
|
||||
Dim _GLAccountsRevaluations As GLAccountsRevaluations
|
||||
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
|
||||
|
||||
_CustomersFrom = _GLRows.GLHeader.CustomersFrom
|
||||
_Customers = _GLRows.Customer
|
||||
_PartnerType = _GLRows.PartnerType
|
||||
_ConnectInfo = _GLRows.ConnectInfo
|
||||
|
||||
_GLAccountsRevaluations = _ocur.FindObject(Of GLAccountsRevaluations)(CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid)
|
||||
)
|
||||
If _GLAccountsRevaluations IsNot Nothing Then
|
||||
_ocur.Delete(_GLAccountsRevaluations)
|
||||
End If
|
||||
|
||||
_ocur.Delete(_GLRows)
|
||||
_ocur.CommitChanges()
|
||||
|
||||
GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo)
|
||||
_uow.CommitChanges()
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub aGLRowsNormalToPartner_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGLRowsNormalToPartner.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsNormalToPartnerPopup As GLRowsNormalToPartnerPopup
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLRowsNormalToPartnerPopup = _onew.CreateObject(Of GLRowsNormalToPartnerPopup)()
|
||||
_GLRowsNormalToPartnerPopup.PartnerType = ePartnerType.eNotSet
|
||||
_GLRowsNormalToPartnerPopup.Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsNormalToPartnerPopup.ConnectInfo = _GLRows.ConnectInfo
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsNormalToPartnerPopup_DetailView", True, _GLRowsNormalToPartnerPopup)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGLRowsNormalToPartner_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGLRowsNormalToPartner.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsNormalToPartnerPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsNormalToPartnerPopup)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
Dim _GLBank As GLBank = TryCast(_GLRows.GLHeader, GLBank)
|
||||
Dim _GLCassa As GLCassa = TryCast(_GLRows.GLHeader, GLCassa)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(_GLRows.GLHeader, GLCompensation)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
_GLRows.PartnerType = _GLRowsNormalToPartnerPopup.PartnerType
|
||||
_GLRows.Customer = _ocur.GetObject(_GLRowsNormalToPartnerPopup.Customers)
|
||||
_GLRows.ConnectInfo = _GLRowsNormalToPartnerPopup.ConnectInfo
|
||||
_GLRows.TransactionType = _GLRowsNormalToPartnerPopup.TransactionType
|
||||
|
||||
If _GLBank IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut)
|
||||
_GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
End If
|
||||
Else
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn)
|
||||
_GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLCassa IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut)
|
||||
_GLRows.CreditChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
End If
|
||||
Else
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn)
|
||||
_GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLCompensation IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
_GLRows.CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
End If
|
||||
Else
|
||||
If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn)
|
||||
ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn)
|
||||
_GLRows.CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGLRowsRepairYear_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLRowsRepairYear.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRows As GLRows
|
||||
Dim _ChartOfAccounts As ChartOfAccounts
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
_GLRows = _onew.GetObject(_GLRows)
|
||||
|
||||
If _GLRows.GLHeader IsNot Nothing Then
|
||||
If _GLRows.GLHeader.DateExecution.Year <> _GLRows.DebitChartOfAccounts.AccountYear Then
|
||||
_ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows.DebitChartOfAccounts.AccountNumber, _GLRows.GLHeader.DateExecution.Year))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.DebitChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
If _GLRows.GLHeader.DateExecution.Year <> _GLRows.CreditChartOfAccounts.AccountYear Then
|
||||
_ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows.CreditChartOfAccounts.AccountNumber, _GLRows.GLHeader.DateExecution.Year))
|
||||
If _ChartOfAccounts IsNot Nothing Then
|
||||
_GLRows.CreditChartOfAccounts = _ChartOfAccounts
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
End Sub
|
||||
|
||||
Private Function GetFilterforNoDetails() As String
|
||||
Dim _SQL As String = ""
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
Dim _SelectStatementResultRow As SelectStatementResultRow
|
||||
Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing
|
||||
Dim _return As String = ""
|
||||
Select Case GLOBAL_SQLType
|
||||
Case eSQLType.MySQL, eSQLType.MSSQL
|
||||
_SQL = " SELECT t1.Oid,COUNT(t2.Oid)"
|
||||
_SQL += " FROM GLRows t1 LEFT JOIN GLDetails t2 ON"
|
||||
_SQL += " t1.Oid=t2.GLRows JOIN GLHeader t3 ON"
|
||||
_SQL += " t1.GLHeader = t3.Oid"
|
||||
_SQL += " WHERE t3.IsEditable = 0"
|
||||
_SQL += " GROUP BY t1.Oid"
|
||||
_SQL += " HAVING COUNT(t2.Oid) <> 2"
|
||||
Case eSQLType.PostgreSQL
|
||||
_SQL = " SELECT t1.""Oid"",COUNT(t2.""Oid"")"
|
||||
_SQL += " FROM ""GLRows"" t1 LEFT JOIN ""GLDetails"" t2 ON"
|
||||
_SQL += " t1.""Oid""=t2.""GLRows"" JOIN ""GLHeader"" t3 ON"
|
||||
_SQL += " t1.""GLHeader"" = t3.""Oid"""
|
||||
_SQL += " WHERE t3.""IsEditable"" = 0"
|
||||
_SQL += " GROUP BY t1.""Oid"""
|
||||
_SQL += " HAVING COUNT(t2.""Oid"") <> 2"
|
||||
End Select
|
||||
_SelectedData = _uow.ExecuteQuery(_SQL)
|
||||
If _SelectedData.ResultSet.Length > 0 Then
|
||||
For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
|
||||
If _return = "" Then
|
||||
_return = "'" & _SelectStatementResultRow.Values(0).ToString & "'"
|
||||
Else
|
||||
_return += ",'" & _SelectStatementResultRow.Values(0).ToString & "'"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return "Oid in (" & _return & ")"
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub aRepairNoDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRepairNoDetails.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(_uow, CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid.ToString))
|
||||
_uow.Delete(_GLDetail_Collection)
|
||||
|
||||
Dim _GLDetail As GLDetails
|
||||
_GLDetail = New GLDetails(_uow)
|
||||
_GLDetail.GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRows.Oid)
|
||||
_GLDetail.AmountDEV = _GLRows.AmountDEV
|
||||
_GLDetail.AmountHUF = _GLRows.AmountHUF
|
||||
_GLDetail.Side = "T"
|
||||
_GLDetail.ChartOfAccounts = _uow.GetObjectByKey(Of ChartOfAccounts)(_GLRows.DebitChartOfAccounts.Oid)
|
||||
|
||||
_GLDetail = New GLDetails(_uow)
|
||||
_GLDetail.GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRows.Oid)
|
||||
_GLDetail.AmountDEV = _GLRows.AmountDEV
|
||||
_GLDetail.AmountHUF = _GLRows.AmountHUF
|
||||
_GLDetail.Side = "K"
|
||||
_GLDetail.ChartOfAccounts = _uow.GetObjectByKey(Of ChartOfAccounts)(_GLRows.CreditChartOfAccounts.Oid)
|
||||
|
||||
_uow.CommitChanges()
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
|
||||
#Region "ROW INDEX"
|
||||
Private Sub aDown_GLRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDown_GLRows.Execute
|
||||
' A kiválaszott sort egy sorral lejebb helyezi
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLHeader As GLHeader = TryCast(View.CurrentObject, GLRows).GLHeader
|
||||
Dim _GLRowsSelected As GLRows
|
||||
Dim _GLRowsPlus As GLRows = Nothing
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
Me.ReorderRows(_ocur, _GLHeader)
|
||||
|
||||
Try
|
||||
_GLRowsSelected = TryCast(View.SelectedObjects(0), GLRows) ' Kiveszi a kijelölt sorok közül az elsõt
|
||||
Catch
|
||||
' TESZT MIATT!!!! ----------------------------------------------------------------
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End Try
|
||||
|
||||
If _GLRowsSelected.RowIndex < _GLHeader.GLRows.Count - 1 Then
|
||||
For Each _GLRows In _GLHeader.GLRows
|
||||
If _GLRows.RowIndex = _GLRowsSelected.RowIndex + 1 Then
|
||||
_GLRowsPlus = _GLRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _GLRowsPlus IsNot Nothing Then
|
||||
_GLRowsSelected.RowIndex += 1
|
||||
_GLRowsPlus.RowIndex -= 1
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
TryCast(View, ListView).CollectionSource.Reload()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aUp_GLRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aUp_GLRows.Execute
|
||||
' A kiválaszott sort egy sorral feljebb helyezi
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLRows).GLHeader
|
||||
Dim _GLRowsSelected As GLRows
|
||||
Dim _GLRowsMinus As GLRows = Nothing
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
Me.ReorderRows(_ocur, _GLHeader)
|
||||
|
||||
Try
|
||||
_GLRowsSelected = TryCast(View.SelectedObjects(0), GLRows) ' Az editor egy listview, kiveszi az elsõ kijelölt sorát
|
||||
Catch
|
||||
' TESZT MIATT!!!! ----------------------------------------------------------------
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End Try
|
||||
|
||||
If _GLRowsSelected.RowIndex > 0 Then
|
||||
For Each _GLRows In _GLHeader.GLRows
|
||||
If _GLRows.RowIndex = _GLRowsSelected.RowIndex - 1 Then
|
||||
_GLRowsMinus = _GLRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _GLRowsMinus IsNot Nothing Then
|
||||
_GLRowsSelected.RowIndex -= 1
|
||||
_GLRowsMinus.RowIndex += 1
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
TryCast(View, ListView).CollectionSource.Reload()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ReorderRows(_ocur As Xpo.XPObjectSpace, _GLHeader As GLHeader)
|
||||
Dim _NoOrder As Boolean = False
|
||||
Dim _RowIndex As Long = 0
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
'//------------------------------------------------------------------------------------------
|
||||
_GLHeader.GLRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Descending))
|
||||
For Each _GLRows In _GLHeader.GLRows
|
||||
If _GLRows.RowIndex <= 0 Then
|
||||
_NoOrder = True
|
||||
Exit For
|
||||
End If
|
||||
Exit For
|
||||
Next
|
||||
_GLHeader.GLRows.Sorting.RemoveAt(_GLHeader.GLRows.Sorting.Count - 1)
|
||||
If _NoOrder Then
|
||||
For Each _GLRows In _GLHeader.GLRows
|
||||
_GLRows.RowIndex = _RowIndex
|
||||
_RowIndex += 1
|
||||
Next
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
'----------------------------------------------------------------------------------------------
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub aGLBaseViewPCIDetail_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLBaseViewPCIDetail.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLRows.GLHeader.CustomersFrom, _
|
||||
_GLRows.Customer, _GLRows.PartnerType, _
|
||||
_GLRows.ConnectInfo)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+124
@@ -0,0 +1,124 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class GLDetails
|
||||
Inherits BaseObject
|
||||
Private _GLRows As GLRows
|
||||
Private _Side As String
|
||||
Private _AmountHUF As Double
|
||||
Private _AmountDEV As Double
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _AmountHUF_Rolling As Double ' Göngyölt egyenleg !
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property GLRows As GLRows
|
||||
Get
|
||||
Return _GLRows
|
||||
End Get
|
||||
Set(ByVal value As GLRows)
|
||||
SetPropertyValue("GLRows", _GLRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Side As String
|
||||
Get
|
||||
Return _Side
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Side", _Side, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV As Double
|
||||
Get
|
||||
Return _AmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property ChartsOfAccounts_Contra As ChartOfAccounts
|
||||
Get
|
||||
If Side = "T" Then
|
||||
Return GLRows.CreditChartOfAccounts
|
||||
Else
|
||||
Return GLRows.DebitChartOfAccounts
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property AmountHUFSign As Double
|
||||
Get
|
||||
Select Case Side
|
||||
Case "T"
|
||||
Return AmountHUF
|
||||
Case "K"
|
||||
Return AmountHUF * -1
|
||||
Case Else
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property AmountHUF_Debit As Double
|
||||
Get
|
||||
If Side = "T" Then
|
||||
Return AmountHUF
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property AmountHUF_Credit As Double
|
||||
Get
|
||||
If Side = "K" Then
|
||||
Return AmountHUF
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property AmountHUF_Ballance As Double
|
||||
Get
|
||||
Return AmountHUF_Debit - AmountHUF_Credit
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<NonPersistent>
|
||||
Property AmountHUF_Rolling As Double
|
||||
Get
|
||||
Return _AmountHUF_Rolling
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF_Rolling", _AmountHUF_Rolling, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+48
@@ -0,0 +1,48 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLFileData
|
||||
Inherits FileAttachmentBase
|
||||
Private _GLHeader As GLHeader
|
||||
Private _DocumentType As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Association("GLHeader-GLFileData", GetType(GLHeader))> _
|
||||
Property GLHeader As GLHeader
|
||||
Get
|
||||
Return _GLHeader
|
||||
End Get
|
||||
Set(value As GLHeader)
|
||||
SetPropertyValue("GLHeader", _GLHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentType As String
|
||||
Get
|
||||
Return _DocumentType
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentType", _DocumentType, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+810
@@ -0,0 +1,810 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports DevExpress.Xpo.DB
|
||||
|
||||
'<EditorStateRuleAttribute("Hide DEV properties when HUF is selected in GeneralLedger", "CurrencyRate; row_AmountDEV", EditorState.Hidden, "CurrencyName.ShortName = 'HUF' and GLDocumentType in (0,1,3,4,5)", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide CustomersFrom", "CustomersFrom", EditorState.Disabled, "(IsNull(CustomersFrom))=False", ViewType.DetailView)> _
|
||||
|
||||
<DefaultClassOptions()>
|
||||
<NavigationItem(False), CreatableItem(False)>
|
||||
<Appearance("Hide DEV properties when HUF is selected in GeneralLedger",
|
||||
TargetItems:="CurrencyRate; row_AmountDEV",
|
||||
Criteria:="CurrencyName.ShortName = 'HUF' and GLDocumentType in (0,1,3,4,5)",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide CustomersFrom",
|
||||
TargetItems:="CustomersFrom",
|
||||
Criteria:="(IsNull(CustomersFrom))=False",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide row_ info when IsEditable=False",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="IsEditable=False",
|
||||
TargetItems:="row_GLHeader; row_DebitChartOfAccounts; row_CreditChartOfAccounts; row_AmountHUF; row_AmountDEV; row_LiquidAssets;" +
|
||||
" row_Customer; row_DateVAT; row_VAT; row_NoteRows; row_UniqueObjects; row_Controlling; row_JobNumberObjects; " +
|
||||
" row_CostPlace; row_CostHolder; row_ConnectInfo;",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<RuleCriteria("RuleCriteria GLHeader-row_VAT-GLCassa", "aToTable_GLCassa_Contexts", "row_VAT.InversState=False", "Fordított ÁFA nem választható ki !")>
|
||||
<RuleCriteria("RuleCriteria GLHeader-row_Controlling", "aToTable_GLAccounts_Contexts",
|
||||
"(row_Controlling.IsParent=False) or (Rule5DMatrix.RequireControlling=False and isnull(row_Controlling)=True)",
|
||||
"Gyüjtő kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader-row_DebitChartOfAccounts", "aToTable_GLMixed_Contexts", "row_DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader-row_CreditChartOfAccounts", "aToTable_GLMixed_Contexts", "row_CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader-ChartOfAccountsYearState-Save", "*",
|
||||
"ChartOfAccountsYearState=False",
|
||||
"Zárolt főkönyvi év, nem lehet bizonylatot rögzíteni, módosítani! ", SkipNullOrEmptyValues:=True)>
|
||||
<DefaultProperty("DocumentNumber")>
|
||||
Public Class GLHeader
|
||||
Inherits BaseObject
|
||||
Private _GLDocumentType As eGLDocumentType 'Bizonylat tipusa
|
||||
Private _CustomersFrom As CustomersFrom 'Saját c g
|
||||
Private _CurrencyName As CurrencyName ' devizanem
|
||||
Private _CurrencyRate As Double = 1 'Deviza árfolyam
|
||||
Private _DocumentNumber As String 'Bizonylatszám, számlaszám
|
||||
Private _RegistryNumber As String 'Iktatószám
|
||||
Private _DateCreated As Date 'Kiállítás dátuma
|
||||
Private _DateExecution As Date 'Teljesítés dátuma
|
||||
Private _DatePayment As Date 'Fizetési határidő
|
||||
Private _NoteHeader As String 'Fejléc megjegyzés
|
||||
Private _IsEditable As Boolean = True 'Szerkeszthető
|
||||
Private _IsStorno As Boolean = False 'Stornó bizonylat
|
||||
Private _ImportedInvoice As InvoiceHeader 'melyik vevõi számlából készült
|
||||
Private _ImportedRegistryHeader As RegistryHeader 'Melyik szállítói iktatásból jött
|
||||
Private _ImportedOther As Guid 'Egyéb importált azonosító
|
||||
Private _HUNumberToText As String ' Azaz string !!!
|
||||
Private _CashHandler As String ' Pénztárnál befizető vagy átvevő
|
||||
|
||||
Private _GLOpenCloseHeader As GLOpenCloseHeader 'Melyik év végi záráshoz tartozik !
|
||||
|
||||
' Beviteli mezők
|
||||
|
||||
Private _row_GLHeader As GLHeader
|
||||
Private _row_DebitChartOfAccounts As ChartOfAccounts 'Tartozik számlaszám
|
||||
Private _row_CreditChartOfAccounts As ChartOfAccounts ' Követel számlaszám
|
||||
Private _row_AmountHUF As Double ' összeg forintban
|
||||
Private _row_AmountDEV As Double ' összeg devizában
|
||||
Private _row_LiquidAssets As LiquidAssets ' pénzeszköz
|
||||
Private _row_Customer As Customers ' partner
|
||||
Private _row_DateVAT As Date 'sor dátum
|
||||
Private _row_VAT As VAT
|
||||
Private _row_NoteRows As String
|
||||
|
||||
Private _row_UniqueObjects As UniqueObjects 'Egyedi azonosító
|
||||
Private _row_Controlling As Controlling 'Kontrolling szám
|
||||
Private _row_JobNumberObjects As JobNumberObjects 'Munkaszám
|
||||
Private _row_CostPlace As CostPlace 'Költséghely
|
||||
Private _row_CostHolder As CostHolder 'Költségviselõ
|
||||
Private _row_ConnectInfo As String 'Folyószámla analitika kötési szám
|
||||
|
||||
Private _IsRegistryGLAccounts As Boolean 'Rögzítés után van automatikus iktatás
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", "HUF"))
|
||||
If Session.IsNewObject(Me) Then
|
||||
Me.GLDocumentType = eGLDocumentType.eGLMixed
|
||||
IsEditable = True
|
||||
IsStorno = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
|
||||
If Session.IsObjectToDelete(Me) = False Then
|
||||
If Me.GLRows.Count > 0 Then
|
||||
ReorderRows()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ReorderRows()
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_New As GLRows = Nothing
|
||||
Dim _RowIndex As Long = 0
|
||||
Dim _GLRows_Array As New ArrayList
|
||||
'//------------------------------------------------------------------------------------------
|
||||
Me.GLRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
For Each _GLRows In Me.GLRows
|
||||
If Session.IsNewObject(_GLRows) Then
|
||||
_GLRows_New = _GLRows
|
||||
Else
|
||||
_GLRows_Array.Add(_GLRows)
|
||||
End If
|
||||
Next
|
||||
|
||||
If _GLRows_New IsNot Nothing Then
|
||||
_GLRows_Array.Add(_GLRows_New)
|
||||
End If
|
||||
|
||||
For Each _GLRows In _GLRows_Array
|
||||
If _GLRows.RowIndex <> _RowIndex Then
|
||||
_GLRows.RowIndex = _RowIndex
|
||||
_GLRows.Save()
|
||||
End If
|
||||
_RowIndex += 1
|
||||
Next
|
||||
End Sub
|
||||
Private Sub RecalculateAmountHUF()
|
||||
If Me.row_AmountDEV <> 0 Then
|
||||
If GLDocumentType = 0 Or GLDocumentType = 1 Or GLDocumentType = 3 Or GLDocumentType = 4 Or GLDocumentType = 5 Then
|
||||
Me.row_AmountHUF = Math.Round(Me.row_AmountDEV * CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
Else
|
||||
Me.row_AmountHUF = 0
|
||||
End If
|
||||
End Sub
|
||||
<VisibleInListView(False)>
|
||||
<Association("GLHeader-GLFileData", GetType(GLFileData)), Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)>
|
||||
ReadOnly Property GLFileData As XPCollection(Of GLFileData)
|
||||
Get
|
||||
Return GetCollection(Of GLFileData)("GLFileData")
|
||||
End Get
|
||||
End Property
|
||||
'<RuleValueComparison("", DefaultContexts.Save, ValueComparisonType.GreaterThan, "0")> _
|
||||
ReadOnly Property GLRowsCount() As Long
|
||||
Get
|
||||
Return GLRows.Count
|
||||
End Get
|
||||
End Property
|
||||
Property GLDocumentType() As eGLDocumentType
|
||||
Get
|
||||
Return _GLDocumentType
|
||||
End Get
|
||||
Set(ByVal value As eGLDocumentType)
|
||||
SetPropertyValue("GLDocumentType", _GLDocumentType, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLAccounts-CustomersFrom", "aFinal_GLAccount_Context")>
|
||||
<RuleRequiredField("GLCassa-CustomersFrom", "aFinal_GLCassa_Context")>
|
||||
<RuleRequiredField("GLCassa-CustomersFrom1", "aFinalAndNew_GLCassa_Context")>
|
||||
<RuleRequiredField("GLMixed-CustomersFrom", "aFinal_GLMixed_Context")>
|
||||
<ImmediatePostData()>
|
||||
Property CustomersFrom() As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.DocumentNumber.GLAccounts", "aFinal_GLAccount_Context")>
|
||||
<RuleRequiredField("GLHeader.DocumentNumber.GLBank.Final", "aFinal_GLBank_Context")>
|
||||
<RuleRequiredField("GLHeader.DocumentNumber.GLBank.FinalAndNew", "aFinalAndNew_GLBank_Context")>
|
||||
<ImmediatePostData(True)>
|
||||
<NonCloneable()>
|
||||
Overridable Property DocumentNumber() As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If Me.GLDocumentType = eGLDocumentType.eGLAccount Then
|
||||
row_ConnectInfo = DocumentNumber
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()>
|
||||
Property RegistryNumber() As String
|
||||
Get
|
||||
Return _RegistryNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("RegistryNumber", _RegistryNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.DateCreated", "aFinal_GLAccount_Context")>
|
||||
Property DateCreated() As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.DateExecution", "aFinal_GLAccount_Context")>
|
||||
<RuleRequiredField("GLBank.DateExecution.Final", "aFinalAndNew_GLBank_Context")>
|
||||
<RuleRequiredField("GLBank.DateExecution.FinalAndNew", "aFinal_GLBank_Context")>
|
||||
<RuleRequiredField("GLMixed-DateExecution", "aFinal_GLMixed_Context")>
|
||||
<RuleRequiredField("GLHeader.DateExecution.Defaultcontexts.Save", DefaultContexts.Save)>
|
||||
Property DateExecution() As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
If row_DateVAT = Nothing Then
|
||||
row_DateVAT = value
|
||||
End If
|
||||
If TryCast(Me, GLBank) IsNot Nothing Then
|
||||
If Me.row_LiquidAssets IsNot Nothing Then
|
||||
TryCast(Me, GLBank).BallanceHUF = TryCast(Me, GLBank).GetBallanceHUF(Me.row_LiquidAssets, value)
|
||||
TryCast(Me, GLBank).BallanceDEV = TryCast(Me, GLBank).GetBallanceDEV(Me.row_LiquidAssets, value)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property DateExecutionYear As String
|
||||
Get
|
||||
Return DateExecution.Date.Year.ToString
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DateExecutionQuarter As String
|
||||
Get
|
||||
Return AlignStr(DatePart(DateInterval.Quarter, DateExecution).ToString, eDirection.Left, " ", 2) & ". NÉ."
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DateExecutionMonth As String
|
||||
Get
|
||||
Return String.Format("{0}. {1}", AlignStr(DateExecution.Date.Month.ToString, eDirection.Left, " ", 2), Format(DateExecution, "MMMM"))
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DateExecutionWeekOfYear As String
|
||||
Get
|
||||
Return AlignStr(DatePart(DateInterval.WeekOfYear, DateExecution), eDirection.Left, " ", 2) & ". hét"
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DateExecutionString As Date
|
||||
Get
|
||||
Return DateExecution.Date.ToString("d")
|
||||
End Get
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.DatePayment", "aFinal_GLAccount_Context")>
|
||||
Property DatePayment() As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property NoteHeader() As String
|
||||
Get
|
||||
Return _NoteHeader
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("NoteHeader", _NoteHeader, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If String.IsNullOrEmpty(value) And String.IsNullOrEmpty(row_NoteRows) = True Then
|
||||
row_NoteRows = value
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.CurrencyName", "aFinal_GLAccount_Context")>
|
||||
Property CurrencyName() As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("GLHeader.CurrencyName.ToTable", "aToTable_GLAccounts_Contexts", 2, 999999999999999999, TargetCriteria:="CurrencyName.ShortName != 'HUF'")>
|
||||
<ImmediatePostData(True)>
|
||||
Property CurrencyRate() As Double
|
||||
Get
|
||||
'If CurrencyName.ShortName = "HUF" Then
|
||||
'Return 1
|
||||
'Else
|
||||
Return _CurrencyRate
|
||||
'End If
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculateAmountHUF()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()>
|
||||
<ImmediatePostData()>
|
||||
Property IsEditable() As Boolean
|
||||
Get
|
||||
Return _IsEditable
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsEditable", _IsEditable, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()>
|
||||
Property IsStorno() As Boolean
|
||||
Get
|
||||
Return _IsStorno
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsStorno", _IsStorno, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HUNumberToText As String
|
||||
Get
|
||||
Return _HUNumberToText
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("HUNumberToText", _HUNumberToText, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
<RuleRequiredField("CashType-GLHeader", "aFinal_GLCassa_Context", TargetCriteria:="GLDocumentType=3")>
|
||||
<RuleRequiredField("CashType-GLHeader-FN", "aFinalAndNew_GLCassa_Context", TargetCriteria:="GLDocumentType=3")>
|
||||
Property CashHandler As String
|
||||
Get
|
||||
Return _CashHandler
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("CashHandler", _CashHandler, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImportedInvoice As InvoiceHeader
|
||||
Get
|
||||
Return _ImportedInvoice
|
||||
End Get
|
||||
Set(ByVal value As InvoiceHeader)
|
||||
SetPropertyValue("ImportedInvoice", _ImportedInvoice, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImportedRegistryHeader As RegistryHeader
|
||||
Get
|
||||
Return _ImportedRegistryHeader
|
||||
End Get
|
||||
Set(ByVal value As RegistryHeader)
|
||||
SetPropertyValue("ImportedRegistryHeader", _ImportedRegistryHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property ImportedOther As Guid
|
||||
Get
|
||||
Return _ImportedOther
|
||||
End Get
|
||||
Set(ByVal value As Guid)
|
||||
SetPropertyValue("ImportedOther", _ImportedOther, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property GLOpenCloseHeader As GLOpenCloseHeader
|
||||
Get
|
||||
Return _GLOpenCloseHeader
|
||||
End Get
|
||||
Set(value As GLOpenCloseHeader)
|
||||
SetPropertyValue("GLOpenCloseHeader", _GLOpenCloseHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Nonpersistent tulajdonságok a sorok rögzítéséhez
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<RuleRequiredField("GLMixed-row_DebitChartOfAccounts", "aToTable_GLMixed_Contexts")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_DebitChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _row_DebitChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_DebitChartOfAccounts", _row_DebitChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<RuleRequiredField("GLMixed-row_CreditChartOfAccounts", "aToTable_GLMixed_Contexts")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_CreditChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _row_CreditChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_CreditChartOfAccounts", _row_CreditChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleValueComparison("GLMixed-row_AmountHUF", "aToTable_GLMixed_Contexts", ValueComparisonType.NotEquals, 0)>
|
||||
<RuleValueComparison("GLCassa-row_AmountHUF", "aToTable_GLCassa_Contexts", ValueComparisonType.GreaterThan, 0)>
|
||||
<RuleValueComparison("GLBank-row_AmountHUF", "aToTable_GLBank_Contexts", ValueComparisonType.GreaterThan, 0)>
|
||||
<RuleValueComparison("GLCompensation-row_AmountHUF", "aToTable_GLCompensation_Contexts", ValueComparisonType.GreaterThan, 0)>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Overridable Property row_AmountHUF() As Double
|
||||
Get
|
||||
Return _row_AmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_AmountHUF", _row_AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleValueComparison("GLMixed-row_AmountDEV", "aToTable_GLMixed_Contexts", ValueComparisonType.NotEquals, 0, TargetCriteria:="CurrencyName.ShortName != 'HUF'")>
|
||||
<RuleValueComparison("GLCompensation-row_AmountDEV", "aToTable_GLCompensation_Contexts", ValueComparisonType.GreaterThan, 0, TargetCriteria:="CurrencyName.ShortName != 'HUF'")>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Overridable Property row_AmountDEV() As Double
|
||||
Get
|
||||
Return _row_AmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_AmountDEV", _row_AmountDEV, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculateAmountHUF()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'<ImmediatePostData(True), DataSourceCriteria("Iif('@this.GLDocumentType' = 2, True, False) == (LiquidAssetsType = 1)")> _
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_LiquidAssets() As LiquidAssets
|
||||
Get
|
||||
Return _row_LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("row_LiquidAssets", _row_LiquidAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Overridable Property row_Customer() As Customers
|
||||
Get
|
||||
Return _row_Customer
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("row_Customer", _row_Customer, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If value IsNot Nothing Then
|
||||
If CashHandler = "" Then CashHandler = value.Name
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLHeader.row_DateVAT", "aToTable_GLAccounts_Contexts")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_DateVAT() As Date
|
||||
Get
|
||||
Return _row_DateVAT
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("row_DateVAT", _row_DateVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader.row_VAT.ToTable", "aToTable_GLAccounts_Contexts")>
|
||||
Property row_VAT() As VAT
|
||||
Get
|
||||
Return _row_VAT
|
||||
End Get
|
||||
Set(ByVal value As VAT)
|
||||
SetPropertyValue("row_VAT", _row_VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<Size(-1)>
|
||||
<VisibleInListView(False)>
|
||||
Property row_NoteRows() As String
|
||||
Get
|
||||
Return _row_NoteRows
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("row_NoteRows", _row_NoteRows, value)
|
||||
End Set
|
||||
End Property
|
||||
'Rule5DMatrix ...
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader-row_Controlling-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireControlling=True")>
|
||||
Overridable Property row_Controlling() As Controlling
|
||||
Get
|
||||
Return _row_Controlling
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("row_Controlling", _row_Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader-row_CostPlace-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostPlace=True")>
|
||||
Property row_CostPlace() As CostPlace
|
||||
Get
|
||||
Return _row_CostPlace
|
||||
End Get
|
||||
Set(ByVal value As CostPlace)
|
||||
SetPropertyValue("row_CostPlace", _row_CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader-row_CostHolder-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostHolder=True")>
|
||||
Property row_CostHolder() As CostHolder
|
||||
Get
|
||||
Return _row_CostHolder
|
||||
End Get
|
||||
Set(ByVal value As CostHolder)
|
||||
SetPropertyValue("_row_CostHolder", _row_CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader-row_UniqueObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True")>
|
||||
Property row_UniqueObjects() As UniqueObjects
|
||||
Get
|
||||
Return _row_UniqueObjects
|
||||
End Get
|
||||
Set(ByVal value As UniqueObjects)
|
||||
SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRequiredField("GLHeader-row_JobNumberObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True")>
|
||||
Property row_JobNumberObjects() As JobNumberObjects
|
||||
Get
|
||||
Return _row_JobNumberObjects
|
||||
End Get
|
||||
Set(ByVal value As JobNumberObjects)
|
||||
SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
ReadOnly Property Rule5DMatrix As Rule5DMatrix
|
||||
Get
|
||||
Dim _Rule5DforGL As Rule5DforGL = Session.FindObject(Of Rule5DforGL)(CriteriaOperator.Parse("GLDocumentType=?", GLDocumentType))
|
||||
If _Rule5DforGL IsNot Nothing Then
|
||||
Return _Rule5DforGL.Rule5DMatrix
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(False)>
|
||||
Property IsRegistryGLAccounts As Boolean
|
||||
Get
|
||||
Return _IsRegistryGLAccounts
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsRegistryGLAccounts", _IsRegistryGLAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLHeader.row_ConnectInfo", "aFinal_GLAccount_Context")>
|
||||
<RuleRequiredField("GLHeader.row_ConnectInfo.GLCassa", "aToTable_GLCassa_Contexts", TargetCriteria:="row_PartnerType<>-1")>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Overridable Property row_ConnectInfo() As String
|
||||
Get
|
||||
Return _row_ConnectInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("row_ConnectInfo", _row_ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
<Association("GLHeader", GetType(GLRows))> _
|
||||
Public ReadOnly Property GLRows() As XPCollection(Of GLRows)
|
||||
Get
|
||||
Return GetCollection(Of GLRows)("GLRows")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Sub Reconfigure_GLDetail()
|
||||
'-- Az eljárás újragenerálja a GLDetail sorokat a késõbbi DTR elemzéshez
|
||||
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
ReadOnly Property ChartOfAccountsYearState As Boolean
|
||||
Get
|
||||
Dim _ChartOfAccountsYear As ChartOfAccountsYear = Session.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", Me.DateExecution.Year))
|
||||
If _ChartOfAccountsYear Is Nothing Then
|
||||
Return False
|
||||
Else
|
||||
Return _ChartOfAccountsYear.IsClosed
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
'-- Árfolyam veszteség, nyereség elszámolása
|
||||
Sub Reconfigure_RateDiff(ByVal _p_ocur As Xpo.XPObjectSpace, ByVal _p_GLHeader As GLHeader)
|
||||
Dim _GLHeader_Ratediff As GLMixed = Nothing
|
||||
Dim _GLCassa As GLCassa
|
||||
Dim _GLBank As GLBank
|
||||
Dim _GLCompensation As GLCompensation
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_RateDiff As GLRows
|
||||
Dim _PCIDetail As PCIDetail
|
||||
Dim _CurrencyRate_Account As Double
|
||||
Dim _AmountHUF_RatedIff As Double
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
Dim _Controlling As Controlling
|
||||
Dim _GLMixedNG As GLMixedNG
|
||||
Dim _GLHeader_RateDiffParameter = _p_ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1"))
|
||||
|
||||
If _GLHeader_RateDiffParameter Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
Dim _ChartOfAccounts_RateDiff_Win As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_p_GLHeader.DateExecution.Year, eWinLoss.eRateDiffWin)
|
||||
Dim _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_p_GLHeader.DateExecution.Year, eWinLoss.eRateDiffLoss)
|
||||
Dim _Controlling_RateDiff_Win As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Win
|
||||
Dim _Controlling_RateDiff_Loss As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Loss
|
||||
|
||||
Dim _InAmountHUF As Double = 0
|
||||
Dim _OutAmountHUF As Double = 0
|
||||
Select Case _p_GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLBank
|
||||
_GLHeader_Ratediff = TryCast(_p_GLHeader, GLBank).GLHeader_RateDiff
|
||||
TryCast(_p_GLHeader, GLBank).GLHeader_RateDiff = Nothing
|
||||
TryCast(_p_GLHeader, GLBank).Save()
|
||||
Case eGLDocumentType.eGLCassa
|
||||
_GLHeader_Ratediff = TryCast(_p_GLHeader, GLCassa).GLHeader_RateDiff
|
||||
TryCast(_p_GLHeader, GLCassa).GLHeader_RateDiff = Nothing
|
||||
TryCast(_p_GLHeader, GLCassa).Save()
|
||||
Case eGLDocumentType.eGLCompensation
|
||||
_GLHeader_Ratediff = TryCast(_p_GLHeader, GLCompensation).GLHeader_RateDiff
|
||||
TryCast(_p_GLHeader, GLCompensation).GLHeader_RateDiff = Nothing
|
||||
TryCast(_p_GLHeader, GLCompensation).Save()
|
||||
End Select
|
||||
|
||||
If _GLHeader_Ratediff IsNot Nothing Then
|
||||
_p_ocur.Delete(_GLHeader_Ratediff.GLRows)
|
||||
_p_ocur.Delete(_GLHeader_Ratediff)
|
||||
End If
|
||||
|
||||
|
||||
For Each _GLRows In _p_GLHeader.GLRows
|
||||
If _GLRows.CashType = eCashType.ePartner And _GLRows.Customer IsNot Nothing Then
|
||||
_PCIDetail = _p_ocur.FindObject(Of PCIDetail) _
|
||||
(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? and MainType='01-Account' and CurrencyName.ShortName<>'HUF'", _
|
||||
_p_GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True)
|
||||
If _PCIDetail IsNot Nothing Then
|
||||
If _PCIDetail.AmountDEV_Account <> 0 Then
|
||||
_CurrencyRate_Account = Math.Round(_PCIDetail.AmountHUF_Account / _PCIDetail.AmountDEV_Account, 4, MidpointRounding.AwayFromZero)
|
||||
If _GLRows.AmountDEV <> 0 Then
|
||||
_AmountHUF_RatedIff = 0
|
||||
_AmountHUF_RatedIff = (_GLRows.AmountDEV * _CurrencyRate_Account) - _GLRows.AmountHUF
|
||||
Select Case _GLRows.PartnerType
|
||||
Case ePartnerType.ePayabels
|
||||
If _GLRows.OutAmountDEV > 0 Then 'Terhelés
|
||||
If _AmountHUF_RatedIff < 0 Then 'Veszteség szállítóval szemben
|
||||
_DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss
|
||||
_CreditChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_InAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
_OutAmountHUF = 0
|
||||
Else 'Nyereség szállítóval szemben
|
||||
_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win
|
||||
_InAmountHUF = 0
|
||||
_OutAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
End If
|
||||
|
||||
ElseIf _GLRows.InAmountDEV > 0 Then 'Jóváírás
|
||||
If _AmountHUF_RatedIff < 0 Then 'Veszteség szállítóval szemben
|
||||
_DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss
|
||||
_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_InAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
_OutAmountHUF = 0
|
||||
Else 'Nyereség szállítóval szemben
|
||||
_DebitChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win
|
||||
_InAmountHUF = 0
|
||||
_OutAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
End If
|
||||
End If
|
||||
Case ePartnerType.eReceivables
|
||||
If _GLRows.OutAmountDEV > 0 Then 'Terhelés
|
||||
If _AmountHUF_RatedIff > 0 Then 'Veszteség vevővel szemben
|
||||
_DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss
|
||||
_CreditChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_InAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
_OutAmountHUF = 0
|
||||
Else 'Nyereség vevővel szemben
|
||||
_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win
|
||||
_InAmountHUF = 0
|
||||
_OutAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
End If
|
||||
|
||||
ElseIf _GLRows.InAmountDEV > 0 Then 'Jóváírás
|
||||
If _AmountHUF_RatedIff > 0 Then 'Veszteség vevővel szemben
|
||||
_DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss
|
||||
_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_InAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
_OutAmountHUF = 0
|
||||
Else 'Nyereség vevő szemben
|
||||
_DebitChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win
|
||||
_InAmountHUF = 0
|
||||
_OutAmountHUF = Math.Abs(_AmountHUF_RatedIff)
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
|
||||
If _AmountHUF_RatedIff <> 0 Then
|
||||
|
||||
If _GLHeader_Ratediff Is Nothing Then
|
||||
_GLHeader_Ratediff = _p_ocur.CreateObject(Of GLMixed)()
|
||||
End If
|
||||
_GLHeader_Ratediff.CustomersFrom = _p_GLHeader.CustomersFrom
|
||||
_GLMixedNG = _p_ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Ratediff.CustomersFrom), True)
|
||||
If _GLMixedNG IsNot Nothing Then
|
||||
If _GLHeader_Ratediff.DocumentNumber = "" Then
|
||||
_GLHeader_Ratediff.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator)
|
||||
End If
|
||||
End If
|
||||
_GLHeader_Ratediff.DateExecution = _p_GLHeader.DateExecution
|
||||
_GLHeader_Ratediff.DateCreated = _p_GLHeader.DateCreated
|
||||
_GLHeader_Ratediff.CurrencyRate = 1
|
||||
|
||||
_GLHeader_Ratediff.GLDocumentType = eGLDocumentType.eGLRateDiff
|
||||
_GLHeader_Ratediff.IsEditable = False
|
||||
_GLHeader_Ratediff.IsStorno = False
|
||||
_GLHeader_Ratediff.CurrencyName = _p_ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
_GLHeader_Ratediff.Save()
|
||||
|
||||
_GLRows_RateDiff = _p_ocur.CreateObject(Of GLRows)()
|
||||
_GLRows_RateDiff.InAmountHUF = _InAmountHUF
|
||||
_GLRows_RateDiff.OutAmountHUF = _OutAmountHUF
|
||||
_GLRows_RateDiff.GLHeader = _GLHeader_Ratediff
|
||||
_GLRows_RateDiff.AddGLRows(_GLHeader_Ratediff, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_AmountHUF_RatedIff), Nothing, _
|
||||
_GLRows.Customer, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _GLRows.ConnectInfo, _
|
||||
eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, _GLRows.TransactionType, eCashType.ePartner, _GLRows.PartnerType)
|
||||
_GLRows_RateDiff.Save()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If _GLHeader_Ratediff IsNot Nothing Then
|
||||
Select Case _p_GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLBank
|
||||
_GLBank = TryCast(_p_GLHeader, GLBank)
|
||||
_GLBank.GLHeader_RateDiff = _GLHeader_Ratediff
|
||||
_GLBank.Save()
|
||||
Case eGLDocumentType.eGLCassa
|
||||
_GLCassa = TryCast(_p_GLHeader, GLCassa)
|
||||
_GLCassa.GLHeader_RateDiff = _GLHeader_Ratediff
|
||||
_GLCassa.Save()
|
||||
Case eGLDocumentType.eGLCompensation
|
||||
_GLCompensation = TryCast(_p_GLHeader, GLCompensation)
|
||||
_GLCompensation.GLHeader_RateDiff = _GLHeader_Ratediff
|
||||
_GLCompensation.Save()
|
||||
End Select
|
||||
Else
|
||||
Select Case _p_GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLBank
|
||||
_GLBank = TryCast(_p_GLHeader, GLBank)
|
||||
_GLBank.GLHeader_RateDiff = Nothing
|
||||
_GLBank.Save()
|
||||
Case eGLDocumentType.eGLCassa
|
||||
_GLCassa = TryCast(_p_GLHeader, GLCassa)
|
||||
_GLCassa.GLHeader_RateDiff = Nothing
|
||||
_GLCassa.Save()
|
||||
Case eGLDocumentType.eGLCompensation
|
||||
_GLCompensation = TryCast(_p_GLHeader, GLCompensation)
|
||||
_GLCompensation.GLHeader_RateDiff = Nothing
|
||||
_GLCompensation.Save()
|
||||
End Select
|
||||
End If
|
||||
_p_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
+304
@@ -0,0 +1,304 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Public Enum eWinLoss
|
||||
eRateDiffWin = 0
|
||||
eRateDiffLoss = 1
|
||||
eRoundingWin = 2
|
||||
eRoundingLoss = 3
|
||||
eRevaluationWin = 4
|
||||
eRevaluationLoss = 5
|
||||
End Enum
|
||||
<DefaultClassOptions(), CreatableItem(False)> _
|
||||
<NavigationItem("FinancialStock")> _
|
||||
Public Class GLHeader_RateDiffParameter
|
||||
Inherits BaseObject
|
||||
Private _ChartOfAccounts_RateDiff_Win As ChartOfAccounts '(deb)
|
||||
Private _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts '(deb)
|
||||
Private _Controlling_RateDiff_Win As Controlling
|
||||
Private _Controlling_RateDiff_Loss As Controlling
|
||||
|
||||
Private _ChartOfAccounts_Rounding_Win As ChartOfAccounts '(deb)
|
||||
Private _ChartOfAccounts_Rounding_Loss As ChartOfAccounts '(deb)
|
||||
|
||||
Private _Controlling_Rounding_Win As Controlling
|
||||
Private _Controlling_Rounding_Loss As Controlling
|
||||
|
||||
Private _Controlling_Revaluation_Win As Controlling
|
||||
Private _Controlling_Revaluation_Loss As Controlling
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property ChartOfAccounts_RateDiff_Win As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_RateDiff_Win
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_RateDiff_Win", _ChartOfAccounts_RateDiff_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property ChartOfAccounts_RateDiff_Loss As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_RateDiff_Loss
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_RateDiff_Loss", _ChartOfAccounts_RateDiff_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("GLHeader_RateDiffParameter-Controlling_RateDiff_Win", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling_RateDiff_Win As Controlling
|
||||
Get
|
||||
Return _Controlling_RateDiff_Win
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_RateDiff_Win", _Controlling_RateDiff_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader_RateDiffParameter-Controlling_RateDiff_Loss", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling_RateDiff_Loss As Controlling
|
||||
Get
|
||||
Return _Controlling_RateDiff_Loss
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling_RateDiff_Loss", _Controlling_RateDiff_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccounts_Rounding_Win As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Rounding_Win
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Rounding_Win", _ChartOfAccounts_Rounding_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property ChartOfAccounts_Rounding_Loss As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Rounding_Loss
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Rounding_Loss", _ChartOfAccounts_Rounding_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("GLHeader_RoundingParameter-Controlling_Rounding_Win", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling_Rounding_Win As Controlling
|
||||
Get
|
||||
Return _Controlling_Rounding_Win
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_Rounding_Win", _Controlling_Rounding_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader_RoundingParameter-Controlling_Rounding_Loss", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling_Rounding_Loss As Controlling
|
||||
Get
|
||||
Return _Controlling_Rounding_Loss
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling_Rounding_Loss", _Controlling_Rounding_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Controlling_Revaluation_Win As Controlling
|
||||
Get
|
||||
Return _Controlling_Revaluation_Win
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_Revaluation_Win", _Controlling_Revaluation_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling_Revaluation_Loss As Controlling
|
||||
Get
|
||||
Return _Controlling_Revaluation_Loss
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_Revaluation_Loss", _Controlling_Revaluation_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Association("GLHeader_RateDiffParameter-GLHeader_RateDiffParameterYear", GetType(GLHeader_RateDiffParameterYear)), VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
ReadOnly Property GLHeader_RateDiffParameterYear As XPCollection(Of GLHeader_RateDiffParameterYear)
|
||||
Get
|
||||
Return GetCollection(Of GLHeader_RateDiffParameterYear)("GLHeader_RateDiffParameterYear")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Function GetChartOfAccounts(_AccountYear As Long, _WinLoss As eWinLoss) As ChartOfAccounts
|
||||
Dim _ChartOfAccounts As ChartOfAccounts = Nothing
|
||||
Dim _GLHeader_RateDiffParameterYear As GLHeader_RateDiffParameterYear
|
||||
Select Case _WinLoss
|
||||
Case eWinLoss.eRateDiffLoss
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Loss
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eWinLoss.eRateDiffWin
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Win
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eWinLoss.eRoundingLoss
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Loss
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eWinLoss.eRoundingWin
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Win
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eWinLoss.eRevaluationWin
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Revaluation_Win
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Case eWinLoss.eRevaluationLoss
|
||||
For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear
|
||||
If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then
|
||||
_ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Revaluation_Loss
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
End Select
|
||||
Return _ChartOfAccounts
|
||||
End Function
|
||||
End Class
|
||||
|
||||
<DefaultClassOptions(), CreatableItem(False)>
|
||||
<NavigationItem(False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader_RateDiffParameterYear-ChartOfAccounts_RateDiff_Win", DefaultContexts.Save, "ChartOfAccounts_RateDiff_Win.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader_RateDiffParameterYear-ChartOfAccounts_RateDiff_Loss", DefaultContexts.Save, "ChartOfAccounts_RateDiff_Loss.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader_RateDiffParameterYear-ChartOfAccounts_Rounding_Win", DefaultContexts.Save, "ChartOfAccounts_Rounding_Win.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<RuleCriteria("RuleCriteria GLHeader_RateDiffParameterYear-ChartOfAccounts_Rounding_Loss", DefaultContexts.Save, "ChartOfAccounts_Rounding_Loss.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
Public Class GLHeader_RateDiffParameterYear
|
||||
Inherits BaseObject
|
||||
Private _GLHeader_RateDiffParameter As GLHeader_RateDiffParameter
|
||||
Private _AccountYear As Long
|
||||
|
||||
Private _ChartOfAccounts_RateDiff_Win As ChartOfAccounts 'Árfolyam nyereség
|
||||
Private _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts 'Árfolyam veszteség
|
||||
|
||||
Private _ChartOfAccounts_Rounding_Win As ChartOfAccounts 'Elengedési nyereség
|
||||
Private _ChartOfAccounts_Rounding_Loss As ChartOfAccounts 'Elengedési veszteség
|
||||
|
||||
Private _ChartOfAccounts_Revaluation_Win As ChartOfAccounts 'Átértékelési nyereség
|
||||
Private _ChartOfAccounts_Revaluation_Loss As ChartOfAccounts 'Átértékelési veszteség
|
||||
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
<Association("GLHeader_RateDiffParameter-GLHeader_RateDiffParameterYear", GetType(GLHeader_RateDiffParameter))>
|
||||
Property GLHeader_RateDiffParameter As GLHeader_RateDiffParameter
|
||||
Get
|
||||
Return _GLHeader_RateDiffParameter
|
||||
End Get
|
||||
Set(value As GLHeader_RateDiffParameter)
|
||||
SetPropertyValue("GLHeader_RateDiffParameter", _GLHeader_RateDiffParameter, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
Property ChartOfAccounts_RateDiff_Win As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_RateDiff_Win
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_RateDiff_Win", _ChartOfAccounts_RateDiff_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
Property ChartOfAccounts_RateDiff_Loss As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_RateDiff_Loss
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_RateDiff_Loss", _ChartOfAccounts_RateDiff_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts_Rounding_Win As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Rounding_Win
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Rounding_Win", _ChartOfAccounts_Rounding_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts_Rounding_Loss As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Rounding_Loss
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Rounding_Loss", _ChartOfAccounts_Rounding_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts_Revaluation_Win As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Revaluation_Win
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Revaluation_Win", _ChartOfAccounts_Revaluation_Win, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.AccountYear'")>
|
||||
Property ChartOfAccounts_Revaluation_Loss As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts_Revaluation_Loss
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts_Revaluation_Loss", _ChartOfAccounts_Revaluation_Loss, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
+716
@@ -0,0 +1,716 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialTransactions")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class GLRows
|
||||
Inherits BaseObject
|
||||
Private _GLHeader As GLHeader
|
||||
Private _GLAccounts As GLAccounts
|
||||
Private _DebitChartOfAccounts As ChartOfAccounts 'Tartozik számlaszám
|
||||
Private _CreditChartOfAccounts As ChartOfAccounts ' Követel számlaszám
|
||||
Private _AmountHUF As Double ' könyvelt összeg forintban
|
||||
Private _AmountDEV As Double ' könyvelt összeg devizában
|
||||
Private _AmountDEVFIFO As Double = 0 'FIFO értékeléshez felhasznált deviza összege
|
||||
Private _LiquidAssets As LiquidAssets ' pénzeszköz
|
||||
Private _Customer As Customers ' partner
|
||||
Private _DateVAT As Date 'ÁFA idõszak
|
||||
Private _DateExecution As Date 'Teljesítési idõszak
|
||||
Private _VAT As VAT 'ÁFA kód
|
||||
Private _NoteRows As String 'Sor megjegyzés
|
||||
|
||||
|
||||
Private _Controlling As Controlling 'Kontrolling szám
|
||||
Private _CostPlace As CostPlace 'Költséghely
|
||||
Private _CostHolder As CostHolder 'Költségviselõ
|
||||
Private _JobNumberObjects As JobNumberObjects 'Munkaszám
|
||||
Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
|
||||
|
||||
|
||||
Private _ConnectInfo As String = "" 'Analitikus kötési szám folyószámlához
|
||||
Private _ConnectInfoAdvanced As String = "" 'Analitikus kötési szám az előlegek pontozásához
|
||||
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _DebitAmountHUF As Double = 0
|
||||
Private _CreditAmountHUF As Double = 0
|
||||
Private _DebitAmountDEV As Double = 0
|
||||
Private _CreditAmountDEV As Double = 0
|
||||
Private _GLRowsGUID As Guid
|
||||
Private _GLRowsTypeVAT As eGLRowsTypeVAT
|
||||
Private _InAmountHUF As Double = 0 'Pénztár miatt befizetés
|
||||
Private _OutAmountHUF As Double = 0 'Pénztár miatt kifizetés
|
||||
Private _InAmountDEV As Double = 0 'Pénztár miatt befizetés
|
||||
Private _OutAmountDEV As Double = 0 'Pénztár miatt kifizetés
|
||||
Private _ImportID As String = "" 'Külsõ rendszerbõl importált sor
|
||||
Private _CashType As eCashType
|
||||
Private _TransactionType As eTransactionType
|
||||
Private _CurrencyRate2 As Double = 1
|
||||
Private _InAmountDEV2 As Double = 0 'Másodlagos deviza !
|
||||
Private _OutAmountDEV2 As Double = 0 'Másodlagos deviza
|
||||
Private _CurrencyName2 As CurrencyName 'Másodlagos devizanem
|
||||
Private _BankImportHeaderSumDetail As BankImportHeaderSumDetail
|
||||
Private _GLRowsRateDiff As GLRows
|
||||
|
||||
Private _InvoiceRows As InvoiceRows
|
||||
Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
|
||||
Private _GLRowsType As eGLRowsType '0 normál 1 Nyitó, 2 Záró
|
||||
|
||||
Private _RowIndex As Long 'Sorrend
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Me.GLHeader IsNot Nothing Then
|
||||
If Me.GLHeader.DateExecution = Nothing Then
|
||||
Else
|
||||
Me.DateExecution = Me.GLHeader.DateExecution
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Me.ConnectInfo Is Nothing Then
|
||||
Me.ConnectInfo = ""
|
||||
End If
|
||||
|
||||
Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(Session, CriteriaOperator.Parse("GLRows.Oid=?", Me.Oid))
|
||||
Session.Delete(_GLDetail_Collection)
|
||||
Dim _GLDetail As GLDetails
|
||||
|
||||
If Session.IsObjectToDelete(Me) = False Then
|
||||
_GLDetail = New GLDetails(Session)
|
||||
_GLDetail.GLRows = Me
|
||||
_GLDetail.AmountDEV = Me.AmountDEV
|
||||
_GLDetail.AmountHUF = Me.AmountHUF
|
||||
_GLDetail.Side = "T"
|
||||
_GLDetail.ChartOfAccounts = Me.DebitChartOfAccounts
|
||||
|
||||
|
||||
|
||||
_GLDetail = New GLDetails(Session)
|
||||
_GLDetail.GLRows = Me
|
||||
_GLDetail.AmountDEV = Me.AmountDEV
|
||||
_GLDetail.AmountHUF = Me.AmountHUF
|
||||
_GLDetail.Side = "K"
|
||||
_GLDetail.ChartOfAccounts = Me.CreditChartOfAccounts
|
||||
|
||||
GLRowsType = eGLRowsType.eNormal
|
||||
If CreditChartOfAccounts IsNot Nothing AndAlso DebitChartOfAccounts IsNot Nothing Then
|
||||
|
||||
If CreditChartOfAccounts.AccountNumber Like "491*" Or DebitChartOfAccounts.AccountNumber Like "491*" Then
|
||||
GLRowsType = eGLRowsType.eOpen
|
||||
End If
|
||||
If CreditChartOfAccounts.AccountNumber Like "492*" Or DebitChartOfAccounts.AccountNumber Like "492*" Then
|
||||
GLRowsType = eGLRowsType.eClose
|
||||
End If
|
||||
End If
|
||||
If Me.DateExecution = Nothing Then
|
||||
If Me.GLHeader IsNot Nothing Then
|
||||
Me.DateExecution = Me.GLHeader.DateExecution
|
||||
End If
|
||||
End If
|
||||
|
||||
' '// Sorrend beállítása
|
||||
' If Session.IsNewObject(Me) Then
|
||||
' Me.RowIndex = Me.GLHeader.GLRows.Count
|
||||
' End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
|
||||
Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(Session, CriteriaOperator.Parse("GLRows.Oid=?", Me.Oid))
|
||||
Session.Delete(_GLDetail_Collection)
|
||||
Dim _GLDetail As GLDetails
|
||||
|
||||
|
||||
Dim _GLRowsRateDiff_Collection As New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("GLRowsRateDiff=?", Me))
|
||||
For Each _GLRows As GLRows In _GLRowsRateDiff_Collection
|
||||
_GLRows.GLRowsRateDiff = Nothing
|
||||
_GLRows.Save()
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleted()
|
||||
MyBase.OnDeleted()
|
||||
|
||||
'// PARASZTLENGŐS ÚJRAPONTOZÁS TÖRLÉS ESETÉN !!!!
|
||||
On Error Resume Next
|
||||
|
||||
If Me.PartnerType <> ePartnerType.eNotSet Then
|
||||
'Dim _uow As New UnitOfWork(Session.DataLayer)
|
||||
'Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
|
||||
|
||||
'For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
|
||||
' GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, Me.Customer, Me.PartnerType, Me.ConnectInfo)
|
||||
' _uow.CommitChanges()
|
||||
'Next
|
||||
End If
|
||||
|
||||
'// Sorrend újraépítése !!!
|
||||
End Sub
|
||||
|
||||
|
||||
<Association("GLHeader", GetType(GLHeader))> _
|
||||
Property GLHeader() As GLHeader
|
||||
Get
|
||||
Return _GLHeader
|
||||
End Get
|
||||
Set(ByVal value As GLHeader)
|
||||
SetPropertyValue("GLHeader", _GLHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("isnull(Children)=True")>
|
||||
Property DebitChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _DebitChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
Property CreditChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _CreditChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("", DefaultContexts.Save)>
|
||||
Property AmountHUF() As Double
|
||||
Get
|
||||
Return Math.Round(_AmountHUF, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV() As Double
|
||||
Get
|
||||
Return Math.Round(_AmountDEV, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)>
|
||||
Property AmountDEVFIFO As Double
|
||||
Get
|
||||
Return Math.Round(_AmountDEVFIFO, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEVFIFO", _AmountDEVFIFO, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property LiquidAssets() As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets", _LiquidAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customer() As Customers
|
||||
Get
|
||||
Return _Customer
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customer", _Customer, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateVAT() As Date
|
||||
Get
|
||||
Return _DateVAT
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateCreated", _DateVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VAT() As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(ByVal value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property NoteRows() As String
|
||||
Get
|
||||
Return _NoteRows
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("NoteRows", _NoteRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property RowIndex As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
'Rule5DMatrix ...
|
||||
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
<RuleRequiredField("GLRows-Controlling", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireControlling=True and Require5DValidation=True")> _
|
||||
Property Controlling() As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True and Require5DValidation=True")> _
|
||||
Property JobNumberObjects() As JobNumberObjects
|
||||
Get
|
||||
Return _JobNumberObjects
|
||||
End Get
|
||||
Set(ByVal value As JobNumberObjects)
|
||||
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True and Require5DValidation=True")> _
|
||||
Property UniqueObjects() As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(ByVal value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostPlace=True and Require5DValidation=True")> _
|
||||
Property CostPlace() As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(ByVal value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostHolder=True and Require5DValidation=True")> _
|
||||
Property CostHolder() As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(ByVal value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(False)> _
|
||||
ReadOnly Property Rule5DMatrix As Rule5DMatrix
|
||||
Get
|
||||
If GLHeader Is Nothing Then
|
||||
Return Nothing
|
||||
Else
|
||||
Dim _Rule5DforGL As Rule5DforGL = Session.FindObject(Of Rule5DforGL)(CriteriaOperator.Parse("GLDocumentType=?", GLHeader.GLDocumentType))
|
||||
If _Rule5DforGL IsNot Nothing Then
|
||||
Return _Rule5DforGL.Rule5DMatrix
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
ReadOnly Property Require5DValidation As Boolean
|
||||
Get
|
||||
Dim _Require5DValidation As Boolean = True
|
||||
If _Require5DValidation Then
|
||||
Select Case Me.CreditChartOfAccounts.AccountNumber
|
||||
Case "599", "491", "492", "493"
|
||||
_Require5DValidation = False
|
||||
Case Else
|
||||
_Require5DValidation = True
|
||||
End Select
|
||||
End If
|
||||
If _Require5DValidation Then
|
||||
Select Case Me.DebitChartOfAccounts.AccountNumber
|
||||
Case "599", "491", "492", "493"
|
||||
_Require5DValidation = False
|
||||
Case Else
|
||||
_Require5DValidation = True
|
||||
End Select
|
||||
End If
|
||||
Return _Require5DValidation
|
||||
End Get
|
||||
End Property
|
||||
Property ConnectInfo() As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, LTrim(RTrim(value)))
|
||||
End Set
|
||||
End Property
|
||||
Property ConnectInfoAdvanced As String
|
||||
Get
|
||||
Return _ConnectInfoAdvanced
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ConnectInfoAdvanced", _ConnectInfoAdvanced, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitAmountHUF() As Double
|
||||
Get
|
||||
Return Math.Round(_DebitAmountHUF, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property CreditAmountHUF() As Double
|
||||
Get
|
||||
Return Math.Round(_CreditAmountHUF, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property DebitAmountDEV() As Double
|
||||
Get
|
||||
Return _DebitAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditAmountDEV() As Double
|
||||
Get
|
||||
Return _CreditAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLRowsTypeVAT As eGLRowsTypeVAT
|
||||
Get
|
||||
Return _GLRowsTypeVAT
|
||||
End Get
|
||||
Set(ByVal value As eGLRowsTypeVAT)
|
||||
SetPropertyValue("GLRowsTypeVAT", _GLRowsTypeVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLRowsGUID As Guid
|
||||
Get
|
||||
Return _GLRowsGUID
|
||||
End Get
|
||||
Set(ByVal value As Guid)
|
||||
SetPropertyValue("GLRowsGUID", _GLRowsGUID, value)
|
||||
End Set
|
||||
End Property
|
||||
'-- Összegek !!!
|
||||
Property InAmountHUF As Double
|
||||
Get
|
||||
Return Math.Round(_InAmountHUF, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("InAmountHUF", _InAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property OutAmountHUF As Double
|
||||
Get
|
||||
Return Math.Round(_OutAmountHUF, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("OutAmountHUF", _OutAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property InAmountDEV As Double
|
||||
Get
|
||||
Return Math.Round(_InAmountDEV, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("InAmountDEV", _InAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property OutAmountDEV As Double
|
||||
Get
|
||||
Return Math.Round(_OutAmountDEV, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("OutAmountDEV", _OutAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ImportID As String
|
||||
Get
|
||||
Return _ImportID
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ImportID", _ImportID, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CashType As eCashType
|
||||
Get
|
||||
Return _CashType
|
||||
End Get
|
||||
Set(ByVal value As eCashType)
|
||||
SetPropertyValue("CashType", _CashType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TransactionType As eTransactionType
|
||||
Get
|
||||
Return _TransactionType
|
||||
End Get
|
||||
Set(ByVal value As eTransactionType)
|
||||
SetPropertyValue("TransactionType", _TransactionType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyRate2 As Double
|
||||
Get
|
||||
Return _CurrencyRate2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CurrencyRate2", _CurrencyRate2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InAmountDEV2 As Double
|
||||
Get
|
||||
Return Math.Round(_InAmountDEV2, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("InAmountDEV2", _InAmountDEV2, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property OutAmountDEV2 As Double
|
||||
Get
|
||||
Return Math.Round(_OutAmountDEV2, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("OutAmountDEV2", _OutAmountDEV2, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property GLRowsType As eGLRowsType
|
||||
Get
|
||||
Return _GLRowsType
|
||||
End Get
|
||||
Set(value As eGLRowsType)
|
||||
SetPropertyValue("GLRowsType", _GLRowsType, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
Property GLRowsRateDiff As GLRows
|
||||
Get
|
||||
Return _GLRowsRateDiff
|
||||
End Get
|
||||
Set(value As GLRows)
|
||||
SetPropertyValue("GLRowsRateDiff", _GLRowsRateDiff, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
Property InvoiceRows As InvoiceRows
|
||||
Get
|
||||
Return _InvoiceRows
|
||||
End Get
|
||||
Set(value As InvoiceRows)
|
||||
SetPropertyValue("InvoiceRows", _InvoiceRows, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
|
||||
Get
|
||||
Return _RegistryRowsFinancialControlling
|
||||
End Get
|
||||
Set(value As RegistryRowsFinancialControlling)
|
||||
SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BankImportHeaderSumDetail As BankImportHeaderSumDetail
|
||||
Get
|
||||
Return _BankImportHeaderSumDetail
|
||||
End Get
|
||||
Set(value As BankImportHeaderSumDetail)
|
||||
SetPropertyValue("BankImportHeaderSumDetail", _BankImportHeaderSumDetail, value)
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property CurrencyRate As Double
|
||||
Get
|
||||
If AmountDEV <> 0 Then
|
||||
Return AmountHUF / AmountDEV
|
||||
Else
|
||||
Return 1
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Sub AddGLRows(ByVal p_GLHeader As GLHeader, ByVal p_DebitChartOfAccounts As ChartOfAccounts, ByVal p_CreditChartOfAccounts As ChartOfAccounts, _
|
||||
ByVal p_AmountDEV As Double, ByVal p_AmountHUF As Double, ByVal p_LiquidAssets As LiquidAssets, _
|
||||
ByVal p_Customer As Customers, ByVal p_DateVAT As Date, _
|
||||
ByVal p_VAT As VAT, ByVal p_NoteRows As String, ByVal p_UniqueObjects As UniqueObjects, _
|
||||
ByVal p_Controlling As Controlling, ByVal p_JobNumberOBjects As JobNumberObjects, _
|
||||
ByVal p_CostPlace As CostPlace, ByVal p_CostHolder As CostHolder, ByVal p_ConnectInfo As String, _
|
||||
ByVal p_GLRowsTypeVAT As eGLRowsTypeVAT, ByVal p_GLRowsGUID As Guid, Optional ByVal p_TransactionType As eTransactionType = eTransactionType.eNotSet, _
|
||||
Optional ByVal p_CashType As eCashType = eCashType.eNormal, Optional ByVal p_PartnerType As ePartnerType = ePartnerType.eNotSet)
|
||||
TransactionType = p_TransactionType
|
||||
GLHeader = p_GLHeader
|
||||
DebitChartOfAccounts = p_DebitChartOfAccounts
|
||||
CreditChartOfAccounts = p_CreditChartOfAccounts
|
||||
AmountDEV = p_AmountDEV
|
||||
AmountHUF = p_AmountHUF
|
||||
LiquidAssets = p_LiquidAssets
|
||||
Customer = p_Customer
|
||||
DateVAT = p_DateVAT
|
||||
VAT = p_VAT
|
||||
NoteRows = p_NoteRows
|
||||
UniqueObjects = p_UniqueObjects
|
||||
Controlling = p_Controlling
|
||||
JobNumberObjects = p_JobNumberOBjects
|
||||
CostPlace = p_CostPlace
|
||||
CostHolder = p_CostHolder
|
||||
ConnectInfo = p_ConnectInfo
|
||||
GLRowsTypeVAT = p_GLRowsTypeVAT
|
||||
GLRowsGUID = p_GLRowsGUID
|
||||
CashType = p_CashType
|
||||
PartnerType = p_PartnerType
|
||||
|
||||
End Sub
|
||||
Public Sub DivideRows(_ocur As Xpo.XPObjectSpace, p_GLRowsBase As GLRows, p_GLRowsDivideH As GLRowsDivideH, Optional p_WithCommit As Boolean = False)
|
||||
'-- Az eljárás megcsinálja a megfelelõ fõkönyvi sor sorbontását
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
Dim _GLHeader As GLHeader
|
||||
Dim _GLBank As GLBank
|
||||
Dim _GLCassa As GLCassa
|
||||
Dim _GLCompensation As GLCompensation
|
||||
Dim _GLRows As GLRows
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing
|
||||
Dim _LiquidAssets As LiquidAssets = Nothing
|
||||
|
||||
Dim _CustomersFrom_Base As CustomersFrom = Nothing
|
||||
Dim _Customers_Base As Customers = Nothing
|
||||
Dim _ConnectInfo_Base As String = ""
|
||||
Dim _PartnerType_Base As ePartnerType = ePartnerType.eNotSet
|
||||
|
||||
If p_GLRowsBase IsNot Nothing Then
|
||||
_GLHeader = p_GLRowsBase.GLHeader
|
||||
If p_GLRowsBase.PartnerType = ePartnerType.ePayabels Or p_GLRowsBase.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersFrom_Base = p_GLRowsBase.GLHeader.CustomersFrom
|
||||
_Customers_Base = p_GLRowsBase.Customer
|
||||
_PartnerType_Base = p_GLRowsBase.PartnerType
|
||||
_ConnectInfo_Base = p_GLRowsBase.ConnectInfo
|
||||
End If
|
||||
If p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLBank Or _
|
||||
p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLCassa Or _
|
||||
p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLCompensation Or _
|
||||
p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then ' Bank esetén mi a helyzet !
|
||||
|
||||
Select Case p_GLRowsBase.GLHeader.GLDocumentType
|
||||
Case eGLDocumentType.eGLBank
|
||||
_GLBank = _ocur.FindObject(Of GLBank)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True)
|
||||
_LiquidAssets = _GLBank.LiquidAssets_Main
|
||||
Case eGLDocumentType.eGLCassa
|
||||
_GLCassa = _ocur.FindObject(Of GLCassa)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True)
|
||||
_LiquidAssets = _GLCassa.LiquidAssets_Cassa
|
||||
Case eGLDocumentType.eGLCompensation
|
||||
_GLCompensation = _ocur.FindObject(Of GLCompensation)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True)
|
||||
_LiquidAssets = _GLCompensation.LiquidAssets_Main
|
||||
End Select
|
||||
|
||||
For Each _GLRowsDivideR In p_GLRowsDivideH.GLRowsDivideR
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
_GLRows.GLHeader = _GLHeader
|
||||
If p_GLRowsBase.GLHeader.GLDocumentType <> eGLDocumentType.eGLMixed Then
|
||||
If _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0).AccountNumber = p_GLRowsBase.DebitChartOfAccounts.AccountNumber Then
|
||||
'-- Bankba jóváírás érkezett
|
||||
_DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
||||
If _GLRowsDivideR.ChartOfAccounts IsNot Nothing Then
|
||||
_CreditChartOfAccounts = _GLRowsDivideR.ChartOfAccounts
|
||||
Else
|
||||
_CreditChartOfAccounts = p_GLRowsDivideH.GLRowsBase.CreditChartOfAccounts
|
||||
End If
|
||||
_GLRows.InAmountDEV = _GLRowsDivideR.AmountDEV
|
||||
_GLRows.InAmountHUF = _GLRowsDivideR.AmountHUF
|
||||
ElseIf _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0).AccountNumber = p_GLRowsBase.CreditChartOfAccounts.AccountNumber Then
|
||||
'-- Banki terhelés
|
||||
_CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0)
|
||||
If _GLRowsDivideR.ChartOfAccounts IsNot Nothing Then
|
||||
_DebitChartOfAccounts = _GLRowsDivideR.ChartOfAccounts
|
||||
Else
|
||||
_DebitChartOfAccounts = p_GLRowsDivideH.GLRowsBase.DebitChartOfAccounts
|
||||
End If
|
||||
_GLRows.OutAmountDEV = _GLRowsDivideR.AmountDEV
|
||||
_GLRows.OutAmountHUF = _GLRowsDivideR.AmountHUF
|
||||
|
||||
End If
|
||||
End If
|
||||
If p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
|
||||
_DebitChartOfAccounts = _GLRowsDivideR.DebitChartOfAccounts
|
||||
_CreditChartOfAccounts = _GLRowsDivideR.CreditChartOfAccounts
|
||||
_GLRows.OutAmountDEV = _GLRowsDivideR.AmountDEV
|
||||
_GLRows.OutAmountHUF = _GLRowsDivideR.AmountHUF
|
||||
_LiquidAssets = Nothing
|
||||
End If
|
||||
_GLRows.AddGLRows(_GLHeader, _ocur.GetObject(_DebitChartOfAccounts), _ocur.GetObject(CreditChartOfAccounts), _GLRowsDivideR.AmountDEV, _GLRowsDivideR.AmountHUF, _
|
||||
_LiquidAssets, _ocur.GetObject(_GLRowsDivideR.Customers), _GLHeader.DateExecution, Nothing, _ocur.GetObject(_GLRowsDivideR.NoteRows), _
|
||||
_ocur.GetObject(_GLRowsDivideR.UniqueObjects), _ocur.GetObject(_GLRowsDivideR.Controlling), _ocur.GetObject(_GLRowsDivideR.JobNumberObjects), _ocur.GetObject(_GLRowsDivideR.CostPlace), _
|
||||
_ocur.GetObject(_GLRowsDivideR.CostHolder), _GLRowsDivideR.ConnectInfo, eGLRowsTypeVAT.eNettoRow, p_GLRowsBase.GLRowsGUID, _
|
||||
p_GLRowsBase.TransactionType, p_GLRowsBase.CashType, p_GLRowsBase.PartnerType)
|
||||
If p_WithCommit Then
|
||||
_ocur.CommitChanges()
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.Delete(p_GLRowsBase)
|
||||
End If
|
||||
If p_WithCommit Then
|
||||
_ocur.CommitChanges()
|
||||
If _PartnerType_Base = ePartnerType.ePayabels Or _PartnerType_Base = ePartnerType.eReceivables Then
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow, _CustomersFrom_Base, _Customers_Base, _PartnerType_Base, _ConnectInfo_Base)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
+70
@@ -0,0 +1,70 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<Browsable(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class GLRowsFIFO
|
||||
Inherits BaseObject
|
||||
Private _GLRowsIn As GLRows
|
||||
Private _GLRowsOut As GLRows
|
||||
Private _InAmountDEV As Double = 0
|
||||
Private _OutAmountDEV As Double = 0
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property GLRowsIn As GLRows
|
||||
Get
|
||||
Return _GLRowsIn
|
||||
End Get
|
||||
Set(value As GLRows)
|
||||
SetPropertyValue("GLRowsIn", _GLRowsIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLRowsOut As GLRows
|
||||
Get
|
||||
Return _GLRowsOut
|
||||
End Get
|
||||
Set(value As GLRows)
|
||||
SetPropertyValue("GLRowsOut", _GLRowsOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InAmountDEV As Double
|
||||
Get
|
||||
Return _InAmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("InAmountDEV", _InAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OutAmountDEV As Double
|
||||
Get
|
||||
Return _OutAmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("OutAmountDEV", _OutAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
+60
@@ -0,0 +1,60 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
|
||||
Public Class GLRowsStatistics
|
||||
Inherits BaseObject
|
||||
|
||||
Private _MasterKey As Guid
|
||||
Private _RegistryHeader As RegistryHeader
|
||||
Private _InvoiceHeader As InvoiceHeader
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RegistryHeader As RegistryHeader
|
||||
Get
|
||||
Return _RegistryHeader
|
||||
End Get
|
||||
Set(value As RegistryHeader)
|
||||
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InvoiceHeader As InvoiceHeader
|
||||
Get
|
||||
Return _InvoiceHeader
|
||||
End Get
|
||||
Set(value As InvoiceHeader)
|
||||
SetPropertyValue("InvoiceHeader", _InvoiceHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+51
@@ -0,0 +1,51 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.DC
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
'<ImageName("BO_Contact")> _
|
||||
'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
|
||||
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
|
||||
'<Persistent("DatabaseTableName")> _
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
|
||||
Public Class GLBaseMainCheck ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
|
||||
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
|
||||
End Sub
|
||||
|
||||
Property AlertString As String
|
||||
Property AlartCount As Long = 0
|
||||
'Private _PersistentProperty As String
|
||||
'<XafDisplayName("My display name"), ToolTip("My hint message")> _
|
||||
'<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
|
||||
'<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
|
||||
'Public Property PersistentProperty() As String
|
||||
' Get
|
||||
' Return _PersistentProperty
|
||||
' End Get
|
||||
' Set(ByVal value As String)
|
||||
' SetPropertyValue("PersistentProperty", _PersistentProperty, value)
|
||||
' End Set
|
||||
'End Property
|
||||
|
||||
'<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
|
||||
'Public Sub ActionMethod()
|
||||
' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
|
||||
' Me.PersistentProperty = "Paid"
|
||||
'End Sub
|
||||
End Class
|
||||
+363
@@ -0,0 +1,363 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("GLRowsDivideH-row_AmountDEV disable", targetitems:="row_AmountDEV;AmountDiffDEV", criteria:="GLRowsBase.GLHeader.CurrencyName.ShortName='HUF'", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("GLRowsDivideH-row_CashType disable", targetitems:="row_ChartOfAccounts", criteria:="row_CashType=0", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<RuleCriteria("RuleCriteria GLRowsDivideH-row_Controlling.IsParent=False", "aToTable_GLRowsDivide", "row_Controlling.IsParent=False", _
|
||||
"Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False, targetcriteria:="row_PartnerType=-1")> _
|
||||
<Appearance("GLRowsDivideH-hide if not GLMixed", "ViewItem", targetitems:="row_DebitChartOfAccounts;row_CreditChartOfAccounts", _
|
||||
criteria:="GLRowsBase.GLHeader.GLDocumentType != 0", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("GLRowsDivideH-hide if GLMixed", "ViewItem", targetitems:="row_ChartOfAccounts", criteria:="GLRowsBase.GLHeader.GLDocumentType = 0", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("GLRowsDivideH-hide if not Partner ViewItem", "ViewItem", targetitems:="row_Customers;row_ConnectInfo", criteria:="row_PartnerType=-1", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("GLRowsDivideH-hide if not Partner Action", AppearanceItemType:="Action", targetitems:="aFindPCI", criteria:="row_PartnerType=-1", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<RuleCriteria("RuleCriteria GLRowsDivideH-row_ChartOfAccounts", "aToTable_GLRowsDivide", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
<RuleCriteria("RuleCriteria GLRowsDivideH-row_DebitChartOfAccounts", "aToTable_GLRowsDivide", "row_DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
<RuleCriteria("RuleCriteria GLRowsDivideH-row_CreditChartOfAccounts", "aToTable_GLRowsDivide", "row_CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class GLRowsDivideH
|
||||
Inherits BaseObject
|
||||
Private _GLRows_Oid As Guid
|
||||
Private _row_CashType As eCashType
|
||||
Private _row_PartnerType As ePartnerType
|
||||
Private _row_Customers As Customers
|
||||
Private _row_ConnectInfo As String
|
||||
Private _row_ChartOfAccounts As ChartOfAccounts
|
||||
Private _row_DebitChartOfAccounts As ChartOfAccounts
|
||||
Private _row_CreditChartOfAccounts As ChartOfAccounts
|
||||
|
||||
Private _row_Controlling As Controlling
|
||||
Private _row_CostHolder As CostHolder
|
||||
Private _row_CostPlace As CostPlace
|
||||
Private _row_JobNumberObjects As JobNumberObjects
|
||||
Private _row_UniqueObjects As UniqueObjects
|
||||
Private _row_Cars As Cars 'Jármû
|
||||
Private _row_HRPerson As HRPerson 'Ember
|
||||
Private _row_Phones As Phones 'Telefon
|
||||
|
||||
Private _row_AmountHUF As Double
|
||||
Private _row_AmountDEV As Double
|
||||
Private _row_NoteRow As String
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
|
||||
ReadOnly Property GLRowsBase As GLRows
|
||||
Get
|
||||
Dim _GLRows As GLRows
|
||||
_GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid))
|
||||
Return _GLRows
|
||||
End Get
|
||||
End Property
|
||||
<RuleRange("GLRowsDivideH-AmountDiffHUF", "DialogOk_Contexts", 0, 0)> _
|
||||
ReadOnly Property AmountDiffHUF As Double
|
||||
Get
|
||||
Dim _AmountHUF As Double = 0
|
||||
Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid))
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
For Each _GLRowsDivideR In Me.GLRowsDivideR
|
||||
_AmountHUF += _GLRowsDivideR.AmountHUF
|
||||
Next
|
||||
If _GLRows IsNot Nothing Then
|
||||
Return _GLRows.AmountHUF - _AmountHUF
|
||||
Else
|
||||
Return -_AmountHUF
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
<RuleRange("GLRowsDivideH-AmountDiffDEV", "DialogOk_Contexts", 0, 0)> _
|
||||
ReadOnly Property AmountDiffDEV As Double
|
||||
Get
|
||||
Dim _AmountDEV As Double = 0
|
||||
Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid))
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
For Each _GLRowsDivideR In Me.GLRowsDivideR
|
||||
_AmountDEV += _GLRowsDivideR.AmountDEV
|
||||
Next
|
||||
If _GLRows IsNot Nothing Then
|
||||
Return _GLRows.AmountDEV - _AmountDEV
|
||||
Else
|
||||
Return -_AmountDEV
|
||||
End If
|
||||
GLRowsBase.GLHeader.CurrencyName.ShortName = "HUF"
|
||||
End Get
|
||||
End Property
|
||||
Property GLRows_Oid As Guid
|
||||
Get
|
||||
Return _GLRows_Oid
|
||||
End Get
|
||||
Set(ByVal value As Guid)
|
||||
SetPropertyValue("GLRows_Oid", _GLRows_Oid, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If GLRowsBase IsNot Nothing Then
|
||||
row_Controlling = GLRowsBase.Controlling
|
||||
row_CostHolder = GLRowsBase.CostHolder
|
||||
row_CostPlace = GLRowsBase.CostPlace
|
||||
row_UniqueObjects = GLRowsBase.UniqueObjects
|
||||
row_JobNumberObjects = GLRowsBase.JobNumberObjects
|
||||
row_NoteRow = GLRowsBase.NoteRows
|
||||
row_AmountDEV = GLRowsBase.AmountDEV
|
||||
row_AmountHUF = GLRowsBase.AmountHUF
|
||||
|
||||
If GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
|
||||
row_DebitChartOfAccounts = GLRowsBase.DebitChartOfAccounts
|
||||
row_CreditChartOfAccounts = GLRowsBase.CreditChartOfAccounts
|
||||
If GLRowsBase.PartnerType = ePartnerType.eNotSet Then
|
||||
row_CashType = eCashType.eNormal
|
||||
row_PartnerType = ePartnerType.eNotSet
|
||||
Else
|
||||
row_CashType = eCashType.ePartner
|
||||
row_PartnerType = GLRowsBase.PartnerType
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'--Nonpersistent propertyk
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_CashType As eCashType
|
||||
Get
|
||||
Return _row_CashType
|
||||
End Get
|
||||
Set(ByVal value As eCashType)
|
||||
SetPropertyValue("row_CashType", _row_CashType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_PartnerType As ePartnerType
|
||||
Get
|
||||
Return _row_PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("row_PartnerType", _row_PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<RuleRequiredField("GLRowsDivideH-row_Customers", "aToTable_GLRowsDivide", targetcriteria:="row_CashType=0")> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Customers As Customers
|
||||
Get
|
||||
Return _row_Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("row_Customers", _row_Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<RuleRequiredField("GLRowsDivideH-row_ConnectInfo", "aToTable_GLRowsDivide", targetcriteria:="row_CashType=0 and GLRowsBase.GLHeader.GLDocumentType != 0")> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_ConnectInfo As String
|
||||
Get
|
||||
Return _row_ConnectInfo
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("row_ConnectInfo", _row_ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLRowsDivideH-row_CashType", "aToTable_GLRowsDivide", TargetCriteria:="row_CashType=1 and GLRowsBase.GLHeader.GLDocumentType != 0")>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
|
||||
Property row_ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _row_ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_ChartOfAccounts", _row_ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLRowsDivideH-row_DebitChartOfAccounts", "aToTable_GLRowsDivide", TargetCriteria:="GLRowsBase.GLHeader.GLDocumentType = 0")>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
|
||||
Property row_DebitChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _row_DebitChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("row_DebitChartOfAccounts", _row_DebitChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLRowsDivideH-row_CreditChartOfAccounts", "aToTable_GLRowsDivide", TargetCriteria:="GLRowsBase.GLHeader.GLDocumentType = 0")>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.GLRowsBase.GLHeader.DateExecution')")>
|
||||
Property row_CreditChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _row_CreditChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("row_CreditChartOfAccounts", _row_CreditChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Controlling As Controlling
|
||||
Get
|
||||
Return _row_Controlling
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("row_Controlling", _row_Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_CostHolder As CostHolder
|
||||
Get
|
||||
Return _row_CostHolder
|
||||
End Get
|
||||
Set(ByVal value As CostHolder)
|
||||
SetPropertyValue("row_CostHolder", _row_CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_CostPlace As CostPlace
|
||||
Get
|
||||
Return _row_CostPlace
|
||||
End Get
|
||||
Set(ByVal value As CostPlace)
|
||||
SetPropertyValue("row_CostPlace", _row_CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_JobNumberObjects As JobNumberObjects
|
||||
Get
|
||||
Return _row_JobNumberObjects
|
||||
End Get
|
||||
Set(ByVal value As JobNumberObjects)
|
||||
SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_UniqueObjects As UniqueObjects
|
||||
Get
|
||||
Return _row_UniqueObjects
|
||||
End Get
|
||||
Set(ByVal value As UniqueObjects)
|
||||
SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Cars As Cars
|
||||
Get
|
||||
Return _row_Cars
|
||||
End Get
|
||||
Set(value As Cars)
|
||||
SetPropertyValue("row_Cars", _row_Cars, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_HRPerson As HRPerson
|
||||
Get
|
||||
Return _row_HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("row_HRPerson", _row_HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Phones As Phones
|
||||
Get
|
||||
Return _row_Phones
|
||||
End Get
|
||||
Set(value As Phones)
|
||||
SetPropertyValue("row_Phones", _row_Phones, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<RuleRange("GLRowsDivideH-row_AmountHUF", "aToTable_GLRowsDivide", 0, 999999999)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_AmountHUF As Double
|
||||
Get
|
||||
Return _row_AmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_AmountHUF", _row_AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<RuleRange("GLRowsDivideH-row_AmountDEV", "aToTable_GLRowsDivide", 0, 999999999, targetcriteria:="GLRowsBase.GLHeader.CurrencyName.ShortName<>'HUF'")> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_AmountDEV As Double
|
||||
Get
|
||||
Return _row_AmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_AmountDEV", _row_AmountDEV, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If Me.GLRowsBase.CurrencyRate <> 0 And GLRowsBase.GLHeader.CurrencyName.ShortName <> "HUF" Then
|
||||
row_AmountHUF = value * Me.GLRowsBase.CurrencyRate
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_NoteRow As String
|
||||
Get
|
||||
Return _row_NoteRow
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("row_NoteRow", _row_NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
<Association("GLRowsDivideH-GLRowsDivideR", GetType(GLRowsDivideR))> _
|
||||
ReadOnly Property GLRowsDivideR As XPCollection(Of GLRowsDivideR)
|
||||
Get
|
||||
Return GetCollection(Of GLRowsDivideR)("GLRowsDivideR")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property GLRows As XPCollection(Of GLRows)
|
||||
Get
|
||||
Return New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+176
@@ -0,0 +1,176 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLRowsDivideR
|
||||
Inherits BaseObject
|
||||
|
||||
Private _GLRowsDivideH As GLRowsDivideH
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _CreditChartOfAccounts As ChartOfAccounts
|
||||
Private _DebitChartOfAccounts As ChartOfAccounts
|
||||
Private _CashType As eCashType
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _Customers As Customers
|
||||
Private _ConnectInfo As String
|
||||
|
||||
'Jelölõ adatok ...
|
||||
Private _Controlling As Controlling
|
||||
Private _CostHolder As CostHolder
|
||||
Private _CostPlace As CostPlace
|
||||
Private _UniqueObjects As UniqueObjects
|
||||
Private _JobNumberObjects As JobNumberObjects
|
||||
|
||||
Private _NoteRows As String
|
||||
Private _AmountHUF As Double
|
||||
Private _AmountDEV As Double
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Association("GLRowsDivideH-GLRowsDivideR", GetType(GLRowsDivideH))> _
|
||||
Property GLRowsDivideH As GLRowsDivideH
|
||||
Get
|
||||
Return _GLRowsDivideH
|
||||
End Get
|
||||
Set(value As GLRowsDivideH)
|
||||
SetPropertyValue("GLRowsDivideH", _GLRowsDivideH, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property ChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _CreditChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _DebitChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CashType As eCashType
|
||||
Get
|
||||
Return _CashType
|
||||
End Get
|
||||
Set(value As eCashType)
|
||||
SetPropertyValue("CashType", _CashType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ConnectInfo As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
Property UniqueObjects As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
Property JobNumberObjects As JobNumberObjects
|
||||
Get
|
||||
Return _JobNumberObjects
|
||||
End Get
|
||||
Set(value As JobNumberObjects)
|
||||
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Size(255)> _
|
||||
Property NoteRows As String
|
||||
Get
|
||||
Return _NoteRows
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRows", _NoteRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountDEV As Double
|
||||
Get
|
||||
Return _AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+82
@@ -0,0 +1,82 @@
|
||||
Partial Class GLRowsDivideVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aToTable_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFindPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aToTable_GLRowsDivide
|
||||
'
|
||||
Me.aToTable_GLRowsDivide.Caption = "Add row"
|
||||
Me.aToTable_GLRowsDivide.Category = "aToTable_GLRowsDivide"
|
||||
Me.aToTable_GLRowsDivide.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLRowsDivide.Id = "aToTable_GLRowsDivide"
|
||||
Me.aToTable_GLRowsDivide.ImageName = "table_add"
|
||||
Me.aToTable_GLRowsDivide.Shortcut = Nothing
|
||||
Me.aToTable_GLRowsDivide.Tag = Nothing
|
||||
Me.aToTable_GLRowsDivide.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_GLRowsDivide.TargetViewId = ""
|
||||
Me.aToTable_GLRowsDivide.ToolTip = Nothing
|
||||
Me.aToTable_GLRowsDivide.TypeOfView = Nothing
|
||||
'
|
||||
'aToTableD_GLRowsDivide
|
||||
'
|
||||
Me.aToTableD_GLRowsDivide.Caption = "Delete row"
|
||||
Me.aToTableD_GLRowsDivide.Category = "aToTableD_GLRowsDivide"
|
||||
Me.aToTableD_GLRowsDivide.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLRowsDivide.Id = "aToTableD_GLRowsDivide"
|
||||
Me.aToTableD_GLRowsDivide.ImageName = "table_delete"
|
||||
Me.aToTableD_GLRowsDivide.Shortcut = Nothing
|
||||
Me.aToTableD_GLRowsDivide.Tag = Nothing
|
||||
Me.aToTableD_GLRowsDivide.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_GLRowsDivide.TargetViewId = ""
|
||||
Me.aToTableD_GLRowsDivide.ToolTip = Nothing
|
||||
Me.aToTableD_GLRowsDivide.TypeOfView = Nothing
|
||||
'
|
||||
'aFindPCI
|
||||
'
|
||||
Me.aFindPCI.AcceptButtonCaption = Nothing
|
||||
Me.aFindPCI.CancelButtonCaption = Nothing
|
||||
Me.aFindPCI.Caption = "aFind PCI"
|
||||
Me.aFindPCI.ConfirmationMessage = Nothing
|
||||
Me.aFindPCI.Id = "aFindPCI"
|
||||
Me.aFindPCI.ImageName = Nothing
|
||||
Me.aFindPCI.Shortcut = Nothing
|
||||
Me.aFindPCI.Tag = Nothing
|
||||
Me.aFindPCI.TargetObjectsCriteria = Nothing
|
||||
Me.aFindPCI.TargetViewId = ""
|
||||
Me.aFindPCI.ToolTip = Nothing
|
||||
Me.aFindPCI.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFindPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aToTable_GLRowsDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLRowsDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aFindPCI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>393, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+227
@@ -0,0 +1,227 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.Filtering
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Public Class GLRowsDivideVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False)
|
||||
If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_DetailView*" Then
|
||||
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True)
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts")
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "GLRowsDivideH_DetailView*" Then
|
||||
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True)
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnViewControlsCreated()
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
MyBase.OnViewControlsCreated()
|
||||
If View.Id = "GLRowsDivideH_DetailView" Then
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
|
||||
If _GLRowsDivideH.GLRowsBase IsNot Nothing Then
|
||||
If _GLRowsDivideH.GLRowsBase.Customer IsNot Nothing Then
|
||||
_GLRowsDivideH.row_Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _GLRowsDivideH.GLRowsBase.Customer.Oid))
|
||||
_GLRowsDivideH.row_CashType = _GLRowsDivideH.GLRowsBase.CashType
|
||||
_GLRowsDivideH.row_PartnerType = _GLRowsDivideH.GLRowsBase.PartnerType
|
||||
_GLRowsDivideH.row_ConnectInfo = _GLRowsDivideH.GLRowsBase.ConnectInfo
|
||||
_GLRowsDivideH.row_Controlling = _GLRowsDivideH.GLRowsBase.Controlling
|
||||
_GLRowsDivideH.row_CostHolder = _GLRowsDivideH.GLRowsBase.CostHolder
|
||||
_GLRowsDivideH.row_CostPlace = _GLRowsDivideH.GLRowsBase.CostPlace
|
||||
_GLRowsDivideH.row_UniqueObjects = _GLRowsDivideH.GLRowsBase.UniqueObjects
|
||||
_GLRowsDivideH.row_JobNumberObjects = _GLRowsDivideH.GLRowsBase.JobNumberObjects
|
||||
_GLRowsDivideH.row_NoteRow = _GLRowsDivideH.GLRowsBase.NoteRows
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFindPCI_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFindPCI.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup))
|
||||
|
||||
|
||||
|
||||
If _GLRowsDivideH IsNot Nothing Then
|
||||
If _GLRowsDivideH.row_Customers IsNot Nothing Then
|
||||
_CollectionSource.Criteria.Clear()
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("Customers.Oid=?", _GLRowsDivideH.row_Customers.Oid)
|
||||
_CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType)
|
||||
_CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid)
|
||||
_CollectionSource.Criteria("4") = CriteriaOperator.Parse("(BallanceHUF<>0 or BallanceDEV<>0)")
|
||||
_CollectionSource.Criteria("5") = CriteriaOperator.Parse("(CurrencyName_Account.ShortName=? or CurrencyName_Account.ShortName='HUF')", _GLRowsDivideH.GLRowsBase.LiquidAssets.CurrencyName.ShortName)
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
|
||||
Else
|
||||
_CollectionSource.Criteria.Clear()
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType)
|
||||
_CollectionSource.Criteria("2") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid)
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
|
||||
End If
|
||||
Else
|
||||
'Ez - elméletileg - nem fordulhat elõ.
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aFindPCI_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFindPCI.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _PCIGroup As PCIGroup
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
For Each _PCIGroup In e.PopupWindow.View.SelectedObjects
|
||||
_GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)()
|
||||
_GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH
|
||||
_GLRowsDivideR.CashType = eCashType.ePartner
|
||||
_GLRowsDivideR.ChartOfAccounts = Nothing
|
||||
_GLRowsDivideR.Customers = _ocur.GetObject(_PCIGroup.Customers)
|
||||
_GLRowsDivideR.ConnectInfo = _PCIGroup.ConnectInfo
|
||||
_GLRowsDivideR.AmountDEV = Math.Abs(_PCIGroup.BallanceDEV)
|
||||
_GLRowsDivideR.AmountHUF = Math.Abs(_PCIGroup.BallanceHUF)
|
||||
_GLRowsDivideR.Save()
|
||||
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub aToTable_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLRowsDivide.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
If _GLRowsDivideH IsNot Nothing Then
|
||||
|
||||
If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
|
||||
If _GLRowsDivideH.row_CreditChartOfAccounts Is _GLRowsDivideH.row_DebitChartOfAccounts Then
|
||||
Throw New Exception("*Nem lehet ugyan az a tartozik és a követel fõkönyvi szám !")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
_GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)()
|
||||
_GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH
|
||||
_GLRowsDivideR.CashType = _GLRowsDivideH.row_CashType
|
||||
If _GLRowsDivideH.row_CashType = eCashType.eNormal Then
|
||||
_GLRowsDivideR.ChartOfAccounts = _GLRowsDivideH.row_ChartOfAccounts
|
||||
Else
|
||||
_GLRowsDivideR.ChartOfAccounts = Nothing
|
||||
End If
|
||||
If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then
|
||||
_GLRowsDivideR.DebitChartOfAccounts = _GLRowsDivideH.row_DebitChartOfAccounts
|
||||
_GLRowsDivideR.CreditChartOfAccounts = _GLRowsDivideH.row_CreditChartOfAccounts
|
||||
End If
|
||||
|
||||
_GLRowsDivideR.AmountHUF = _GLRowsDivideH.row_AmountHUF
|
||||
_GLRowsDivideR.AmountDEV = _GLRowsDivideH.row_AmountDEV
|
||||
_GLRowsDivideR.ConnectInfo = _GLRowsDivideH.row_ConnectInfo
|
||||
_GLRowsDivideR.Customers = _GLRowsDivideH.row_Customers
|
||||
_GLRowsDivideR.NoteRows = _GLRowsDivideH.row_NoteRow
|
||||
|
||||
'-- Jelölõ adatok
|
||||
_GLRowsDivideR.Controlling = _GLRowsDivideH.row_Controlling
|
||||
_GLRowsDivideR.CostHolder = _GLRowsDivideH.row_CostHolder
|
||||
_GLRowsDivideR.CostPlace = _GLRowsDivideH.row_CostPlace
|
||||
_GLRowsDivideR.JobNumberObjects = _GLRowsDivideH.row_JobNumberObjects
|
||||
_GLRowsDivideR.UniqueObjects = _GLRowsDivideH.row_UniqueObjects
|
||||
|
||||
'--
|
||||
_GLRowsDivideR.Save()
|
||||
|
||||
View.Refresh()
|
||||
|
||||
_GLRowsDivideH.row_AmountDEV = _GLRowsDivideH.AmountDiffDEV
|
||||
_GLRowsDivideH.row_AmountHUF = _GLRowsDivideH.AmountDiffHUF
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aToTableD_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLRowsDivide.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH)
|
||||
'Törli a táblázatban lévõ sort
|
||||
Dim _GLRowsDivideR_ListEditor As ListPropertyEditor
|
||||
Dim _GLRowsDivideR As GLRowsDivideR
|
||||
Dim i As Long
|
||||
_GLRowsDivideR_ListEditor = TryCast(View, DetailView).FindItem("GLRowsDivideR")
|
||||
|
||||
_GLRowsDivideR = TryCast(_GLRowsDivideR_ListEditor.ListView.CurrentObject, GLRowsDivideR)
|
||||
If _GLRowsDivideR IsNot Nothing Then
|
||||
_GLRowsDivideR.Delete()
|
||||
View.Refresh()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+35
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
|
||||
Public Class GLRowsNormalToPartnerPopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property PartnerType As ePartnerType
|
||||
Property Customers As Customers
|
||||
Property ConnectInfo As String
|
||||
Property TransactionType As eTransactionType
|
||||
|
||||
|
||||
End Class
|
||||
+34
@@ -0,0 +1,34 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
<Appearance("Hide ChartOfAccounts when IsManagerCheck=True", AppearanceItemType.ViewItem, "IsManagerCheck=True", TargetItems:="ChartOfAccounts", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide DateExecution when IsDateExecution=False", AppearanceItemType.ViewItem, "IsDateExecution=False", TargetItems:="DateExecution", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<RuleCriteria("RuleCriteria BookEntryCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class BookEntryCheck 'Popup a csoportos módosításhoz, és könyvelhetõség beállításához
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<NonPersistent()> Public Property ChartOfAccountsYear As ChartOfAccountsYear
|
||||
<NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("IsParent=False")> Public Property ChartOfAccounts As ChartOfAccounts
|
||||
<NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
|
||||
<NonPersistent()> Public Property CostHolder As CostHolder
|
||||
<NonPersistent()> Public Property CostPlace As CostPlace
|
||||
<NonPersistent()> Public Property UniqueObjects As UniqueObjects
|
||||
<NonPersistent()> Public Property Controlling As Controlling
|
||||
<NonPersistent(), Browsable(False), ImmediatePostData()> Public Property IsManagerCheck As Boolean = False
|
||||
<NonPersistent(), ImmediatePostData()> Public Property IsDateExecution As Boolean = False
|
||||
<NonPersistent()> Public Property DateExecution As Date
|
||||
End Class
|
||||
+294
@@ -0,0 +1,294 @@
|
||||
Partial Class BookEntryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aBookEntryPayables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBookEntryReceiveables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLRowsCheck = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLRowsDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aBookEntryRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLAccountsforBookEntryCheck = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGLAccountsforBookEntryRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBookEntryCheckGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aViewAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttachments_BEP = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_BEP = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_BEC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLAccountsReadyforBookEntry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aVATDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aVATMerge = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aBookEntryPayables
|
||||
'
|
||||
Me.aBookEntryPayables.Caption = "Book Entry"
|
||||
Me.aBookEntryPayables.Category = "ObjectsCreation"
|
||||
Me.aBookEntryPayables.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBookEntryPayables.Id = "aBookEntryPayables"
|
||||
Me.aBookEntryPayables.ImageName = "import2"
|
||||
Me.aBookEntryPayables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBookEntryPayables.Shortcut = Nothing
|
||||
Me.aBookEntryPayables.Tag = Nothing
|
||||
Me.aBookEntryPayables.TargetObjectsCriteria = Nothing
|
||||
Me.aBookEntryPayables.TargetViewId = "RegistryHeader_ListView_GLAccounts"
|
||||
Me.aBookEntryPayables.ToolTip = Nothing
|
||||
Me.aBookEntryPayables.TypeOfView = Nothing
|
||||
'
|
||||
'aBookEntryReceiveables
|
||||
'
|
||||
Me.aBookEntryReceiveables.Caption = "Book Entry"
|
||||
Me.aBookEntryReceiveables.Category = "ObjectsCreation"
|
||||
Me.aBookEntryReceiveables.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBookEntryReceiveables.Id = "aBookEntryReceiveables"
|
||||
Me.aBookEntryReceiveables.ImageName = "import1"
|
||||
Me.aBookEntryReceiveables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBookEntryReceiveables.Shortcut = Nothing
|
||||
Me.aBookEntryReceiveables.Tag = Nothing
|
||||
Me.aBookEntryReceiveables.TargetObjectsCriteria = Nothing
|
||||
Me.aBookEntryReceiveables.TargetViewId = "InvoiceHeader_ListView_GLAccounts"
|
||||
Me.aBookEntryReceiveables.ToolTip = Nothing
|
||||
Me.aBookEntryReceiveables.TypeOfView = Nothing
|
||||
'
|
||||
'aGLRowsCheck
|
||||
'
|
||||
Me.aGLRowsCheck.AcceptButtonCaption = Nothing
|
||||
Me.aGLRowsCheck.CancelButtonCaption = Nothing
|
||||
Me.aGLRowsCheck.Caption = "Check rows"
|
||||
Me.aGLRowsCheck.Category = "RecordEdit"
|
||||
Me.aGLRowsCheck.ConfirmationMessage = Nothing
|
||||
Me.aGLRowsCheck.Id = "aGLRowsCheck"
|
||||
Me.aGLRowsCheck.ImageName = "index_preferences"
|
||||
Me.aGLRowsCheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLRowsCheck.Shortcut = Nothing
|
||||
Me.aGLRowsCheck.Tag = Nothing
|
||||
Me.aGLRowsCheck.TargetObjectsCriteria = Nothing
|
||||
Me.aGLRowsCheck.TargetViewId = Nothing
|
||||
Me.aGLRowsCheck.ToolTip = Nothing
|
||||
Me.aGLRowsCheck.TypeOfView = Nothing
|
||||
'
|
||||
'aGLRowsDivide
|
||||
'
|
||||
Me.aGLRowsDivide.AcceptButtonCaption = Nothing
|
||||
Me.aGLRowsDivide.CancelButtonCaption = Nothing
|
||||
Me.aGLRowsDivide.Caption = "Divide rows"
|
||||
Me.aGLRowsDivide.Category = "RecordEdit"
|
||||
Me.aGLRowsDivide.ConfirmationMessage = Nothing
|
||||
Me.aGLRowsDivide.Id = "aGLRowsDivide"
|
||||
Me.aGLRowsDivide.ImageName = "row_add_after"
|
||||
Me.aGLRowsDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLRowsDivide.Shortcut = Nothing
|
||||
Me.aGLRowsDivide.Tag = Nothing
|
||||
Me.aGLRowsDivide.TargetObjectsCriteria = Nothing
|
||||
Me.aGLRowsDivide.TargetViewId = Nothing
|
||||
Me.aGLRowsDivide.ToolTip = Nothing
|
||||
Me.aGLRowsDivide.TypeOfView = Nothing
|
||||
'
|
||||
'aBookEntryRemove
|
||||
'
|
||||
Me.aBookEntryRemove.Caption = "Remove book entry"
|
||||
Me.aBookEntryRemove.Category = "ObjectsCreation"
|
||||
Me.aBookEntryRemove.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aBookEntryRemove.Id = "aBookEntryRemove"
|
||||
Me.aBookEntryRemove.ImageName = "row_delete"
|
||||
Me.aBookEntryRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBookEntryRemove.Shortcut = Nothing
|
||||
Me.aBookEntryRemove.Tag = Nothing
|
||||
Me.aBookEntryRemove.TargetObjectsCriteria = Nothing
|
||||
Me.aBookEntryRemove.TargetViewId = "GLAccounts_ListView"
|
||||
Me.aBookEntryRemove.ToolTip = Nothing
|
||||
Me.aBookEntryRemove.TypeOfView = Nothing
|
||||
'
|
||||
'aGLAccountsforBookEntryCheck
|
||||
'
|
||||
Me.aGLAccountsforBookEntryCheck.AcceptButtonCaption = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.CancelButtonCaption = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.Caption = "Check rows"
|
||||
Me.aGLAccountsforBookEntryCheck.Category = "RecordEdit"
|
||||
Me.aGLAccountsforBookEntryCheck.ConfirmationMessage = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.Id = "aGLAccountsforBookEntryCheck"
|
||||
Me.aGLAccountsforBookEntryCheck.ImageName = "index_preferences"
|
||||
Me.aGLAccountsforBookEntryCheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLAccountsforBookEntryCheck.Shortcut = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.Tag = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.TargetObjectsCriteria = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.TargetViewId = ""
|
||||
Me.aGLAccountsforBookEntryCheck.ToolTip = Nothing
|
||||
Me.aGLAccountsforBookEntryCheck.TypeOfView = Nothing
|
||||
'
|
||||
'aGLAccountsforBookEntryRemove
|
||||
'
|
||||
Me.aGLAccountsforBookEntryRemove.Caption = "Remove book entry check"
|
||||
Me.aGLAccountsforBookEntryRemove.Category = "ObjectsCreation"
|
||||
Me.aGLAccountsforBookEntryRemove.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aGLAccountsforBookEntryRemove.Id = "aGLAccountsforBookEntryRemove"
|
||||
Me.aGLAccountsforBookEntryRemove.ImageName = "row_delete"
|
||||
Me.aGLAccountsforBookEntryRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLAccountsforBookEntryRemove.Shortcut = Nothing
|
||||
Me.aGLAccountsforBookEntryRemove.Tag = Nothing
|
||||
Me.aGLAccountsforBookEntryRemove.TargetObjectsCriteria = Nothing
|
||||
Me.aGLAccountsforBookEntryRemove.TargetViewId = ""
|
||||
Me.aGLAccountsforBookEntryRemove.ToolTip = Nothing
|
||||
Me.aGLAccountsforBookEntryRemove.TypeOfView = Nothing
|
||||
'
|
||||
'aBookEntryCheckGotoNextStep
|
||||
'
|
||||
Me.aBookEntryCheckGotoNextStep.AcceptButtonCaption = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.CancelButtonCaption = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.Caption = "Next step"
|
||||
Me.aBookEntryCheckGotoNextStep.Category = "RecordsNavigation"
|
||||
Me.aBookEntryCheckGotoNextStep.ConfirmationMessage = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.Id = "aBookEntryCheckGotoNextStep"
|
||||
Me.aBookEntryCheckGotoNextStep.ImageName = "step"
|
||||
Me.aBookEntryCheckGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aBookEntryCheckGotoNextStep.Shortcut = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.Tag = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.TargetObjectsCriteria = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.TargetViewId = ""
|
||||
Me.aBookEntryCheckGotoNextStep.ToolTip = Nothing
|
||||
Me.aBookEntryCheckGotoNextStep.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttachments
|
||||
'
|
||||
Me.aViewAttachments.Caption = "View attachments"
|
||||
Me.aViewAttachments.ConfirmationMessage = Nothing
|
||||
Me.aViewAttachments.Id = "aViewAttachments"
|
||||
Me.aViewAttachments.ImageName = "printer_view"
|
||||
Me.aViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttachments.Shortcut = Nothing
|
||||
Me.aViewAttachments.Tag = Nothing
|
||||
Me.aViewAttachments.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttachments.TargetViewId = ""
|
||||
Me.aViewAttachments.ToolTip = Nothing
|
||||
Me.aViewAttachments.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttachments_BEP
|
||||
'
|
||||
Me.aViewAttachments_BEP.Caption = "View attachments"
|
||||
Me.aViewAttachments_BEP.ConfirmationMessage = Nothing
|
||||
Me.aViewAttachments_BEP.Id = "aViewAttachments_BEP"
|
||||
Me.aViewAttachments_BEP.ImageName = "printer_view"
|
||||
Me.aViewAttachments_BEP.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttachments_BEP.Shortcut = Nothing
|
||||
Me.aViewAttachments_BEP.Tag = Nothing
|
||||
Me.aViewAttachments_BEP.TargetObjectsCriteria = Nothing
|
||||
Me.aViewAttachments_BEP.TargetViewId = "RegistryHeader_ListView_GLAccounts"
|
||||
Me.aViewAttachments_BEP.ToolTip = Nothing
|
||||
Me.aViewAttachments_BEP.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_BEP
|
||||
'
|
||||
Me.aViewRegistry_BEP.Caption = "View registry"
|
||||
Me.aViewRegistry_BEP.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_BEP.Id = "aViewRegistry_BEP"
|
||||
Me.aViewRegistry_BEP.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_BEP.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_BEP.Shortcut = Nothing
|
||||
Me.aViewRegistry_BEP.Tag = Nothing
|
||||
Me.aViewRegistry_BEP.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_BEP.TargetViewId = "RegistryHeader_ListView_GLAccounts"
|
||||
Me.aViewRegistry_BEP.ToolTip = Nothing
|
||||
Me.aViewRegistry_BEP.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_BEC
|
||||
'
|
||||
Me.aViewRegistry_BEC.Caption = "View registry"
|
||||
Me.aViewRegistry_BEC.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_BEC.Id = "aViewRegistry_BEC"
|
||||
Me.aViewRegistry_BEC.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_BEC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_BEC.Shortcut = Nothing
|
||||
Me.aViewRegistry_BEC.Tag = Nothing
|
||||
Me.aViewRegistry_BEC.TargetObjectsCriteria = Nothing
|
||||
Me.aViewRegistry_BEC.TargetViewId = ""
|
||||
Me.aViewRegistry_BEC.ToolTip = Nothing
|
||||
Me.aViewRegistry_BEC.TypeOfView = Nothing
|
||||
'
|
||||
'aGLAccountsReadyforBookEntry
|
||||
'
|
||||
Me.aGLAccountsReadyforBookEntry.Caption = "Readyfor Book Entry"
|
||||
Me.aGLAccountsReadyforBookEntry.ConfirmationMessage = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.Id = "aGLAccountsReadyforBookEntry"
|
||||
Me.aGLAccountsReadyforBookEntry.ImageName = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGLAccountsReadyforBookEntry.Shortcut = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.Tag = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.TargetObjectsCriteria = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.TargetViewId = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.ToolTip = Nothing
|
||||
Me.aGLAccountsReadyforBookEntry.TypeOfView = Nothing
|
||||
'
|
||||
'aVATDivide
|
||||
'
|
||||
Me.aVATDivide.AcceptButtonCaption = Nothing
|
||||
Me.aVATDivide.CancelButtonCaption = Nothing
|
||||
Me.aVATDivide.Caption = "Divide VAT row"
|
||||
Me.aVATDivide.Category = "RecordEdit"
|
||||
Me.aVATDivide.ConfirmationMessage = Nothing
|
||||
Me.aVATDivide.Id = "aVATDivide"
|
||||
Me.aVATDivide.ImageName = "row_add_after"
|
||||
Me.aVATDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aVATDivide.Shortcut = Nothing
|
||||
Me.aVATDivide.Tag = Nothing
|
||||
Me.aVATDivide.TargetObjectsCriteria = Nothing
|
||||
Me.aVATDivide.TargetViewId = Nothing
|
||||
Me.aVATDivide.ToolTip = Nothing
|
||||
Me.aVATDivide.TypeOfView = Nothing
|
||||
'
|
||||
'aVATMerge
|
||||
'
|
||||
Me.aVATMerge.Caption = "aVATMerge"
|
||||
Me.aVATMerge.Category = "RecordEdit"
|
||||
Me.aVATMerge.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aVATMerge.Id = "aVATMerge"
|
||||
Me.aVATMerge.ImageName = Nothing
|
||||
Me.aVATMerge.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aVATMerge.Shortcut = Nothing
|
||||
Me.aVATMerge.Tag = Nothing
|
||||
Me.aVATMerge.TargetObjectsCriteria = Nothing
|
||||
Me.aVATMerge.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
|
||||
Me.aVATMerge.TargetViewId = Nothing
|
||||
Me.aVATMerge.ToolTip = Nothing
|
||||
Me.aVATMerge.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aBookEntryPayables As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBookEntryReceiveables As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLRowsCheck As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLRowsDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aBookEntryRemove As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLAccountsforBookEntryCheck As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGLAccountsforBookEntryRemove As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBookEntryCheckGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aViewAttachments As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttachments_BEP As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_BEP As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_BEC As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLAccountsReadyforBookEntry As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aVATDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aVATMerge As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+168
@@ -0,0 +1,168 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aBookEntryPayables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>170, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aBookEntryReceiveables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>309, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGLRowsCheck.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>492, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGLRowsDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>174, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aBookEntryRemove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGLAccountsforBookEntryCheck.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>791, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aGLAccountsforBookEntryRemove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>554, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aBookEntryCheckGotoNextStep.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttachments_BEP.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>780, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_BEP.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>627, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_BEC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>473, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aGLAccountsReadyforBookEntry.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>247, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aVATDivide.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>133, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aVATMerge.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1448
File diff suppressed because it is too large
Load Diff
+64
@@ -0,0 +1,64 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Persistent("vv_GLAccountRowsforBookEntry")> _
|
||||
<ImageName("BO_Report")> _
|
||||
Public Class GLAccountRowsforBookEntry 'Fõkönyvi feladáshoz lista, ami alaplyán a könyvelõ tud ellenõrizni
|
||||
Inherits XPLiteObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Key(True), Persistent("Oid")> Public Oid As Guid
|
||||
<Persistent("PartnerType")> Public PartnerType As ePartnerType
|
||||
<Persistent("GLRowsTypeVAT")> Public GLRowsTypeVAT As eGLRowsTypeVAT
|
||||
<Persistent("CustomersFrom")> Public CustomersFrom As CustomersFrom
|
||||
<Persistent("Customers")> Public Customers As Customers
|
||||
<Persistent("DateExecution")> Public DateExecution As Date
|
||||
<Persistent("DocumentNumber")> Public DocumentNumber As String
|
||||
<Persistent("RegistryNumber")> Public RegistryNumber As String
|
||||
<Persistent("DebitChartOfAccounts")> Public DebitChartOfAccounts As ChartOfAccounts
|
||||
<Persistent("CreditChartOfAccounts")> Public CreditChartOfAccounts As ChartOfAccounts
|
||||
<Persistent("Controlling")> Public Controlling As Controlling
|
||||
<Persistent("JobNumberObjects")> Public JobNumberObjects As JobNumberObjects
|
||||
<Persistent("UniqueObjects")> Public UniqueObjects As UniqueObjects
|
||||
<Persistent("CostPlace")> Public CostPlace As CostPlace
|
||||
<Persistent("CostHolder")> Public CostHolder As CostHolder
|
||||
<Persistent("CurrencyRate")> Public CurrencyRate As Double
|
||||
<Persistent("AmountHUF")> Public AmountHUF As Double
|
||||
<Persistent("AmountDEV")> Public AmountDEV As Double
|
||||
<Persistent("Note1")> Public Note1 As String
|
||||
<Persistent("Note2")> Public Note2 As String
|
||||
<Persistent("VAT")> Public VAT As VAT
|
||||
<Persistent("ChartOfAccounts2")> Public ChartOfAccounts2 As ChartOfAccounts
|
||||
<Persistent("IsReinvoice")> Public IsReinvoice As String
|
||||
<Persistent("ContractRows")> Public ContractRows As ContractRows
|
||||
<Persistent("RegistryHeader")> Public RegistryHeader As RegistryHeader
|
||||
<Persistent("InvoiceHeader")> Public InvoiceHeader As InvoiceHeader
|
||||
<Persistent("WorkflowSystemSteps")> Public WorkflowSystemSteps As WorkflowSystemSteps
|
||||
<Persistent("WorkflowMessage")> Public WorkflowMessage As String
|
||||
|
||||
Public Sub findrows()
|
||||
Dim _RegistryTasks_coll As New XPCollection(GetType(RegistryTasks), CriteriaOperator.Parse("CurrentWorkflowSystemSteps.StepFinancialType=4 AND Status=0"))
|
||||
Dim _RegistryHeader_Oid_array As New ArrayList
|
||||
For Each _RegistryTask As RegistryTasks In _RegistryTasks_coll
|
||||
_RegistryHeader_Oid_array.Add(_RegistryTask.RegistryHeader.Oid)
|
||||
Next
|
||||
Dim _RegistryHeader_coll As New XPCollection(GetType(RegistryHeader), New InOperator("Oid", _RegistryTasks_coll))
|
||||
Dim _RegistryRowsFinancialControlling As New XPCollection(GetType(RegistryRowsFinancialControlling), New InOperator("RegistryHeader", _RegistryHeader_coll))
|
||||
End Sub
|
||||
End Class
|
||||
+725
@@ -0,0 +1,725 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports System.Drawing
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.Xpo.DB
|
||||
|
||||
'<EditorStateRule("Hide DateExecution in GLCassa", "DateExecution", EditorState.Disabled, "DocumentNumber !=''", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Partnerconnection-hide-Cassa", "row_PCIGroup", EditorState.Hidden, "row_CashType=1 OR IsEditable=False", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Partner-hide-Cassa", "row_ChartOfAccounts;row_VAT;row_Controlling;row_CostHolder;row_JobNumberObjects;row_UniqueObjects;row_CostPlace", EditorState.Hidden, "row_CashType=0 OR IsEditable=False", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide LiquidAssets", "LiquidAssets_Cassa", EditorState.Disabled, "IsNull(LiquidAssets_Cassa)=False OR IsEditable=False", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide row_CurrencyRate2 in GLCassa", "row_CurrencyRate2", EditorState.Hidden, "LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide row_CurrencyRate2 in GLCassa and HUF", "row_CurrencyRate2", EditorState.Hidden, "LiquidAssets_Cassa.CurrencyName.ShortName ='HUF' or row_CurrencyName2.ShortName='HUF' and IsEditable=True", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Disable CashMoveType", "CashMoveType", EditorState.Disabled, "CashMoveType!=2", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Disable AmountHUF when CurrencyName<>HUF", "row_AmountHUF", EditorState.Disabled, "CurrencyName.ShortName<>'HUF'", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Disable GLCassa.row_AmountHUF when DEV != HUF", "row_AmountHUF", EditorState.Disabled, "LiquidAssets_Cassa.CurrencyName.ShortName != 'HUF'", ViewType.DetailView)> _
|
||||
|
||||
<DefaultClassOptions()>
|
||||
<NavigationItem("FinancialTransactions")>
|
||||
<Appearance("Hide row_ info when IsEditable=False",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="IsEditable=False",
|
||||
TargetItems:="row_CashType; row_Customer;row_PartnerType;row_PCIGroup;" +
|
||||
"row_ConnectInfo; row_ChartOfAccounts; row_AmountHUF;row_AmountDEV;" +
|
||||
"row_VAT;row_Controlling;row_CostHolder;row_JobNumberObjects;" +
|
||||
"row_UniqueObjects;row_CostPlace;row_CurrencyName2;" +
|
||||
"row_CurrencyRate;row_CurrencyRate2;row_AmountDEV2;row_NoteRows",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide Cassa row_Amount2 when CurrencyName2=CurrencyName",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="row_CurrencyName2.ShortName=LiquidAssets_Cassa.CurrencyName.ShortName",
|
||||
TargetItems:="row_CurrencyRate2;row_AmountDEV2",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide Cassa row_Amount2 when PartnerType is not set",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="row_CashType=1",
|
||||
TargetItems:="row_CurrencyName2;row_CurrencyRate2;row_AmountDEV2",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_CurrencyRate in GLCassa",
|
||||
AppearanceItemType:="ViewItem",
|
||||
Criteria:="LiquidAssets_Cassa.CurrencyName.ShortName = 'HUF' and row_CurrencyName2.ShortName='HUF' and IsEditable=True",
|
||||
TargetItems:="row_CurrencyRate",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide DateExecution in GLCassa",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="DateExecution",
|
||||
Criteria:="DocumentNumber !=''",
|
||||
Enabled:=False, Context:="DetailView")>
|
||||
<Appearance("Partnerconnection-hide-Cassa",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_PCIGroup",
|
||||
Criteria:="row_CashType=1 OR IsEditable=False",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Partner-hide-Cassa",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_ChartOfAccounts;row_VAT;row_Controlling;row_CostHolder;row_JobNumberObjects;row_UniqueObjects;row_CostPlace",
|
||||
Criteria:="row_CashType=0 OR IsEditable=False",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide LiquidAssets when LiquidAssets is selected",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="LiquidAssets_Cassa",
|
||||
Criteria:="IsNull(LiquidAssets_Cassa)=False OR IsEditable=False",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Hide row_CurrencyRate2 in GLCassa",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_CurrencyRate2",
|
||||
Criteria:="LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide row_CurrencyRate2 in GLCassa and HUF",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_CurrencyRate2",
|
||||
Criteria:="LiquidAssets_Cassa.CurrencyName.ShortName ='HUF' or row_CurrencyName2.ShortName='HUF' and IsEditable=True",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Disable CashMoveType",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="CashMoveType",
|
||||
Criteria:="CashMoveType!=2",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<Appearance("Disable AmountHUF when CurrencyName<>HUF",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountHUF",
|
||||
Criteria:="CurrencyName.ShortName<>'HUF' and row_CashType !=2",
|
||||
Enabled:=False, Context:="DetailView")>
|
||||
<Appearance("Disable GLCassa.row_AmountHUF when DEV != HUF",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountHUF",
|
||||
Criteria:="LiquidAssets_Cassa.CurrencyName.ShortName != 'HUF' and row_CashType !=2",
|
||||
Enabled:=False,
|
||||
Context:="DetailView")>
|
||||
<RuleCriteria("RuleCriteria GLCassa-row_ChartOfAccounts", "aToTable_GLCassa_Contexts", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
|
||||
<Appearance("Hide aGetCurrencyRateCassa",
|
||||
AppearanceItemType:="Action",
|
||||
TargetItems:="aGetCurrencyRateBank",
|
||||
Criteria:="LiquidAssets_Cassa.CurrencyName.ShortName='HUF'",
|
||||
Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
|
||||
<Appearance("Hide properties if Correction",
|
||||
AppearanceItemType:="ViewItem",
|
||||
TargetItems:="row_AmountDEV;row_CurrencyRate2;row_CurrencyRate;row_CurrencyName2;row_AmountDEV2;row_VAT",
|
||||
Criteria:="row_CashType in (2)",
|
||||
Visibility:=Editors.ViewItemVisibility.Hide)>
|
||||
Public Class GLCassa
|
||||
Inherits GLHeader
|
||||
Private _CashMoveType As eCashMoveType = eCashMoveType.eNotSet
|
||||
Private _CashType As eCashType
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _PCIGroup As PCIGroup
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _TotalInAmountHUF As Double = 0
|
||||
Private _TotalOutAmountHUF As Double = 0
|
||||
Private _TotalInAmountDEV As Double = 0
|
||||
Private _TotalOutAmountDEV As Double = 0
|
||||
Private _LiquidAssets As LiquidAssets
|
||||
Private _BallanceHUF As Double
|
||||
Private _BallanceDEV As Double
|
||||
Private _GLHeader_RateDiff As GLHeader 'Kapcsolódó árf. kül. elszámolási vegyes bizonylat
|
||||
Private _GLClosingTime As GLClosingTime
|
||||
'-- A másodlagos
|
||||
Private _row_CurrencyRate As Double
|
||||
Private _row_AmountDEV2 As Double = 0
|
||||
Private _row_CurrencyRate2 As Double = 0
|
||||
Private _row_CurrencyName2 As CurrencyName
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Session.IsNewObject(Me) Then
|
||||
Me.GLDocumentType = eGLDocumentType.eGLCassa
|
||||
Me.DateExecution = GetSQLTime(Session)
|
||||
Me.DocumentNumber = ""
|
||||
Me.IsEditable = False
|
||||
Me.IsStorno = False
|
||||
Me.DocumentNumber = ""
|
||||
Me.row_CashType = eCashType.eNormal
|
||||
End If
|
||||
End Sub
|
||||
<RuleValueComparison("RuleValue-CashMoveType", "aFinal_GLCassa_Context", ValueComparisonType.NotEquals, eCashMoveType.eNotSet)>
|
||||
<RuleValueComparison("RuleValue-CashMoveType2", "aFinalAndNew_GLCassa_Context", ValueComparisonType.NotEquals, eCashMoveType.eNotSet)>
|
||||
<RuleValueComparison("RuleValue-CashMoveType3", "aToTable_GLCassa_Contexts", ValueComparisonType.NotEquals, eCashMoveType.eNotSet)>
|
||||
Property CashMoveType() As eCashMoveType
|
||||
Get
|
||||
Return _CashMoveType
|
||||
End Get
|
||||
Set(ByVal value As eCashMoveType)
|
||||
SetPropertyValue("CashMoveType", _CashMoveType, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Property row_CashType() As eCashType
|
||||
Get
|
||||
Return _CashType
|
||||
End Get
|
||||
Set(ByVal value As eCashType)
|
||||
SetPropertyValue("row_CashType", _CashType, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value = eCashType.eNormal Or value = eCashType.eCorrectionHUF Then
|
||||
If LiquidAssets_Cassa IsNot Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName
|
||||
row_PartnerType = ePartnerType.eNotSet
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<RuleRequiredField("GLCassa-row_ChartOfAccounts", "aToTable_GLCassa_Contexts", TargetCriteria:="row_CashType=1")>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_ChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and PartnerType='@This.row_PartnerType' and BallanceState=0 and isnull(CurrencyName_Account)=False ")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_PCIGroup() As PCIGroup
|
||||
Get
|
||||
Return _PCIGroup
|
||||
End Get
|
||||
Set(ByVal value As PCIGroup)
|
||||
SetPropertyValue("row_PCIGroup", _PCIGroup, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If value IsNot Nothing Then
|
||||
row_ConnectInfo = value.ConnectInfo
|
||||
row_Customer = value.Customers
|
||||
row_PartnerType = value.PartnerType
|
||||
If value.CurrencyName_Account IsNot Nothing Then
|
||||
If value.CurrencyName_Account.ShortName = "HUF" Then
|
||||
If Me.CurrencyName.ShortName = "HUF" Then
|
||||
Me.row_AmountHUF = Math.Abs(value.BallanceHUF)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
|
||||
End If
|
||||
Else
|
||||
If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then
|
||||
Me.row_AmountDEV = Math.Abs(value.BallanceDEV)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<RuleValueComparison("GLCassa-row_PartnerType", "aToTable_GLCassa_Contexts", ValueComparisonType.NotEquals, ePartnerType.eNotSet, TargetCriteria:="row_CashType in (0)")>
|
||||
Property row_PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("row_PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("LiquidAssetsType in (0,2,4) AND CustomerFrom='@This.CustomersFrom'")>
|
||||
<RuleRequiredField("GLCassa-LiquidAssets_Cassa", "aFinal_GLCassa_Context")>
|
||||
<RuleRequiredField("GLCassa-LiquidAssets_Cassa2", "aFinalAndNew_GLCassa_Context")>
|
||||
<VisibleInListView(False)>
|
||||
Property LiquidAssets_Cassa As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets_Cassa", _LiquidAssets, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
BallanceHUF = Me.GetBallanceHUF(value, Now)
|
||||
BallanceDEV = Me.GetBallanceDEV(value, Now)
|
||||
CurrencyName = value.CurrencyName
|
||||
row_CurrencyName2 = value.CurrencyName
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRange("GLCassa-row_CurrencyRate", "aToTable_GLCassa_Contexts", 1.1, 999999, TargetCriteria:="LiquidAssets_Cassa.CurrencyName.ShortName != 'HUF' and row_CashType !=2")>
|
||||
Property row_CurrencyRate As Double
|
||||
Get
|
||||
Return _row_CurrencyRate
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_CurrencyRate", _row_CurrencyRate, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" And row_CurrencyName2.ShortName <> "HUF" Then
|
||||
If row_CurrencyRate <> 0 Then row_AmountDEV2 = Math.Round(row_AmountHUF / row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName = "HUF" Then
|
||||
row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
row_AmountDEV2 = row_AmountHUF
|
||||
End If
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName <> "HUF" Then
|
||||
row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Property row_AmountDEV2 As Double
|
||||
Get
|
||||
Return _row_AmountDEV2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And
|
||||
row_CurrencyName2.ShortName <> "HUF" And
|
||||
LiquidAssets_Cassa.CurrencyName.ShortName <> row_CurrencyName2.ShortName Then
|
||||
If row_AmountDEV <> 0 Then
|
||||
row_CurrencyRate2 = Math.Round(row_AmountDEV2 / row_AmountDEV, 4, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
<RuleRange("GLCassa.CurrencyName.ToTable", "aToTable_GLCassa_Contexts", 0.01, 999999,
|
||||
TargetCriteria:="LiquidAssets_Cassa.CurrencyName.ShortName != row_CurrencyName2.ShortName and LiquidAssets_Cassa.CurrencyName.ShortName !='HUF' and row_CurrencyName2.ShortName !='HUF' and row_CashType !=2")>
|
||||
Property row_CurrencyRate2 As Double
|
||||
Get
|
||||
Return _row_CurrencyRate2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)>
|
||||
<VisibleInListView(False)>
|
||||
Property row_CurrencyName2 As CurrencyName
|
||||
Get
|
||||
Return _row_CurrencyName2
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalInAmountHUF As Double
|
||||
Get
|
||||
Return _TotalInAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountHUF As Double
|
||||
Get
|
||||
Return _TotalOutAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalInAmountDEV As Double
|
||||
Get
|
||||
Return _TotalInAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountDEV As Double
|
||||
Get
|
||||
Return _TotalOutAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
Property BallanceDEV As Double
|
||||
Get
|
||||
Return _BallanceDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLHeader_RateDiff As GLHeader
|
||||
Get
|
||||
Return _GLHeader_RateDiff
|
||||
End Get
|
||||
Set(value As GLHeader)
|
||||
SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)>
|
||||
Property GLClosingTime As GLClosingTime
|
||||
Get
|
||||
Return _GLClosingTime
|
||||
End Get
|
||||
Set(value As GLClosingTime)
|
||||
SetPropertyValue("GLClosingTime", _GLClosingTime, value)
|
||||
End Set
|
||||
End Property
|
||||
Sub RecalculateTotal(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace, ByVal _WidthCommit As Boolean)
|
||||
Dim _GLRows As GLRows
|
||||
_GLCassa.TotalInAmountHUF = 0
|
||||
_GLCassa.TotalOutAmountHUF = 0
|
||||
_GLCassa.TotalInAmountDEV = 0
|
||||
_GLCassa.TotalOutAmountDEV = 0
|
||||
For Each _GLRows In _GLCassa.GLRows
|
||||
_GLCassa.TotalInAmountHUF += _GLRows.InAmountHUF
|
||||
_GLCassa.TotalOutAmountHUF += _GLRows.OutAmountHUF
|
||||
_GLCassa.TotalInAmountDEV += _GLRows.InAmountDEV
|
||||
_GLCassa.TotalOutAmountDEV += _GLRows.OutAmountDEV
|
||||
Next
|
||||
If _GLCassa.TotalInAmountDEV > 0 Or _GLCassa.TotalInAmountHUF > 0 Then
|
||||
If _GLCassa.CurrencyName.ShortName = "HUF" Then
|
||||
_GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalInAmountHUF)
|
||||
Else
|
||||
_GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalInAmountDEV)
|
||||
End If
|
||||
Else
|
||||
If _GLCassa.CurrencyName.ShortName = "HUF" Then
|
||||
_GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalOutAmountHUF)
|
||||
Else
|
||||
_GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalOutAmountDEV)
|
||||
End If
|
||||
End If
|
||||
If _WidthCommit = True Then _ocur.CommitChanges()
|
||||
End Sub
|
||||
Sub CreateRoundingRow(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_New As GLRows
|
||||
Dim _GLHeader As GLHeader = TryCast(_GLCassa, GLHeader)
|
||||
Dim _InAmountHUF As Double = 0
|
||||
Dim _OutAmountHUF As Double = 0
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
|
||||
If _GLCassa IsNot Nothing Then
|
||||
For Each _GLRows In _GLCassa.GLRows
|
||||
If _GLRows.LiquidAssets.IsRounding = True Then
|
||||
'-- Törölni kell a kerekítési sort ! -------------------------------------------------------------------------------------------------------
|
||||
|
||||
'-------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Dim _GUID As Guid = Guid.NewGuid
|
||||
If _GLCassa.TotalInAmountHUF > 0 Then 'Befizetés
|
||||
_InAmountHUF = _GLCassa.TotalInAmountHUF Mod 5
|
||||
Select Case _InAmountHUF
|
||||
Case 1, 2 'Lefele kerekítés
|
||||
_CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 1)
|
||||
_GLRows_New = _ocur.CreateObject(Of GLRows)()
|
||||
_GLRows_New.InAmountHUF = _InAmountHUF * -1
|
||||
_GLRows_New.CreditAmountHUF = _InAmountHUF
|
||||
_GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _InAmountHUF,
|
||||
_GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerekítési különbözet", Nothing, Nothing,
|
||||
Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalDebit, eCashType.eNormal,
|
||||
ePartnerType.eNotSet)
|
||||
_ocur.CommitChanges()
|
||||
Case 3, 4 'fölfele kerekítés
|
||||
_CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 2)
|
||||
_DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_GLRows_New = _ocur.CreateObject(Of GLRows)()
|
||||
_GLRows_New.InAmountHUF = 5 - _InAmountHUF
|
||||
_GLRows_New.DebitAmountHUF = 5 - _InAmountHUF
|
||||
_GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, 5 - _InAmountHUF,
|
||||
_GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerekítési különbözet", Nothing, Nothing,
|
||||
Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalDebit, eCashType.eNormal,
|
||||
ePartnerType.eNotSet)
|
||||
_ocur.CommitChanges()
|
||||
End Select
|
||||
Else 'Kifizetés
|
||||
_OutAmountHUF = _GLCassa.TotalOutAmountHUF Mod 5
|
||||
Select Case _OutAmountHUF
|
||||
Case 1, 2 'Lefele kerekítés
|
||||
_CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 2)
|
||||
_DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_GLRows_New = _ocur.CreateObject(Of GLRows)()
|
||||
_GLRows_New.OutAmountHUF = _OutAmountHUF * -1
|
||||
_GLRows_New.DebitAmountHUF = _OutAmountHUF
|
||||
_GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _OutAmountHUF,
|
||||
_GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerekítési különbözet", Nothing, Nothing,
|
||||
Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalCredit, eCashType.eNormal,
|
||||
ePartnerType.eNotSet)
|
||||
_ocur.CommitChanges()
|
||||
Case 3, 4 'fölfele kerekítés
|
||||
_CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0)
|
||||
_DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 1)
|
||||
_GLRows_New = _ocur.CreateObject(Of GLRows)()
|
||||
_GLRows_New.OutAmountHUF = (5 - _OutAmountHUF)
|
||||
_GLRows_New.CreditAmountHUF = 5 - _OutAmountHUF
|
||||
_GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, (5 - _OutAmountHUF),
|
||||
_GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerekítési különbözet", Nothing, Nothing,
|
||||
Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalCredit, eCashType.eNormal,
|
||||
ePartnerType.eNotSet)
|
||||
_ocur.CommitChanges()
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
Exit For
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function CheckIsNegative(ByVal _ocur As Xpo.XPObjectSpace, ByVal _p_LiquidAssets As LiquidAssets, ByVal _p_GLCassa As GLCassa) As Date
|
||||
Dim _TotalHUF As Double = 0
|
||||
Dim _TotalDEV As Double = 0
|
||||
Dim _GLCassa As GLCassa
|
||||
Dim _GLRows As GLRows
|
||||
Dim _IsNegative As Boolean = False
|
||||
Dim _IsNegativeDate As Date = Nothing
|
||||
Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session,
|
||||
CriteriaOperator.Parse("(LiquidAssets_Cassa=? and IsStorno=False and DocumentNumber<>'') or Oid=?", _p_LiquidAssets, _p_GLCassa.Oid))
|
||||
|
||||
_GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
||||
|
||||
_IsNegativeDate = #1/1/1980#
|
||||
|
||||
For Each _GLCassa In _GLCassa_Collection
|
||||
For Each _GLRows In _GLCassa.GLRows
|
||||
_TotalHUF += _GLRows.InAmountHUF - _GLRows.OutAmountHUF
|
||||
_TotalDEV += _GLRows.InAmountDEV - _GLRows.OutAmountDEV
|
||||
Next
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then
|
||||
If _TotalHUF < 0 Then
|
||||
_IsNegative = True
|
||||
_IsNegativeDate = _GLCassa.DateExecution
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
If _TotalDEV < 0 Then
|
||||
_IsNegative = True
|
||||
_IsNegativeDate = _GLCassa.DateExecution
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Return _IsNegativeDate
|
||||
End Function
|
||||
Function CheckIsNegativeifStorno(ByVal _ocur As Xpo.XPObjectSpace, ByVal _GLCassaifStorno As GLCassa) As Date
|
||||
Dim _TotalHUF As Double = 0
|
||||
Dim _TotalDEV As Double = 0
|
||||
Dim _GLCassa As GLCassa
|
||||
Dim _GLRows As GLRows
|
||||
Dim _IsNegative As Boolean = False
|
||||
Dim _IsNegativeDate As Date = Nothing
|
||||
Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session,
|
||||
CriteriaOperator.Parse("LiquidAssets_Cassa=? and IsStorno=False and Oid<>?", _GLCassaifStorno.LiquidAssets_Cassa, _GLCassaifStorno.Oid))
|
||||
|
||||
_GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
||||
_IsNegativeDate = #1/1/1980#
|
||||
|
||||
For Each _GLCassa In _GLCassa_Collection
|
||||
For Each _GLRows In _GLCassa.GLRows
|
||||
_TotalHUF += _GLRows.InAmountHUF - _GLRows.OutAmountHUF
|
||||
_TotalDEV += _GLRows.InAmountDEV - _GLRows.OutAmountDEV
|
||||
Next
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then
|
||||
If _TotalHUF < 0 Then
|
||||
_IsNegative = True
|
||||
_IsNegativeDate = _GLCassa.DateExecution
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
If _TotalDEV < 0 Then
|
||||
_IsNegative = True
|
||||
_IsNegativeDate = _GLCassa.DateExecution
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Return _IsNegativeDate
|
||||
End Function
|
||||
Public Sub PrintCassaDocument(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace, ByVal _Frame As Frame)
|
||||
Dim _ReportData As ReportData
|
||||
Dim _GLHeader As GLHeader
|
||||
If _GLCassa IsNot Nothing Then
|
||||
_GLHeader = TryCast(_GLCassa, GLHeader)
|
||||
_ReportData = _GLCassa.LiquidAssets_Cassa.ReportData
|
||||
If _ReportData IsNot Nothing Or _GLCassa Is Nothing Then
|
||||
_Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLHeader=?", _GLHeader), True)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function CheckIfPartnerCashFlowsInMonthGreaterThan1500000(ByVal _ocur As Xpo.XPObjectSpace, ByVal _p_GLCassa As GLCassa,
|
||||
ByVal _p_Customers As Customers, ByVal _p_DateExecution As Date,
|
||||
_p_CurrentInAmountHUF As Double, _p_CurrentOutAmountHUF As Double) As Boolean
|
||||
Dim _Valid As Boolean = True
|
||||
Dim _SumInAmountHUF As Double = _p_CurrentInAmountHUF
|
||||
Dim _SumOutAmountHUF As Double = _p_CurrentOutAmountHUF
|
||||
|
||||
Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("GetYear(GLHeader.DateExecution)=? and GetMonth(GLHeader.DateExecution)=? and GLHeader.IsEditable=False",
|
||||
_p_GLCassa.DateExecution.Year, _p_GLCassa.DateExecution.Month))
|
||||
Dim _GLRows As GLRows
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
If TryCast(_GLRows.GLHeader, GLCassa) Is _p_GLCassa Then
|
||||
_SumInAmountHUF += _GLRows.InAmountHUF
|
||||
_SumOutAmountHUF = _GLRows.OutAmountHUF
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If _SumInAmountHUF >= 1500000 Or _SumOutAmountHUF > 1500000 Then
|
||||
_Valid = False
|
||||
End If
|
||||
Return _Valid
|
||||
|
||||
End Function
|
||||
<VisibleInDetailView(False)>
|
||||
ReadOnly Property Image1 As Image
|
||||
Get
|
||||
If Me.GLClosingTime IsNot Nothing Then
|
||||
Return ImageLoader.Instance.GetImageInfo("lock_warning").Image
|
||||
Else
|
||||
If IsStorno Then
|
||||
Return ImageLoader.Instance.GetImageInfo("document_delete").Image
|
||||
Else
|
||||
Return ImageLoader.Instance.GetImageInfo("edit").Image
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Get
|
||||
End Property
|
||||
'-- Overrides property
|
||||
<RuleValueComparison("GLCassa-row_AmountDEV", "aToTable_GLCassa_Contexts", ValueComparisonType.GreaterThan, 0, TargetCriteria:="CurrencyName.ShortName != 'HUF' and row_CashType !=2 ")>
|
||||
Overrides Property row_AmountDEV As Double
|
||||
Get
|
||||
Return MyBase.row_AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
MyBase.row_AmountDEV = value
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName
|
||||
If Me.row_CurrencyRate > 0 Then
|
||||
Me.row_AmountHUF = value * Me.row_CurrencyRate
|
||||
End If
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" Then
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName Then
|
||||
Else
|
||||
row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Overrides Property row_AmountHUF As Double
|
||||
Get
|
||||
Return MyBase.row_AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
MyBase.row_AmountHUF = value
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then
|
||||
If LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName Then
|
||||
Else
|
||||
row_AmountDEV2 = row_AmountHUF * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Overrides Property row_Controlling As Controlling
|
||||
Get
|
||||
Return MyBase.row_Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
MyBase.row_Controlling = value
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If value IsNot Nothing Then
|
||||
row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLHeader.row_Customer.GLCassa", "aToTable_GLCassa_Contexts", TargetCriteria:="row_PartnerType<>-1")>
|
||||
Public Overrides Property row_Customer As Customers
|
||||
Get
|
||||
Return MyBase.row_Customer
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
MyBase.row_Customer = value
|
||||
End Set
|
||||
End Property
|
||||
Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceHUF As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Cassa AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLCassa t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.DocumentNumber<>'' AND t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Cassa=@Cassa AND "
|
||||
_SQL += " DATE(t2.DateExecution)<=@Date"
|
||||
Dim _stringparam() As String = New String() {"@Cassa", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceHUF = row.Values(1)
|
||||
Next row
|
||||
Return _BallanceHUF
|
||||
End Function
|
||||
Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _SQL As String
|
||||
Dim _SelectedData As SelectedData = Nothing
|
||||
Dim _BallanceDEV As Double = 0
|
||||
_SQL = " SELECT t1.LiquidAssets_Cassa AS LiquidAssets,"
|
||||
_SQL += " SUM(t3.InAmountHUF)-SUM(t3.OutAmountHUF) As BallanceHUF,"
|
||||
_SQL += " SUM(t3.InAmountDEV)-SUM(t3.OutAmountDEV) As BallanceDEV"
|
||||
_SQL += " FROM GLCassa t1 JOIN GLHeader t2 ON"
|
||||
_SQL += " t1.Oid=t2.Oid JOIN GLRows t3 On"
|
||||
_SQL += " t2.Oid=t3.GLHeader"
|
||||
_SQL += " WHERE t2.DocumentNumber<>'' AND t2.GCRecord IS NULL AND t3.GCRecord IS NULL AND t1.LiquidAssets_Cassa=@Cassa AND "
|
||||
_SQL += " DATE(t2.DateExecution)<=@Date"
|
||||
Dim _stringparam() As String = New String() {"@Cassa", "@Date"}
|
||||
Dim _objectparam() As Object = New Object() {_LiquidAssets.Oid, _ToDate.Date}
|
||||
|
||||
_SelectedData = Session.ExecuteQuery(_SQL, _stringparam, _objectparam)
|
||||
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
||||
_BallanceDEV = row.Values(2)
|
||||
Next row
|
||||
Return _BallanceDEV
|
||||
|
||||
End Function
|
||||
End Class
|
||||
+215
@@ -0,0 +1,215 @@
|
||||
Partial Class GLCassaVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aMakeEditable_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintCassaDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aRecalculateSelectedGLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLCassaDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGenerateGLCassRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportPCIGroupCassa = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFinal_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aStorno_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalAndNew_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGetCurrencyRateCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLCassaGenerateDocumentNumber = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aMakeEditable_GLCassa
|
||||
'
|
||||
Me.aMakeEditable_GLCassa.Caption = "aMakeEditable_GLCassa"
|
||||
Me.aMakeEditable_GLCassa.Category = "ObjectsCreation"
|
||||
Me.aMakeEditable_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aMakeEditable_GLCassa.Id = "aMakeEditable_GLCassa"
|
||||
Me.aMakeEditable_GLCassa.ImageName = "edit"
|
||||
Me.aMakeEditable_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aMakeEditable_GLCassa.TargetObjectsCriteria = "IsEditable=False and IsStorno=False and isnull(GLClosingTime)=True"
|
||||
Me.aMakeEditable_GLCassa.ToolTip = Nothing
|
||||
'
|
||||
'aPrintCassaDocument
|
||||
'
|
||||
Me.aPrintCassaDocument.Caption = "Print document"
|
||||
Me.aPrintCassaDocument.Category = "View"
|
||||
Me.aPrintCassaDocument.ConfirmationMessage = Nothing
|
||||
Me.aPrintCassaDocument.Id = "aPrintCassaDocument"
|
||||
Me.aPrintCassaDocument.ToolTip = Nothing
|
||||
'
|
||||
'aRecalculateSelectedGLCassa
|
||||
'
|
||||
Me.aRecalculateSelectedGLCassa.Caption = "aRecalculate Selected GLCassa"
|
||||
Me.aRecalculateSelectedGLCassa.Category = "ObjectsCreation"
|
||||
Me.aRecalculateSelectedGLCassa.ConfirmationMessage = Nothing
|
||||
Me.aRecalculateSelectedGLCassa.Id = "aRecalculateSelectedGLCassa"
|
||||
Me.aRecalculateSelectedGLCassa.TargetObjectsCriteria = "isnull(GLClosingTime)=True"
|
||||
Me.aRecalculateSelectedGLCassa.ToolTip = Nothing
|
||||
'
|
||||
'aToTable_GLCassa
|
||||
'
|
||||
Me.aToTable_GLCassa.Caption = "Add row"
|
||||
Me.aToTable_GLCassa.Category = "aToTable_GLCassa"
|
||||
Me.aToTable_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLCassa.Id = "aToTable_GLCassa"
|
||||
Me.aToTable_GLCassa.TargetViewId = "GLCassa_DetailView"
|
||||
Me.aToTable_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_GLCassa.ToolTip = Nothing
|
||||
Me.aToTable_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aBackToRowEdit_GLCassa
|
||||
'
|
||||
Me.aBackToRowEdit_GLCassa.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_GLCassa.Category = "aBackToRowEdit_GLCassa"
|
||||
Me.aBackToRowEdit_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_GLCassa.Id = "aBackToRowEdit_GLCassa"
|
||||
Me.aBackToRowEdit_GLCassa.TargetViewId = "GLCassa_DetailView"
|
||||
Me.aBackToRowEdit_GLCassa.ToolTip = Nothing
|
||||
'
|
||||
'aToTableD_GLCassa
|
||||
'
|
||||
Me.aToTableD_GLCassa.Caption = "Delete row"
|
||||
Me.aToTableD_GLCassa.Category = "aToTableD_GLCassa"
|
||||
Me.aToTableD_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLCassa.Id = "aToTableD_GLCassa"
|
||||
Me.aToTableD_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_GLCassa.TargetViewId = "GLCassa_DetailView"
|
||||
Me.aToTableD_GLCassa.ToolTip = Nothing
|
||||
'
|
||||
'aGLCassaDivideRows
|
||||
'
|
||||
Me.aGLCassaDivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLCassaDivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLCassaDivideRows.Caption = "Divide rows"
|
||||
Me.aGLCassaDivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLCassaDivideRows.Id = "aGLCassaDivideRows"
|
||||
Me.aGLCassaDivideRows.ImageName = "row_add_after"
|
||||
Me.aGLCassaDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLCassaDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Cassa"
|
||||
Me.aGLCassaDivideRows.ToolTip = Nothing
|
||||
'
|
||||
'aGenerateGLCassRateDiff
|
||||
'
|
||||
Me.aGenerateGLCassRateDiff.Caption = "Generate rate diff"
|
||||
Me.aGenerateGLCassRateDiff.Category = "ObjectsCreation"
|
||||
Me.aGenerateGLCassRateDiff.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aGenerateGLCassRateDiff.Id = "aGenerateGLCassaRateDiff"
|
||||
Me.aGenerateGLCassRateDiff.ImageName = "money"
|
||||
Me.aGenerateGLCassRateDiff.TargetViewId = "GLCassa_ListView"
|
||||
Me.aGenerateGLCassRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGenerateGLCassRateDiff.ToolTip = Nothing
|
||||
Me.aGenerateGLCassRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aImportPCIGroupCassa
|
||||
'
|
||||
Me.aImportPCIGroupCassa.AcceptButtonCaption = Nothing
|
||||
Me.aImportPCIGroupCassa.CancelButtonCaption = Nothing
|
||||
Me.aImportPCIGroupCassa.Caption = "Get exported "
|
||||
Me.aImportPCIGroupCassa.Category = "aImportPCIGroupCassa"
|
||||
Me.aImportPCIGroupCassa.ConfirmationMessage = Nothing
|
||||
Me.aImportPCIGroupCassa.Id = "aImportPCIGroupCassa"
|
||||
Me.aImportPCIGroupCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aImportPCIGroupCassa.TargetViewId = "GLCassa_DetailView"
|
||||
Me.aImportPCIGroupCassa.ToolTip = Nothing
|
||||
'
|
||||
'aFinal_GLCassa
|
||||
'
|
||||
Me.aFinal_GLCassa.Caption = "aFinal_GLCassa"
|
||||
Me.aFinal_GLCassa.Category = "ObjectsCreation"
|
||||
Me.aFinal_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aFinal_GLCassa.Id = "aFinal_GLCassa"
|
||||
Me.aFinal_GLCassa.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aFinal_GLCassa.TargetObjectsCriteria = "isnull(GLClosingTime)=True"
|
||||
Me.aFinal_GLCassa.TargetObjectType = GetType(Nuvolar.[Module].GLCassa)
|
||||
Me.aFinal_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinal_GLCassa.ToolTip = Nothing
|
||||
Me.aFinal_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aStorno_GLCassa
|
||||
'
|
||||
Me.aStorno_GLCassa.Caption = "aStorno_GLCassa"
|
||||
Me.aStorno_GLCassa.Category = "ObjectsCreation"
|
||||
Me.aStorno_GLCassa.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aStorno_GLCassa.Id = "aStorno_GLCassa"
|
||||
Me.aStorno_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aStorno_GLCassa.TargetObjectsCriteria = "IsStorno=False and IsEditable=False and isnull(GLClosingTime)=True"
|
||||
Me.aStorno_GLCassa.TargetObjectType = GetType(Nuvolar.[Module].GLCassa)
|
||||
Me.aStorno_GLCassa.TargetViewId = ""
|
||||
Me.aStorno_GLCassa.ToolTip = Nothing
|
||||
Me.aStorno_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aFinalAndNew_GLCassa
|
||||
'
|
||||
Me.aFinalAndNew_GLCassa.Caption = "aFinalAndNew_GLCassa"
|
||||
Me.aFinalAndNew_GLCassa.Category = "ObjectsCreation"
|
||||
Me.aFinalAndNew_GLCassa.ConfirmationMessage = Nothing
|
||||
Me.aFinalAndNew_GLCassa.Id = "aFinalAndNew_GLCassa"
|
||||
Me.aFinalAndNew_GLCassa.ImageName = "MenuBar_SaveAndNew"
|
||||
Me.aFinalAndNew_GLCassa.TargetObjectType = GetType(Nuvolar.[Module].GLCassa)
|
||||
Me.aFinalAndNew_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalAndNew_GLCassa.ToolTip = Nothing
|
||||
Me.aFinalAndNew_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGetCurrencyRateCassa
|
||||
'
|
||||
Me.aGetCurrencyRateCassa.Caption = "aGet Currency Rate Cassa"
|
||||
Me.aGetCurrencyRateCassa.Category = "aGetCurrencyRateCassa"
|
||||
Me.aGetCurrencyRateCassa.ConfirmationMessage = Nothing
|
||||
Me.aGetCurrencyRateCassa.Id = "aGetCurrencyRateCassa"
|
||||
Me.aGetCurrencyRateCassa.TargetObjectType = GetType(Nuvolar.[Module].GLCassa)
|
||||
Me.aGetCurrencyRateCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGetCurrencyRateCassa.ToolTip = Nothing
|
||||
Me.aGetCurrencyRateCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGLCassaGenerateDocumentNumber
|
||||
'
|
||||
Me.aGLCassaGenerateDocumentNumber.Caption = "aGLCassa Generate Document Number"
|
||||
Me.aGLCassaGenerateDocumentNumber.ConfirmationMessage = Nothing
|
||||
Me.aGLCassaGenerateDocumentNumber.Id = "aGLCassaGenerateDocumentNumber"
|
||||
Me.aGLCassaGenerateDocumentNumber.TargetObjectsCriteria = ""
|
||||
Me.aGLCassaGenerateDocumentNumber.TargetObjectType = GetType(Nuvolar.[Module].GLCassa)
|
||||
Me.aGLCassaGenerateDocumentNumber.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aGLCassaGenerateDocumentNumber.ToolTip = Nothing
|
||||
Me.aGLCassaGenerateDocumentNumber.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinal_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aStorno_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalAndNew_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aMakeEditable_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintCassaDocument As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aRecalculateSelectedGLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLCassaDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGenerateGLCassRateDiff As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportPCIGroupCassa As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGetCurrencyRateCassa As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLCassaGenerateDocumentNumber As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+165
@@ -0,0 +1,165 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aMakeEditable_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintCassaDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1188, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aRecalculateSelectedGLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>978, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>827, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>636, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aGLCassaDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>470, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateGLCassRateDiff.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aImportPCIGroupCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aFinal_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aStorno_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalAndNew_GLCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aGetCurrencyRateCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>476, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aGLCassaGenerateDocumentNumber.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>427, 115</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1022
File diff suppressed because it is too large
Load Diff
+77
@@ -0,0 +1,77 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLCassaOpenClose
|
||||
Inherits BaseObject
|
||||
|
||||
Private _LiquidAssets As LiquidAssets
|
||||
Private _DateFrom As Date
|
||||
Private _DateTo As Date
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+58
@@ -0,0 +1,58 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLClosingRecord
|
||||
Inherits BaseObject
|
||||
Private _ObjectCreated As Date 'Maga az objektum mikor készült el
|
||||
Private _UserCreated As User 'Ki készítette
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+108
@@ -0,0 +1,108 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Public Enum eGLClosingType
|
||||
eCassa = 0 ' Pénztár zárása
|
||||
eVAT = 1 ' ÁFA zárása
|
||||
eBase = 2 'Főkönyv zárása !
|
||||
eRegistry = 3 'Iktatás zárása
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class GLClosingTime
|
||||
Inherits BaseObject
|
||||
Private _GLClosingType As eGLClosingType
|
||||
Private _DateFrom As Date
|
||||
Private _DateTo As Date
|
||||
Private _ObjectCreated As Date 'Maga az objektum mikor készült el
|
||||
Private _UserCreated As User 'Ki készítette
|
||||
Private _DocumentFile As FileData
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property GLClosingType As eGLClosingType
|
||||
Get
|
||||
Return _GLClosingType
|
||||
End Get
|
||||
Set(value As eGLClosingType)
|
||||
SetPropertyValue("GLClosingType", _GLClosingType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DocumentFile As FileData
|
||||
Get
|
||||
Return _DocumentFile
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("DocumentFile", _DocumentFile, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class GLClosingVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+22
@@ -0,0 +1,22 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class GLClosingVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+352
@@ -0,0 +1,352 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Persistent.Base.General
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Configuration
|
||||
Imports System.Linq
|
||||
Imports System.Linq.Expressions
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'<EditorStateRule("GLCompensation-Partner-hide", "row_ChartOfAccounts", EditorState.Hidden, "row_TransactionType in (0,1)", ViewType.DetailView)> _
|
||||
'<EditorStateRule("GLCompensation-Partnerconnection-hide", "row_PCIGroup;row_PartnerType", EditorState.Hidden, "row_TransactionType in (2,3) OR IsEditable=False", ViewType.DetailView)> _
|
||||
'<EditorStateRule("GLCompensation-Hide GLCompensation-LiquidAssets", "LiquidAssets_Main", EditorState.Disabled, "(IsNull(LiquidAssets_Main))=False", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide row_CurrencyRate2 in GLCompensation", "row_CurrencyRate2", EditorState.Hidden, "LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide row_CurrencyRate2 in GLCompensation and HUF", "row_CurrencyRate2", EditorState.Hidden, "LiquidAssets_Main.CurrencyName.ShortName ='HUF' or row_CurrencyName2.ShortName='HUF'", ViewType.DetailView)> _
|
||||
'<EditorStateRule("GLCompensation-Hide DEV info in HUF", "TotalInAmountDEV;TotalOutAmountDEV;BallanceDEV;CloseDEV", EditorState.Hidden, "CurrencyName.ShortName='HUF'", ViewType.DetailView)> _
|
||||
'<EditorStateRule("GLCompensation-Hide HUF info in DEV", "TotalInAmountHUF;TotalOutAmountHUF;BallanceHUF;CloseHUF", EditorState.Hidden, "CurrencyName.ShortName!='HUF'", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Disable GLCompensation.row_AmountHUF when DEV != HUF", "row_AmountHUF", EditorState.Disabled, "LiquidAssets_Main.CurrencyName.ShortName != 'HUF'", ViewType.DetailView)> _
|
||||
|
||||
<Appearance("GLCompensation-Hide GLCompensation-LiquidAssets", TargetItems:="LiquidAssets_Main", Criteria:="(IsNull(LiquidAssets_Main))=False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable GLCompensation.row_AmountHUF when DEV != HUF", TargetItems:="row_AmountHUF", Criteria:="LiquidAssets_Main.CurrencyName.ShortName != 'HUF'", Enabled:=False, Context:="DetailView")> _
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialTransactions")> _
|
||||
<Appearance("GLCompensation-Partner-hide", TargetItems:="row_ChartOfAccounts", Criteria:="row_TransactionType in (0,1)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("GLCompensation-Partnerconnection-hide", TargetItems:="row_PCIGroup;row_PartnerType", Criteria:="row_TransactionType in (2,3) OR IsEditable=False", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide row_CurrencyRate2 in GLCompensation", TargetItems:="row_CurrencyRate2", Criteria:="LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide row_CurrencyRate2 in GLCompensation and HUF", TargetItems:="row_CurrencyRate2", Criteria:="LiquidAssets_Main.CurrencyName.ShortName ='HUF' or row_CurrencyName2.ShortName='HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("GLCompensation-Hide DEV info in HUF", TargetItems:="TotalInAmountDEV;TotalOutAmountDEV;BallanceDEV;CloseDEV", Criteria:="CurrencyName.ShortName='HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("GLCompensation-Hide HUF info in DEV", TargetItems:="TotalInAmountHUF;TotalOutAmountHUF;BallanceHUF;CloseHUF", Criteria:="CurrencyName.ShortName!='HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide in GLCompensation row_Amount2 when CurrencyName2=CurrencyName", AppearanceItemType.ViewItem, "row_CurrencyName2.ShortName=LiquidAssets_Main.CurrencyName.ShortName", TargetItems:="row_CurrencyRate2;row_AmountDEV2", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_ info when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_PartnerType; row_TransactionType; row_ChartOfAccounts;" _
|
||||
& "row_PCIGroup;", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<RuleCriteria("RuleCriteria GLCompensation-row_ChartOfAccounts", "aToTable_GLCompensation_Contexts", "row_ChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
|
||||
Public Class GLCompensation
|
||||
Inherits GLHeader
|
||||
Private _PartnerType As ePartnerType
|
||||
Private _TransactionType As eTransactionType
|
||||
Private _ChartOfAccounts As ChartOfAccounts
|
||||
Private _TotalInAmountHUF As Double = 0
|
||||
Private _TotalOutAmountHUF As Double = 0
|
||||
Private _TotalInAmountDEV As Double = 0
|
||||
Private _TotalOutAmountDEV As Double = 0
|
||||
Private _LiquidAssets As LiquidAssets
|
||||
Private _BallanceHUF As Double
|
||||
Private _BallanceDEV As Double
|
||||
Private _PCIGroup As PCIGroup
|
||||
Private _GLHeader_RateDiff As GLHeader 'Kapcsolódó árf. kül. elszámolási vegyes bizonylat
|
||||
|
||||
'-- A másodlagos
|
||||
Private _row_AmountDEV2 As Double = 0
|
||||
Private _row_CurrencyRate2 As Double = 1
|
||||
Private _row_CurrencyName2 As CurrencyName
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Session.IsNewObject(Me) Then Me.GLDocumentType = eGLDocumentType.eGLCompensation
|
||||
End Sub
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_PartnerType() As ePartnerType
|
||||
Get
|
||||
Return _PartnerType
|
||||
End Get
|
||||
Set(ByVal value As ePartnerType)
|
||||
SetPropertyValue("row_PartnerType", _PartnerType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_TransactionType() As eTransactionType
|
||||
Get
|
||||
Return _TransactionType
|
||||
End Get
|
||||
Set(ByVal value As eTransactionType)
|
||||
SetPropertyValue("row_TransactionType", _TransactionType, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Select Case value
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet
|
||||
row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
End Select
|
||||
Select Case value
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet
|
||||
Me.row_PartnerType = ePartnerType.eNotSet
|
||||
End Select
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("AccountYear=GetYear('@This.DateExecution')")>
|
||||
<RuleRequiredField("GLCompensation-row_ChartOfAccounts", "aToTable_GLCompensation_Contexts", TargetCriteria:="row_TransactionType in (2,3,4)")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_ChartOfAccounts() As ChartOfAccounts
|
||||
Get
|
||||
Return _ChartOfAccounts
|
||||
End Get
|
||||
Set(ByVal value As ChartOfAccounts)
|
||||
SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and PartnerType='@This.row_PartnerType' and BallanceState=0 and isnull(CurrencyName_Account)=False ")>
|
||||
<VisibleInListView(False)>
|
||||
Property row_PCIGroup() As PCIGroup
|
||||
Get
|
||||
Return _PCIGroup
|
||||
End Get
|
||||
Set(ByVal value As PCIGroup)
|
||||
SetPropertyValue("row_PCIGroup", _PCIGroup, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value IsNot Nothing Then
|
||||
row_ConnectInfo = value.ConnectInfo
|
||||
row_Customer = value.Customers
|
||||
row_PartnerType = value.PartnerType
|
||||
If value.CurrencyName_Account.ShortName = "HUF" Then
|
||||
If Me.CurrencyName.ShortName = "HUF" Then
|
||||
Me.row_AmountHUF = Math.Abs(value.BallanceHUF)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
|
||||
End If
|
||||
Else
|
||||
If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then
|
||||
Me.row_AmountDEV = Math.Abs(value.BallanceDEV)
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
Else
|
||||
row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("LiquidAssetsType=3 and CustomerFrom='@This.CustomersFrom'")>
|
||||
<RuleRequiredField("GLCompensation-LiquidAssets_Main", "aFinal_GLBank_Context")> _
|
||||
<RuleRequiredField("GLCompensation-LiquidAssets_Main_2", "aFinalAndNew_GLBank_Context")> _
|
||||
<VisibleInListView(False)> _
|
||||
Property LiquidAssets_Main() As LiquidAssets
|
||||
Get
|
||||
Return _LiquidAssets
|
||||
End Get
|
||||
Set(ByVal value As LiquidAssets)
|
||||
SetPropertyValue("LiquidAssets_Main", _LiquidAssets, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
row_LiquidAssets = value
|
||||
If value IsNot Nothing Then
|
||||
CurrencyName = value.CurrencyName
|
||||
Me.row_CurrencyName2 = CurrencyName
|
||||
BallanceHUF = GetBallanceHUF(value, Now)
|
||||
BallanceDEV = GetBallanceDEV(value, Now)
|
||||
If Me.CustomersFrom IsNot Nothing Then
|
||||
If Me.DocumentNumber Is Nothing Then
|
||||
If value.NumberGeneratorIn IsNot Nothing Then
|
||||
Me.DocumentNumber = value.NumberGeneratorIn.GetNewNumber(value.NumberGeneratorIn)
|
||||
Me.Save()
|
||||
Session.CommitTransaction()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_AmountDEV2 As Double
|
||||
Get
|
||||
Return _row_AmountDEV2
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
<RuleRange("GLCompensation.CurrencyName.ToTable", "aToTable_GLCompensation_Contexts", 0.01, 9999999, _
|
||||
TargetCriteria:="LiquidAssets_Main.CurrencyName.ShortName != row_CurrencyName2.ShortName and row_CurrencyName2.ShortName !='HUF' and LiquidAssets_Main.CurrencyName.ShortName !='HUF'")> _
|
||||
Property row_CurrencyRate2 As Double
|
||||
Get
|
||||
Return _row_CurrencyRate2
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName
|
||||
If LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then
|
||||
If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then
|
||||
Else
|
||||
row_AmountDEV2 = row_AmountHUF * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
Else
|
||||
If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then
|
||||
Else
|
||||
row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData(True)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_CurrencyName2 As Nuvolar.Module.CurrencyName
|
||||
Get
|
||||
Return _row_CurrencyName2
|
||||
End Get
|
||||
Set(value As Nuvolar.Module.CurrencyName)
|
||||
SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalInAmountHUF As Double
|
||||
Get
|
||||
Return _TotalInAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountHUF As Double
|
||||
Get
|
||||
Return _TotalOutAmountHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalInAmountDEV As Double
|
||||
Get
|
||||
Return _TotalInAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TotalOutAmountDEV As Double
|
||||
Get
|
||||
Return _TotalOutAmountDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceHUF As Double
|
||||
Get
|
||||
Return _BallanceHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceHUF", _BallanceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BallanceDEV As Double
|
||||
Get
|
||||
Return _BallanceDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("BallanceDEV", _BallanceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GLHeader_RateDiff As GLHeader
|
||||
Get
|
||||
Return _GLHeader_RateDiff
|
||||
End Get
|
||||
Set(value As GLHeader)
|
||||
SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value)
|
||||
End Set
|
||||
End Property
|
||||
Sub RecalculateTotal()
|
||||
Dim _GLRows As GLRows
|
||||
TotalInAmountHUF = 0
|
||||
TotalOutAmountHUF = 0
|
||||
TotalInAmountDEV = 0
|
||||
TotalOutAmountDEV = 0
|
||||
For Each _GLRows In Me.GLRows
|
||||
TotalInAmountHUF += _GLRows.InAmountHUF
|
||||
TotalOutAmountHUF += _GLRows.OutAmountHUF
|
||||
TotalInAmountDEV += _GLRows.InAmountDEV
|
||||
TotalOutAmountDEV += _GLRows.OutAmountDEV
|
||||
Next
|
||||
BallanceHUF = TotalInAmountHUF - TotalOutAmountHUF
|
||||
BallanceDEV = TotalInAmountDEV - _TotalOutAmountDEV
|
||||
End Sub
|
||||
Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(Session, _
|
||||
CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, _ToDate))
|
||||
Dim _GLCompensation As GLCompensation
|
||||
Dim _GLRows As GLRows
|
||||
Dim _InAmountHUF As Double = 0
|
||||
Dim _OutAmountHUF As Double = 0
|
||||
|
||||
For Each _GLCompensation In _GLCompensation_Collection
|
||||
For Each _GLRows In _GLCompensation.GLRows
|
||||
_InAmountHUF += _GLRows.InAmountHUF
|
||||
_OutAmountHUF += _GLRows.OutAmountHUF
|
||||
Next
|
||||
Next
|
||||
Return _InAmountHUF - _OutAmountHUF
|
||||
End Function
|
||||
Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double
|
||||
Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(Session, _
|
||||
CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, _ToDate))
|
||||
Dim _GLBank As GLCompensation
|
||||
Dim _GLRows As GLRows
|
||||
Dim _InAmountDEV As Double = 0
|
||||
Dim _OutAmountDEV As Double = 0
|
||||
|
||||
For Each _GLBank In _GLCompensation_Collection
|
||||
For Each _GLRows In _GLBank.GLRows
|
||||
_InAmountDEV += _GLRows.InAmountDEV
|
||||
_OutAmountDEV += _GLRows.OutAmountDEV
|
||||
Next
|
||||
Next
|
||||
Return _InAmountDEV - _OutAmountDEV
|
||||
End Function
|
||||
<RuleRange("Zero for GLCompensation HUF", "aFinal_GLCompensation_Context", 0, 0, targetcriteria:="LiquidAssets_Main.CurrencyName.ShortName = 'HUF'")> _
|
||||
ReadOnly Property CloseHUF As Double
|
||||
Get
|
||||
Return Math.Round(TotalInAmountHUF, 2, MidpointRounding.AwayFromZero) - Math.Round(TotalOutAmountHUF, 2, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
End Property
|
||||
<RuleRange("Zero for GLCompensation DEV", "aFinal_GLCompensation_Context", 0, 0, targetcriteria:="LiquidAssets_Main.CurrencyName.ShortName != 'HUF'")> _
|
||||
ReadOnly Property CloseDEV As Double
|
||||
Get
|
||||
Return Math.Round(TotalInAmountDEV, 2, MidpointRounding.AwayFromZero) - Math.Round(TotalOutAmountDEV, 2, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Overrides Property row_Controlling As Controlling
|
||||
Get
|
||||
Return MyBase.row_Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
MyBase.row_Controlling = value
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If value.ChartOfAccounts IsNot Nothing Then
|
||||
row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+208
@@ -0,0 +1,208 @@
|
||||
Partial Class GLCompensationVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aMakeEditable_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinal_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalAndNew_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGLCompensationDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aGenerateGLCompensationRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportPCIGroupCompensation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aMakeEditable_GLCompensation
|
||||
'
|
||||
Me.aMakeEditable_GLCompensation.Caption = "aMakeEditable_GLCompensation"
|
||||
Me.aMakeEditable_GLCompensation.Category = "RecordEdit"
|
||||
Me.aMakeEditable_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aMakeEditable_GLCompensation.Id = "aMakeEditable_GLCompensation"
|
||||
Me.aMakeEditable_GLCompensation.ImageName = "Images.replace2.png"
|
||||
Me.aMakeEditable_GLCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aMakeEditable_GLCompensation.Shortcut = Nothing
|
||||
Me.aMakeEditable_GLCompensation.Tag = Nothing
|
||||
Me.aMakeEditable_GLCompensation.TargetObjectsCriteria = "IsEditable=False and IsStorno=False"
|
||||
Me.aMakeEditable_GLCompensation.TargetViewId = Nothing
|
||||
Me.aMakeEditable_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aMakeEditable_GLCompensation.ToolTip = Nothing
|
||||
Me.aMakeEditable_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aToTableD_GLCompensation
|
||||
'
|
||||
Me.aToTableD_GLCompensation.Caption = "Delete row"
|
||||
Me.aToTableD_GLCompensation.Category = ""
|
||||
Me.aToTableD_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLCompensation.Id = "aToTableD_GLCompensation"
|
||||
Me.aToTableD_GLCompensation.ImageName = Nothing
|
||||
Me.aToTableD_GLCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_GLCompensation.Shortcut = Nothing
|
||||
Me.aToTableD_GLCompensation.Tag = Nothing
|
||||
Me.aToTableD_GLCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_GLCompensation.TargetViewId = "GLCompensation_DetailView"
|
||||
Me.aToTableD_GLCompensation.ToolTip = Nothing
|
||||
Me.aToTableD_GLCompensation.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToRowEdit_GLCompensation
|
||||
'
|
||||
Me.aBackToRowEdit_GLCompensation.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_GLCompensation.Category = ""
|
||||
Me.aBackToRowEdit_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.Id = "aBackToRowEdit_GLCompensation"
|
||||
Me.aBackToRowEdit_GLCompensation.ImageName = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.Tag = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.TargetViewId = "GLCompensation_DetailView"
|
||||
Me.aBackToRowEdit_GLCompensation.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_GLCompensation.TypeOfView = Nothing
|
||||
'
|
||||
'aToTable_GLCompensation
|
||||
'
|
||||
Me.aToTable_GLCompensation.Caption = "aToTable"
|
||||
Me.aToTable_GLCompensation.Category = ""
|
||||
Me.aToTable_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLCompensation.Id = "aToTable_GLCompensation"
|
||||
Me.aToTable_GLCompensation.ImageName = Nothing
|
||||
Me.aToTable_GLCompensation.Shortcut = Nothing
|
||||
Me.aToTable_GLCompensation.Tag = Nothing
|
||||
Me.aToTable_GLCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_GLCompensation.TargetObjectType = GetType(Nuvolar.[Module].GLCompensation)
|
||||
Me.aToTable_GLCompensation.TargetViewId = ""
|
||||
Me.aToTable_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_GLCompensation.ToolTip = Nothing
|
||||
Me.aToTable_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aFinal_GLCompensation
|
||||
'
|
||||
Me.aFinal_GLCompensation.Caption = "aFinal_GLCompensation"
|
||||
Me.aFinal_GLCompensation.Category = "ObjectsCreation"
|
||||
Me.aFinal_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aFinal_GLCompensation.Id = "aFinal_GLCompensation"
|
||||
Me.aFinal_GLCompensation.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aFinal_GLCompensation.Shortcut = Nothing
|
||||
Me.aFinal_GLCompensation.Tag = Nothing
|
||||
Me.aFinal_GLCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aFinal_GLCompensation.TargetObjectType = GetType(Nuvolar.[Module].GLCompensation)
|
||||
Me.aFinal_GLCompensation.TargetViewId = Nothing
|
||||
Me.aFinal_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinal_GLCompensation.ToolTip = Nothing
|
||||
Me.aFinal_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aFinalAndNew_GLCompensation
|
||||
'
|
||||
Me.aFinalAndNew_GLCompensation.Caption = "aFinalAndNew_GLCompensation"
|
||||
Me.aFinalAndNew_GLCompensation.Category = "ObjectsCreation"
|
||||
Me.aFinalAndNew_GLCompensation.ConfirmationMessage = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.Id = "aFinalAndNew_GLCompensation"
|
||||
Me.aFinalAndNew_GLCompensation.ImageName = "MenuBar_SaveAndNew"
|
||||
Me.aFinalAndNew_GLCompensation.Shortcut = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.Tag = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.TargetObjectType = GetType(Nuvolar.[Module].GLCompensation)
|
||||
Me.aFinalAndNew_GLCompensation.TargetViewId = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalAndNew_GLCompensation.ToolTip = Nothing
|
||||
Me.aFinalAndNew_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aPrintCompensation
|
||||
'
|
||||
Me.aPrintCompensation.Caption = "Print document"
|
||||
Me.aPrintCompensation.Category = "View"
|
||||
Me.aPrintCompensation.ConfirmationMessage = Nothing
|
||||
Me.aPrintCompensation.Id = "aPrintCompensation"
|
||||
Me.aPrintCompensation.ImageName = "Action_Printing_Print"
|
||||
Me.aPrintCompensation.Shortcut = Nothing
|
||||
Me.aPrintCompensation.Tag = Nothing
|
||||
Me.aPrintCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintCompensation.TargetViewId = "GLCompensation_ListView"
|
||||
Me.aPrintCompensation.ToolTip = Nothing
|
||||
Me.aPrintCompensation.TypeOfView = Nothing
|
||||
'
|
||||
'aGLCompensationDivideRows
|
||||
'
|
||||
Me.aGLCompensationDivideRows.AcceptButtonCaption = Nothing
|
||||
Me.aGLCompensationDivideRows.CancelButtonCaption = Nothing
|
||||
Me.aGLCompensationDivideRows.Caption = "Divide rows"
|
||||
Me.aGLCompensationDivideRows.ConfirmationMessage = Nothing
|
||||
Me.aGLCompensationDivideRows.Id = "aGLCompensationDivideRows"
|
||||
Me.aGLCompensationDivideRows.ImageName = "row_add_after"
|
||||
Me.aGLCompensationDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGLCompensationDivideRows.Shortcut = Nothing
|
||||
Me.aGLCompensationDivideRows.Tag = Nothing
|
||||
Me.aGLCompensationDivideRows.TargetObjectsCriteria = Nothing
|
||||
Me.aGLCompensationDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Compensation"
|
||||
Me.aGLCompensationDivideRows.ToolTip = Nothing
|
||||
Me.aGLCompensationDivideRows.TypeOfView = Nothing
|
||||
'
|
||||
'aGenerateGLCompensationRateDiff
|
||||
'
|
||||
Me.aGenerateGLCompensationRateDiff.Caption = "Generate rate diff"
|
||||
Me.aGenerateGLCompensationRateDiff.Category = "ObjectsCreation"
|
||||
Me.aGenerateGLCompensationRateDiff.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aGenerateGLCompensationRateDiff.Id = "aGenerateGLCompensationRateDiff"
|
||||
Me.aGenerateGLCompensationRateDiff.ImageName = "money"
|
||||
Me.aGenerateGLCompensationRateDiff.Shortcut = Nothing
|
||||
Me.aGenerateGLCompensationRateDiff.Tag = Nothing
|
||||
Me.aGenerateGLCompensationRateDiff.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateGLCompensationRateDiff.TargetViewId = "GLCompensation_ListView"
|
||||
Me.aGenerateGLCompensationRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGenerateGLCompensationRateDiff.ToolTip = Nothing
|
||||
Me.aGenerateGLCompensationRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aImportPCIGroupCompensation
|
||||
'
|
||||
Me.aImportPCIGroupCompensation.AcceptButtonCaption = Nothing
|
||||
Me.aImportPCIGroupCompensation.CancelButtonCaption = Nothing
|
||||
Me.aImportPCIGroupCompensation.Caption = "Get exported "
|
||||
Me.aImportPCIGroupCompensation.Category = "aImportPCIGroupCompensation"
|
||||
Me.aImportPCIGroupCompensation.ConfirmationMessage = Nothing
|
||||
Me.aImportPCIGroupCompensation.Id = "aImportPCIGroupCompensation"
|
||||
Me.aImportPCIGroupCompensation.ImageName = Nothing
|
||||
Me.aImportPCIGroupCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aImportPCIGroupCompensation.Shortcut = Nothing
|
||||
Me.aImportPCIGroupCompensation.Tag = Nothing
|
||||
Me.aImportPCIGroupCompensation.TargetObjectsCriteria = Nothing
|
||||
Me.aImportPCIGroupCompensation.TargetViewId = "GLCompensation_DetailView"
|
||||
Me.aImportPCIGroupCompensation.ToolTip = Nothing
|
||||
Me.aImportPCIGroupCompensation.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aMakeEditable_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinal_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalAndNew_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintCompensation As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aGLCompensationDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGenerateGLCompensationRateDiff As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportPCIGroupCompensation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+153
@@ -0,0 +1,153 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aMakeEditable_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aFinal_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalAndNew_GLCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aGLCompensationDivideRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateGLCompensationRateDiff.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>10, 367</value>
|
||||
</metadata>
|
||||
<metadata name="aImportPCIGroupCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>255, 367</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+589
@@ -0,0 +1,589 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
|
||||
Public Class GLCompensationVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected selection As ArrayList
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
selection = New ArrayList()
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "GLCompensation_DetailView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.CurrentObject, GLCompensation)
|
||||
If _GLCompensation Is Nothing Then
|
||||
Else
|
||||
If _GLCompensation.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinal_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aBackToRowEdit_GLCompensation.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _GLCompensation.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
|
||||
End If
|
||||
If _GLCompensation.IsEditable = True And _GLCompensation.IsStorno = False Then
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If View.Id = "GLCompensation_ListView" Then
|
||||
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "GLCompensation_ListView_Editable" Then
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCompensation_DeleteAction_Executed
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Compensation" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Dim nv As ListView = CType(View, ListView)
|
||||
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
|
||||
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "GLCompensation_DetailView" Then
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLCompensation.Execute
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _GLHeader As GLHeader = TryCast(_GLCompensation, GLHeader)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GUID As Guid = Guid.NewGuid()
|
||||
Dim _CashType As eCashType
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
|
||||
If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Or _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_CashType = eCashType.ePartner
|
||||
If _GLCompensation.row_PartnerType = ePartnerType.eReceivables Then
|
||||
If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
ElseIf _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
End If
|
||||
Else
|
||||
If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn)
|
||||
ElseIf _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
_CashType = eCashType.eNormal
|
||||
If _GLCompensation.row_TransactionType = eTransactionType.eNormalCredit Then
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_ChartOfAccounts
|
||||
Else
|
||||
_GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_ChartOfAccounts
|
||||
_GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
End If
|
||||
|
||||
End If
|
||||
Select Case _GLCompensation.row_TransactionType
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit
|
||||
_GLRows.CreditAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.CreditAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.InAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.InAmountDEV = _GLHeader.row_AmountDEV
|
||||
Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit
|
||||
_GLRows.DebitAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.DebitAmountDEV = _GLHeader.row_AmountDEV
|
||||
_GLRows.OutAmountHUF = _GLHeader.row_AmountHUF
|
||||
_GLRows.OutAmountDEV = _GLHeader.row_AmountDEV
|
||||
End Select
|
||||
_GLRows.PartnerType = _GLCompensation.row_PartnerType
|
||||
|
||||
_GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _
|
||||
_GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLCompensation.LiquidAssets_Main, _
|
||||
_GLHeader.row_Customer, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
|
||||
_GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _
|
||||
_GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _
|
||||
_GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
|
||||
_GLCompensation.row_TransactionType, _CashType, _GLCompensation.row_PartnerType)
|
||||
_GLCompensation.RecalculateTotal()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'--- Pontozás ellenőrzése !!!! ----------------------------------------------------------------------------------------------------------------
|
||||
Select Case _GLCompensation.row_TransactionType
|
||||
Case eTransactionType.ePartnerCredit, eTransactionType.ePartnerDebit
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End Select
|
||||
|
||||
'----------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
_GLCompensation.row_NoteRows = ""
|
||||
_GLCompensation.row_AmountDEV = 0
|
||||
_GLCompensation.row_AmountHUF = 0
|
||||
_GLCompensation.row_PCIGroup = Nothing
|
||||
_GLCompensation.row_Customer = Nothing
|
||||
_GLCompensation.row_ConnectInfo = ""
|
||||
_GLCompensation.row_ChartOfAccounts = Nothing
|
||||
|
||||
'// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!----------------------------------------------------------------
|
||||
|
||||
Dim _Action As IModelAction
|
||||
Dim _IModelActionExtender As IModelActionExtender
|
||||
For Each _Action In Application.Model.ActionDesign.Actions
|
||||
If _Action.Id = e.Action.Id Then
|
||||
_IModelActionExtender = TryCast(_Action, IModelActionExtender)
|
||||
If _IModelActionExtender IsNot Nothing Then
|
||||
If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then
|
||||
Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem)
|
||||
If ItemToFocus IsNot Nothing Then
|
||||
Dim ItemControl As Object
|
||||
ItemControl = ItemToFocus.Control
|
||||
ItemControl.Focus()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------
|
||||
View.Refresh()
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLCompensation.Execute
|
||||
GLCompensation_Final(e)
|
||||
View.Close(False)
|
||||
End Sub
|
||||
Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim _GLCompensation As GLCompensation = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLCompensation)
|
||||
If _GLCompensation.IsEditable = False Then
|
||||
Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aMakeEditable_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLCompensation.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
If _GLCompensation IsNot Nothing Then
|
||||
|
||||
_GLCompensation.IsEditable = True
|
||||
_ocur.CommitChanges()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCompensation_DetailView", True, _onew.GetObject(_GLCompensation))
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFinalAndNew_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLCompensation.Execute
|
||||
GLCompensation_Final(e)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLCompensation As GLCompensation = _onew.CreateObject(Of GLCompensation)()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLCompensation)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.Current
|
||||
End Sub
|
||||
#Region "SIS"
|
||||
Private Sub GLCompensation_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _GLCompensation As GLCompensation = TryCast(e.SelectedObjects(0), GLCompensation)
|
||||
For Each _GLCompensation In e.SelectedObjects
|
||||
If _GLCompensation.GLRows.Count <= 0 Then
|
||||
_ocur.Rollback()
|
||||
Throw New Exception("*Nincs rögzített sor !")
|
||||
End If
|
||||
For Each _GLRows In _GLCompensation.GLRows
|
||||
_GLRows.LiquidAssets = _GLCompensation.LiquidAssets_Main
|
||||
Next
|
||||
_GLCompensation.IsEditable = False
|
||||
If _GLCompensation.DocumentNumber Is Nothing Or _GLCompensation.DocumentNumber = "" Then
|
||||
Dim _NumberGenerator As NumberGenerator = TryCast(_GLCompensation.LiquidAssets_Main.NumberGeneratorIn, NumberGenerator)
|
||||
_GLCompensation.DocumentNumber = _NumberGenerator.GetNewNumber(_NumberGenerator).ToString
|
||||
End If
|
||||
_GLCompensation.Save()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'// Az összes sorra vonatkozó pontozás újragenerálása, mert változhat a dátum !
|
||||
For Each _GLRows In _GLCompensation.GLRows
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub aToTableD_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLCompensation.Execute
|
||||
'Törli a táblázatban lévő sort
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GUID As Guid
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
Dim i As Long
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
Dim _Customers As Customers
|
||||
Dim _PartnerType As ePartnerType
|
||||
Dim _ConnectInfo As String
|
||||
|
||||
_GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows")
|
||||
|
||||
_GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows)
|
||||
|
||||
If _GLRows.GLRowsRateDiff IsNot Nothing Then
|
||||
Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GUID = _GLRows.GLRowsGUID
|
||||
selection.Clear()
|
||||
For Each _GLRows In _GLCompensation.GLRows
|
||||
If _GLRows.GLRowsGUID = _GUID Then
|
||||
selection.Add(_GLRows)
|
||||
End If
|
||||
Next
|
||||
For i = 0 To selection.Count - 1
|
||||
_GLRows = TryCast(selection(i), GLRows)
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersFrom = _GLCompensation.CustomersFrom
|
||||
_Customers = _GLRows.Customer
|
||||
_ConnectInfo = _GLRows.ConnectInfo
|
||||
_PartnerType = _GLRows.PartnerType
|
||||
End If
|
||||
_GLRows.Delete()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo)
|
||||
|
||||
Next
|
||||
_GLCompensation.RecalculateTotal()
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLCompensation.Execute
|
||||
'Visszatölti a sort editáláshoz
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
Dim _PCIGroup As PCIGroup
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
Dim _Customers As Customers
|
||||
Dim _PartnerType As ePartnerType
|
||||
Dim _ConnectInfo As String
|
||||
|
||||
_GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows")
|
||||
_GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
|
||||
If _GLRows.GLRowsRateDiff IsNot Nothing Then
|
||||
Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
_GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCompensation.CurrencyName.ShortName))
|
||||
_PCIGroup = _ocur.FindObject(Of PCIGroup) _
|
||||
(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? ", _GLRows.GLHeader.CustomersFrom, _
|
||||
_GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True)
|
||||
If _PCIGroup IsNot Nothing Then
|
||||
_GLCompensation.row_PCIGroup = _PCIGroup
|
||||
_GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName_Account.ShortName))
|
||||
If _GLCompensation.row_CurrencyName2 Is Nothing Then
|
||||
_GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCompensation.CurrencyName.ShortName))
|
||||
End If
|
||||
End If
|
||||
_GLCompensation.row_Customer = _GLRows.Customer
|
||||
_GLCompensation.row_ConnectInfo = _GLRows.ConnectInfo
|
||||
_GLCompensation.CurrencyName = _GLRows.GLHeader.CurrencyName
|
||||
_GLCompensation.CurrencyRate = _GLRows.GLHeader.CurrencyRate
|
||||
|
||||
_GLCompensation.row_NoteRows = _GLRows.NoteRows
|
||||
_GLCompensation.CurrencyRate = _GLRows.GLHeader.CurrencyRate
|
||||
_GLCompensation.row_PartnerType = _GLRows.PartnerType
|
||||
_GLCompensation.row_TransactionType = _GLRows.TransactionType
|
||||
_GLCompensation.row_CurrencyRate2 = _GLRows.CurrencyRate2
|
||||
If _GLRows.InAmountHUF > 0 Then
|
||||
_GLCompensation.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_GLCompensation.row_AmountDEV2 = _GLRows.InAmountDEV2
|
||||
Else
|
||||
_GLCompensation.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_GLCompensation.row_AmountDEV2 = _GLRows.OutAmountDEV2
|
||||
End If
|
||||
|
||||
Dim _GLRows_GUID_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRows.GLRowsGUID))
|
||||
Dim _AmountDEV As Double = 0
|
||||
Dim _AmountHUF As Double = 0
|
||||
For Each _GLRows In _GLRows_GUID_Collection
|
||||
_AmountDEV += _GLRows.AmountDEV
|
||||
_AmountHUF += _GLRows.AmountHUF
|
||||
selection.Add(_GLRows)
|
||||
Next
|
||||
_GLCompensation.row_AmountDEV = _AmountDEV
|
||||
_GLCompensation.row_AmountHUF = _AmountHUF
|
||||
|
||||
For i = 0 To selection.Count - 1
|
||||
_GLRows = TryCast(selection(i), GLRows)
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersFrom = _GLCompensation.CustomersFrom
|
||||
_Customers = _GLRows.Customer
|
||||
_ConnectInfo = _GLRows.ConnectInfo
|
||||
_PartnerType = _GLRows.PartnerType
|
||||
End If
|
||||
_GLRows.Delete()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo)
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub aPrintCompensation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCompensation.Execute
|
||||
Dim _GLCompensation As GLCompensation
|
||||
Try
|
||||
If e.SelectedObjects.Count > 0 Then
|
||||
_GLCompensation = TryCast(e.SelectedObjects.Item(0), GLCompensation)
|
||||
PrintCompensationDocument(_GLCompensation, TryCast(View.ObjectSpace, Xpo.XPObjectSpace))
|
||||
End If
|
||||
Catch
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub PrintCompensationDocument(ByVal _GLCompensation As GLCompensation, ByVal _ocur As Xpo.XPObjectSpace)
|
||||
Dim _ReportData As ReportData
|
||||
Dim _GLHeader As GLHeader
|
||||
If _GLCompensation IsNot Nothing Then
|
||||
_GLHeader = TryCast(_GLCompensation, GLHeader)
|
||||
_ReportData = _GLCompensation.LiquidAssets_Main.ReportData
|
||||
If _ReportData IsNot Nothing Or _GLCompensation Is Nothing Then
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLHeader=?", _GLHeader), True)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGLCompensationDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCompensationDivideRows.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)()
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
_GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer)
|
||||
_GLRowsDivideH.row_PartnerType = _GLRows.PartnerType
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH)
|
||||
Else
|
||||
_GLRowsDivideH.GLRows_Oid = _GLRows.Oid
|
||||
e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGLCompensationDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCompensationDivideRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH)
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aGenerateGLCompensationRateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLCompensationRateDiff.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLCompensation As GLCompensation = TryCast(e.SelectedObjects(0), GLCompensation)
|
||||
|
||||
For Each _GLCompensation In e.SelectedObjects
|
||||
If Not _GLCompensation.CurrencyName.ShortName = "HUF" Then
|
||||
_GLCompensation.Reconfigure_RateDiff(_ocur, _GLCompensation)
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub GLCompensation_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _GLCompensation As GLCompensation
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_Collection As XPCollection(Of GLRows)
|
||||
|
||||
For Each _GLCompensation In TryCast(e, SimpleActionExecuteEventArgs).SelectedObjects
|
||||
|
||||
_GLRows_Collection = New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("PartnerType<>'eNotSet' and GLHeader.Oid=?", _GLCompensation.Oid), True)
|
||||
For Each _GLRows In _GLRows_Collection
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPCIGroupCompensation_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aImportPCIGroupCompensation.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup))
|
||||
|
||||
|
||||
Dim _P As PCIGroup
|
||||
If _GLCompensation IsNot Nothing Then
|
||||
|
||||
_CollectionSource.Criteria.Clear()
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("CurrencyName_Account.ShortName=?", _GLCompensation.LiquidAssets_Main.CurrencyName.ShortName)
|
||||
_CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLCompensation.row_PartnerType)
|
||||
_CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLCompensation.CustomersFrom.Oid)
|
||||
If _GLCompensation.LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then
|
||||
_CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceHUF<>0")
|
||||
Else
|
||||
_CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceDEV<>0")
|
||||
End If
|
||||
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPCIGroupCompensation_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aImportPCIGroupCompensation.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _PCIGroup As PCIGroup
|
||||
Dim _PCIGroup_P As PCIGroup
|
||||
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
|
||||
Dim _GLHeader As GLHeader = TryCast(_GLCompensation, GLHeader)
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GUID As Guid
|
||||
Dim _CashType As eCashType
|
||||
Dim _DebitChartOfAccounts As ChartOfAccounts
|
||||
Dim _CreditChartOfAccounts As ChartOfAccounts
|
||||
Dim _TransactionType As eTransactionType
|
||||
If _GLCompensation Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
For Each _PCIGroup_P In e.PopupWindow.View.SelectedObjects
|
||||
_PCIGroup = _ocur.GetObject(_PCIGroup_P)
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
_GUID = Guid.NewGuid()
|
||||
_CashType = eCashType.ePartner
|
||||
If _PCIGroup.PartnerType = ePartnerType.eReceivables Then
|
||||
If _PCIGroup.BallanceHUF > 0 Or _PCIGroup.BallanceDEV > 0 Then
|
||||
_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
_TransactionType = eTransactionType.ePartnerCredit
|
||||
_GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.DebitAmountHUF = 0
|
||||
_GLRows.DebitAmountDEV = 0
|
||||
_GLRows.InAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.InAmountDEV = _PCIGroup.BallanceDEV
|
||||
|
||||
Else
|
||||
_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut)
|
||||
_TransactionType = eTransactionType.ePartnerDebit
|
||||
|
||||
_GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.CreditAmountHUF = 0
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF)
|
||||
_GLRows.OutAmountDEV = Math.Abs(_PCIGroup.BallanceDEV)
|
||||
End If
|
||||
Else
|
||||
If _PCIGroup.BallanceHUF > 0 Or _PCIGroup.BallanceDEV > 0 Then
|
||||
_DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn)
|
||||
_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_TransactionType = eTransactionType.ePartnerDebit
|
||||
_GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.CreditAmountDEV = 0
|
||||
_GLRows.OutAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.OutAmountDEV = _PCIGroup.BallanceDEV
|
||||
Else
|
||||
_CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn)
|
||||
_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0)
|
||||
_TransactionType = eTransactionType.ePartnerCredit
|
||||
|
||||
_GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF
|
||||
_GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV
|
||||
_GLRows.DebitAmountHUF = 0
|
||||
_GLRows.DebitAmountDEV = 0
|
||||
_GLRows.InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF)
|
||||
_GLRows.InAmountDEV = Math.Abs(_PCIGroup.BallanceDEV)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
_GLRows.PartnerType = _PCIGroup.PartnerType
|
||||
_GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _
|
||||
Math.Abs(_PCIGroup.BallanceDEV), Math.Abs(_PCIGroup.BallanceHUF), _GLCompensation.LiquidAssets_Main, _
|
||||
_PCIGroup.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _
|
||||
_GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _
|
||||
_GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _
|
||||
_PCIGroup.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _
|
||||
_TransactionType, _CashType, _PCIGroup.PartnerType)
|
||||
_GLCompensation.RecalculateTotal()
|
||||
_GLCompensation.GetBallanceDEV(_GLCompensation.row_LiquidAssets, _GLCompensation.DateExecution)
|
||||
_GLCompensation.GetBallanceHUF(_GLCompensation.row_LiquidAssets, _GLCompensation.DateExecution)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
'--- Pontozás ellenőrzése !!!! ----------------------------------------------------------------------------------------------------------------
|
||||
Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow_pci, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
+186
@@ -0,0 +1,186 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
Public Enum eFixedAssetsState
|
||||
eWaitForActivate = 0 ' Aktiválásra vár
|
||||
eReadyForUse = 1 ' Használható, de nincs kiadva
|
||||
eInUse = 2 ' Használatban van valakinél
|
||||
eWaitForOther = 3 ' Egyéb ok miatt a használat felfüggesztve
|
||||
eTerminated = 4 'Kivezetve
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<Appearance("Disable FixedAssets defaults", AppearanceItemType.ViewItem, "1=1", TargetItems:="HRPerson_Using;Customers_Using;CostHolder_Using;CostPlace_Using;ObjectCreated;UserCreated", Enabled:=False)> _
|
||||
Public Class FixedAssets
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _UniqueObjects As UniqueObjects
|
||||
Private _FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
|
||||
Private _DatePurchase As Date ' Vásárlás dátuma
|
||||
Private _DateTerminal As Date ' Kivezetés dátuma
|
||||
Private _FixedAssetsState As eFixedAssetsState
|
||||
|
||||
Private _HRPerson_Using As HRPerson
|
||||
Private _Customers_Using As Customers
|
||||
Private _CostHolder_Using As CostHolder
|
||||
Private _CostPlace_Using As CostPlace
|
||||
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
'<RuleUniqueValue("FixedAssets-UniqueObjects", DefaultContexts.Save, criteriaevaluationbehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction, targetcriteria:="")> _
|
||||
<ImmediatePostData(True)> _
|
||||
Property UniqueObjects As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value.Cars IsNot Nothing Then
|
||||
Me.ShortName = value.Cars.LicensePlateNumber & ", " & value.Cars.CarMarks.ShortName & " " & value.Cars.CarTypes.ShortName
|
||||
Me.DatePurchase = value.Cars.DateFirstOnRoad.Date
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssets-FixedAssetsGroup1", DefaultContexts.Save)> _
|
||||
Property FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
Get
|
||||
Return _FixedAssetsGroup1
|
||||
End Get
|
||||
Set(value As FixedAssetsGroup1)
|
||||
SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DatePurchase As Date
|
||||
Get
|
||||
Return _DatePurchase
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DatePurchase", _DatePurchase, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTerminal As Date
|
||||
Get
|
||||
Return _DateTerminal
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTerminal", _DateTerminal, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property FixedAssetsState As eFixedAssetsState
|
||||
Get
|
||||
Return _FixedAssetsState
|
||||
End Get
|
||||
Set(value As eFixedAssetsState)
|
||||
SetPropertyValue("FixedAssetsState", _FixedAssetsState, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property HRPerson_Using As HRPerson
|
||||
Get
|
||||
Return _HRPerson_Using
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson_Using", _HRPerson_Using, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers_Using As Customers
|
||||
Get
|
||||
Return _Customers_Using
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers_Using", _Customers_Using, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostHolder_Using As CostHolder
|
||||
Get
|
||||
Return _CostHolder_Using
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
SetPropertyValue("CostHolder_Using", _CostHolder_Using, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace_Using As CostPlace
|
||||
Get
|
||||
Return _CostPlace_Using
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
SetPropertyValue("CostPlace_Using", _CostPlace_Using, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+286
@@ -0,0 +1,286 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Public Enum eFixedAssetsTerminalReason
|
||||
eNone = 0
|
||||
eSold = 1
|
||||
eInventoryShortage = 2
|
||||
eDisposal = 3
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Hide info when IsNew=False", AppearanceItemType:="ViewItem", criteria:="IsNew=True", targetitems:="AmountHUFOpen;DateOpen", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable UniqueObjects if exists", AppearanceItemType:="ViewItem", criteria:="isnull(UniqueObjects)=False", targetitems:="UniqueObjects", enabled:=False)> _
|
||||
<Appearance("Disable FixedAssetsGroup1 if exists", AppearanceItemType:="ViewItem", criteria:="isnull(FixedAssetsGroup1)=False", targetitems:="FixedAssetsGroup1", enabled:=False)> _
|
||||
<Appearance("Disable CustomersFrom if exists", AppearanceItemType:="ViewItem", criteria:="isnull(CustomersFrom)=False", targetitems:="CustomersFrom", enabled:=False)> _
|
||||
Public Class FixedAssetsCard
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _UniqueObjects As UniqueObjects
|
||||
|
||||
Private _DateFabrication As Date 'Gyártási év
|
||||
Private _DateAcquisition As Date 'Beszerzés dátuma
|
||||
Private _DateActivation As Date 'Aktiválás dátuma
|
||||
Private _DateTerminal As Date 'Kivezetés dátuma
|
||||
Private _DateOpen As Date 'ÉCS Nyitó dátuma
|
||||
Private _IsActivated As Boolean = False
|
||||
Private _AmountHUFBrutto As Double 'Bruttó érték
|
||||
Private _AmountHUFOpen As Double 'Nyitó érték
|
||||
Private _AmountHUFDevelopmentReserve As Double 'Fejlesztési tartalék
|
||||
Private _IsNew As Boolean = True 'Új, vagy másik rendszerbõl átvett
|
||||
Private _IsTerminal As Boolean = False 'Kivezetve ?
|
||||
Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason
|
||||
|
||||
Private _DCPAccounting As FixedAssetsDecrepationParameter 'Számvitel szrinti ÉCS paraméter
|
||||
Private _AmountHUFSalvage As Double 'Maradványérték
|
||||
Private _DCPTax As FixedAssetsDecrepationParameter 'TA szerinti ÉCS paraméter
|
||||
|
||||
Private _IsEditable As Boolean = True
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
If UniqueObjects Is Nothing Then
|
||||
Dim _UniqueObject_Name As String
|
||||
Dim _UniqueObjects As UniqueObjects
|
||||
|
||||
_UniqueObject_Name = Me.FixedAssetsGroup1.NumberGenerator.GetNewNumber(Me.FixedAssetsGroup1.NumberGenerator, Me.DateAcquisition.Year.ToString)
|
||||
If _UniqueObject_Name <> "" Then
|
||||
_UniqueObjects = New UniqueObjects(Session)
|
||||
_UniqueObjects.Name = _UniqueObject_Name
|
||||
Me.UniqueObjects = _UniqueObjects
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
<RuleRequiredField("FixedAssetsCard-CustomersFrom", DefaultContexts.Save)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssetsCard-FixedAssetsGroup1", DefaultContexts.Save)> _
|
||||
Property FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
Get
|
||||
Return _FixedAssetsGroup1
|
||||
End Get
|
||||
Set(value As FixedAssetsGroup1)
|
||||
SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssetsCard-ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
<RuleRequiredField("FixedAssetsCard-Description", DefaultContexts.Save)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property UniqueObjects As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFabrication As Date
|
||||
Get
|
||||
Return _DateFabrication
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFabrication", _DateFabrication, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateAcquisition As Date
|
||||
Get
|
||||
Return _DateAcquisition
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateAcquisition", _DateAcquisition, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateActivation As Date
|
||||
Get
|
||||
Return _DateActivation
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateActivation", _DateActivation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTerminal As Date
|
||||
Get
|
||||
Return _DateTerminal
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTerminal", _DateTerminal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateOpen As Date
|
||||
Get
|
||||
Return _DateOpen
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateOpen", _DateOpen, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property IsActivated As Boolean
|
||||
Get
|
||||
Return _IsActivated
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsActivated", _IsActivated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFBrutto As Double
|
||||
Get
|
||||
Return _AmountHUFBrutto
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFOpen As Double
|
||||
Get
|
||||
Return _AmountHUFOpen
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFOpen", _AmountHUFOpen, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDevelopmentReserve As Double
|
||||
Get
|
||||
Return _AmountHUFDevelopmentReserve
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<NonCloneable()> _
|
||||
Property IsNew As Boolean
|
||||
Get
|
||||
Return _IsNew
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsNew", _IsNew, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property IsTerminal As Boolean
|
||||
Get
|
||||
Return _IsTerminal
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsTerminal", _IsTerminal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason
|
||||
Get
|
||||
Return _FixedAssetsTerminalReason
|
||||
End Get
|
||||
Set(value As eFixedAssetsTerminalReason)
|
||||
SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("FixedAssetsCard-DCPAccounting", DefaultContexts.Save)> _
|
||||
Property DCPAccounting As FixedAssetsDecrepationParameter
|
||||
Get
|
||||
Return _DCPAccounting
|
||||
End Get
|
||||
Set(value As FixedAssetsDecrepationParameter)
|
||||
SetPropertyValue("DCPAccounting", _DCPAccounting, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFSalvage As Double
|
||||
Get
|
||||
Return _AmountHUFSalvage
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssetsCard-DCPTax", DefaultContexts.Save)> _
|
||||
Property DCPTax As FixedAssetsDecrepationParameter
|
||||
Get
|
||||
Return _DCPTax
|
||||
End Get
|
||||
Set(value As FixedAssetsDecrepationParameter)
|
||||
SetPropertyValue("DCPTax", _DCPTax, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property IsEditable As Boolean
|
||||
Get
|
||||
Return _IsEditable
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsEditable", _IsEditable, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'//XPCollection
|
||||
<Association("FixedAssetsCard-FixedAssetsCardPlanRows", GetType(FixedAssetsCardPlanRows)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property FixedAssetsCardPlanRows As XPCollection(Of FixedAssetsCardPlanRows)
|
||||
Get
|
||||
Return GetCollection(Of FixedAssetsCardPlanRows)("FixedAssetsCardPlanRows")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+255
@@ -0,0 +1,255 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.DC
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Public Enum eFixedAssetsCardPlanRowsType
|
||||
eActivated = 0
|
||||
eNormal = 1
|
||||
eKeyChange = 2
|
||||
eExtraDecrepation = 3
|
||||
eExtraActivated = 4
|
||||
eTerminate = 5
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsCardPlanRows ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
|
||||
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
|
||||
|
||||
Private _FixedAssetsCard As FixedAssetsCard
|
||||
Private _RowIndex As Long 'Sorindex
|
||||
Private _FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType
|
||||
Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason
|
||||
Private _DatedFrom As Date
|
||||
Private _DateTo As Date
|
||||
Private _DateExecution As Date ' Telj. dátuma
|
||||
Private _DayCountACC As Long 'Napok száma ACC
|
||||
Private _DayCountTAX As Long 'Napok száma ACC
|
||||
Private _KeyTax As Double 'Leírási kulcs TA
|
||||
Private _KeyACC As Double 'Leírási kulcs SZV
|
||||
Private _DayDecrepationTAX As Double 'Napi ÉCS TA
|
||||
Private _DayDecrepationACC As Double 'Napi ÉCS SZV
|
||||
Private _SalvageHUF As Double 'Maradvány érték
|
||||
Private _SalvageHUFBallance As Double 'Maradványérték változás
|
||||
Private _BruttoHUF As Double 'Bruttó ért. V.
|
||||
Private _BruttoHUFBallance As Double 'Bruttó ért.
|
||||
Private _DecrepationHUFACC As Double 'ÉCS változás SZV
|
||||
Private _NettoHUFBallanceACC As Double 'Nettó érték SZ
|
||||
Private _DecrepationHUFTAX As Double 'ÉCS változás TA
|
||||
Private _NettoHUFBallanceTAX As Double 'Nettó érték TA
|
||||
Private _BruttoHUFTerminal As Double 'Br. Kivezetés
|
||||
Private _NettoHUFTerminalACC As Double 'Ne SZ kivezetés
|
||||
Private _IsModified As Boolean
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
IsModified = False
|
||||
End Sub
|
||||
|
||||
<Association("FixedAssetsCard-FixedAssetsCardPlanRows", GetType(FixedAssetsCard)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property FixedAssetsCard As FixedAssetsCard
|
||||
Get
|
||||
Return _FixedAssetsCard
|
||||
End Get
|
||||
Set(value As FixedAssetsCard)
|
||||
SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowIndex As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType
|
||||
Get
|
||||
Return _FixedAssetsCardPlanRowsType
|
||||
End Get
|
||||
Set(value As eFixedAssetsCardPlanRowsType)
|
||||
SetPropertyValue("FixedAssetsCardPlanRowsType ", _FixedAssetsCardPlanRowsType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason
|
||||
Get
|
||||
Return _FixedAssetsTerminalReason
|
||||
End Get
|
||||
Set(value As eFixedAssetsTerminalReason)
|
||||
SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DatedFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DatedFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DayCountACC As Long
|
||||
Get
|
||||
Return _DayCountACC
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("DayCountACC", _DayCountACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DayCountTAX As Long
|
||||
Get
|
||||
Return _DayCountTAX
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("DayCountTAX", _DayCountTAX, value)
|
||||
End Set
|
||||
End Property
|
||||
Property KeyTax As Double
|
||||
Get
|
||||
Return _KeyTax
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("KeyTax", _KeyTax, value)
|
||||
End Set
|
||||
End Property
|
||||
Property KeyACC As Double
|
||||
Get
|
||||
Return _KeyACC
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("KeyACC", _KeyACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DayDecrepationTAX As Double
|
||||
Get
|
||||
Return _DayDecrepationTAX
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DayDecrepationTAX", _DayDecrepationTAX, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DayDecrepationACC As Double
|
||||
Get
|
||||
Return _DayDecrepationACC
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DayDecrepationACC", _DayDecrepationACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SalvageHUF As Double
|
||||
Get
|
||||
Return _SalvageHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SalvageHUF", _SalvageHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SalvageHUFBallance As Double
|
||||
Get
|
||||
Return _SalvageHUFBallance
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SalvageHUFBallance", _SalvageHUFBallance, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BruttoHUF As Double
|
||||
Get
|
||||
Return _BruttoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BruttoHUF", _BruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BruttoHUFBallance As Double
|
||||
Get
|
||||
Return _BruttoHUFBallance
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BruttoHUFBallance", _BruttoHUFBallance, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DecrepationHUFACC As Double
|
||||
Get
|
||||
Return _DecrepationHUFACC
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DecrepationHUFACC", _DecrepationHUFACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NettoHUFBallanceACC As Double
|
||||
Get
|
||||
Return _NettoHUFBallanceACC
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("NettoHUFBallanceACC", _NettoHUFBallanceACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DecrepationHUFTAX As Double
|
||||
Get
|
||||
Return _DecrepationHUFTAX
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DecrepationHUFTAX", _DecrepationHUFTAX, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NettoHUFBallanceTAX As Double
|
||||
Get
|
||||
Return _NettoHUFBallanceTAX
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("NettoHUFBallanceTAX", _NettoHUFBallanceTAX, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BruttoHUFTerminal As Double
|
||||
Get
|
||||
Return _BruttoHUFTerminal
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("BruttoHUFTerminal", _BruttoHUFTerminal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NettoHUFTerminalACC As Double
|
||||
Get
|
||||
Return _NettoHUFTerminalACC
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("NettoHUFTerminalACC", _NettoHUFTerminalACC, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsModified As Boolean
|
||||
Get
|
||||
Return _IsModified
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsModified", _IsModified, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+85
@@ -0,0 +1,85 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Public Enum eFixedAssetsPeriod
|
||||
eYear = 0
|
||||
eMonth = 1
|
||||
eQuarter = 2
|
||||
End Enum
|
||||
Public Enum eFixedAssetsSpecies
|
||||
eFixedAssets = 0 'Tárgyi eszközök
|
||||
eIntangibleAssets = 1 'Immateriális javak
|
||||
eSmallValueOfFixedAssets = 2 'Kisértékû tárgyi eszköz
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsDecrepationParameter
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _Description As String 'Leírás
|
||||
Private _DecrepationPercent As Double 'ÉCS %
|
||||
Private _FixedAssetsPeriod As eFixedAssetsPeriod 'Éves, havi
|
||||
Private _FixedAssetsSpecies As eFixedAssetsSpecies 'Fajta
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DecrepationPercent As Double
|
||||
Get
|
||||
Return _DecrepationPercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DecrepationPercent", _DecrepationPercent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsPeriod As eFixedAssetsPeriod
|
||||
Get
|
||||
Return _FixedAssetsPeriod
|
||||
End Get
|
||||
Set(value As eFixedAssetsPeriod)
|
||||
SetPropertyValue("FixedAssetsPeriod", _FixedAssetsPeriod, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsSpecies As eFixedAssetsSpecies
|
||||
Get
|
||||
Return _FixedAssetsSpecies
|
||||
End Get
|
||||
Set(value As eFixedAssetsSpecies)
|
||||
SetPropertyValue("FixedAssetsSpecies", _FixedAssetsSpecies, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+125
@@ -0,0 +1,125 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Public Enum eFixedAssetsMoveType
|
||||
eActivation = 0 'Aktiválás
|
||||
eExtraActivation = 1 'Ráaktiválás
|
||||
eDisposalBrutto = 2 'Selejtezés brutto
|
||||
eDisposalDepreciation = 3 'Selejtezés ÉCS
|
||||
eDepreciation = 4 'ÉCS
|
||||
eInvestment = 5 'Beruházás
|
||||
eInventoryShortageBrutto = 6 'Leltárhiány brutto
|
||||
eInventoryShortageDepreciation = 7 'Leltárhiány ÉCS
|
||||
eSoldBrutto = 8 'Értékesítés brutto
|
||||
eSoldDepreciation = 9 'Értékesítés ÉCS
|
||||
eExtraDepreciation = 10 'Rendkívüli ÉCS
|
||||
End Enum
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsGLParameters
|
||||
Inherits BaseObject
|
||||
|
||||
Private _FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
Private _FixedAssetsMoveType As eFixedAssetsMoveType
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Association("FixedAssetsGroup1-FixedAssetsGLParameters", GetType(FixedAssetsGroup1))> _
|
||||
Property FixedAssetsGroup1 As FixedAssetsGroup1
|
||||
Get
|
||||
Return _FixedAssetsGroup1
|
||||
End Get
|
||||
Set(value As FixedAssetsGroup1)
|
||||
SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsMoveType As eFixedAssetsMoveType
|
||||
Get
|
||||
Return _FixedAssetsMoveType
|
||||
End Get
|
||||
Set(value As eFixedAssetsMoveType)
|
||||
SetPropertyValue("FixedAssetsMoveType", _FixedAssetsMoveType, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Association("FixedAssetsGLParameters-FixedAssetsGLParametersYear", GetType(FixedAssetsGLParametersYear)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property FixedAssetsGLParametersYear As XPCollection(Of FixedAssetsGLParametersYear)
|
||||
Get
|
||||
Return GetCollection(Of FixedAssetsGLParametersYear)("FixedAssetsGLParametersYear")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsGLParametersYear
|
||||
Inherits BaseObject
|
||||
Private _FixedAssetsGLParameters As FixedAssetsGLParameters
|
||||
Private _AccountYear As Long
|
||||
Private _DebitChartOfAccounts As ChartOfAccounts
|
||||
Private _CreditChartOfAccounts As ChartOfAccounts
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Association("FixedAssetsGLParameters-FixedAssetsGLParametersYear", GetType(FixedAssetsGLParameters))> _
|
||||
Property FixedAssetsGLParameters As FixedAssetsGLParameters
|
||||
Get
|
||||
Return _FixedAssetsGLParameters
|
||||
End Get
|
||||
Set(value As FixedAssetsGLParameters)
|
||||
SetPropertyValue("FixedAssetsGLParameters", _FixedAssetsGLParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AccountYear As Long
|
||||
Get
|
||||
Return _AccountYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("AccountYear", _AccountYear, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _DebitChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditChartOfAccounts As ChartOfAccounts
|
||||
Get
|
||||
Return _CreditChartOfAccounts
|
||||
End Get
|
||||
Set(value As ChartOfAccounts)
|
||||
SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+77
@@ -0,0 +1,77 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsGroup1
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _ShortName As String
|
||||
Private _NumberGenerator As NumberGenerator
|
||||
Private _ReportData As ReportData
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssetsGroup1-ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("FixedAssetsGroup1-NumberGenerator", DefaultContexts.Save)> _
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
<Association("FixedAssetsGroup1-FixedAssetsGLParameters", GetType(FixedAssetsGLParameters))> _
|
||||
ReadOnly Property FixedAssetsGLParameters As XPCollection(Of FixedAssetsGLParameters)
|
||||
Get
|
||||
Return GetCollection(Of FixedAssetsGLParameters)("FixedAssetsGLParameters")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+95
@@ -0,0 +1,95 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsNGParameters
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
|
||||
Private _NumberGenerator_UniqueObjects As NumberGenerator
|
||||
Private _NumberGenerator_Activation As NumberGenerator
|
||||
Private _NumberGenerator_Decrepation As NumberGenerator
|
||||
Private _NumberGenerator_Sold As NumberGenerator
|
||||
Private _NumberGenerator_InventoryShortage As NumberGenerator
|
||||
Private _NumberGenerator_Disposal As NumberGenerator
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_UniqueObjects As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_UniqueObjects
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_UniqueObjects", _NumberGenerator_UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_Activation As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Activation
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Activation", _NumberGenerator_Activation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_Decrepation As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Decrepation
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Decrepation", _NumberGenerator_Decrepation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_Sold As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Sold
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Sold", _NumberGenerator_Sold, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_InventoryShortage As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_InventoryShortage
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_InventoryShortage", _NumberGenerator_InventoryShortage, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator_Disposal As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Disposal
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Disposal", _NumberGenerator_Disposal, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+84
@@ -0,0 +1,84 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsQueryHeader
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _DateClose As Date
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateClose As Date
|
||||
Get
|
||||
Return _DateClose
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateClose", _DateClose, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'//XPCollection
|
||||
<Association("FixedAssetsQueryHeader-FixedAssetsQueryRows", GetType(FixedAssetsQueryRows))> _
|
||||
ReadOnly Property FixedAssetsQueryRows As XPCollection(Of FixedAssetsQueryRows)
|
||||
Get
|
||||
Return GetCollection(Of FixedAssetsQueryRows)("FixedAssetsQueryRows")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
|
||||
Public Class FixedAssetsQueryRows
|
||||
Inherits BaseObject
|
||||
|
||||
|
||||
Private _FixedAssetsQueryHeader As FixedAssetsQueryHeader
|
||||
Private _FixedAssetsCard As FixedAssetsCard
|
||||
Private _AmountHUFBrutto As Double
|
||||
Private _AmountHUFBruttoTerminal As Double
|
||||
Private _AmountHUFDecrepationA As Double
|
||||
Private _AmountHUFDecrepationTerminalA As Double
|
||||
Private _AmountHUFNettoA As Double
|
||||
Private _AmountHUFDecrepationT As Double
|
||||
Private _AmountHUFDecrepationTerminalT As Double
|
||||
Private _AmountHUFNettoT As Double
|
||||
Private _AmountHUFDevelopmentReserve As Double
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Association("FixedAssetsQueryHeader-FixedAssetsQueryRows", GetType(FixedAssetsQueryHeader))> _
|
||||
Property FixedAssetsQueryHeader As FixedAssetsQueryHeader
|
||||
Get
|
||||
Return _FixedAssetsQueryHeader
|
||||
End Get
|
||||
Set(value As FixedAssetsQueryHeader)
|
||||
SetPropertyValue("FixedAssetsQueryHeader", _FixedAssetsQueryHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsCard As FixedAssetsCard
|
||||
Get
|
||||
Return _FixedAssetsCard
|
||||
End Get
|
||||
Set(value As FixedAssetsCard)
|
||||
SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFBrutto As Double
|
||||
Get
|
||||
Return _AmountHUFBrutto
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFBruttoTerminal As Double
|
||||
Get
|
||||
Return _AmountHUFBruttoTerminal
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFBruttoTerminal", _AmountHUFBruttoTerminal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDecrepationA As Double
|
||||
Get
|
||||
Return _AmountHUFDecrepationA
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDecrepationA", _AmountHUFDecrepationA, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDecrepationTerminalA As Double
|
||||
Get
|
||||
Return _AmountHUFDecrepationTerminalA
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDecrepationTerminalA", _AmountHUFDecrepationTerminalA, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFNettoA As Double
|
||||
Get
|
||||
Return _AmountHUFNettoA
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFNettoA", _AmountHUFNettoA, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDecrepationT As Double
|
||||
Get
|
||||
Return _AmountHUFDecrepationT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDecrepationT", _AmountHUFDecrepationT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDecrepationTerminalT As Double
|
||||
Get
|
||||
Return _AmountHUFDecrepationTerminalT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDecrepationTerminalT", _AmountHUFDecrepationTerminalT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFNettoT As Double
|
||||
Get
|
||||
Return _AmountHUFNettoT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFNettoT", _AmountHUFNettoT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDevelopmentReserve As Double
|
||||
Get
|
||||
Return _AmountHUFDevelopmentReserve
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class FixedAssetsQueryVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aGenerateFixedAssetsQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGenerateFixedAssetsQuery
|
||||
'
|
||||
Me.aGenerateFixedAssetsQuery.Caption = "aGenerate Fixed Assets Query"
|
||||
Me.aGenerateFixedAssetsQuery.ConfirmationMessage = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.Id = "aGenerateFixedAssetsQuery"
|
||||
Me.aGenerateFixedAssetsQuery.ImageName = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.Shortcut = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.Tag = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsQueryHeader)
|
||||
Me.aGenerateFixedAssetsQuery.TargetViewId = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aGenerateFixedAssetsQuery.ToolTip = Nothing
|
||||
Me.aGenerateFixedAssetsQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGenerateFixedAssetsQuery As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aGenerateFixedAssetsQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+70
@@ -0,0 +1,70 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
|
||||
Public Class FixedAssetsQueryVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGenerateFixedAssetsQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateFixedAssetsQuery.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _FixedAssetsQueryHeader As FixedAssetsQueryHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), FixedAssetsQueryHeader))
|
||||
Dim _FixedAssetsCard_Collection As XPCollection(Of FixedAssetsCard)
|
||||
Dim _FixedAssetsCard As FixedAssetsCard = Nothing
|
||||
Dim _FixedAssetsQueryRows As FixedAssetsQueryRows = Nothing
|
||||
|
||||
_onew.Delete(_FixedAssetsQueryHeader.FixedAssetsQueryRows)
|
||||
|
||||
_FixedAssetsCard_Collection = New XPCollection(Of FixedAssetsCard)(_onew.Session, CriteriaOperator.Parse("IsEditable=False and IsActivated=True and CustomersFrom=?", _FixedAssetsQueryHeader.CustomersFrom))
|
||||
|
||||
For Each _FixedAssetsCard In _FixedAssetsCard_Collection
|
||||
_FixedAssetsQueryRows = _onew.CreateObject(Of FixedAssetsQueryRows)()
|
||||
_FixedAssetsQueryRows.FixedAssetsQueryHeader = _FixedAssetsQueryHeader
|
||||
_FixedAssetsQueryRows.FixedAssetsCard = _FixedAssetsCard
|
||||
|
||||
'// ÉCS
|
||||
Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_onew.Session, CriteriaOperator.Parse("FixedAssetsCard=? and FixedAssetsCardPlanRowsType in (1,3) and DateTo<?", _FixedAssetsCard, _FixedAssetsQueryHeader.DateClose.AddDays(1)))
|
||||
Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows
|
||||
|
||||
_FixedAssetsCardPlanRows_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Descending))
|
||||
For Each _FixedAssetsCardPlanRows In _FixedAssetsCardPlanRows_Collection
|
||||
_FixedAssetsQueryRows.AmountHUFBrutto = _FixedAssetsCardPlanRows.BruttoHUFBallance
|
||||
_FixedAssetsQueryRows.AmountHUFNettoA = _FixedAssetsCardPlanRows.NettoHUFBallanceACC
|
||||
_FixedAssetsQueryRows.AmountHUFNettoT = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX
|
||||
|
||||
_FixedAssetsQueryRows.AmountHUFDecrepationA = _FixedAssetsQueryRows.AmountHUFBrutto - _FixedAssetsQueryRows.AmountHUFDecrepationA
|
||||
_FixedAssetsQueryRows.AmountHUFDecrepationT = _FixedAssetsQueryRows.AmountHUFBrutto - _FixedAssetsQueryRows.AmountHUFDecrepationT
|
||||
Exit For
|
||||
Next
|
||||
|
||||
'// Ha van kivezetési sor akkor módosul pár dolog
|
||||
_FixedAssetsCardPlanRows = _onew.FindObject(Of FixedAssetsCardPlanRows)(CriteriaOperator.Parse("FixedAssetsCard=? and FixedAssetsCardPlanRowsType in (5) and DateTo<?", _FixedAssetsCard, _FixedAssetsQueryHeader.DateClose.AddDays(1)))
|
||||
If _FixedAssetsCardPlanRows IsNot Nothing Then
|
||||
|
||||
End If
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
View.Refresh()
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+163
@@ -0,0 +1,163 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Public Enum eFixedAssestsTransactionType
|
||||
eActivation = 0 'Aktiválás
|
||||
eReactivation = 1 'Ráaktiválás
|
||||
End Enum
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class FixedAssetsTransactions
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _FixedAssetsCard As FixedAssetsCard
|
||||
Private _RowIndex As Long = 0
|
||||
Private _FixedAssets As FixedAssets
|
||||
Private _DateExecution As Date
|
||||
Private _DateOpen As Date
|
||||
Private _FixedAssestsTransactionType As eFixedAssestsTransactionType
|
||||
Private _AmountHUF As Double = 0 'Összeg
|
||||
Private _AmountHUFSalvage As Double = 0 'Maradványérték
|
||||
Private _AmountHUFDevelopmentReserve As Double = 0 'Fejlesztési tartalék
|
||||
Private _Description As String 'Megjegyzés
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsCard As FixedAssetsCard
|
||||
Get
|
||||
Return _FixedAssetsCard
|
||||
End Get
|
||||
Set(value As FixedAssetsCard)
|
||||
SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowIndex As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssets As FixedAssets
|
||||
Get
|
||||
Return _FixedAssets
|
||||
End Get
|
||||
Set(value As FixedAssets)
|
||||
SetPropertyValue("FixedAssets", _FixedAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateOpen As Date
|
||||
Get
|
||||
Return _DateOpen
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateOpen", _DateOpen, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssestsTransactionType As eFixedAssestsTransactionType
|
||||
Get
|
||||
Return _FixedAssestsTransactionType
|
||||
End Get
|
||||
Set(value As eFixedAssestsTransactionType)
|
||||
SetPropertyValue("FixedAssestsTransactionType", _FixedAssestsTransactionType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFSalvage As Double
|
||||
Get
|
||||
Return _AmountHUFSalvage
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFDevelopmentReserve As Double
|
||||
Get
|
||||
Return _AmountHUFDevelopmentReserve
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+168
@@ -0,0 +1,168 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Public Enum eFixedAssetsUsingMoveType
|
||||
eIn = 0
|
||||
eOut = 1
|
||||
End Enum
|
||||
Public Enum eFixedAssetsUsingType
|
||||
eCustomers = 0
|
||||
eHRPerson = 1
|
||||
eCostHolder = 2
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class FixedAssetsUsingHeader
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _FixedAssetsUsingParameters As FixedAssetsUsingParameters
|
||||
Private _FixedAssetsUsingType As eFixedAssetsUsingType
|
||||
Private _HRPerson As HRPerson
|
||||
Private _Customers As Customers
|
||||
Private _CostHolder As CostHolder
|
||||
Private _CostPlace As CostPlace
|
||||
Private _DocumentNumber As String
|
||||
Private _DateExecution As Date
|
||||
Private _FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
DocumentNumber = Me.FixedAssetsUsingParameters.NumberGenerator.GetNewNumber(Me.FixedAssetsUsingParameters.NumberGenerator, Year(DateExecution).ToString)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsUsingParameters As FixedAssetsUsingParameters
|
||||
Get
|
||||
Return _FixedAssetsUsingParameters
|
||||
End Get
|
||||
Set(value As FixedAssetsUsingParameters)
|
||||
SetPropertyValue("FixedAssetsUsingParameters", _FixedAssetsUsingParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsUsingType As eFixedAssetsUsingType
|
||||
Get
|
||||
Return _FixedAssetsUsingType
|
||||
End Get
|
||||
Set(value As eFixedAssetsUsingType)
|
||||
SetPropertyValue("FixedAssetsUsingType", _FixedAssetsUsingType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRperson As HRPerson
|
||||
Get
|
||||
Return _HRperson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRperson", _HRperson, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPalce As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
SetPropertyValue("CostPalce", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType
|
||||
Get
|
||||
Return _FixedAssetsUsingMoveType
|
||||
End Get
|
||||
Set(value As eFixedAssetsUsingMoveType)
|
||||
SetPropertyValue("FixedAssetsUsingMoveType", _FixedAssetsUsingMoveType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'-- XPCollection ---------------------------------------------------------------------------------
|
||||
<Association("FixedAssetsUsingHeader-FixedAssetsUsingRows", GetType(FixedAssetsUsingRows))> _
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property FixedAssetsUsingRows As XPCollection(Of FixedAssetsUsingRows)
|
||||
Get
|
||||
Return GetCollection(Of FixedAssetsUsingRows)("FixedAssetsUsingRows")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+60
@@ -0,0 +1,60 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsUsingParameters
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _ShortName As String
|
||||
Private _NumberGenerator As NumberGenerator
|
||||
Private _ReportData As ReportData
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+78
@@ -0,0 +1,78 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class FixedAssetsUsingRows
|
||||
Inherits BaseObject
|
||||
Private _FixedAssetsUsingHeader As FixedAssetsUsingHeader
|
||||
Private _FixedAssets As FixedAssets
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Association("FixedAssetsUsingHeader-FixedAssetsUsingRows", GetType(FixedAssetsUsingHeader))> _
|
||||
Property FixedAssetsUsingHeader As FixedAssetsUsingHeader
|
||||
Get
|
||||
Return _FixedAssetsUsingHeader
|
||||
End Get
|
||||
Set(value As FixedAssetsUsingHeader)
|
||||
SetPropertyValue("FixedAssetsUsingHeader", _FixedAssetsUsingHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FixedAssets As FixedAssets
|
||||
Get
|
||||
Return _FixedAssets
|
||||
End Get
|
||||
Set(value As FixedAssets)
|
||||
SetPropertyValue("FixedAssets", _FixedAssets, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+92
@@ -0,0 +1,92 @@
|
||||
Partial Class FixedAssetsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aToDocuments_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aToDocumentsD_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aPrintFixedAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aToDocuments_FixAssets
|
||||
'
|
||||
Me.aToDocuments_FixAssets.AcceptButtonCaption = Nothing
|
||||
Me.aToDocuments_FixAssets.CancelButtonCaption = Nothing
|
||||
Me.aToDocuments_FixAssets.Caption = "aToDocuments_FixAssets"
|
||||
Me.aToDocuments_FixAssets.ConfirmationMessage = Nothing
|
||||
Me.aToDocuments_FixAssets.Id = "aToDocuments_FixAssets"
|
||||
Me.aToDocuments_FixAssets.ImageName = Nothing
|
||||
Me.aToDocuments_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aToDocuments_FixAssets.Shortcut = Nothing
|
||||
Me.aToDocuments_FixAssets.Tag = Nothing
|
||||
Me.aToDocuments_FixAssets.TargetObjectsCriteria = Nothing
|
||||
Me.aToDocuments_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
|
||||
Me.aToDocuments_FixAssets.TargetObjectType = GetType(Nuvolar.[Module].FixedAssets)
|
||||
Me.aToDocuments_FixAssets.TargetViewId = Nothing
|
||||
Me.aToDocuments_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aToDocuments_FixAssets.ToolTip = Nothing
|
||||
Me.aToDocuments_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aToDocumentsD_FixAssets
|
||||
'
|
||||
Me.aToDocumentsD_FixAssets.AcceptButtonCaption = Nothing
|
||||
Me.aToDocumentsD_FixAssets.CancelButtonCaption = Nothing
|
||||
Me.aToDocumentsD_FixAssets.Caption = "aToDocumentsD_FixAssets"
|
||||
Me.aToDocumentsD_FixAssets.ConfirmationMessage = Nothing
|
||||
Me.aToDocumentsD_FixAssets.Id = "aToDocumentsD_FixAssets"
|
||||
Me.aToDocumentsD_FixAssets.ImageName = Nothing
|
||||
Me.aToDocumentsD_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aToDocumentsD_FixAssets.Shortcut = Nothing
|
||||
Me.aToDocumentsD_FixAssets.Tag = Nothing
|
||||
Me.aToDocumentsD_FixAssets.TargetObjectsCriteria = Nothing
|
||||
Me.aToDocumentsD_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
|
||||
Me.aToDocumentsD_FixAssets.TargetObjectType = GetType(Nuvolar.[Module].FixedAssets)
|
||||
Me.aToDocumentsD_FixAssets.TargetViewId = Nothing
|
||||
Me.aToDocumentsD_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aToDocumentsD_FixAssets.ToolTip = Nothing
|
||||
Me.aToDocumentsD_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aPrintFixedAssets
|
||||
'
|
||||
Me.aPrintFixedAssets.Caption = "aPrintFixedAssets"
|
||||
Me.aPrintFixedAssets.ConfirmationMessage = Nothing
|
||||
Me.aPrintFixedAssets.Id = "aPrintFixedAssets"
|
||||
Me.aPrintFixedAssets.ImageName = Nothing
|
||||
Me.aPrintFixedAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aPrintFixedAssets.Shortcut = Nothing
|
||||
Me.aPrintFixedAssets.Tag = Nothing
|
||||
Me.aPrintFixedAssets.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintFixedAssets.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsUsingHeader)
|
||||
Me.aPrintFixedAssets.TargetViewId = Nothing
|
||||
Me.aPrintFixedAssets.ToolTip = Nothing
|
||||
Me.aPrintFixedAssets.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToDocuments_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aToDocumentsD_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aPrintFixedAssets As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aToDocuments_FixAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToDocumentsD_FixAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>205, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintFixedAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>210, 54</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+234
@@ -0,0 +1,234 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Public Class FixedAssetsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected _selection As ArrayList
|
||||
Private _noselect As Boolean = False
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
_selection = New ArrayList()
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id Like "FixedAssets_ListView*" Then
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
End If
|
||||
If View.Id = "FixedAssetsUsingPopup_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf FixedAssetsUsingPopup_DetailViewAcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aToDocuments_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocuments_FixAssets.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aToDocuments_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocuments_FixAssets.CustomizePopupWindowParams
|
||||
_noselect = True
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)()
|
||||
_FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut
|
||||
e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup)
|
||||
End Sub
|
||||
Private Sub aToDocuments_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocuments_FixAssets.Execute
|
||||
'// Tárgyieszköz kiadása
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup)
|
||||
Dim _FixedAssets As FixedAssets
|
||||
Dim I As Long = 0
|
||||
Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing
|
||||
Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing
|
||||
|
||||
For Each _FixedAssets In _selection
|
||||
If I = 0 Then
|
||||
'--Fejléc ...
|
||||
_FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)()
|
||||
_FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom)
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingType = _FixedAssetsUsingPopup.FixedAssetsUsingType
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters)
|
||||
_FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution
|
||||
Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType
|
||||
Case eFixedAssetsUsingType.eCostHolder
|
||||
_FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder)
|
||||
Case eFixedAssetsUsingType.eCustomers
|
||||
_FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssetsUsingPopup.Customers)
|
||||
Case eFixedAssetsUsingType.eHRPerson
|
||||
_FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson)
|
||||
End Select
|
||||
I += 1
|
||||
End If
|
||||
|
||||
'-- Sorok
|
||||
_FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
|
||||
_FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
|
||||
_FixedAssetsUsingRows.FixedAssets = _FixedAssets
|
||||
|
||||
_FixedAssets.CostHolder_Using = Nothing
|
||||
_FixedAssets.HRPerson_Using = Nothing
|
||||
_FixedAssets.Customers_Using = Nothing
|
||||
|
||||
Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType
|
||||
Case eFixedAssetsUsingType.eCostHolder
|
||||
_FixedAssets.CostHolder_Using = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder)
|
||||
Case eFixedAssetsUsingType.eCustomers
|
||||
_FixedAssets.Customers_Using = _ocur.GetObject(_FixedAssetsUsingPopup.Customers)
|
||||
Case eFixedAssetsUsingType.eHRPerson
|
||||
_FixedAssets.HRPerson_Using = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson)
|
||||
End Select
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
|
||||
_noselect = False
|
||||
|
||||
Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
|
||||
End Sub
|
||||
|
||||
Private Sub view_SelectionChanged(sender As Object, e As EventArgs)
|
||||
Dim i As Long = 0
|
||||
Dim _FixedAssets As FixedAssets
|
||||
|
||||
If View Is Nothing Then Exit Sub
|
||||
|
||||
If View.Id Like "FixedAssets_ListView*" Then
|
||||
If _noselect = False Then
|
||||
_selection.Clear()
|
||||
For Each _FixedAssets In View.SelectedObjects
|
||||
_selection.Add(_FixedAssets)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aToDocumentsD_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocumentsD_FixAssets.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aToDocumentsD_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocumentsD_FixAssets.CustomizePopupWindowParams
|
||||
_noselect = True
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)()
|
||||
_FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn
|
||||
e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup)
|
||||
End Sub
|
||||
Private Sub aToDocumentsD_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocumentsD_FixAssets.Execute
|
||||
'// Tárgyieszköz visszavétele
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup)
|
||||
Dim _FixedAssets As FixedAssets = Nothing
|
||||
Dim _FixedAssets_Base As FixedAssets = Nothing
|
||||
Dim I As Long = 0
|
||||
Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing
|
||||
Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing
|
||||
|
||||
For Each _FixedAssets In _selection
|
||||
If I = 0 Then
|
||||
'--Fejléc ...
|
||||
_FixedAssets_Base = _FixedAssets
|
||||
_FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)()
|
||||
_FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom)
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn
|
||||
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters)
|
||||
_FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution
|
||||
If _FixedAssets.Customers_Using IsNot Nothing Then
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCustomers
|
||||
_FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssets.Customers_Using)
|
||||
End If
|
||||
If _FixedAssets.HRPerson_Using IsNot Nothing Then
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eHRPerson
|
||||
_FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssets.HRPerson_Using)
|
||||
End If
|
||||
If _FixedAssets.CostHolder_Using IsNot Nothing Then
|
||||
_FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCostHolder
|
||||
_FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssets.CostHolder_Using)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
If I = 0 Then
|
||||
'-- Sorok
|
||||
_FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
|
||||
_FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
|
||||
_FixedAssetsUsingRows.FixedAssets = _FixedAssets
|
||||
|
||||
_FixedAssets.CostHolder_Using = Nothing
|
||||
_FixedAssets.HRPerson_Using = Nothing
|
||||
_FixedAssets.Customers_Using = Nothing
|
||||
Else
|
||||
If _FixedAssets.CostHolder_Using Is _FixedAssets_Base.CostHolder_Using And _FixedAssets.CostHolder_Using IsNot Nothing Then
|
||||
'-- Sorok
|
||||
_FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
|
||||
_FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
|
||||
_FixedAssetsUsingRows.FixedAssets = _FixedAssets
|
||||
|
||||
_FixedAssets.CostHolder_Using = Nothing
|
||||
_FixedAssets.HRPerson_Using = Nothing
|
||||
_FixedAssets.Customers_Using = Nothing
|
||||
ElseIf _FixedAssets.Customers_Using Is _FixedAssets_Base.Customers_Using And _FixedAssets.Customers_Using IsNot Nothing Then
|
||||
'-- Sorok
|
||||
_FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
|
||||
_FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
|
||||
_FixedAssetsUsingRows.FixedAssets = _FixedAssets
|
||||
|
||||
_FixedAssets.CostHolder_Using = Nothing
|
||||
_FixedAssets.HRPerson_Using = Nothing
|
||||
_FixedAssets.Customers_Using = Nothing
|
||||
ElseIf _FixedAssets.HRPerson_Using Is _FixedAssets_Base.HRPerson_Using And _FixedAssets.HRPerson_Using IsNot Nothing Then
|
||||
'-- Sorok
|
||||
_FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)()
|
||||
_FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader
|
||||
_FixedAssetsUsingRows.FixedAssets = _FixedAssets
|
||||
|
||||
_FixedAssets.CostHolder_Using = Nothing
|
||||
_FixedAssets.HRPerson_Using = Nothing
|
||||
_FixedAssets.Customers_Using = Nothing
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
I = 1
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
|
||||
Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
|
||||
End Sub
|
||||
|
||||
Private Sub FixedAssetsUsingPopup_DetailViewAcceptAction_Executing(sender As Object, e As CancelEventArgs)
|
||||
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts")
|
||||
End Sub
|
||||
|
||||
Private Sub aPrintFixedAssets_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintFixedAssets.Execute
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = TryCast(View.SelectedObjects(0), FixedAssetsUsingHeader)
|
||||
If _FixedAssetsUsingHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva riport!")
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
+123
@@ -0,0 +1,123 @@
|
||||
Partial Class FixedassetsCardVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aFinalize_FixedAssetsCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFixedAssetsCard_Terminate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFixedAssetsCard_ReActivate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFixedAssetsCard_Activate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFixedAssetsCard_Terminate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFixedAssetsCard_Activate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFixedAssetsCard_OpenYear = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aFinalize_FixedAssetsCard
|
||||
'
|
||||
Me.aFinalize_FixedAssetsCard.Caption = "aFinalize_FixedAssetsCard"
|
||||
Me.aFinalize_FixedAssetsCard.ConfirmationMessage = Nothing
|
||||
Me.aFinalize_FixedAssetsCard.Id = "aFinalize_FixedAssetsCard"
|
||||
Me.aFinalize_FixedAssetsCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aFinalize_FixedAssetsCard.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFinalize_FixedAssetsCard.ToolTip = Nothing
|
||||
Me.aFinalize_FixedAssetsCard.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aFixedAssetsCard_Terminate
|
||||
'
|
||||
Me.aFixedAssetsCard_Terminate.AcceptButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_Terminate.CancelButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_Terminate.Caption = "aFixedAssetsCard_Terminate"
|
||||
Me.aFixedAssetsCard_Terminate.ConfirmationMessage = Nothing
|
||||
Me.aFixedAssetsCard_Terminate.Id = "aFixedAssetsCard_Terminate"
|
||||
Me.aFixedAssetsCard_Terminate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFixedAssetsCard_Terminate.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_Terminate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aFixedAssetsCard_Terminate.ToolTip = Nothing
|
||||
Me.aFixedAssetsCard_Terminate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aFixedAssetsCard_ReActivate
|
||||
'
|
||||
Me.aFixedAssetsCard_ReActivate.AcceptButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_ReActivate.CancelButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_ReActivate.Caption = "aFixedAssetsCard_ReActivate"
|
||||
Me.aFixedAssetsCard_ReActivate.ConfirmationMessage = Nothing
|
||||
Me.aFixedAssetsCard_ReActivate.Id = "aFixedAssetsCard_ReActivate"
|
||||
Me.aFixedAssetsCard_ReActivate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFixedAssetsCard_ReActivate.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_ReActivate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aFixedAssetsCard_ReActivate.ToolTip = Nothing
|
||||
Me.aFixedAssetsCard_ReActivate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aFixedAssetsCard_Activate_Storno
|
||||
'
|
||||
Me.aFixedAssetsCard_Activate_Storno.Caption = "aFixedAssetsCard_Activate_Storno"
|
||||
Me.aFixedAssetsCard_Activate_Storno.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aFixedAssetsCard_Activate_Storno.Id = "aFixedAssetsCard_Activate_Storno"
|
||||
Me.aFixedAssetsCard_Activate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aFixedAssetsCard_Activate_Storno.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_Activate_Storno.ToolTip = Nothing
|
||||
Me.aFixedAssetsCard_Activate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aFixedAssetsCard_Terminate_Storno
|
||||
'
|
||||
Me.aFixedAssetsCard_Terminate_Storno.Caption = "aFixedAssetsCard_Terminate_Storno"
|
||||
Me.aFixedAssetsCard_Terminate_Storno.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aFixedAssetsCard_Terminate_Storno.Id = "aFixedAssetsCard_Terminate_Storno"
|
||||
Me.aFixedAssetsCard_Terminate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aFixedAssetsCard_Terminate_Storno.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_Terminate_Storno.ToolTip = Nothing
|
||||
Me.aFixedAssetsCard_Terminate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aFixedAssetsCard_Activate
|
||||
'
|
||||
Me.aFixedAssetsCard_Activate.Caption = "aFixedAssetsCard_Activate"
|
||||
Me.aFixedAssetsCard_Activate.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aFixedAssetsCard_Activate.Id = "aFixedAssetsCard_Activate"
|
||||
Me.aFixedAssetsCard_Activate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aFixedAssetsCard_Activate.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_Activate.ToolTip = Nothing
|
||||
Me.aFixedAssetsCard_Activate.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aFixedAssetsCard_OpenYear
|
||||
'
|
||||
Me.aFixedAssetsCard_OpenYear.AcceptButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_OpenYear.CancelButtonCaption = Nothing
|
||||
Me.aFixedAssetsCard_OpenYear.Caption = "aFixedAssetsCard_OpenYear"
|
||||
Me.aFixedAssetsCard_OpenYear.ConfirmationMessage = Nothing
|
||||
Me.aFixedAssetsCard_OpenYear.Id = "aFixedAssetsCard_OpenYear"
|
||||
Me.aFixedAssetsCard_OpenYear.TargetObjectType = GetType(Nuvolar.[Module].FixedAssetsCard)
|
||||
Me.aFixedAssetsCard_OpenYear.ToolTip = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aFinalize_FixedAssetsCard As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFixedAssetsCard_Terminate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aFixedAssetsCard_ReActivate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aFixedAssetsCard_Activate_Storno As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFixedAssetsCard_Terminate_Storno As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFixedAssetsCard_Activate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFixedAssetsCard_OpenYear As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+144
@@ -0,0 +1,144 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aFinalize_FixedAssetsCard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_Terminate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_ReActivate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_Activate_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_Terminate_Storno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_Activate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aFixedAssetsCard_OpenYear.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>250, 251</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1406
File diff suppressed because it is too large
Load Diff
+39
@@ -0,0 +1,39 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System
|
||||
Imports System.Linq
|
||||
Imports System.Text
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.ExpressApp.DC
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports System.Collections.Generic
|
||||
Imports DevExpress.ExpressApp.Model
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
|
||||
Public Class FixedAssetsCard_OpenYear_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _TargetYear As Long
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
TargetYear = GetSQLTime(Session).Year + 1
|
||||
End Sub
|
||||
|
||||
Property TargetYear As Long
|
||||
Get
|
||||
Return _TargetYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("TargetYear", _TargetYear, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+33
@@ -0,0 +1,33 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsReactivationPopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property DateExecution As Date
|
||||
Property AmountHUFBrutto As Double
|
||||
Property AmountHUFDevelopmentReserve As Double
|
||||
<Size(-1)> Property Description As String
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class FixedAssetsTerminatePopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property DateExecution As Date
|
||||
Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone
|
||||
<Size(-1)> Property Description As String
|
||||
End Class
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user