div. Änderungen

SDL/Fakturierung/frmFaktEmail.vb

@@ -1104,8 +1104,6 @@ Public Class frmFaktEmail
 
             If MergePDF And ATTACHMENTS.Count > 1 Then
 
-
-
                 Dim extension = ".pdf"
 
                 Dim Belegsbezeichnung As String = "Beleg"

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb

@@ -435,6 +435,7 @@
                                 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
                                 dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
@@ -900,6 +901,7 @@
                                 dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
                                 '   dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.9.9")>
-<Assembly: AssemblyFileVersion("1.4.9.9")>
+<Assembly: AssemblyVersion("1.5.0.0")>
+<Assembly: AssemblyFileVersion("1.5.0.0")>

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -1,4 +1,5 @@
 Imports System.Globalization
+Imports com.sun.source.tree
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -410,7 +411,7 @@ Public Class frmBU_Mahnlauf
             Select Case Sprache
                 Case "EN"
                     rpt.lblSummeUeberschrift.Text = "Total:"
-                    rpt.lblSteuersatz.Text = "Interest for late payment 9.5% "
+                    rpt.lblSteuersatz.Text = "Interest for late payment 9,5 %"
                     rpt.lblZwText.Text = "Reminder Fee"
                     rpt.lblZwischensumme.Text = "Subtotal"
                 Case "RO"
@@ -420,7 +421,7 @@ Public Class frmBU_Mahnlauf
                     rpt.lblZwischensumme.Text = "Subtotal"
                 Case "TR"
                     rpt.lblSummeUeberschrift.Text = "Toplam:"
-                    rpt.lblSteuersatz.Text = "Gecikme faizi %9,5 "
+                    rpt.lblSteuersatz.Text = "Gecikme faizi 9,5 %"
                     rpt.lblZwText.Text = "Hhatırlatma ücreti"
                     rpt.lblZwischensumme.Text = "Ara toplam"
             End Select
@@ -528,6 +529,13 @@ Public Class frmBU_Mahnlauf
 
             Else
 
+                'ZinssatzVerzugszinsen pro Kunde und wenn nichts hingerlegt, dann defaultwert!
+                If Not IsDBNull(KD_ERW.kde_zinssatz) AndAlso IsNumeric(KD_ERW.kde_zinssatz) Then
+                    ZinssatzVerzugszinsen = CDbl(KD_ERW.kde_zinssatz) / 100
+                    rpt.lblSteuersatz.Text = rpt.lblSteuersatz.Text.ToString.Replace("9,5", KD_ERW.kde_zinssatz)
+                End If
+
+
                 Select Case MAHNSTUFE
                     Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False
                     Case -1 : Mahngeb = 0
@@ -807,15 +815,23 @@ Public Class frmBU_Mahnlauf
 
                         If Firma_ID = 19 Then
                             Select Case AD.LandKz
-                                Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!!
-                                Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
+                                Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
+                                Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS"
+
+                                    If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then
+                                        Select Case KD_ERW.kde_betreuer
+                                            Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;"
+                                            Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;"
+                                            Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;"
+                                            Case Else
+                                                Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
                                         End Select
+                                    Else
+                                        Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
                                     End If
 
-
-                        '    isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email,
-                        'isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email,
-
+                            End Select
+                        End If
 
                         If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
 

SDL/kassenbuch/frmBelegNeu.vb

@@ -1,5 +1,6 @@
 Imports System.Drawing.Printing
 Imports System.Globalization
+Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util
 Imports Microsoft.Win32
 Imports SDL.RKSVServer
 
@@ -1531,7 +1532,7 @@ Public Class frmBelegNeu
                 TESTBUCHUNG = False
                 '   VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM()
                 If cRKSV.isforbiddenDate Then
-                    MsgBox("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Kasse wir am Monatsende abgeschlossen. Es dürfen keine weiteren Belege erstellt werden. Bitte veruchen Sie den Vorgang nach Mitternacht erneut.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     Return False
                 End If
 
@@ -1542,6 +1543,7 @@ Public Class frmBelegNeu
                 Else
                     KASSE.LOAD(cboKassen._value) 'Laden der Kasse anhand der Auswahlbox
                 End If
+
                 BELEG.rksv_id = KASSE.rksv_id ' bei Fehler wird sonst die ID nicht richtig übernommen
 
                 If kdkunde.Text.Trim.Length > 50 Then
@@ -1563,7 +1565,7 @@ Public Class frmBelegNeu
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
             printErfolgreich = False
-            MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             warnClose = False
             Me.Close()
         End Try
@@ -1617,7 +1619,7 @@ Public Class frmBelegNeu
 
                 If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
-                    MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programmfehler bei Eintrag ins Kassenbuch.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
                 End If
 
@@ -1632,7 +1634,9 @@ Public Class frmBelegNeu
                             KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
                             cRKSV.DELETE(BELEG, KASSE.rksv_firma)
                         End If
-                        MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
+                        Dim Errmsg = "Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer
+                        MsgBox(Errmsg, MsgBoxStyle.Critical)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Errmsg, "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                         Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
                     End If
                     KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
@@ -1661,7 +1665,10 @@ Public Class frmBelegNeu
                             KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, If(EA = "E", summeBRUTTO * -1, summeBRUTTO))
                             cRKSV.DELETE(BELEG, KASSE.rksv_firma)
                         End If
-                        MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
+
+                        Dim Errmsg = "Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer
+                        MsgBox(Errmsg, MsgBoxStyle.Critical)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Errmsg, "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                         Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
                     End If
                     KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
@@ -1743,7 +1750,7 @@ Public Class frmBelegNeu
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
             printErfolgreich = False
-            MsgBox("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Allgemeiner Programmfehler - Belegerfassung wird geschlossen!" & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             warnClose = False
             Me.Close()
         End Try

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -1,7 +1,4 @@
-Imports com.sun.tools.javac.util
-Imports com.sun.xml.internal.ws.api.pipe
-Imports GrapeCity.ActiveReports
-Imports VERAG_PROG_ALLGEMEIN
+Imports GrapeCity.ActiveReports
 
 Public Class frmNacherfassungLeihgeld
     Dim cOptionenDAL As New cOptionenDAL
@@ -282,7 +279,7 @@ Public Class frmNacherfassungLeihgeld
             If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
                 Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
                 If KundenKontoArchiv <> "" Then
-                    MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
+                    MsgBox("ACHTUNG,  der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
                     Exit Sub
                 End If
 

SDL/kunden/usrCntlCBAM.vb

@@ -494,7 +494,7 @@ Public Class usrCntlCBAM
 
 
 
-            If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            If dtGP IsNot Nothing AndAlso dtGP.Rows.Count > 0 Then
 
                 If ReDaten.Rows.Count > 0 Then
                     dtGP.Columns("invoice date").ReadOnly = False
@@ -509,8 +509,6 @@ Public Class usrCntlCBAM
                     ' Look for matching row in dt2
                     Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
 
-
-
                     If found.Length > 0 Then
 
                         Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.IO
+Imports org.BouncyCastle.Asn1.Ocsp
 Imports SDL.EORI
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -1681,7 +1682,11 @@ Public Class usrCntlKundenuebersicht
     Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
         If dgvVertraege.SelectedRows.Count = 1 Then
             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
-            DS.OPEN_SINGLE()
+            If DS.hasITEMS Then
+                For Each i In DS.DATA_LIST.LIST
+                    Process.Start(i.coll_pfad)
+                Next
+            End If
         End If
     End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -615,6 +615,7 @@ Public Class SQL
                 Case "WEB" : conn = GetNewOpenConnectionWEB()
                 Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
                 Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
+                Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON()
 
 
                 Case "AVISO_ATILLA"

VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb

@@ -11,6 +11,8 @@ Public Class cKundenVertraege
     Property kv_datenarchivId As Object = Nothing
     Property kv_gueltig As Boolean = True
 
+    Public hasEntry As Boolean = False
+
 
     Dim SQL As New SQL
 
@@ -22,6 +24,13 @@ Public Class cKundenVertraege
         LOAD()
     End Sub
 
+    Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId)
+        Me.kv_KundenNr = kv_KundenNr
+        Me.kv_erhalten_Datum = kv_erhalten_Datum
+        Me.kv_vertragArtId = kv_vertragArtId
+        LOAD(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId)
+    End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Id", kv_Id, , True, True))
@@ -85,7 +94,36 @@ Public Class cKundenVertraege
                             End If
 
                         Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
 
+    Public Sub LOAD(KundenNr, erhaltenAm, vertragArtId)
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_KundenNr=@KundenNr AND kv_erhalten_Datum=@erhaltenAm AND kv_vertragArtId=@vertragArtId ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                    cmd.Parameters.AddWithValue("@erhaltenAm", erhaltenAm)
+                    cmd.Parameters.AddWithValue("@vertragArtId", vertragArtId)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
                     End If
                     dr.Close()
                 End Using

VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb

@@ -48,7 +48,7 @@
 
 
     Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String
-        Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0"
+        Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.Month & ",0"
     End Function
 
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -1,4 +1,5 @@
 Imports System.ServiceModel.Configuration
+Imports com
 Imports Therefore.API
 Public Class cTherefore
 
@@ -146,6 +147,109 @@ Public Class cTherefore
             ' 8. Close Therefore™ document object
             doc.Close()
 
+            Return True
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+    Shared Function getFileFromFolderCat(Category As String, Optional Category2 As String = "", Optional UpdateExistingVertraege As Boolean = False)
+        Try
+
+
+            If Category2 = "" Then Category2 = Category
+            Dim SQL As New SQL
+
+            ' 1. Connect to the Therefore™ Server
+            Dim server As New TheServer
+            server.Connect(TheClientType.CustomApplication)
+
+            ' 2. Create a new Therefore™ Document
+
+
+            Dim TableName = ""
+            If IsNumeric(Category) Then
+                TableName = "TheCat" & Category
+                If SQL.getValueTxtBySql("SELECT count(*)  FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then
+                    MsgBox("Therefore: Tabelle nicht gefunden: " & TableName)
+                    Return False
+                End If
+            Else
+                TableName = SQL.getValueTxtBySql("SELECT [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
+            End If
+
+            Dim docs As DataTable = SQL.loadDgvBySql("SELECT isnull([DocNo],-1) as DocNo,[String],[Eingabedatum] FROM  " & TableName & " where isNUmeric(left(string,6)) = 1", "SCANCANON")
+
+            If Not vbYes = MsgBox("Möchten Sie die " & docs.Rows.Count & " Dokumente aus Therefore als Unternehmensbescheinigung hochladen?" & vbNewLine & "Existierende Datenarchiv-Einträge werden " & IIf(UpdateExistingVertraege, "-ÜBERSCHRIEBEN-", "-ÜBERSPRUNGEN-") & "!", vbYesNoCancel) Then Return False
+
+            For Each TFdoc As DataRow In docs.Rows
+
+                Dim filename As String = ""
+                If TFdoc.Item("DocNo") > 0 Then
+                    If Not IsDBNull(TFdoc("String")) AndAlso TFdoc("String").ToString() <> "" AndAlso TFdoc.Item("String").ToString.Length > 6 AndAlso IsNumeric(TFdoc.Item("String").ToString.Substring(0, 6)) Then
+                        Dim kdNr = TFdoc.Item("String").ToString.Substring(0, 6)
+
+                        Dim Kunde As New cKunde(kdNr)
+
+                        If Kunde IsNot Nothing Then
+
+                            Dim EingabeDatum As Date
+
+                            If Not IsDBNull(TFdoc("Eingabedatum")) AndAlso TFdoc("Eingabedatum").ToString() <> "" AndAlso IsDate(TFdoc.Item("Eingabedatum").ToString) Then
+
+                                EingabeDatum = CDate(TFdoc("Eingabedatum"))
+                            Else
+                                EingabeDatum = Now()
+                            End If
+
+
+                            Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(Kunde.KundenNr, EingabeDatum, 7)
+
+                            If KV.hasEntry AndAlso KV.kv_datenarchivId IsNot Nothing AndAlso KV.kv_datenarchivId > 0 AndAlso Not UpdateExistingVertraege Then Continue For 'dann nicht aktualisieren!
+
+                            Dim extractDir As String = System.IO.Path.GetTempPath() & Kunde.KundenNr & "\"
+                            If Not System.IO.Directory.Exists(extractDir) Then
+                                System.IO.Directory.CreateDirectory(extractDir)
+                            End If
+
+                            Dim doc As New TheDocument()
+
+                            Dim folder = ""
+                            Dim VerionNo As Integer
+                            filename = doc.Retrieve(TFdoc.Item("DocNo"), VerionNo, folder, server, False)
+                            ' 4. Extract all file streams to the specified directory
+
+                            Dim i As Integer
+                            Dim DSID As Integer = -1
+
+                            Dim multiFiles As Boolean = (doc.StreamCount > 1)
+                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UM-BESCHEINIGUNG", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", "UM-Bescheinigung", Kunde.KundenNr, multiFiles)
+                            For i = 0 To doc.StreamCount - 1 'Step i + 1
+
+                                Dim extractFile As String = doc.ExtractStream(i, extractDir)
+                                If Not DS.uploadDataToDATENSERVER(extractFile) Then
+                                    MsgBox("Fehler beim Hochladen!")
+                                End If
+
+                            Next
+
+                            KV.kv_Info = "aus TF importiert"
+                            KV.kv_datenarchivId = DS.da_id
+                            KV.SAVE()
+
+                            doc.Close()
+
+                        End If
+                    End If
+                End If
+
+
+            Next
+
+
+
+
             Return True
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -27,6 +27,8 @@ Public Class cSicherheiten
     Property gs_ReferenzAenderung As Boolean
     Property gs_zuletztgeandert As Object = Nothing
     Property gs_systemuser As Object = Nothing
+    Property gs_MRNNr As Object = Nothing
+    Property gs_posSubNr As Object = Nothing
 
     Public hasEntry = False
 
@@ -73,6 +75,8 @@ Public Class cSicherheiten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_ReferenzAenderung", gs_ReferenzAenderung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zuletztgeandert", gs_zuletztgeandert))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_systemuser", gs_systemuser))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_MRNNr", gs_MRNNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_posSubNr", gs_posSubNr))
 
         Return list
     End Function