Initial commit

BCK_Massenimport/BCK_Massenimport.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27428.2015
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "BCK_Massenimport", "BCK_Massenimport\BCK_Massenimport.csproj", "{D83DCD38-AE08-442C-8C48-21AC20EC6664}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{D83DCD38-AE08-442C-8C48-21AC20EC6664}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{D83DCD38-AE08-442C-8C48-21AC20EC6664}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{D83DCD38-AE08-442C-8C48-21AC20EC6664}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{D83DCD38-AE08-442C-8C48-21AC20EC6664}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {25A47CA1-51F4-4D30-88E1-5B88EFF54CF2}
+	EndGlobalSection
+EndGlobal

BCK_Massenimport/BCK_Massenimport/App.config

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="BCK_Massenimport.Properties.Settings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup> 
+        
+    <supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+        <BCK_Massenimport.Properties.Settings>
+            <setting name="ConnectionString" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+        </BCK_Massenimport.Properties.Settings>
+    </userSettings>
+</configuration>

BCK_Massenimport/BCK_Massenimport/BCK_Massenimport.csproj

@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{D83DCD38-AE08-442C-8C48-21AC20EC6664}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <RootNamespace>BCK_Massenimport</RootNamespace>
+    <AssemblyName>BCK_Massenimport</AssemblyName>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+    <FileAlignment>512</FileAlignment>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
+    <Reference Include="csvadapter">
+      <HintPath>..\..\..\client\EDOKA\bin\csvadapter.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Design" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="XLSLib">
+      <HintPath>..\..\..\client\EDOKA\bin\XLSLib.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="DB\clsConnectionProvider.cs" />
+    <Compile Include="DB\clsdb.cs" />
+    <Compile Include="DB\clsDBInteractionBase.cs" />
+    <Compile Include="DB\clsDokument.cs" />
+    <Compile Include="Form1.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.cs">
+      <DependentUpon>Form1.cs</DependentUpon>
+    </Compile>
+    <Compile Include="Program.cs" />
+    <Compile Include="Properties\AssemblyInfo.cs" />
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Properties\licenses.licx" />
+    <EmbeddedResource Include="Properties\Resources.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.cs</LastGenOutput>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <Compile Include="Properties\Resources.Designer.cs">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <None Include="Properties\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <LastGenOutput>Settings.Designer.cs</LastGenOutput>
+    </None>
+    <Compile Include="Properties\Settings.Designer.cs">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
+</Project>

BCK_Massenimport/BCK_Massenimport/DB/clsConnectionProvider.cs

@@ -0,0 +1,288 @@
+using System;
+using System.Configuration;
+using System.Data;
+using System.Data.SqlClient;
+using System.Collections;
+
+namespace EDOKALLBL
+{
+	public class clsConnectionProvider : IDisposable
+	{
+		#region Class Member Declarations
+			private	SqlConnection		m_scoDBConnection;
+			private	bool				m_bIsTransactionPending, m_bIsDisposed;
+			private	SqlTransaction		m_stCurrentTransaction;
+			private	ArrayList			m_alSavePoints;
+		#endregion
+
+
+		public clsConnectionProvider()
+		{
+			// Init the class
+			InitClass();
+		}
+
+
+		public void Dispose()
+		{
+			Dispose(true);
+			GC.SuppressFinalize(this);
+		}
+
+
+		protected virtual void Dispose(bool bIsDisposing)
+		{
+			// Check to see if Dispose has already been called.
+			if(!m_bIsDisposed)
+			{
+				if(bIsDisposing)
+				{
+					// Dispose managed resources.
+					if(m_stCurrentTransaction != null)
+					{
+						m_stCurrentTransaction.Dispose();
+						m_stCurrentTransaction = null;
+					}
+					if(m_scoDBConnection != null)
+					{
+						// closing the connection will abort (rollback) any pending transactions
+						m_scoDBConnection.Close();
+						m_scoDBConnection.Dispose();
+						m_scoDBConnection = null;
+					}
+				}
+			}
+			m_bIsDisposed = true;
+		}
+
+
+		private void InitClass()
+		{
+			// create all the objects and initialize other members.
+			m_scoDBConnection = new SqlConnection();
+			m_bIsDisposed = false;
+			m_stCurrentTransaction = null;
+			m_bIsTransactionPending = false;
+			m_alSavePoints = new ArrayList();
+		}
+
+
+		public bool OpenConnection()
+		{
+			try
+			{
+				if((m_scoDBConnection.State & ConnectionState.Open) > 0)
+				{
+					// it's already open.
+					throw new Exception("OpenConnection::Connection is already open.");
+				}
+				m_scoDBConnection.Open();
+				m_bIsTransactionPending = false;
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble exception
+				throw ex;
+			}
+		}
+
+
+		public bool BeginTransaction(string sTransactionName)
+		{
+			try
+			{
+				if(m_bIsTransactionPending)
+				{
+					// no nested transactions allowed.
+					throw new Exception("BeginTransaction::Already transaction pending. Nesting not allowed");
+				}
+				if((m_scoDBConnection.State & ConnectionState.Open) == 0)
+				{
+					// no open connection
+					throw new Exception("BeginTransaction::Connection is not open.");
+				}
+				// begin the transaction and store the transaction object.
+				m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName);
+				m_bIsTransactionPending = true;
+				m_alSavePoints.Clear();
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble error
+				throw ex;
+			}
+		}
+
+
+		public bool CommitTransaction()
+		{
+			try
+			{
+				if(!m_bIsTransactionPending)
+				{
+					// no transaction pending
+					throw new Exception("CommitTransaction::No transaction pending.");
+				}
+				if((m_scoDBConnection.State & ConnectionState.Open) == 0)
+				{
+					// no open connection
+					throw new Exception("CommitTransaction::Connection is not open.");
+				}
+				// commit the transaction
+				m_stCurrentTransaction.Commit();
+				m_bIsTransactionPending = false;
+				m_stCurrentTransaction.Dispose();
+				m_stCurrentTransaction = null;
+				m_alSavePoints.Clear();
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble error
+				throw ex;
+			}
+		}
+
+
+		public bool RollbackTransaction(string sTransactionToRollback)
+		{
+			try
+			{
+				if(!m_bIsTransactionPending)
+				{
+					// no transaction pending
+					throw new Exception("RollbackTransaction::No transaction pending.");
+				}
+				if((m_scoDBConnection.State & ConnectionState.Open) == 0)
+				{
+					// no open connection
+					throw new Exception("RollbackTransaction::Connection is not open.");
+				}
+				// rollback the transaction
+				m_stCurrentTransaction.Rollback(sTransactionToRollback);
+				// if this wasn't a savepoint, we've rolled back the complete transaction, so we
+				// can clean it up.
+				if(!m_alSavePoints.Contains(sTransactionToRollback))
+				{
+					// it's not a savepoint
+					m_bIsTransactionPending = false;
+					m_stCurrentTransaction.Dispose();
+					m_stCurrentTransaction = null;
+					m_alSavePoints.Clear();
+				}
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble error
+				throw ex;
+			}
+		}
+
+
+		public bool SaveTransaction(string sSavePointName)
+		{
+			try
+			{
+				if(!m_bIsTransactionPending)
+				{
+					// no transaction pending
+					throw new Exception("SaveTransaction::No transaction pending.");
+				}
+				if((m_scoDBConnection.State & ConnectionState.Open) == 0)
+				{
+					// no open connection
+					throw new Exception("SaveTransaction::Connection is not open.");
+				}
+				// save the transaction
+				m_stCurrentTransaction.Save(sSavePointName);
+				// Store the savepoint in the list.
+				m_alSavePoints.Add(sSavePointName);
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble error
+				throw ex;
+			}
+		}
+
+
+		public bool CloseConnection(bool bCommitPendingTransaction)
+		{
+			try
+			{
+				if((m_scoDBConnection.State & ConnectionState.Open) == 0)
+				{
+					// no open connection
+					return false;
+				}
+				if(m_bIsTransactionPending)
+				{
+					if(bCommitPendingTransaction)
+					{
+						// commit the pending transaction
+						m_stCurrentTransaction.Commit();
+					}
+					else
+					{
+						// rollback the pending transaction
+						m_stCurrentTransaction.Rollback();
+					}
+					m_bIsTransactionPending = false;
+					m_stCurrentTransaction.Dispose();
+					m_stCurrentTransaction = null;
+					m_alSavePoints.Clear();
+				}
+				// close the connection
+				m_scoDBConnection.Close();
+				return true;
+			}
+			catch(Exception ex)
+			{
+				// bubble error
+				throw ex;
+			}
+		}
+
+
+		#region Class Property Declarations
+		public SqlTransaction stCurrentTransaction
+		{
+			get
+			{
+				return m_stCurrentTransaction;
+			}
+		}
+
+
+		public bool bIsTransactionPending
+		{
+			get
+			{
+				return m_bIsTransactionPending;
+			}
+		}
+
+
+		public SqlConnection scoDBConnection
+		{
+			get
+			{
+				return m_scoDBConnection;
+			}
+		}
+
+
+		public string sConnectionString
+		{
+			set
+			{
+				m_scoDBConnection.ConnectionString = value;
+			}
+		}
+		#endregion
+	}
+}

BCK_Massenimport/BCK_Massenimport/DB/clsDBInteractionBase.cs

@@ -0,0 +1,187 @@
+using System;
+using System.Configuration;
+using System.Data;
+using System.Data.SqlClient;
+using System.Data.SqlTypes;
+
+namespace EDOKALLBL
+{
+	public enum LLBLError
+	{
+		AllOk
+		// Add more here (check the comma's!)
+	}
+
+
+	public interface ICommonDBAccess
+	{
+		bool		Insert();
+		bool		Update();
+		bool		Delete();
+		DataTable	SelectOne();
+		DataTable	SelectAll();
+	}
+
+
+	public abstract class clsDBInteractionBase : IDisposable, ICommonDBAccess
+	{
+		#region Class Member Declarations
+			protected	SqlConnection			m_scoMainConnection;
+			protected	int						m_iRowsAffected;
+			protected	SqlInt32				m_iErrorCode;
+			protected	bool					m_bMainConnectionIsCreatedLocal;
+			protected	clsConnectionProvider		m_cpMainConnectionProvider;
+			private		string					m_sConnectionString;
+			private		bool					m_bIsDisposed;
+		#endregion
+
+
+		public clsDBInteractionBase()
+		{
+			// Initialize the class' members.
+			InitClass();
+		}
+
+
+		private void InitClass()
+		{
+			// create all the objects and initialize other members.
+			m_scoMainConnection = new SqlConnection();
+			m_bMainConnectionIsCreatedLocal = true;
+			m_cpMainConnectionProvider = null;
+			m_iErrorCode = (int)LLBLError.AllOk;
+			m_bIsDisposed = false;
+		}
+
+
+		public void Dispose()
+		{
+			Dispose(true);
+			GC.SuppressFinalize(this);
+		}
+
+
+		protected virtual void Dispose(bool bIsDisposing)
+		{
+			// Check to see if Dispose has already been called.
+			if(!m_bIsDisposed)
+			{
+				if(bIsDisposing)
+				{
+					// Dispose managed resources.
+					if(m_bMainConnectionIsCreatedLocal)
+					{
+						// Object is created in this class, so destroy it here.
+						m_scoMainConnection.Close();
+						m_scoMainConnection.Dispose();
+						m_bMainConnectionIsCreatedLocal = false;
+					}
+					m_cpMainConnectionProvider = null;
+					m_scoMainConnection = null;
+				}
+			}
+			m_bIsDisposed = true;
+		}
+
+
+		public virtual bool Insert()
+		{
+			// No implementation, throw exception
+			throw new NotImplementedException();
+		}
+
+
+		public virtual bool Delete()
+		{
+			// No implementation, throw exception
+			throw new NotImplementedException();
+		}
+
+
+		public virtual bool Update()
+		{
+			// No implementation, throw exception
+			throw new NotImplementedException();
+		}
+
+
+		public virtual DataTable SelectOne()
+		{
+			// No implementation, throw exception
+			throw new NotImplementedException();
+		}
+
+
+		public virtual DataTable SelectAll()
+		{
+			// No implementation, throw exception
+			throw new NotImplementedException();
+		}
+
+
+		#region Class Property Declarations
+		public clsConnectionProvider cpMainConnectionProvider
+		{
+			set
+			{
+				if(value==null)
+				{
+					// Invalid value
+					throw new ArgumentNullException("cpMainConnectionProvider", "Null passed as value to this property which is not allowed.");
+				}
+
+				// A connection provider object is passed to this class.
+				// Retrieve the SqlConnection object, if present and create a
+				// reference to it. If there is already a MainConnection object
+				// referenced by the membervar, destroy that one or simply 
+				// remove the reference, based on the flag.
+				if(m_scoMainConnection!=null)
+				{
+					// First get rid of current connection object. Caller is responsible
+					if(m_bMainConnectionIsCreatedLocal)
+					{
+						// Is local created object, close it and dispose it.
+						m_scoMainConnection.Close();
+						m_scoMainConnection.Dispose();
+					}
+					// Remove reference.
+					m_scoMainConnection = null;
+				}
+				m_cpMainConnectionProvider = (clsConnectionProvider)value;
+				m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection;
+				m_bMainConnectionIsCreatedLocal = false;
+			}
+		}
+
+
+		public SqlInt32 iErrorCode
+		{
+			get
+			{
+				return m_iErrorCode;
+			}
+		}
+
+
+		public string sConnectionString
+		{
+			get
+			{
+				return m_sConnectionString;
+			}
+			set
+			{
+				m_sConnectionString = value;
+				m_scoMainConnection.ConnectionString = m_sConnectionString;
+			}
+		}
+		public int iRowsAffected
+		{
+			get
+			{
+				return m_iRowsAffected;
+			}
+		}
+		#endregion
+	}
+}

BCK_Massenimport/BCK_Massenimport/DB/clsdb.cs

@@ -0,0 +1,79 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Data.Sql;
+using System.Data.SqlClient;
+using System.Data;
+
+namespace BCK_Massenimport.DB
+{
+    
+
+    class clsdb
+    {
+        String _ConnectionString;
+
+        public DataSet dsDaten = new DataSet();
+        public SqlDataAdapter daDaten;
+
+        public String Connectionstring
+        {
+            get { return this._ConnectionString; }
+            set { this._ConnectionString = value; }
+        }
+
+        public clsdb()
+        {
+            this.Connectionstring = Properties.Settings.Default.ConnectionString;
+        }
+        public clsdb(string Connectionstring)
+        {
+            this.Connectionstring = Connectionstring;
+        }
+
+        public DataTable Get_Mitarbieter()
+        {
+            dsDaten.Tables.Clear();
+            daDaten = new SqlDataAdapter("Select mitarbeiternr, name+' ' + vorname+', '+tgnummer as Mitarbeiter from mitarbeiter where aktiv=1 order by name,vorname", this.Connectionstring);
+            daDaten.Fill(dsDaten, "Mitarbeiter");
+            return dsDaten.Tables[0];
+        }
+
+        public bool CheckPartner(String Partnernr)
+        {
+            try
+            {
+
+            string s;
+            s = Get_Num_Value(Partnernr);
+            dsDaten.Tables.Clear();
+            daDaten = new SqlDataAdapter("Select count(*) from partner where nrpar00=" + s, this.Connectionstring);
+            daDaten.Fill(dsDaten, "Partner");
+            if (dsDaten.Tables[0].Rows.Count == 0)
+            {
+                return false;
+            }
+            else
+            {
+                return true;
+            }
+            }
+            catch (Exception)
+            {
+                return false;
+            }
+        }
+
+        public string Get_Num_Value(string sin)
+        {
+            string s;
+            s = sin.Replace(".", "");
+            s = s.Replace("-", "");
+            return s;
+
+        }
+
+
+    }
+}

BCK_Massenimport/BCK_Massenimport/Form1.Designer.cs

@@ -0,0 +1,560 @@
+namespace BCK_Massenimport
+{
+    partial class Form1
+    {
+        /// <summary>
+        /// Erforderliche Designervariable.
+        /// </summary>
+        private System.ComponentModel.IContainer components = null;
+
+        /// <summary>
+        /// Verwendete Ressourcen bereinigen.
+        /// </summary>
+        /// <param name="disposing">True, wenn verwaltete Ressourcen gelöscht werden sollen; andernfalls False.</param>
+        protected override void Dispose(bool disposing)
+        {
+            if (disposing && (components != null))
+            {
+                components.Dispose();
+            }
+            base.Dispose(disposing);
+        }
+
+        #region Vom Windows Form-Designer generierter Code
+
+        /// <summary>
+        /// Erforderliche Methode für die Designerunterstützung.
+        /// Der Inhalt der Methode darf nicht mit dem Code-Editor geändert werden.
+        /// </summary>
+        private void InitializeComponent()
+        {
+            System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(Form1));
+            this.menuStrip1 = new System.Windows.Forms.MenuStrip();
+            this.dateiToolStripMenuItem = new System.Windows.Forms.ToolStripMenuItem();
+            this.beendenToolStripMenuItem = new System.Windows.Forms.ToolStripMenuItem();
+            this.toolStrip1 = new System.Windows.Forms.ToolStrip();
+            this.c1TrueDBGrid1 = new C1.Win.C1TrueDBGrid.C1TrueDBGrid();
+            this.OpenFileDialog1 = new System.Windows.Forms.OpenFileDialog();
+            this.groupBox1 = new System.Windows.Forms.GroupBox();
+            this.groupBox2 = new System.Windows.Forms.GroupBox();
+            this.label8 = new System.Windows.Forms.Label();
+            this.label7 = new System.Windows.Forms.Label();
+            this.cb7 = new System.Windows.Forms.ComboBox();
+            this.t7 = new System.Windows.Forms.TextBox();
+            this.cb6 = new System.Windows.Forms.ComboBox();
+            this.t6 = new System.Windows.Forms.TextBox();
+            this.cb5 = new System.Windows.Forms.ComboBox();
+            this.t5 = new System.Windows.Forms.TextBox();
+            this.cb4 = new System.Windows.Forms.ComboBox();
+            this.t4 = new System.Windows.Forms.TextBox();
+            this.cb3 = new System.Windows.Forms.ComboBox();
+            this.t3 = new System.Windows.Forms.TextBox();
+            this.cb2 = new System.Windows.Forms.ComboBox();
+            this.t2 = new System.Windows.Forms.TextBox();
+            this.cb1 = new System.Windows.Forms.ComboBox();
+            this.t1 = new System.Windows.Forms.TextBox();
+            this.cbboxMitarbeiter_Verantwortlich = new System.Windows.Forms.ComboBox();
+            this.label6 = new System.Windows.Forms.Label();
+            this.cbboxMitarbeiter_Ersteller = new System.Windows.Forms.ComboBox();
+            this.label5 = new System.Windows.Forms.Label();
+            this.cbboxBezeichnung = new System.Windows.Forms.ComboBox();
+            this.label4 = new System.Windows.Forms.Label();
+            this.cbboxKonto = new System.Windows.Forms.ComboBox();
+            this.label3 = new System.Windows.Forms.Label();
+            this.cbboxDokumenttyp = new System.Windows.Forms.ComboBox();
+            this.label2 = new System.Windows.Forms.Label();
+            this.cbboxPartnerNr = new System.Windows.Forms.ComboBox();
+            this.label1 = new System.Windows.Forms.Label();
+            this.groupBox3 = new System.Windows.Forms.GroupBox();
+            this.button6 = new System.Windows.Forms.Button();
+            this.button5 = new System.Windows.Forms.Button();
+            this.button4 = new System.Windows.Forms.Button();
+            this.button3 = new System.Windows.Forms.Button();
+            this.button2 = new System.Windows.Forms.Button();
+            this.button1 = new System.Windows.Forms.Button();
+            this.menuStrip1.SuspendLayout();
+            ((System.ComponentModel.ISupportInitialize)(this.c1TrueDBGrid1)).BeginInit();
+            this.groupBox1.SuspendLayout();
+            this.groupBox2.SuspendLayout();
+            this.groupBox3.SuspendLayout();
+            this.SuspendLayout();
+            // 
+            // menuStrip1
+            // 
+            this.menuStrip1.Items.AddRange(new System.Windows.Forms.ToolStripItem[] {
+            this.dateiToolStripMenuItem});
+            this.menuStrip1.Location = new System.Drawing.Point(0, 0);
+            this.menuStrip1.Name = "menuStrip1";
+            this.menuStrip1.Size = new System.Drawing.Size(996, 24);
+            this.menuStrip1.TabIndex = 0;
+            this.menuStrip1.Text = "menuStrip1";
+            // 
+            // dateiToolStripMenuItem
+            // 
+            this.dateiToolStripMenuItem.DropDownItems.AddRange(new System.Windows.Forms.ToolStripItem[] {
+            this.beendenToolStripMenuItem});
+            this.dateiToolStripMenuItem.Name = "dateiToolStripMenuItem";
+            this.dateiToolStripMenuItem.Size = new System.Drawing.Size(46, 20);
+            this.dateiToolStripMenuItem.Text = "&Datei";
+            // 
+            // beendenToolStripMenuItem
+            // 
+            this.beendenToolStripMenuItem.Name = "beendenToolStripMenuItem";
+            this.beendenToolStripMenuItem.Size = new System.Drawing.Size(180, 22);
+            this.beendenToolStripMenuItem.Text = "&Beenden";
+            this.beendenToolStripMenuItem.Click += new System.EventHandler(this.beendenToolStripMenuItem_Click);
+            // 
+            // toolStrip1
+            // 
+            this.toolStrip1.Location = new System.Drawing.Point(0, 24);
+            this.toolStrip1.Name = "toolStrip1";
+            this.toolStrip1.Size = new System.Drawing.Size(996, 25);
+            this.toolStrip1.TabIndex = 1;
+            this.toolStrip1.Text = "toolStrip1";
+            // 
+            // c1TrueDBGrid1
+            // 
+            this.c1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill;
+            this.c1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column";
+            this.c1TrueDBGrid1.Images.Add(((System.Drawing.Image)(resources.GetObject("c1TrueDBGrid1.Images"))));
+            this.c1TrueDBGrid1.Location = new System.Drawing.Point(3, 16);
+            this.c1TrueDBGrid1.Name = "c1TrueDBGrid1";
+            this.c1TrueDBGrid1.PreviewInfo.Location = new System.Drawing.Point(0, 0);
+            this.c1TrueDBGrid1.PreviewInfo.Size = new System.Drawing.Size(0, 0);
+            this.c1TrueDBGrid1.PreviewInfo.ZoomFactor = 75D;
+            this.c1TrueDBGrid1.PrintInfo.PageSettings = ((System.Drawing.Printing.PageSettings)(resources.GetObject("c1TrueDBGrid1.PrintInfo.PageSettings")));
+            this.c1TrueDBGrid1.Size = new System.Drawing.Size(990, 382);
+            this.c1TrueDBGrid1.TabIndex = 2;
+            this.c1TrueDBGrid1.PropBag = resources.GetString("c1TrueDBGrid1.PropBag");
+            // 
+            // OpenFileDialog1
+            // 
+            this.OpenFileDialog1.FileName = "openFileDialog1";
+            // 
+            // groupBox1
+            // 
+            this.groupBox1.Controls.Add(this.c1TrueDBGrid1);
+            this.groupBox1.Dock = System.Windows.Forms.DockStyle.Fill;
+            this.groupBox1.Location = new System.Drawing.Point(0, 49);
+            this.groupBox1.Name = "groupBox1";
+            this.groupBox1.Size = new System.Drawing.Size(996, 401);
+            this.groupBox1.TabIndex = 3;
+            this.groupBox1.TabStop = false;
+            this.groupBox1.Text = "Daten";
+            // 
+            // groupBox2
+            // 
+            this.groupBox2.Controls.Add(this.label8);
+            this.groupBox2.Controls.Add(this.label7);
+            this.groupBox2.Controls.Add(this.cb7);
+            this.groupBox2.Controls.Add(this.t7);
+            this.groupBox2.Controls.Add(this.cb6);
+            this.groupBox2.Controls.Add(this.t6);
+            this.groupBox2.Controls.Add(this.cb5);
+            this.groupBox2.Controls.Add(this.t5);
+            this.groupBox2.Controls.Add(this.cb4);
+            this.groupBox2.Controls.Add(this.t4);
+            this.groupBox2.Controls.Add(this.cb3);
+            this.groupBox2.Controls.Add(this.t3);
+            this.groupBox2.Controls.Add(this.cb2);
+            this.groupBox2.Controls.Add(this.t2);
+            this.groupBox2.Controls.Add(this.cb1);
+            this.groupBox2.Controls.Add(this.t1);
+            this.groupBox2.Controls.Add(this.cbboxMitarbeiter_Verantwortlich);
+            this.groupBox2.Controls.Add(this.label6);
+            this.groupBox2.Controls.Add(this.cbboxMitarbeiter_Ersteller);
+            this.groupBox2.Controls.Add(this.label5);
+            this.groupBox2.Controls.Add(this.cbboxBezeichnung);
+            this.groupBox2.Controls.Add(this.label4);
+            this.groupBox2.Controls.Add(this.cbboxKonto);
+            this.groupBox2.Controls.Add(this.label3);
+            this.groupBox2.Controls.Add(this.cbboxDokumenttyp);
+            this.groupBox2.Controls.Add(this.label2);
+            this.groupBox2.Controls.Add(this.cbboxPartnerNr);
+            this.groupBox2.Controls.Add(this.label1);
+            this.groupBox2.Dock = System.Windows.Forms.DockStyle.Right;
+            this.groupBox2.Location = new System.Drawing.Point(397, 49);
+            this.groupBox2.Name = "groupBox2";
+            this.groupBox2.Size = new System.Drawing.Size(399, 401);
+            this.groupBox2.TabIndex = 4;
+            this.groupBox2.TabStop = false;
+            this.groupBox2.Text = "Mapping";
+            // 
+            // label8
+            // 
+            this.label8.AutoSize = true;
+            this.label8.Location = new System.Drawing.Point(176, 189);
+            this.label8.Name = "label8";
+            this.label8.Size = new System.Drawing.Size(37, 13);
+            this.label8.TabIndex = 29;
+            this.label8.Text = "Spalte";
+            // 
+            // label7
+            // 
+            this.label7.AutoSize = true;
+            this.label7.Location = new System.Drawing.Point(18, 189);
+            this.label7.Name = "label7";
+            this.label7.Size = new System.Drawing.Size(76, 13);
+            this.label7.TabIndex = 28;
+            this.label7.Text = "Dokumentwert";
+            // 
+            // cb7
+            // 
+            this.cb7.FormattingEnabled = true;
+            this.cb7.Location = new System.Drawing.Point(177, 367);
+            this.cb7.Name = "cb7";
+            this.cb7.Size = new System.Drawing.Size(201, 21);
+            this.cb7.TabIndex = 27;
+            // 
+            // t7
+            // 
+            this.t7.Location = new System.Drawing.Point(19, 367);
+            this.t7.Name = "t7";
+            this.t7.Size = new System.Drawing.Size(152, 20);
+            this.t7.TabIndex = 26;
+            // 
+            // cb6
+            // 
+            this.cb6.FormattingEnabled = true;
+            this.cb6.Location = new System.Drawing.Point(177, 340);
+            this.cb6.Name = "cb6";
+            this.cb6.Size = new System.Drawing.Size(201, 21);
+            this.cb6.TabIndex = 25;
+            // 
+            // t6
+            // 
+            this.t6.Location = new System.Drawing.Point(19, 340);
+            this.t6.Name = "t6";
+            this.t6.Size = new System.Drawing.Size(152, 20);
+            this.t6.TabIndex = 24;
+            // 
+            // cb5
+            // 
+            this.cb5.FormattingEnabled = true;
+            this.cb5.Location = new System.Drawing.Point(179, 313);
+            this.cb5.Name = "cb5";
+            this.cb5.Size = new System.Drawing.Size(201, 21);
+            this.cb5.TabIndex = 23;
+            // 
+            // t5
+            // 
+            this.t5.Location = new System.Drawing.Point(21, 313);
+            this.t5.Name = "t5";
+            this.t5.Size = new System.Drawing.Size(152, 20);
+            this.t5.TabIndex = 22;
+            // 
+            // cb4
+            // 
+            this.cb4.FormattingEnabled = true;
+            this.cb4.Location = new System.Drawing.Point(179, 286);
+            this.cb4.Name = "cb4";
+            this.cb4.Size = new System.Drawing.Size(201, 21);
+            this.cb4.TabIndex = 21;
+            // 
+            // t4
+            // 
+            this.t4.Location = new System.Drawing.Point(21, 286);
+            this.t4.Name = "t4";
+            this.t4.Size = new System.Drawing.Size(152, 20);
+            this.t4.TabIndex = 20;
+            // 
+            // cb3
+            // 
+            this.cb3.FormattingEnabled = true;
+            this.cb3.Location = new System.Drawing.Point(179, 259);
+            this.cb3.Name = "cb3";
+            this.cb3.Size = new System.Drawing.Size(201, 21);
+            this.cb3.TabIndex = 19;
+            // 
+            // t3
+            // 
+            this.t3.Location = new System.Drawing.Point(21, 259);
+            this.t3.Name = "t3";
+            this.t3.Size = new System.Drawing.Size(152, 20);
+            this.t3.TabIndex = 18;
+            // 
+            // cb2
+            // 
+            this.cb2.FormattingEnabled = true;
+            this.cb2.Location = new System.Drawing.Point(179, 232);
+            this.cb2.Name = "cb2";
+            this.cb2.Size = new System.Drawing.Size(201, 21);
+            this.cb2.TabIndex = 17;
+            // 
+            // t2
+            // 
+            this.t2.Location = new System.Drawing.Point(21, 232);
+            this.t2.Name = "t2";
+            this.t2.Size = new System.Drawing.Size(152, 20);
+            this.t2.TabIndex = 16;
+            // 
+            // cb1
+            // 
+            this.cb1.FormattingEnabled = true;
+            this.cb1.Location = new System.Drawing.Point(179, 205);
+            this.cb1.Name = "cb1";
+            this.cb1.Size = new System.Drawing.Size(201, 21);
+            this.cb1.TabIndex = 15;
+            // 
+            // t1
+            // 
+            this.t1.Location = new System.Drawing.Point(21, 205);
+            this.t1.Name = "t1";
+            this.t1.Size = new System.Drawing.Size(152, 20);
+            this.t1.TabIndex = 14;
+            // 
+            // cbboxMitarbeiter_Verantwortlich
+            // 
+            this.cbboxMitarbeiter_Verantwortlich.FormattingEnabled = true;
+            this.cbboxMitarbeiter_Verantwortlich.Location = new System.Drawing.Point(177, 160);
+            this.cbboxMitarbeiter_Verantwortlich.Name = "cbboxMitarbeiter_Verantwortlich";
+            this.cbboxMitarbeiter_Verantwortlich.Size = new System.Drawing.Size(201, 21);
+            this.cbboxMitarbeiter_Verantwortlich.TabIndex = 13;
+            // 
+            // label6
+            // 
+            this.label6.AutoSize = true;
+            this.label6.Location = new System.Drawing.Point(18, 163);
+            this.label6.Name = "label6";
+            this.label6.Size = new System.Drawing.Size(74, 13);
+            this.label6.TabIndex = 12;
+            this.label6.Text = "Verantwortlich";
+            // 
+            // cbboxMitarbeiter_Ersteller
+            // 
+            this.cbboxMitarbeiter_Ersteller.FormattingEnabled = true;
+            this.cbboxMitarbeiter_Ersteller.Location = new System.Drawing.Point(177, 133);
+            this.cbboxMitarbeiter_Ersteller.Name = "cbboxMitarbeiter_Ersteller";
+            this.cbboxMitarbeiter_Ersteller.Size = new System.Drawing.Size(201, 21);
+            this.cbboxMitarbeiter_Ersteller.TabIndex = 11;
+            // 
+            // label5
+            // 
+            this.label5.AutoSize = true;
+            this.label5.Location = new System.Drawing.Point(18, 136);
+            this.label5.Name = "label5";
+            this.label5.Size = new System.Drawing.Size(44, 13);
+            this.label5.TabIndex = 10;
+            this.label5.Text = "Ersteller";
+            // 
+            // cbboxBezeichnung
+            // 
+            this.cbboxBezeichnung.FormattingEnabled = true;
+            this.cbboxBezeichnung.Location = new System.Drawing.Point(177, 106);
+            this.cbboxBezeichnung.Name = "cbboxBezeichnung";
+            this.cbboxBezeichnung.Size = new System.Drawing.Size(201, 21);
+            this.cbboxBezeichnung.TabIndex = 9;
+            // 
+            // label4
+            // 
+            this.label4.AutoSize = true;
+            this.label4.Location = new System.Drawing.Point(18, 109);
+            this.label4.Name = "label4";
+            this.label4.Size = new System.Drawing.Size(69, 13);
+            this.label4.TabIndex = 8;
+            this.label4.Text = "Bezeichnung";
+            // 
+            // cbboxKonto
+            // 
+            this.cbboxKonto.FormattingEnabled = true;
+            this.cbboxKonto.Location = new System.Drawing.Point(177, 79);
+            this.cbboxKonto.Name = "cbboxKonto";
+            this.cbboxKonto.Size = new System.Drawing.Size(201, 21);
+            this.cbboxKonto.TabIndex = 5;
+            // 
+            // label3
+            // 
+            this.label3.AutoSize = true;
+            this.label3.Location = new System.Drawing.Point(18, 82);
+            this.label3.Name = "label3";
+            this.label3.Size = new System.Drawing.Size(104, 13);
+            this.label3.TabIndex = 4;
+            this.label3.Text = "Konto / COLD-Index";
+            // 
+            // cbboxDokumenttyp
+            // 
+            this.cbboxDokumenttyp.FormattingEnabled = true;
+            this.cbboxDokumenttyp.Location = new System.Drawing.Point(177, 52);
+            this.cbboxDokumenttyp.Name = "cbboxDokumenttyp";
+            this.cbboxDokumenttyp.Size = new System.Drawing.Size(201, 21);
+            this.cbboxDokumenttyp.TabIndex = 3;
+            // 
+            // label2
+            // 
+            this.label2.AutoSize = true;
+            this.label2.Location = new System.Drawing.Point(18, 55);
+            this.label2.Name = "label2";
+            this.label2.Size = new System.Drawing.Size(70, 13);
+            this.label2.TabIndex = 2;
+            this.label2.Text = "Dokumenttyp";
+            // 
+            // cbboxPartnerNr
+            // 
+            this.cbboxPartnerNr.FormattingEnabled = true;
+            this.cbboxPartnerNr.Location = new System.Drawing.Point(177, 25);
+            this.cbboxPartnerNr.Name = "cbboxPartnerNr";
+            this.cbboxPartnerNr.Size = new System.Drawing.Size(201, 21);
+            this.cbboxPartnerNr.TabIndex = 1;
+            // 
+            // label1
+            // 
+            this.label1.AutoSize = true;
+            this.label1.Location = new System.Drawing.Point(18, 28);
+            this.label1.Name = "label1";
+            this.label1.Size = new System.Drawing.Size(52, 13);
+            this.label1.TabIndex = 0;
+            this.label1.Text = "PartnerNr";
+            // 
+            // groupBox3
+            // 
+            this.groupBox3.Controls.Add(this.button6);
+            this.groupBox3.Controls.Add(this.button5);
+            this.groupBox3.Controls.Add(this.button4);
+            this.groupBox3.Controls.Add(this.button3);
+            this.groupBox3.Controls.Add(this.button2);
+            this.groupBox3.Controls.Add(this.button1);
+            this.groupBox3.Dock = System.Windows.Forms.DockStyle.Right;
+            this.groupBox3.Location = new System.Drawing.Point(796, 49);
+            this.groupBox3.Name = "groupBox3";
+            this.groupBox3.Size = new System.Drawing.Size(200, 401);
+            this.groupBox3.TabIndex = 5;
+            this.groupBox3.TabStop = false;
+            this.groupBox3.Text = "Verarbeitung";
+            // 
+            // button6
+            // 
+            this.button6.Enabled = false;
+            this.button6.Location = new System.Drawing.Point(6, 171);
+            this.button6.Name = "button6";
+            this.button6.Size = new System.Drawing.Size(182, 23);
+            this.button6.TabIndex = 8;
+            this.button6.Text = "Resultat speichern";
+            this.button6.UseVisualStyleBackColor = true;
+            // 
+            // button5
+            // 
+            this.button5.Enabled = false;
+            this.button5.Location = new System.Drawing.Point(6, 142);
+            this.button5.Name = "button5";
+            this.button5.Size = new System.Drawing.Size(182, 23);
+            this.button5.TabIndex = 7;
+            this.button5.Text = "Barcodeblätter durcken";
+            this.button5.UseVisualStyleBackColor = true;
+            // 
+            // button4
+            // 
+            this.button4.Enabled = false;
+            this.button4.Location = new System.Drawing.Point(6, 113);
+            this.button4.Name = "button4";
+            this.button4.Size = new System.Drawing.Size(182, 23);
+            this.button4.TabIndex = 6;
+            this.button4.Text = "Dokumente generieren";
+            this.button4.UseVisualStyleBackColor = true;
+            this.button4.Click += new System.EventHandler(this.button4_Click);
+            // 
+            // button3
+            // 
+            this.button3.Enabled = false;
+            this.button3.Location = new System.Drawing.Point(6, 84);
+            this.button3.Name = "button3";
+            this.button3.Size = new System.Drawing.Size(182, 23);
+            this.button3.TabIndex = 5;
+            this.button3.Text = "Partner prüfen";
+            this.button3.UseVisualStyleBackColor = true;
+            this.button3.Click += new System.EventHandler(this.button3_Click);
+            // 
+            // button2
+            // 
+            this.button2.Enabled = false;
+            this.button2.Location = new System.Drawing.Point(6, 55);
+            this.button2.Name = "button2";
+            this.button2.Size = new System.Drawing.Size(182, 23);
+            this.button2.TabIndex = 4;
+            this.button2.Text = "Feldmapping abgeschlossen";
+            this.button2.UseVisualStyleBackColor = true;
+            this.button2.Click += new System.EventHandler(this.button2_Click);
+            // 
+            // button1
+            // 
+            this.button1.Location = new System.Drawing.Point(6, 25);
+            this.button1.Name = "button1";
+            this.button1.Size = new System.Drawing.Size(182, 23);
+            this.button1.TabIndex = 3;
+            this.button1.Text = "Daten importieren";
+            this.button1.UseVisualStyleBackColor = true;
+            this.button1.Click += new System.EventHandler(this.button1_Click);
+            // 
+            // Form1
+            // 
+            this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
+            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
+            this.ClientSize = new System.Drawing.Size(996, 450);
+            this.Controls.Add(this.groupBox2);
+            this.Controls.Add(this.groupBox3);
+            this.Controls.Add(this.groupBox1);
+            this.Controls.Add(this.toolStrip1);
+            this.Controls.Add(this.menuStrip1);
+            this.MainMenuStrip = this.menuStrip1;
+            this.Name = "Form1";
+            this.Text = "Form1";
+            this.Load += new System.EventHandler(this.Form1_Load);
+            this.menuStrip1.ResumeLayout(false);
+            this.menuStrip1.PerformLayout();
+            ((System.ComponentModel.ISupportInitialize)(this.c1TrueDBGrid1)).EndInit();
+            this.groupBox1.ResumeLayout(false);
+            this.groupBox2.ResumeLayout(false);
+            this.groupBox2.PerformLayout();
+            this.groupBox3.ResumeLayout(false);
+            this.ResumeLayout(false);
+            this.PerformLayout();
+
+        }
+
+        #endregion
+
+        private System.Windows.Forms.MenuStrip menuStrip1;
+        private System.Windows.Forms.ToolStrip toolStrip1;
+        private C1.Win.C1TrueDBGrid.C1TrueDBGrid c1TrueDBGrid1;
+        private System.Windows.Forms.ToolStripMenuItem dateiToolStripMenuItem;
+        private System.Windows.Forms.ToolStripMenuItem beendenToolStripMenuItem;
+        private System.Windows.Forms.OpenFileDialog OpenFileDialog1;
+        private System.Windows.Forms.GroupBox groupBox1;
+        private System.Windows.Forms.GroupBox groupBox2;
+        private System.Windows.Forms.ComboBox cbboxMitarbeiter_Verantwortlich;
+        private System.Windows.Forms.Label label6;
+        private System.Windows.Forms.ComboBox cbboxMitarbeiter_Ersteller;
+        private System.Windows.Forms.Label label5;
+        private System.Windows.Forms.ComboBox cbboxBezeichnung;
+        private System.Windows.Forms.Label label4;
+        private System.Windows.Forms.ComboBox cbboxKonto;
+        private System.Windows.Forms.Label label3;
+        private System.Windows.Forms.ComboBox cbboxDokumenttyp;
+        private System.Windows.Forms.Label label2;
+        private System.Windows.Forms.ComboBox cbboxPartnerNr;
+        private System.Windows.Forms.Label label1;
+        private System.Windows.Forms.Label label8;
+        private System.Windows.Forms.Label label7;
+        private System.Windows.Forms.ComboBox cb7;
+        private System.Windows.Forms.TextBox t7;
+        private System.Windows.Forms.ComboBox cb6;
+        private System.Windows.Forms.TextBox t6;
+        private System.Windows.Forms.ComboBox cb5;
+        private System.Windows.Forms.TextBox t5;
+        private System.Windows.Forms.ComboBox cb4;
+        private System.Windows.Forms.TextBox t4;
+        private System.Windows.Forms.ComboBox cb3;
+        private System.Windows.Forms.TextBox t3;
+        private System.Windows.Forms.ComboBox cb2;
+        private System.Windows.Forms.TextBox t2;
+        private System.Windows.Forms.ComboBox cb1;
+        private System.Windows.Forms.TextBox t1;
+        private System.Windows.Forms.GroupBox groupBox3;
+        private System.Windows.Forms.Button button6;
+        private System.Windows.Forms.Button button5;
+        private System.Windows.Forms.Button button4;
+        private System.Windows.Forms.Button button3;
+        private System.Windows.Forms.Button button2;
+        private System.Windows.Forms.Button button1;
+    }
+}
+

BCK_Massenimport/BCK_Massenimport/Form1.cs

@@ -0,0 +1,251 @@
+using System;
+using System.Collections.Generic;
+using System.ComponentModel;
+using System.Data;
+using System.Drawing;
+using System.Linq;
+using System.Text;
+using System.Data.OleDb;
+using System.Data;
+
+using System.Windows.Forms;
+
+namespace BCK_Massenimport
+{
+    public partial class Form1 : Form
+    {
+        DataSet ds = new DataSet();
+        DataTable dt = new DataTable();
+        DB.clsdb db = new DB.clsdb();
+        string Errormsg = "";
+        public Form1()
+        {
+            InitializeComponent();
+        }
+
+        private void beendenToolStripMenuItem_Click(object sender, EventArgs e)
+        {
+            this.Close();
+        }
+
+
+
+        private void FillDataTableFromText(string file)
+        {
+            string ext = System.IO.Path.GetExtension(file);
+            ext = ext.ToUpper();
+            switch (ext)
+            {
+                case ".CSV":
+                    {
+                        MyNameSpace.CSVDataAdapter csv = new MyNameSpace.CSVDataAdapter(file, true, ';');
+                        csv.Fill(this.ds);
+                        break;
+                    }
+
+                case ".TXT":
+                    {
+                        MyNameSpace.CSVDataAdapter csv = new MyNameSpace.CSVDataAdapter(file, true, ';');
+                        break;
+                    }
+
+                case ".XLS":
+                    {
+                        oledbimport(file, "XLS");
+                        this.ds.Tables[0].TableName = "DokumentData";
+                        break;
+                    }
+
+                case ".XLSX":
+                    {
+                        oledbimport(file, "XLSX");
+                        this.ds.Tables[0].TableName = "DokumentData";
+                        break;
+                    }
+            }
+
+        }
+
+        private void oledbimport(string file, string filetype)
+        {
+            DataTable dt = new DataTable();
+            OleDbConnection conn;
+            string sql;
+            string FileConnection;
+            OleDbDataAdapter oda = new OleDbDataAdapter();
+            string msg;
+
+            switch (filetype)
+            {
+                case "XLS":
+                    {
+                        try
+                        {
+                            XLSLib.clsXLSLib xls = new XLSLib.clsXLSLib();
+                            dt = xls.Get_Excel(file);
+                            this.ds.Tables.Add(dt);
+
+                        }
+                        catch (Exception ex)
+                        {
+                        }
+
+                        break;
+                    }
+
+                case "XLSX":
+                    {
+                        try
+                        {
+                            XLSLib.clsXLSLib xls = new XLSLib.clsXLSLib();
+                            dt = xls.Get_Excel(file);
+                            this.ds.Tables.Add(dt);
+
+                        }
+                        catch (Exception ex)
+                        {
+                        }
+                        break;
+                    }
+            }
+        }
+
+        private void Form1_Load(object sender, EventArgs e)
+        {
+
+        }
+
+        private void button1_Click(object sender, EventArgs e)
+        {
+            try
+            {
+                this.OpenFileDialog1.Filter = "Excel-Dateien (*.xlsx)|*.xlsx|Excel-Dateien (*.xls)|*.xls|CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*";
+                this.OpenFileDialog1.ShowDialog();
+                if (this.OpenFileDialog1.FileName != "")
+                {
+                    FillDataTableFromText(this.OpenFileDialog1.FileName);
+                    this.c1TrueDBGrid1.DataSource = null;
+                    this.c1TrueDBGrid1.DataSource = ds;
+                    this.c1TrueDBGrid1.DataMember = ds.Tables[0].TableName;
+
+                    this.cbboxPartnerNr.Items.Clear();
+                    this.cbboxDokumenttyp.Items.Clear();
+                    this.cbboxKonto.Items.Clear();
+                    this.cbboxBezeichnung.Items.Clear();
+                    this.cbboxMitarbeiter_Ersteller.Items.Clear();
+                    this.cbboxMitarbeiter_Verantwortlich.Items.Clear();
+                    t1.Text = "";
+                    t2.Text = "";
+                    t3.Text = "";
+                    t4.Text = "";
+                    t5.Text = "";
+                    t6.Text = "";
+                    t7.Text = "";
+                    cb1.Items.Clear();
+                    cb2.Items.Clear();
+                    cb3.Items.Clear();
+                    cb4.Items.Clear();
+                    cb5.Items.Clear();
+                    cb6.Items.Clear();
+                    cb7.Items.Clear();
+                    foreach (DataColumn dc in ds.Tables[0].Columns)
+                    {
+                        this.cbboxPartnerNr.Items.Add(dc.ColumnName);
+                        this.cbboxDokumenttyp.Items.Add(dc.ColumnName);
+                        this.cbboxKonto.Items.Add(dc.ColumnName);
+                        this.cbboxBezeichnung.Items.Add(dc.ColumnName);
+                        this.cbboxMitarbeiter_Ersteller.Items.Add(dc.ColumnName);
+                        this.cbboxMitarbeiter_Verantwortlich.Items.Add(dc.ColumnName);
+                        cb1.Items.Add(dc.ColumnName);
+                        cb2.Items.Add(dc.ColumnName);
+                        cb3.Items.Add(dc.ColumnName);
+                        cb4.Items.Add(dc.ColumnName);
+                        cb5.Items.Add(dc.ColumnName);
+                        cb6.Items.Add(dc.ColumnName);
+                        cb7.Items.Add(dc.ColumnName);
+                    }
+                    button2.Enabled = true;
+                    DataTable mitarbeiter = new DataTable();
+                    mitarbeiter = db.Get_Mitarbieter();
+                    this.cbboxMitarbeiter_Ersteller.DataSource = mitarbeiter;
+                    this.cbboxMitarbeiter_Ersteller.DisplayMember = "Mitarbeiter";
+                    this.cbboxMitarbeiter_Ersteller.ValueMember = "Mitarbeiternr";
+                    this.cbboxMitarbeiter_Verantwortlich.DataSource = mitarbeiter;
+                    this.cbboxMitarbeiter_Verantwortlich.DisplayMember = "Mitarbeiter";
+                    this.cbboxMitarbeiter_Verantwortlich.ValueMember = "Mitarbeiternr";
+                }
+                
+            }
+
+            catch (Exception)
+            {
+
+                throw;
+            }
+
+        }
+
+        private void button2_Click(object sender, EventArgs e)
+        {
+            Errormsg = "";
+            if (this.cbboxPartnerNr.Text == "") { Errormsg = Errormsg + "Mapping Partnernr fehlt" + '\n'; }
+            if (this.cbboxDokumenttyp.Text == "") { Errormsg = Errormsg + "Mapping Dokumenttyp fehlt" + '\n'; }
+            if (this.cbboxMitarbeiter_Ersteller.Text == "") { Errormsg = Errormsg + "Angaben zu Ersteller fehlt" + '\n'; }
+            if (this.cbboxMitarbeiter_Verantwortlich.Text == "") { Errormsg = Errormsg + "Angaben zu Verantwortlicher fehlt" + '\n'; }
+
+            check_value(t1, cb1, "1");
+            check_value(t2, cb2, "2");
+            check_value(t3, cb3, "3");
+            check_value(t4, cb4, "4");
+            check_value(t5, cb5, "5");
+            check_value(t6, cb6, "6");
+            check_value(t7, cb7, "7");
+
+            if (Errormsg!="")
+            {
+                MessageBox.Show(Errormsg);
+            }
+            else
+            {
+                this.button3.Enabled = true;
+            }
+
+        }
+
+        private void check_value(TextBox t, ComboBox c, string Nr)
+        {
+            if ((t.Text == "" && c.Text != "") || (t.Text != "" && c.Text == ""))
+            {
+                this.Errormsg = this.Errormsg + "Definition Dokumentwert Nr. " + Nr.ToString() + " ist nicht korrekt" + "\n";
+            }
+        }
+
+        private void button3_Click(object sender, EventArgs e)
+        {
+            int Error = 0;
+            foreach (DataRow r in ds.Tables[0].Rows)
+            {
+
+                if (db.CheckPartner(r[r.Table.Columns[this.cbboxPartnerNr.Text].Ordinal].ToString()) != false)
+                {
+                    Error = Error + 1;
+                }
+
+
+            }
+            if (Error>0)
+            {
+                MessageBox.Show(Error.ToString() + " Partner sind in EDOKA nicht vorhanden.");
+            }
+            else
+            {
+                button4.Enabled = true;
+            }
+        }
+
+        private void button4_Click(object sender, EventArgs e)
+        {
+
+        }
+    }
+}

BCK_Massenimport/BCK_Massenimport/Form1.resx

@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="menuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="toolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="c1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="c1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
+        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
+        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
+        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
+        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
+        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
+        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
+        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
+        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
+        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
+        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
+        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
+        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
+        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
+        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
+        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
+        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
+        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
+        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
+        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
+        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
+</value>
+  </data>
+  <data name="c1TrueDBGrid1.PropBag" xml:space="preserve">
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 988, 380&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 988, 380&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>237, 17</value>
+  </metadata>
+</root>

BCK_Massenimport/BCK_Massenimport/Helpers/clsHelper.cs

@@ -0,0 +1,11 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+
+namespace BCK_Massenimport.Helpers
+{
+    class clsHelper
+    {
+    }
+}

BCK_Massenimport/BCK_Massenimport/Program.cs

@@ -0,0 +1,22 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+
+using System.Windows.Forms;
+
+namespace BCK_Massenimport
+{
+    static class Program
+    {
+        /// <summary>
+        /// Der Haupteinstiegspunkt für die Anwendung.
+        /// </summary>
+        [STAThread]
+        static void Main()
+        {
+            Application.EnableVisualStyles();
+            Application.SetCompatibleTextRenderingDefault(false);
+            Application.Run(new Form1());
+        }
+    }
+}

BCK_Massenimport/BCK_Massenimport/Properties/AssemblyInfo.cs

@@ -0,0 +1,36 @@
+using System.Reflection;
+using System.Runtime.CompilerServices;
+using System.Runtime.InteropServices;
+
+// Allgemeine Informationen über eine Assembly werden über die folgenden
+// Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+// die einer Assembly zugeordnet sind.
+[assembly: AssemblyTitle("BCK_Massenimport")]
+[assembly: AssemblyDescription("")]
+[assembly: AssemblyConfiguration("")]
+[assembly: AssemblyCompany("")]
+[assembly: AssemblyProduct("BCK_Massenimport")]
+[assembly: AssemblyCopyright("Copyright ©  2018")]
+[assembly: AssemblyTrademark("")]
+[assembly: AssemblyCulture("")]
+
+// Durch Festlegen von ComVisible auf FALSE werden die Typen in dieser Assembly
+// für COM-Komponenten unsichtbar.  Wenn Sie auf einen Typ in dieser Assembly von
+// COM aus zugreifen müssen, sollten Sie das ComVisible-Attribut für diesen Typ auf "True" festlegen.
+[assembly: ComVisible(false)]
+
+// Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+[assembly: Guid("d83dcd38-ae08-442c-8c48-21ac20ec6664")]
+
+// Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+//
+//      Hauptversion
+//      Nebenversion
+//      Buildnummer
+//      Revision
+//
+// Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+// übernehmen, indem Sie "*" eingeben:
+// [assembly: AssemblyVersion("1.0.*")]
+[assembly: AssemblyVersion("1.0.0.0")]
+[assembly: AssemblyFileVersion("1.0.0.0")]

BCK_Massenimport/BCK_Massenimport/Properties/Resources.Designer.cs

@@ -0,0 +1,63 @@
+//------------------------------------------------------------------------------
+// <auto-generated>
+//     Dieser Code wurde von einem Tool generiert.
+//     Laufzeitversion:4.0.30319.42000
+//
+//     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+//     der Code erneut generiert wird.
+// </auto-generated>
+//------------------------------------------------------------------------------
+
+namespace BCK_Massenimport.Properties {
+    using System;
+    
+    
+    /// <summary>
+    ///   Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    /// </summary>
+    // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0")]
+    [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
+    [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
+    internal class Resources {
+        
+        private static global::System.Resources.ResourceManager resourceMan;
+        
+        private static global::System.Globalization.CultureInfo resourceCulture;
+        
+        [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")]
+        internal Resources() {
+        }
+        
+        /// <summary>
+        ///   Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        /// </summary>
+        [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
+        internal static global::System.Resources.ResourceManager ResourceManager {
+            get {
+                if (object.ReferenceEquals(resourceMan, null)) {
+                    global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("BCK_Massenimport.Properties.Resources", typeof(Resources).Assembly);
+                    resourceMan = temp;
+                }
+                return resourceMan;
+            }
+        }
+        
+        /// <summary>
+        ///   Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        ///   Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        /// </summary>
+        [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
+        internal static global::System.Globalization.CultureInfo Culture {
+            get {
+                return resourceCulture;
+            }
+            set {
+                resourceCulture = value;
+            }
+        }
+    }
+}

BCK_Massenimport/BCK_Massenimport/Properties/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

BCK_Massenimport/BCK_Massenimport/Properties/Settings.Designer.cs

@@ -0,0 +1,39 @@
+//------------------------------------------------------------------------------
+// <auto-generated>
+//     Dieser Code wurde von einem Tool generiert.
+//     Laufzeitversion:4.0.30319.42000
+//
+//     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+//     der Code erneut generiert wird.
+// </auto-generated>
+//------------------------------------------------------------------------------
+
+namespace BCK_Massenimport.Properties {
+    
+    
+    [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
+    [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.6.0.0")]
+    internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase {
+        
+        private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings())));
+        
+        public static Settings Default {
+            get {
+                return defaultInstance;
+            }
+        }
+        
+        [global::System.Configuration.UserScopedSettingAttribute()]
+        [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
+        [global::System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security" +
+            " info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")]
+        public string ConnectionString {
+            get {
+                return ((string)(this["ConnectionString"]));
+            }
+            set {
+                this["ConnectionString"] = value;
+            }
+        }
+    }
+}

BCK_Massenimport/BCK_Massenimport/Properties/Settings.settings

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="BCK_Massenimport.Properties" GeneratedClassName="Settings">
+  <Profiles />
+  <Settings>
+    <Setting Name="ConnectionString" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

BCK_Massenimport/BCK_Massenimport/Properties/licenses.licx

@@ -0,0 +1 @@
+C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

BCK_Massenimport/BCK_Massenimport/bin/Debug/BCK_Massenimport.exe.config

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="BCK_Massenimport.Properties.Settings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup> 
+        
+    <supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+        <BCK_Massenimport.Properties.Settings>
+            <setting name="ConnectionString" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+        </BCK_Massenimport.Properties.Settings>
+    </userSettings>
+</configuration>

BCK_Massenimport/BCK_Massenimport/obj/Debug/BCK_Massenimport.csproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+cc680930b7909de8fb6ba0b33c6611f1e5641bd5

BCK_Massenimport/BCK_Massenimport/obj/Debug/BCK_Massenimport.csproj.FileListAbsolute.txt

@@ -0,0 +1,17 @@
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.Form1.resources
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.Properties.Resources.resources
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.csproj.GenerateResource.cache
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.exe.licenses
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.csproj.CoreCompileInputs.cache
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\BCK_Massenimport.exe.config
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\BCK_Massenimport.exe
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\BCK_Massenimport.pdb
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.csproj.CopyComplete
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.exe
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.pdb
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\csvadapter.dll
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\XLSLib.dll
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\bin\Debug\FlexCel.dll
+E:\Software-Projekte\EDOKA\tools\BCK_Massenimport\BCK_Massenimport\obj\Debug\BCK_Massenimport.csprojResolveAssemblyReference.cache

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27428.2015
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BVK_Massenimport_VB", "BVK_Massenimport_VB\BVK_Massenimport_VB.vbproj", "{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {E15C767D-93CA-45F8-A3B2-C0C097644233}
+	EndGlobalSection
+EndGlobal

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/App.config

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="BCK_Massenimport.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
+    </startup>
+    <userSettings>
+        <BCK_Massenimport.My.MySettings>
+            <setting name="ConnectionString" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="Debug" serializeAs="String">
+                <value>True</value>
+            </setting>
+        </BCK_Massenimport.My.MySettings>
+    </userSettings>
+</configuration>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/BVK_Massenimport_VB.vbproj

@@ -0,0 +1,166 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{6A8CEFDF-C3FF-451B-823C-D7E453DBBDF8}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>BCK_Massenimport.My.MyApplication</StartupObject>
+    <RootNamespace>BCK_Massenimport</RootNamespace>
+    <AssemblyName>BCK_Massenimport</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>BCK_Massenimport.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>BCK_Massenimport.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="C1.Win.C1TrueDBGrid.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
+    <Reference Include="csvadapter">
+      <HintPath>..\..\..\..\client\EDOKA\bin\csvadapter.dll</HintPath>
+    </Reference>
+    <Reference Include="FastReport, Version=2018.4.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c">
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="FastReport.Bars, Version=2018.4.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c">
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="FastReport.Editor, Version=2018.4.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c">
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Windows.Forms.DataVisualization" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="XLSLib">
+      <HintPath>..\..\..\..\client\EDOKA\bin\XLSLib.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="DB\clsBarcodeetikette.vb" />
+    <Compile Include="DB\clsConnectionProvider.vb" />
+    <Compile Include="DB\clsdb.vb" />
+    <Compile Include="DB\clsDBInteractionBase.vb" />
+    <Compile Include="DB\clsDokument.vb" />
+    <Compile Include="DB\clsDokumenttyp.vb" />
+    <Compile Include="DB\clsDokument_DOCM_Script.vb" />
+    <Compile Include="DB\clsKey_tabelle.vb" />
+    <Compile Include="DB\clsMyKey_Tabelle.vb" />
+    <Compile Include="DB\clsStatushistory.vb" />
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmReport.Designer.vb">
+      <DependentUpon>frmReport.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmReport.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmReport.resx">
+      <DependentUpon>frmReport.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config">
+      <SubType>Designer</SubType>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <Folder Include="Helper\" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsBarcodeetikette.vb

@@ -0,0 +1,470 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'barcodeetikette'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 7. April 2003, 20:53:27
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'barcodeetikette'.
+	' /// </summary>
+	Public Class clsBarcodeetikette
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iMandantnr, m_iBarcodenr As SqlInt32
+		Private 		m_sDokumentid As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iBarcodenr</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_barcodeetikette_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsBarcodeetikette::Insert::Error occured." + ex.Message, ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iBarcodenr</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsBarcodeetikette::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iBarcodenr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsBarcodeetikette::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iBarcodenr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iBarcodenr</LI>
+		' ///		 <LI>sDokumentid</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("barcodeetikette")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer))
+                    If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then
+                        m_sDokumentid = SqlString.Null
+                    Else
+                        m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
+                    End If
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsBarcodeetikette::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("barcodeetikette")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsBarcodeetikette::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iBarcodenr]() As SqlInt32
+			Get
+				Return m_iBarcodenr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iBarcodenrTmp As SqlInt32 = Value
+				If iBarcodenrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iBarcodenr", "iBarcodenr can't be NULL")
+				End If
+				m_iBarcodenr = Value
+			End Set
+		End Property
+
+
+		Public Property [sDokumentid]() As SqlString
+			Get
+				Return m_sDokumentid
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sDokumentid = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsConnectionProvider.vb

@@ -0,0 +1,289 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Connection Provider class for Database connection sharing  
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
+' // This class implements IDisposable.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Collections
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
+	' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
+	' /// on a high level.
+	' /// </summary>
+	Public Class clsConnectionProvider
+		Implements IDisposable
+
+#Region " Class Member Declarations "
+
+		Private		m_scoDBConnection As SqlConnection
+		Private		m_bIsTransactionPending, m_bIsDisposed As Boolean
+		Private		m_stCurrentTransaction As SqlTransaction
+		Private		m_alSavePoints As ArrayList
+
+#End Region
+
+
+		Public Sub New()
+			' // Init the class
+			InitClass()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the IDispose' method Dispose.
+		' /// </summary>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
+			' // Check to see if Dispose has already been called.
+			If Not m_bIsDisposed Then
+				If bIsDisposing Then
+					' // Dispose managed resources.
+					If Not (m_stCurrentTransaction Is Nothing) Then
+						m_stCurrentTransaction.Dispose()
+						m_stCurrentTransaction = Nothing
+					End If
+					If Not (m_scoDBConnection Is Nothing) Then
+						' // closing the connection will abort (rollback) any pending transactions
+						m_scoDBConnection.Close()
+						m_scoDBConnection.Dispose()
+						m_scoDBConnection = Nothing
+					End If
+				End If
+			End If
+			m_bIsDisposed = True
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Initializes class members.
+		' /// </summary>
+		Private Sub InitClass()
+			' // Create all the objects and initialize other members.
+			m_scoDBConnection = new SqlConnection()
+			m_bIsDisposed = False
+			m_stCurrentTransaction = Nothing
+			m_bIsTransactionPending = False
+			m_alSavePoints = new ArrayList()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Opens the connection object.
+		' /// </summary>
+		' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
+		Public Function OpenConnection() As Boolean
+			Try
+				If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
+					' // It's already open.
+					Throw New Exception("OpenConnection::Connection is already open.")
+				End If
+				m_scoDBConnection.Open()
+				m_bIsTransactionPending = False
+				m_alSavePoints.Clear()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
+		' /// </summary>
+		' /// <param name="sTransactionName">Name of the transaction to start</param>
+		' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
+		Public Function BeginTransaction(sTransactionName As String) As Boolean
+			Try
+				If m_bIsTransactionPending Then
+					' // no nested transactions allowed.
+					Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("BeginTransaction::Connection is not open.")
+				End If
+				' // begin the transaction and store the transaction object.
+				m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
+				m_bIsTransactionPending = True
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Commits a pending transaction on the open connection object of this class.
+		' /// </summary>
+		' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
+		Public Function CommitTransaction() As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("CommitTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("CommitTransaction::Connection is not open.")
+				End if
+				' // commit the transaction
+				m_stCurrentTransaction.Commit()
+				m_bIsTransactionPending = False
+				m_stCurrentTransaction.Dispose()
+				m_stCurrentTransaction = Nothing
+				m_alSavePoints.Clear()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Rolls back a pending transaction on the open connection object of this class, 
+		' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
+		' /// </summary>
+		' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
+		' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
+		Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("RollbackTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("RollbackTransaction::Connection is not open.")
+				End If
+				' // rollback the transaction
+				m_stCurrentTransaction.Rollback(sTransactionToRollback)
+				' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
+				' // can clean it up.
+				If Not m_alSavePoints.Contains(sTransactionToRollback) Then
+					' // it's not a savepoint
+					m_bIsTransactionPending = False
+					m_stCurrentTransaction.Dispose()
+					m_stCurrentTransaction = Nothing
+					m_alSavePoints.Clear()
+				End If
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
+		' /// with the given name.
+		' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
+		' /// </summary>
+		' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
+		' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
+		Public Function SaveTransaction(sSavePointName As String) As Boolean
+			Try
+				If Not m_bIsTransactionPending Then
+					' // no transaction pending
+					Throw New Exception("SaveTransaction::No transaction pending.")
+				End If
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // no open connection
+					Throw New Exception("SaveTransaction::Connection is not open.")
+				End If
+				' // save the transaction
+				m_stCurrentTransaction.Save(sSavePointName)
+				' // Store the savepoint in the list.
+				m_alSavePoints.Add(sSavePointName)
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
+		' /// transaction is commited, or aborted. 
+		' /// </summary>
+		' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
+		' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
+		' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
+		' /// an error occurs</returns>
+		Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
+			Try
+				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+					' // No open connection
+					Return False
+				End If
+				If m_bIsTransactionPending Then
+					If bCommitPendingTransaction Then
+						' // Commit the pending transaction
+						m_stCurrentTransaction.Commit()
+					Else
+						' // Rollback the pending transaction
+						m_stCurrentTransaction.Rollback()
+					End If
+					m_bIsTransactionPending = False
+					m_stCurrentTransaction.Dispose()
+					m_stCurrentTransaction = Nothing
+					m_alSavePoints.Clear()
+				End If
+				' // close the connection
+				m_scoDBConnection.Close()
+				Return True
+			Catch ex As Exception
+				' // bubble exception
+				Throw ex
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public ReadOnly Property stCurrentTransaction() As SqlTransaction
+			Get
+				Return m_stCurrentTransaction
+			End Get
+		End Property
+
+
+		Public ReadOnly Property bIsTransactionPending() As Boolean
+			Get
+				Return m_bIsTransactionPending
+			End Get
+		End Property
+
+
+		Public ReadOnly Property scoDBConnection() As SqlConnection
+			Get
+				Return m_scoDBConnection
+			End Get
+		End Property
+		Public WriteOnly Property sConnectionString() As String
+			Set (ByVal Value As String)
+				m_scoDBConnection.ConnectionString = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsDBInteractionBase.vb

@@ -0,0 +1,202 @@
+' //////////////////////////////////////////////////////////////////////////////////////////
+' // Description: Base class for Database Interaction.                       
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
+' // Because this class implements IDisposable, derived classes shouldn't do so.
+' //////////////////////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Error Enums used by this LLBL library.
+	' /// </summary>
+	Public Enum LLBLError
+		AllOk
+		' // Add more here (check the comma's!)
+	End Enum
+
+
+	' /// <summary>
+	' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
+	' /// </summary>
+	Public Interface ICommonDBAccess
+		Function	Insert() As Boolean
+		Function	Update() As Boolean
+		Function	Delete() As Boolean
+		Function	SelectOne() As DataTable
+		Function	SelectAll() As DataTable
+	End Interface
+
+
+	' /// <summary>
+	' /// Purpose: Abstract base class for Database Interaction classes.
+	' /// </summary>
+	Public MustInherit Class clsDBInteractionBase
+		Implements IDisposable
+		Implements ICommonDBAccess
+
+#Region " Class Member Declarations "
+
+		Protected	m_scoMainConnection As SqlConnection
+		Protected	m_iErrorCode As SqlInt32
+		Protected	m_bMainConnectionIsCreatedLocal As Boolean
+		Protected	m_cpMainConnectionProvider As clsConnectionProvider
+		Private		m_sConnectionString As String
+		Private		m_bIsDisposed As Boolean
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Initialize the class' members.
+			InitClass()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Initializes class members.
+		' /// </summary>
+		Private Sub InitClass()
+			' // create all the objects and initialize other members.
+			m_scoMainConnection = new SqlConnection()
+			m_bMainConnectionIsCreatedLocal = True
+			m_cpMainConnectionProvider = Nothing
+			m_iErrorCode = New SqlInt32(LLBLError.AllOk)
+			m_bIsDisposed = False
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the IDispose' method Dispose.
+		' /// </summary>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable  Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
+			' // Check to see if Dispose has already been called.
+			If Not m_bIsDisposed Then
+				If bIsDisposing Then
+					' // Dispose managed resources.
+					If m_bMainConnectionIsCreatedLocal Then
+						' // Object is created in this class, so destroy it here.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+						m_bMainConnectionIsCreatedLocal = True
+					End If
+					m_cpMainConnectionProvider = Nothing
+					m_scoMainConnection = Nothing
+				End If
+			End If
+			m_bIsDisposed = True
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Insert() method.
+		' /// </summary>
+		Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Delete() method.
+		' /// </summary>
+		Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Update() method.
+		' /// </summary>
+		Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
+		' /// </summary>
+		Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
+		' /// </summary>
+		Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
+			Set(ByVal Value As clsConnectionProvider)
+				If Value Is Nothing Then
+					' // Invalid value
+					Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
+				End If
+
+				' // A connection provider object is passed to this class.
+				' // Retrieve the SqlConnection object, if present and create a
+				' // reference to it. If there is already a MainConnection object
+				' // referenced by the membervar, destroy that one or simply 
+				' // remove the reference, based on the flag.
+				If Not (m_scoMainConnection Is Nothing) Then
+					' // First get rid of current connection object. Caller is responsible
+					If m_bMainConnectionIsCreatedLocal Then
+						' // Is local created object, close it and dispose it.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+					End If
+					' // Remove reference.
+					m_scoMainConnection = Nothing
+				End If
+				m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
+				m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
+				m_bMainConnectionIsCreatedLocal = False
+			End Set
+		End Property
+
+
+		Public ReadOnly Property iErrorCode() As SqlInt32
+			Get
+				Return m_iErrorCode
+			End Get
+		End Property
+
+
+		Public Property sConnectionString() As String
+			Get
+				Return m_sConnectionString
+			End Get
+			Set (ByVal Value As String)
+				m_sConnectionString = Value
+				m_scoMainConnection.ConnectionString = m_sConnectionString
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsDokument_DOCM_Script.vb

@@ -0,0 +1,232 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	Public Class clsDokument_DOCM_Script
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_daErstellt_am As SqlDateTime
+		Private 		m_iNrEintrag As SqlInt32
+		Private 		m_sDokumentid, m_sScript As SqlString
+
+#End Region
+
+
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Dokument_DOCM_Script_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sDokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sScript", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sScript))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iNrEintrag", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iNrEintrag))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+                ' // Execute query.
+                'Dim m_iRowsAffected As SqlInt32
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iNrEintrag = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iNrEintrag").Value, SqlInt32))
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Dokument_DOCM_Script_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokument_DOCM_Script::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		Public Function SelectOneWNrEintragLogic() As DataTable
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Dokument_DOCM_Script_SelectOneWNrEintragLogic]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("Dokument_DOCM_Script")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iNrEintrag", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNrEintrag))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iNrEintrag = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iNrEintrag").Value, Integer))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Dokument_DOCM_Script_SelectOneWNrEintragLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iNrEintrag = New SqlInt32(CType(dtToReturn.Rows(0)("NrEintrag"), Integer))
+					If dtToReturn.Rows(0)("Dokumentid") Is System.DBNull.Value Then
+						m_sDokumentid = SqlString.Null
+					Else
+						m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("Dokumentid"), String))
+					End If
+					If dtToReturn.Rows(0)("Script") Is System.DBNull.Value Then
+						m_sScript = SqlString.Null
+					Else
+						m_sScript = New SqlString(CType(dtToReturn.Rows(0)("Script"), String))
+					End If
+					If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+						m_daErstellt_am = SqlDateTime.Null
+					Else
+						m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokument_DOCM_Script::SelectOneWNrEintragLogic::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Dokument_DOCM_Script_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("Dokument_DOCM_Script")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Dokument_DOCM_Script_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsDokument_DOCM_Script::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iNrEintrag]() As SqlInt32
+			Get
+				Return m_iNrEintrag
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iNrEintragTmp As SqlInt32 = Value
+				If iNrEintragTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iNrEintrag", "iNrEintrag can't be NULL")
+				End If
+				m_iNrEintrag = Value
+			End Set
+		End Property
+
+
+		Public Property [sDokumentid]() As SqlString
+			Get
+				Return m_sDokumentid
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sDokumentid = Value
+			End Set
+		End Property
+
+
+		Public Property [sScript]() As SqlString
+			Get
+				Return m_sScript
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sScript = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsKey_tabelle.vb

@@ -0,0 +1,490 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'key_tabelle'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 7. Dezember 2002, 22:50:12
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'key_tabelle'.
+	' /// </summary>
+	Public Class clsKey_tabelle
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
+		Private 		m_sBeschreibung As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iKeynr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("key_tabelle")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
+                    m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
+                    m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("key_tabelle")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iKeynr]() As SqlInt32
+			Get
+				Return m_iKeynr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKeynrTmp As SqlInt32 = Value
+				If iKeynrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
+				End If
+				m_iKeynr = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeschreibung]() As SqlString
+			Get
+				Return m_sBeschreibung
+			End Get
+			Set(ByVal Value As SqlString)
+				Dim sBeschreibungTmp As SqlString = Value
+				If sBeschreibungTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
+				End If
+				m_sBeschreibung = Value
+			End Set
+		End Property
+
+
+		Public Property [iKey_wert]() As SqlInt32
+			Get
+				Return m_iKey_wert
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKey_wertTmp As SqlInt32 = Value
+				If iKey_wertTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
+				End If
+				m_iKey_wert = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsMyKey_Tabelle.vb

@@ -0,0 +1,61 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Namespace edokadb
+    Public Class clsMyKey_Tabelle
+        Inherits edokadb.clsKey_tabelle
+
+        Public Function get_dbkey(ByVal Tablename As String) As Long
+            Dim m_dbkey As Long
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                Try
+                    scmCmdToExecute.Connection.Open()
+                Catch ex As Exception
+                Finally
+                End Try
+
+                scmCmdToExecute.ExecuteNonQuery()
+                m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+                scmCmdToExecute.Connection.Close()
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return m_dbkey
+            Catch ex As Exception
+                    ' // some error occured. Bubble it to caller and encapsulate Exception object
+                    Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
+                Finally
+                    If m_bMainConnectionIsCreatedLocal Then
+                        ' // Close connection.
+                        m_scoMainConnection.Close()
+                    End If
+                    scmCmdToExecute.Dispose()
+                End Try
+        End Function
+
+    End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsStatushistory.vb

@@ -0,0 +1,510 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'statushistory'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 25. Mai 2003, 21:40:11
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'statushistory'.
+	' /// </summary>
+	Public Class clsStatushistory
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32
+		Private 		m_sDokumentid As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iVerantwortlich. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_statushistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsStatushistory::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iVerantwortlich. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iStatushistorynr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>sDokumentid</LI>
+		' ///		 <LI>iVerantwortlich</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("statushistory")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iStatushistorynr = New SqlInt32(CType(dtToReturn.Rows(0)("statushistorynr"), Integer))
+                    m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then
+                        m_sDokumentid = SqlString.Null
+                    Else
+                        m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
+                    End If
+                    If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then
+                        m_iVerantwortlich = SqlInt32.Null
+                    Else
+                        m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("statushistory")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iStatushistorynr]() As SqlInt32
+			Get
+				Return m_iStatushistorynr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iStatushistorynrTmp As SqlInt32 = Value
+				If iStatushistorynrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iStatushistorynr", "iStatushistorynr can't be NULL")
+				End If
+				m_iStatushistorynr = Value
+			End Set
+		End Property
+
+
+		Public Property [iStatus]() As SqlInt32
+			Get
+				Return m_iStatus
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iStatusTmp As SqlInt32 = Value
+				If iStatusTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iStatus", "iStatus can't be NULL")
+				End If
+				m_iStatus = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [sDokumentid]() As SqlString
+			Get
+				Return m_sDokumentid
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sDokumentid = Value
+			End Set
+		End Property
+
+
+		Public Property [iVerantwortlich]() As SqlInt32
+			Get
+				Return m_iVerantwortlich
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iVerantwortlich = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/DB/clsdb.vb

@@ -0,0 +1,188 @@
+Imports System.Data
+Imports System.Data.Sql
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Public Class clsdb
+    Private _ConnectionString As String
+    Public dsDaten As DataSet = New DataSet()
+    Public daDaten As SqlDataAdapter
+    Dim conn As New edokadb.clsConnectionProvider()
+
+    Public Property Connectionstring As String
+        Get
+            Return Me._ConnectionString
+        End Get
+        Set(ByVal value As String)
+            Me._ConnectionString = value
+        End Set
+    End Property
+
+    Public Sub New()
+        Me.Connectionstring = My.Settings.ConnectionString
+        conn.sConnectionString = My.Settings.ConnectionString
+    End Sub
+
+    Public Sub New(ByVal Connectionstring As String)
+        Me.Connectionstring = Connectionstring
+        conn.sConnectionString = Connectionstring
+    End Sub
+
+    Public Function Get_Mitarbieter() As DataTable
+        dsDaten.Tables.Clear()
+        daDaten = New SqlDataAdapter("Select mitarbeiternr, name+' ' + vorname+', '+tgnummer as Mitarbeiter from mitarbeiter where aktiv=1 order by name,vorname", Me.Connectionstring)
+        daDaten.Fill(dsDaten, "Mitarbeiter")
+        Return dsDaten.Tables(0)
+    End Function
+
+    Public Function CheckPartner(ByVal Partnernr As String) As Boolean
+        Try
+            Dim s As String
+            s = Get_Num_Value(Partnernr)
+            dsDaten.Tables.Clear()
+            daDaten = New SqlDataAdapter("Select count(*) from partner where nrpar00=" & s, Me.Connectionstring)
+            daDaten.Fill(dsDaten, "Partner")
+
+            If dsDaten.Tables(0).Rows.Count = 0 Then
+                Return False
+            Else
+                Return True
+            End If
+
+        Catch __unusedException1__ As Exception
+            Return False
+        End Try
+    End Function
+    Public Function CheckDokumenttyp(ByVal Dokumenttypnr As String) As Boolean
+        Try
+            Dim s As String
+            s = Get_Num_Value(Dokumenttypnr)
+            dsDaten.Tables.Clear()
+            daDaten = New SqlDataAdapter("Select count(*) from Dokumenttyp where aktiv=1 and dokumenttypnr=" & s, Me.Connectionstring)
+            daDaten.Fill(dsDaten, "Partner")
+
+            If dsDaten.Tables(0).Rows.Count = 0 Then
+                Return False
+            Else
+                Return True
+            End If
+
+        Catch __unusedException1__ As Exception
+            Return False
+        End Try
+    End Function
+
+    Public Function Get_Num_Value(ByVal sin As String) As String
+        Dim s As String
+        s = sin.Replace(".", "")
+        s = s.Replace("-", "")
+        Return s
+    End Function
+
+    Public Function Generate_Key() As String
+        Dim dbkey As New edokadb.clsMyKey_Tabelle()
+        Dim key As Long
+        Dim skey As String
+        Dim s As String
+
+        dbkey.cpMainConnectionProvider = conn
+        conn.OpenConnection()
+        key = dbkey.get_dbkey("dokument")
+        conn.CloseConnection(True)
+        skey = "OFFEDK000"
+
+        s = Str(Year(Now))
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+        skey = skey + s
+
+        s = Str(key)
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+
+        While Len(s) < 8
+            s = "0" + s
+        End While
+        skey = skey + s
+
+        s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+        skey = skey + s
+        Generate_Key = skey
+    End Function
+
+    Public Function Pruefziffer(ByVal zahl As String) As String
+        Dim ptab(9, 9) As Integer
+        Dim pz(9) As Integer
+        Dim s1, s2, s3 As String
+
+        Dim i1, i2 As Long
+
+        s1 = "0,9,4,6,8,2,7,1,3,5"
+        s2 = s1
+        For i1 = 0 To 9
+            For i2 = 0 To 9
+                ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
+            Next
+            s3 = Microsoft.VisualBasic.Left(s1, 1)
+            s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
+            s1 = s1 + "," + s3
+            s2 = s1
+        Next
+        pz(0) = 0
+        pz(1) = 9
+        pz(2) = 8
+        pz(3) = 7
+        pz(4) = 6
+        pz(5) = 5
+        pz(6) = 4
+        pz(7) = 3
+        pz(8) = 2
+        pz(9) = 1
+
+        Dim i, x, y As Integer
+        y = 0
+        For i = 1 To Len(zahl)
+            x = Val(Mid(zahl, i, 1))
+            y = ptab(x, y)
+        Next
+        Pruefziffer = Str(pz(y))
+    End Function
+
+    Public Function Gen_BCK(ByVal Dokumentid As String, mitarbeiternr As Integer) As String
+        Dim bc As New edokadb.clsBarcodeetikette()
+        bc.cpMainConnectionProvider = conn
+        Dim i As Integer
+        Dim i1 As Integer
+        Dim keys As New edokadb.clsMyKey_Tabelle()
+        Dim key As Long
+        Dim defkey As String
+        Dim yy As String
+        keys.cpMainConnectionProvider = conn
+        key = keys.get_dbkey("barcodeetikette")
+        defkey = LTrim(key)
+        While Len(defkey) < 7
+            defkey = "0" + defkey
+        End While
+        yy = LTrim(Str(Year(Now)))
+        yy = Right(yy, 2)
+
+        defkey = yy + defkey
+        defkey = defkey + LTrim(Pruefziffer(defkey))
+        bc.iBarcodenr = New SqlInt32(CType(defkey, Int32))
+        bc.sDokumentid = New SqlString(CType(Dokumentid, String))
+        bc.bAktiv = New SqlBoolean(CType(True, Boolean))
+        bc.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
+        bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
+        bc.iMandantnr = New SqlInt32(CType(1, Int32))
+        bc.iMutierer = New SqlInt32(CType(mitarbeiternr, Int32))
+        conn.OpenConnection()
+        bc.Insert()
+        conn.CloseConnection(True)
+        Return defkey.ToString
+    End Function
+End Class

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/Form1.Designer.vb

@@ -0,0 +1,550 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.menuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.dateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.beendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.groupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.button6 = New System.Windows.Forms.Button()
+        Me.button5 = New System.Windows.Forms.Button()
+        Me.button4 = New System.Windows.Forms.Button()
+        Me.button3 = New System.Windows.Forms.Button()
+        Me.button2 = New System.Windows.Forms.Button()
+        Me.button1 = New System.Windows.Forms.Button()
+        Me.groupBox2 = New System.Windows.Forms.GroupBox()
+        Me.label8 = New System.Windows.Forms.Label()
+        Me.label7 = New System.Windows.Forms.Label()
+        Me.cb7 = New System.Windows.Forms.ComboBox()
+        Me.t7 = New System.Windows.Forms.TextBox()
+        Me.cb6 = New System.Windows.Forms.ComboBox()
+        Me.t6 = New System.Windows.Forms.TextBox()
+        Me.cb5 = New System.Windows.Forms.ComboBox()
+        Me.t5 = New System.Windows.Forms.TextBox()
+        Me.cb4 = New System.Windows.Forms.ComboBox()
+        Me.t4 = New System.Windows.Forms.TextBox()
+        Me.cb3 = New System.Windows.Forms.ComboBox()
+        Me.t3 = New System.Windows.Forms.TextBox()
+        Me.cb2 = New System.Windows.Forms.ComboBox()
+        Me.t2 = New System.Windows.Forms.TextBox()
+        Me.cb1 = New System.Windows.Forms.ComboBox()
+        Me.t1 = New System.Windows.Forms.TextBox()
+        Me.cbboxMitarbeiter_Verantwortlich = New System.Windows.Forms.ComboBox()
+        Me.label6 = New System.Windows.Forms.Label()
+        Me.cbboxMitarbeiter_Ersteller = New System.Windows.Forms.ComboBox()
+        Me.label5 = New System.Windows.Forms.Label()
+        Me.cbboxBezeichnung = New System.Windows.Forms.ComboBox()
+        Me.label4 = New System.Windows.Forms.Label()
+        Me.cbboxKonto = New System.Windows.Forms.ComboBox()
+        Me.label3 = New System.Windows.Forms.Label()
+        Me.cbboxDokumenttyp = New System.Windows.Forms.ComboBox()
+        Me.label2 = New System.Windows.Forms.Label()
+        Me.cbboxPartnerNr = New System.Windows.Forms.ComboBox()
+        Me.label1 = New System.Windows.Forms.Label()
+        Me.groupBox1 = New System.Windows.Forms.GroupBox()
+        Me.c1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.menuStrip1.SuspendLayout()
+        Me.groupBox3.SuspendLayout()
+        Me.groupBox2.SuspendLayout()
+        Me.groupBox1.SuspendLayout()
+        CType(Me.c1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'menuStrip1
+        '
+        Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.dateiToolStripMenuItem})
+        Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.menuStrip1.Name = "menuStrip1"
+        Me.menuStrip1.Size = New System.Drawing.Size(1086, 24)
+        Me.menuStrip1.TabIndex = 1
+        Me.menuStrip1.Text = "menuStrip1"
+        '
+        'dateiToolStripMenuItem
+        '
+        Me.dateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.beendenToolStripMenuItem})
+        Me.dateiToolStripMenuItem.Name = "dateiToolStripMenuItem"
+        Me.dateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.dateiToolStripMenuItem.Text = "&Datei"
+        '
+        'beendenToolStripMenuItem
+        '
+        Me.beendenToolStripMenuItem.Name = "beendenToolStripMenuItem"
+        Me.beendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.beendenToolStripMenuItem.Text = "&Beenden"
+        '
+        'groupBox3
+        '
+        Me.groupBox3.Controls.Add(Me.Button7)
+        Me.groupBox3.Controls.Add(Me.button6)
+        Me.groupBox3.Controls.Add(Me.button5)
+        Me.groupBox3.Controls.Add(Me.button4)
+        Me.groupBox3.Controls.Add(Me.button3)
+        Me.groupBox3.Controls.Add(Me.button2)
+        Me.groupBox3.Controls.Add(Me.button1)
+        Me.groupBox3.Dock = System.Windows.Forms.DockStyle.Right
+        Me.groupBox3.Location = New System.Drawing.Point(886, 24)
+        Me.groupBox3.Name = "groupBox3"
+        Me.groupBox3.Size = New System.Drawing.Size(200, 426)
+        Me.groupBox3.TabIndex = 6
+        Me.groupBox3.TabStop = False
+        Me.groupBox3.Text = "Verarbeitung"
+        '
+        'Button7
+        '
+        Me.Button7.Enabled = False
+        Me.Button7.Location = New System.Drawing.Point(6, 365)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(182, 23)
+        Me.Button7.TabIndex = 9
+        Me.Button7.Text = "Resultat laden"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'button6
+        '
+        Me.button6.Enabled = False
+        Me.button6.Location = New System.Drawing.Point(6, 171)
+        Me.button6.Name = "button6"
+        Me.button6.Size = New System.Drawing.Size(182, 23)
+        Me.button6.TabIndex = 8
+        Me.button6.Text = "Resultat speichern"
+        Me.button6.UseVisualStyleBackColor = True
+        '
+        'button5
+        '
+        Me.button5.Enabled = False
+        Me.button5.Location = New System.Drawing.Point(6, 142)
+        Me.button5.Name = "button5"
+        Me.button5.Size = New System.Drawing.Size(182, 23)
+        Me.button5.TabIndex = 7
+        Me.button5.Text = "Barcodeblätter durcken"
+        Me.button5.UseVisualStyleBackColor = True
+        '
+        'button4
+        '
+        Me.button4.Enabled = False
+        Me.button4.Location = New System.Drawing.Point(6, 113)
+        Me.button4.Name = "button4"
+        Me.button4.Size = New System.Drawing.Size(182, 23)
+        Me.button4.TabIndex = 6
+        Me.button4.Text = "Dokumente generieren"
+        Me.button4.UseVisualStyleBackColor = True
+        '
+        'button3
+        '
+        Me.button3.Enabled = False
+        Me.button3.Location = New System.Drawing.Point(6, 84)
+        Me.button3.Name = "button3"
+        Me.button3.Size = New System.Drawing.Size(182, 23)
+        Me.button3.TabIndex = 5
+        Me.button3.Text = "Daten prüfen"
+        Me.button3.UseVisualStyleBackColor = True
+        '
+        'button2
+        '
+        Me.button2.Enabled = False
+        Me.button2.Location = New System.Drawing.Point(6, 55)
+        Me.button2.Name = "button2"
+        Me.button2.Size = New System.Drawing.Size(182, 23)
+        Me.button2.TabIndex = 4
+        Me.button2.Text = "Feldmapping abgeschlossen"
+        Me.button2.UseVisualStyleBackColor = True
+        '
+        'button1
+        '
+        Me.button1.Location = New System.Drawing.Point(6, 25)
+        Me.button1.Name = "button1"
+        Me.button1.Size = New System.Drawing.Size(182, 23)
+        Me.button1.TabIndex = 3
+        Me.button1.Text = "Daten importieren"
+        Me.button1.UseVisualStyleBackColor = True
+        '
+        'groupBox2
+        '
+        Me.groupBox2.Controls.Add(Me.label8)
+        Me.groupBox2.Controls.Add(Me.label7)
+        Me.groupBox2.Controls.Add(Me.cb7)
+        Me.groupBox2.Controls.Add(Me.t7)
+        Me.groupBox2.Controls.Add(Me.cb6)
+        Me.groupBox2.Controls.Add(Me.t6)
+        Me.groupBox2.Controls.Add(Me.cb5)
+        Me.groupBox2.Controls.Add(Me.t5)
+        Me.groupBox2.Controls.Add(Me.cb4)
+        Me.groupBox2.Controls.Add(Me.t4)
+        Me.groupBox2.Controls.Add(Me.cb3)
+        Me.groupBox2.Controls.Add(Me.t3)
+        Me.groupBox2.Controls.Add(Me.cb2)
+        Me.groupBox2.Controls.Add(Me.t2)
+        Me.groupBox2.Controls.Add(Me.cb1)
+        Me.groupBox2.Controls.Add(Me.t1)
+        Me.groupBox2.Controls.Add(Me.cbboxMitarbeiter_Verantwortlich)
+        Me.groupBox2.Controls.Add(Me.label6)
+        Me.groupBox2.Controls.Add(Me.cbboxMitarbeiter_Ersteller)
+        Me.groupBox2.Controls.Add(Me.label5)
+        Me.groupBox2.Controls.Add(Me.cbboxBezeichnung)
+        Me.groupBox2.Controls.Add(Me.label4)
+        Me.groupBox2.Controls.Add(Me.cbboxKonto)
+        Me.groupBox2.Controls.Add(Me.label3)
+        Me.groupBox2.Controls.Add(Me.cbboxDokumenttyp)
+        Me.groupBox2.Controls.Add(Me.label2)
+        Me.groupBox2.Controls.Add(Me.cbboxPartnerNr)
+        Me.groupBox2.Controls.Add(Me.label1)
+        Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Right
+        Me.groupBox2.Location = New System.Drawing.Point(487, 24)
+        Me.groupBox2.Name = "groupBox2"
+        Me.groupBox2.Size = New System.Drawing.Size(399, 426)
+        Me.groupBox2.TabIndex = 7
+        Me.groupBox2.TabStop = False
+        Me.groupBox2.Text = "Mapping"
+        '
+        'label8
+        '
+        Me.label8.AutoSize = True
+        Me.label8.Location = New System.Drawing.Point(176, 189)
+        Me.label8.Name = "label8"
+        Me.label8.Size = New System.Drawing.Size(37, 13)
+        Me.label8.TabIndex = 29
+        Me.label8.Text = "Spalte"
+        '
+        'label7
+        '
+        Me.label7.AutoSize = True
+        Me.label7.Location = New System.Drawing.Point(18, 189)
+        Me.label7.Name = "label7"
+        Me.label7.Size = New System.Drawing.Size(76, 13)
+        Me.label7.TabIndex = 28
+        Me.label7.Text = "Dokumentwert"
+        '
+        'cb7
+        '
+        Me.cb7.FormattingEnabled = True
+        Me.cb7.Location = New System.Drawing.Point(177, 367)
+        Me.cb7.Name = "cb7"
+        Me.cb7.Size = New System.Drawing.Size(201, 21)
+        Me.cb7.TabIndex = 27
+        '
+        't7
+        '
+        Me.t7.Location = New System.Drawing.Point(19, 367)
+        Me.t7.Name = "t7"
+        Me.t7.Size = New System.Drawing.Size(152, 20)
+        Me.t7.TabIndex = 26
+        '
+        'cb6
+        '
+        Me.cb6.FormattingEnabled = True
+        Me.cb6.Location = New System.Drawing.Point(177, 340)
+        Me.cb6.Name = "cb6"
+        Me.cb6.Size = New System.Drawing.Size(201, 21)
+        Me.cb6.TabIndex = 25
+        '
+        't6
+        '
+        Me.t6.Location = New System.Drawing.Point(19, 340)
+        Me.t6.Name = "t6"
+        Me.t6.Size = New System.Drawing.Size(152, 20)
+        Me.t6.TabIndex = 24
+        '
+        'cb5
+        '
+        Me.cb5.FormattingEnabled = True
+        Me.cb5.Location = New System.Drawing.Point(179, 313)
+        Me.cb5.Name = "cb5"
+        Me.cb5.Size = New System.Drawing.Size(201, 21)
+        Me.cb5.TabIndex = 23
+        '
+        't5
+        '
+        Me.t5.Location = New System.Drawing.Point(21, 313)
+        Me.t5.Name = "t5"
+        Me.t5.Size = New System.Drawing.Size(152, 20)
+        Me.t5.TabIndex = 22
+        '
+        'cb4
+        '
+        Me.cb4.FormattingEnabled = True
+        Me.cb4.Location = New System.Drawing.Point(179, 286)
+        Me.cb4.Name = "cb4"
+        Me.cb4.Size = New System.Drawing.Size(201, 21)
+        Me.cb4.TabIndex = 21
+        '
+        't4
+        '
+        Me.t4.Location = New System.Drawing.Point(21, 286)
+        Me.t4.Name = "t4"
+        Me.t4.Size = New System.Drawing.Size(152, 20)
+        Me.t4.TabIndex = 20
+        '
+        'cb3
+        '
+        Me.cb3.FormattingEnabled = True
+        Me.cb3.Location = New System.Drawing.Point(179, 259)
+        Me.cb3.Name = "cb3"
+        Me.cb3.Size = New System.Drawing.Size(201, 21)
+        Me.cb3.TabIndex = 19
+        '
+        't3
+        '
+        Me.t3.Location = New System.Drawing.Point(21, 259)
+        Me.t3.Name = "t3"
+        Me.t3.Size = New System.Drawing.Size(152, 20)
+        Me.t3.TabIndex = 18
+        '
+        'cb2
+        '
+        Me.cb2.FormattingEnabled = True
+        Me.cb2.Location = New System.Drawing.Point(179, 232)
+        Me.cb2.Name = "cb2"
+        Me.cb2.Size = New System.Drawing.Size(201, 21)
+        Me.cb2.TabIndex = 17
+        '
+        't2
+        '
+        Me.t2.Location = New System.Drawing.Point(21, 232)
+        Me.t2.Name = "t2"
+        Me.t2.Size = New System.Drawing.Size(152, 20)
+        Me.t2.TabIndex = 16
+        '
+        'cb1
+        '
+        Me.cb1.FormattingEnabled = True
+        Me.cb1.Location = New System.Drawing.Point(179, 205)
+        Me.cb1.Name = "cb1"
+        Me.cb1.Size = New System.Drawing.Size(201, 21)
+        Me.cb1.TabIndex = 15
+        '
+        't1
+        '
+        Me.t1.Location = New System.Drawing.Point(21, 205)
+        Me.t1.Name = "t1"
+        Me.t1.Size = New System.Drawing.Size(152, 20)
+        Me.t1.TabIndex = 14
+        '
+        'cbboxMitarbeiter_Verantwortlich
+        '
+        Me.cbboxMitarbeiter_Verantwortlich.FormattingEnabled = True
+        Me.cbboxMitarbeiter_Verantwortlich.Location = New System.Drawing.Point(177, 132)
+        Me.cbboxMitarbeiter_Verantwortlich.Name = "cbboxMitarbeiter_Verantwortlich"
+        Me.cbboxMitarbeiter_Verantwortlich.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxMitarbeiter_Verantwortlich.TabIndex = 13
+        '
+        'label6
+        '
+        Me.label6.AutoSize = True
+        Me.label6.Location = New System.Drawing.Point(18, 135)
+        Me.label6.Name = "label6"
+        Me.label6.Size = New System.Drawing.Size(74, 13)
+        Me.label6.TabIndex = 12
+        Me.label6.Text = "Verantwortlich"
+        '
+        'cbboxMitarbeiter_Ersteller
+        '
+        Me.cbboxMitarbeiter_Ersteller.FormattingEnabled = True
+        Me.cbboxMitarbeiter_Ersteller.Location = New System.Drawing.Point(177, 105)
+        Me.cbboxMitarbeiter_Ersteller.Name = "cbboxMitarbeiter_Ersteller"
+        Me.cbboxMitarbeiter_Ersteller.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxMitarbeiter_Ersteller.TabIndex = 11
+        '
+        'label5
+        '
+        Me.label5.AutoSize = True
+        Me.label5.Location = New System.Drawing.Point(18, 108)
+        Me.label5.Name = "label5"
+        Me.label5.Size = New System.Drawing.Size(44, 13)
+        Me.label5.TabIndex = 10
+        Me.label5.Text = "Ersteller"
+        '
+        'cbboxBezeichnung
+        '
+        Me.cbboxBezeichnung.FormattingEnabled = True
+        Me.cbboxBezeichnung.Location = New System.Drawing.Point(177, 78)
+        Me.cbboxBezeichnung.Name = "cbboxBezeichnung"
+        Me.cbboxBezeichnung.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxBezeichnung.TabIndex = 9
+        '
+        'label4
+        '
+        Me.label4.AutoSize = True
+        Me.label4.Location = New System.Drawing.Point(18, 81)
+        Me.label4.Name = "label4"
+        Me.label4.Size = New System.Drawing.Size(69, 13)
+        Me.label4.TabIndex = 8
+        Me.label4.Text = "Bezeichnung"
+        '
+        'cbboxKonto
+        '
+        Me.cbboxKonto.FormattingEnabled = True
+        Me.cbboxKonto.Location = New System.Drawing.Point(177, 79)
+        Me.cbboxKonto.Name = "cbboxKonto"
+        Me.cbboxKonto.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxKonto.TabIndex = 5
+        Me.cbboxKonto.Visible = False
+        '
+        'label3
+        '
+        Me.label3.AutoSize = True
+        Me.label3.Location = New System.Drawing.Point(18, 82)
+        Me.label3.Name = "label3"
+        Me.label3.Size = New System.Drawing.Size(104, 13)
+        Me.label3.TabIndex = 4
+        Me.label3.Text = "Konto / COLD-Index"
+        Me.label3.Visible = False
+        '
+        'cbboxDokumenttyp
+        '
+        Me.cbboxDokumenttyp.FormattingEnabled = True
+        Me.cbboxDokumenttyp.Location = New System.Drawing.Point(177, 52)
+        Me.cbboxDokumenttyp.Name = "cbboxDokumenttyp"
+        Me.cbboxDokumenttyp.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxDokumenttyp.TabIndex = 3
+        '
+        'label2
+        '
+        Me.label2.AutoSize = True
+        Me.label2.Location = New System.Drawing.Point(18, 55)
+        Me.label2.Name = "label2"
+        Me.label2.Size = New System.Drawing.Size(70, 13)
+        Me.label2.TabIndex = 2
+        Me.label2.Text = "Dokumenttyp"
+        '
+        'cbboxPartnerNr
+        '
+        Me.cbboxPartnerNr.FormattingEnabled = True
+        Me.cbboxPartnerNr.Location = New System.Drawing.Point(177, 25)
+        Me.cbboxPartnerNr.Name = "cbboxPartnerNr"
+        Me.cbboxPartnerNr.Size = New System.Drawing.Size(201, 21)
+        Me.cbboxPartnerNr.TabIndex = 1
+        '
+        'label1
+        '
+        Me.label1.AutoSize = True
+        Me.label1.Location = New System.Drawing.Point(18, 28)
+        Me.label1.Name = "label1"
+        Me.label1.Size = New System.Drawing.Size(52, 13)
+        Me.label1.TabIndex = 0
+        Me.label1.Text = "PartnerNr"
+        '
+        'groupBox1
+        '
+        Me.groupBox1.Controls.Add(Me.c1TrueDBGrid1)
+        Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.groupBox1.Location = New System.Drawing.Point(0, 24)
+        Me.groupBox1.Name = "groupBox1"
+        Me.groupBox1.Size = New System.Drawing.Size(487, 426)
+        Me.groupBox1.TabIndex = 8
+        Me.groupBox1.TabStop = False
+        Me.groupBox1.Text = "Daten"
+        '
+        'c1TrueDBGrid1
+        '
+        Me.c1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.c1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
+        Me.c1TrueDBGrid1.Images.Add(CType(resources.GetObject("c1TrueDBGrid1.Images"), System.Drawing.Image))
+        Me.c1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
+        Me.c1TrueDBGrid1.Name = "c1TrueDBGrid1"
+        Me.c1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.c1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.c1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
+        Me.c1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("c1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.c1TrueDBGrid1.PropBag = resources.GetString("c1TrueDBGrid1.PropBag")
+        Me.c1TrueDBGrid1.Size = New System.Drawing.Size(481, 407)
+        Me.c1TrueDBGrid1.TabIndex = 2
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'SaveFileDialog1
+        '
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1086, 450)
+        Me.Controls.Add(Me.groupBox1)
+        Me.Controls.Add(Me.groupBox2)
+        Me.Controls.Add(Me.groupBox3)
+        Me.Controls.Add(Me.menuStrip1)
+        Me.Name = "Form1"
+        Me.Text = "BCK-Massenimport"
+        Me.menuStrip1.ResumeLayout(False)
+        Me.menuStrip1.PerformLayout()
+        Me.groupBox3.ResumeLayout(False)
+        Me.groupBox2.ResumeLayout(False)
+        Me.groupBox2.PerformLayout()
+        Me.groupBox1.ResumeLayout(False)
+        CType(Me.c1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Private WithEvents menuStrip1 As MenuStrip
+    Private WithEvents dateiToolStripMenuItem As ToolStripMenuItem
+    Private WithEvents beendenToolStripMenuItem As ToolStripMenuItem
+    Private WithEvents groupBox3 As GroupBox
+    Private WithEvents button6 As Button
+    Private WithEvents button5 As Button
+    Private WithEvents button4 As Button
+    Private WithEvents button3 As Button
+    Private WithEvents button2 As Button
+    Private WithEvents button1 As Button
+    Private WithEvents groupBox2 As GroupBox
+    Private WithEvents label8 As Label
+    Private WithEvents label7 As Label
+    Private WithEvents cb7 As ComboBox
+    Private WithEvents t7 As TextBox
+    Private WithEvents cb6 As ComboBox
+    Private WithEvents t6 As TextBox
+    Private WithEvents cb5 As ComboBox
+    Private WithEvents t5 As TextBox
+    Private WithEvents cb4 As ComboBox
+    Private WithEvents t4 As TextBox
+    Private WithEvents cb3 As ComboBox
+    Private WithEvents t3 As TextBox
+    Private WithEvents cb2 As ComboBox
+    Private WithEvents t2 As TextBox
+    Private WithEvents cb1 As ComboBox
+    Private WithEvents t1 As TextBox
+    Private WithEvents cbboxMitarbeiter_Verantwortlich As ComboBox
+    Private WithEvents label6 As Label
+    Private WithEvents cbboxMitarbeiter_Ersteller As ComboBox
+    Private WithEvents label5 As Label
+    Private WithEvents cbboxBezeichnung As ComboBox
+    Private WithEvents label4 As Label
+    Private WithEvents cbboxKonto As ComboBox
+    Private WithEvents label3 As Label
+    Private WithEvents cbboxDokumenttyp As ComboBox
+    Private WithEvents label2 As Label
+    Private WithEvents cbboxPartnerNr As ComboBox
+    Private WithEvents label1 As Label
+    Private WithEvents groupBox1 As GroupBox
+    Private WithEvents c1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Private WithEvents Button7 As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/Form1.resx

@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="menuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="c1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAADRJREFUKFN1iQEKACAMAv3/p4six3R5IIqHD+v1oIu0Lzy8B0cwQhcpQhSEwrvo
+        R9qCCWADoKoc5CkvobIAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="c1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
+        dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
+        emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
+        c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
+        dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
+        LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
+        U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
+        d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
+        AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
+        cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
+        eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
+        bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
+        ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
+        AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
+        bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
+        ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
+        RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
+        9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
+        AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
+        BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
+        AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
+        QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
+        ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
+</value>
+  </data>
+  <data name="c1TrueDBGrid1.PropBag" xml:space="preserve">
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 479, 405&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 479, 405&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+  </data>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>274, 17</value>
+  </metadata>
+</root>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/Form1.vb

@@ -0,0 +1,617 @@
+Imports System.Data
+Imports System.Data.OleDb
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Public Class Form1
+
+    Dim ds As DataSet = New DataSet()
+    Dim dt As DataTable = New DataTable()
+    Dim clsconn As edokadb.clsConnectionProvider = New edokadb.clsConnectionProvider()
+    Dim db As New clsdb
+    Dim Errormsg As String = ""
+    Dim Dokumentid As String = ""
+    Dim bck As String = ""
+    Dim Status_Bereit_Zur_Eingangsarchivierung As Boolean = False
+    Dim bckstatussequenz As Boolean = False
+
+    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
+        Try
+            Me.OpenFileDialog1.Filter = "Excel-Dateien (*.xlsx)|*.xlsx|Excel-Dateien (*.xls)|*.xls|CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
+            Me.OpenFileDialog1.ShowDialog()
+
+            If Me.OpenFileDialog1.FileName <> "" Then
+                FillDataTableFromText(Me.OpenFileDialog1.FileName)
+                If ds.Tables(0).Columns.Count > 200 Then
+                    MsgBox("Excel mit mehr als 200 Spalten sind nicht erlaubt.")
+                    Exit Sub
+                End If
+                Me.c1TrueDBGrid1.DataSource = Nothing
+                Me.c1TrueDBGrid1.DataSource = ds
+                Me.c1TrueDBGrid1.DataMember = ds.Tables(0).TableName
+                Me.cbboxPartnerNr.Items.Clear()
+                Me.cbboxDokumenttyp.Items.Clear()
+                Me.cbboxKonto.Items.Clear()
+                Me.cbboxBezeichnung.Items.Clear()
+                Me.cbboxMitarbeiter_Ersteller.Items.Clear()
+                Me.cbboxMitarbeiter_Verantwortlich.Items.Clear()
+                t1.Text = ""
+                t2.Text = ""
+                t3.Text = ""
+                t4.Text = ""
+                t5.Text = ""
+                t6.Text = ""
+                t7.Text = ""
+                cb1.Items.Clear()
+                cb2.Items.Clear()
+                cb3.Items.Clear()
+                cb4.Items.Clear()
+                cb5.Items.Clear()
+                cb6.Items.Clear()
+                cb7.Items.Clear()
+
+                For Each dc As DataColumn In ds.Tables(0).Columns
+                    Me.cbboxPartnerNr.Items.Add(dc.ColumnName)
+                    Me.cbboxDokumenttyp.Items.Add(dc.ColumnName)
+                    Me.cbboxKonto.Items.Add(dc.ColumnName)
+                    Me.cbboxBezeichnung.Items.Add(dc.ColumnName)
+                    Me.cbboxMitarbeiter_Ersteller.Items.Add(dc.ColumnName)
+                    Me.cbboxMitarbeiter_Verantwortlich.Items.Add(dc.ColumnName)
+                    cb1.Items.Add(dc.ColumnName)
+                    cb2.Items.Add(dc.ColumnName)
+                    cb3.Items.Add(dc.ColumnName)
+                    cb4.Items.Add(dc.ColumnName)
+                    cb5.Items.Add(dc.ColumnName)
+                    cb6.Items.Add(dc.ColumnName)
+                    cb7.Items.Add(dc.ColumnName)
+                Next
+
+                button2.Enabled = True
+                Dim mitarbeiter As DataTable = New DataTable()
+                mitarbeiter = db.Get_Mitarbieter()
+                Dim mitarbeiter1 As DataTable = New DataTable()
+                mitarbeiter1 = db.Get_Mitarbieter()
+                Me.cbboxMitarbeiter_Ersteller.DataSource = mitarbeiter
+                Me.cbboxMitarbeiter_Ersteller.DisplayMember = "Mitarbeiter"
+                Me.cbboxMitarbeiter_Ersteller.ValueMember = "Mitarbeiternr"
+                Me.cbboxMitarbeiter_Verantwortlich.DataSource = mitarbeiter1
+                Me.cbboxMitarbeiter_Verantwortlich.DisplayMember = "Mitarbeiter"
+                Me.cbboxMitarbeiter_Verantwortlich.ValueMember = "Mitarbeiternr"
+            End If
+
+        Catch __unusedException1__ As Exception
+            Throw
+        End Try
+    End Sub
+
+    Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click
+        Errormsg = ""
+
+        If Me.cbboxPartnerNr.Text = "" Then
+            Errormsg = Errormsg & "Mapping Partnernr fehlt" + vbCrLf
+        End If
+
+        If Me.cbboxDokumenttyp.Text = "" Then
+            Errormsg = Errormsg & "Mapping Dokumenttyp fehlt" + vbCrLf
+        End If
+
+        If Me.cbboxMitarbeiter_Ersteller.Text = "" Then
+            Errormsg = Errormsg & "Angaben zu Ersteller fehlt" + vbCrLf
+        End If
+
+        If Me.cbboxMitarbeiter_Verantwortlich.Text = "" Then
+            Errormsg = Errormsg & "Angaben zu Verantwortlicher fehlt" + vbCrLf
+        End If
+
+        check_value(t1, cb1, "1")
+        check_value(t2, cb2, "2")
+        check_value(t3, cb3, "3")
+        check_value(t4, cb4, "4")
+        check_value(t5, cb5, "5")
+        check_value(t6, cb6, "6")
+        check_value(t7, cb7, "7")
+
+        If Errormsg <> "" Then
+            MessageBox.Show(Errormsg)
+        Else
+            MsgBox("Mappingregeln sind ok.")
+            Me.button3.Enabled = True
+        End If
+    End Sub
+
+    Private Sub check_value(ByVal t As TextBox, ByVal c As ComboBox, ByVal Nr As String)
+        If (t.Text = "" AndAlso c.Text <> "") OrElse (t.Text <> "" AndAlso c.Text = "") Then
+            Me.Errormsg = Me.Errormsg & "Definition Dokumentwert Nr. " & Nr.ToString() & " ist nicht korrekt" & vbCrLf
+        End If
+    End Sub
+
+    Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button3.Click
+        Dim [Error] As Integer = 0
+        Dim Partnercount As Integer = 0
+        Dim Doktypcount As Integer = 0
+        Errormsg = ""
+        For Each r As DataRow In ds.Tables(0).Rows
+            If db.CheckPartner(r(Me.cbboxPartnerNr.Text)) = False Then
+                [Error] = [Error] + 1
+                Errormsg = Errormsg + r(Me.cbboxPartnerNr.Text).ToString + vbCrLf
+            End If
+            Partnercount = Partnercount + 1
+        Next
+
+        If [Error] > 0 Then
+            MessageBox.Show([Error].ToString() & " Partner sind in EDOKA nicht vorhanden." + vbCrLf + Errormsg)
+            Exit Sub
+        End If
+
+
+        Errormsg = ""
+        For Each r As DataRow In ds.Tables(0).Rows
+            If db.CheckDokumenttyp(r(Me.cbboxPartnerNr.Text)) = False Then
+                [Error] = [Error] + 1
+                Errormsg = Errormsg + r(Me.cbboxDokumenttyp.Text).ToString + vbCrLf
+            End If
+            Doktypcount = Doktypcount + 1
+        Next
+
+        If [Error] > 0 Then
+            MessageBox.Show([Error].ToString() & " Dokumenttypen sind in EDOKA nicht vorhanden oder nicht aktiv." + vbCrLf + Errormsg)
+            Exit Sub
+        End If
+        MsgBox("Datenprüfung OK: " + Partnercount.ToString + " Einträge geprüft.")
+        Me.button4.Enabled = True
+    End Sub
+
+    Private Sub button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button4.Click
+        Dim dokcount As Integer = 0
+        ds.Tables(0).Columns.Add("Dokumentid")
+        ds.Tables(0).Columns.Add("BCK")
+        For Each r As DataRow In ds.Tables(0).Rows
+            insert_dokument(r)
+            dokcount = dokcount + 1
+            If t1.Text <> "" Then Dokumentwert_Sichern(t1.Text + ";" + r(cb1.Text), -91000)
+            If t2.Text <> "" Then Dokumentwert_Sichern(t2.Text + ";" + r(cb2.Text), -91001)
+            If t3.Text <> "" Then Dokumentwert_Sichern(t3.Text + ";" + r(cb3.Text), -91002)
+            If t4.Text <> "" Then Dokumentwert_Sichern(t4.Text + ";" + r(cb4.Text), -91003)
+            If t5.Text <> "" Then Dokumentwert_Sichern(t5.Text + ";" + r(cb5.Text), -91004)
+            If t6.Text <> "" Then Dokumentwert_Sichern(t6.Text + ";" + r(cb6.Text), -91005)
+            If t7.Text <> "" Then Dokumentwert_Sichern(t7.Text + ";" + r(cb7.Text), -91006)
+            Try
+                If ds.Tables(0).Rows(0).Item("AVQScript") IsNot Nothing Then
+                    Insert_Script(Dokumentid, r.Item("AVQScript"))
+                End If
+            Catch
+            End Try
+
+        Next
+        MsgBox(dokcount.ToString + " Dokumente importiert.")
+        Me.button5.Enabled = True
+        Me.button6.Enabled = True
+    End Sub
+    Sub Insert_Script(ByVal dokumentid As String, ByVal Script As String)
+        Dim docmscript As New edokadb.clsDokument_DOCM_Script
+        clsconn.sConnectionString = My.Settings.ConnectionString
+        docmscript.cpMainConnectionProvider = clsconn
+        docmscript.sDokumentid = New SqlString(CType(dokumentid, String))
+        docmscript.sScript = New SqlString(CType(Script, String))
+        docmscript.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
+        clsconn.OpenConnection()
+        docmscript.Insert()
+        clsconn.CloseConnection(True)
+    End Sub
+    Sub insert_dokument(ByRef r As DataRow)
+        Dim dok As New edokadb.clsDokument
+        Dim doktype As New edokadb.clsDokumenttyp
+
+
+        clsconn.sConnectionString = My.Settings.ConnectionString
+        dok.cpMainConnectionProvider = clsconn
+        doktype.cpMainConnectionProvider = clsconn
+        doktype.iDokumenttypnr = New SqlInt32(CType(r(Me.cbboxDokumenttyp.Text), Int32))
+        doktype.SelectOne()
+
+        dokumentid = db.Generate_Key()
+
+        dok.sDokumentid = New SqlString(CType(Dokumentid, String))
+
+
+        '***************************************************************************************************************3
+        'Defaultwerte für das Dokument
+        '***************************************************************************************************************3
+        dok.bAktiv = New SqlBoolean(True)
+        dok.bAmsdokument = New SqlBoolean(CType(False, Boolean))
+        dok.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean))
+        dok.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
+        dok.iStatus_edoka_batch_ausgang = Nothing
+        dok.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
+        dok.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
+        dok.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
+        dok.bGesperrt = New SqlBoolean(CType(False, Boolean))
+        dok.bUnvollstaendig = New SqlBoolean(CType(False, Boolean))
+        dok.iBck = New SqlInt32(CType(1, Int32))
+        dok.iColdstatus = New SqlInt32(CType(0, Int32))
+        'dok.iUnterschriftlinks = New SqlInt32(CType(Unterschriftlinks, Int32))
+        'dok.iUnterschriftrechts = New SqlInt32(CType(Unterschriftrechts, Int32))
+        dok.iVerantwortlich = New SqlInt32(CType(Me.cbboxMitarbeiter_Verantwortlich.SelectedValue, Int32))
+        dok.bVertraulich = New SqlBoolean(CType(False, Boolean))
+        dok.sZustelladresse = New SqlString(CType("", String))
+        dok.sAnredezustelladresse = New SqlString(CType("", String))
+        dok.iZustaendiger = New SqlInt32(CType(Me.cbboxMitarbeiter_Verantwortlich.SelectedValue, Int32))
+        dok.iPostzustellung = New SqlInt32(CType(0, Int32))
+        dok.bZustaendig_kube = New SqlBoolean(CType(0, Boolean))
+        dok.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32))
+        dok.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32))
+        dok.sBemerkung = New SqlString(CType("", String))
+        dok.sColddokumentid = New SqlString(CType("", String))
+        dok.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
+        dok.sBedRDokumentid = New SqlString(CType("", String))
+        dok.bBldossier = New SqlBoolean(CType(False, Boolean))
+
+        '***************************************************************************************************************3
+        'Werte aus Dokumenttyp
+        '***************************************************************************************************************3
+        dok.iDokumenttypnr = New SqlInt32(CType(doktype.iDokumenttypnr.Value, Int32))
+        dok.bZu_retournieren = New SqlBoolean(CType(doktype.bZu_retournieren.Value, Boolean))
+        dok.iAufbewahrung_elektronisch = New SqlInt32(CType(doktype.iAufbewahrungsfrist_elektronisch.Value, Int32))
+        dok.iAufbewahrung_phaysisch = New SqlInt32(CType(doktype.iAufbewahrungsfrist_physisch.Value, Int32))
+        dok.iBearbeitung_nach_abschluss = New SqlInt32(CType(doktype.iTage_mutation.Value, Int32))
+        dok.iBearbeitungszeit_in_minuten = New SqlInt32(CType(doktype.iDbearbeitungszeit.Value, Int32))
+        dok.iMonierung_in_tagen = New SqlInt32(CType(doktype.iAnzahl_tage.Value, Int32))
+        dok.sBezeichnung = New SqlString(CType(doktype.sBezeichnung.Value, String))
+
+        '***************************************************************************************************************3
+        'Werte aus der Schnittstelle bzw. Defaultwerte
+        '***************************************************************************************************************3
+        dok.iNrpar00 = New SqlInt32(CType(r(Me.cbboxPartnerNr.Text), Int32))
+        dok.daArchivierungsdatum = New SqlDateTime(CType(Now, DateTime))
+
+        'Ersteller und Mutierer
+        dok.iErsteller = New SqlInt32(CType(Me.cbboxMitarbeiter_Ersteller.SelectedValue, Int32))
+        dok.iMutierer = dok.iErsteller
+        dok.iMitarbeiternr = dok.iErsteller
+
+        'Erstellungs- und Mutationsdatum
+        dok.daMutiertam = New SqlDateTime(CType(Now, DateTime))
+        dok.daErstelltam = New SqlDateTime(CType(Now, DateTime))
+
+        dok.iMutierertieam = New SqlInt32(CType(0, Int32))
+        dok.iErstellerteam = New SqlInt32(CType(0, Int32))
+        dok.daErstellungsdatum = New SqlDateTime(CType(dok.daArchivierungsdatum.Value, DateTime))
+        dok.sDokumentname = New SqlString(CType("", String))
+        dok.iAnzeigeStatus = New SqlInt32(CType(0, Int32))
+        clsconn.OpenConnection()
+
+        dok.sBezeichnung = New SqlString(CType(r(Me.cbboxBezeichnung.Text), String))
+        dok.Insert()
+        clsconn.CloseConnection(True)
+        bck = db.Gen_BCK(Dokumentid, Me.cbboxMitarbeiter_Ersteller.SelectedValue)
+        r("Dokumentid") = Dokumentid
+        r("BCK") = bck
+
+        Dim t As DataTable
+        Try
+            t = Cold_Werte(dok.iDokumenttypnr.Value)
+            dok.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String))
+            dok.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String))
+            clsconn.OpenConnection()
+            dok.Update()
+            clsconn.CloseConnection(True)
+        Catch
+        End Try
+
+        If dok.bZu_retournieren.Value = True Then
+            Me.COLD_Index_Sichern(2, Dokumentid)
+        End If
+
+        dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(1, True, 0), Int32))
+        clsconn.OpenConnection()
+        dok.Update()
+        clsconn.CloseConnection(True)
+
+
+    End Sub
+
+    Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal datarow As Integer, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer
+        Dim st As New DataTable()
+        Dim i As Integer
+        Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now)
+        Dim MitArchivfunktion As Boolean = False
+
+        If erstellen = True Then
+            Me.Create_Dokumentstatus(datarow, BLKunde)
+            Create_Dokumentstatus_Uebersteuerung(datarow, BLKunde)
+        End If
+        st = Me.Get_Dokumentstatus(datarow)
+        For i = 0 To st.Rows.Count - 1
+            Select Case Integer.Parse(st.Rows(i).Item(2).ToString)
+                Case 3
+                    MitArchivfunktion = True
+                Case 11
+                    MitArchivfunktion = True
+                    Status_Bereit_Zur_Eingangsarchivierung = True
+            End Select
+        Next
+
+        If MitArchivfunktion Then
+            'Dokumentstatusreihenfolge mit Ausgangsarchivierung
+            For i = 0 To st.Rows.Count - 1
+                insert_history_status(st.Rows(i).Item(0), Dokumentid, Me.cbboxMitarbeiter_Ersteller.SelectedValue, dt)
+                dt = DateAdd(DateInterval.Second, 1, dt)
+                If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then
+                    Return st.Rows(i).Item(0)
+                    Exit Function
+                End If
+            Next
+        Else
+            'Dokumentstatusreihenfolge ohne Ausgangsarchivierung
+        End If
+    End Function
+
+    Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer, ByVal datumzeit As DateTime)
+        Try
+            Dim sh As New edokadb.clsStatushistory()
+            Dim dbkey As New edokadb.clsMyKey_Tabelle()
+            Dim key As Long
+            dbkey.cpMainConnectionProvider = clsconn
+            key = dbkey.get_dbkey("statushistory")
+            sh.cpMainConnectionProvider = clsconn
+            sh.iStatushistorynr = New SqlInt32(CType(key, Int32))
+            sh.iStatus = New SqlInt32(CType(statusnr, Int32))
+            sh.iMandantnr = New SqlInt32(CType(1, Int32))
+            sh.iMutierer = New SqlInt32(CType(Me.cbboxMitarbeiter_Ersteller.SelectedValue, Int32))
+            sh.bAktiv = New SqlBoolean(True)
+            sh.daErstellt_am = New SqlDateTime(CType(datumzeit, DateTime))
+            sh.daMutiert_am = New SqlDateTime(CType(datumzeit, DateTime))
+            sh.sDokumentid = New SqlString(CType(dokumentid, String))
+            sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32))
+            Try
+                clsconn.OpenConnection()
+            Catch
+            End Try
+            sh.Insert()
+            Try
+                clsconn.CloseConnection(True)
+            Catch
+            End Try
+            dbkey.Dispose()
+            sh.Dispose()
+        Catch ex As Exception
+        End Try
+
+    End Sub
+
+    Public Function COLD_Index_Sichern(ByVal indextyp As Integer, ByVal dokumentid As String) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.Connection = clsconn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            ' // some error occured. Bubble it to caller and encapsulate Exception object
+            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Private Function Create_Dokumentstatus(ByVal datarow As Integer, Optional ByVal blkunde As Integer = 0) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.sp_dokumentberabeigung_status_erstellen"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = clsconn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
+            'If bckstatussequenz = False Then
+            ' scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+            'Else
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+            'End If
+            If blkunde = 0 Then
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+            Else
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+            End If
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            clsconn.CloseConnection(True)
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Private Function Create_Dokumentstatus_Uebersteuerung(ByVal datarow As Integer, Optional ByVal blkunde As Integer = 0) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.sp_dokument_status_import_erstellen"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = clsconn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@statustyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 11))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 9998))
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            Throw New Exception("sp_dokument_status_import_erstellen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            clsconn.CloseConnection(True)
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
+    '''<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
+    '''<param name="datarow">Aktuelle Ziele der Indexdaten</param>
+    '''<returns>Datatable mit den Dokumentstatus</returns>
+    Private Function Get_Dokumentstatus(ByVal datarow As Integer) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_dokumentstatus"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = clsconn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            clsconn.CloseConnection(True)
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Private Function Cold_Werte(ByVal dokumenttypnr As Integer) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "sp_archiv_getschema_doc"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.Connection = clsconn.scoDBConnection
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+    Private Sub FillDataTableFromText(ByVal file As String)
+        Dim ext As String = System.IO.Path.GetExtension(file)
+        ext = ext.ToUpper()
+
+        Select Case ext
+            Case ".CSV"
+                Dim csv As MyNameSpace.CSVDataAdapter = New MyNameSpace.CSVDataAdapter(file, True, ";"c)
+                csv.Fill(Me.ds)
+                Exit Select
+            Case ".TXT"
+                Dim csv As MyNameSpace.CSVDataAdapter = New MyNameSpace.CSVDataAdapter(file, True, ";"c)
+                Exit Select
+            Case ".XLS"
+                oledbimport(file, "XLS")
+                Me.ds.Tables(0).TableName = "DokumentData"
+                Exit Select
+            Case ".XLSX"
+                oledbimport(file, "XLSX")
+                Me.ds.Tables(0).TableName = "DokumentData"
+                Exit Select
+        End Select
+    End Sub
+
+    Private Sub oledbimport(ByVal file As String, ByVal filetype As String)
+        Dim dt As DataTable = New DataTable()
+        Dim conn As OleDbConnection
+        Dim sql As String
+        Dim FileConnection As String
+        Dim oda As OleDbDataAdapter = New OleDbDataAdapter()
+        Dim msg As String
+
+        Select Case filetype
+            Case "XLS"
+
+                Try
+                    Dim xls As XLSLib.clsXLSLib = New XLSLib.clsXLSLib()
+                    dt = xls.Get_Excel(file)
+                    Me.ds.Tables.Add(dt)
+                Catch ex As Exception
+                End Try
+
+                Exit Select
+            Case "XLSX"
+
+                Try
+                    Dim xls As XLSLib.clsXLSLib = New XLSLib.clsXLSLib()
+                    dt = xls.Get_Excel(file)
+                    Me.ds.Tables.Add(dt)
+                Catch ex As Exception
+                End Try
+
+                Exit Select
+        End Select
+    End Sub
+
+    Private Sub button5_Click(sender As Object, e As EventArgs) Handles button5.Click
+        Dim f As New frmReport
+        f.DS = Me.ds
+        f.Show()
+    End Sub
+
+    Private Sub button6_Click(sender As Object, e As EventArgs) Handles button6.Click
+        Me.SaveFileDialog1.Filter = "XML-Dateien|*.xml"
+        Me.SaveFileDialog1.FilterIndex = 0
+        If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
+            ds.WriteXml(Me.SaveFileDialog1.FileName)
+            MsgBox("Datei erfolgreich gespeichert.")
+        End If
+
+
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        Me.OpenFileDialog1.Filter = "XML-Dateien|*.xml"
+        If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
+            ds.ReadXml(Me.OpenFileDialog1.FileName)
+            Me.c1TrueDBGrid1.DataSource = Nothing
+            Me.c1TrueDBGrid1.DataSource = ds
+            Me.c1TrueDBGrid1.DataMember = ds.Tables(0).TableName
+        End If
+        button5.Enabled = True
+
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If My.Settings.Debug = "True" Then
+            button1.Enabled = True
+            button2.Enabled = True
+            button3.Enabled = True
+            button4.Enabled = True
+            button5.Enabled = True
+            button6.Enabled = True
+            Button7.Enabled = True
+        Else
+            Button7.Visible = False
+        End If
+    End Sub
+    Public Sub Dokumentwert_Sichern(ByVal wert As String, ByVal feldnr As Integer)
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = clsconn.scoDBConnection
+        scmCmdToExecute.Connection.Open()
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
+            scmCmdToExecute.ExecuteNonQuery()
+        Catch ex As Exception
+            ' // some error occured. Bubble it to caller and encapsulate Exception object
+            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Connection.Close()
+            scmCmdToExecute.Dispose()
+        End Try
+    End Sub
+
+    Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
+
+    End Sub
+End Class

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.BCK_Massenimport.Form1
+        End Sub
+    End Class
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>0</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("BVK_Massenimport_VB")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("BVK_Massenimport_VB")>
+<Assembly: AssemblyCopyright("Copyright ©  2018")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("362181d4-aecc-4ea6-8620-ea502252c27d")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BCK_Massenimport.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Settings.Designer.vb

@@ -0,0 +1,98 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.6.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security"& _ 
+            " info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")>  _
+        Public Property ConnectionString() As String
+            Get
+                Return CType(Me("ConnectionString"),String)
+            End Get
+            Set
+                Me("ConnectionString") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property Debug() As String
+            Get
+                Return CType(Me("Debug"),String)
+            End Get
+            Set
+                Me("Debug") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.BCK_Massenimport.My.MySettings
+            Get
+                Return Global.BCK_Massenimport.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/Settings.settings

@@ -0,0 +1,12 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="ConnectionString" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="Debug" Type="System.String" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/My Project/licenses.licx

@@ -0,0 +1 @@
+C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/20181125_BCK_Massenimport/BCK_Massenimport.xml

@@ -0,0 +1,309 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+BCK_Massenimport
+</name>
+</assembly>
+<members>
+<member name="T:BCK_Massenimport.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+<member name="P:BCK_Massenimport.My.Resources.Resources.ResourceManager">
+<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member>
+<member name="P:BCK_Massenimport.My.Resources.Resources.Culture">
+<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member>
+<member name="T:BCK_Massenimport.edokadb.clsDokumenttyp">
+ <summary>
+ Purpose: Data Access class for the table 'dokumenttyp'.
+ </summary>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.#ctor">
+ <summary>
+ Purpose: Class constructor.
+ </summary>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Insert">
+ <summary>
+ Purpose: Insert method. This method will insert one new row into the database.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
+		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
+		 <LI>iCold_folder. May be SqlInt32.Null</LI>
+		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
+		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
+		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
+		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
+		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
+		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
+		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
+		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
+		 <LI>bNurnative. May be SqlBoolean.Null</LI>
+		 <LI>iOwner. May be SqlInt32.Null</LI>
+		 <LI>bVertrag. May be SqlBoolean.Null</LI>
+		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
+		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
+		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
+		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
+		 <LI>bSb. May be SqlBoolean.Null</LI>
+		 <LI>bSbimport. May be SqlBoolean.Null</LI>
+		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
+		 <LI>bSbnur. May be SqlBoolean.Null</LI>
+		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern. May be SqlBoolean.Null</LI>
+		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
+		 <LI>sFachverantwortung. May be SqlString.Null</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Update">
+ <summary>
+ Purpose: Update method. This method will Update one existing row in the database.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
+		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
+		 <LI>iCold_folder. May be SqlInt32.Null</LI>
+		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
+		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
+		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
+		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
+		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
+		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
+		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
+		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
+		 <LI>bNurnative. May be SqlBoolean.Null</LI>
+		 <LI>iOwner. May be SqlInt32.Null</LI>
+		 <LI>bVertrag. May be SqlBoolean.Null</LI>
+		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
+		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
+		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
+		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
+		 <LI>bSb. May be SqlBoolean.Null</LI>
+		 <LI>bSbimport. May be SqlBoolean.Null</LI>
+		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
+		 <LI>bSbnur. May be SqlBoolean.Null</LI>
+		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern. May be SqlBoolean.Null</LI>
+		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
+		 <LI>sFachverantwortung. May be SqlString.Null</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Delete">
+ <summary>
+ Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.SelectOne">
+ <summary>
+ Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+ </summary>
+ <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung</LI>
+		 <LI>sBeschreibung</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr</LI>
+		 <LI>bAktiv</LI>
+		 <LI>daErstellt_am</LI>
+		 <LI>daMutiert_am</LI>
+		 <LI>iMutierer</LI>
+		 <LI>iOffice_vorlagenr</LI>
+		 <LI>iDokumentart_kundendossier</LI>
+		 <LI>iDokumentart_neuerstellung</LI>
+		 <LI>iDokumentart_retournierung</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host</LI>
+		 <LI>iDokumentart_weitere</LI>
+		 <LI>iDokumentart_nativ</LI>
+		 <LI>iProzessnr</LI>
+		 <LI>iProzessnr1</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument</LI>
+		 <LI>sHostdokumenttyp</LI>
+		 <LI>iCold_folder</LI>
+		 <LI>iPhysisches_archiv</LI>
+		 <LI>iDokumentstatus</LI>
+		 <LI>bDokument_wird_erstellt</LI>
+		 <LI>bDokument_wird_retourniert</LI>
+		 <LI>bCold_ersetzen</LI>
+		 <LI>bEmail_versand</LI>
+		 <LI>bFunktionen_zuweisen</LI>
+		 <LI>iDokumentstatus_barcode</LI>
+		 <LI>bNurnative</LI>
+		 <LI>iOwner</LI>
+		 <LI>bVertrag</LI>
+		 <LI>iObjektbezeichnungnr</LI>
+		 <LI>bBedingtretournierbar</LI>
+		 <LI>iDoktypbedingteretournierung</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung</LI>
+		 <LI>bAnzeigeZurDokumenterstellung</LI>
+		 <LI>bKundenDokument</LI>
+		 <LI>bSb</LI>
+		 <LI>bSbimport</LI>
+		 <LI>bSbedituser</LI>
+		 <LI>bSbnur</LI>
+		 <LI>bBezeichnungmut</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern</LI>
+		 <LI>bElDokImport</LI>
+		 <LI>sFachverantwortung</LI>
+</UL>
+ Will fill all properties corresponding with a field in the table with the value of the row selected.
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.SelectAll">
+ <summary>
+ Purpose: SelectAll method. This method will Select all rows from the table.
+ </summary>
+ <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.Form1.Get_Dokumentstatus(System.Int32)">
+<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
+<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
+<param name="datarow">Aktuelle Ziele der Indexdaten</param>
+<returns>Datatable mit den Dokumentstatus</returns>
+</member>
+</members>
+</doc>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/BCK_Massenimport.exe.config

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="BCK_Massenimport.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
+    </startup>
+    <userSettings>
+        <BCK_Massenimport.My.MySettings>
+            <setting name="ConnectionString" serializeAs="String">
+                <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="Debug" serializeAs="String">
+                <value>True</value>
+            </setting>
+        </BCK_Massenimport.My.MySettings>
+    </userSettings>
+</configuration>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/BCK_Massenimport.xml

@@ -0,0 +1,309 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+BCK_Massenimport
+</name>
+</assembly>
+<members>
+<member name="T:BCK_Massenimport.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+<member name="P:BCK_Massenimport.My.Resources.Resources.ResourceManager">
+<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member>
+<member name="P:BCK_Massenimport.My.Resources.Resources.Culture">
+<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member>
+<member name="T:BCK_Massenimport.edokadb.clsDokumenttyp">
+ <summary>
+ Purpose: Data Access class for the table 'dokumenttyp'.
+ </summary>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.#ctor">
+ <summary>
+ Purpose: Class constructor.
+ </summary>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Insert">
+ <summary>
+ Purpose: Insert method. This method will insert one new row into the database.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
+		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
+		 <LI>iCold_folder. May be SqlInt32.Null</LI>
+		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
+		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
+		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
+		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
+		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
+		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
+		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
+		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
+		 <LI>bNurnative. May be SqlBoolean.Null</LI>
+		 <LI>iOwner. May be SqlInt32.Null</LI>
+		 <LI>bVertrag. May be SqlBoolean.Null</LI>
+		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
+		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
+		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
+		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
+		 <LI>bSb. May be SqlBoolean.Null</LI>
+		 <LI>bSbimport. May be SqlBoolean.Null</LI>
+		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
+		 <LI>bSbnur. May be SqlBoolean.Null</LI>
+		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern. May be SqlBoolean.Null</LI>
+		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
+		 <LI>sFachverantwortung. May be SqlString.Null</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Update">
+ <summary>
+ Purpose: Update method. This method will Update one existing row in the database.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
+		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr. May be SqlInt32.Null</LI>
+		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
+		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
+		 <LI>iCold_folder. May be SqlInt32.Null</LI>
+		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
+		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
+		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
+		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
+		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
+		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
+		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
+		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
+		 <LI>bNurnative. May be SqlBoolean.Null</LI>
+		 <LI>iOwner. May be SqlInt32.Null</LI>
+		 <LI>bVertrag. May be SqlBoolean.Null</LI>
+		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
+		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
+		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
+		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
+		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
+		 <LI>bSb. May be SqlBoolean.Null</LI>
+		 <LI>bSbimport. May be SqlBoolean.Null</LI>
+		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
+		 <LI>bSbnur. May be SqlBoolean.Null</LI>
+		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern. May be SqlBoolean.Null</LI>
+		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
+		 <LI>sFachverantwortung. May be SqlString.Null</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.Delete">
+ <summary>
+ Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+ </summary>
+ <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.SelectOne">
+ <summary>
+ Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+ </summary>
+ <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties needed for this method: 
+ <UL>
+		 <LI>iDokumenttypnr</LI>
+ </UL>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+		 <LI>iDokumenttypnr</LI>
+		 <LI>sBezeichnung</LI>
+		 <LI>sBeschreibung</LI>
+		 <LI>bZu_vercolden</LI>
+		 <LI>bZu_retournieren</LI>
+		 <LI>bEingang_ersetzt_ausgang</LI>
+		 <LI>bWird_importiert</LI>
+		 <LI>iAnzahl_tage</LI>
+		 <LI>iDbearbeitungszeit</LI>
+		 <LI>iTage_mutation</LI>
+		 <LI>bPartnersaldierung_statusalt</LI>
+		 <LI>bWird_nicht_geloescht</LI>
+		 <LI>bVertrauliches_dokument</LI>
+		 <LI>bUnterschrift_links</LI>
+		 <LI>bUnterschrift_rechts</LI>
+		 <LI>iMonate_bis_zur_archivierung</LI>
+		 <LI>iAufbewahrungsfrist_elektronisch</LI>
+		 <LI>iAufbewahrungsfrist_physisch</LI>
+		 <LI>iMandantnr</LI>
+		 <LI>bAktiv</LI>
+		 <LI>daErstellt_am</LI>
+		 <LI>daMutiert_am</LI>
+		 <LI>iMutierer</LI>
+		 <LI>iOffice_vorlagenr</LI>
+		 <LI>iDokumentart_kundendossier</LI>
+		 <LI>iDokumentart_neuerstellung</LI>
+		 <LI>iDokumentart_retournierung</LI>
+		 <LI>iDokumentart_coldausgang</LI>
+		 <LI>iDokumentart_coldeingang</LI>
+		 <LI>iDokumentart_host</LI>
+		 <LI>iDokumentart_weitere</LI>
+		 <LI>iDokumentart_nativ</LI>
+		 <LI>iProzessnr</LI>
+		 <LI>iProzessnr1</LI>
+		 <LI>bAmsdokument</LI>
+		 <LI>bHostdokument</LI>
+		 <LI>sHostdokumenttyp</LI>
+		 <LI>iCold_folder</LI>
+		 <LI>iPhysisches_archiv</LI>
+		 <LI>iDokumentstatus</LI>
+		 <LI>bDokument_wird_erstellt</LI>
+		 <LI>bDokument_wird_retourniert</LI>
+		 <LI>bCold_ersetzen</LI>
+		 <LI>bEmail_versand</LI>
+		 <LI>bFunktionen_zuweisen</LI>
+		 <LI>iDokumentstatus_barcode</LI>
+		 <LI>bNurnative</LI>
+		 <LI>iOwner</LI>
+		 <LI>bVertrag</LI>
+		 <LI>iObjektbezeichnungnr</LI>
+		 <LI>bBedingtretournierbar</LI>
+		 <LI>iDoktypbedingteretournierung</LI>
+		 <LI>iTagebisvernichtungbedingteretournierung</LI>
+		 <LI>bAnzeigeZurDokumenterstellung</LI>
+		 <LI>bKundenDokument</LI>
+		 <LI>bSb</LI>
+		 <LI>bSbimport</LI>
+		 <LI>bSbedituser</LI>
+		 <LI>bSbnur</LI>
+		 <LI>bBezeichnungmut</LI>
+		 <LI>bIstFarbigArchiviert</LI>
+		 <LI>bIntern</LI>
+		 <LI>bElDokImport</LI>
+		 <LI>sFachverantwortung</LI>
+</UL>
+ Will fill all properties corresponding with a field in the table with the value of the row selected.
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.edokadb.clsDokumenttyp.SelectAll">
+ <summary>
+ Purpose: SelectAll method. This method will Select all rows from the table.
+ </summary>
+ <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+ <remarks>
+ Properties set after a succesful call of this method: 
+ <UL>
+		 <LI>iErrorCode</LI>
+</UL>
+ </remarks>
+</member>
+<member name="M:BCK_Massenimport.Form1.Get_Dokumentstatus(System.Int32)">
+<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
+<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
+<param name="datarow">Aktuelle Ziele der Indexdaten</param>
+<returns>Datatable mit den Dokumentstatus</returns>
+</member>
+</members>
+</doc>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/Report/Report1.frx

@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/02/2018 09:36:51" ReportInfo.CreatorVersion="2018.4.2.0">
+  <ScriptText>using System;
+using System.Collections;
+using System.Collections.Generic;
+using System.ComponentModel;
+using System.Windows.Forms;
+using System.Drawing;
+using System.Data;
+using FastReport;
+using FastReport.Data;
+using FastReport.Dialog;
+using FastReport.Barcode;
+using FastReport.Table;
+using FastReport.Utils;
+
+namespace FastReport
+{
+  public class ReportScript
+  {
+  }
+}
+</ScriptText>
+  <Dictionary>
+    <TableDataSource Name="DokumentData" ReferenceName="Data.DokumentData" DataType="System.Int32" Enabled="true">
+      <Column Name="Bearbeitet" DataType="System.String"/>
+      <Column Name="KN-Nr" DataType="System.String"/>
+      <Column Name="DokTyp" DataType="System.String"/>
+      <Column Name="Kreditnehmer" DataType="System.String"/>
+      <Column Name="Container / Vers-Nehmer" DataType="System.String"/>
+      <Column Name="PolicenNummer" DataType="System.String"/>
+      <Column Name="Sicherheitsart" DataType="System.String"/>
+      <Column Name="Versicherungsgesellschaft" DataType="System.String"/>
+      <Column Name="Dokumentid" DataType="System.String"/>
+      <Column Name="BCK" DataType="System.String"/>
+      <Column Name="Bar25" DataType="System.String"/>
+    </TableDataSource>
+    <Parameter Name="Deckblatt-Titel" DataType="System.String"/>
+  </Dictionary>
+  <ReportPage Name="Page1">
+    <ReportTitleBand Name="ReportTitle1" Width="718.2"/>
+    <PageHeaderBand Name="PageHeader1" Top="4.21" Width="718.2"/>
+    <DataBand Name="Data1" Top="8.42" Width="718.2" Height="538.65" DataSource="DokumentData">
+      <TextObject Name="Text14" Left="274.05" Top="340.2" Width="94.5" Height="18.9" Text="[DokumentData.BCK]"/>
+      <TextObject Name="Text15" Left="28.35" Top="340.2" Width="217.35" Height="18.9" Text="Barcode-ID"/>
+      <TextObject Name="Text12" Left="274.05" Top="311.85" Width="415.8" Height="18.9" Text="[DokumentData.Dokumentid]"/>
+      <TextObject Name="Text13" Left="28.35" Top="311.85" Width="217.35" Height="18.9" Text="EDOKA-DokumentID"/>
+      <TextObject Name="Text10" Left="274.05" Top="274.05" Width="415.8" Height="18.9" Text="[DokumentData.Versicherungsgesellschaft]"/>
+      <TextObject Name="Text11" Left="28.35" Top="274.05" Width="217.35" Height="18.9" Text="Versicherungsgesellschaft"/>
+      <TextObject Name="Text8" Left="28.35" Top="236.25" Width="160.65" Height="18.9" Text="Sicherheitsart"/>
+      <TextObject Name="Text9" Left="274.05" Top="236.25" Width="425.25" Height="18.9" Text="[DokumentData.Sicherheitsart]"/>
+      <TextObject Name="Text6" Left="28.35" Top="198.45" Width="160.65" Height="18.9" Text="Policen-Nummer:"/>
+      <TextObject Name="Text7" Left="274.05" Top="198.45" Width="425.25" Height="18.9" Text="[DokumentData.PolicenNummer]"/>
+      <TextObject Name="Text4" Left="28.35" Top="160.65" Width="160.65" Height="18.9" Text="Container:"/>
+      <TextObject Name="Text5" Left="274.05" Top="160.65" Width="415.8" Height="18.9" Text="[DokumentData.Container / Vers-Nehmer]"/>
+      <TextObject Name="Text3" Left="274.05" Top="122.85" Width="415.8" Height="18.9" Text="[DokumentData.Kreditnehmer]"/>
+      <TextObject Name="Text1" Left="28.35" Top="103.95" Width="160.65" Height="18.9" Text="Kreditnehmer:"/>
+      <TextObject Name="Text2" Left="274.05" Top="103.95" Width="245.7" Height="18.9" Text="[DokumentData.KN-Nr]"/>
+      <TextObject Name="Text16" Left="28.35" Top="18.9" Width="623.7" Height="18.9" Text="[Deckblatt-Titel]" Font="Arial, 14pt, style=Bold"/>
+      <TextObject Name="Text19" Left="18.9" Top="406.35" Width="406.35" Height="66.15" Text="[DokumentData.Bar25]" Font="Bar 25i c HR, 48pt"/>
+    </DataBand>
+    <PageFooterBand Name="PageFooter1" Top="551.28" Width="718.2" Height="28.35">
+      <TextObject Name="Text17" Left="614.25" Top="9.45" Width="94.5" Height="18.9" Text="[Page]" HorzAlign="Right"/>
+      <TextObject Name="Text18" Left="18.9" Top="9.45" Width="217.35" Height="18.9" Text="[Date]"/>
+    </PageFooterBand>
+  </ReportPage>
+</Report>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/Report/Report2.frx

@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report ScriptLanguage="Vb" ReportInfo.Created="11/02/2018 08:21:04" ReportInfo.Modified="11/02/2018 09:05:39" ReportInfo.CreatorVersion="2018.4.2.0">
+  <Dictionary>
+    <TableDataSource Name="DokumentData" ReferenceName="Data.DokumentData" DataType="System.Int32" Enabled="true">
+      <Column Name="Bearbeitet" DataType="System.String"/>
+      <Column Name="KN-Nr" DataType="System.String"/>
+      <Column Name="DokTyp" DataType="System.String"/>
+      <Column Name="Kreditnehmer" DataType="System.String"/>
+      <Column Name="Container / Vers-Nehmer" DataType="System.String"/>
+      <Column Name="PolicenNummer" DataType="System.String"/>
+      <Column Name="Sicherheitsart" DataType="System.String"/>
+      <Column Name="Versicherungsgesellschaft" DataType="System.String"/>
+      <Column Name="Dokumentid" DataType="System.String"/>
+      <Column Name="BCK" DataType="System.String"/>
+      <Column Name="Bar25" DataType="System.String"/>
+    </TableDataSource>
+  </Dictionary>
+  <ReportPage Name="Page1" PaperWidth="215.9" PaperHeight="279.4" LeftMargin="4.7752" TopMargin="12.7" RightMargin="0" BottomMargin="0" Columns.Count="3" Columns.Width="66.675" Columns.Positions="0,69.85,139.7">
+    <DataBand Name="Data1" Width="252.03" Height="94.5" DataSource="DokumentData">
+      <TextObject Name="Text1" Left="9.45" Top="75.6" Width="122.85" Height="18.9" Text="[DokumentData.KN-Nr]" Font="Arial, 8pt"/>
+      <TextObject Name="Text2" Left="132.3" Top="75.6" Width="103.95" Height="18.9" Text="[DokumentData.PolicenNummer]" Font="Arial, 8pt"/>
+      <TextObject Name="Text3" Left="9.45" Top="56.7" Width="207.9" Height="18.9" Text="[DokumentData.Dokumentid]" Font="Arial, 8pt"/>
+      <TextObject Name="Text19" Top="9.45" Width="245.7" Height="66.15" Text="[DokumentData.Bar25]" Font="Bar 25i c HR, 36pt"/>
+    </DataBand>
+  </ReportPage>
+</Report>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/bin/Debug/Report/empty.frx

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
+  <Dictionary/>
+  <ReportPage Name="Page1">
+    <ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
+    <PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
+    <DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
+    <PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
+  </ReportPage>
+</Report>

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/frmReport.Designer.vb

@@ -0,0 +1,128 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmReport
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReport))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.previewControl1 = New FastReport.Preview.PreviewControl()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(800, 24)
+        Me.MenuStrip1.TabIndex = 0
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'previewControl1
+        '
+        Me.previewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.previewControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.previewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
+        Me.previewControl1.Location = New System.Drawing.Point(0, 49)
+        Me.previewControl1.Name = "previewControl1"
+        Me.previewControl1.PageOffset = New System.Drawing.Point(10, 10)
+        Me.previewControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.previewControl1.SaveInitialDirectory = Nothing
+        Me.previewControl1.Size = New System.Drawing.Size(800, 401)
+        Me.previewControl1.TabIndex = 2
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripTextBox2, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripLabel2})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(800, 25)
+        Me.ToolStrip1.TabIndex = 3
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(65, 22)
+        Me.ToolStripLabel1.Text = "ReportTitel"
+        '
+        'ToolStripTextBox2
+        '
+        Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
+        Me.ToolStripTextBox2.Size = New System.Drawing.Size(200, 25)
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(61, 22)
+        Me.ToolStripButton1.Text = "Deckblatt"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(44, 22)
+        Me.ToolStripButton2.Text = "Labels"
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(55, 22)
+        Me.ToolStripLabel2.Text = "Vorschau"
+        '
+        'frmReport
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.previewControl1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Name = "frmReport"
+        Me.Text = "frmReport"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Private WithEvents previewControl1 As FastReport.Preview.PreviewControl
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents ToolStripLabel1 As ToolStripLabel
+    Friend WithEvents ToolStripTextBox2 As ToolStripTextBox
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents ToolStripLabel2 As ToolStripLabel
+End Class

BCK_Massenimport/BVK_Massenimport_VB/BVK_Massenimport_VB/frmReport.resx

@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>132, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
+</root>