Initial commit
This commit is contained in:
7
ColdAbgleich/Loader/.vsdoc
Normal file
7
ColdAbgleich/Loader/.vsdoc
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
20
ColdAbgleich/Loader/Backup/Loader.sln
Normal file
20
ColdAbgleich/Loader/Backup/Loader.sln
Normal 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
BIN
ColdAbgleich/Loader/Backup/Loader.suo
Normal file
Binary file not shown.
83
ColdAbgleich/Loader/Backup/Loader/CSVHelper.vb
Normal file
83
ColdAbgleich/Loader/Backup/Loader/CSVHelper.vb
Normal 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
105
ColdAbgleich/Loader/Backup/Loader/Loader.vbproj
Normal 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
8
ColdAbgleich/Loader/Backup/Loader/Loader.vbproj.user
Normal 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
BIN
ColdAbgleich/Loader/Backup/Loader/ModMain.vb
Normal file
Binary file not shown.
13
ColdAbgleich/Loader/Backup/Loader/My Project/Application.Designer.vb
generated
Normal file
13
ColdAbgleich/Loader/Backup/Loader/My Project/Application.Designer.vb
generated
Normal 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
|
||||
|
||||
@@ -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
35
ColdAbgleich/Loader/Backup/Loader/My Project/AssemblyInfo.vb
Normal 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
62
ColdAbgleich/Loader/Backup/Loader/My Project/Resources.Designer.vb
generated
Normal 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
117
ColdAbgleich/Loader/Backup/Loader/My Project/Resources.resx
Normal 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
73
ColdAbgleich/Loader/Backup/Loader/My Project/Settings.Designer.vb
generated
Normal 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
|
||||
@@ -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
80
ColdAbgleich/Loader/Backup/Loader/Parameter.vb
Normal 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
76
ColdAbgleich/Loader/Backup/Loader/clsArgs.vb
Normal 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
289
ColdAbgleich/Loader/Backup/Loader/clsConnectionProvider.vb
Normal 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
208
ColdAbgleich/Loader/Backup/Loader/clsDBInteractionBase.vb
Normal 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
793
ColdAbgleich/Loader/Backup/Loader/clsTmphost.vb
Normal 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
8
ColdAbgleich/Loader/Backup/Loader/parameters.xml
Normal 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>
|
||||
20
ColdAbgleich/Loader/Backup1/Loader.sln
Normal file
20
ColdAbgleich/Loader/Backup1/Loader.sln
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 10.00
|
||||
# Visual Studio 2008
|
||||
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/Backup1/Loader.suo
Normal file
BIN
ColdAbgleich/Loader/Backup1/Loader.suo
Normal file
Binary file not shown.
83
ColdAbgleich/Loader/Backup1/Loader/CSVHelper.vb
Normal file
83
ColdAbgleich/Loader/Backup1/Loader/CSVHelper.vb
Normal 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
|
||||
110
ColdAbgleich/Loader/Backup1/Loader/Loader.vbproj
Normal file
110
ColdAbgleich/Loader/Backup1/Loader/Loader.vbproj
Normal file
@@ -0,0 +1,110 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="3.5">
|
||||
<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>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>2.0</OldToolsVersion>
|
||||
</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/Backup1/Loader/Loader.vbproj.user
Normal file
8
ColdAbgleich/Loader/Backup1/Loader/Loader.vbproj.user
Normal file
@@ -0,0 +1,8 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>ZV y:\coldabgleich\bja16.del</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>DOK D:\EDOKA\Coldindex\EDOKA_Prod\docold3.txt</StartArguments>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
BIN
ColdAbgleich/Loader/Backup1/Loader/ModMain.vb
Normal file
BIN
ColdAbgleich/Loader/Backup1/Loader/ModMain.vb
Normal file
Binary file not shown.
13
ColdAbgleich/Loader/Backup1/Loader/My Project/Application.Designer.vb
generated
Normal file
13
ColdAbgleich/Loader/Backup1/Loader/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5466
|
||||
'
|
||||
' Ä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
|
||||
|
||||
@@ -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>
|
||||
@@ -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")>
|
||||
63
ColdAbgleich/Loader/Backup1/Loader/My Project/Resources.Designer.vb
generated
Normal file
63
ColdAbgleich/Loader/Backup1/Loader/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5466
|
||||
'
|
||||
' Ä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", "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>
|
||||
''' 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("Loader.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
|
||||
117
ColdAbgleich/Loader/Backup1/Loader/My Project/Resources.resx
Normal file
117
ColdAbgleich/Loader/Backup1/Loader/My Project/Resources.resx
Normal 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/Backup1/Loader/My Project/Settings.Designer.vb
generated
Normal file
73
ColdAbgleich/Loader/Backup1/Loader/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5466
|
||||
'
|
||||
' Ä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", "9.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 "Funktion zum automatischen Speichern von My.Settings"
|
||||
#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
|
||||
@@ -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/Backup1/Loader/Parameter.vb
Normal file
80
ColdAbgleich/Loader/Backup1/Loader/Parameter.vb
Normal 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/Backup1/Loader/clsArgs.vb
Normal file
76
ColdAbgleich/Loader/Backup1/Loader/clsArgs.vb
Normal 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/Backup1/Loader/clsConnectionProvider.vb
Normal file
289
ColdAbgleich/Loader/Backup1/Loader/clsConnectionProvider.vb
Normal 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/Backup1/Loader/clsDBInteractionBase.vb
Normal file
208
ColdAbgleich/Loader/Backup1/Loader/clsDBInteractionBase.vb
Normal 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/Backup1/Loader/clsTmphost.vb
Normal file
793
ColdAbgleich/Loader/Backup1/Loader/clsTmphost.vb
Normal 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/Backup1/Loader/parameters.xml
Normal file
8
ColdAbgleich/Loader/Backup1/Loader/parameters.xml
Normal 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=*shu29</SQLConnEDOKA>
|
||||
<SQLConnHOST>data source=shu00;initial catalog=EDOKA_HOST;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnHOST>
|
||||
<SQLConnZV>data source=shu00;initial catalog=EDOKA_ZV;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnZV>
|
||||
<SQLConnColdabgleich>data source=shu00;initial catalog=Coldabgleich;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnColdabgleich>
|
||||
<TMPPath>h:\tssettings</TMPPath>
|
||||
</Configuration>
|
||||
1
ColdAbgleich/Loader/Loader.jmconfig
Normal file
1
ColdAbgleich/Loader/Loader.jmconfig
Normal file
@@ -0,0 +1 @@
|
||||
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>
|
||||
20
ColdAbgleich/Loader/Loader.sln
Normal file
20
ColdAbgleich/Loader/Loader.sln
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Studio 2010
|
||||
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
|
||||
7
ColdAbgleich/Loader/Loader.sln.vsdoc
Normal file
7
ColdAbgleich/Loader/Loader.sln.vsdoc
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
BIN
ColdAbgleich/Loader/Loader.suo
Normal file
BIN
ColdAbgleich/Loader/Loader.suo
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader.v11.suo
Normal file
BIN
ColdAbgleich/Loader/Loader.v11.suo
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader.v12.suo
Normal file
BIN
ColdAbgleich/Loader/Loader.v12.suo
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader.zip
Normal file
BIN
ColdAbgleich/Loader/Loader.zip
Normal file
Binary file not shown.
83
ColdAbgleich/Loader/Loader/CSVHelper.vb
Normal file
83
ColdAbgleich/Loader/Loader/CSVHelper.vb
Normal 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
|
||||
111
ColdAbgleich/Loader/Loader/Loader.vbproj
Normal file
111
ColdAbgleich/Loader/Loader/Loader.vbproj
Normal file
@@ -0,0 +1,111 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<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>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
</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,42353,42354,42355</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,42353,42354,42355</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>
|
||||
9
ColdAbgleich/Loader/Loader/Loader.vbproj.user
Normal file
9
ColdAbgleich/Loader/Loader/Loader.vbproj.user
Normal file
@@ -0,0 +1,9 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>HOST2 D:\EDK_Files\wja\wja21.del</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>DOK D:\EDOKA\Coldindex\EDOKA_Prod\docold3.txt</StartArguments>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
105
ColdAbgleich/Loader/Loader/Loader.vsdoc
Normal file
105
ColdAbgleich/Loader/Loader/Loader.vsdoc
Normal file
@@ -0,0 +1,105 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
<add key="VBdocman_addSee" value="0" />
|
||||
<add key="VBdocman_addParam" value="-1" />
|
||||
<add key="VBdocman_addReturn" value="-1" />
|
||||
<add key="VBdocman_addDescription" value="-1" />
|
||||
<add key="VBdocman_addRem" value="-1" />
|
||||
<add key="VBdocman_addSame" value="0" />
|
||||
<add key="VBdocman_addExample" value="0" />
|
||||
<add key="VBdocman_addException" value="0" />
|
||||
<add key="VBdocman_addAuthor" value="0" />
|
||||
<add key="VBdocman_addRevision" value="0" />
|
||||
<add key="VBdocman_addVersion" value="0" />
|
||||
<add key="VBdocman_addIncludeSource" value="0" />
|
||||
<add key="VBdocman_addUser1" value="0" />
|
||||
<add key="VBdocman_addUser2" value="0" />
|
||||
<add key="VBdocman_addUser3" value="0" />
|
||||
<add key="VBdocman_addUser4" value="0" />
|
||||
<add key="VBdocman_addUser5" value="0" />
|
||||
<add key="VBdocman_user1Name" value="user1" />
|
||||
<add key="VBdocman_user2Name" value="user2" />
|
||||
<add key="VBdocman_user3Name" value="user3" />
|
||||
<add key="VBdocman_user4Name" value="user4" />
|
||||
<add key="VBdocman_user5Name" value="user5" />
|
||||
<add key="VBdocman_user1Default" value="" />
|
||||
<add key="VBdocman_user2Default" value="" />
|
||||
<add key="VBdocman_user3Default" value="" />
|
||||
<add key="VBdocman_user4Default" value="" />
|
||||
<add key="VBdocman_user5Default" value="" />
|
||||
<add key="VBdocman_user1Label" value="User Field 1" />
|
||||
<add key="VBdocman_user2Label" value="User Field 2" />
|
||||
<add key="VBdocman_user3Label" value="User Field 3" />
|
||||
<add key="VBdocman_user4Label" value="User Field 4" />
|
||||
<add key="VBdocman_user5Label" value="User Field 5" />
|
||||
<add key="VBdocman_comNonCommented" value="-1" />
|
||||
<add key="VBdocman_comPublic" value="-1" />
|
||||
<add key="VBdocman_comPrivate" value="0" />
|
||||
<add key="VBdocman_comFriend" value="0" />
|
||||
<add key="VBdocman_comProtected" value="-1" />
|
||||
<add key="VBdocman_comProtectedFriend" value="-1" />
|
||||
<add key="VBdocman_comMethod" value="-1" />
|
||||
<add key="VBdocman_comStdModule" value="0" />
|
||||
<add key="VBdocman_comObject" value="-1" />
|
||||
<add key="VBdocman_comForm" value="-1" />
|
||||
<add key="VBdocman_comProperty" value="-1" />
|
||||
<add key="VBdocman_comEvent" value="-1" />
|
||||
<add key="VBdocman_comVariable" value="0" />
|
||||
<add key="VBdocman_comConstant" value="0" />
|
||||
<add key="VBdocman_comEnumeration" value="0" />
|
||||
<add key="VBdocman_comStructure" value="0" />
|
||||
<add key="VBdocman_comDelegate" value="0" />
|
||||
<add key="VBdocman_comInterface" value="0" />
|
||||
<add key="VBdocman_comAttribute" value="0" />
|
||||
<add key="VBdocman_comEventDecl" value="0" />
|
||||
<add key="VBdocman_comDeclare" value="0" />
|
||||
<add key="VBdocman_comContextID" value="0" />
|
||||
<add key="VBdocman_comWriteDescription" value="-1" />
|
||||
<add key="VBdocman_useConditionalCompilation" value="0" />
|
||||
<add key="VBdocman_conditionalConstants" value="" />
|
||||
<add key="VBdocman_showFormsSeparate" value="0" />
|
||||
<add key="VBdocman_indentMode" value="0" />
|
||||
<add key="VBdocman_addingMode" value="0" />
|
||||
<add key="VBdocman_insertSourceGlobal" value="0" />
|
||||
<add key="VBdocman_unbreakSourceLines" value="0" />
|
||||
<add key="VBdocman_removeAttributes" value="0" />
|
||||
<add key="VBdocman_generateVbSyntax" value="-1" />
|
||||
<add key="VBdocman_generateCsharpSyntax" value="-1" />
|
||||
<add key="VBdocman_generateCppSyntax" value="-1" />
|
||||
<add key="VBdocman_generateJscriptSyntax" value="-1" />
|
||||
<add key="VBdocman_supportedPlatforms" value="Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition" />
|
||||
<add key="VBdocman_supportedNetFramework" value="3.0, 2.0, 1.1, 1.0" />
|
||||
<add key="VBdocman_supportedNetCompactFramework" value="2.0, 1.0" />
|
||||
<add key="VBdocman_supportedXnaFramework" value="1.0" />
|
||||
<add key="VBdocman_commentStyleRecognize" value="3" />
|
||||
<add key="VBdocman_xmlCommentLinePrefix" value="'''" />
|
||||
<add key="VBdocman_xmlCommentLinePrefixCsharp" value="///" />
|
||||
<add key="VBdocman_hxcompPath" value="" />
|
||||
<add key="VBdocman_customVar1" value="" />
|
||||
<add key="VBdocman_customVar2" value="" />
|
||||
<add key="VBdocman_customVar3" value="" />
|
||||
<add key="VBdocman_autoUpdateParams" value="0" />
|
||||
<add key="VBdocman_wordWrapLength" value="80" />
|
||||
<add key="VBdocman_autoInsertEOL" value="0" />
|
||||
<add key="VBdocman_useModalEditor" value="-1" />
|
||||
<add key="VBdocman_nonModalEditorDockable" value="-1" />
|
||||
<add key="VBdocman_nonModalEditorAsToolwindow" value="-1" />
|
||||
<add key="VBdocman_nonModalEditorAutoUpdate" value="0" />
|
||||
<add key="VBdocman_nonModalEditorAutoApply" value="-1" />
|
||||
<add key="VBdocman_titlePageText" value="" />
|
||||
<add key="VBdocman_rootNamespaceText" value="" />
|
||||
<add key="VBdocman_rootNamespaceCommentStyle" value="2" />
|
||||
<add key="VBdocman_pageFooterText" value="Generated by VSdocman" />
|
||||
<add key="VBdocman_outputPath" value="E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\VSdoc" />
|
||||
<add key="VBdocman_templateFolder" value="C:\Program Files\VSdocman\Templates" />
|
||||
<add key="VBdocman_externalFilesFolder" value="" />
|
||||
<add key="VBdocman_fileNamingConvention" value="1" />
|
||||
<add key="VBdocman_templateLocale" value="en-US" />
|
||||
<add key="VBdocman_templatePath" value="chm.vbdt" />
|
||||
<add key="VBdocman_enumSorting" value="1" />
|
||||
<add key="VBdocman_comModules_CSVHelper.vb" value="On" />
|
||||
</appSettings>
|
||||
</configuration>
|
||||
BIN
ColdAbgleich/Loader/Loader/ModMain.vb
Normal file
BIN
ColdAbgleich/Loader/Loader/ModMain.vb
Normal file
Binary file not shown.
13
ColdAbgleich/Loader/Loader/My Project/Application.Designer.vb
generated
Normal file
13
ColdAbgleich/Loader/Loader/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.296
|
||||
'
|
||||
' Ä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
|
||||
|
||||
10
ColdAbgleich/Loader/Loader/My Project/Application.myapp
Normal file
10
ColdAbgleich/Loader/Loader/My Project/Application.myapp
Normal 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/Loader/My Project/AssemblyInfo.vb
Normal file
35
ColdAbgleich/Loader/Loader/My Project/AssemblyInfo.vb
Normal 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")>
|
||||
63
ColdAbgleich/Loader/Loader/My Project/Resources.Designer.vb
generated
Normal file
63
ColdAbgleich/Loader/Loader/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.296
|
||||
'
|
||||
' Ä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", "4.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("Loader.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
|
||||
117
ColdAbgleich/Loader/Loader/My Project/Resources.resx
Normal file
117
ColdAbgleich/Loader/Loader/My Project/Resources.resx
Normal 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/Loader/My Project/Settings.Designer.vb
generated
Normal file
73
ColdAbgleich/Loader/Loader/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.296
|
||||
'
|
||||
' Ä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", "10.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 "Funktion zum automatischen Speichern von My.Settings"
|
||||
#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/Loader/My Project/Settings.settings
Normal file
7
ColdAbgleich/Loader/Loader/My Project/Settings.settings
Normal 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/Loader/Parameter.vb
Normal file
80
ColdAbgleich/Loader/Loader/Parameter.vb
Normal 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
|
||||
12311
ColdAbgleich/Loader/Loader/bin/Debug/HOST2_insert_all.sql
Normal file
12311
ColdAbgleich/Loader/Loader/bin/Debug/HOST2_insert_all.sql
Normal file
File diff suppressed because it is too large
Load Diff
12311
ColdAbgleich/Loader/Loader/bin/Debug/HOST2_update_all.sql
Normal file
12311
ColdAbgleich/Loader/Loader/bin/Debug/HOST2_update_all.sql
Normal file
File diff suppressed because it is too large
Load Diff
6
ColdAbgleich/Loader/Loader/bin/Debug/Loaddata.bat
Normal file
6
ColdAbgleich/Loader/Loader/bin/Debug/Loaddata.bat
Normal file
@@ -0,0 +1,6 @@
|
||||
Loader ZV y:\coldabgleich\bja16.del
|
||||
loader HOST y:\coldabgleich\dha28.del
|
||||
loader EDOKA y:\coldabgleich\qja1.del
|
||||
loader BL y:\coldabgleich\tja1.del
|
||||
loader HOST1 y:\coldabgleich\wja1.del
|
||||
loader ZV y:\coldabgleich\xia1.del
|
||||
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.exe
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.pdb
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.pdb
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.vshost.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Debug/Loader.vshost.exe
Normal file
Binary file not shown.
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
137
ColdAbgleich/Loader/Loader/bin/Debug/Loader.xml
Normal file
137
ColdAbgleich/Loader/Loader/bin/Debug/Loader.xml
Normal file
@@ -0,0 +1,137 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Loader
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Loader.coldabgleich.host.clsTmphost.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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>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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.SelectOneWpkLogic">
|
||||
<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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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="T:Loader.coldabgleich.host.clsTmphost">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'tmphost'.
|
||||
</summary>
|
||||
</member><member name="P:Loader.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:Loader.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:Loader.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
93
ColdAbgleich/Loader/Loader/bin/Debug/Loadit.bat
Normal file
93
ColdAbgleich/Loader/Loader/bin/Debug/Loadit.bat
Normal file
@@ -0,0 +1,93 @@
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA1.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA2.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA3.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA4.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA5.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA6.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA7.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA8.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA9.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA10.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA11.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA12.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA13.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA14.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA15.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA16.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA17.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA18.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA19.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA20.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\BJA21.DEL
|
||||
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA1.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA2.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA3.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA4.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA5.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA6.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA7.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA8.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA9.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA10.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA11.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA12.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA13.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA14.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA15.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA16.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA17.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA18.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe ZV D:\EDOKA\Testdaten\XIA19.DEL
|
||||
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA1.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA2.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA3.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA4.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA5.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA6.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA7.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA8.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA9.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA10.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA11.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA12.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA13.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA14.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA15.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA16.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA17.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA18.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA19.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA20.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA21.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA22.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA23.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA24.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA25.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA26.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA27.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST D:\EDOKA\Testdaten\DHA28.DEL
|
||||
|
||||
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA1.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA2.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA3.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA4.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA5.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA6.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA7.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA8.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA9.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA10.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA11.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA12.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA13.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA14.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA15.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA16.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA17.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA18.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA19.DEL
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\loader.exe HOST1 D:\EDOKA\Testdaten\WJA20.DEL
|
||||
pause
|
||||
BIN
ColdAbgleich/Loader/Loader/bin/Debug/csvadapter.dll
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Debug/csvadapter.dll
Normal file
Binary file not shown.
30
ColdAbgleich/Loader/Loader/bin/Debug/load_dha.bat
Normal file
30
ColdAbgleich/Loader/Loader/bin/Debug/load_dha.bat
Normal file
@@ -0,0 +1,30 @@
|
||||
Loader.exe HOST d:\coldabgleich\dha28.del
|
||||
pause
|
||||
Loader.exe HOST f:\dha2.del
|
||||
Loader.exe HOST f:\dha3.del
|
||||
Loader.exe HOST f:\dha4.del
|
||||
Loader.exe HOST f:\dha5.del
|
||||
Loader.exe HOST f:\dha6.del
|
||||
Loader.exe HOST f:\dha7.del
|
||||
Loader.exe HOST f:\dha8.del
|
||||
Loader.exe HOST f:\dha9.del
|
||||
Loader.exe HOST f:\dha10.del
|
||||
Loader.exe HOST f:\dha11.del
|
||||
Loader.exe HOST f:\dha12.del
|
||||
Loader.exe HOST f:\dha13.del
|
||||
Loader.exe HOST f:\dha14.del
|
||||
Loader.exe HOST f:\dha15.del
|
||||
Loader.exe HOST f:\dha16.del
|
||||
Loader.exe HOST f:\dha17.del
|
||||
Loader.exe HOST f:\dha18.del
|
||||
Loader.exe HOST f:\dha19.del
|
||||
Loader.exe HOST f:\dha20.del
|
||||
Loader.exe HOST f:\dha21.del
|
||||
Loader.exe HOST f:\dha22.del
|
||||
Loader.exe HOST f:\dha23.del
|
||||
Loader.exe HOST f:\dha24.del
|
||||
Loader.exe HOST f:\dha25.del
|
||||
Loader.exe HOST f:\dha26.del
|
||||
Loader.exe HOST f:\dha27.del
|
||||
Loader.exe HOST f:\dha28.del
|
||||
|
||||
5
ColdAbgleich/Loader/Loader/bin/Debug/load_wja.bat
Normal file
5
ColdAbgleich/Loader/Loader/bin/Debug/load_wja.bat
Normal file
@@ -0,0 +1,5 @@
|
||||
Loader.exe BL1 d:\coldabgleich\tja1.del
|
||||
pause
|
||||
rem Loader.exe HOST1 f:\wja1.del
|
||||
Loader.exe HOST1 f:\wja2.del
|
||||
Loader.exe HOST1 f:\wja3.del
|
||||
BIN
ColdAbgleich/Loader/Loader/bin/Debug/loader.zip
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Debug/loader.zip
Normal file
Binary file not shown.
8
ColdAbgleich/Loader/Loader/bin/Debug/parameters.xml
Normal file
8
ColdAbgleich/Loader/Loader/bin/Debug/parameters.xml
Normal 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=*shu29</SQLConnEDOKA>
|
||||
<SQLConnHOST>data source=shu00;initial catalog=EDOKA_HOST;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnHOST>
|
||||
<SQLConnZV>data source=shu00;initial catalog=EDOKA_ZV;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnZV>
|
||||
<SQLConnColdabgleich>data source=shu00;initial catalog=Coldabgleich;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnColdabgleich>
|
||||
<TMPPath>D:\EDOKA\Testdaten\Scriptlib</TMPPath>
|
||||
</Configuration>
|
||||
9
ColdAbgleich/Loader/Loader/bin/Debug/parameters.xml.sik
Normal file
9
ColdAbgleich/Loader/Loader/bin/Debug/parameters.xml.sik
Normal file
@@ -0,0 +1,9 @@
|
||||
<?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=*shu29</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=*shu29</SQLConnColdabgleich>
|
||||
<SQLConnTmpHost>data source=shu00;initial catalog=Coldabgleich;persist security info=False;workstation id=;packet size=4096;user id=sa;password=*shu29</SQLConnTmpHost>
|
||||
<TMPPath>D:\Temp\tssettings</TMPPath>
|
||||
</Configuration>
|
||||
2
ColdAbgleich/Loader/Loader/bin/Release/Loader.cmd
Normal file
2
ColdAbgleich/Loader/Loader/bin/Release/Loader.cmd
Normal file
@@ -0,0 +1,2 @@
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Release\loader.exe ZV 5 h:\tssettings\BJA4.del
|
||||
pause
|
||||
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.exe
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.pdb
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.pdb
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.vshost.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Release/Loader.vshost.exe
Normal file
Binary file not shown.
124
ColdAbgleich/Loader/Loader/bin/Release/Loader.xml
Normal file
124
ColdAbgleich/Loader/Loader/bin/Release/Loader.xml
Normal file
@@ -0,0 +1,124 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Loader
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Loader.coldabgleich.host.clsTmphost.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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>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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.SelectOneWpkLogic">
|
||||
<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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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="T:Loader.coldabgleich.host.clsTmphost">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'tmphost'.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
ColdAbgleich/Loader/Loader/bin/Release/csvadapter.dll
Normal file
BIN
ColdAbgleich/Loader/Loader/bin/Release/csvadapter.dll
Normal file
Binary file not shown.
8
ColdAbgleich/Loader/Loader/bin/Release/parameters.xml
Normal file
8
ColdAbgleich/Loader/Loader/bin/Release/parameters.xml
Normal file
@@ -0,0 +1,8 @@
|
||||
<?xml version="1.0" standalone="yes"?>
|
||||
<Configuration>
|
||||
<SQLConnEDOKA>data source=shu00;initial catalog=ColdAbgleich;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>
|
||||
76
ColdAbgleich/Loader/Loader/clsArgs.vb
Normal file
76
ColdAbgleich/Loader/Loader/clsArgs.vb
Normal 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" And UCase(Me.Typ) <> "HOST2" And UCase(Me.Typ) <> "HOSTMINI" And UCase(Me.Typ) <> "HOST1MINI" 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/Loader/clsConnectionProvider.vb
Normal file
289
ColdAbgleich/Loader/Loader/clsConnectionProvider.vb
Normal 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/Loader/clsDBInteractionBase.vb
Normal file
208
ColdAbgleich/Loader/Loader/clsDBInteractionBase.vb
Normal 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/Loader/clsTmphost.vb
Normal file
793
ColdAbgleich/Loader/Loader/clsTmphost.vb
Normal 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
|
||||
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.Resources.resources
Normal file
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.Resources.resources
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.exe
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.pdb
Normal file
BIN
ColdAbgleich/Loader/Loader/obj/Debug/Loader.pdb
Normal file
Binary file not shown.
@@ -0,0 +1,10 @@
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\Loader.pdb
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\bin\Debug\csvadapter.dll
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\tools\ColdAbgleich\Loader\Loader\obj\Debug\Loader.vbprojResolveAssemblyReference.cache
|
||||
Binary file not shown.
Binary file not shown.
137
ColdAbgleich/Loader/Loader/obj/Debug/Loader.xml
Normal file
137
ColdAbgleich/Loader/Loader/obj/Debug/Loader.xml
Normal file
@@ -0,0 +1,137 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Loader
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Loader.coldabgleich.host.clsTmphost.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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>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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.SelectOneWpkLogic">
|
||||
<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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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="T:Loader.coldabgleich.host.clsTmphost">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'tmphost'.
|
||||
</summary>
|
||||
</member><member name="P:Loader.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member><member name="P:Loader.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:Loader.My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
@@ -0,0 +1,53 @@
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\Loader.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\Loader.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Debug\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Debug\Loader.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Debug\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Debug\Loader.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Debug\csvadapter.dll
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Release\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Release\Loader.pdb
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Release\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\bin\Release\csvadapter.dll
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\Loader.Resources.resources
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\Loader.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\Loader.exe
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\Loader.xml
|
||||
E:\Software-Projekte\EDOKA\Tools\Loader\Loader\Loader\obj\Release\Loader.pdb
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\Loader.exe
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\Loader.xml
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\Loader.pdb
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Release\Loader.exe
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Release\Loader.pdb
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Release\Loader.xml
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\ResolveAssemblyReference.cache
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\Loader.Resources.resources
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\Loader.vbproj.GenerateResource.Cache
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\Loader.exe
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\Loader.xml
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Release\Loader.pdb
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Debug\Loader.exe
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Debug\Loader.pdb
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\bin\Debug\Loader.xml
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\ResolveAssemblyReference.cache
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\Loader.Resources.resources
|
||||
C:\Program Files\EDOKA\EDOKA_Entwicklung\ColdAbgleich\Loader\Loader\obj\Debug\Loader.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\Loader.exe
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\Loader.xml
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\Loader.pdb
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\bin\debug\Loader.exe
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\bin\debug\Loader.pdb
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\bin\debug\Loader.xml
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\Loader.Resources.resources
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\Loader.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\Loader.exe
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\Loader.xml
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Release\Loader.pdb
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\Loader.Resources.resources
|
||||
E:\Software-Projekte\ColdAbgleich\Loader\Loader\obj\Debug\Loader.vbproj.GenerateResource.Cache
|
||||
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/obj/Release/Loader.exe
Normal file
BIN
ColdAbgleich/Loader/Loader/obj/Release/Loader.exe
Normal file
Binary file not shown.
BIN
ColdAbgleich/Loader/Loader/obj/Release/Loader.pdb
Normal file
BIN
ColdAbgleich/Loader/Loader/obj/Release/Loader.pdb
Normal file
Binary file not shown.
Binary file not shown.
124
ColdAbgleich/Loader/Loader/obj/Release/Loader.xml
Normal file
124
ColdAbgleich/Loader/Loader/obj/Release/Loader.xml
Normal file
@@ -0,0 +1,124 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Loader
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Loader.coldabgleich.host.clsTmphost.#ctor">
|
||||
<summary>
|
||||
Purpose: Class constructor.
|
||||
</summary>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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>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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.SelectOneWpkLogic">
|
||||
<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>
|
||||
</member><member name="M:Loader.coldabgleich.host.clsTmphost.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="T:Loader.coldabgleich.host.clsTmphost">
|
||||
<summary>
|
||||
Purpose: Data Access class for the table 'tmphost'.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user