First create solution
This commit is contained in:
+622
@@ -0,0 +1,622 @@
|
||||
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.Persistent.Validation
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Xpo
|
||||
Imports System.IO
|
||||
Imports Microsoft.VisualBasic.FileIO
|
||||
Imports System.Reflection
|
||||
Imports DevExpress.Xpo.DB
|
||||
Imports System.Net
|
||||
|
||||
Public Class StoragePDACollectionHeaderVC
|
||||
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()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
|
||||
|
||||
If View.Id = "StoragePDACollectionHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'--------------------------DetailViewZ----------------------------------------
|
||||
If View.Id = "StoragePDACollectionHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "StoragePDACollectionHeader_ListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
'--------------------------DetailViewZ----------------------------------------
|
||||
If View.Id = "StoragePDACollectionHeader_DetailView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
|
||||
End Sub
|
||||
|
||||
Private Sub aInsertStoragePDARows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "StoragePDACollectionRows_DetailView", False, _StoragePDACollectionRows)
|
||||
End Sub
|
||||
Private Sub aInsertStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs)
|
||||
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
Dim _StoragePDACollectionRows_PopUp As StoragePDACollectionRows = TryCast(e.PopupWindow.View.SelectedObjects(0), StoragePDACollectionRows)
|
||||
If _StoragePDACollectionRows_PopUp Is Nothing Then Throw New Exception("*")
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
|
||||
_StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
|
||||
_StoragePDACollectionRows.Products = _ocur.GetObject(_StoragePDACollectionRows_PopUp.Products)
|
||||
_StoragePDACollectionRows.QTT = _StoragePDACollectionRows_PopUp.QTT
|
||||
_StoragePDACollectionRows.Description = _StoragePDACollectionRows_PopUp.Description
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Dim parentView As View = nestedFrame.View
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub aDeleteStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
Try
|
||||
Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
|
||||
If _StoragePDACollectionRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, művelet megszakadt!")
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _StoragePDACollectionRows_DEL_Collection As New ArrayList
|
||||
For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
|
||||
_StoragePDACollectionRows_DEL_Collection.Add(_StoragePDACollectionRows)
|
||||
Next
|
||||
_ocur.Delete(_StoragePDACollectionRows_DEL_Collection)
|
||||
_ocur.CommitChanges()
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aLocatePDACollectionIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionIn.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!")
|
||||
If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed Then Throw New Exception("*A kollekció már fel lett dolgozva!")
|
||||
If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen Then Throw New Exception("*A kollekció még nem lett lokalizálva!")
|
||||
Dim _StorageComputedLocations As StorageComputedLocations = Nothing
|
||||
|
||||
For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows
|
||||
If _StoragePDACollectionRows.StorageLocation IsNot Nothing Then
|
||||
Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _
|
||||
(CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products))
|
||||
|
||||
If _StorageComputed Is Nothing Then Throw New Exception("*Végzetes hiba történt, a folymat megszakadt!")
|
||||
|
||||
If _StoragePDACollectionRows.Products.ProductType = eProductType.ePacketNumber Or _
|
||||
_StoragePDACollectionRows.Products.ProductType = eProductType.eSerialNumber Then
|
||||
|
||||
_StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)()
|
||||
|
||||
_StorageComputedLocations.StorageComputed = _StorageComputed
|
||||
_StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT
|
||||
_StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation
|
||||
|
||||
_StorageComputedLocations.SerialNumber = _StoragePDACollectionRows.SerialNumber
|
||||
_StorageComputedLocations.PacketNumber = _StoragePDACollectionRows.PacketNumber
|
||||
|
||||
Else
|
||||
_StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageComputed=? AND StorageLocation=?", _
|
||||
_StorageComputed, _StoragePDACollectionRows.StorageLocation))
|
||||
If _StorageComputedLocations Is Nothing Then
|
||||
_StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)()
|
||||
|
||||
_StorageComputedLocations.StorageComputed = _StorageComputed
|
||||
_StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT
|
||||
_StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation
|
||||
Else
|
||||
_StorageComputedLocations.QTT += _StoragePDACollectionRows.QTT
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
_StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aLocatePDACollectionOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionOut.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!")
|
||||
|
||||
'For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows
|
||||
' Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _
|
||||
' (CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products))
|
||||
' Dim _StorageComputedLocations As StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageLocation=? AND StorageComputed=?", _StoragePDACollectionRows.StorageLocation, _StorageComputed))
|
||||
|
||||
' ' _StorageComputedLocations.QTT -= _StoragePDACollectionRows.QTT
|
||||
'Next
|
||||
_StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aGetBarcodeStoragePDA_Execute(sender As Object, e As ParametrizedActionExecuteEventArgs) Handles aGetBarcodeStoragePDA.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
|
||||
|
||||
TryCast(sender, ParametrizedAction).Value = Nothing
|
||||
|
||||
_Barcode = _Barcode.Replace("ö", "0")
|
||||
|
||||
If LTrim(RTrim(_Barcode)) <> "" Then
|
||||
Dim _ProductsBarcodes As ProductsBarcodes = _onew.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode))
|
||||
If _ProductsBarcodes IsNot Nothing Then
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
_StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
|
||||
_StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
|
||||
_StoragePDACollectionRows.Barcode = _Barcode
|
||||
_StoragePDACollectionRows.Products = _ProductsBarcodes.Products
|
||||
If _StoragePDACollectionHeader.row_QTT <= 0 Then
|
||||
_StoragePDACollectionRows.QTT = 1
|
||||
Else
|
||||
_StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
|
||||
End If
|
||||
_StoragePDACollectionRows.QTT_Processed = 0
|
||||
|
||||
_onew.CommitChanges()
|
||||
End If
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
'Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
|
||||
|
||||
'TryCast(sender, ParametrizedAction).Value = Nothing
|
||||
|
||||
'If LTrim(RTrim(_Barcode)) <> "" Then
|
||||
' Dim _ProductsBarcodes As ProductsBarcodes = _ocur.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode))
|
||||
' If _ProductsBarcodes IsNot Nothing Then
|
||||
' Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
' _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
|
||||
' _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader
|
||||
' _StoragePDACollectionRows.Barcode = _Barcode
|
||||
' _StoragePDACollectionRows.Products = _ProductsBarcodes.Products
|
||||
' If _StoragePDACollectionHeader.row_QTT <= 0 Then
|
||||
' _StoragePDACollectionRows.QTT = 1
|
||||
' Else
|
||||
' _StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
|
||||
' End If
|
||||
' _StoragePDACollectionRows.QTT_Processed = 0
|
||||
|
||||
' '_onew.CommitChanges()
|
||||
' End If
|
||||
' 'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
'End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aImportCSVToStoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportCSVToStoragePDA.Execute
|
||||
End Sub
|
||||
|
||||
Private Sub aPrintReport_StoragePDA_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aPrintReport_StoragePDA.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ReportData_CollectionSource = New CollectionSource(_onew, GetType(ReportData))
|
||||
|
||||
|
||||
_ReportData_CollectionSource.BeginUpdateCriteria()
|
||||
_ReportData_CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse("DataTypeName='Nuvolar.Module.PricingProductsBarcodePrint'")
|
||||
_ReportData_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("ReportData_ListView_Select", _ReportData_CollectionSource, True)
|
||||
End Sub
|
||||
Private Sub aPrintReport_StoragePDA_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aPrintReport_StoragePDA.Execute
|
||||
Dim _ReportData As ReportData = TryCast(e.PopupWindow.View.SelectedObjects(0), ReportData)
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
'// Le kell generálni a sorokat
|
||||
Dim _textStreamReader As StreamReader
|
||||
Dim _assembly As [Assembly]
|
||||
Dim _SQL As String
|
||||
Try
|
||||
_assembly = [Assembly].GetExecutingAssembly()
|
||||
_textStreamReader = New StreamReader(_assembly.GetManifestResourceStream("Nuvolar.Module.StoragePDAGenerateDataforPrint.sql"))
|
||||
_SQL = _textStreamReader.ReadToEnd
|
||||
|
||||
_SQL = String.Format(_SQL, _StoragePDACollectionHeader.Oid.ToString, SecuritySystem.CurrentUserId.ToString)
|
||||
_ocur.Session.ExecuteNonQuery(_SQL)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message, MsgBoxStyle.OkOnly)
|
||||
Finally
|
||||
RaiseEvent FinalWork()
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("MasterKey=?", SecuritySystem.CurrentUserId))
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPDA_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportPDA_StoragePDA.Execute
|
||||
''Megnyitja a PDA-t és beemeli a sorokat
|
||||
'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _onew.GetObjectByKey(Of StoragePDACollectionHeader)(TryCast(View.SelectedObjects(0), StoragePDACollectionHeader).Oid)
|
||||
'Dim _Products As Products
|
||||
|
||||
'Try
|
||||
' GLOBAL_HAS_Audit = False
|
||||
' Dim _DeliveryNoteInType As DeliveryNoteInType = _onew.FindObject(Of DeliveryNoteInType)(CriteriaOperator.Parse("IsNull(PDAPath)=False and PDAPath !=''"))
|
||||
|
||||
' If File.Exists(_DeliveryNoteInType.PDAPath) Then
|
||||
' Dim _StreamFile = New FileStream(_DeliveryNoteInType.PDAPath, FileMode.Open, FileAccess.Read)
|
||||
' Dim _StreamReader As New StreamReader(_StreamFile)
|
||||
' Dim _StrBuffer As String = ""
|
||||
' Dim _LineCount As Long = File.ReadAllLines(_DeliveryNoteInType.PDAPath).Length
|
||||
' _StreamFile.Seek(0, SeekOrigin.Begin)
|
||||
' _StrBuffer = _StreamReader.ReadToEnd()
|
||||
' _StreamReader.Close()
|
||||
' _StreamFile.Close()
|
||||
' File.Delete(_DeliveryNoteInType.PDAPath)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
|
||||
' parser.TextFieldType = FieldType.Delimited
|
||||
' parser.SetDelimiters(",")
|
||||
' RaiseEvent InitWork(1, 1, _LineCount)
|
||||
' While Not parser.EndOfData
|
||||
' Try
|
||||
' RaiseEvent DoWork()
|
||||
' Dim columns As String() = parser.ReadFields()
|
||||
' _Products = _onew.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", columns(2).ToString))
|
||||
' If _Products IsNot Nothing Then
|
||||
' Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
' _StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
|
||||
' _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
|
||||
' _StoragePDACollectionRows.Products = _onew.GetObject(_Products)
|
||||
' _StoragePDACollectionRows.QTT = Val(columns(4))
|
||||
' _StoragePDACollectionRows.QTT_Processed = 0
|
||||
|
||||
' _onew.CommitChanges()
|
||||
' End If
|
||||
' Catch ex As MalformedLineException
|
||||
' 'MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
' End Try
|
||||
' End While
|
||||
' End Using
|
||||
' _onew.CommitChanges()
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
'Finally
|
||||
' RaiseEvent FinalWork()
|
||||
' GLOBAL_HAS_Audit = True
|
||||
' Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aToTable_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTable_StoragePDA.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
|
||||
Dim _Start As String
|
||||
|
||||
'Dim watch As Stopwatch = Stopwatch.StartNew()
|
||||
|
||||
If _StoragePDACollectionHeader.row_Products IsNot Nothing Then
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
_StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
|
||||
_StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
|
||||
_StoragePDACollectionRows.Barcode = ""
|
||||
_StoragePDACollectionRows.Products = _onew.GetObjectByKey(Of Products)(_StoragePDACollectionHeader.row_Products.Oid)
|
||||
If _StoragePDACollectionHeader.row_QTT < 0 Then
|
||||
_StoragePDACollectionRows.QTT = 1
|
||||
Else
|
||||
_StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
|
||||
End If
|
||||
_StoragePDACollectionRows.QTT_Processed = 0
|
||||
|
||||
_onew.CommitChanges()
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
'watch.Stop()
|
||||
'MsgBox(watch.Elapsed.TotalMilliseconds)
|
||||
End Sub
|
||||
|
||||
Private Sub aToTableD_StoragePDA_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTableD_StoragePDA.Execute
|
||||
' a kiválasztott sorokat törli -----------------------------------------------
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), StoragePDACollectionHeader))
|
||||
Dim _StoragePDACollectionRows_Collection As ArrayList = New ArrayList
|
||||
Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor
|
||||
|
||||
Try
|
||||
GLOBAL_HAS_Audit = False
|
||||
_StoragePDACollectionRows_ListEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
|
||||
|
||||
For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
|
||||
_StoragePDACollectionRows_Collection.Add(_onew.GetObject(_StoragePDACollectionRows))
|
||||
Next
|
||||
|
||||
_onew.Delete(_StoragePDACollectionRows_Collection)
|
||||
_onew.CommitChanges()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
Finally
|
||||
GLOBAL_HAS_Audit = True
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aToTable_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTable_StoragePDA_ocur.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
|
||||
If _StoragePDACollectionHeader.row_Products IsNot Nothing Then
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
_StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
|
||||
_StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
|
||||
_StoragePDACollectionRows.Barcode = ""
|
||||
_StoragePDACollectionRows.Products = _ocur.GetObjectByKey(Of Products)(_StoragePDACollectionHeader.row_Products.Oid)
|
||||
_StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
|
||||
If _StoragePDACollectionHeader.row_QTT < 0 Then
|
||||
_StoragePDACollectionRows.QTT = 1
|
||||
Else
|
||||
_StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
|
||||
End If
|
||||
_StoragePDACollectionRows.QTT_Processed = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aToTableD_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aToTableD_StoragePDA_ocur.Execute
|
||||
' a kiválasztott sorokat törli -----------------------------------------------
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
Dim _StoragePDACollectionRows_Collection As ArrayList = New ArrayList
|
||||
Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor
|
||||
Try
|
||||
_StoragePDACollectionRows_ListEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows")
|
||||
For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects
|
||||
_StoragePDACollectionRows_Collection.Add(_ocur.GetObject(_StoragePDACollectionRows))
|
||||
Next
|
||||
_ocur.Delete(_StoragePDACollectionRows_Collection)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
Finally
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aGetBarcodeStoragePDA_ocur_Execute(sender As Object, e As ParametrizedActionExecuteEventArgs) Handles aGetBarcodeStoragePDA_ocur.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
Dim _Barcode As String = TryCast(e.ParameterCurrentValue, String)
|
||||
|
||||
TryCast(sender, ParametrizedAction).Value = Nothing
|
||||
|
||||
If LTrim(RTrim(_Barcode)) <> "" Then
|
||||
Dim _ProductsBarcodes As ProductsBarcodes = _ocur.FindObject(Of ProductsBarcodes)(CriteriaOperator.Parse("StartsWith([Barcode], ?)", _Barcode), True)
|
||||
If _ProductsBarcodes IsNot Nothing Then
|
||||
Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
|
||||
_StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
|
||||
_StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader
|
||||
_StoragePDACollectionRows.Barcode = _Barcode
|
||||
_StoragePDACollectionRows.Products = _ProductsBarcodes.Products
|
||||
_StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
|
||||
If _StoragePDACollectionHeader.row_QTT <= 0 Then
|
||||
_StoragePDACollectionRows.QTT = 1
|
||||
Else
|
||||
_StoragePDACollectionRows.QTT = _StoragePDACollectionHeader.row_QTT
|
||||
End If
|
||||
_StoragePDACollectionRows.QTT_Processed = 0
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aImportPDA_StoragePDA_ocur_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImportPDA_StoragePDA_ocur.Execute
|
||||
''Megnyitja a PDA-t és beemeli a sorokat
|
||||
'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
'Dim _Products As Products
|
||||
|
||||
'Try
|
||||
' Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.FindObject(Of DeliveryNoteInType)(CriteriaOperator.Parse("IsNull(PDAPath)=False and PDAPath !=''"), True)
|
||||
|
||||
' If File.Exists(_DeliveryNoteInType.PDAPath) Then
|
||||
' Dim _StreamFile = New FileStream(_DeliveryNoteInType.PDAPath, FileMode.Open, FileAccess.Read)
|
||||
' Dim _StreamReader As New StreamReader(_StreamFile)
|
||||
' Dim _StrBuffer As String = ""
|
||||
' Dim _LineCount As Long = File.ReadAllLines(_DeliveryNoteInType.PDAPath).Length
|
||||
' _StreamFile.Seek(0, SeekOrigin.Begin)
|
||||
' _StrBuffer = _StreamReader.ReadToEnd()
|
||||
' _StreamReader.Close()
|
||||
' _StreamFile.Close()
|
||||
' File.Delete(_DeliveryNoteInType.PDAPath)
|
||||
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
|
||||
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
|
||||
' parser.TextFieldType = FieldType.Delimited
|
||||
' parser.SetDelimiters(",")
|
||||
' RaiseEvent InitWork(1, 1, _LineCount)
|
||||
' While Not parser.EndOfData
|
||||
' Try
|
||||
' RaiseEvent DoWork()
|
||||
' Dim columns As String() = parser.ReadFields()
|
||||
' _Products = _ocur.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", columns(2).ToString))
|
||||
' If _Products IsNot Nothing Then
|
||||
' Dim _StoragePDACollectionRows As StoragePDACollectionRows
|
||||
|
||||
' _StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)()
|
||||
' _StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader)
|
||||
' _StoragePDACollectionRows.Products = _ocur.GetObject(_Products)
|
||||
' _StoragePDACollectionRows.QTT = Val(columns(4))
|
||||
' _StoragePDACollectionRows.QTT_Processed = 0
|
||||
' _StoragePDACollectionRows.RowIndex = _StoragePDACollectionHeader.StoragePDACollectionRows.Count + 1
|
||||
' End If
|
||||
' Catch ex As MalformedLineException
|
||||
' 'MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
' End Try
|
||||
' End While
|
||||
' End Using
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
|
||||
'Finally
|
||||
' RaiseEvent FinalWork()
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aGeneratePDARowsByPricingActionHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGeneratePDARowsByPricingActionHeader.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StoragePDACollectionProductSelectPopup As StoragePDACollectionProductSelectPopup = _onew.CreateObject(Of StoragePDACollectionProductSelectPopup)()
|
||||
|
||||
Dim _PricingActionHeader_Collection As New XPCollection(Of PricingActionHeader)(_onew.Session, CriteriaOperator.Parse("PricingActionType=2"))
|
||||
Dim _PricingActionHeader As PricingActionHeader
|
||||
_StoragePDACollectionProductSelectPopup.DateExecution = Now
|
||||
|
||||
For Each _PricingActionHeader In _PricingActionHeader_Collection
|
||||
_StoragePDACollectionProductSelectPopup.PricingActionHeader.Add(_PricingActionHeader)
|
||||
Next
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "StoragePDACollectionProductSelectPopup_DetailView", True, _StoragePDACollectionProductSelectPopup)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGeneratePDARowsByPricingActionHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGeneratePDARowsByPricingActionHeader.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
Dim _StoragePDACollectionProductSelectPopup As StoragePDACollectionProductSelectPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), StoragePDACollectionProductSelectPopup)
|
||||
|
||||
Dim _ListPropertyEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("PricingActionHeader")
|
||||
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
For Each _PricinhActionHeader As PricingActionHeader In _ListPropertyEditor.ListView.SelectedObjects
|
||||
Dim _textStreamReader As StreamReader
|
||||
Dim _assembly As [Assembly]
|
||||
Dim _SQL As String
|
||||
Try
|
||||
_assembly = [Assembly].GetExecutingAssembly()
|
||||
_textStreamReader = New StreamReader(_assembly.GetManifestResourceStream("Nuvolar.Module.StoragePDAGenerateDatafromPricingActionHeader.sql"))
|
||||
_SQL = _textStreamReader.ReadToEnd
|
||||
|
||||
_SQL = String.Format(_SQL, _PricinhActionHeader.Oid.ToString, _StoragePDACollectionHeader.Oid.ToString, Format(_StoragePDACollectionProductSelectPopup.DateExecution.Date, "yyyy-MM-dd"), _StoragePDACollectionProductSelectPopup.IsOvverides.ToString)
|
||||
_ocur.Session.ExecuteNonQuery(_SQL)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aGeneratePDARowsByDiscount_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGeneratePDARowsByDiscount.CustomizePopupWindowParams
|
||||
'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
'Dim _PricingProductsBarcodeCustomers_CollectionSource = New CollectionSource(_onew, GetType(PricingProductsBarcodeCustomers))
|
||||
|
||||
|
||||
'_PricingProductsBarcodeCustomers_CollectionSource.BeginUpdateCriteria()
|
||||
'_PricingProductsBarcodeCustomers_CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse("StartsWith([Barcode], '99') And [ExpirationDate] >= LocalDateTimeNow() And [ActualDate] <= LocalDateTimeNow() And (BarcodeType='' or IsNull(BarcodeType)=True)")
|
||||
'_PricingProductsBarcodeCustomers_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
'e.View = Application.CreateListView("PricingProductsBarcodeCustomers_ListView_Select", _PricingProductsBarcodeCustomers_CollectionSource, True)
|
||||
End Sub
|
||||
|
||||
Private Sub aGeneratePDARowsByDiscount_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGeneratePDARowsByDiscount.Execute
|
||||
'Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader)
|
||||
'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
'RaiseEvent InitWork(1, 1, TryCast(e.PopupWindow.View, ListView).CollectionSource.List.Count)
|
||||
'For Each _PricingProductsBarcodeCustomers As PricingProductsBarcodeCustomers In TryCast(e.PopupWindow.View, ListView).CollectionSource.List
|
||||
' RaiseEvent DoWork()
|
||||
' If _PricingProductsBarcodeCustomers.NonPersistent_QTT > 0 Then
|
||||
' Dim _StoragePDACollectionRows As StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)()
|
||||
' _StoragePDACollectionRows.StoragePDACollectionHeader = _onew.GetObject(_StoragePDACollectionHeader)
|
||||
' _StoragePDACollectionRows.Barcode = _PricingProductsBarcodeCustomers.Barcode
|
||||
' _StoragePDACollectionRows.Products = _onew.GetObject(_PricingProductsBarcodeCustomers.Products)
|
||||
' _StoragePDACollectionRows.QTT = _PricingProductsBarcodeCustomers.NonPersistent_QTT
|
||||
' _StoragePDACollectionRows.RowIndex = 0
|
||||
' _onew.CommitChanges()
|
||||
' End If
|
||||
'Next
|
||||
'RaiseEvent FinalWork()
|
||||
'Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user