shu/EDOKA_Tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
ColdAbgleich/Loader/Backup/Loader.sln Normal file
View File

@@ -0,0 +1,20 @@
Microsoft Visual Studio Solution File, Format Version 9.00
# Visual Studio 2005
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Loader", "Loader\Loader.vbproj", "{7D610EEB-312A-4852-A596-8460A6468B59}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7D610EEB-312A-4852-A596-8460A6468B59}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{7D610EEB-312A-4852-A596-8460A6468B59}.Debug|Any CPU.Build.0 = Debug|Any CPU
{7D610EEB-312A-4852-A596-8460A6468B59}.Release|Any CPU.ActiveCfg = Release|Any CPU
{7D610EEB-312A-4852-A596-8460A6468B59}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
ColdAbgleich/Loader/Backup/Loader.suo Normal file
View File

Binary file not shown.

83
ColdAbgleich/Loader/Backup/Loader/CSVHelper.vb Normal file
View File

@@ -0,0 +1,83 @@
Imports System
Imports System.Data
Imports System.IO
Public Class DataTableHelper
'
' Can stream DataTable to Browser, directly, you need to set
'
' Response.Clear();
' Response.Buffer= true;
' Response.ContentType = "application/vnd.ms-excel";
' Response.AddHeader("Content-Disposition", "inline;filename=Clientes.xls");
' Response.Charset = "";
' this.EnableViewState = false
' ACTUAL CODE
' ProduceCSV(dt, Response.Output, true);
'
Public Shared Sub ProduceCSV(ByVal dt As DataTable, _
ByVal httpStream As System.IO.TextWriter, ByVal WriteHeader As Boolean)
Dim i As Int32
Dim j As Int32
If WriteHeader Then
Dim arr(dt.Columns.Count) As String
For i = 0 To dt.Columns.Count - 1
arr(i) = dt.Columns(i).ColumnName
arr(i) = GetWriteableValue(arr(i))
Next
httpStream.WriteLine(String.Join(",", arr))
End If
For j = 0 To dt.Rows.Count - 1
Dim dataArr(dt.Columns.Count) As String
For i = 0 To dt.Columns.Count - 1
Dim o As Object = dt.Rows(j)(i)
dataArr(i) = GetWriteableValue(o)
Next
httpStream.WriteLine(String.Join(",", dataArr))
Next
End Sub
#Region "CSVProducer"
Public Shared Sub ProduceCSV(ByVal dt As DataTable, _
ByVal file As System.IO.StreamWriter, ByVal WriteHeader As Boolean)
Dim i As Int32
Dim j As Int32
If (WriteHeader) Then
Dim arr(dt.Columns.Count - 1) As String
For i = 0 To dt.Columns.Count - 1
arr(i) = dt.Columns(i).ColumnName
arr(i) = GetWriteableValue(arr(i))
Next
file.WriteLine(String.Join(",", arr))
End If
For j = 0 To dt.Rows.Count - 1
Dim dataArr(dt.Columns.Count - 1) As String
For i = 0 To dt.Columns.Count - 1
Dim o As Object = dt.Rows(j)(i)
dataArr(i) = GetWriteableValue(o)
Next
file.WriteLine(String.Join(",", dataArr))
Next
End Sub
Public Shared Function GetWriteableValue(ByVal o As Object) As String
If o Is Nothing OrElse IsDBNull(o) Then
Return ""
ElseIf (o.ToString().IndexOf(",") = -1) Then
Return o.ToString()
Else
Return "\"" + o.ToString() + " \ ""
End If
End Function
#End Region
End Class

105
ColdAbgleich/Loader/Backup/Loader/Loader.vbproj Normal file
View File

@@ -0,0 +1,105 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>8.0.50727</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{7D610EEB-312A-4852-A596-8460A6468B59}</ProjectGuid>
<OutputType>Exe</OutputType>
<StartupObject>Loader.ModMain</StartupObject>
<RootNamespace>Loader</RootNamespace>
<AssemblyName>Loader</AssemblyName>
<MyType>Console</MyType>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Loader.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\debug\</OutputPath>
<DocumentationFile>Loader.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<ItemGroup>
<Reference Include="csvadapter, Version=1.0.2062.15511, Culture=neutral">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\Client\EDOKA\bin\csvadapter.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Xml" />
</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.Diagnostics" />
</ItemGroup>
<ItemGroup>
<Compile Include="clsArgs.vb" />
<Compile Include="clsConnectionProvider.vb" />
<Compile Include="clsDBInteractionBase.vb" />
<Compile Include="clsTmphost.vb" />
<Compile Include="CSVHelper.vb" />
<Compile Include="ModMain.vb" />
<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>
<Compile Include="Parameter.vb" />
</ItemGroup>
<ItemGroup>
<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>
</ItemGroup>
<ItemGroup>
<Content Include="parameters.xml" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

8
ColdAbgleich/Loader/Backup/Loader/Loader.vbproj.user Normal file
View File

@@ -0,0 +1,8 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<StartArguments>DOK D:\EDOKA\Coldindex\EDOKA_Prod\docold3.txt</StartArguments>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<StartArguments>DOK D:\EDOKA\Coldindex\EDOKA_Prod\docold3.txt</StartArguments>
</PropertyGroup>
</Project>

BIN
ColdAbgleich/Loader/Backup/Loader/ModMain.vb Normal file
View File

Binary file not shown.

13
ColdAbgleich/Loader/Backup/Loader/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1434
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
ColdAbgleich/Loader/Backup/Loader/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?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>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>2</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
ColdAbgleich/Loader/Backup/Loader/My Project/AssemblyInfo.vb Normal file
View File

@@ -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 mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Loader")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Loader")>
<Assembly: AssemblyCopyright("Copyright © 2009")>
<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("2164f506-d6ea-4433-9f15-48782d0086f0")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
ColdAbgleich/Loader/Backup/Loader/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1434
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'<summary>
' A strongly-typed resource class, for looking up localized strings, etc.
'</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.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>
' Returns the cached ResourceManager instance used by this class.
'</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("Loader.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'<summary>
' Overrides the current thread's CurrentUICulture property for all
' resource lookups using this strongly typed resource class.
'</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
ColdAbgleich/Loader/Backup/Loader/My Project/Resources.resx Normal file
View File

@@ -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>

73
ColdAbgleich/Loader/Backup/Loader/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1434
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </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", "8.0.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 "My.Settings Auto-Save Functionality"
#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(ByVal sender As Global.System.Object, ByVal 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
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.Loader.My.MySettings
Get
Return Global.Loader.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
ColdAbgleich/Loader/Backup/Loader/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

80
ColdAbgleich/Loader/Backup/Loader/Parameter.vb Normal file
View File

@@ -0,0 +1,80 @@
Imports System.Xml
Imports System.IO
Imports System.Reflection
Public Class Parameters
Dim sconnectionstringEDOKA As String
Property ConnectionStringEDOKA() As String
Get
Return sconnectionstringEDOKA
End Get
Set(ByVal value As String)
sconnectionstringEDOKA = value
End Set
End Property
Dim sconnectionstringEDOKA_HOST As String
Property ConnectionStringEDOKA_HOST() As String
Get
Return sconnectionstringEDOKA_HOST
End Get
Set(ByVal value As String)
sconnectionstringEDOKA_HOST = value
End Set
End Property
Dim sconnectionstringEDOKA_ZV As String
Property ConnectionStringEDOKA_ZV() As String
Get
Return sconnectionstringEDOKA_ZV
End Get
Set(ByVal value As String)
sconnectionstringEDOKA_ZV = value
End Set
End Property
Dim sconnectionstringColdabgleich As String
Property ConnectionStringColdabgleich() As String
Get
Return sconnectionstringColdabgleich
End Get
Set(ByVal value As String)
sconnectionstringColdabgleich = value
End Set
End Property
Dim mtmppath As String
Property TMPPath() As String
Get
Return mtmppath
End Get
Set(ByVal value As String)
mtmppath = value
End Set
End Property
Dim sconnectiontmphost As String
Property ConnectionStringTmpHost() As String
Get
Return sconnectiontmphost
End Get
Set(ByVal value As String)
sconnectiontmphost = value
End Set
End Property
Dim xmldoc As New XmlDocument
Public Sub New()
xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
Me.ConnectionStringEDOKA = xmldoc.SelectSingleNode("/Configuration/SQLConnEDOKA").InnerText
Me.ConnectionStringEDOKA_HOST = xmldoc.SelectSingleNode("/Configuration/SQLConnHOST").InnerText
Me.ConnectionStringEDOKA_ZV = xmldoc.SelectSingleNode("/Configuration/SQLConnZV").InnerText
Me.ConnectionStringColdabgleich = xmldoc.SelectSingleNode("/Configuration/SQLConnColdabgleich").InnerText
'Me.ConnectionStringTmpHost = xmldoc.SelectSingleNode("/Configuration/SQLConnTmpHost").InnerText
Me.TMPPath = xmldoc.SelectSingleNode("/Configuration/TMPPath").InnerText
End Sub
Public Function ApplicationPath() As String
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
End Class

76
ColdAbgleich/Loader/Backup/Loader/clsArgs.vb Normal file
View File

@@ -0,0 +1,76 @@
Imports System.IO
Public Class clsArgs
Dim m_typ As String
Property Typ() As String
Get
Return m_typ
End Get
Set(ByVal value As String)
m_typ = value
End Set
End Property
Dim m_anzahl As String
Property Anzahl() As String
Get
Return m_anzahl
End Get
Set(ByVal value As String)
m_anzahl = value
End Set
End Property
Dim m_filename As String
Property inputfilename() As String
Get
Return m_filename
End Get
Set(ByVal value As String)
m_filename = value
End Set
End Property
Public Function CheckArgs(ByVal args() As String) As Boolean
Try
Me.Typ = args(1)
If UCase(Me.Typ) = "BL" Or UCase(Me.Typ) = "BL1" Or UCase(Me.Typ) = "EDOKA" Or UCase(Me.Typ) = "DOK" Or UCase(Me.Typ) = "EDEXBL" Or UCase(Me.Typ) = "EDEXBL1" Or UCase(Me.Typ) = "MFS" Or UCase(Me.Typ) = "DOKS" Then
Me.inputfilename = args(2)
If Not File.Exists(Me.inputfilename) Then
Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
Return False
End If
Return True
End If
If UCase(Me.Typ) = "VV" Then
Me.inputfilename = args(2)
If Not File.Exists(Me.inputfilename) Then
Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
Return False
End If
Return True
End If
If UCase(Me.Typ) <> "ZV" And UCase(Me.Typ) <> "HOST" And UCase(Me.Typ) <> "HOST1" Then
Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
Return False
End If
Me.inputfilename = args(2)
If Not File.Exists(Me.inputfilename) Then
Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
Return False
End If
Return True
If Me.Typ = "" Or Me.Anzahl = "" Or Me.inputfilename = "" Then
Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
End If
Return True
Catch ex As Exception
Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
Return False
End Try
End Function
End Class

289
ColdAbgleich/Loader/Backup/Loader/clsConnectionProvider.vb Normal file
View File

@@ -0,0 +1,289 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Connection Provider class for Database connection sharing
' // Generated by LLBLGen v1.21.2003.712 Final on: Sonntag, 15. November 2009, 10:42:03
' // This class implements IDisposable.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Namespace coldabgleich.host
' /// <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

208
ColdAbgleich/Loader/Backup/Loader/clsDBInteractionBase.vb Normal file
View File

@@ -0,0 +1,208 @@
' //////////////////////////////////////////////////////////////////////////////////////////
' // Description: Base class for Database Interaction.
' // Generated by LLBLGen v1.21.2003.712 Final on: Sonntag, 15. November 2009, 10:42:03
' // 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 coldabgleich.host
' /// <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_iRowsAffected As Integer
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
Public Readonly Property iRowsAffected() As Integer
Get
Return m_iRowsAffected
End Get
End Property
#End Region
End Class
End Namespace

793
ColdAbgleich/Loader/Backup/Loader/clsTmphost.vb Normal file
View File

@@ -0,0 +1,793 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'tmphost'
' // Generated by LLBLGen v1.21.2003.712 Final on: Sonntag, 15. November 2009, 10:42:03
' // 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 coldabgleich.host
''' <summary>
''' Purpose: Data Access class for the table 'tmphost'.
''' </summary>
Public Class clsTmphost
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_lPk As SqlInt64
Private m_iInrpar00_zusteller, m_iInrpar00_inhaber As SqlInt32
Private m_sMailingProductBezeichnung, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumenttypnr, m_sMetatype, m_sMailingProduct, m_sBetreffzeile, m_sPartnernr_inhaber, m_sManr, m_sOrdertype, m_sXomaDocID, m_sTransactnr, m_sValutadatum, m_sReferenzzeile2, m_sValorennr, m_sValutadatum1, m_sPartnername_inhaber, m_sPartnernr_zusteller, m_sReferenzzeile1, m_sPartnername_zusteller, m_sNachvollziehbarkeit, m_sArchivdatum, m_sVvextern1, m_sVvextern2, m_sIsinnr, m_sDokumentid, m_sAnzahlseiten As SqlString
Private m_daInserttimestamp As SqlDateTime
#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>sPartnernr_inhaber</LI>
''' <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
''' <LI>sPartnername_inhaber</LI>
''' <LI>sPartnername_zusteller. May be SqlString.Null</LI>
''' <LI>sReferenzzeile1. May be SqlString.Null</LI>
''' <LI>sReferenzzeile2. May be SqlString.Null</LI>
''' <LI>sValutadatum</LI>
''' <LI>sValutadatum1. May be SqlString.Null</LI>
''' <LI>sValorennr. May be SqlString.Null</LI>
''' <LI>sIsinnr. May be SqlString.Null</LI>
''' <LI>sDokumentid</LI>
''' <LI>sAnzahlseiten</LI>
''' <LI>sNachvollziehbarkeit</LI>
''' <LI>sArchivdatum</LI>
''' <LI>sVvextern1. May be SqlString.Null</LI>
''' <LI>sVvextern2. May be SqlString.Null</LI>
''' <LI>sEx. May be SqlString.Null</LI>
''' <LI>sStandamdatum. May be SqlString.Null</LI>
''' <LI>sDokumenttypnr. May be SqlString.Null</LI>
''' <LI>sLoadid. May be SqlString.Null</LI>
''' <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
''' <LI>iInrpar00_inhaber. May be SqlInt32.Null</LI>
''' <LI>iInrpar00_zusteller. May be SqlInt32.Null</LI>
''' <LI>sMailingProductBezeichnung. May be SqlString.Null</LI>
''' <LI>sMetatype. May be SqlString.Null</LI>
''' <LI>sOrdertype. May be SqlString.Null</LI>
''' <LI>sXomaDocID. May be SqlString.Null</LI>
''' <LI>sTransactnr. May be SqlString.Null</LI>
''' <LI>sManr. May be SqlString.Null</LI>
''' <LI>sMailingProduct. May be SqlString.Null</LI>
''' <LI>sBetreffzeile. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>lPk</LI>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_tmphost_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.NVarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.NVarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.NVarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.NVarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.NVarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.NVarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.NVarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.NVarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.NVarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iinrpar00_inhaber", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iInrpar00_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iinrpar00_zusteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iInrpar00_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smetatype", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMetatype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sordertype", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOrdertype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sXomaDocID", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sXomaDocID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stransactnr", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTransactnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smanr", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sManr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProduct", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProduct))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBetreffzeile", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBetreffzeile))
scmCmdToExecute.Parameters.Add(new SqlParameter("@lpk", SqlDbType.BigInt, 8, ParameterDirection.Output, True, 19, 0, "", DataRowVersion.Proposed, m_lPk))
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.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
' m_lPk = New SqlInt64(CType(scmCmdToExecute.Parameters.Item("@lpk").Value, Int64))
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_tmphost_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("clsTmphost::Insert::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 for a unique field. This method will Select one row from the database, based on the unique field 'pk'
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>lPk</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>sPartnernr_inhaber</LI>
''' <LI>sPartnernr_zusteller</LI>
''' <LI>sPartnername_inhaber</LI>
''' <LI>sPartnername_zusteller</LI>
''' <LI>sReferenzzeile1</LI>
''' <LI>sReferenzzeile2</LI>
''' <LI>sValutadatum</LI>
''' <LI>sValutadatum1</LI>
''' <LI>sValorennr</LI>
''' <LI>sIsinnr</LI>
''' <LI>sDokumentid</LI>
''' <LI>sAnzahlseiten</LI>
''' <LI>sNachvollziehbarkeit</LI>
''' <LI>sArchivdatum</LI>
''' <LI>sVvextern1</LI>
''' <LI>sVvextern2</LI>
''' <LI>sEx</LI>
''' <LI>sStandamdatum</LI>
''' <LI>sDokumenttypnr</LI>
''' <LI>sLoadid</LI>
''' <LI>daInserttimestamp</LI>
''' <LI>iInrpar00_inhaber</LI>
''' <LI>iInrpar00_zusteller</LI>
''' <LI>sMailingProductBezeichnung</LI>
''' <LI>sMetatype</LI>
''' <LI>sOrdertype</LI>
''' <LI>sXomaDocID</LI>
''' <LI>sTransactnr</LI>
''' <LI>sManr</LI>
''' <LI>sMailingProduct</LI>
''' <LI>sBetreffzeile</LI>
''' <LI>lPk</LI>
''' </UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Public Function SelectOneWpkLogic() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_tmphost_SelectOneWpkLogic]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("tmphost")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@lpk", SqlDbType.BigInt, 8, ParameterDirection.Input, False, 19, 0, "", DataRowVersion.Proposed, m_lPk))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 19, 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_lPk = New SqlInt64(CType(scmCmdToExecute.Parameters.Item("@lpk").Value, Long))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_tmphost_SelectOneWpkLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_sPartnernr_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnernr_inhaber"), String))
If dtToReturn.Rows(0)("partnernr_zusteller") Is System.DBNull.Value Then
m_sPartnernr_zusteller = SqlString.Null
Else
m_sPartnernr_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnernr_zusteller"), String))
End If
m_sPartnername_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnername_inhaber"), String))
If dtToReturn.Rows(0)("partnername_zusteller") Is System.DBNull.Value Then
m_sPartnername_zusteller = SqlString.Null
Else
m_sPartnername_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnername_zusteller"), String))
End If
If dtToReturn.Rows(0)("referenzzeile1") Is System.DBNull.Value Then
m_sReferenzzeile1 = SqlString.Null
Else
m_sReferenzzeile1 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile1"), String))
End If
If dtToReturn.Rows(0)("referenzzeile2") Is System.DBNull.Value Then
m_sReferenzzeile2 = SqlString.Null
Else
m_sReferenzzeile2 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile2"), String))
End If
m_sValutadatum = New SqlString(CType(dtToReturn.Rows(0)("valutadatum"), String))
If dtToReturn.Rows(0)("valutadatum1") Is System.DBNull.Value Then
m_sValutadatum1 = SqlString.Null
Else
m_sValutadatum1 = New SqlString(CType(dtToReturn.Rows(0)("valutadatum1"), String))
End If
If dtToReturn.Rows(0)("valorennr") Is System.DBNull.Value Then
m_sValorennr = SqlString.Null
Else
m_sValorennr = New SqlString(CType(dtToReturn.Rows(0)("valorennr"), String))
End If
If dtToReturn.Rows(0)("isinnr") Is System.DBNull.Value Then
m_sIsinnr = SqlString.Null
Else
m_sIsinnr = New SqlString(CType(dtToReturn.Rows(0)("isinnr"), String))
End If
m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
m_sAnzahlseiten = New SqlString(CType(dtToReturn.Rows(0)("anzahlseiten"), String))
m_sNachvollziehbarkeit = New SqlString(CType(dtToReturn.Rows(0)("nachvollziehbarkeit"), String))
m_sArchivdatum = New SqlString(CType(dtToReturn.Rows(0)("archivdatum"), String))
If dtToReturn.Rows(0)("vvextern1") Is System.DBNull.Value Then
m_sVvextern1 = SqlString.Null
Else
m_sVvextern1 = New SqlString(CType(dtToReturn.Rows(0)("vvextern1"), String))
End If
If dtToReturn.Rows(0)("vvextern2") Is System.DBNull.Value Then
m_sVvextern2 = SqlString.Null
Else
m_sVvextern2 = New SqlString(CType(dtToReturn.Rows(0)("vvextern2"), String))
End If
If dtToReturn.Rows(0)("ex") Is System.DBNull.Value Then
m_sEx = SqlString.Null
Else
m_sEx = New SqlString(CType(dtToReturn.Rows(0)("ex"), String))
End If
If dtToReturn.Rows(0)("standamdatum") Is System.DBNull.Value Then
m_sStandamdatum = SqlString.Null
Else
m_sStandamdatum = New SqlString(CType(dtToReturn.Rows(0)("standamdatum"), String))
End If
If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then
m_sDokumenttypnr = SqlString.Null
Else
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
End If
If dtToReturn.Rows(0)("loadid") Is System.DBNull.Value Then
m_sLoadid = SqlString.Null
Else
m_sLoadid = New SqlString(CType(dtToReturn.Rows(0)("loadid"), String))
End If
If dtToReturn.Rows(0)("inserttimestamp") Is System.DBNull.Value Then
m_daInserttimestamp = SqlDateTime.Null
Else
m_daInserttimestamp = New SqlDateTime(CType(dtToReturn.Rows(0)("inserttimestamp"), Date))
End If
If dtToReturn.Rows(0)("inrpar00_inhaber") Is System.DBNull.Value Then
m_iInrpar00_inhaber = SqlInt32.Null
Else
m_iInrpar00_inhaber = New SqlInt32(CType(dtToReturn.Rows(0)("inrpar00_inhaber"), Integer))
End If
If dtToReturn.Rows(0)("inrpar00_zusteller") Is System.DBNull.Value Then
m_iInrpar00_zusteller = SqlInt32.Null
Else
m_iInrpar00_zusteller = New SqlInt32(CType(dtToReturn.Rows(0)("inrpar00_zusteller"), Integer))
End If
If dtToReturn.Rows(0)("MailingProductBezeichnung") Is System.DBNull.Value Then
m_sMailingProductBezeichnung = SqlString.Null
Else
m_sMailingProductBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("MailingProductBezeichnung"), String))
End If
If dtToReturn.Rows(0)("metatype") Is System.DBNull.Value Then
m_sMetatype = SqlString.Null
Else
m_sMetatype = New SqlString(CType(dtToReturn.Rows(0)("metatype"), String))
End If
If dtToReturn.Rows(0)("ordertype") Is System.DBNull.Value Then
m_sOrdertype = SqlString.Null
Else
m_sOrdertype = New SqlString(CType(dtToReturn.Rows(0)("ordertype"), String))
End If
If dtToReturn.Rows(0)("XomaDocID") Is System.DBNull.Value Then
m_sXomaDocID = SqlString.Null
Else
m_sXomaDocID = New SqlString(CType(dtToReturn.Rows(0)("XomaDocID"), String))
End If
If dtToReturn.Rows(0)("transactnr") Is System.DBNull.Value Then
m_sTransactnr = SqlString.Null
Else
m_sTransactnr = New SqlString(CType(dtToReturn.Rows(0)("transactnr"), String))
End If
If dtToReturn.Rows(0)("manr") Is System.DBNull.Value Then
m_sManr = SqlString.Null
Else
m_sManr = New SqlString(CType(dtToReturn.Rows(0)("manr"), String))
End If
If dtToReturn.Rows(0)("MailingProduct") Is System.DBNull.Value Then
m_sMailingProduct = SqlString.Null
Else
m_sMailingProduct = New SqlString(CType(dtToReturn.Rows(0)("MailingProduct"), String))
End If
If dtToReturn.Rows(0)("Betreffzeile") Is System.DBNull.Value Then
m_sBetreffzeile = SqlString.Null
Else
m_sBetreffzeile = New SqlString(CType(dtToReturn.Rows(0)("Betreffzeile"), String))
End If
m_lPk = New SqlInt64(CType(dtToReturn.Rows(0)("pk"), Long))
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsTmphost::SelectOneWpkLogic::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>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_tmphost_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("tmphost")
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_tmphost_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("clsTmphost::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 [sPartnernr_inhaber]() As SqlString
Get
Return m_sPartnernr_inhaber
End Get
Set(ByVal Value As SqlString)
Dim sPartnernr_inhaberTmp As SqlString = Value
If sPartnernr_inhaberTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
End If
m_sPartnernr_inhaber = Value
End Set
End Property
Public Property [sPartnernr_zusteller]() As SqlString
Get
Return m_sPartnernr_zusteller
End Get
Set(ByVal Value As SqlString)
m_sPartnernr_zusteller = Value
End Set
End Property
Public Property [sPartnername_inhaber]() As SqlString
Get
Return m_sPartnername_inhaber
End Get
Set(ByVal Value As SqlString)
Dim sPartnername_inhaberTmp As SqlString = Value
If sPartnername_inhaberTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
End If
m_sPartnername_inhaber = Value
End Set
End Property
Public Property [sPartnername_zusteller]() As SqlString
Get
Return m_sPartnername_zusteller
End Get
Set(ByVal Value As SqlString)
m_sPartnername_zusteller = Value
End Set
End Property
Public Property [sReferenzzeile1]() As SqlString
Get
Return m_sReferenzzeile1
End Get
Set(ByVal Value As SqlString)
m_sReferenzzeile1 = Value
End Set
End Property
Public Property [sReferenzzeile2]() As SqlString
Get
Return m_sReferenzzeile2
End Get
Set(ByVal Value As SqlString)
m_sReferenzzeile2 = Value
End Set
End Property
Public Property [sValutadatum]() As SqlString
Get
Return m_sValutadatum
End Get
Set(ByVal Value As SqlString)
Dim sValutadatumTmp As SqlString = Value
If sValutadatumTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
End If
m_sValutadatum = Value
End Set
End Property
Public Property [sValutadatum1]() As SqlString
Get
Return m_sValutadatum1
End Get
Set(ByVal Value As SqlString)
m_sValutadatum1 = Value
End Set
End Property
Public Property [sValorennr]() As SqlString
Get
Return m_sValorennr
End Get
Set(ByVal Value As SqlString)
m_sValorennr = Value
End Set
End Property
Public Property [sIsinnr]() As SqlString
Get
Return m_sIsinnr
End Get
Set(ByVal Value As SqlString)
m_sIsinnr = Value
End Set
End Property
Public Property [sDokumentid]() As SqlString
Get
Return m_sDokumentid
End Get
Set(ByVal Value As SqlString)
Dim sDokumentidTmp As SqlString = Value
If sDokumentidTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
End If
m_sDokumentid = Value
End Set
End Property
Public Property [sAnzahlseiten]() As SqlString
Get
Return m_sAnzahlseiten
End Get
Set(ByVal Value As SqlString)
Dim sAnzahlseitenTmp As SqlString = Value
If sAnzahlseitenTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
End If
m_sAnzahlseiten = Value
End Set
End Property
Public Property [sNachvollziehbarkeit]() As SqlString
Get
Return m_sNachvollziehbarkeit
End Get
Set(ByVal Value As SqlString)
Dim sNachvollziehbarkeitTmp As SqlString = Value
If sNachvollziehbarkeitTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
End If
m_sNachvollziehbarkeit = Value
End Set
End Property
Public Property [sArchivdatum]() As SqlString
Get
Return m_sArchivdatum
End Get
Set(ByVal Value As SqlString)
Dim sArchivdatumTmp As SqlString = Value
If sArchivdatumTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
End If
m_sArchivdatum = Value
End Set
End Property
Public Property [sVvextern1]() As SqlString
Get
Return m_sVvextern1
End Get
Set(ByVal Value As SqlString)
m_sVvextern1 = Value
End Set
End Property
Public Property [sVvextern2]() As SqlString
Get
Return m_sVvextern2
End Get
Set(ByVal Value As SqlString)
m_sVvextern2 = Value
End Set
End Property
Public Property [sEx]() As SqlString
Get
Return m_sEx
End Get
Set(ByVal Value As SqlString)
m_sEx = Value
End Set
End Property
Public Property [sStandamdatum]() As SqlString
Get
Return m_sStandamdatum
End Get
Set(ByVal Value As SqlString)
m_sStandamdatum = Value
End Set
End Property
Public Property [sDokumenttypnr]() As SqlString
Get
Return m_sDokumenttypnr
End Get
Set(ByVal Value As SqlString)
m_sDokumenttypnr = Value
End Set
End Property
Public Property [sLoadid]() As SqlString
Get
Return m_sLoadid
End Get
Set(ByVal Value As SqlString)
m_sLoadid = Value
End Set
End Property
Public Property [daInserttimestamp]() As SqlDateTime
Get
Return m_daInserttimestamp
End Get
Set(ByVal Value As SqlDateTime)
m_daInserttimestamp = Value
End Set
End Property
Public Property [iInrpar00_inhaber]() As SqlInt32
Get
Return m_iInrpar00_inhaber
End Get
Set(ByVal Value As SqlInt32)
m_iInrpar00_inhaber = Value
End Set
End Property
Public Property [iInrpar00_zusteller]() As SqlInt32
Get
Return m_iInrpar00_zusteller
End Get
Set(ByVal Value As SqlInt32)
m_iInrpar00_zusteller = Value
End Set
End Property
Public Property [sMailingProductBezeichnung]() As SqlString
Get
Return m_sMailingProductBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sMailingProductBezeichnung = Value
End Set
End Property
Public Property [sMetatype]() As SqlString
Get
Return m_sMetatype
End Get
Set(ByVal Value As SqlString)
m_sMetatype = Value
End Set
End Property
Public Property [sOrdertype]() As SqlString
Get
Return m_sOrdertype
End Get
Set(ByVal Value As SqlString)
m_sOrdertype = Value
End Set
End Property
Public Property [sXomaDocID]() As SqlString
Get
Return m_sXomaDocID
End Get
Set(ByVal Value As SqlString)
m_sXomaDocID = Value
End Set
End Property
Public Property [sTransactnr]() As SqlString
Get
Return m_sTransactnr
End Get
Set(ByVal Value As SqlString)
m_sTransactnr = Value
End Set
End Property
Public Property [sManr]() As SqlString
Get
Return m_sManr
End Get
Set(ByVal Value As SqlString)
m_sManr = Value
End Set
End Property
Public Property [sMailingProduct]() As SqlString
Get
Return m_sMailingProduct
End Get
Set(ByVal Value As SqlString)
m_sMailingProduct = Value
End Set
End Property
Public Property [sBetreffzeile]() As SqlString
Get
Return m_sBetreffzeile
End Get
Set(ByVal Value As SqlString)
m_sBetreffzeile = Value
End Set
End Property
Public Property [lPk]() As SqlInt64
Get
Return m_lPk
End Get
Set(ByVal Value As SqlInt64)
Dim lPkTmp As SqlInt64 = Value
If lPkTmp.IsNull Then
Throw New ArgumentOutOfRangeException("lPk", "lPk can't be NULL")
End If
m_lPk = Value
End Set
End Property
#End Region
End Class
End Namespace

8
ColdAbgleich/Loader/Backup/Loader/parameters.xml Normal file
View File

@@ -0,0 +1,8 @@
<?xml version="1.0" standalone="yes"?>
<Configuration>
<SQLConnEDOKA>data source=shu00;initial catalog=edoka;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnEDOKA>
<SQLConnHOST>data source=shu00;initial catalog=EDOKA_HOST;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnHOST>
<SQLConnZV>data source=shu00;initial catalog=EDOKA_ZV;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnZV>
<SQLConnColdabgleich>data source=shu00;initial catalog=Coldabgleich;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnColdabgleich>
<TMPPath>h:\tssettings</TMPPath>
</Configuration>