credtisafe, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -511,7 +511,7 @@ Public Class cCreditSafeAPI
                 cEvent.eventDate = R("eventDate")
                 cEvent.createdDate = R("createdDate")
                 cEvent.importDate = Now()
-                cEvent.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                cEvent.Sachbearbeiter = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Is Nothing, "AUTO", VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
                 cEvent.oldValue = R("oldValue")
                 cEvent.newValue = R("newValue")
 
@@ -568,6 +568,7 @@ Public Class cCreditSafeAPI
                     cEvent.bonId = company.csBonID
                 End If
 
+                cEvent.kundenNr = company.kdNr
                 cEvent.SAVE()
 
                 j = j + 1
@@ -604,7 +605,7 @@ Public Class cCreditSafeAPI
 
             End If
 
-            End If
+        End If
 
 
 
@@ -1065,7 +1066,7 @@ Public Class cCreditSafeAPI
         Property newValueCR As Object = Nothing
         Property oldValueCL As Object = Nothing
         Property newValueCL As Object = Nothing
-
+        Property kundenNr As Integer
 
         Public hasEntry = False
 
@@ -1093,6 +1094,7 @@ Public Class cCreditSafeAPI
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCR", newValueCR))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCL", oldValueCL))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundenNr", kundenNr))
 
 
             Return list