65 lines
3.3 KiB
VB.net
65 lines
3.3 KiB
VB.net
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.Persistent.Base.General
|
|
Imports System.Data.SqlClient
|
|
Imports System.Configuration
|
|
Imports System.Linq
|
|
Imports System.Linq.Expressions
|
|
Imports DevExpress.ExpressApp.ConditionalAppearance
|
|
|
|
<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)
|
|
MyBase.New(session)
|
|
End Sub
|
|
<Key(True), Persistent("Oid")> Public Oid As Guid
|
|
<Persistent("PartnerType")> Public PartnerType As ePartnerType
|
|
<Persistent("GLRowsTypeVAT")> Public GLRowsTypeVAT As eGLRowsTypeVAT
|
|
<Persistent("CustomersFrom")> Public CustomersFrom As CustomersFrom
|
|
<Persistent("Customers")> Public Customers As Customers
|
|
<Persistent("DateExecution")> Public DateExecution As Date
|
|
<Persistent("DocumentNumber")> Public DocumentNumber As String
|
|
<Persistent("RegistryNumber")> Public RegistryNumber As String
|
|
<Persistent("DebitChartOfAccounts")> Public DebitChartOfAccounts As ChartOfAccounts
|
|
<Persistent("CreditChartOfAccounts")> Public CreditChartOfAccounts As ChartOfAccounts
|
|
<Persistent("Controlling")> Public Controlling As Controlling
|
|
<Persistent("JobNumberObjects")> Public JobNumberObjects As JobNumberObjects
|
|
<Persistent("UniqueObjects")> Public UniqueObjects As UniqueObjects
|
|
<Persistent("CostPlace")> Public CostPlace As CostPlace
|
|
<Persistent("CostHolder")> Public CostHolder As CostHolder
|
|
<Persistent("CurrencyRate")> Public CurrencyRate As Double
|
|
<Persistent("AmountHUF")> Public AmountHUF As Double
|
|
<Persistent("AmountDEV")> Public AmountDEV As Double
|
|
<Persistent("Note1")> Public Note1 As String
|
|
<Persistent("Note2")> Public Note2 As String
|
|
<Persistent("VAT")> Public VAT As VAT
|
|
<Persistent("ChartOfAccounts2")> Public ChartOfAccounts2 As ChartOfAccounts
|
|
<Persistent("IsReinvoice")> Public IsReinvoice As String
|
|
<Persistent("ContractRows")> Public ContractRows As ContractRows
|
|
<Persistent("RegistryHeader")> Public RegistryHeader As RegistryHeader
|
|
<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
|
|
For Each _RegistryTask As RegistryTasks In _RegistryTasks_coll
|
|
_RegistryHeader_Oid_array.Add(_RegistryTask.RegistryHeader.Oid)
|
|
Next
|
|
Dim _RegistryHeader_coll As New XPCollection(GetType(RegistryHeader), New InOperator("Oid", _RegistryTasks_coll))
|
|
Dim _RegistryRowsFinancialControlling As New XPCollection(GetType(RegistryRowsFinancialControlling), New InOperator("RegistryHeader", _RegistryHeader_coll))
|
|
End Sub
|
|
End Class
|