Jelölő adatok IsActive

Mezőgazdaság termeltetés IsActive
Számviteli készletnél szállítólevél DateExecution
This commit is contained in:
2018-03-12 10:53:58 +01:00
parent 50a572daf3
commit dd449f32d7
74 changed files with 355 additions and 202 deletions
@@ -10,12 +10,12 @@ Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
<Appearance("Hide ChartOfAccounts when IsManagerCheck=True", AppearanceItemType.ViewItem, "IsManagerCheck=True", TargetItems:="ChartOfAccounts", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide DateExecution when IsDateExecution=False", AppearanceItemType.ViewItem, "IsDateExecution=False", TargetItems:="DateExecution", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
<RuleCriteria("RuleCriteria BookEntryCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
<DefaultClassOptions()>
<NavigationItem(False), CreatableItem(False)>
<DeferredDeletion(False)>
<Appearance("Hide ChartOfAccounts when IsManagerCheck=True", AppearanceItemType.ViewItem, "IsManagerCheck=True", TargetItems:="ChartOfAccounts", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
<Appearance("Hide DateExecution when IsDateExecution=False", AppearanceItemType.ViewItem, "IsDateExecution=False", TargetItems:="DateExecution", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
<RuleCriteria("RuleCriteria BookEntryCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
Public Class BookEntryCheck 'Popup a csoportos módosításhoz, és könyvelhetõség beállításához
Inherits BaseObject
Public Sub New(ByVal session As Session)
@@ -23,11 +23,11 @@ Public Class BookEntryCheck 'Popup a csoportos m
End Sub
<NonPersistent()> Public Property ChartOfAccountsYear As ChartOfAccountsYear
<NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("IsParent=False")> Public Property ChartOfAccounts As ChartOfAccounts
<NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
<NonPersistent()> Public Property CostHolder As CostHolder
<NonPersistent()> Public Property CostPlace As CostPlace
<NonPersistent()> Public Property UniqueObjects As UniqueObjects
<NonPersistent()> Public Property Controlling As Controlling
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property JobNumberObjects As JobNumberObjects
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostHolder As CostHolder
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostPlace As CostPlace
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property UniqueObjects As UniqueObjects
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property Controlling As Controlling
<NonPersistent(), Browsable(False), ImmediatePostData()> Public Property IsManagerCheck As Boolean = False
<NonPersistent(), ImmediatePostData()> Public Property IsDateExecution As Boolean = False
<NonPersistent()> Public Property DateExecution As Date
@@ -14,10 +14,10 @@ Imports System.Linq
Imports System.Linq.Expressions
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<Persistent("vv_GLAccountRowsforBookEntry")> _
<ImageName("BO_Report")> _
<DefaultClassOptions()>
<NavigationItem(False), CreatableItem(False)>
<Persistent("vv_GLAccountRowsforBookEntry")>
<ImageName("BO_Report")>
Public Class GLAccountRowsforBookEntry 'Fõkönyvi feladáshoz lista, ami alaplyán a könyvelõ tud ellenõrizni
Inherits XPLiteObject
Public Sub New(ByVal session As Session)
@@ -51,7 +51,7 @@ Public Class GLAccountRowsforBookEntry 'F
<Persistent("InvoiceHeader")> Public InvoiceHeader As InvoiceHeader
<Persistent("WorkflowSystemSteps")> Public WorkflowSystemSteps As WorkflowSystemSteps
<Persistent("WorkflowMessage")> Public WorkflowMessage As String
Public Sub findrows()
Dim _RegistryTasks_coll As New XPCollection(GetType(RegistryTasks), CriteriaOperator.Parse("CurrentWorkflowSystemSteps.StepFinancialType=4 AND Status=0"))
Dim _RegistryHeader_Oid_array As New ArrayList