AVISOTV

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")>

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"))