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