X

initATLASAufschubkonten/frmStartOptions.vb

@@ -902,4 +902,58 @@ Public Class frmStartOptions
         importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
+            Dim fid As New FileInfo(d)
+            If fid.Name >= 20190820 Then
+
+
+                For Each f In System.IO.Directory.GetFiles(d)
+                    Dim fi As New FileInfo(f)
+                    If fi.Extension = ".xml" Then
+
+                        Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
+
+
+                        If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
+                            If Not IO.File.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
+
+
+                                IO.File.Copy(f, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
+                            End If
+                        End If
+
+
+
+                        'Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
+
+                        'Dim doc As New XmlDocument()
+
+
+                        'Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
+
+                        'doc.LoadXml(frmDYNachrichtenVerarbeitung.SanitizeXmlString(XML_Code))
+
+                        'If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
+                        '    MsgBox(f)
+                        'End If
+
+
+
+                    End If
+
+
+
+
+                Next
+
+
+
+
+
+            End If
+
+        Next
+
+    End Sub
 End Class