edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -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(