Initial commit

2022-10-03 16:21:20 +02:00
commit aeddcb75ec
3897 changed files with 2127526 additions and 0 deletions
--- a/EDOKA/Backup1/Systemadministration/Domains/frmDomainFADokumenttyp.vb
+++ b/EDOKA/Backup1/Systemadministration/Domains/frmDomainFADokumenttyp.vb
@@ -0,0 +1,428 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.Drawing
+Imports System.Drawing.Color
+Imports System.ComponentModel
+
+Public Class frmDomainFADokumenttyp
+
+    Inherits EDOKAApp.frmDomainEditor
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
+    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
+    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
+    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
+    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
+    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
+    Friend WithEvents DataSet1 As System.Data.DataSet
+    Friend WithEvents drpApplication As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
+    Friend WithEvents drpDokumenttyp As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainFADokumenttyp))
+        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
+        Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
+        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
+        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
+        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
+        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
+        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
+        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
+        Me.DataSet1 = New System.Data.DataSet()
+        Me.drpApplication = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
+        Me.drpDokumenttyp = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.drpApplication, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.drpDokumenttyp, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'SqlDataAdapter1
+        '
+        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
+        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
+        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
+        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "FA_Dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Eintragnr", "Eintragnr"), New System.Data.Common.DataColumnMapping("ApplNr", "ApplNr"), New System.Data.Common.DataColumnMapping("FA_Dokumenttyp", "FA_Dokumenttyp"), New System.Data.Common.DataColumnMapping("EDOKA_Dokumenttyp", "EDOKA_Dokumenttyp"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv")})})
+        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
+        '
+        'SqlSelectCommand1
+        '
+        Me.SqlSelectCommand1.CommandText = "[pv_fadokumenttyp_select]"
+        Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
+        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
+        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
+        '
+        'SqlInsertCommand1
+        '
+        Me.SqlInsertCommand1.CommandText = "[pv_fadokumenttyp_insert]"
+        Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
+        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, "FA_Dokumenttyp"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, "EDOKA_Dokumenttyp"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
+        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Int, 4, "aktiv"))
+        '
+        'SqlUpdateCommand1
+        '
+        Me.SqlUpdateCommand1.CommandText = "[pv_fadokumenttyp_update]"
+        Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
+        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, "FA_Dokumenttyp"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, "EDOKA_Dokumenttyp"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Int, 4, "aktiv"))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Eintragnr", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Eintragnr", System.Data.SqlDbType.Int, 4, "Eintragnr"))
+        '
+        'SqlDeleteCommand1
+        '
+        Me.SqlDeleteCommand1.CommandText = "[pv_fadokumenttyp_delete]"
+        Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
+        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Eintragnr", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
+        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
+        '
+        'SqlConnection1
+        '
+        Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
+        "t security info=False;user id=tgedoka;workstation id=TG602636;packet size=4096"
+        '
+        'DataSet1
+        '
+        Me.DataSet1.DataSetName = "NewDataSet"
+        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
+        '
+        'drpApplication
+        '
+        Me.drpApplication.AllowColMove = True
+        Me.drpApplication.AllowColSelect = True
+        Me.drpApplication.AllowFilter = True
+        Me.drpApplication.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
+        Me.drpApplication.AllowSort = True
+        Me.drpApplication.AlternatingRows = False
+        Me.drpApplication.CaptionHeight = 17
+        Me.drpApplication.ColumnCaptionHeight = 17
+        Me.drpApplication.ColumnFooterHeight = 17
+        Me.drpApplication.DeadAreaBackColor = System.Drawing.Color.Empty
+        Me.drpApplication.FetchRowStyles = False
+        Me.drpApplication.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
+        Me.drpApplication.LayoutFileName = ""
+        Me.drpApplication.LayoutName = ""
+        Me.drpApplication.LayoutURL = ""
+        Me.drpApplication.Location = New System.Drawing.Point(128, 40)
+        Me.drpApplication.Name = "drpApplication"
+        GridLines1.Color = System.Drawing.Color.DarkGray
+        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
+        Me.drpApplication.RowDivider = GridLines1
+        Me.drpApplication.RowHeight = 15
+        Me.drpApplication.RowSubDividerColor = System.Drawing.Color.DarkGray
+        Me.drpApplication.ScrollTips = False
+        Me.drpApplication.Size = New System.Drawing.Size(232, 216)
+        Me.drpApplication.TabIndex = 18
+        Me.drpApplication.Text = "C1TrueDBDropdown2"
+        Me.drpApplication.Visible = False
+        Me.drpApplication.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
+        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
+        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
+        "ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
+        "CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
+        "er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Od" & _
+        "dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Borde" & _
+        "r:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{Al" & _
+        "ignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win" & _
+        ".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
+        "olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
+        "RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
+        "tRect>0, 0, 228, 212</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
+        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
+        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
+        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
+        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
+        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
+        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
+        "Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
+        "Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
+        " /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
+        "Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
+        "tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
+        " parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
+        "e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
+        "tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
+        "edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
+        "t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 228, 212</ClientA" & _
+        "rea></Blob>"
+        '
+        'drpDokumenttyp
+        '
+        Me.drpDokumenttyp.AllowColMove = True
+        Me.drpDokumenttyp.AllowColSelect = True
+        Me.drpDokumenttyp.AllowFilter = True
+        Me.drpDokumenttyp.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
+        Me.drpDokumenttyp.AllowSort = True
+        Me.drpDokumenttyp.AlternatingRows = False
+        Me.drpDokumenttyp.CaptionHeight = 17
+        Me.drpDokumenttyp.ColumnCaptionHeight = 17
+        Me.drpDokumenttyp.ColumnFooterHeight = 17
+        Me.drpDokumenttyp.DeadAreaBackColor = System.Drawing.Color.Empty
+        Me.drpDokumenttyp.FetchRowStyles = False
+        Me.drpDokumenttyp.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
+        Me.drpDokumenttyp.LayoutFileName = ""
+        Me.drpDokumenttyp.LayoutName = ""
+        Me.drpDokumenttyp.LayoutURL = ""
+        Me.drpDokumenttyp.Location = New System.Drawing.Point(224, 28)
+        Me.drpDokumenttyp.Name = "drpDokumenttyp"
+        GridLines2.Color = System.Drawing.Color.DarkGray
+        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
+        Me.drpDokumenttyp.RowDivider = GridLines2
+        Me.drpDokumenttyp.RowHeight = 15
+        Me.drpDokumenttyp.RowSubDividerColor = System.Drawing.Color.DarkGray
+        Me.drpDokumenttyp.ScrollTips = False
+        Me.drpDokumenttyp.Size = New System.Drawing.Size(232, 216)
+        Me.drpDokumenttyp.TabIndex = 19
+        Me.drpDokumenttyp.Text = "C1TrueDBDropdown2"
+        Me.drpDokumenttyp.Visible = False
+        Me.drpDokumenttyp.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
+        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
+        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
+        "ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
+        "CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
+        "er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
+        "dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
+        "er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
+        "ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
+        ".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
+        "olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
+        "RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
+        "tRect>0, 0, 228, 212</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
+        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
+        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
+        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
+        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
+        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
+        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
+        "Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
+        "Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
+        " /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
+        "Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
+        "tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
+        " parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
+        "e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
+        "tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
+        "edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
+        "t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 228, 212</ClientA" & _
+        "rea></Blob>"
+        '
+        'frmDomainFADokumenttyp
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(680, 273)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpDokumenttyp, Me.drpApplication})
+        Me.Name = "frmDomainFADokumenttyp"
+        Me.Text = "frmDomainFADokumenttyp"
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.drpApplication, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.drpDokumenttyp, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Private Sub frmDomainFAAppl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.TableName = "FA_Dokumenttyp"
+        Me.Text = "EDOKA-Import - Zuweisung FA-Dokumenttyp zu EDOKA-Dokumenttyp"
+        Dim dbconn As New EDOKA.DB_Connection()
+        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
+        Me.SqlConnection1.Open()
+
+        ' Nur für den aktuell gewählten Mandanten die Daten auslesen
+        Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
+        'Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
+
+        Me.SqlDataAdapter1.Fill(Me.DataSet1)
+        Me.DomainList.DataSource = Me.DataSet1
+        Me.DomainList.DataMember = Me.TableName
+        Me.FillDropDown_Appl()
+        Me.FillDropDown_DokTyp()
+        SpaltenTitel_Aktualisieren(Me.DataSet1)
+
+    End Sub
+
+    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
+        Select Case ToolBar1.Buttons.IndexOf(e.Button)
+            Case 0 'close button
+                Me.Close()
+            Case 1 'Speichern
+                Save_Data()
+        End Select
+    End Sub
+
+    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
+        Save_Data()
+    End Sub
+
+    Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
+        Dim msg As MsgBoxResult
+        If Me.DataSet1.HasChanges Then
+            msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
+            If msg = MsgBoxResult.No Then
+                e.Cancel = False
+            End If
+            If msg = MsgBoxResult.Yes Then
+                If Save_Data() Then e.Cancel = False Else e.Cancel = True
+            End If
+            If msg = MsgBoxResult.Cancel Then e.Cancel = True
+        End If
+    End Sub
+
+    Private Function Save_Data() As Boolean
+        Save_Data = True
+        Try
+            SqlDataAdapter1.Update(Me.DataSet1)
+        Catch ex As Exception
+            MsgBox(Globals.MyMsg.Get_Meldungstext(902))
+            Save_Data = False
+        End Try
+    End Function
+
+    Private Sub FillDropDown_Appl()
+        '===============================================================================
+        'Spaltenbreite DrpRight
+        '===============================================================================
+        Dim ds As New DataSet()
+        Dim sqlcmd As New SqlCommand()
+        Dim da As New SqlDataAdapter(sqlcmd)
+        Dim sTranslateTabelname As String
+        Dim sTranslateColumn As String
+
+        '======================================================================
+        'Klassifizierung
+        '======================================================================
+        sTranslateTabelname = "FA_Appl"
+        Me.drpApplication.ListField = "bezeichnung"
+        Me.drpApplication.DataField = "ApplNr"
+
+        If Not ds.Tables(sTranslateTabelname) Is Nothing Then
+            ds.Tables(sTranslateTabelname).Clear()
+        End If
+
+        With sqlcmd
+            .CommandType = CommandType.StoredProcedure
+            .CommandText = "sp_edoka_import_get_appl"
+            .Connection = SqlConnection1
+            .Parameters.Add("@mandantnr", Globals.MandantNr)
+        End With
+
+        Try
+            da.Fill(ds, sTranslateTabelname)
+            Me.drpApplication.DataSource = ds
+            Me.drpApplication.ValueTranslate = True
+            Me.drpApplication.DataSource = ds
+            Me.drpApplication.DataMember = sTranslateTabelname
+            Me.drpApplication.DisplayColumns(0).Width = 30
+
+            'Me.drpApplication.DataSource = ds.Tables(0)
+            Me.drpApplication.DataMember = ds.Tables(0).TableName
+
+            Me.DomainList.Columns("ApplNr").DropDown = Me.drpApplication
+            Me.Cursor = System.Windows.Forms.Cursors.Default
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub FillDropDown_DokTyp()
+        '===============================================================================
+        'Spaltenbreite DrpRight
+        '===============================================================================
+        Dim ds As New DataSet()
+        Dim sqlcmd As New SqlCommand()
+        Dim da As New SqlDataAdapter(sqlcmd)
+        Dim sTranslateTabelname As String
+        Dim sTranslateColumn As String
+
+        '======================================================================
+        'Klassifizierung
+        '======================================================================
+        sTranslateTabelname = "Dokumenttyp"
+        Me.drpDokumenttyp.ListField = "bezeichnung"
+        Me.drpDokumenttyp.DataField = "Dokumenttypnr"
+
+        If Not ds.Tables(sTranslateTabelname) Is Nothing Then
+            ds.Tables(sTranslateTabelname).Clear()
+        End If
+
+        With sqlcmd
+            .CommandType = CommandType.StoredProcedure
+            .CommandText = "sp_edoka_import_get_Dokumenttyp"
+            .Connection = SqlConnection1
+            .Parameters.Add("@mandantnr", Globals.MandantNr)
+        End With
+
+        Try
+            da.Fill(ds, sTranslateTabelname)
+            Me.drpDokumenttyp.DataSource = ds
+            Me.drpDokumenttyp.ValueTranslate = True
+            Me.drpDokumenttyp.DataSource = ds
+            Me.drpDokumenttyp.DataMember = sTranslateTabelname
+            Me.drpDokumenttyp.DisplayColumns(0).Width = 30
+
+            'Me.drpApplication.DataSource = ds.Tables(0)
+            Me.drpDokumenttyp.DataMember = ds.Tables(0).TableName
+
+            Me.DomainList.Columns("EDOKA_Dokumenttyp").DropDown = Me.drpDokumenttyp
+            Me.Cursor = System.Windows.Forms.Cursors.Default
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+End Class