First create solution
This commit is contained in:
+115
@@ -0,0 +1,115 @@
|
||||
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
|
||||
'-- Vegyes könyvelés
|
||||
'<Appearance("Disable GLheader when IsEditable=false", AppearanceItemType:="LayoutItem", criteria:="IsEditable=False", targetitems:="GLHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("FinancialTransactions")> _
|
||||
<Appearance("Hide GLMixedVC Actions when IsEditable=False",
|
||||
AppearanceItemType:="Action",
|
||||
criteria:="IsEditable=False",
|
||||
TargetItems:="aToTable_GLMixed; aToTableD_GLMixed; aBackToRowEdit_GLMixed; aFinal_GLMixed; aFinalAndNew_GLMixed",
|
||||
visibility:=Editors.ViewItemVisibility.Hide,
|
||||
context:="DetailView")> _
|
||||
<Appearance("Hide GLMixedVC Actions when IsEditable=True",
|
||||
AppearanceItemType:="Action",
|
||||
criteria:="IsEditable=True",
|
||||
TargetItems:="aMakeEditable_GLMixed",
|
||||
visibility:=Editors.ViewItemVisibility.Hide,
|
||||
context:="DetailView")> _
|
||||
<Appearance("Hide GLMixed property when IsEditable=False",
|
||||
AppearanceItemType:="ViewItem",
|
||||
criteria:="IsEditable=False",
|
||||
targetitems:="row_PartnerType;row_PCIGroup;row_TransactionType",
|
||||
visibility:=Editors.ViewItemVisibility.Hide,
|
||||
context:="DetailView")> _
|
||||
<Appearance("Hide GLMixed property when row_PartnerType='eNotSet'",
|
||||
AppearanceItemType:="ViewItem",
|
||||
criteria:="row_PartnerType='eNotSet'",
|
||||
targetitems:="row_PCIGroup;row_TransactionType",
|
||||
visibility:=Editors.ViewItemVisibility.Hide,
|
||||
context:="DetailView")> _
|
||||
Public Class GLMixed
|
||||
Inherits GLHeader
|
||||
Private _DocumentFile As FileData
|
||||
Private _row_PartnerType As ePartnerType = ePartnerType.eNotSet
|
||||
Private _row_PCIGroup As PCIGroup
|
||||
Private _row_TransactionType As eTransactionType = eTransactionType.eNotSet
|
||||
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.eGLMixed
|
||||
Me.DateExecution = GetSQLTime(Session)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
Session.Delete(Me.GLRows)
|
||||
End Sub
|
||||
Property DocumentFile As FileData
|
||||
Get
|
||||
Return _DocumentFile
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("DocumentFile", _DocumentFile, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'//Nonpersistent property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
<ImmediatePostData()> _
|
||||
Property row_PartnerType As ePartnerType
|
||||
Get
|
||||
Return _row_PartnerType
|
||||
End Get
|
||||
Set(value As ePartnerType)
|
||||
SetPropertyValue("row_PartnerType", _row_PartnerType, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
Select Case value
|
||||
Case ePartnerType.eNotSet
|
||||
Me.row_TransactionType = eTransactionType.eNotSet
|
||||
End Select
|
||||
End If
|
||||
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 _row_PCIGroup
|
||||
End Get
|
||||
Set(ByVal value As PCIGroup)
|
||||
SetPropertyValue("row_PCIGroup", _row_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
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_TransactionType As eTransactionType
|
||||
Get
|
||||
Return _row_TransactionType
|
||||
End Get
|
||||
Set(value As eTransactionType)
|
||||
SetPropertyValue("row_TransactionType", _row_TransactionType, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+110
@@ -0,0 +1,110 @@
|
||||
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("FinancialStock")> _
|
||||
Public Class GLMixedNG
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
|
||||
Private _NumberGenerator As NumberGenerator 'Sorszám a normál vegyes tételekhez
|
||||
Private _NumberGenerator_RateDiff As NumberGenerator 'Sorszám Árfolyam elszámoláshoz
|
||||
Private _NumberGenerator_Rounding As NumberGenerator 'Sorszám Elengedéshez elszámoláshoz
|
||||
Private _NumberGenerator_Revaluation As NumberGenerator 'Sorszám Átértékeléshez elszámoláshoz
|
||||
Private _NumberGenerator_LateCharges As NumberGenerator 'Sorszám a kamatlevélhez késedelmes fizetés esetén
|
||||
Private _DebitControlling_LateCharges As Controlling 'Tartozik fõkönyvi szém a kamatlevél sorhoz
|
||||
Private _CreditControlling_LateCharges As Controlling 'Követel fk. szám a késedelmi kamatlevél sorhoz
|
||||
|
||||
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
|
||||
<RuleRequiredField("GLMixedNG-CustomersFrom", DefaultContexts.Save)> _
|
||||
<RuleUniqueValue("GLMixedNG-CustomersFrom-Unique", DefaultContexts.Save)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("GLMixed-NumberGenerator", DefaultContexts.Save)> _
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property NumberGenerator_RateDiff As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_RateDiff
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_RateDiff", _NumberGenerator_RateDiff, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property NumberGenerator_Rounding As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Rounding
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Rounding", _NumberGenerator_Rounding, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property NumberGenerator_Revaluation As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_Revaluation
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_Revaluation", _NumberGenerator_Revaluation, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property NumberGenerator_LateCharges As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator_LateCharges
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator_LateCharges", _NumberGenerator_LateCharges, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DebitControlling_LateCharges As Controlling
|
||||
Get
|
||||
Return _DebitControlling_LateCharges
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("DebitControlling_LateCharges", _DebitControlling_LateCharges, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CreditControlling_LateCharges As Controlling
|
||||
Get
|
||||
Return _CreditControlling_LateCharges
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("CreditControlling_LateCharges", _CreditControlling_LateCharges, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+243
@@ -0,0 +1,243 @@
|
||||
Partial Class GLMixedVC
|
||||
|
||||
<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.aStorno_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewPCIDW_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewAttachments_RateDiff_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewRegistry_RateDiff_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aMakeEditable_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinal_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalAndNew_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCloneGLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSetDateGLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aStorno_GLMixed
|
||||
'
|
||||
Me.aStorno_GLMixed.Caption = "aStorno_GLMixed"
|
||||
Me.aStorno_GLMixed.Category = "RecordEdit"
|
||||
Me.aStorno_GLMixed.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aStorno_GLMixed.Id = "aStorno_GLMixed"
|
||||
Me.aStorno_GLMixed.ImageName = Nothing
|
||||
Me.aStorno_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aStorno_GLMixed.Shortcut = Nothing
|
||||
Me.aStorno_GLMixed.Tag = Nothing
|
||||
Me.aStorno_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aStorno_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aStorno_GLMixed.TargetViewId = Nothing
|
||||
Me.aStorno_GLMixed.ToolTip = Nothing
|
||||
Me.aStorno_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aViewPCIDW_RateDiff
|
||||
'
|
||||
Me.aViewPCIDW_RateDiff.Caption = "View detail"
|
||||
Me.aViewPCIDW_RateDiff.Category = "View"
|
||||
Me.aViewPCIDW_RateDiff.ConfirmationMessage = Nothing
|
||||
Me.aViewPCIDW_RateDiff.Id = "aViewPCIDW_RateDiff"
|
||||
Me.aViewPCIDW_RateDiff.ImageName = Nothing
|
||||
Me.aViewPCIDW_RateDiff.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewPCIDW_RateDiff.Shortcut = Nothing
|
||||
Me.aViewPCIDW_RateDiff.Tag = Nothing
|
||||
Me.aViewPCIDW_RateDiff.TargetObjectsCriteria = "GLHeader.GLDocumentType=5"
|
||||
Me.aViewPCIDW_RateDiff.TargetViewId = ""
|
||||
Me.aViewPCIDW_RateDiff.ToolTip = Nothing
|
||||
Me.aViewPCIDW_RateDiff.TypeOfView = Nothing
|
||||
'
|
||||
'aViewAttachments_RateDiff_GLRows
|
||||
'
|
||||
Me.aViewAttachments_RateDiff_GLRows.Caption = "aViewAttachments_RateDiff_GLRows"
|
||||
Me.aViewAttachments_RateDiff_GLRows.ConfirmationMessage = Nothing
|
||||
Me.aViewAttachments_RateDiff_GLRows.Id = "aViewAttachments_RateDiff_GLRows"
|
||||
Me.aViewAttachments_RateDiff_GLRows.ImageName = "printer_view"
|
||||
Me.aViewAttachments_RateDiff_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewAttachments_RateDiff_GLRows.Shortcut = Nothing
|
||||
Me.aViewAttachments_RateDiff_GLRows.Tag = Nothing
|
||||
Me.aViewAttachments_RateDiff_GLRows.TargetObjectsCriteria = "GLHeader.GLDocumentType=5"
|
||||
Me.aViewAttachments_RateDiff_GLRows.TargetViewId = ""
|
||||
Me.aViewAttachments_RateDiff_GLRows.ToolTip = Nothing
|
||||
Me.aViewAttachments_RateDiff_GLRows.TypeOfView = Nothing
|
||||
'
|
||||
'aViewRegistry_RateDiff_GLRows
|
||||
'
|
||||
Me.aViewRegistry_RateDiff_GLRows.Caption = "aViewRegistry_RateDiff_GLRows"
|
||||
Me.aViewRegistry_RateDiff_GLRows.ConfirmationMessage = Nothing
|
||||
Me.aViewRegistry_RateDiff_GLRows.Id = "aViewRegistry_RateDiff_GLRows"
|
||||
Me.aViewRegistry_RateDiff_GLRows.ImageName = "document_pinned"
|
||||
Me.aViewRegistry_RateDiff_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewRegistry_RateDiff_GLRows.Shortcut = Nothing
|
||||
Me.aViewRegistry_RateDiff_GLRows.Tag = Nothing
|
||||
Me.aViewRegistry_RateDiff_GLRows.TargetObjectsCriteria = "GLHeader.GLDocumentType=5"
|
||||
Me.aViewRegistry_RateDiff_GLRows.TargetViewId = ""
|
||||
Me.aViewRegistry_RateDiff_GLRows.ToolTip = Nothing
|
||||
Me.aViewRegistry_RateDiff_GLRows.TypeOfView = Nothing
|
||||
'
|
||||
'aToTableD_GLMixed
|
||||
'
|
||||
Me.aToTableD_GLMixed.Caption = "Delete row"
|
||||
Me.aToTableD_GLMixed.Category = "aToTable_GLMixed"
|
||||
Me.aToTableD_GLMixed.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_GLMixed.Id = "aToTableD_GLMixed"
|
||||
Me.aToTableD_GLMixed.ImageName = Nothing
|
||||
Me.aToTableD_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_GLMixed.Shortcut = Nothing
|
||||
Me.aToTableD_GLMixed.Tag = Nothing
|
||||
Me.aToTableD_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aToTableD_GLMixed.TargetViewId = ""
|
||||
Me.aToTableD_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTableD_GLMixed.ToolTip = Nothing
|
||||
Me.aToTableD_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aBackToRowEdit_GLMixed
|
||||
'
|
||||
Me.aBackToRowEdit_GLMixed.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_GLMixed.Category = "aToTable_GLMixed"
|
||||
Me.aBackToRowEdit_GLMixed.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.Id = "aBackToRowEdit_GLMixed"
|
||||
Me.aBackToRowEdit_GLMixed.ImageName = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToRowEdit_GLMixed.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.Tag = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aBackToRowEdit_GLMixed.TargetViewId = ""
|
||||
Me.aBackToRowEdit_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aBackToRowEdit_GLMixed.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aMakeEditable_GLMixed
|
||||
'
|
||||
Me.aMakeEditable_GLMixed.Caption = "aMakeEditable_GLMixed"
|
||||
Me.aMakeEditable_GLMixed.Category = "RecordEdit"
|
||||
Me.aMakeEditable_GLMixed.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aMakeEditable_GLMixed.Id = "aMakeEditable_GLMixed"
|
||||
Me.aMakeEditable_GLMixed.ImageName = "Images.replace2.png"
|
||||
Me.aMakeEditable_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aMakeEditable_GLMixed.Shortcut = Nothing
|
||||
Me.aMakeEditable_GLMixed.Tag = Nothing
|
||||
Me.aMakeEditable_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aMakeEditable_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aMakeEditable_GLMixed.TargetViewId = Nothing
|
||||
Me.aMakeEditable_GLMixed.ToolTip = Nothing
|
||||
Me.aMakeEditable_GLMixed.TypeOfView = Nothing
|
||||
'
|
||||
'aToTable_GLMixed
|
||||
'
|
||||
Me.aToTable_GLMixed.Caption = "aToTable"
|
||||
Me.aToTable_GLMixed.Category = "aToTable_GLMixed"
|
||||
Me.aToTable_GLMixed.ConfirmationMessage = Nothing
|
||||
Me.aToTable_GLMixed.Id = "aToTable_GLMixed"
|
||||
Me.aToTable_GLMixed.ImageName = Nothing
|
||||
Me.aToTable_GLMixed.Shortcut = Nothing
|
||||
Me.aToTable_GLMixed.Tag = Nothing
|
||||
Me.aToTable_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aToTable_GLMixed.TargetViewId = ""
|
||||
Me.aToTable_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aToTable_GLMixed.ToolTip = Nothing
|
||||
Me.aToTable_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aFinal_GLMixed
|
||||
'
|
||||
Me.aFinal_GLMixed.Caption = "aFinal_GLMixed"
|
||||
Me.aFinal_GLMixed.ConfirmationMessage = Nothing
|
||||
Me.aFinal_GLMixed.Id = "aFinal_GLMixed"
|
||||
Me.aFinal_GLMixed.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aFinal_GLMixed.Shortcut = Nothing
|
||||
Me.aFinal_GLMixed.Tag = Nothing
|
||||
Me.aFinal_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aFinal_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aFinal_GLMixed.TargetViewId = Nothing
|
||||
Me.aFinal_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinal_GLMixed.ToolTip = Nothing
|
||||
Me.aFinal_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aFinalAndNew_GLMixed
|
||||
'
|
||||
Me.aFinalAndNew_GLMixed.Caption = "aFinalAndNew_GLMixed"
|
||||
Me.aFinalAndNew_GLMixed.ConfirmationMessage = Nothing
|
||||
Me.aFinalAndNew_GLMixed.Id = "aFinalAndNew_GLMixed"
|
||||
Me.aFinalAndNew_GLMixed.ImageName = "MenuBar_SaveAndNew"
|
||||
Me.aFinalAndNew_GLMixed.Shortcut = Nothing
|
||||
Me.aFinalAndNew_GLMixed.Tag = Nothing
|
||||
Me.aFinalAndNew_GLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalAndNew_GLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aFinalAndNew_GLMixed.TargetViewId = Nothing
|
||||
Me.aFinalAndNew_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalAndNew_GLMixed.ToolTip = Nothing
|
||||
Me.aFinalAndNew_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aCloneGLMixed
|
||||
'
|
||||
Me.aCloneGLMixed.Caption = "aCloneGLMixed"
|
||||
Me.aCloneGLMixed.Category = "ObjectsCreation"
|
||||
Me.aCloneGLMixed.ConfirmationMessage = Nothing
|
||||
Me.aCloneGLMixed.Id = "aCloneGLMixed"
|
||||
Me.aCloneGLMixed.ImageName = Nothing
|
||||
Me.aCloneGLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCloneGLMixed.Shortcut = Nothing
|
||||
Me.aCloneGLMixed.Tag = Nothing
|
||||
Me.aCloneGLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aCloneGLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aCloneGLMixed.TargetViewId = Nothing
|
||||
Me.aCloneGLMixed.ToolTip = Nothing
|
||||
Me.aCloneGLMixed.TypeOfView = Nothing
|
||||
'
|
||||
'aSetDateGLMixed
|
||||
'
|
||||
Me.aSetDateGLMixed.Caption = "aSet Date GLMixed"
|
||||
Me.aSetDateGLMixed.ConfirmationMessage = Nothing
|
||||
Me.aSetDateGLMixed.Id = "aSetDateGLMixed"
|
||||
Me.aSetDateGLMixed.ImageName = Nothing
|
||||
Me.aSetDateGLMixed.Shortcut = Nothing
|
||||
Me.aSetDateGLMixed.Tag = Nothing
|
||||
Me.aSetDateGLMixed.TargetObjectsCriteria = Nothing
|
||||
Me.aSetDateGLMixed.TargetObjectType = GetType(Nuvolar.[Module].GLMixed)
|
||||
Me.aSetDateGLMixed.TargetViewId = Nothing
|
||||
Me.aSetDateGLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aSetDateGLMixed.ToolTip = Nothing
|
||||
Me.aSetDateGLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTable_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aMakeEditable_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aStorno_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinal_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalAndNew_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewPCIDW_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewAttachments_RateDiff_GLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewRegistry_RateDiff_GLRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCloneGLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSetDateGLMixed As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+159
@@ -0,0 +1,159 @@
|
||||
<?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="aStorno_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>486, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aViewPCIDW_RateDiff.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>816, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aViewAttachments_RateDiff_GLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aViewRegistry_RateDiff_GLRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>421, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>646, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>809, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aMakeEditable_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>267, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aFinal_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>987, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalAndNew_GLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aCloneGLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>349, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aSetDateGLMixed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>201, 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>
|
||||
+459
@@ -0,0 +1,459 @@
|
||||
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
|
||||
|
||||
Public Class GLMixedVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected selection As ArrayList
|
||||
Protected reconfigure As ArrayList
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
selection = New ArrayList()
|
||||
reconfigure = New ArrayList
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", False)
|
||||
If View.Id = "GLMixed_DetailView" Then
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
If _GLMixed.IsEditable = False Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
If _GLMixed.IsStorno = True Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
If _GLMixed.GLDocumentType = eGLDocumentType.eGLRateDiff Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
|
||||
If SecuritySystem.CurrentUserName = "SysAdmin" Then
|
||||
Else
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
If View.Id = "GLMixed_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "GLMixed_ListView_Editable" Then
|
||||
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id Like "GLHeader_GLRows_ListView_Mixed" 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 GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).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 = "GLRows_ListView_RateDiff" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", True)
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
|
||||
End If
|
||||
If View.Id = "GLMixed_DetailView_Dividend" 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 GLMixedVC).aStorno_GLMixed.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of GLMixedVC).aFinalAndNew_GLMixed.Active.SetItemValue("", False)
|
||||
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
|
||||
View.CurrentObject = View.ObjectSpace.GetObject(_GLOpenCloseHeader.GLMixed_AfterDividend)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
If View.Id = "GLRows_ListView_RateDiff" Then
|
||||
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing
|
||||
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
|
||||
End If
|
||||
'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim _GLMixed As GLMixed = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLMixed)
|
||||
If _GLMixed IsNot Nothing Then
|
||||
If _GLMixed.IsEditable = False Then
|
||||
Frame.GetController(Of GLMixedVC).aToTable_GLMixed.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aMakeEditable_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLMixed.Execute
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
If _GLMixed IsNot Nothing Then
|
||||
_GLMixed.IsEditable = True
|
||||
_ocur.CommitChanges()
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObjectByKey(Of GLMixed)(_GLMixed.Oid))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFinalAndNew_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLMixed.Execute
|
||||
GLMixed_Final(e)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _GLMixed As GLMixed = _onew.CreateObject(Of GLMixed)()
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLMixed)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.Current
|
||||
End Sub
|
||||
#Region "SIS"
|
||||
Private Sub GLMixed_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLRows As GLRows = Nothing
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _GLMixed As GLMixed = TryCast(e.SelectedObjects(0), GLMixed)
|
||||
Dim _GLMixedNG As GLMixedNG
|
||||
For Each _GLMixed In e.SelectedObjects
|
||||
If _GLMixed.GLRows.Count <= 0 Then
|
||||
Throw New Exception("*Nincs rögzített sor !")
|
||||
End If
|
||||
_GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLMixed.CustomersFrom), True)
|
||||
If _GLMixedNG IsNot Nothing Then
|
||||
If _GLMixed.DocumentNumber Is Nothing Then
|
||||
_GLMixed.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator)
|
||||
End If
|
||||
If _GLMixed.DocumentNumber = "" Then
|
||||
_GLMixed.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator)
|
||||
End If
|
||||
End If
|
||||
_GLMixed.IsEditable = False
|
||||
_ocur.CommitChanges()
|
||||
|
||||
For Each _GLRows In _GLMixed.GLRows
|
||||
If _GLRows.PartnerType = ePartnerType.eNotSet Then
|
||||
Else
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub aToTableD_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLMixed.Execute
|
||||
'Törli a táblázatban lévő sort
|
||||
Dim _GUID As Guid
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
Dim i As Long
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _CustomersFrom As CustomersFrom = Nothing
|
||||
Dim _Customers As Customers = Nothing
|
||||
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
|
||||
_GUID = _GLRows.GLRowsGUID
|
||||
selection.Clear()
|
||||
For Each _GLRows In _GLMixed.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 = _GLMixed.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
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLMixed.Execute
|
||||
'Visszatölti a sort editáláshoz
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Dim _GLRows_ListEditor As ListPropertyEditor
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
_GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows")
|
||||
_GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows)
|
||||
|
||||
If _GLRows IsNot Nothing Then
|
||||
_GLMixed.row_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_GLMixed.row_AmountHUF = _GLRows.AmountHUF
|
||||
_GLMixed.row_AmountDEV = _GLRows.AmountDEV
|
||||
_GLMixed.row_Controlling = _GLRows.Controlling
|
||||
_GLMixed.row_Customer = _GLRows.Customer
|
||||
_GLMixed.row_ConnectInfo = _GLRows.ConnectInfo
|
||||
_GLMixed.row_JobNumberObjects = _GLRows.JobNumberObjects
|
||||
_GLMixed.row_UniqueObjects = _GLRows.UniqueObjects
|
||||
_GLMixed.row_CostHolder = _GLRows.CostHolder
|
||||
_GLMixed.row_CostPlace = _GLRows.CostPlace
|
||||
_GLMixed.row_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_GLMixed.row_NoteRows = _GLRows.NoteRows
|
||||
_GLMixed.row_PartnerType = _GLRows.PartnerType
|
||||
End If
|
||||
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLMixed.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader)
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
If _GLMixed IsNot Nothing Then
|
||||
|
||||
Dim _GUID As Guid = Guid.NewGuid()
|
||||
|
||||
_GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
|
||||
Select Case _GLMixed.row_TransactionType
|
||||
Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit
|
||||
_GLRows.InAmountHUF = _GLMixed.row_AmountHUF
|
||||
_GLRows.InAmountDEV = _GLMixed.row_AmountDEV
|
||||
Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit
|
||||
_GLRows.OutAmountHUF = _GLMixed.row_AmountHUF
|
||||
_GLRows.OutAmountDEV = _GLMixed.row_AmountDEV
|
||||
Case Else
|
||||
_GLRows.InAmountDEV = 0
|
||||
_GLRows.InAmountDEV2 = 0
|
||||
_GLRows.InAmountHUF = 0
|
||||
_GLRows.OutAmountHUF = 0
|
||||
_GLRows.OutAmountDEV = 0
|
||||
_GLRows.OutAmountDEV2 = 0
|
||||
End Select
|
||||
_GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _
|
||||
_GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLHeader.row_LiquidAssets, _
|
||||
_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, _GLMixed.row_TransactionType, eCashType.eNormal, _GLMixed.row_PartnerType)
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLMixed.Execute
|
||||
GLMixed_Final(e)
|
||||
View.Close(False)
|
||||
End Sub
|
||||
Private Sub aStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_GLMixed.Execute
|
||||
Dim _s_GLMixed As New GLMixed(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session)
|
||||
Dim _GLMixed As GLMixed
|
||||
Dim _GLRows As GLRows
|
||||
For Each _GLMixed In e.SelectedObjects
|
||||
_s_GLMixed.GLDocumentType = _GLMixed.GLDocumentType
|
||||
_s_GLMixed.CustomersFrom = _GLMixed.CustomersFrom
|
||||
_s_GLMixed.CurrencyName = _GLMixed.CurrencyName
|
||||
_s_GLMixed.CurrencyRate = _GLMixed.CurrencyRate
|
||||
_s_GLMixed.DocumentNumber = _GLMixed.DocumentNumber
|
||||
_s_GLMixed.RegistryNumber = _GLMixed.RegistryNumber
|
||||
_s_GLMixed.DateCreated = _GLMixed.DateCreated
|
||||
_s_GLMixed.DateExecution = _GLMixed.DateExecution
|
||||
_s_GLMixed.DatePayment = _GLMixed.DatePayment
|
||||
_s_GLMixed.NoteHeader = _GLMixed.NoteHeader
|
||||
_s_GLMixed.IsEditable = _GLMixed.IsEditable
|
||||
_s_GLMixed.IsStorno = _GLMixed.IsStorno
|
||||
_GLMixed.IsStorno = True
|
||||
_s_GLMixed.IsStorno = True
|
||||
_s_GLMixed.IsEditable = False
|
||||
For Each _GLRows In _GLMixed.GLRows
|
||||
_s_GLMixed.row_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts
|
||||
_s_GLMixed.row_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts
|
||||
_s_GLMixed.row_AmountHUF = _GLRows.AmountHUF * -1
|
||||
_s_GLMixed.row_AmountDEV = _GLRows.AmountDEV * -1
|
||||
_s_GLMixed.row_LiquidAssets = _GLRows.LiquidAssets
|
||||
_s_GLMixed.row_Customer = _GLRows.Customer
|
||||
_s_GLMixed.row_DateVAT = _GLRows.DateVAT
|
||||
_s_GLMixed.row_VAT = _GLRows.VAT
|
||||
_s_GLMixed.row_NoteRows = _GLRows.NoteRows
|
||||
_s_GLMixed.row_UniqueObjects = _GLRows.UniqueObjects
|
||||
_s_GLMixed.row_Controlling = _GLRows.Controlling
|
||||
_s_GLMixed.row_JobNumberObjects = _GLRows.JobNumberObjects
|
||||
_s_GLMixed.row_CostPlace = _GLRows.CostPlace
|
||||
_s_GLMixed.row_CostHolder = _GLRows.CostHolder
|
||||
_s_GLMixed.row_ConnectInfo = _GLRows.ConnectInfo
|
||||
|
||||
Dim _s_GLRows As GLRows = New GLRows(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session)
|
||||
_s_GLRows.AddGLRows(_s_GLMixed, _s_GLMixed.row_DebitChartOfAccounts, _s_GLMixed.row_CreditChartOfAccounts, _s_GLMixed.row_AmountDEV, _s_GLMixed.row_AmountHUF, _s_GLMixed.row_LiquidAssets, _s_GLMixed.row_Customer, _s_GLMixed.row_DateVAT, _s_GLMixed.row_VAT, _s_GLMixed.row_NoteRows, _s_GLMixed.row_UniqueObjects, _s_GLMixed.row_Controlling, _s_GLMixed.row_JobNumberObjects, _s_GLMixed.row_CostPlace, _s_GLMixed.row_CostHolder, _s_GLMixed.row_ConnectInfo, Nothing, Nothing)
|
||||
|
||||
Next
|
||||
_s_GLMixed.Save()
|
||||
TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.CommitTransaction()
|
||||
Next
|
||||
End Sub
|
||||
Private Sub aViewPCIDW_RateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDW_RateDiff.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)
|
||||
|
||||
ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLRows.GLHeader.CustomersFrom, _
|
||||
_GLRows.Customer, _GLRows.PartnerType, _
|
||||
_GLRows.ConnectInfo)
|
||||
End Sub
|
||||
Private Sub aViewAttachments_RateDiff_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_RateDiff_GLRows.Execute
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLRows.GLHeader.CustomersFrom
|
||||
Dim _Customers As Customers = _GLRows.Customer
|
||||
Dim _DocumentNumber As String = _GLRows.ConnectInfo
|
||||
|
||||
ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
|
||||
End Sub
|
||||
Private Sub aViewRegistry_RateDiff_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_RateDiff_GLRows.Execute
|
||||
Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows)
|
||||
Dim _CustomersFrom As CustomersFrom = _GLRows.GLHeader.CustomersFrom
|
||||
Dim _Customers As Customers = _GLRows.Customer
|
||||
Dim _DocumentNumber As String = _GLRows.ConnectInfo
|
||||
|
||||
ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
|
||||
End Sub
|
||||
Private Sub aCloneGLMixed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneGLMixed.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _GLMixed_Base As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
|
||||
If _GLMixed_Base Is Nothing Then Throw New Exception("*Nincs kiválasztott elem!")
|
||||
|
||||
Dim _GLMixed_New As GLMixed = _ocur.CreateObject(Of GLMixed)()
|
||||
|
||||
_GLMixed_New.GLDocumentType = eGLDocumentType.eGLMixed
|
||||
'_GLMixed_New.CustomersFrom = _GLMixed_Base.CustomersFrom
|
||||
_GLMixed_New.CurrencyName = _GLMixed_Base.CurrencyName
|
||||
_GLMixed_New.DateCreated = _GLMixed_Base.DateCreated
|
||||
_GLMixed_New.DateExecution = _GLMixed_Base.DateExecution
|
||||
_GLMixed_New.DatePayment = _GLMixed_Base.DatePayment
|
||||
_GLMixed_New.NoteHeader = _GLMixed_Base.NoteHeader
|
||||
_GLMixed_New.IsEditable = True
|
||||
_GLMixed_New.IsStorno = False
|
||||
|
||||
If _GLMixed_Base.GLRows.Count > 0 Then
|
||||
For Each _GLRows_Base As GLRows In _GLMixed_Base.GLRows
|
||||
Dim _GLRows As GLRows = _ocur.CreateObject(Of GLRows)()
|
||||
|
||||
_GLRows.GLHeader = _GLMixed_New
|
||||
_GLRows.DebitChartOfAccounts = _GLRows_Base.DebitChartOfAccounts
|
||||
_GLRows.CreditChartOfAccounts = _GLRows_Base.CreditChartOfAccounts
|
||||
_GLRows.AmountHUF = _GLRows_Base.AmountHUF
|
||||
_GLRows.AmountDEV = _GLRows_Base.AmountDEV
|
||||
_GLRows.Customer = _GLRows_Base.Customer
|
||||
_GLRows.NoteRows = _GLRows_Base.NoteRows
|
||||
_GLRows.UniqueObjects = _GLRows_Base.UniqueObjects
|
||||
_GLRows.Controlling = _GLRows_Base.Controlling
|
||||
_GLRows.JobNumberObjects = _GLRows_Base.JobNumberObjects
|
||||
_GLRows.CostPlace = _GLRows_Base.CostPlace
|
||||
_GLRows.CostHolder = _GLRows_Base.CostHolder
|
||||
_GLRows.ConnectInfo = _GLRows_Base.ConnectInfo
|
||||
_GLRows.PartnerType = _GLRows_Base.PartnerType
|
||||
_GLRows.GLRowsGUID = Guid.NewGuid
|
||||
_GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow
|
||||
Next
|
||||
End If
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
_ocur.CommitChanges()
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObject(_GLMixed_New))
|
||||
Catch exp As Exception
|
||||
MsgBox(exp.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Delete_Executing(sender As Object, e As CancelEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _GLRows As GLRows
|
||||
Dim _GLRows_Original As GLRows
|
||||
|
||||
reconfigure.Clear()
|
||||
For Each _GLRows In View.SelectedObjects
|
||||
reconfigure.Add(_GLRows)
|
||||
_GLRows_Original = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("GLRowsRateDiff.Oid=?", _GLRows.Oid))
|
||||
|
||||
If _GLRows_Original IsNot Nothing Then
|
||||
_GLRows_Original.GLRowsRateDiff = Nothing
|
||||
_GLRows.GLRowsRateDiff = Nothing
|
||||
End If
|
||||
Next
|
||||
e.Cancel = False
|
||||
End Sub
|
||||
Private Sub Delete_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 _GLRows As GLRows
|
||||
Dim i As Long
|
||||
_ocur.CommitChanges()
|
||||
For i = 0 To reconfigure.Count - 1
|
||||
_GLRows = reconfigure(i)
|
||||
|
||||
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_ocur.Session)
|
||||
Dim _CustomersFrom As CustomersFrom
|
||||
|
||||
For Each _CustomersFrom In _CustomersFrom_Collection
|
||||
GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo)
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
Private Sub aSetDateGLMixed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSetDateGLMixed.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
|
||||
Dim _GLRows As GLRows
|
||||
|
||||
If _GLMixed IsNot Nothing Then
|
||||
If _GLMixed.IsEditable = True Then
|
||||
For Each _GLRows In _GLMixed.GLRows
|
||||
_GLRows.DateExecution = _GLMixed.DateExecution
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user