First create solution
This commit is contained in:
+66
@@ -0,0 +1,66 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CloseWorkSheet_SubcontractorpopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _WorkSheetFile As FileData
|
||||
Private _SubcontractorInvoice As FileData
|
||||
Private _Description As String
|
||||
Private _DateClosed As Date
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property WorkSheetFile As FileData
|
||||
Get
|
||||
Return _WorkSheetFile
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("WorkSheetFile", _WorkSheetFile, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SubcontractorInvoice As FileData
|
||||
Get
|
||||
Return _SubcontractorInvoice
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("SubcontractorInvoice", _SubcontractorInvoice, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateClosed As Date
|
||||
Get
|
||||
Return _DateClosed
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateClosed", _DateClosed, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
+158
@@ -0,0 +1,158 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable CreateInvoiceFromWorksheetCost_PopUp-CurrencyRate, when WorkSheet_Header.CurrencyName.ShortName=HUF ", AppearanceItemType.ViewItem, " WorkSheet_Header.CurrencyName.ShortName='HUF'", TargetItems:="CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable CreateInvoiceFromWorksheetCost_PopUp-BankInformation, when PaymentOption.PayMode=0 ", AppearanceItemType.ViewItem, "PaymentOption.PayMode=0", TargetItems:="BankInformation", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CreateInvoiceFromWorksheetCost_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Customers As Customers
|
||||
Private _InvoiceType As InvoiceType
|
||||
Private _InvoicePeriod As String 'Számlázási idõszak string
|
||||
Private _Description As String
|
||||
Private _DescriptionHeader As String 'Számlán szereplõ fejléc megjegyzés
|
||||
Private _DateExecution As Date 'Teljesítés dátuma
|
||||
Private _DatePayment As Date 'Fizetési határidõ
|
||||
Private _PaymentOption As PaymentOption
|
||||
Private _CurrencyRate As Double
|
||||
Private _BankInformation As BankInformation
|
||||
Private _WorkSheet_Header As WorkSheet_Header
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
DatePayment = GetSQLTime(Session)
|
||||
End Sub
|
||||
|
||||
Property Customers() As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom='@This.WorkSheet_Header.CustomersFrom' and InvoiceTypeBase in (2,3)")>
|
||||
Property InvoiceType() As InvoiceType
|
||||
Get
|
||||
Return _InvoiceType
|
||||
End Get
|
||||
Set(ByVal value As InvoiceType)
|
||||
SetPropertyValue("InvoiceType", _InvoiceType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InvoicePeriod As String
|
||||
Get
|
||||
Return _InvoicePeriod
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property DescriptionHeader As String
|
||||
Get
|
||||
Return _DescriptionHeader
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DescriptionHeader", _DescriptionHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution() As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DatePayment() As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()>
|
||||
Property PaymentOption As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value.PayMode = ePayMode.InCash Then
|
||||
Me.DateExecution = GetSQLTime(Session)
|
||||
Me.DatePayment = GetSQLTime(Session)
|
||||
ElseIf value.PayMode = ePayMode.InContinuous Then
|
||||
Me.DateExecution = Me.DatePayment
|
||||
ElseIf value.PayMode = ePayMode.InTransfer Then
|
||||
Me.DatePayment = DateAdd(DateInterval.Day, value.PayDay, GetSQLTime(Session))
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'<RuleRange("InvoiceHeader-CurrencyRate-aToTable", "aToTable_Invoice_Contexts", 1, Double.MaxValue, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
|
||||
'<RuleRange("CreateInvoiceFromWorksheetCost_PopUp-CurrencyRate", DefaultContexts.Save, 1, Double.MaxValue, TargetCriteria:="WorkSheet_Header.CurrencyName.ShortName <> 'HUF'")> _
|
||||
Property CurrencyRate() As Double
|
||||
Get
|
||||
Return _CurrencyRate
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.WorkSheet_Header.CustomersFrom'")>
|
||||
Property BankInformation As BankInformation
|
||||
Get
|
||||
Return _BankInformation
|
||||
End Get
|
||||
Set(ByVal value As BankInformation)
|
||||
SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInDetailView(False)> _
|
||||
Property WorkSheet_Header As WorkSheet_Header
|
||||
Get
|
||||
Return _WorkSheet_Header
|
||||
End Get
|
||||
Set(value As WorkSheet_Header)
|
||||
SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'--------------ReadOnly-------------
|
||||
'ReadOnly Property Worksheet_CostRows As XPCollection(Of Worksheet_CostRows)
|
||||
' Get 'Dim _OrderOutRows As OrderOutRows
|
||||
' Dim _Worksheet_CostRows_Collection As XPCollection(Of Worksheet_CostRows)
|
||||
|
||||
' _Worksheet_CostRows_Collection = New XPCollection(Of Worksheet_CostRows)(Session, CriteriaOperator.Parse("WorkSheet_Header.Oid=? AND IsNull(InvoiceRows)=True", Me.WorkSheet_Header.Oid))
|
||||
' Return _Worksheet_CostRows_Collection
|
||||
' End Get
|
||||
'End Property
|
||||
End Class
|
||||
+231
@@ -0,0 +1,231 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
<Appearance("Disable CustomersFrom in Popup", "ViewItem", targetitems:="CustomersFrom", criteria:="isnull(CustomersFrom)=False", enabled:=False)> _
|
||||
<Appearance("Disable WorkSheet_Header_Collection in Popup, when WorkSheet_Header_Collection.Count=0", "ViewItem", targetitems:="WorkSheet_Header_Collection", criteria:="WorkSheet_Header_Collection.Count=0", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class OpenWorkSheet_SubcontractorPopUp
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _WorkSheetType As WorkSheetType
|
||||
Private _DateCreated As Date
|
||||
Private _Subcontractor As Subcontractor
|
||||
Private _InvoiceState As eInvoiceState 'Számlázási állapot
|
||||
Private _WorkState As WorkState 'Munkafolyamat
|
||||
Private _Question As Question
|
||||
Private _Description As String
|
||||
Private _WorkPlace As WorkPlace
|
||||
Private _WorkHour As Double
|
||||
Private _WorkDescription As String
|
||||
Private _WorkUsedMaterialDescription As String
|
||||
Private _WorkDescriptionOther As String
|
||||
Private _WorkTravelKm As Long
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User))
|
||||
Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers))
|
||||
End Sub
|
||||
<ImmediatePostData()> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.WorkPlace = Nothing
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceProperty("WorkSheetType_Collection")>
|
||||
Property WorkSheetType As WorkSheetType
|
||||
Get
|
||||
Return _WorkSheetType
|
||||
End Get
|
||||
Set(value As WorkSheetType)
|
||||
SetPropertyValue("WorkSheetType", _WorkSheetType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)>
|
||||
<VisibleInDetailView(False)>
|
||||
Property Subcontractor As Subcontractor
|
||||
Get
|
||||
Return _Subcontractor
|
||||
End Get
|
||||
Set(value As Subcontractor)
|
||||
SetPropertyValue("Subcontractor", _Subcontractor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InvoiceState As eInvoiceState
|
||||
Get
|
||||
Return _InvoiceState
|
||||
End Get
|
||||
Set(value As eInvoiceState)
|
||||
SetPropertyValue("InvoiceState", _InvoiceState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WorkState As WorkState
|
||||
Get
|
||||
Return _WorkState
|
||||
End Get
|
||||
Set(value As WorkState)
|
||||
SetPropertyValue("WorkState", _WorkState, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)>
|
||||
<VisibleInDetailView(False)>
|
||||
Property Question As Question
|
||||
Get
|
||||
Return _Question
|
||||
End Get
|
||||
Set(value As Question)
|
||||
SetPropertyValue("Question", _Question, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceProperty("WorkPlace_Collection")>
|
||||
Property WorkPlace As WorkPlace
|
||||
Get
|
||||
Return _WorkPlace
|
||||
End Get
|
||||
Set(value As WorkPlace)
|
||||
SetPropertyValue("WorkPlace", _WorkPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WorkHour As Double
|
||||
Get
|
||||
Return _WorkHour
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("WorkHour", _WorkHour, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property WorkDescription As String
|
||||
Get
|
||||
Return _WorkDescription
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WorkDescription", _WorkDescription, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property WorkUsedMaterialDescription As String
|
||||
Get
|
||||
Return _WorkUsedMaterialDescription
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property WorkDescriptionOther As String
|
||||
Get
|
||||
Return _WorkDescriptionOther
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WorkTravelKm As Long
|
||||
Get
|
||||
Return _WorkTravelKm
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("WorkTravelKm", _WorkTravelKm, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
Private ReadOnly Property WorkPlace_Collection As XPCollection(Of WorkPlace)
|
||||
Get
|
||||
If Me.CustomersFrom Is Nothing Then
|
||||
Return Nothing
|
||||
End If
|
||||
Dim _WorkPlace_Collection_All As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("CustomersFrom.Oid=?", Me.CustomersFrom.Oid))
|
||||
Dim _WorkPlace_Collection As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("1=2"))
|
||||
Dim _WorkPlace As WorkPlace
|
||||
Dim _WorkPlace_ArrayList As New ArrayList
|
||||
Dim _SubcontractorCustomers_Collection As New XPCollection(Of SubcontractorCustomers)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", Me.Subcontractor.Oid))
|
||||
Dim _SubcontractorCustomers As SubcontractorCustomers
|
||||
|
||||
'_SubcontractorCustomers.Customers.Contacts
|
||||
_WorkPlace_ArrayList.Clear()
|
||||
For Each _WorkPlace In _WorkPlace_Collection_All
|
||||
For Each _SubcontractorCustomers In _SubcontractorCustomers_Collection
|
||||
If _SubcontractorCustomers.Workplace IsNot Nothing Then
|
||||
If _WorkPlace.Oid = _SubcontractorCustomers.Workplace.Oid Then
|
||||
If _WorkPlace_ArrayList.Contains(_WorkPlace) Then
|
||||
Else
|
||||
_WorkPlace_ArrayList.Add(_WorkPlace)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
For Each _WorkPlace In _WorkPlace_ArrayList
|
||||
_WorkPlace_Collection.Add(_WorkPlace)
|
||||
Next
|
||||
|
||||
Return _WorkPlace_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
Private ReadOnly Property WorkSheetType_Collection As XPCollection(Of WorkSheetType)
|
||||
Get
|
||||
Dim _WorkSheetType_Collection_Back As New XPCollection(Of WorkSheetType)(Session, CriteriaOperator.Parse("Oid<>Oid"))
|
||||
For Each _ActWorkSheetType As SubcontractorWorksheetType In Me.Subcontractor.SubcontractorWorksheetType
|
||||
If Me.CustomersFrom IsNot Nothing Then
|
||||
If _ActWorkSheetType.WorkSheetType.CustomersFrom.Oid = Me.CustomersFrom.Oid Then
|
||||
_WorkSheetType_Collection_Back.Add(_ActWorkSheetType.WorkSheetType)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return _WorkSheetType_Collection_Back
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header)
|
||||
Get
|
||||
If Question IsNot Nothing AndAlso Subcontractor IsNot Nothing Then
|
||||
Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Question.Oid=? AND SubcontractorCustomers.Oid=?", Question.Oid, Subcontractor.Customers.Oid))
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,46 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<NonPersistent()> _
|
||||
Public Class ReopenWorkSheet_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
|
||||
Private _Description As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type
|
||||
Get
|
||||
Return _WorkSheet_ReopenReason_Type
|
||||
End Get
|
||||
Set(value As WorkSheet_ReopenReason_Type)
|
||||
SetPropertyValue("WorkSheet_ReopenReason_Type", _WorkSheet_ReopenReason_Type, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+36
@@ -0,0 +1,36 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class WorkSheet_Header_AddHRPerson_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _HRPerson As HRPerson
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+45
@@ -0,0 +1,45 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class WorkSheetfromQuestion_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _WorkSheetType As WorkSheetType 'Munkalap tipusa
|
||||
Private _CustomersFrom As CustomersFrom 'Saját cég
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
|
||||
Property WorkSheetType() As WorkSheetType
|
||||
Get
|
||||
Return _WorkSheetType
|
||||
End Get
|
||||
Set(ByVal value As WorkSheetType)
|
||||
SetPropertyValue("WorkSheetType", _WorkSheetType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom() As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+85
@@ -0,0 +1,85 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<NonPersistent()> _
|
||||
Public Class Worksheet_CostRows_ChangeGroup
|
||||
Inherits BaseObject
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Change_RowGroup1 = False
|
||||
Change_RowGroup2 = False
|
||||
_Change_Controlling = False
|
||||
End Sub
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup1 As Boolean
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup2 As Boolean
|
||||
Private _Change_Controlling As Boolean
|
||||
Private _Controlling As Controlling
|
||||
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup1 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup1
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup2 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup2
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_Controlling As Boolean
|
||||
Get
|
||||
Return _Change_Controlling
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_Controlling", _Change_Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,63 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<NonPersistent()> _
|
||||
Public Class Worksheet_Rows_ChangeGroup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Change_RowGroup1 = False
|
||||
Change_RowGroup2 = False
|
||||
End Sub
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup1 As Boolean
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup2 As Boolean
|
||||
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup1 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup1
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup2 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup2
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Reference in New Issue
Block a user