div. Änderungen

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -228,11 +228,32 @@ Public Class cAdressen
         Return id > 0
     End Function
 
+    Public Function UpdateSpecialField(field, value) As Boolean
+        If field = "" Then Return False
+
+        Dim itemFound = False
+        For Each s In getParameterList()
+            If s.Scalarvariable = field AndAlso value IsNot Nothing Then
+                itemFound = True
+                Exit For
+            End If
+        Next
+
+        If Not itemFound Then Return False
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Adressen  WHERE AdressenNr= " & AdressenNr & ") " &
+                       " BEGIN UPDATE [Adressen] SET " & field & " = '" & value & "' WHERE AdressenNr=" & AdressenNr & " End " &
+                       " commit tran "
+
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+
+    End Function
+
     Public Sub LOAD()
         Dim test = ""
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
-                Using cmd As New SqlCommand("SELECT * FROM Adressen WHERE AdressenNr=@AdressenNr  ", conn)
+                Using cmd As New SqlCommand("Select * FROM Adressen WHERE AdressenNr=@AdressenNr  ", conn)
                     cmd.Parameters.AddWithValue("@AdressenNr", AdressenNr)
 
                     Dim dr = cmd.ExecuteReader()
@@ -271,7 +292,7 @@ Public Class cAdressen
             'Return Nothing
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            '   MsgBox(test & "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            '   MsgBox(test & "Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
         '  Return Nothing
     End Sub

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -366,8 +366,11 @@ Public Class cUIDPruefung
                         UID_TMP.SAVE()
                         If valid Then
                             If SaveErgInAdressen Then
-                                AD.UstIdGeprüft = Now.ToShortDateString
-                                AD.SAVE()
+
+                                AD.UpdateSpecialField("UstIdGeprüft", Now.ToShortDateString)
+
+                                'AD.UstIdGeprüft = Now.ToShortDateString
+                                'AD.SAVE()
                             End If
                         End If
                         Return UID_TMP