Reconfigure for GIT

This commit is contained in:
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -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
@@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<ClassDiagram MajorVersion="1" MinorVersion="1">
<Class Name="SISBusiness.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="SISBusiness.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="SISBusiness.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>
@@ -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()> _
<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
<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
@@ -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
@@ -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
@@ -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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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(SISBusiness.[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
@@ -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>