Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,38 @@
+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.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class OrderInPrint
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Sub New()
+        MyBase.New()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Private Sub aOrderInPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOrderInPrint.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ReportData As ReportData
+        Dim _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader = TryCast(View.SelectedObjects(0), OrderInAcknowledgementHeader)
+
+        If _OrderInAcknowledgementHeader IsNot Nothing Then
+            _ReportData = _OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.ReportDataAcknowledgement
+            If _ReportData IsNot Nothing Then
+                _OrderInAcknowledgementHeader.RecalculateOrderInAcknowledgement(_OrderInAcknowledgementHeader, _ocur)
+                _ocur.CommitChanges()
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OrderInAcknowledgementHeader.Oid=?", _OrderInAcknowledgementHeader.Oid), True)
+            Else
+                '------------TESZT MIATT!!!! -----------------------------
+                Throw New Exception("*Nincs nyomtatvány beállítva!")
+            End If
+        End If
+    End Sub
+End Class