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
