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

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -1488,7 +1488,7 @@ Public Class cSyska_Interface
                     For Each r_OP In dt_OP.Rows
 
                         Try
-                            If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt
+                            If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten] AND Firma_ID = '" & Firma_ID & "'", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt --> höchste ID des OPS der FIRMA!!!!
 
                             Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()