ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Jelölő adatok IsActive

Browse Source 
Mezőgazdaság termeltetés IsActive
Számviteli készletnél szállítólevél DateExecution
This commit is contained in:
ivanszabo
2018-03-12 10:53:58 +01:00
parent 50a572daf3
commit dd449f32d7
74 changed files with 355 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb
+4 -2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb
+2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb
+3 -3
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb
+2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb
+1
View File
@@ -24,6 +24,7 @@ Public Class DeliveryNoteInToStorageInHeader
MyBase.AfterConstruction()
IsRegistry = False
End Sub
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb
+2 -2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb
+2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb
+3 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb
+2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb
+6 -6
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeader.vb
+1 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInParameters.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOther.vb
+2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Popup.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFrom.vb
+1
View File
@@ -73,6 +73,7 @@ Public Class RecipeFrom
End If
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeTo.vb
+1
View File
@@ -71,6 +71,7 @@ Public Class RecipeTo
End If
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocol.vb
+3 -2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolRows.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/Products/Products.vb
+14
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsHeader.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageInHeader.vb
+5 -3
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryHeader.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryParameters.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/PopUp/CreateInventoryHeader_PopUp.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutCirculation.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb
+2 -2
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StorageInFromPDACollectionPopup.vb
+2 -1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb
+13
View File
@@ -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)
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb
+1
View File
@@ -48,6 +48,7 @@ Public Class StorageComputed '-- K
Me.RecalculateAveragePrice()
Me.RecalculateMinimumPrice()
End Sub
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb
Generated
+12 -49
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx
+9 -9
View File
@@ -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>
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.vb
+13 -3
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb
+1
View File
@@ -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
Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb
+4 -2
View File
@@ -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