Anpassung Monitoring Zölle

VERAGMonitoring/cSqlDb.vb

@@ -215,7 +215,7 @@ Public Class cBrgDb
 
         Dim sql As String = "SELECT [brgak_id] as Id,[brgak_datum] as Datum,[brgak_betrag] as Betrag,[brgak_filename] as Dateiname,[brgak_atc] as ATC " &
                     " FROM tblBrgAufschub WHERE    brgak_brgaktoId = '" & brgKto & "' " & faelligkeitWHERE & where
-
+        '    MsgBox(sql)
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()