APIZugange, Mitarbeiter, StartOptions, UTA.

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -233,7 +233,6 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                     Dim downloadedFile As Stream = IO.File.Create(filePath)
 
-
                     client.DownloadFile(Path + remoteFileName, downloadedFile)
 
                     If IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
@@ -364,11 +363,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
 
                                         frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                                            If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
+                                        If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
+                                        dgvEinarbeitung.Refresh()
 
-                                            dgvEinarbeitung.Refresh()
-
-                                        End If
+                                    End If
 
 
                             End Select
@@ -383,9 +381,9 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                     '------------------ .UTA ------------------
                                     '------------------------------------------
 
-                                    If Not deleteTable Then
-                                        deleteTable = uta.clearimporttable()
-                                    End If
+                                    'If Not deleteTable Then
+                                    '    deleteTable = uta.clearimporttable()
+                                    'End If
 
                                     If fi.Extension.ToLower = ".uta" Then
 
@@ -530,22 +528,24 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         Try
 
             Dim fi As FileInfo = New FileInfo(d)
-
+            Dim cnt = 0
             Dim objFileRead As StreamReader = New StreamReader(d)
 
 
-            If uta.readAndSaveUTA(objFileRead, fi) Then
+            If uta.readAndSaveUTA(objFileRead, fi, cnt) Then
                 addDGVEinarbeitung(fi.Name, "OK")
             Else
                 addDGVEinarbeitung(fi.Name, "Fehler")
             End If
 
+            readUTA = "Zeilen: " & cnt
 
         Catch ex As 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