From aad2d4c83a95444dcf8bc136bfc9fa3583a84042 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 19 Dec 2022 14:11:06 +0100
Subject: [PATCH] AVISOTV

---
 Aviso/My Project/AssemblyInfo.vb | 4 ++--
 AvisoTV/frmAnzeige.vb            | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 7b9ddd0..7132f64 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.3.6")>
-<Assembly: AssemblyFileVersion("3.8.3.6")>
+<Assembly: AssemblyVersion("3.8.3.7")>
+<Assembly: AssemblyFileVersion("3.8.3.7")>
diff --git a/AvisoTV/frmAnzeige.vb b/AvisoTV/frmAnzeige.vb
index 007956a..13686d6 100644
--- a/AvisoTV/frmAnzeige.vb
+++ b/AvisoTV/frmAnzeige.vb
@@ -296,7 +296,7 @@ Public Class frmAnzeige
             Try
                 Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
                 removeControls()
-                'MsgBox(hSQL)
+                '  MsgBox(hSQL)
                 'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren
                 Using cmd As New SqlCommand(hSQL, conn)
                     '  MsgBox(conn.ConnectionString)
@@ -438,7 +438,7 @@ Public Class frmAnzeige
                     Dim dr = cmd.ExecuteReader()
                     If Not IsNothing(dr) Then
                         gridFertig.Rows.Clear() 'Ansicht löschen
-
+                        '  MsgBox(getSQL("", False, True))
                         While dr.Read()
                             anz += 1
                             Dim LKW_Nr As String = VarToStr(dr.Item("LKW_Nr"))