From 4af214c49134a8645b8b2d3a4c1c54f2c792cffe Mon Sep 17 00:00:00 2001 From: "ivan.szabo" Date: Wed, 8 Mar 2017 14:20:42 +0100 Subject: [PATCH] =?UTF-8?q?Adatok=20felder=C3=ADt=C3=A9se?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Related Work Items: #5 --- .../BusinessObjects/Business/Products/ProductsVC.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb index 5e0d089..bbac8ec 100644 --- a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb +++ b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb @@ -95,6 +95,11 @@ Public Class ProductsVC e.View = Application.CreateDetailView(_onew, _ModifyProductsParameters) End Sub + ''' + ''' Módosítja a Products objektum adatait csoportosan + ''' + ''' + ''' Private Sub aModifyProductsParameters_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyProductsParameters.Execute Dim _ModifyProductsParameters As ModifyProductsParameters = TryCast(e.PopupWindow.View.SelectedObjects(0), ModifyProductsParameters) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) @@ -251,7 +256,7 @@ Public Class ProductsVC _Products.Save() Next _ocur.CommitChanges() - RaiseEvent FinalWork + RaiseEvent FinalWork() End Sub Private Sub aPrintSelectedProductsBarcode_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintSelectedProductsBarcode.Execute Try