You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
2.7 KiB
71 lines
2.7 KiB
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 |