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
@@ -372,7 +372,8 @@ Public Class ContractRows 'Szerz
End If
End Set
End Property
<RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
<RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -396,7 +397,8 @@ Public Class ContractRows 'Szerz
End If
End Set
End Property
<RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
<RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -363,6 +363,7 @@ Public Class Contracts 'Szerződések
SetPropertyValue("DocumentBody", _DocumentBody, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects() As JobNumberObjects
Get
@@ -372,6 +373,7 @@ Public Class Contracts 'Szerződések
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -9,7 +9,7 @@ Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()> _
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()>
Public Class ContractModifyData
Inherits BaseObject
Public Sub New(ByVal session As Session)
@@ -45,10 +45,10 @@ Public Class ContractModifyData
Property CurrencyName_Invoice As CurrencyName
Property IsJobNumberObjects As Boolean = False
Property JobNumberObjects As JobNumberObjects
<DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
Property IsUniqueObjects As Boolean = False
Property UniqueObjects As UniqueObjects
<DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
Property IsHRResponsible As Boolean = False
Property HRResponsible As HRPerson
@@ -180,6 +180,7 @@ Public Class ContractRowsModifyData
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property IsJobNumberObjects As Boolean
Get
Return _IsJobNumberObjects
@@ -188,6 +189,7 @@ Public Class ContractRowsModifyData
SetPropertyValue("IsJobNumberObjects", _IsJobNumberObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -24,6 +24,7 @@ Public Class DeliveryNoteInToStorageInHeader
MyBase.AfterConstruction()
IsRegistry = False
End Sub
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -111,6 +111,7 @@ Public Class DeliveryNoteView ' -- szállítólevél készítéséhez a popup-ho
SetPropertyValue("Note", _Note, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -180,7 +180,7 @@ Public Class CRMEstate_Opportunity_Rent
SetPropertyValue("PaymentOption", _PaymentOption, value)
End Set
End Property
<RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)> _
<RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -189,6 +189,7 @@ Public Class CRMEstate_Opportunity_Rent
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -31,8 +31,8 @@ Public Class ImmovablesCostRecordContactRow
End Property
<Browsable(False)> Property UniqueObjects As UniqueObjects
Property Controlling As Controlling
Property CostHolder As CostHolder
Property CostPlace As CostPlace
<DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
<DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
Property JobNumberObjects As JobNumberObjects
Property ShortName As String
Property DateExecution As Date
@@ -93,6 +93,7 @@ Public Class ImmovablesCostRecordGroup
SetPropertyValue("CostRecordBaseMode", _CostRecordBaseMode, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -171,7 +171,8 @@ Public Class Immovables
SetPropertyValue("CustomersLessor", _CustomersLessor, value)
End Set
End Property
<NonCloneable()> _
<NonCloneable()>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects() As UniqueObjects
Get
Return _UniqueObjects
@@ -150,6 +150,7 @@ Public Class ImmovablesGroupsParameters
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -66,7 +66,8 @@ Public Class InvoiceCreditNoteHeader
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
<RuleRequiredField("InvoiceCreditNoteHeader - Storage", DefaultContexts.Save)> _
<RuleRequiredField("InvoiceCreditNoteHeader - Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -1260,6 +1260,7 @@ Public Class InvoiceHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")>
<DataSourceCriteria("IsActive != False")>
Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító
Get
Return _row_UniqueObjects
@@ -1282,6 +1283,7 @@ Public Class InvoiceHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("InvoiceHeader-row_CostPlace", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True and IsCorrigendum=False")>
<DataSourceCriteria("IsActive != False")>
Property row_CostPlace() As CostPlace ' -- Költség viselő
Get
Return _row_CostPlace
@@ -627,7 +627,8 @@ Public Class InvoiceRows
SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
End Set
End Property
<RuleRequiredField("InvoiceRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")> _
<RuleRequiredField("InvoiceRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -645,6 +646,7 @@ Public Class InvoiceRows
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -176,6 +176,7 @@ Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceH
End Set
End Property
<RuleRequiredField("InvoiceAdvancePopup-CostPlace", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -185,6 +186,7 @@ Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceH
End Set
End Property
<RuleRequiredField("InvoiceAdvancePopup-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -9,7 +9,7 @@ Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent>
Public Class InvoiceRows_Changer_Popup
Inherits BaseObject
Public Sub New(ByVal session As Session)
@@ -27,10 +27,10 @@ Public Class InvoiceRows_Changer_Popup
End Sub
Property DateExecution As Date
Property Controlling As Controlling
Property CostPlace As CostPlace
Property CostHolder As CostHolder
Property UniqueObjects As UniqueObjects
Property JobNumberObjects As JobNumberObjects
<DataSourceCriteria("IsActive != False")> Property Controlling As Controlling
<DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
<DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
<DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
<DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
End Class
@@ -368,7 +368,7 @@ Public Class OrderInHeader
End Property
<NonPersistent>
<RuleRequiredField("OrderInHeader-row_APCSheetByProducts", "aToTable_OrderIn", TargetCriteria:="OrderInParameters.IsAPCSheet=True")>
<ImmediatePostData(True), DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom'")>
<ImmediatePostData(True), DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom' and APCSheetHeader.IsActive=True")>
Property row_APCSheetByProducts As APCSheetByProducts
Get
Return _row_APCSheetByProducts
@@ -283,6 +283,7 @@ Public Class OrderInParameters
SetPropertyValue("Controlling_InvoiceAdvance_Default", _Controlling_InvoiceAdvance_Default, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -234,6 +234,7 @@ Public Class OrderInRowsOther 'Egyéb sorok
SetPropertyValue("QualityOption", _QualityOption, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -250,6 +251,7 @@ Public Class OrderInRowsOther 'Egyéb sorok
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -301,6 +301,7 @@ Public Class ORI_Invoice_Popup
SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -73,6 +73,7 @@ Public Class RecipeFrom
End If
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -71,6 +71,7 @@ Public Class RecipeTo
End If
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -151,8 +151,9 @@ Public Class TakeoverProtocolHeader
SetPropertyValue("row_Installation", _row_Installation, value)
End Set
End Property
<NonPersistent()> _
<VisibleInListView(False)> _
<NonPersistent()>
<VisibleInListView(False)>
<DataSourceCriteria("IsActive != False")>
Property row_UniqueObjects() As UniqueObjects
Get
Return _row_UniqueObjects
@@ -27,6 +27,7 @@ Public Class TakeoverProtocolRows
SetPropertyValue("Installation", _Installation, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects() As UniqueObjects
Get
Return _UniqueObjects
@@ -97,6 +97,8 @@ Public Class Products
Private _CustomersOrder01 As CustomersOrder '1. beszállító
Private _CustomersOrder02 As CustomersOrder '2. beszállító
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
@@ -123,6 +125,18 @@ Public Class Products
End If
End If
End Sub
''' <summary>
''' Használatban van ?
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
Property ProductType As eProductType
Get
Return _ProductType
@@ -40,7 +40,8 @@ Public Class StorageInfromDeliveryNoteInRowsHeader
SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
End Set
End Property
<RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)> _
<RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -102,7 +102,8 @@ Public Class StorageInHeader
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
<RuleRequiredField("", DefaultContexts.Save)> _
<RuleRequiredField("", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -111,8 +112,9 @@ Public Class StorageInHeader
SetPropertyValue("Storage", _Storage, value)
End Set
End Property
<ImmediatePostData()> _
<RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")> _
<ImmediatePostData()>
<RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")>
<DataSourceCriteria("IsActive != False")>
Property StorageFrom As Storage
Get
Return _StorageFrom
@@ -65,6 +65,7 @@ Public Class InventoryHeader
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -38,7 +38,8 @@ Public Class InventoryParameters
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<RuleRequiredField("InventoryParameters - Storage", DefaultContexts.Save)> _
<RuleRequiredField("InventoryParameters - Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -44,7 +44,8 @@ Public Class CreateInventoryHeader_PopUp
End If
End Set
End Property
<RuleRequiredField("CreateInventoryHeader_PopUp-Storage", DefaultContexts.Save)> _
<RuleRequiredField("CreateInventoryHeader_PopUp-Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -48,6 +48,7 @@ Public Class StorageOutCirculation 'Fogyási mátrix
SetPropertyValue("CirculationType", _CirculationType, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -112,7 +112,7 @@ Public Class StorageOutHeader
End Set
End Property
<RuleRequiredField("", DefaultContexts.Save)>
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom' And IsActive != False")>
Property Storage() As Storage
Get
Return _Storage
@@ -128,7 +128,7 @@ Public Class StorageOutHeader
End If
End Set
End Property
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom' And IsActive != False")>
<RuleRequiredField("StorageOutHeader - StorageTo", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")>
Property StorageTo As Storage
Get
@@ -23,7 +23,8 @@ Public Class StorageInFromPDACollectionPopup
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<RuleRequiredField("StorageInFromPDACollectionPopup-Storage", DefaultContexts.Save)> _
<RuleRequiredField("StorageInFromPDACollectionPopup-Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -30,6 +30,7 @@ Public Class Storage '-- Raktárak ------------
Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR
Private _DeliveryNoteOutType_InventoryTransfer As DeliveryNoteOutType '--Szállítólevél a raktárközi átadás hoz
Private _DeliveryNoteOutType_ReturnBack As DeliveryNoteOutType '--Szállítólevél a visszárúhoz
Private _IsActive As Boolean '-- Ha false, akkor NE hozza fel
Public Sub New(ByVal session As Session)
MyBase.New(session)
@@ -199,6 +200,18 @@ Public Class Storage '-- Raktárak ------------
SetPropertyValue("DeliveryNoteOutType_ReturnBack", _DeliveryNoteOutType_ReturnBack, value)
End Set
End Property
''' <summary>
''' Aktív akkor használható
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
'-------------ReadOnly--------------
<VisibleInListView(False)> _
Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address)
@@ -48,6 +48,7 @@ Public Class StorageComputed '-- K
Me.RecalculateAveragePrice()
Me.RecalculateMinimumPrice()
End Sub
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -42,12 +42,7 @@ Partial Class StorageDateVC
Me.aGenerateStorageDate.Caption = "aGenerate Storage Date"
Me.aGenerateStorageDate.ConfirmationMessage = "Are you sure ?"
Me.aGenerateStorageDate.Id = "aGenerateStorageDate"
Me.aGenerateStorageDate.ImageName = Nothing
Me.aGenerateStorageDate.Shortcut = Nothing
Me.aGenerateStorageDate.Tag = Nothing
Me.aGenerateStorageDate.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDate.TargetObjectType = GetType(Nuvolar.[Module].StorageDate)
Me.aGenerateStorageDate.TargetViewId = Nothing
Me.aGenerateStorageDate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aGenerateStorageDate.ToolTip = Nothing
Me.aGenerateStorageDate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -57,12 +52,7 @@ Partial Class StorageDateVC
Me.aGenerateStorageDateClearingPrice.Caption = "aGenerate Storage Date Clearing Price"
Me.aGenerateStorageDateClearingPrice.ConfirmationMessage = "Are you sure ?"
Me.aGenerateStorageDateClearingPrice.Id = "aGenerateStorageDateClearingPrice"
Me.aGenerateStorageDateClearingPrice.ImageName = Nothing
Me.aGenerateStorageDateClearingPrice.Shortcut = Nothing
Me.aGenerateStorageDateClearingPrice.Tag = Nothing
Me.aGenerateStorageDateClearingPrice.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDateClearingPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aGenerateStorageDateClearingPrice.TargetViewId = Nothing
Me.aGenerateStorageDateClearingPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aGenerateStorageDateClearingPrice.ToolTip = Nothing
Me.aGenerateStorageDateClearingPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -74,44 +64,26 @@ Partial Class StorageDateVC
Me.aGenerateStorageDateClearingPrice_Products.Caption = "aGenerateStorageDateClearingPrice_Products"
Me.aGenerateStorageDateClearingPrice_Products.ConfirmationMessage = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Id = "aGenerateStorageDateClearingPrice_Products"
Me.aGenerateStorageDateClearingPrice_Products.ImageName = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Shortcut = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Tag = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aGenerateStorageDateClearingPrice_Products.TargetViewId = Nothing
Me.aGenerateStorageDateClearingPrice_Products.ToolTip = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TypeOfView = Nothing
'
'aStorageDateClearingPrice_ViewAttachments
'
Me.aStorageDateClearingPrice_ViewAttachments.Caption = "aStorageDateClearingPrice_ViewAttachments"
Me.aStorageDateClearingPrice_ViewAttachments.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.Id = "aStorageDateClearingPrice_ViewAttachments"
Me.aStorageDateClearingPrice_ViewAttachments.ImageName = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_ViewAttachments.Shortcut = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.Tag = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_ViewAttachments.TargetViewId = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.ToolTip = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TypeOfView = Nothing
'
'aStorageDateClearingPrice_DateAndValueReCalculate
'
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Caption = "aStorageDateClearingPrice_DateAndValueReCalculate"
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Id = "aStorageDateClearingPrice_DateAndValueReCalculate"
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ImageName = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Shortcut = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Tag = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetViewId = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ToolTip = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TypeOfView = Nothing
'
'aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows
'
@@ -120,15 +92,10 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Caption = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Id = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ImageName = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Shortcut = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Tag = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectsCriteria = "IsNull(InvoiceRows)=False"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetViewId = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ToolTip = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TypeOfView = Nothing
'
'aStorageDateClearingPrice_GeneterateDate2Date
'
@@ -137,14 +104,8 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_GeneterateDate2Date.Caption = "aStorageDateClearingPrice_GeneterateDate2Date"
Me.aStorageDateClearingPrice_GeneterateDate2Date.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Id = "aStorageDateClearingPrice_GeneterateDate2Date"
Me.aStorageDateClearingPrice_GeneterateDate2Date.ImageName = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Shortcut = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Tag = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetViewId = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.ToolTip = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TypeOfView = Nothing
'
'aStorageDateClearingPrice_SetSIRPrice
'
@@ -153,15 +114,10 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_SetSIRPrice.Caption = "aStorageDateClearingPrice_SetSIRPrice"
Me.aStorageDateClearingPrice_SetSIRPrice.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.Id = "aStorageDateClearingPrice_SetSIRPrice"
Me.aStorageDateClearingPrice_SetSIRPrice.ImageName = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_SetSIRPrice.Shortcut = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.Tag = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectsCriteria = "IsNull(StorageInRows)=False"
Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_SetSIRPrice.TargetViewId = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.ToolTip = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.TypeOfView = Nothing
'
'aSetBonusHUF
'
@@ -170,16 +126,23 @@ Partial Class StorageDateVC
Me.aSetBonusHUF.Caption = "aSet Bonus HUF"
Me.aSetBonusHUF.ConfirmationMessage = Nothing
Me.aSetBonusHUF.Id = "aSetBonusHUF"
Me.aSetBonusHUF.ImageName = Nothing
Me.aSetBonusHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aSetBonusHUF.Shortcut = Nothing
Me.aSetBonusHUF.Tag = Nothing
Me.aSetBonusHUF.TargetObjectsCriteria = Nothing
Me.aSetBonusHUF.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteInRRFC)
Me.aSetBonusHUF.TargetViewId = Nothing
Me.aSetBonusHUF.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aSetBonusHUF.ToolTip = Nothing
Me.aSetBonusHUF.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
'
'StorageDateVC
'
Me.Actions.Add(Me.aGenerateStorageDate)
Me.Actions.Add(Me.aGenerateStorageDateClearingPrice)
Me.Actions.Add(Me.aGenerateStorageDateClearingPrice_Products)
Me.Actions.Add(Me.aStorageDateClearingPrice_ViewAttachments)
Me.Actions.Add(Me.aStorageDateClearingPrice_DateAndValueReCalculate)
Me.Actions.Add(Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows)
Me.Actions.Add(Me.aStorageDateClearingPrice_GeneterateDate2Date)
Me.Actions.Add(Me.aStorageDateClearingPrice_SetSIRPrice)
Me.Actions.Add(Me.aSetBonusHUF)
End Sub
Friend WithEvents aGenerateStorageDateClearingPrice As DevExpress.ExpressApp.Actions.SimpleAction
@@ -118,31 +118,31 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aGenerateStorageDate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>17, 17</value>
</metadata>
<metadata name="aGenerateStorageDateClearingPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
<value>17, 56</value>
</metadata>
<metadata name="aGenerateStorageDateClearingPrice_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
<value>455, 17</value>
</metadata>
<metadata name="aStorageDateClearingPrice_ViewAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
<value>337, 95</value>
</metadata>
<metadata name="aStorageDateClearingPrice_DateAndValueReCalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
<value>17, 134</value>
</metadata>
<metadata name="aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
<value>264, 56</value>
</metadata>
<metadata name="aStorageDateClearingPrice_GeneterateDate2Date.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
<value>17, 95</value>
</metadata>
<metadata name="aStorageDateClearingPrice_SetSIRPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>430, 47</value>
<value>192, 17</value>
</metadata>
<metadata name="aSetBonusHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>361, 290</value>
<value>634, 95</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
@@ -58,7 +58,11 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -186,7 +190,10 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -614,7 +621,10 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -43,6 +43,7 @@ Public Class StorageLocation
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -32,6 +32,7 @@ Public Class StorageMoveType '-- Mozg
End Property
<RuleRequiredField("StorageMoveType-Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
@@ -78,6 +78,7 @@ Public Class WorkPlace
SetPropertyValue("Address", _Address, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -469,7 +469,8 @@ Public Class WorkSheet_Header
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<RuleRequiredField("WorkSheet_Header-UniqueObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireUniqueObjects=True")> _
<RuleRequiredField("WorkSheet_Header-UniqueObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -478,7 +479,8 @@ Public Class WorkSheet_Header
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<RuleRequiredField("WorkSheet_Header-CostPlace-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostPlace=True")> _
<RuleRequiredField("WorkSheet_Header-CostPlace-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostPlace=True")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -518,7 +518,8 @@ Public Class GLHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("GLHeader-row_CostPlace-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostPlace=True")>
Property row_CostPlace() As CostPlace
<DataSourceCriteria("IsActive != False")>
Property row_CostPlace As CostPlace
Get
Return _row_CostPlace
End Get
@@ -529,6 +530,7 @@ Public Class GLHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("GLHeader-row_CostHolder-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostHolder=True")>
<DataSourceCriteria("IsActive != False")>
Property row_CostHolder() As CostHolder
Get
Return _row_CostHolder
@@ -540,6 +542,7 @@ Public Class GLHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("GLHeader-row_UniqueObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property row_UniqueObjects() As UniqueObjects
Get
Return _row_UniqueObjects
@@ -551,6 +554,7 @@ Public Class GLHeader
<NonPersistent()>
<VisibleInListView(False)>
<RuleRequiredField("GLHeader-row_JobNumberObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property row_JobNumberObjects() As JobNumberObjects
Get
Return _row_JobNumberObjects
@@ -294,7 +294,8 @@ Public Class GLRows
End If
End Set
End Property
<RuleRequiredField("GLRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True and Require5DValidation=True")> _
<RuleRequiredField("GLRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True and Require5DValidation=True")>
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects() As JobNumberObjects
Get
Return _JobNumberObjects
@@ -303,7 +304,8 @@ Public Class GLRows
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<RuleRequiredField("GLRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True and Require5DValidation=True")> _
<RuleRequiredField("GLRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True and Require5DValidation=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects() As UniqueObjects
Get
Return _UniqueObjects
@@ -312,8 +314,9 @@ Public Class GLRows
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<RuleRequiredField("GLRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostPlace=True and Require5DValidation=True")> _
Property CostPlace() As CostPlace
<RuleRequiredField("GLRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostPlace=True and Require5DValidation=True")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
End Get
@@ -321,7 +324,8 @@ Public Class GLRows
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<RuleRequiredField("GLRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostHolder=True and Require5DValidation=True")> _
<RuleRequiredField("GLRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostHolder=True and Require5DValidation=True")>
<DataSourceCriteria("IsActive != False")>
Property CostHolder() As CostHolder
Get
Return _CostHolder
@@ -227,9 +227,10 @@ Public Class GLRowsDivideH
SetPropertyValue("row_Controlling", _row_Controlling, value)
End Set
End Property
<NonPersistent()> _
<ImmediatePostData(True)> _
<VisibleInListView(False)> _
<NonPersistent()>
<ImmediatePostData(True)>
<VisibleInListView(False)>
<DataSourceCriteria("IsActive != False")>
Property row_CostHolder As CostHolder
Get
Return _row_CostHolder
@@ -238,9 +239,10 @@ Public Class GLRowsDivideH
SetPropertyValue("row_CostHolder", _row_CostHolder, value)
End Set
End Property
<NonPersistent()> _
<ImmediatePostData(True)> _
<VisibleInListView(False)> _
<NonPersistent()>
<ImmediatePostData(True)>
<VisibleInListView(False)>
<DataSourceCriteria("IsActive != False")>
Property row_CostPlace As CostPlace
Get
Return _row_CostPlace
@@ -249,9 +251,10 @@ Public Class GLRowsDivideH
SetPropertyValue("row_CostPlace", _row_CostPlace, value)
End Set
End Property
<NonPersistent()> _
<ImmediatePostData(True)> _
<VisibleInListView(False)> _
<NonPersistent()>
<ImmediatePostData(True)>
<VisibleInListView(False)>
<DataSourceCriteria("IsActive != False")>
Property row_JobNumberObjects As JobNumberObjects
Get
Return _row_JobNumberObjects
@@ -260,9 +263,10 @@ Public Class GLRowsDivideH
SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value)
End Set
End Property
<NonPersistent()> _
<ImmediatePostData(True)> _
<VisibleInListView(False)> _
<NonPersistent()>
<ImmediatePostData(True)>
<VisibleInListView(False)>
<DataSourceCriteria("IsActive != False")>
Property row_UniqueObjects As UniqueObjects
Get
Return _row_UniqueObjects
@@ -123,6 +123,7 @@ Public Class GLRowsDivideR
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -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
@@ -65,7 +65,8 @@ Public Class FixedAssets
End Set
End Property
'<RuleUniqueValue("FixedAssets-UniqueObjects", DefaultContexts.Save, criteriaevaluationbehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction, targetcriteria:="")> _
<ImmediatePostData(True)> _
<ImmediatePostData(True)>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -157,6 +158,7 @@ Public Class FixedAssets
SetPropertyValue("CostHolder_Using", _CostHolder_Using, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace_Using As CostPlace
Get
Return _CostPlace_Using
@@ -112,7 +112,8 @@ Public Class FixedAssetsCard
SetPropertyValue("Description", _Description, value)
End Set
End Property
<NonCloneable()> _
<NonCloneable()>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -106,6 +106,7 @@ Public Class FixedAssetsUsingHeader
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPalce As CostPlace
Get
Return _CostPlace
@@ -12,12 +12,12 @@ Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports System.Linq.Expressions
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DeferredDeletion(False)> _
<RuleCriteria("RuleCriteria GLRowsCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki! (Controlling) ", SkipNullOrEmptyValues:=False)> _
<RuleCriteria("RuleCriteria GLRowsCheck-DebitChartOfAccounts", "*", "DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (DebitChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
<RuleCriteria("RuleCriteria GLRowsCheck-CreditChartOfAccounts", "*", "CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (CreditChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
<DefaultClassOptions()>
<NavigationItem(False), CreatableItem(False)>
<DeferredDeletion(False)>
<RuleCriteria("RuleCriteria GLRowsCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki! (Controlling) ", SkipNullOrEmptyValues:=False)>
<RuleCriteria("RuleCriteria GLRowsCheck-DebitChartOfAccounts", "*", "DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (DebitChartOfAccounts) ", SkipNullOrEmptyValues:=False)>
<RuleCriteria("RuleCriteria GLRowsCheck-CreditChartOfAccounts", "*", "CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (CreditChartOfAccounts) ", SkipNullOrEmptyValues:=False)>
Public Class GLRowsCheck 'Popup a csoportos módosításhoz
Inherits BaseObject
@@ -28,7 +28,7 @@ Public Class GLRowsCheck 'Popup a csoportos módosításhoz
<NonPersistent()> Public Property Controlling As Controlling
<NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
<NonPersistent()> Public Property CostHolder As CostHolder
<NonPersistent()> Public Property CostPlace As CostPlace
<NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostPlace As CostPlace
<NonPersistent()> Public Property UniqueObjects As UniqueObjects
<NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property DebitChartOfAccounts As ChartOfAccounts
<NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property CreditChartOfAccounts As ChartOfAccounts
@@ -217,6 +217,7 @@ Public Class GLCardsRows
SetPropertyValue("ShortName", _ShortNameTo, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -242,6 +243,7 @@ Public Class GLCardsRows
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -10,8 +10,8 @@ Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
<Appearance("Color Blue when not from GLRows II", AppearanceItemType:="ViewItem", Fontcolor:="Blue", targetitems:="*", Criteria:="GLReportRowsState in ('eRegistry','eInvoice')")> _
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
<Appearance("Color Blue when not from GLRows II", AppearanceItemType:="ViewItem", FontColor:="Blue", TargetItems:="*", Criteria:="GLReportRowsState in ('eRegistry','eInvoice')")>
Public Class GLReportCashflowRows
Inherits BaseObject
Private _GLReportRowsState As eGLReportRowsState
@@ -61,7 +61,7 @@ Public Class GLReportCashflowRows
SetPropertyValue("GLReportRowsState", _GLReportRowsState, value)
End Set
End Property
<Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowHeader))> _
<Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowHeader))>
Property GLReportCashflowHeader As GLReportCashflowHeader
Get
Return _GLReportCashflowHeader
@@ -87,6 +87,7 @@ Public Class GLReportCashflowRows
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -95,6 +96,7 @@ Public Class GLReportCashflowRows
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -103,6 +105,7 @@ Public Class GLReportCashflowRows
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -111,6 +114,7 @@ Public Class GLReportCashflowRows
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
@@ -141,6 +141,7 @@ Public Class GLReportRows
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -149,6 +150,7 @@ Public Class GLReportRows
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -157,6 +159,7 @@ Public Class GLReportRows
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -165,6 +168,7 @@ Public Class GLReportRows
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
@@ -57,6 +57,7 @@ Public Class ProjectPlanRows
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -65,6 +66,7 @@ Public Class ProjectPlanRows
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -73,6 +75,7 @@ Public Class ProjectPlanRows
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -81,6 +84,7 @@ Public Class ProjectPlanRows
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
@@ -49,6 +49,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
SetPropertyValue("Controlling", _Controlling, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -57,6 +58,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -65,6 +67,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -92,7 +92,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
Return Me.RegistryRowsFinancialControlling.ReInvoiceReason
End Get
End Property
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostHolder=True")> _
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostHolder=True")>
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -101,7 +102,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
SetPropertyValue("CostHolder", _CostHolder, value)
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostPlace=True")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -110,7 +112,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")> _
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
@@ -119,7 +122,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
<RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -10,8 +10,8 @@ Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
<DefaultClassOptions(), NonPersistent, CreatableItem(False), NavigationItem(False)> _
<Appearance("Hide ReInvoice_Customers if IsReinvoice is false", AppearanceItemType.ViewItem, "IsReinvoice=False", TargetItems:="ReInvoice_Customers", visibility:=Editors.ViewItemVisibility.Hide)> _
<DefaultClassOptions(), NonPersistent, CreatableItem(False), NavigationItem(False)>
<Appearance("Hide ReInvoice_Customers if IsReinvoice is false", AppearanceItemType.ViewItem, "IsReinvoice=False", TargetItems:="ReInvoice_Customers", Visibility:=Editors.ViewItemVisibility.Hide)>
Public Class RegistryTaskGoToNewtStepWithGLAccount
Inherits BaseObject
Public Sub New(ByVal session As Session)
@@ -21,18 +21,18 @@ Public Class RegistryTaskGoToNewtStepWithGLAccount
MyBase.AfterConstruction()
End Sub
<Browsable(False)> _
<Browsable(False)>
Property CustomersFrom As CustomersFrom
Property Controlling As Controlling
Property UniqueObjects As UniqueObjects
Property JobNumberObjects As JobNumberObjects
Property CostHolder As CostHolder
Property CostPlace As CostPlace
<ImmediatePostData()> _
<DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
<DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
<DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
<DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
<ImmediatePostData()>
Property IsReinvoice As Boolean = False
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
Property SelectedTasks As ArrayList
End Class
@@ -383,6 +383,7 @@ Public Class RegistryHeader '-- iktatórendszer
SetPropertyValue("RegistryNumber", _RegistryNumber, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects() As JobNumberObjects
Get
Return _JobNumberObjects
@@ -391,6 +392,7 @@ Public Class RegistryHeader '-- iktatórendszer
SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects() As UniqueObjects
Get
Return _UniqueObjects
@@ -895,6 +897,7 @@ Public Class RegistryHeader '-- iktatórendszer
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryHeader-row_RRFC_CostPlace", "aToTable_RRFC_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostPlace")>
<RuleRequiredField("RegistryHeader-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostPlace")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_CostPlace As CostPlace
Get
Return _row_RRFC_CostPlace
@@ -906,6 +909,7 @@ Public Class RegistryHeader '-- iktatórendszer
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryHeader-row_RRFC_CostHolder", "aToTable_RRFC_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostHolder")>
<RuleRequiredField("RegistryHeader-row_RRFC_CostHolder_T", "aToTable_RRFC_With_TContract_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostHolder")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_CostHolder As CostHolder
Get
Return _row_RRFC_CostHolder
@@ -917,6 +921,7 @@ Public Class RegistryHeader '-- iktatórendszer
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryHeader-row_RRFC_JobNumberObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
<RuleRequiredField("RegistryHeader-row_RRFC_JobNumberObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_JobNumberObjects As JobNumberObjects
Get
Return _row_RRFC_JobNumberObjects
@@ -928,6 +933,7 @@ Public Class RegistryHeader '-- iktatórendszer
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryHeader-row_RRFC_UniqueObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireUniqueObjects")>
<RuleRequiredField("RegistryHeader-row_RRFC_UniqueObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireUniqueObjects")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_UniqueObjects As UniqueObjects
Get
Return _row_RRFC_UniqueObjects
@@ -188,7 +188,8 @@ Public Class RegistryRowsFinancialControlling
End If
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling-CostHolder", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")> _
<RuleRequiredField("RegistryRowsFinancialControlling-CostHolder", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")>
<DataSourceCriteria("IsActive != False")>
Property CostHolder As CostHolder
Get
Return _CostHolder
@@ -203,7 +204,8 @@ Public Class RegistryRowsFinancialControlling
End If
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling-CostPlace", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
<RuleRequiredField("RegistryRowsFinancialControlling-CostPlace", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
<DataSourceCriteria("IsActive != False")>
Property CostPlace As CostPlace
Get
Return _CostPlace
@@ -212,7 +214,8 @@ Public Class RegistryRowsFinancialControlling
SetPropertyValue("CostPlace", _CostPlace, value)
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling-UniqueObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")> _
<RuleRequiredField("RegistryRowsFinancialControlling-UniqueObjects", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -227,7 +230,8 @@ Public Class RegistryRowsFinancialControlling
End If
End Set
End Property
<RuleRequiredField("RegistryRowsFinancialControlling-JobNumberObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")> _
<RuleRequiredField("RegistryRowsFinancialControlling-JobNumberObjects", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
<DataSourceCriteria("IsActive != False")>
Property JobNumberObjects As JobNumberObjects
Get
Return _JobNumberObjects
@@ -156,9 +156,10 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
SetPropertyValue("row_RRFC_Controlling", _row_RRFC_Controlling, value)
End Set
End Property
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
<RuleRequiredField("RegistryTask-row_RRFC_CostPlace", "aToTable_RRFC_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
<RuleRequiredField("RegistryTask-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryTask-row_RRFC_CostPlace", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
<RuleRequiredField("RegistryTask-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_CostPlace As CostPlace
Get
Return _row_RRFC_CostPlace
@@ -237,6 +238,7 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
<RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_JobNumberObjects As JobNumberObjects
Get
Return _row_RRFC_JobNumberObjects
@@ -248,6 +250,7 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
<RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
<RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
<DataSourceCriteria("IsActive != False")>
Property row_RRFC_UniqueObjects As UniqueObjects
Get
Return _row_RRFC_UniqueObjects
@@ -68,6 +68,7 @@ Public Class RegistryTelephone
SetPropertyValue("RegistryTelephoneParameters", _RegistryTelephoneParameters, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -39,7 +39,7 @@ Public Class Controlling
Private _RequireCars As Boolean = False
Private _RequireHRPerson As Boolean
Private _RequirePhones As Boolean = False
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
If session.IsObjectsLoading = False And session.IsObjectsSaving = False Then
@@ -78,7 +78,18 @@ Public Class Controlling
Next
Me.ReconfigureGroup(Nothing, Me, False)
End Sub
''' <summary>
''' Használatban van ?
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
<ImmediatePostData(True), DataSourceProperty("CollectionOfControlling")>
<NonPersistent>
Property ParentObject As Controlling
@@ -13,11 +13,23 @@ Imports DevExpress.Persistent.Validation
<NavigationItem("FinancialStock")> _
Public Class CostHolder
Inherits HCategory
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
''' <summary>
''' Használatban van ?
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder)
Get
@@ -13,9 +13,22 @@ Imports DevExpress.Persistent.Validation
<NavigationItem("FinancialStock")> _
Public Class CostPlace
Inherits HCategory
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
''' <summary>
''' Használatban van ?
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
<NonPersistent>
<ImmediatePostData(True), DataSourceProperty("CollectionOfCostPlace")>
Property ParentObject As CostPlace
@@ -13,10 +13,18 @@ Imports DevExpress.Persistent.Validation
<NavigationItem("FinancialStock")> _
Public Class JobNumberObjects
Inherits HCategory
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
<NonPersistent>
<ImmediatePostData(True), DataSourceProperty("CollectionOfJobNumberObjects")>
Property ParentObject As JobNumberObjects
@@ -9,20 +9,21 @@ Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem("FinancialStock")> _
<DefaultClassOptions()>
<NavigationItem("FinancialStock")>
Public Class UniqueObjects
Inherits HCategory
Private _Cars As Cars
Private _Phones As Phones
Private _HRPerson As HRPerson
Private _IsActive As Boolean
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
<Browsable(False)> _
<Browsable(False)>
Property Cars As Cars
Get
Return _Cars
@@ -31,7 +32,7 @@ Public Class UniqueObjects
SetPropertyValue("Cars", _Cars, value)
End Set
End Property
<Browsable(False)> _
<Browsable(False)>
Property Phones As Phones
Get
Return _Phones
@@ -40,7 +41,7 @@ Public Class UniqueObjects
SetPropertyValue("Phones", _Phones, value)
End Set
End Property
<Browsable(False)> _
<Browsable(False)>
Property HRPerson As HRPerson
Get
Return _HRPerson
@@ -49,7 +50,18 @@ Public Class UniqueObjects
SetPropertyValue("HRPerson", _HRPerson, value)
End Set
End Property
''' <summary>
''' Használatban van ?
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
<NonPersistent>
<ImmediatePostData(True), DataSourceProperty("CollectionOfUniqueObjects")>
Property ParentObject As UniqueObjects
@@ -60,9 +72,9 @@ Public Class UniqueObjects
MyBase.Parent = value
End Set
End Property
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
<Browsable(False)> _
<NonPersistent()> _
<VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
<Browsable(False)>
<NonPersistent()>
Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects)
Get
Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))
@@ -123,6 +123,7 @@ Public Class Cars
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -182,6 +182,7 @@ Public Class HRPerson
SetPropertyValue("Post", _Post, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
@@ -108,7 +108,7 @@ Public Class Phones
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property UniqueObjects As UniqueObjects
Get
Return _UniqueObjects
+8 -8
View File
@@ -4571,8 +4571,8 @@
</NavigationItems>
<Options NAVProgramPath="c:\NAV\abevjava_start.bat" />
<SchemaModules>
<SchemaModule Name="CloneObjectModule" Version="16.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemModule" Version="16.2.3.0" IsNewNode="True" />
<SchemaModule Name="CloneObjectModule" Version="17.2.3.0" IsNewNode="True" />
<SchemaModule Name="SystemModule" Version="17.2.3.0" IsNewNode="True" />
</SchemaModules>
<Validation>
<Contexts>
@@ -5449,7 +5449,7 @@
<ColumnInfo Id="SumGrossMarginHUF" Removed="True" />
</Columns>
</ListView>
<ListView Id="APCSheetByProducts_ListView" AutoExpandAllGroups="True" IsListViewProcess="False" IsGroupFooterVisible="True" ImageName="Action_Grand_Totals_Row" MasterDetailMode="ListViewAndDetailView" AllowDelete="False" AllowNew="False" Criteria="[APCSheetHeader] Is Not Null And [APCSheetHeader.Customers] Is Not Null And [APCSheetHeader.CustomersFrom] Is Not Null">
<ListView Id="APCSheetByProducts_ListView" AutoExpandAllGroups="True" IsListViewProcess="False" IsGroupFooterVisible="True" ImageName="Action_Grand_Totals_Row" MasterDetailMode="ListViewAndDetailView" AllowDelete="False" AllowNew="False" Criteria="[APCSheetHeader] Is Not Null And [APCSheetHeader.Customers] Is Not Null And [APCSheetHeader.CustomersFrom] Is Not Null And [APCSheetHeader.IsActive] &lt;&gt; False">
<Columns>
<ColumnInfo Id="APCSheetHeader.APCStatus" PropertyName="APCSheetHeader.APCStatus" Index="0" GroupIndex="0" IsNewNode="True" />
<ColumnInfo Id="APCSheetHeader.CustomersFrom" PropertyName="APCSheetHeader.CustomersFrom" Index="1" GroupIndex="1" IsNewNode="True" />
@@ -8712,8 +8712,8 @@
<LayoutGroup Id="Main" RelativeSize="100" ImageName="">
<LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
<LayoutGroup Id="CostHolder" RelativeSize="100" ImageName="">
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
<LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
</LayoutGroup>
<LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
<LayoutItem Id="Name" ViewItem="Name" Removed="True" />
@@ -8737,8 +8737,8 @@
<LayoutGroup Id="Main" RelativeSize="100" ImageName="">
<LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
<LayoutGroup Id="CostPlace" RelativeSize="100" ImageName="">
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
<LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
</LayoutGroup>
<LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
<LayoutItem Id="Name" ViewItem="Name" Removed="True" />
@@ -26627,7 +26627,7 @@
</LayoutGroup>
</Layout>
</DetailView>
<ListView Id="StorageComputed_ListView" AutoExpandAllGroups="True" AllowDelete="False" AllowNew="False" IsGroupFooterVisible="True" MasterDetailMode="ListViewAndDetailView" IsListViewProcess="False" AllowEdit="True">
<ListView Id="StorageComputed_ListView" AutoExpandAllGroups="True" AllowDelete="False" AllowNew="False" IsGroupFooterVisible="True" MasterDetailMode="ListViewAndDetailView" IsListViewProcess="False" AllowEdit="True" Criteria="[Storage.IsActive] &lt;&gt; False">
<Columns>
<ColumnInfo Id="CustomersFrom" PropertyName="Storage.CustomersFrom" GroupIndex="0" Index="0" IsNewNode="True" />
<ColumnInfo Id="Storage" Index="1" GroupIndex="1" />
@@ -26653,7 +26653,7 @@
</Filters>
<SplitLayout Direction="Vertical" />
</ListView>
<ListView Id="StorageComputed_LookupListView">
<ListView Id="StorageComputed_LookupListView" Criteria="[Storage.IsActive] &lt;&gt; False">
<Columns>
<ColumnInfo Id="Storage" PropertyName="Storage" Index="0" IsNewNode="True" />
<ColumnInfo Id="Products.ProductNumber" PropertyName="Products.ProductNumber" Index="1" IsNewNode="True" />
@@ -28515,8 +28515,8 @@
<LayoutGroup Id="Main" RelativeSize="100" ImageName="">
<LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
<LayoutGroup Id="UniqueObjects" RelativeSize="100" ImageName="">
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
<LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
<LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
</LayoutGroup>
<LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
<LayoutItem Id="Name" ViewItem="Name" Removed="True" />
+2
View File
@@ -1 +1,3 @@
DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+22 -22
View File
@@ -233,30 +233,30 @@ Public Class Updater
End If
SetDefaultStorage(ObjectSpace)
SetWorkflow(ObjectSpace)
SetCRM(ObjectSpace)
SetDefaultfixedAssets(ObjectSpace)
'SetDefaultStorage(ObjectSpace)
'SetWorkflow(ObjectSpace)
'SetCRM(ObjectSpace)
'SetDefaultfixedAssets(ObjectSpace)
'_2011_11_22(ObjectSpace, CurrentDBVersion)
_2012_03_01(ObjectSpace, CurrentDBVersion)
_2012_03_10(ObjectSpace, CurrentDBVersion)
_2012_04_13(ObjectSpace, CurrentDBVersion)
_2012_05_02(ObjectSpace, CurrentDBVersion)
_2012_05_08(ObjectSpace, CurrentDBVersion)
_2012_08_31(ObjectSpace, CurrentDBVersion)
_2012_10_29(ObjectSpace, CurrentDBVersion)
_2012_11_08(ObjectSpace, CurrentDBVersion)
_2013_04_17(ObjectSpace, CurrentDBVersion)
_2013_04_25(ObjectSpace, CurrentDBVersion)
_2013_07_23(ObjectSpace, CurrentDBVersion)
_2013_07_23_1(ObjectSpace, CurrentDBVersion)
_2014_02_14(ObjectSpace, CurrentDBVersion)
_2014_03_07(ObjectSpace, CurrentDBVersion)
_2016_01_28(ObjectSpace, CurrentDBVersion)
ProductsGant(ObjectSpace)
''_2011_11_22(ObjectSpace, CurrentDBVersion)
'_2012_03_01(ObjectSpace, CurrentDBVersion)
'_2012_03_10(ObjectSpace, CurrentDBVersion)
'_2012_04_13(ObjectSpace, CurrentDBVersion)
'_2012_05_02(ObjectSpace, CurrentDBVersion)
'_2012_05_08(ObjectSpace, CurrentDBVersion)
'_2012_08_31(ObjectSpace, CurrentDBVersion)
'_2012_10_29(ObjectSpace, CurrentDBVersion)
'_2012_11_08(ObjectSpace, CurrentDBVersion)
'_2013_04_17(ObjectSpace, CurrentDBVersion)
'_2013_04_25(ObjectSpace, CurrentDBVersion)
'_2013_07_23(ObjectSpace, CurrentDBVersion)
'_2013_07_23_1(ObjectSpace, CurrentDBVersion)
'_2014_02_14(ObjectSpace, CurrentDBVersion)
'_2014_03_07(ObjectSpace, CurrentDBVersion)
'_2016_01_28(ObjectSpace, CurrentDBVersion)
'ProductsGant(ObjectSpace)
' ZIPHUUpdate(ObjectSpace)
StorageOut_Storno_Regenerate(ObjectSpace)
'StorageOut_Storno_Regenerate(ObjectSpace)
'RegistryHeader_UserCreated(ObjectSpace)