QR fix, Vers

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.5.7")>
-<Assembly: AssemblyFileVersion("4.0.5.7")>
+<Assembly: AssemblyVersion("4.0.5.9")>
+<Assembly: AssemblyFileVersion("4.0.5.9")>

Aviso/frmHauptfenster.vb

@@ -1824,7 +1824,7 @@ Public Class frmHauptfenster
             ' MsgBox(ex.Message)
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
-        '   Grid_aktiv = True
+        ' Grid_aktiv = True
 
     End Sub
 
@@ -5124,10 +5124,10 @@ Public Class AvisoStatusFunctions
                 If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
                 If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
 
-                If printer = "" Then
-                    SDL.cProgramFunctions.printRpt(rpt, printer, True)
-                    Return True
-                End If
+                'If printer = "" Then
+                SDL.cProgramFunctions.printRpt(rpt, printer, True)
+                Return True
+                ' End If
         End Select
 
         Return False
@@ -5202,7 +5202,7 @@ Public Class AvisoStatusFunctions
         'Fahrer Handy-Nr.
         Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
         If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
-            Return -1  'Abbrechen 
+            Return False  'Abbrechen 
         End If
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
         '    If Aviso.Grenzstelle.Replace("???", "") <> "" Then

Aviso/usrcntlAktDetails.vb

@@ -2015,6 +2015,7 @@ Public Class usrcntlAktDetails
 
     Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
         If FUNC.setAnkunft(AvisoID) Then
+            ' MsgBox("H1")
             frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
             frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
         End If