Bugfix Gesamtsicherheiten

2021-03-05 08:03:38 +01:00
parent bef022b755
commit c6423afb6a
1 changed files with 1 additions and 1 deletions
--- a/Aviso/frmGesSich.vb
+++ b/Aviso/frmGesSich.vb
@@ -366,7 +366,7 @@ Public Class frmGesSich
        Me.Abfertigungsnummer = txtAbfertNum.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 & "' "
            SQL.doSQL(sqlstring, "AVISO")
            LoadDGV()