neu

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -2312,7 +2312,7 @@ End Class
 
 
 Public Class cAvisoTV
-    Property TVID As Long
+    Property TVID As Long = 0
     Property FixeZeile1 As String
     Property FixeZeile2 As String
     Property FixeZeile3 As String
@@ -2341,7 +2341,7 @@ Public Class cAvisoTVDAL
         End If
 
         sql &= " ORDER BY Special  desc,TVID "
-
+        'MsgBox(sql)
         Dim daten As cAvisoTV = Nothing
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
         Try
@@ -2373,7 +2373,7 @@ Public Class cAvisoTVDAL
         If d.TVID = 0 Then
             'Neuanlage
             hAuswahl = "INSERT INTO AvisoTV " &
-                       "(FixeZeile1, FixeZeile2, FixeZeile3) VALUES (@FixeZeile1, @FixeZeile2, @FixeZeile3, @Standort, @Art)"
+                       "(FixeZeile1, FixeZeile2, FixeZeile3,Standort,Art) VALUES (@FixeZeile1, @FixeZeile2, @FixeZeile3, @Standort, @Art)"
         Else
             'Änderung
             hAuswahl = String.Format(