Initial commit

EDOKA_Toolset/.svn/pristine/0b/0b3af2c958a856132a076664d898b4ca48e7fc97.svn-base

@@ -0,0 +1,71 @@
+Public Class frmImportExport
+    Dim db As New clsdb
+    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
+        Me.GrpExport.Visible = True
+        db.Get_Dokumenttypen
+        For Each r As DataRow In db.dsDaten.Tables(0).Rows
+            Me.ComboBox1.Items.Add(r.Item(1))
+        Next
+    End Sub
+
+    Private Sub btnDoExport_Click(sender As Object, e As EventArgs) Handles btnDoExport.Click
+        Dim s As String
+        s = Trim(Me.ComboBox1.Text)
+        Dim splitter() As String
+
+        splitter = s.Split(" ")
+        Dim dokumenttypnr As Integer = splitter(0)
+
+        Dim exporttables As New DataTable
+        Dim ExportDataset As New DataSet
+        Dim JoinTalbename As String = ""
+        db.Get_Tabledata("Select * from admin_doktypexport", "Admin_DoktypExport")
+        exporttables = db.dsDaten.Tables(0).Copy
+        For Each r As DataRow In exporttables.Rows
+            If r.Item(3) = "" Then
+                db.Get_Tabledata("Select * from " + r.Item(1) + " where dokumenttypnr=" + dokumenttypnr.ToString + " and aktiv=1", r.Item(1))
+                ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
+            Else
+                Dim sql As String
+                sql = r.Item(3)
+                sql = sql.Replace("&&doktype&&", dokumenttypnr.ToString)
+                db.Get_Tabledata(sql, r.Item(1))
+                ExportDataset.Tables.Add(db.dsDaten.Tables(0).Copy)
+            End If
+        Next
+        SaveFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
+        SaveFileDialog1.DefaultExt = "xml"
+        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
+
+            ExportDataset.WriteXml(SaveFileDialog1.FileName)
+        End If
+
+    End Sub
+
+    Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
+        GrpImport.Visible = True
+        OpenFileDialog1.Filter = "XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*"
+        OpenFileDialog1.DefaultExt = "xml"
+        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
+            Me.txtImportDatei.Text = Me.OpenFileDialog1.FileName
+            Check_Doktype()
+        End If
+    End Sub
+
+    Dim importds As New DataSet
+    Dim dokumenttypnr As Integer
+    Dim dokumenttypbezeichnung As String
+    Sub Check_Doktype()
+        importds.ReadXml(Me.txtImportDatei.Text)
+        dokumenttypnr = importds.Tables(0).Rows(0).Item("Dokumenttypnr")
+        dokumenttypbezeichnung = importds.Tables(0).Rows(0).Item("Bezeichnung")
+
+        Dim db As New clsdb
+        db.checkdoktype(dokumenttypnr)
+        db.checkdoktype(dokumenttypbezeichnung)
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        btnImport_Click(sender, e)
+    End Sub
+End Class