Update Korrektur QR-Verarbeitung

DPM2016/Behandlung/Behandlung.vb

@@ -2,6 +2,7 @@
 Imports DevComponents.AdvTree
 Imports Syncfusion.Pdf
 Imports Syncfusion.Pdf.Parsing
+Imports Syncfusion.Windows.Forms.Tools
 
 Public Class Behandlung
 
@@ -324,7 +325,7 @@ Public Class Behandlung
         End If
 
         Me.treebehandlungen.ExpandAll()
-            enable_disable_tabs(False)
+        enable_disable_tabs(False)
         Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, firstnode_tag, firstnode_tag)
         If firstnode_tag <> 0 Then nodeselected()
         If Auftragsmanagement = True Then
@@ -558,6 +559,7 @@ Public Class Behandlung
         db.Dispose()
 
         Me.Get_Behandlungen()
+        Me.SuperTabControl1.SelectedTab = SuperTabControl1.Tabs(0)
         Try
             Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey)
             Me.nodeselected()
@@ -942,10 +944,10 @@ Public Class Behandlung
 
 
             If UCase(DB.Get_Option(60020)) = "FALSE" Then Exit Sub
-                Dim sec As New DPMSecurity
-                sec.Set_Form_Security(Me.ParentForm)
-            Catch ex As Exception
-                MsgBox(ex.Message)
+            Dim sec As New DPMSecurity
+            sec.Set_Form_Security(Me.ParentForm)
+        Catch ex As Exception
+            MsgBox(ex.Message)
             Me.ctxmenubehandlung.Enabled = False
         End Try
 
@@ -960,7 +962,7 @@ Public Class Behandlung
             If Globals.Applicationtype = Globals.ApplicationTypes.Projektabrechnung Then Messagetext = "Projekt " Else Messagetext = "Behandlung "
             'Messagetext = "Behandlung "
         Else
-                Messagetext = "Kostenvoranschlag"
+            Messagetext = "Kostenvoranschlag"
         End If
 
         Dim fakt As New clsFakturierung
@@ -1099,7 +1101,7 @@ Public Class Behandlung
     End Sub
 #Region "EVH"
     Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
-        If Me.PatientNr = patientnr and patientnr <> 0 Then
+        If Me.PatientNr = patientnr And patientnr <> 0 Then
             Dim tn As DevComponents.AdvTree.Node
             tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
             Try
@@ -1614,7 +1616,7 @@ Public Class Behandlung
 
 
     Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
-        load_data
+        load_data()
     End Sub
 
     Private Sub load_data()
@@ -1694,7 +1696,11 @@ Public Class Behandlung
     End Sub
 
     Private Sub C1Aktonto_MouseDown(sender As Object, e As MouseEventArgs) Handles c1akonto.MouseDown
-        Me.c1akonto.Bookmark = Me.c1akonto.RowContaining(e.Y)
+        Try
+            Me.c1akonto.Bookmark = Me.c1akonto.RowContaining(e.Y)
+        Catch
+        End Try
+
     End Sub
 
     Private Sub AkontoRechnungLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AkontoRechnungLöschenToolStripMenuItem.Click
@@ -1729,16 +1735,21 @@ Public Class Behandlung
     End Sub
 
     Private Sub ctxmenuakonto_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenuakonto.Opening
+        Me.ctxmenuakonto.Enabled = True
         Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = True
         Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = True
         Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = True
+        Try
+            If c1akonto.Columns("nrfaktura").Value <> 0 Then
+                Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = False
+                Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = False
+                Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = False
 
-        If c1akonto.Columns("nrfaktura").Value <> 0 Then
-            Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = False
-            Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = False
-            Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = False
+            End If
+        Catch
+            Me.ctxmenuakonto.Enabled = False
+        End Try
 
-        End If
     End Sub