cDatenbank, StartOptions, etc.

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -4,6 +4,7 @@ Imports System.Text
 Imports System.Text.RegularExpressions
 Imports System.Web
 Imports System.Xml
+Imports java.awt
 Imports Renci.SshNet
 Imports Renci.SshNet.Sftp
 Imports VERAG_PROG_ALLGEMEIN
@@ -19,6 +20,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     Dim rmc As New cRMC
     Dim uta As New cUTA
     Dim ids As New cIDS
+    Dim mse As New cMSEAPI("MSE")
     Dim programName As String
     Dim Dateiname = ""
     Public year As Integer
@@ -87,6 +89,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
             Next
+
+        ElseIf programName.Contains("MSE") Then
+            If mse.PDFRECHNUNGENPFAD_VERARBEITUNG = "" Then Exit Sub
+            For Each d In System.IO.Directory.GetFiles(mse.PDFRECHNUNGENPFAD_VERARBEITUNG)
+                ListBox3.Items.Add(frmStartOptions.cut_file(d))
+                Me.Refresh()
+            Next
+
         End If
 
     End Sub
@@ -545,6 +555,9 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         ElseIf programName.Contains("IDS") Then
             verarbeitungspfad = ids.VERARBEITUNG_PFAD
             zielpfad = ids.ZIEL_PFAD
+        ElseIf programName.Contains("MSE") Then
+            verarbeitungspfad = mse.PDFRECHNUNGENPFAD_VERARBEITUNG
+            zielpfad = mse.PDFRECHNUNGENPFAD_VERARBEITUNG_ZIEL
         End If
 
         For i = 1 To loopInt
@@ -616,7 +629,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                                         End If
 
-                                            If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen
+                                        If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen
 
                                             If fi.Name.ToString.StartsWith("invoice_") Then
 
@@ -1089,6 +1102,47 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                             End Select
 
 
+                        ElseIf programName.Contains("MSE") Then
+
+
+                            Select Case i
+
+                                Case 1
+                                    '------------------------------------------
+                                    '------------------ .CSV ------------------
+                                    '------------------------------------------
+
+
+                                    If fi.Extension.ToLower = ".csv" Then
+
+                                        If Not found Then
+
+                                            If readMSE(d) <> "" Then found = True
+
+                                        End If
+
+                                        If found Then cntDatenEingelesen += 1
+                                    End If
+
+
+                                Case 2
+                                    '------------------------------------------
+                                    '------------------ .PDF ------------------
+                                    '------------------------------------------
+
+                                    If fi.Extension.ToLower = ".pdf" Then
+
+                                        mse.importInvoicesPDF_alternative(Dateiname, True)
+
+                                    End If
+
+                                    If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
+                                    dgvEinarbeitung.Refresh()
+
+                            End Select
+
+
+
 
                         End If
                         If True Then
@@ -1277,6 +1331,32 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     End Function
 
 
+    Function readMSE(d As String) As String
+        Try
+
+            Dim fi As FileInfo = New FileInfo(d)
+            Dim cnt = 0
+            Dim objFileRead As StreamReader = New StreamReader(d)
+
+
+            If mse.readAndSaveMSE(objFileRead, fi, cnt) Then
+                addDGVEinarbeitung(fi.Name, "OK")
+            Else
+                addDGVEinarbeitung(fi.Name, "Fehler")
+            End If
+
+            readMSE = "Zeilen: " & cnt
+
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            MsgBox(ex.StackTrace & ex.Message)
+        End Try
+
+
+    End Function
+
+
+
     Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
         dgvEinarbeitung.ClearSelection()