X

UID/usrctlProcedures.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class usrctlProcedures
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrctlProcedures
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -377,7 +377,7 @@ Partial Class usrctlProcedures
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(882, 161)
+        Me.TabPage2.Size = New System.Drawing.Size(601, 161)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "TEST"
         Me.TabPage2.UseVisualStyleBackColor = True

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