neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -1345,11 +1345,12 @@ Public Class cSyska_Interface
                             OP.INSERT()
 
                             OP_ID_CNT += 1
+                            tmpFirma_Id = OP.Firma_ID
+                            tmpKonotnr = OP.Kontonummer
 
                         Catch ex As Exception
                             MsgBox(ex.Message & ex.StackTrace)
                         End Try
-
                     Next
 
                 Else
@@ -1430,7 +1431,6 @@ Public Class cSyska_Interface
                 For Each r In dt.Rows
 
                     If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!! 
-
                         Dim strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".")
                         SQL.doSQL("UPDATE [FIBU2].[dbo].[fibu_konto]
                                                   SET [dec_wert3] = '" & strRisiko & "'