credtisafe, etc.

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -1572,7 +1572,7 @@ Public Class cAvisoDAL
                     id = (Convert.ToInt32(cmd.ExecuteScalar()))
                     ' MsgBox(id)
                 Else
-                    cmd.ExecuteNonQuery()
+                    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then cmd.ExecuteNonQuery()
                 End If
 
             Catch ex As SqlException

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -99,6 +99,10 @@ Public Class cKundenErweitert
     Property kde_BezFIBU As Object = Nothing
     Property kde_Kopfsammelrechnung As Boolean = False
 
+    Property kde_CSPortfolioAdded As Boolean = False
+
+
+
 
 
 
@@ -200,6 +204,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded))
 
         Return list
     End Function

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()