ivanszabo
dd449f32d7
Mezőgazdaság termeltetés IsActive Számviteli készletnél szállítólevél DateExecution
747 lines
49 KiB
VB.net
747 lines
49 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.Generic
|
|
Imports System.Diagnostics
|
|
Imports System.Text
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
Imports System.Linq
|
|
Imports DevExpress.Xpo.DB
|
|
|
|
Public Class StorageDateVC
|
|
Inherits DevExpress.ExpressApp.ViewController
|
|
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
|
Public Event DoWork()
|
|
Public Event FinalWork()
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
|
|
End Sub
|
|
|
|
Private Sub aGenerateStorageDateClearingPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice.Execute
|
|
Try
|
|
GLOBAL_HAS_Audit = False
|
|
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
Dim _Products As Products
|
|
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
|
|
|
|
Dim _Products_Collection As New XPCollection(Of Products)(_uow)
|
|
RaiseEvent InitWork(1, 1, _Products_Collection.Count)
|
|
For Each _Products In _Products_Collection
|
|
RaiseEvent DoWork()
|
|
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=?", _Products))
|
|
_uow.Delete(_StorageDateClearingPrice_Collection)
|
|
_uow.CommitChanges()
|
|
|
|
|
|
'// Igazolt szállítólevél sorok
|
|
Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
|
|
Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
|
|
_DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
|
|
CriteriaOperator.Parse("DeliveryNoteInRows.Products=?", _Products))
|
|
|
|
_DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
|
|
|
|
'_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
|
|
_uow.CommitChanges()
|
|
Next
|
|
|
|
'Kimenõ számla sorok
|
|
Dim _InvoiceRows As InvoiceRows
|
|
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
|
|
CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
|
|
"InvoiceHeader.IsEditable=False and " +
|
|
"InvoiceHeader.IsStorno=False and " +
|
|
"InvoiceHeader.DocumentNumber !='' and " +
|
|
"OrderInRows.Products.Oid=?", _Products.Oid))
|
|
|
|
_InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _InvoiceRows In _InvoiceRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
|
|
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
|
|
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
|
|
_uow.CommitChanges()
|
|
Next
|
|
|
|
|
|
'// Gyártásba kiadott tételek kitárolás !
|
|
Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
|
|
"AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid))
|
|
|
|
For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
|
|
_StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
|
|
_uow.CommitChanges()
|
|
Next
|
|
|
|
'// Gyártásból bevett tételek + vevõi jóváírásból bevétel betárolás !!
|
|
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
|
|
"AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid))
|
|
|
|
For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.StorageInRows = _StorageInRows
|
|
_StorageDateClearingPrice.Products = _StorageInRows.Products
|
|
_StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
|
|
_uow.CommitChanges()
|
|
Next
|
|
|
|
|
|
_uow.CommitChanges()
|
|
|
|
For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
|
|
UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
|
|
Next
|
|
_uow.CommitChanges()
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
GLOBAL_HAS_Audit = True
|
|
RaiseEvent FinalWork()
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub aGenerateStorageDateClearingPrice_Products_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageDateClearingPrice_Products.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _CS As New CollectionSource(_onew, GetType(Products))
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
Dim _SQL As String = ""
|
|
|
|
For Each _StorageDateClearingPrice In View.SelectedObjects
|
|
If _SQL = "" Then
|
|
_SQL = " Oid in ('" & _StorageDateClearingPrice.Products.Oid.ToString & "'"
|
|
Else
|
|
_SQL += ",'" & _StorageDateClearingPrice.Products.Oid.ToString & "'"
|
|
End If
|
|
Next
|
|
If _SQL <> "" Then
|
|
_SQL += ")"
|
|
_CS.BeginUpdateCriteria()
|
|
_CS.Criteria.Clear()
|
|
_CS.Criteria("ByProducts") = CriteriaOperator.Parse(_SQL)
|
|
_CS.EndUpdateCriteria()
|
|
End If
|
|
|
|
e.View = Application.CreateListView("Products_ListView_Find", _CS, True)
|
|
End Sub
|
|
Private Sub aGenerateStorageDateClearingPrice_Products_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice_Products.Execute
|
|
Try
|
|
GLOBAL_HAS_Audit = False
|
|
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
Dim _Products As Products
|
|
Dim _SQL As String = ""
|
|
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
|
|
|
|
RaiseEvent InitWork(1, 1, e.PopupWindow.View.SelectedObjects.Count)
|
|
For Each _Products In e.PopupWindow.View.SelectedObjects
|
|
RaiseEvent DoWork()
|
|
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products.Oid=?", _Products.Oid))
|
|
_uow.Delete(_StorageDateClearingPrice_Collection)
|
|
_uow.CommitChanges()
|
|
Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
|
|
Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
|
|
_DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
|
|
CriteriaOperator.Parse("DeliveryNoteInRows.Products.Oid=?", _Products.Oid))
|
|
|
|
_DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
|
|
|
|
'_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
|
|
Next
|
|
|
|
Dim _InvoiceRows As InvoiceRows
|
|
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
|
|
CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
|
|
"InvoiceHeader.IsEditable=False and " +
|
|
"InvoiceHeader.IsStorno=False and " +
|
|
"InvoiceHeader.DocumentNumber !='' and " +
|
|
"OrderInRows.Products.Oid=?", _Products.Oid))
|
|
|
|
_InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _InvoiceRows In _InvoiceRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
|
|
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
|
|
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
|
|
Next
|
|
|
|
|
|
'// Gyártásba kiadott tételek kitárolás !
|
|
Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
|
|
"AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid))
|
|
|
|
For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
|
|
_StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
|
|
Next
|
|
|
|
'// Gyártásból bevett tételek + vevõi jóváírásból betárolás !!
|
|
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
|
|
"AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid))
|
|
|
|
For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.StorageInRows = _StorageInRows
|
|
_StorageDateClearingPrice.Products = _StorageInRows.Products
|
|
_StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
|
|
Next
|
|
|
|
_uow.CommitChanges()
|
|
|
|
For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
|
|
UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
|
|
Next
|
|
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
GLOBAL_HAS_Audit = True
|
|
RaiseEvent FinalWork()
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub aGenerateStorageDate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDate.Execute
|
|
Try
|
|
GLOBAL_HAS_Audit = False
|
|
|
|
Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer)
|
|
Dim _StorageDate_Collection As New XPCollection(Of StorageDate)(_uow)
|
|
|
|
_uow.Delete(_StorageDate_Collection)
|
|
_uow.CommitChanges()
|
|
|
|
|
|
Dim _Products_Collection As New XPCollection(Of Products)(_uow)
|
|
|
|
RaiseEvent InitWork(1, 1, _Products_Collection.Count)
|
|
For Each _Products In _Products_Collection
|
|
RaiseEvent DoWork()
|
|
|
|
Dim _DateArray As ArrayList = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow))
|
|
|
|
For Each _Date As Date In _DateArray
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _
|
|
(_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1",
|
|
_Products.Oid, _Date))
|
|
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending))
|
|
|
|
If _StorageDateClearingPrice_Collection.Count <= 0 Then
|
|
_StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _
|
|
(_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=0",
|
|
_Products.Oid, _Date))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending))
|
|
End If
|
|
|
|
For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
|
|
Dim _StorageDate As New StorageDate(_uow)
|
|
_StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom
|
|
_StorageDate.DateExecution = _Date
|
|
_StorageDate.Products = _StorageDateClearingPrice.Products
|
|
_StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After
|
|
_StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After
|
|
_StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After
|
|
_uow.CommitChanges()
|
|
Exit For
|
|
Next
|
|
Next
|
|
|
|
|
|
_DateArray = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow), True)
|
|
|
|
For Each _Date As Date In _DateArray
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _
|
|
(_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1",
|
|
_Products.Oid, _Date))
|
|
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending))
|
|
|
|
If _StorageDateClearingPrice_Collection.Count <= 0 Then
|
|
_StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _
|
|
(_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=0",
|
|
_Products.Oid, _Date))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending))
|
|
End If
|
|
|
|
For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
|
|
If _uow.FindObject(Of StorageDate)(CriteriaOperator.Parse("CustomersFrom=? AND Products=? AND DateExecution=?", _StorageDateClearingPrice.CustomersFrom, _StorageDateClearingPrice.Products, _Date)) Is Nothing Then
|
|
Dim _StorageDate As New StorageDate(_uow)
|
|
_StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom
|
|
_StorageDate.DateExecution = _Date
|
|
_StorageDate.Products = _StorageDateClearingPrice.Products
|
|
_StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After
|
|
_StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After
|
|
_StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After
|
|
_uow.CommitChanges()
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
GLOBAL_HAS_Audit = True
|
|
RaiseEvent FinalWork()
|
|
End Try
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_ViewAttachments_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_ViewAttachments.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
|
|
|
|
If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
|
|
ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, _
|
|
_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.Customers, _
|
|
_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber)
|
|
|
|
End If
|
|
If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then
|
|
ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.CustomersFrom, _
|
|
_StorageDateClearingPrice.InvoiceRows.InvoiceHeader.Customers, _
|
|
_StorageDateClearingPrice.InvoiceRows.InvoiceHeader.DocumentNumber)
|
|
|
|
End If
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_DateAndValueReCalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_DateAndValueReCalculate.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _StorageDateClearingPrice_Selected As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
|
|
|
|
UpdateStorageDateClearingPrice(_StorageDateClearingPrice_Selected.Products, _StorageDateClearingPrice_Selected.CustomersFrom, True)
|
|
|
|
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute()
|
|
End Sub
|
|
Public Sub UpdateStorageDateClearingPrice_SQL(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True)
|
|
Dim _SelectedData As SelectedData = Nothing
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _SQL As String = ""
|
|
|
|
|
|
_SQL = String.Format("select [] from [StorageDateClearingPrice] Where [CustomersFrom]='{0}' and [Products]='{1}'", _CustomersFrom.Oid.ToString, _Products.Oid.ToString)
|
|
_SelectedData = _uow.ExecuteQuery(_SQL)
|
|
|
|
For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows
|
|
'Console.WriteLine(String.Format("{0}" & Constants.vbTab & "{1}", row.Values(0), row.Values(1)))
|
|
Next row
|
|
End Sub
|
|
Public Sub UpdateStorageDateClearingPrice(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True)
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _uow_update As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _uow_xpcollection As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _uow_nothing As New UnitOfWork(_onew.Session.DataLayer)
|
|
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice = Nothing
|
|
|
|
Dim _SQL As String = ""
|
|
Dim _ItemIndex As Long = 0
|
|
Dim _QTT_Before As Double = 0
|
|
Dim _QTT_After As Double = 0
|
|
Dim _AveragePriceHUF_After As Double = 0
|
|
Dim _SumAveragePriceHUF_After As Double = 0
|
|
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow_xpcollection, CriteriaOperator.Parse("Products.Oid=? AND CustomersFrom.Oid=?", _
|
|
_Products.Oid, _CustomersFrom.Oid))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
|
_StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
|
' Try
|
|
'If _NeedLine Then RaiseEvent InitWork(1, 1, _StorageDateClearingPrice_Collection.Count)
|
|
'If _StorageDateClearingPrice_Collection.Count > 0 Then
|
|
|
|
For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection
|
|
'If _NeedLine Then RaiseEvent DoWork()
|
|
_StorageDateClearingPrice = _uow_nothing.GetObjectByKey(Of StorageDateClearingPrice)(_StorageDateClearingPrice.Oid)
|
|
|
|
If _ItemIndex > 0 Then
|
|
_StorageDateClearingPrice.AveragePriceHUF_Before = _AveragePriceHUF_After
|
|
_StorageDateClearingPrice.QTT_Before = _QTT_After
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_Before = Math.Round(_StorageDateClearingPrice.QTT_Before * _StorageDateClearingPrice.AveragePriceHUF_Before)
|
|
|
|
|
|
If _StorageDateClearingPrice.QTT_In <> 0 Then
|
|
_QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In
|
|
If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF)
|
|
ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT)
|
|
End If
|
|
If _QTT_After <> 0 Then
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = Math.Round(_StorageDateClearingPrice.SumAveragePriceHUF_After / _QTT_After, 0, MidpointRounding.AwayFromZero)
|
|
Else
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = 0
|
|
End If
|
|
|
|
_AveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After
|
|
_SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_After
|
|
End If
|
|
If _StorageDateClearingPrice.QTT_Out <> 0 Then
|
|
_QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out
|
|
|
|
If _QTT_After = 0 Then
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
|
|
_AveragePriceHUF_After = 0
|
|
_SumAveragePriceHUF_After = 0
|
|
Else
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
|
|
End If
|
|
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After * _QTT_After
|
|
End If
|
|
_StorageDateClearingPrice.QTT_After = _QTT_After
|
|
Else
|
|
_StorageDateClearingPrice.QTT_Before = 0
|
|
If _StorageDateClearingPrice.QTT_In <> 0 Then
|
|
_QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In
|
|
End If
|
|
If _StorageDateClearingPrice.QTT_Out <> 0 Then
|
|
_QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out
|
|
End If
|
|
_StorageDateClearingPrice.QTT_After = _QTT_After
|
|
|
|
_StorageDateClearingPrice.AveragePriceHUF_Before = 0
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_Before = 0
|
|
'// Itt kell 2.
|
|
If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then
|
|
_SumAveragePriceHUF_After = (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF)
|
|
If _StorageDateClearingPrice.QTT_After <> 0 Then
|
|
_AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After
|
|
Else
|
|
_AveragePriceHUF_After = 0
|
|
End If
|
|
|
|
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
|
|
|
|
ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
|
|
_SumAveragePriceHUF_After = _StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT
|
|
If _StorageDateClearingPrice.QTT_After <> 0 Then
|
|
_AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After
|
|
Else
|
|
_AveragePriceHUF_After = 0
|
|
End If
|
|
|
|
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After
|
|
Else
|
|
_StorageDateClearingPrice.SumAveragePriceHUF_After = 0
|
|
_StorageDateClearingPrice.AveragePriceHUF_After = 0
|
|
|
|
_SumAveragePriceHUF_After = 0
|
|
_AveragePriceHUF_After = 0
|
|
End If
|
|
|
|
End If
|
|
_StorageDateClearingPrice.MainIndex = _ItemIndex
|
|
|
|
_ItemIndex += 1
|
|
|
|
Select Case GLOBAL_SQLType
|
|
Case eSQLType.MSSQL
|
|
_SQL = "update StorageDateClearingPrice set "
|
|
_SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
|
|
_SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
|
|
_SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
|
|
_SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid)
|
|
Case eSQLType.MySQL
|
|
_SQL = "update StorageDateClearingPrice set "
|
|
_SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
|
|
_SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
|
|
_SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
|
|
_SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid)
|
|
Case eSQLType.PostgreSQL
|
|
_SQL = "update ""StorageDateClearingPrice"" set "
|
|
_SQL = String.Format("{0} ""QTT_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString))
|
|
_SQL = String.Format("{0} ""QTT_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString))
|
|
_SQL = String.Format("{0} ""AveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} ""SumAveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString))
|
|
_SQL = String.Format("{0} ""AveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} ""SumAveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString))
|
|
_SQL = String.Format("{0} ""MainIndex""={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString))
|
|
_SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.Oid)
|
|
End Select
|
|
_uow_update.ExecuteNonQuery(_SQL)
|
|
|
|
If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then
|
|
_SQL = ""
|
|
Select Case GLOBAL_SQLType
|
|
Case eSQLType.MSSQL
|
|
_SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
|
|
_SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF "
|
|
_SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
|
|
Case eSQLType.MySQL
|
|
_SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
|
|
_SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF "
|
|
_SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
|
|
Case eSQLType.PostgreSQL
|
|
_SQL = String.Format("update ""InvoiceRows"" set ""SumAveragePriceHUF""=""QTT""*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString))
|
|
_SQL = _SQL & " ""SumGrossMarginHUF""=""SumPriceHUF""-""SumAveragePriceHUF"" "
|
|
_SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid)
|
|
End Select
|
|
_uow_update.ExecuteNonQuery(_SQL)
|
|
End If
|
|
Next
|
|
'End If
|
|
'_uow.CommitChanges()
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
|
'Finally
|
|
'If _NeedLine Then RaiseEvent FinalWork
|
|
'End Try
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageDateClearingPrice))
|
|
|
|
If _StorageDateClearingPrice IsNot Nothing Then
|
|
If _StorageDateClearingPrice.InvoiceRows.OrderInRows IsNot Nothing Then
|
|
Dim _ShowStorageOutDeliveryOutRows_PopUp As New ShowStorageOutDeliveryOutRows_PopUp(_onew.Session)
|
|
_ShowStorageOutDeliveryOutRows_PopUp.OrderInRows = _StorageDateClearingPrice.InvoiceRows.OrderInRows
|
|
|
|
e.View = Application.CreateDetailView(_onew, "ShowStorageOutDeliveryOutRows_PopUp_DetailView", False, _ShowStorageOutDeliveryOutRows_PopUp)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Execute
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_GeneterateDate2Date_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _StorageDateClearingPrice_GeneterateDate2Date_PopUp As New StorageDateClearingPrice_GeneterateDate2Date_PopUp(_onew.Session)
|
|
|
|
e.View = Application.CreateDetailView(_onew, "StorageDateClearingPrice_GeneterateDate2Date_PopUp_DetailView", False, _StorageDateClearingPrice_GeneterateDate2Date_PopUp)
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_GeneterateDate2Date_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.Execute
|
|
Try
|
|
GLOBAL_HAS_Audit = False
|
|
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice
|
|
Dim _Products As Products
|
|
Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow)
|
|
Dim _StartDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).StartDate
|
|
Dim _EndDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).EndDate
|
|
|
|
Dim _Products_Collection As New XPCollection(Of Products)(_uow)
|
|
RaiseEvent InitWork(1, 1, _Products_Collection.Count)
|
|
For Each _Products In _Products_Collection
|
|
RaiseEvent DoWork()
|
|
|
|
Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=? AND DateExecution>=? AND DateExecution<=?", _
|
|
_Products, _StartDate, _EndDate))
|
|
_uow.Delete(_StorageDateClearingPrice_Collection)
|
|
_uow.CommitChanges()
|
|
|
|
Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC)
|
|
Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
|
|
_DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow,
|
|
CriteriaOperator.Parse("DeliveryNoteInRows.Products=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution>=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution<=?", _
|
|
_Products, _StartDate, _EndDate))
|
|
|
|
_DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
|
|
'_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
|
|
Next
|
|
|
|
Dim _InvoiceRows As InvoiceRows
|
|
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow,
|
|
CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " +
|
|
"InvoiceHeader.IsEditable=False and " +
|
|
"InvoiceHeader.IsStorno=False and " +
|
|
"InvoiceHeader.DocumentNumber !='' and " +
|
|
"OrderInRows.Products.Oid=? AND InvoiceHeader.DateExecution>=? AND InvoiceHeader.DateExecution<=?", _Products.Oid, _StartDate, _EndDate))
|
|
|
|
_InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending))
|
|
|
|
For Each _InvoiceRows In _InvoiceRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
|
|
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
|
|
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
|
|
Next
|
|
|
|
'// Gyártásba kiadott tételek kitárolás !
|
|
Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _
|
|
"AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=? " + _
|
|
"AND StorageOutRows.StorageOutHeader.CreateDate>=? AND StorageOutRows.StorageOutHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate))
|
|
|
|
For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 1
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products
|
|
_StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT
|
|
_StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows
|
|
Next
|
|
|
|
'// Gyártásból bevett tételek + vevõi jóváírásból betárolás !!
|
|
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _
|
|
"AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?" + _
|
|
" and StorageInHeader.CreateDate>=? AND StorageInHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate))
|
|
|
|
For Each _StorageInRows As StorageInRows In _StorageInRows_Collection
|
|
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
|
|
_StorageDateClearingPrice.RowIndex = 0
|
|
_StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom
|
|
_StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date
|
|
_StorageDateClearingPrice.StorageInRows = _StorageInRows
|
|
_StorageDateClearingPrice.Products = _StorageInRows.Products
|
|
_StorageDateClearingPrice.QTT_In = _StorageInRows.QTT
|
|
Next
|
|
|
|
_uow.CommitChanges()
|
|
|
|
For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection
|
|
UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False)
|
|
Next
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
GLOBAL_HAS_Audit = True
|
|
RaiseEvent FinalWork()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub aStorageDateClearingPrice_SetSIRPrice_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _SetSIRPrice_PopUp As New SetSIRPrice_PopUp(_onew.Session)
|
|
|
|
e.View = Application.CreateDetailView(_onew, "SetSIRPrice_PopUp_DetailView", False, _SetSIRPrice_PopUp)
|
|
End Sub
|
|
Private Sub aStorageDateClearingPrice_SetSIRPrice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice)
|
|
Dim _SetSIRPrice_PopUp As SetSIRPrice_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), SetSIRPrice_PopUp)
|
|
|
|
If _StorageDateClearingPrice.StorageInRows IsNot Nothing Then
|
|
_StorageDateClearingPrice.StorageInRows.AveragePriceInHUF = _SetSIRPrice_PopUp.AveragePriceInHUF
|
|
End If
|
|
|
|
_ocur.CommitChanges()
|
|
|
|
Frame.GetController(Of StorageDateVC).aStorageDateClearingPrice_DateAndValueReCalculate.DoExecute()
|
|
End Sub
|
|
|
|
Private Sub aSetBonusHUF_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSetBonusHUF.CustomizePopupWindowParams
|
|
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
|
Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = _onew.CreateObject(Of DeliveryNoteInRRFC_Popup)()
|
|
|
|
|
|
e.View = Application.CreateDetailView(_onew, "DeliveryNoteInRRFC_Popup_DetailView", False, _DeliveryNoteInRRFC_Popup)
|
|
End Sub
|
|
|
|
Private Sub aSetBonusHUF_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSetBonusHUF.Execute
|
|
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
|
Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = e.PopupWindow.View.SelectedObjects(0)
|
|
Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
|
|
Dim _TotalAmount As Double = 0
|
|
|
|
For Each _DeliveryNoteInRRFC In View.SelectedObjects
|
|
_TotalAmount += _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount
|
|
Next
|
|
|
|
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
|
|
For Each _DeliveryNoteInRRFC In View.SelectedObjects
|
|
RaiseEvent DoWork()
|
|
_DeliveryNoteInRRFC.BonusHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount * (_DeliveryNoteInRRFC_Popup.BonusHUF / _TotalAmount), 0, MidpointRounding.AwayFromZero)
|
|
_ocur.CommitChanges()
|
|
UpdateStorageDateClearingPrice(_DeliveryNoteInRRFC.DeliveryNoteInRows.Products, _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, False)
|
|
Next
|
|
RaiseEvent FinalWork()
|
|
End Sub
|
|
|
|
|
|
End Class
|