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

Bugfix Gesamtsicherheiten

Browse Source
This commit is contained in:
ms
2021-03-05 08:03:38 +01:00
parent bef022b755
commit c6423afb6a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmGesSich.vb
View File

@@ -366,7 +366,7 @@ Public Class frmGesSich
Me.Abfertigungsnummer = txtAbfertNum.Text Me.Abfertigungsnummer = txtAbfertNum.Text
Me.LKWID = txtLKWID.Text Me.LKWID = txtLKWID.Text
If Me.GesamtsichNr > 0 Then If nixzunull(Me.GesamtsichNr) > 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.GesamtsichNr & "' " Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.GesamtsichNr & "' "
SQL.doSQL(sqlstring, "AVISO") SQL.doSQL(sqlstring, "AVISO")
LoadDGV() LoadDGV()