X

UID/usrctlProcedures.vb

@@ -2363,6 +2363,28 @@ Public Class usrctlProcedures
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
     End Sub
+
+    Private Sub Button26_Click(sender As Object, e As EventArgs)
+        For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
+            Dim fi As New FileInfo(d)
+            If fi.Name >= 20190615 Then
+
+
+                For Each f In System.IO.Directory.GetFiles(d)
+                    If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
+
+                    End If
+                Next
+
+
+
+
+
+            End If
+
+        Next
+
+    End Sub
 End Class