neu

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -10,7 +10,7 @@ Public Class frmDYNachrichtenVerarbeitung
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim allowClose = False
     '  Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\"
-
+    Public Event EV_FINISHED()
     Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
     Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
     Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
@@ -78,6 +78,11 @@ Public Class frmDYNachrichtenVerarbeitung
         Me.Enabled = False
         Try
             Label5.Visible = True
+            If ListBox3.Items.Count = 0 Then
+                Label6.Text = "Keine Daten zum Einlesen vorhanden."
+                Label6.Visible = True
+                Exit Sub
+            End If
 
             DatenEinlesen() '<<<<----------------------
 
@@ -191,11 +196,7 @@ Public Class frmDYNachrichtenVerarbeitung
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
 
-        If ListBox3.Items.Count = 0 Then
-            Label6.Text = "Keine Daten zum Einlesen vorhanden."
-            Label6.Visible = True
-            Exit Sub
-        End If
+
 
         For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
             Try
@@ -206,8 +207,9 @@ Public Class frmDYNachrichtenVerarbeitung
                     Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
 
                     Dim fi As FileInfo = New FileInfo(d)
-                    If Not fi.Name.StartsWith(".") Then
-
+                    If Not fi.Name.StartsWith(".") And Not fi.Name.StartsWith("lock_") Then
+                        d = frmStartOptions.lockFile(d)
+                        fi = New FileInfo(d)
                         '   EDIFACT
                         ' If fi.Extension = ".edi" Then
                         Dim alreadyMoved = False
@@ -4388,7 +4390,7 @@ Public Class frmDYNachrichtenVerarbeitung
                     'Case "4801"
                     '    firma = "DURMAZ"
                     '    niederlassung = "SBG"
-                    Case "4803", "5003", "5103", "5303", "4805", "4811"
+                    Case "4803", "5003", "5103", "5303", "4805", "4811", "7001"
                         firma = "VERAG"
                     Case "5601"
                         firma = "UNISPED"
@@ -5403,6 +5405,10 @@ Public Class frmDYNachrichtenVerarbeitung
                     End If
 
                     If EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then
+                        If EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter IsNot Nothing Then
+                            zoellner = EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter
+                        End If
+
                         If EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer IsNot Nothing Then
                             regNr = EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer
                         End If
@@ -5436,10 +5442,9 @@ Public Class frmDYNachrichtenVerarbeitung
 
 
 
-
                     End If
 
-                    If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden
+                        If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden
                         STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid009
                         STATUS.dySt_artMitteilung = "AB"
                         STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
@@ -6185,14 +6190,33 @@ Public Class frmDYNachrichtenVerarbeitung
 
 
     Private Sub frmDYNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If allowClose Then
-            Me.Refresh()
 
-            Button2.PerformClick()
-            Button1.PerformClick()
-
-            System.Threading.Thread.Sleep(2000)
+        If allowClose Then ' AUTOMATIK
+            Try
+                'Daten von Server laden:
+                '  Me.Refresh()
+                '   Me.Enabled = False
+                ' Label9.Visible = True
+                '    Dim cnt = getNachrichtenDatenFromDakosy()
+                getNachrichtenDatenFromDakosy()
+                '  Label9.Text = cnt & " Datensätze empfangen."
+                '   Label5.Visible = True
+                '  Me.Refresh()
 
+                'Daten einlesen:
+                DatenEinlesen()
+                If dsNichtErkannt > 0 Then
+                    ' Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
+                    '     Label6.Visible = True
+                End If
+                '  Me.Refresh()
+                RaiseEvent EV_FINISHED() 'Steigt hier schon aus
+                System.Threading.Thread.Sleep(2000)
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+            Me.Enabled = True
+            Me.Dispose()
             Me.Close()
         End If
     End Sub