Adatok felderítése

Related Work Items: #5

Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb

@@ -95,6 +95,11 @@ Public Class ProductsVC
 
         e.View = Application.CreateDetailView(_onew, _ModifyProductsParameters)
     End Sub
+    ''' <summary>
+    ''' Módosítja a Products objektum adatait csoportosan
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
     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