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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2021-04-20 07:59:36 +02:00
commit fb0247c874
21969 changed files with 11640044 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
EDKB01DB2/.vs/EDKB01DB2/v14/.suo Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/.vs/EDKB01DB2/v15/.suo Normal file
View File

Binary file not shown.

0
EDKB01DB2/.vs/EDKB01DB2/v15/Server/sqlite3/db.lock Normal file
View File

BIN
EDKB01DB2/.vs/EDKB01DB2/v15/Server/sqlite3/storage.ide Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/.vs/EDKB01DB2/v16/.suo Normal file
View File

Binary file not shown.

1
EDKB01DB2/Archiv/EDKB01DB2.jmconfig Normal file
View 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>

22
EDKB01DB2/Archiv/EDKB01DB2.sln Normal file
View File

@@ -0,0 +1,22 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.31101.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB01DB2", "EDKB01DB2\EDKB01DB2.vbproj", "{545B70E4-C2CE-4661-888C-21AB2D8C47A8}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{545B70E4-C2CE-4661-888C-21AB2D8C47A8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{545B70E4-C2CE-4661-888C-21AB2D8C47A8}.Debug|Any CPU.Build.0 = Debug|Any CPU
{545B70E4-C2CE-4661-888C-21AB2D8C47A8}.Release|Any CPU.ActiveCfg = Release|Any CPU
{545B70E4-C2CE-4661-888C-21AB2D8C47A8}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
EDKB01DB2/Archiv/EDKB01DB2.v12.suo Normal file
View File

Binary file not shown.

149
EDKB01DB2/Archiv/EDKB01DB2/EDKB01DB2.vbproj Normal file
View File

@@ -0,0 +1,149 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{545B70E4-C2CE-4661-888C-21AB2D8C47A8}</ProjectGuid>
<OutputType>Exe</OutputType>
<StartupObject>EDKB01DB2.Module1</StartupObject>
<RootNamespace>EDKB01DB2</RootNamespace>
<AssemblyName>EDKB01DB2</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EDKB01DB2.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EDKB01DB2.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="BMS">
<HintPath>..\..\EDKB01\bin\BMS.dll</HintPath>
</Reference>
<Reference Include="Common">
<HintPath>..\..\EDKB01\bin\Common.dll</HintPath>
</Reference>
<Reference Include="DataAccess">
<HintPath>..\..\EDKB01\bin\DataAccess.dll</HintPath>
</Reference>
<Reference Include="IBM.Data.DB2">
<HintPath>..\..\..\..\_Demos\DB2\DB2Test\DB2Test\DB2Test\bin\Debug\IBM.Data.DB2.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</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" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="clsLog.vb" />
<Compile Include="Module1.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="Settings.vb" />
<Compile Include="SQLDB\clsApplikation.vb" />
<Compile Include="SQLDB\clsConnectionProvider.vb" />
<Compile Include="SQLDB\clsDBInteractionBase.vb" />
<Compile Include="SQLDB\clsEDEX_BL_Hostdokument.vb" />
<Compile Include="SQLDB\clsHost_dokument.vb" />
<Compile Include="SQLDB\clsHost_dokument_data.vb" />
<Compile Include="SQLDB\clsHost_dokument_import.vb" />
<Compile Include="SQLDB\clsJournal.vb" />
<Compile Include="SQLDB\clsJournaldatei.vb" />
<Compile Include="SQLDB\clsJournaleintrag.vb" />
<Compile Include="SQLDB\clsUvm_data.vb" />
<Compile Include="SQLDB\clsUvm_import.vb" />
<Compile Include="SQLDB\clsZVBelege_data.vb" />
<Compile Include="SQLDB\clsZvbelege_import.vb" />
<Compile Include="SQLDB\cls_host_dokument.vb" />
<Compile Include="SQLDB\db_connection.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="app - Kopieren.config">
<SubType>Designer</SubType>
</None>
<None Include="app.config">
<SubType>Designer</SubType>
</None>
<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>
<Import Project="$(MSBuildToolsPath)\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>

6
EDKB01DB2/Archiv/EDKB01DB2/EDKB01DB2.vbproj.user Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<StartArguments>HOST UDOKID</StartArguments>
</PropertyGroup>
</Project>

926
EDKB01DB2/Archiv/EDKB01DB2/Module1.vb Normal file
View File

@@ -0,0 +1,926 @@
Imports System.IO.File
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.ComponentModel
Imports System.IO
Imports System.SystemException
Imports System.Reflection
Imports System.Configuration
Module Module1
#Region "Deklarationen"
Public Input_Anzahl As Integer = 20
Dim IData As New DataTable
Dim Odata As New DataTable
Dim Update_Loadid As Boolean = False
Dim Delete_data As Boolean = False
Dim journale As New clsLog
Public sConnectionString_Host As String
Public sConnectionString_journale As String
Public sConnectionString_ZV As String
Public sConnectionstring_BL As String
Public sConnectionstring_DB2 As String
Public conn_host As New edokadb.clsConnectionProvider()
Public conn_journale As New edokadb.clsConnectionProvider()
Public conn_zv As New edokadb.clsConnectionProvider
Public conn_bl As New edokadb.clsConnectionProvider
Dim args As String() = Environment.GetCommandLineArgs()
Dim HostData As New DataTable
'Dim hostdata As New edokadb.clsHost_dokument_import()
Dim zvdata As New edokadb.clsZVBelege_import()
Dim uvmdata As New edokadb.clsUvm_import()
Dim bldata As New edokadb.clsEDEX_BL_Hostdokument
Dim db_conn As New EDOKA.DB_Connection()
Dim odbcconn As New Odbc.OdbcConnection
Dim sqlconn As New SqlConnection
Dim Journaleconn As New SqlConnection
Dim Verarbeitungstyp As String
Dim zz As Integer = 0
Dim ZZTotal As Integer = 0
Dim MsgText As String = ""
Dim ErrCnt As Integer = 0
Dim Debuglog As Boolean = False
Public Dokumentid As String
Public PK As Integer
Dim zzread As Integer = 0
Dim zzupdate As Integer = 0
Dim zzupdateodbc As Integer = 0
#Region "BMS - Normal"
#If CONFIG = "Release" Then
Public m_log As bms.Logging
#Else
Public m_log As log
Public Class log
Function log(ByVal msg As String, Optional type As Integer = 0)
End Function
Public Function start()
End Function
Public Function ende()
End Function
End Class
#End If
#End Region
#End Region
#Region "Start Tools"
Private Sub Debugprint(ByVal s As String)
If Debuglog = True Then
Console.WriteLine(s)
End If
End Sub
Private Sub WriteLog(ByVal stext As String, ByVal sPfad As String)
Try
Dim FiStr As FileStream = New FileStream(sPfad, FileMode.Append)
Dim StrWr As StreamWriter = New StreamWriter(FiStr)
StrWr.WriteLine("Fehler: " + Now())
StrWr.WriteLine("Fehlertext:" + stext)
StrWr.Close()
Catch ex As Exception
End Try
End Sub
Public Function ApplicationPath() As String
'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
Private Function CheckArg() As Boolean
Try
Update_Loadid = False
Delete_data = False
If IsNothing(args(1)) Then
m_log.Log("Keine Parameter übergeben.", Common.Common.JournalEntryType.Error)
m_log.Ende()
End If
Select Case args(1)
Case "BL"
Case "HOST"
Case "ZV"
Case Else
m_log.Log("Fehlerhafte Parameter im ersten Argument (BL/HOST/ZV).", Common.Common.JournalEntryType.Error)
m_log.Ende()
CheckArg = False
Exit Function
End Select
Verarbeitungstyp = args(1)
If args.Count > 2 Then
Select Case args(2)
Case "UDOKID"
Update_Loadid = True
Case "DEL"
Delete_data = True
Case Else
m_log.log("Fehlerhafte Parameter im ersten Argument (BL/HOST/ZV).", Common.Common.JournalEntryType.Error)
m_log.ende()
CheckArg = False
Exit Function
End Select
End If
CheckArg = True
Catch ex As Exception
m_log.Log("Keine Parameter übergeben.", Common.Common.JournalEntryType.Error)
m_log.Ende()
CheckArg = False
End Try
End Function
#End Region
#Region "Hauptverarbeitung"
Sub Main()
journale.Startlog(4)
MsgText = "EDKB01: Start" + args(1) + ": " + Now.ToString
journale.InsertJournale(MsgText)
Try
#If CONFIG = "Release" Then
Dim m_log1 As New bms.Logging(3, Common.Common.JobType.WatchJob)
m_log = m_log1
m_log.Start()
#Else
Dim m_log1 As New Log
m_log = m_log1
#End If
Catch ex As Exception
WriteLog("BMS-Connection / XML: " + ex.Message, ApplicationPath() + "Error.txt")
Exit Sub
End Try
Try
Debuglog = My.Settings.Debug
If CheckArg() = False Then Exit Sub
If CheckDB() = False Then Exit Sub
If Update_Loadid = False And Delete_data = False Then
Select Case Verarbeitungstyp
Case "HOST"
sqlconn.ConnectionString = sConnectionString_Host
Verarbeiten()
Case "ZV"
sqlconn.ConnectionString = sConnectionString_ZV
Verarbeiten()
Case "BL"
sqlconn.ConnectionString = sConnectionstring_BL
Verarbeiten()
End Select
End If
If Update_Loadid Then
Select Case Verarbeitungstyp
Case "HOST"
sqlconn.ConnectionString = sConnectionString_Host
Verarbeiten_Update_Loadid()
Case "ZV"
sqlconn.ConnectionString = sConnectionString_ZV
Verarbeiten_Update_Loadid()
Case "BL"
sqlconn.ConnectionString = sConnectionstring_BL
Verarbeiten_Update_Loadid()
End Select
End If
If Delete_data Then
Select Case Verarbeitungstyp
Case "HOST"
sqlconn.ConnectionString = sConnectionString_Host
Verarbeiten_Delete_Data()
Case "ZV"
sqlconn.ConnectionString = sConnectionString_ZV
Verarbeiten_Delete_Data()
Case "BL"
sqlconn.ConnectionString = sConnectionstring_BL
Verarbeiten_Delete_Data()
End Select
End If
Catch ex As Exception
journale.InsertJournale(ex.Message)
ErrCnt = ErrCnt + 1
End Try
MsgText = "EDKB01: Ende Import " + args(1) + " Total Datensätze: " + ZZTotal.ToString
journale.InsertJournale(MsgText)
journale.StopLog(4)
If ErrCnt > 0 Then
m_log.Log("EDKB01 " + args(1) + " fehlerhaft beendet", Common.Common.JournalEntryType.Error)
m_log.Ende()
Else
m_log.Log("EDKB01 beendet - Total Datensätze: " + ZZTotal.ToString, Common.Common.JournalEntryType.Information)
m_log.Ende()
Sendmail(My.Settings.OKMail, 0)
End If
End Sub
#End Region
#Region "Verarbeiten"
Sub Verarbeiten()
Try
odbcconn.ConnectionString = sConnectionstring_DB2
odbcconn.Open()
sqlconn.Open()
Get_ODBC(Verarbeitungstyp)
Get_SQLDB(Verarbeitungstyp)
While IData.Rows.Count > 0
For Each r As DataRow In IData.Rows
zzread = zzread + 1
If zz >= My.Settings.MaxRows Or ZZTotal >= My.Settings.MaxRows Then Exit While
Update_rec(r, My.Settings.ProvStatus)
Select Case Verarbeitungstyp
Case "HOST"
Mapping_host(r)
Case "ZV"
Mapping_ZV(r)
Case "BL"
Mapping_BL(r)
End Select
'Insert SQL
Try
Insert_rec(Odata)
zzupdate = zzupdate + 1
Try
Update_rec(r, My.Settings.OKStatus)
zzupdateodbc = zzupdateodbc + 1
Catch ex As Exception
Try
MsgText = r("UDOKID00")
Catch ex1 As Exception
MsgText = ""
End Try
ErrCnt = ErrCnt + 1
WriteLog("Error Update ODBC" + MsgText + ": " + ex.Message, ApplicationPath() + "Error.txt")
'journale.InsertJournale("Error Update ODBC" + MsgText + ": " + ex.Message)
'm_log.log("Error Update ODBC" + MsgText + ": " + ex.Message, Common.Common.JournalEntryType.Error)
End Try
Catch ex As Exception
Try
MsgText = r("UDOKID00")
Catch ex1 As Exception
MsgText = ""
End Try
ErrCnt = ErrCnt + 1
WriteLog("Error Insert SQL" + MsgText + ": " + ex.Message, ApplicationPath() + "Error.txt")
End Try
zz = zz + 1
If zz > 4999 Then
ZZTotal = ZZTotal + zz
zz = 0
Console.WriteLine("DS-Count: " + ZZTotal.ToString)
End If
Next
Get_ODBC(Verarbeitungstyp)
End While
odbcconn.Close()
sqlconn.Close()
ZZTotal = ZZTotal + zz
m_log.Log("EDKB01 " + args(1) + " beendet - " + ZZTotal.ToString + " Datensätze verarbeitet")
Catch ex As Exception
journale.InsertJournale("EDKB01 Verarbeiten Error: " + ex.Message)
m_log.Log("EDKB01 Verarbeiten Error: " + ex.Message, Common.Common.JournalEntryType.Error)
ErrCnt = ErrCnt + 1
End Try
End Sub
Sub Verarbeiten_Update_Loadid()
Try
odbcconn.ConnectionString = sConnectionstring_DB2
odbcconn.Open()
sqlconn.Open()
Get_ODBC(Verarbeitungstyp)
While IData.Rows.Count > 0
For Each r As DataRow In IData.Rows
zzread = zzread + 1
If zz >= My.Settings.MaxRows Or ZZTotal >= My.Settings.MaxRows Then Exit While
Update_rec(r, My.Settings.ProvStatus)
If Check_Dokumentid(r) Then
If Update_dokument(r) Then
zzupdate = zzupdate + 1
Update_rec(r, My.Settings.OKStatus)
zzupdateodbc = zzupdateodbc + 1
End If
End If
zz = zz + 1
If zz > 4999 Then
ZZTotal = ZZTotal + zz
zz = 0
Console.WriteLine("DS-Count: " + ZZTotal.ToString)
End If
Next
Get_ODBC(Verarbeitungstyp)
End While
odbcconn.Close()
sqlconn.Close()
ZZTotal = ZZTotal + zz
m_log.Log("EDKB01 " + args(1) + " beendet - " + ZZTotal.ToString + " Datensätze verarbeitet")
Catch ex As Exception
journale.InsertJournale("EDKB01 Verarbeiten Error: " + ex.Message)
m_log.Log("EDKB01 Verarbeiten Error: " + ex.Message, Common.Common.JournalEntryType.Error)
ErrCnt = ErrCnt + 1
End Try
End Sub
Sub Verarbeiten_Delete_Data()
Try
odbcconn.ConnectionString = sConnectionstring_DB2
odbcconn.Open()
sqlconn.Open()
Get_ODBC(Verarbeitungstyp)
While IData.Rows.Count > 0
For Each r As DataRow In IData.Rows
zzread = zzread + 1
If zz >= My.Settings.MaxRows Or ZZTotal >= My.Settings.MaxRows Then Exit While
Update_rec(r, My.Settings.ProvStatusDelete)
If Check_Dokumentid(r) Then
If Delete_Dokument(r) Then
zzupdate = zzupdate + 1
Update_rec(r, My.Settings.OKStatauDelete)
zzupdateodbc = zzupdateodbc + 1
End If
End If
zz = zz + 1
If zz > 4999 Then
ZZTotal = ZZTotal + zz
zz = 0
Console.WriteLine("DS-Count: " + ZZTotal.ToString)
End If
Next
Get_ODBC(Verarbeitungstyp)
End While
odbcconn.Close()
sqlconn.Close()
ZZTotal = ZZTotal + zz
m_log.log("EDKB01 " + args(1) + " beendet - " + ZZTotal.ToString + " Datensätze verarbeitet")
Catch ex As Exception
journale.InsertJournale("EDKB01 Verarbeiten Error: " + ex.Message)
m_log.log("EDKB01 Verarbeiten Error: " + ex.Message, Common.Common.JournalEntryType.Error)
ErrCnt = ErrCnt + 1
End Try
End Sub
#End Region
#Region "Datamapping"
Public Sub Mapping_host(ByRef r As DataRow)
Dim newrow As DataRow = Odata.NewRow
newrow("anzahlseiten") = r("Pages")
newrow("dokumentid") = r("mailingid")
newrow("nachvollziehbarkeit") = r("traceability")
newrow("xomadocid") = r("xomadocid")
newrow("MailingProduct") = r("codemailintlid")
newrow("MailingProductBezeichnung") = r("Mailingproduct")
newrow("Valutadatum") = Format(CDate(r("Creationdate")), "yyyyMMdd")
newrow("Archivdatum") = (r("dmerst00"))
newrow("valutadatum1") = Format(CDate(r("valutadate")), "yyyyMMdd")
newrow("betreffzeile") = r("arctitle")
valor_isin(newrow, r)
newrow("standamdatum") = ""
newrow("ex") = r("copycode")
newrow("partnernr_inhaber") = r("bpkeynrinhab")
newrow("partnername_inhaber") = r("bpnameinhab")
newrow("partnernr_zusteller") = r("bpkeynrsend")
newrow("partnername_zusteller") = r("bpnamesend")
newrow("manr") = r("userid")
newrow("metatype") = r("metatype")
newrow("ordertype") = r("ordertyp")
newrow("loadid") = r("udokid00")
newrow("vvextern1") = r("macckeynr")
newrow("vvextern2") = r("contkeynr")
newrow("referenzzeile1") = ""
newrow("Referenzzeile2") = ""
newrow("transactnr") = r("ordernr")
newrow("inserttimestamp") = Now
Odata.Rows.Add(newrow)
End Sub
Sub valor_isin(newrow As DataRow, r As DataRow)
Try
Dim tmpvalor As String = ""
Dim xvalor As String = ""
Dim xisin As String = ""
Dim x As String = ""
newrow("valorennr") = ""
newrow("isinnr") = ""
tmpvalor = r("valoridr")
If tmpvalor.Length < 12 Then
newrow("valorennr") = r("valorid")
Else
xvalor = Left(tmpvalor, Len(tmpvalor) - 12)
xisin = Right(tmpvalor, 12)
x = Left(xisin, 1)
If x <> "1" And x <> "2" And x <> "3" And x <> "4" And x <> "5" And x <> "6" And x <> "7" And x <> "8" And x <> "9" And x <> "0" Then
newrow("Valorennr") = xvalor
newrow("IsinNr") = xisin
Else
newrow("Valorennr") = tmpvalor
End If
End If
Catch
newrow("Valorennr") = r("Valorid")
End Try
End Sub
Public Sub Mapping_ZV(ByRef r As DataRow)
Dim newrow As DataRow = Odata.NewRow
newrow("nrauf00") = r("nrauf00")
Debugprint("nrauf00")
newrow("nevvg00") = Format_NEVVG(r("nevvg00"))
Debugprint("nevvg00")
newrow("dmval00") = Format(CDate(r("dmval00")), "dd.MM.yyyy")
Debugprint("dmval00")
newrow("valdat") = r("dmval00")
Debugprint("valdat")
newrow("NRBCL00") = r("NRBCL00")
Debugprint("NRBCL00")
newrow("nrdoc00") = r("nrdoc00")
Debugprint("nrdoc00")
newrow("nevvg01") = Format_NEVVG(r("nevvg01"))
newrow("NRREF00") = r("NRREF00")
newrow("NRDOT00") = r("NRDOT00")
newrow("BTBET00") = CInt(r("BTBET00") * 100)
newrow("CDZAH00") = r("CDZAH00")
newrow("NRPCK00") = r("NRPCK00")
newrow("NRPOS00") = r("NRPOS00")
Dim tmpPartnerNr As String = Trim(r("NRPAR00"))
While Len(tmpPartnerNr) < 9
tmpPartnerNr = "0" + tmpPartnerNr
End While
newrow("NRPAR00") = tmpPartnerNr
newrow("CDWAEAI") = r("CDWAEAI")
newrow("BESAD00") = r("BESAD00")
newrow("BEEAD00") = r("BEEAD00")
newrow("CDVARC00") = r("CDVAR00")
newrow("NEVVG02") = Format_NEVVG(r("NEVVG02"))
Debugprint("nevvg02")
If (r("dmarc00")) Is DBNull.Value Then
newrow("dmarc00") = Format(CDate(r("dmval00")), "dd.MM.yyyy")
Debugprint("dmarc00 NULL")
Else
If Year(r("dmarc00")) = 1970 Then
newrow("dmarc00") = Format(CDate(r("dmval00")), "dd.MM.yyyy")
Debugprint("dmarc00 1970")
Else
newrow("DMARC00") = r("DMARC00")
End If
End If
newrow("inserttimestamp") = Now
newrow("loadid") = r("UDOKID00")
newrow("Betrag") = r("BTBET00")
newrow("BTBET00") = CInt(newrow("Betrag") * 100)
Odata.Rows.Add(newrow)
Debugprint("Mapping OK:" + newrow("loadid"))
Debugprint("")
End Sub
Public Function Format_NEVVG(ByRef s As String) As String
Dim res As String = s
Try
While Len(res) > 0 And Left(res, 1) = "0"
res = res.Substring(1, Len(res) - 1)
End While
Return res
Catch ex As Exception
Return res
End Try
End Function
Public Sub Mapping_BL(r)
Dim newrow As DataRow = Odata.NewRow
newrow("partnernr_inhaber") = r("bpkeynrinhab")
newrow("partnername_inhaber") = r("bpnameinhab")
newrow("Valutadatum") = Format(CDate(r("Creationdate")), "yyyyMMdd")
newrow("dokumentid") = r("mailingid")
newrow("standamdatum") = ""
newrow("loadid") = r("udokid00")
newrow("inserttimestamp") = Now
newrow("bl_status") = 0
newrow("Delete_edoka_host") = 0
newrow("MailingProductID") = r("codemailintlid")
newrow("MailingProductBezeichnung") = r("Mailingproduct")
newrow("metatype") = r("metatype")
newrow("ordertype") = r("ordertype")
Dim manr As Integer
manr = check_Vi(newrow("partnernr_inhaber"))
If manr > 0 Then
Send_KubeMail(manr, newrow("dokumentid"))
End If
Odata.Rows.Add(newrow)
End Sub
Private Function check_Vi(ByVal nrpar00 As Integer) As Integer
Dim scmCmdToExecute As SqlCommand = New SqlCommand
scmCmdToExecute.Connection = sqlconn
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_check_vipartner"
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrPAR00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@OK", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@MANR", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Try
sdaAdapter.Fill(dtToReturn)
If scmCmdToExecute.Parameters("@ok").Value = 0 Then
Return scmCmdToExecute.Parameters("@manr").Value
Else
Return 0
End If
Catch ex As Exception
WriteLog("Check_VI: " + ex.Message, ApplicationPath() + "Error.txt")
Return 0
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Private Function Send_KubeMail(ByVal empf As Integer, ByVal dokumentid As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_hdmail"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = sqlconn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empf))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
WriteLog("Send KubeMail: " + ex.Message, ApplicationPath() + "Error.txt")
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Sendmail(ByVal email As String, ByVal msg As Integer) As Boolean
'Mails im Fehler- bzw. im OK-Fall versenden
Dim meldung As String = ""
Dim betreff As String = ""
Dim m_common As New Common.Common
Select Case msg
Case 0
betreff = "EDKB01 " + args(1) + " - Return 0: Verarbeitung ordnungsgemäss durchgeführt - " + Format(Now, "yyyyMMddHHmmss")
meldung = "EDKB01 " + args(1) + vbCrLf + vbCrLf + _
"Datensätze OnDemand gelesen: " + zzread.ToString + vbCrLf + _
"Datensätze Edoka aktualisiert: " + zzupdate.ToString + vbCrLf + _
"Datensätze OnDemand aktualisiert: " + zzupdateodbc.ToString + vbCrLf + _
"Abzahl Fehler: " + ErrCnt.ToString
End Select
m_Log.Log("Mail: " + betreff, Common.Common.JournalEntryType.Information)
m_log.log("Mail: " + meldung, Common.Common.JournalEntryType.Information)
Console.WriteLine(meldung)
Try
m_common.SendMail(email, betreff, meldung)
Sendmail = True
Catch ex As Exception
Sendmail = False
m_Log.Log("EDKB01: ehler: Sendmail: " + ex.Message, Common.Common.JournalEntryType.Error)
End Try
End Function
#End Region
#Region "DB"
Public Function CheckDB() As Boolean
Try
odbcconn.ConnectionString = sConnectionstring_DB2
odbcconn.Open()
odbcconn.Close()
Catch ex As Exception
WriteLog("ODBC-Connection: " + sConnectionstring_DB2 + ": " + ex.Message, ApplicationPath() + "Error.txt")
Return False
End Try
Try
Select Case Verarbeitungstyp
Case "HOST"
sqlconn.ConnectionString = sConnectionString_Host
Case "ZV"
sqlconn.ConnectionString = sConnectionString_ZV
Case "BL"
sqlconn.ConnectionString = sConnectionstring_BL
End Select
sqlconn.Open()
sqlconn.Close()
Return True
Catch ex As Exception
WriteLog("SQL-Connection: " + sqlconn.ConnectionString + ": " + ex.Message, ApplicationPath() + "Error.txt")
m_log.Log("SQL-Connection: " + sqlconn.ConnectionString + ": " + ex.Message, Common.Common.JournalEntryType.Error)
m_log.Ende()
Return False
End Try
End Function
Public Function Get_ODBC(Type As String)
Dim sql As String
If Delete_data = False Then
Select Case Type
Case "HOST"
sql = My.Settings.DB2HostSelect
Case "ZV"
sql = My.Settings.DB2ZVSelect
Case "BL"
sql = My.Settings.DB2BLSelect
End Select
End If
If Delete_data Then
Select Case Type
Case "HOST"
sql = My.Settings.DB2HostSelectDelete
Case "ZV"
sql = My.Settings.DB2ZVSelectDelete
Case "BL"
sql = My.Settings.DB2BLSelectDelete
End Select
End If
Dim da As New Odbc.OdbcDataAdapter("", odbcconn)
Dim sqlcmd As New Odbc.OdbcCommand
sqlcmd.Connection = odbcconn
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = sql
da.SelectCommand = sqlcmd
IData.Rows.Clear()
da.Fill(IData)
End Function
Public Function Get_SQLDB(Type As String)
Dim sql As String
Dim sqlcmd As New SqlCommand
Select Case Type
Case "HOST"
sql = My.Settings.SQL_Empty_HOST
Case "ZV"
sql = My.Settings.SQL_Empty_ZV
Case "BL"
sql = My.Settings.SQL_Empty_BL
End Select
Dim da As New SqlDataAdapter(sql, sqlconn)
sqlcmd.Connection = sqlconn
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = sql
da.SelectCommand = sqlcmd
Odata.Rows.Clear()
da.Fill(Odata)
End Function
Sub Insert_rec(dt As DataTable)
'Insert Import
Dim sql As String
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.SQL_Empty_HOST
Case "ZV"
sql = My.Settings.SQL_Empty_ZV
Case "BL"
sql = My.Settings.SQL_Empty_BL
End Select
Using adapter1 = New SqlDataAdapter(sql, sqlconn)
Using builder = New SqlCommandBuilder(adapter1)
adapter1.InsertCommand = builder.GetInsertCommand()
adapter1.Update(Odata)
builder.Dispose()
End Using
adapter1.Dispose()
End Using
End Sub
Sub Update_rec(r As DataRow, status As Integer)
Dim sql As String
Dim ts As String
ts = Format(Now, "yyyy-MM-dd-HH.mm.ss")
Debugprint(ts)
If Delete_data = False Then
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.DB2HOSTUpdate
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
Case "ZV"
sql = My.Settings.DB2ZVUpdate
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Debugprint(sql)
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
Case "BL"
sql = My.Settings.DB2BLUpdate
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Debugprint(sql)
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
End Select
End If
If Delete_data = True Then
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.DB2HOSTUpdateDelete
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
Case "ZV"
sql = My.Settings.DB2ZVUpdateDelete
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Debugprint(sql)
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
Case "BL"
sql = My.Settings.DB2BLUpdateDelete
sql = sql.Replace("&NRSTATUS&", status.ToString)
sql = sql.Replace("&DMMUTA00&", ts)
sql = sql.Replace("&UDOKID&", r("udokid00"))
Debugprint(sql)
Dim odbccmd As New Odbc.OdbcCommand(sql, odbcconn)
odbccmd.CommandType = CommandType.Text
odbccmd.CommandText = sql
odbccmd.ExecuteNonQuery()
End Select
End If
End Sub
Function Check_Dokumentid(r As DataRow) As Boolean
Dim sql As String
Dim sqlcmd As New SqlCommand
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.SQL_HOST_Check_Dokumentid
sql = sql.Replace("&MailingID&", r("MailingID"))
Case "ZV"
sql = My.Settings.SQL_ZV_Check_Dokumentid
sql = sql.Replace("&nrdoc00&", r("nrdoc00"))
Case "BL"
sql = My.Settings.SQL_BL_Check_Dokumentid
sql = sql.Replace("&mailingid&", r("mailingid"))
End Select
Dim da As New SqlDataAdapter(sql, sqlconn)
sqlcmd.Connection = sqlconn
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = sql
da.SelectCommand = sqlcmd
Odata.Rows.Clear()
da.Fill(Odata)
If Odata.Rows.Count < 1 Then
WriteLog("Dokumentid fehlt:" + r("udokid00").ToString, ApplicationPath() + "HOST_Update.txt")
Return False
Else
Dokumentid = Odata.Rows(0).Item(0)
PK = Odata.Rows(0).Item(1)
Return True
End If
End Function
Public Function Update_dokument(r As DataRow) As Boolean
Dim sql As String
Dim sqlcmd As New SqlCommand
Try
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.SQL_HOST_Update_Loadid
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&DOKID&", r("mailingid"))
sql = sql.Replace("&PK&", PK)
Case "ZV"
sql = My.Settings.SQL_ZV_Update_LoadID
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&DOKID&", r("nrdoc00"))
sql = sql.Replace("&PK&", PK)
Case "BL"
sql = My.Settings.SQL_BL_Update_Loadid
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&DOKID&", r("mailingid"))
End Select
sqlcmd.Connection = sqlconn
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = sql
If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
sqlcmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
Finally
End Try
End Function
Public Function Delete_Dokument(r As DataRow) As Boolean
Dim sql As String
Dim sqlcmd As New SqlCommand
Try
Select Case Verarbeitungstyp
Case "HOST"
sql = My.Settings.SQL_HOST_Delete
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&PK&", PK)
sql = sql.Replace("&DOKID&", Dokumentid)
Case "ZV"
sql = My.Settings.SQL_ZV_Delete
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&PK&", PK)
sql = sql.Replace("&DOKID&", Dokumentid)
Case "BL"
sql = My.Settings.SQL_BL_Delete
sql = sql.Replace("&Loadid&", r("udokid00"))
sql = sql.Replace("&DOKID&", Dokumentid)
End Select
sqlcmd.Connection = sqlconn
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = sql
If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
sqlcmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
Finally
End Try
End Function
#End Region
End Module

13
EDKB01DB2/Archiv/EDKB01DB2/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209
'
' Ä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
EDKB01DB2/Archiv/EDKB01DB2/My Project/Application.myapp Normal file
View File

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

35
EDKB01DB2/Archiv/EDKB01DB2/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EDKB01DB2")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("EDKB01DB2")>
<Assembly: AssemblyCopyright("Copyright © 2015")>
<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("703afa5c-fa75-40a0-aecc-603f5f007e7d")>
' 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
EDKB01DB2/Archiv/EDKB01DB2/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209
'
' Ä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("EDKB01DB2.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

120
EDKB01DB2/Archiv/EDKB01DB2/My Project/Resources.resx Normal file
View File

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

568
EDKB01DB2/Archiv/EDKB01DB2/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,568 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.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
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("sa")> _
Public Property UserID() As String
Get
Return CType(Me("UserID"),String)
End Get
Set
Me("UserID") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("*shu29")> _
Public Property Password() As String
Get
Return CType(Me("Password"),String)
End Get
Set
Me("Password") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka")> _
Public Property BLConn() As String
Get
Return CType(Me("BLConn"),String)
End Get
Set
Me("BLConn") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka_host")> _
Public Property HOSTConn() As String
Get
Return CType(Me("HOSTConn"),String)
End Get
Set
Me("HOSTConn") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka_zv")> _
Public Property ZVConn() As String
Get
Return CType(Me("ZVConn"),String)
End Get
Set
Me("ZVConn") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka_journale")> _
Public Property JournaleConn() As String
Get
Return CType(Me("JournaleConn"),String)
End Get
Set
Me("JournaleConn") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("shu00")> _
Public Property DataSource() As String
Get
Return CType(Me("DataSource"),String)
End Get
Set
Me("DataSource") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("dsn=edokadsn;uid=sa;pwd=iFqo,UZLZo")> _
Public Property DB2Connection() As String
Get
Return CType(Me("DB2Connection"),String)
End Get
Set
Me("DB2Connection") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select top 5000 * from db2.dbo.hostindex where nrstatus=10")> _
Public Property DB2HostSelect() As String
Get
Return CType(Me("DB2HostSelect"),String)
End Get
Set
Me("DB2HostSelect") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select top 5000 * from db2.dbo.zvindex where nrstatus=10")> _
Public Property DB2ZVSelect() As String
Get
Return CType(Me("DB2ZVSelect"),String)
End Get
Set
Me("DB2ZVSelect") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select top 5000 * from db2.dbo.blindex where nrstatus=10")> _
Public Property DB2BLSelect() As String
Get
Return CType(Me("DB2BLSelect"),String)
End Get
Set
Me("DB2BLSelect") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("9999999")> _
Public Property MaxRows() As String
Get
Return CType(Me("MaxRows"),String)
End Get
Set
Me("MaxRows") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Debug() As String
Get
Return CType(Me("Debug"),String)
End Get
Set
Me("Debug") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.hostindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where udo"& _
"kid00='&UDOKID&'")> _
Public Property DB2HOSTUpdate() As String
Get
Return CType(Me("DB2HOSTUpdate"),String)
End Get
Set
Me("DB2HOSTUpdate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.zvindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where udoki"& _
"d00='&UDOKID&'")> _
Public Property DB2ZVUpdate() As String
Get
Return CType(Me("DB2ZVUpdate"),String)
End Get
Set
Me("DB2ZVUpdate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.blindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where udoki"& _
"d00='&UDOKID&'")> _
Public Property DB2BLUpdate() As String
Get
Return CType(Me("DB2BLUpdate"),String)
End Get
Set
Me("DB2BLUpdate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("20")> _
Public Property OKStatus() As String
Get
Return CType(Me("OKStatus"),String)
End Get
Set
Me("OKStatus") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("50")> _
Public Property ProvStatus() As String
Get
Return CType(Me("ProvStatus"),String)
End Get
Set
Me("ProvStatus") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka@tkb.ch")> _
Public Property OKMail() As String
Get
Return CType(Me("OKMail"),String)
End Get
Set
Me("OKMail") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("edoka@tkb.ch")> _
Public Property NOKMail() As String
Get
Return CType(Me("NOKMail"),String)
End Get
Set
Me("NOKMail") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1")> _
Public Property SQL_Empty_ZV() As String
Get
Return CType(Me("SQL_Empty_ZV"),String)
End Get
Set
Me("SQL_Empty_ZV") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-"& _
"1")> _
Public Property SQL_Empty_BL() As String
Get
Return CType(Me("SQL_Empty_BL"),String)
End Get
Set
Me("SQL_Empty_BL") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update edoka_host.dbo.host_dokument_import set loadid='&Loadid&' where pk=&PK& an"& _
"d Dokumentid='&DOKID&'")> _
Public Property SQL_HOST_Update_Loadid() As String
Get
Return CType(Me("SQL_HOST_Update_Loadid"),String)
End Get
Set
Me("SQL_HOST_Update_Loadid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1")> _
Public Property SQL_Empty_HOST() As String
Get
Return CType(Me("SQL_Empty_HOST"),String)
End Get
Set
Me("SQL_Empty_HOST") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='"& _
"&MailingID&'")> _
Public Property SQL_HOST_Check_Dokumentid() As String
Get
Return CType(Me("SQL_HOST_Check_Dokumentid"),String)
End Get
Set
Me("SQL_HOST_Check_Dokumentid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where NRDOC00='&NRDOC00&'")> _
Public Property SQL_ZV_Check_Dokumentid() As String
Get
Return CType(Me("SQL_ZV_Check_Dokumentid"),String)
End Get
Set
Me("SQL_ZV_Check_Dokumentid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update edoka_zv.dbo.zvbelege_import set loadid='&Loadid&' where pk=&PK& and nrdoc"& _
"00='&DOKID&'")> _
Public Property SQL_ZV_Update_LoadID() As String
Get
Return CType(Me("SQL_ZV_Update_LoadID"),String)
End Get
Set
Me("SQL_ZV_Update_LoadID") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select dokumentid from edoka.dbo.edex_bl_hostdokument where Dokumentid='&MailingI"& _
"D&'")> _
Public Property SQL_BL_Check_Dokumentid() As String
Get
Return CType(Me("SQL_BL_Check_Dokumentid"),String)
End Get
Set
Me("SQL_BL_Check_Dokumentid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update edoka.dbo.edex_bl_hostdokument set loadid='&Loadid&' where dokumentid='&DO"& _
"KID&'")> _
Public Property SQL_BL_Update_Loadid() As String
Get
Return CType(Me("SQL_BL_Update_Loadid"),String)
End Get
Set
Me("SQL_BL_Update_Loadid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("21")> _
Public Property OKStatauDelete() As String
Get
Return CType(Me("OKStatauDelete"),String)
End Get
Set
Me("OKStatauDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("51")> _
Public Property ProvStatusDelete() As String
Get
Return CType(Me("ProvStatusDelete"),String)
End Get
Set
Me("ProvStatusDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select * from db2.dbo.delhostindex where nrstatus=11")> _
Public Property DB2HOSTSelectDelete() As String
Get
Return CType(Me("DB2HOSTSelectDelete"),String)
End Get
Set
Me("DB2HOSTSelectDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select * from db2.dbo.delzvindex where nrstatus=11")> _
Public Property DB2ZVSelectDelete() As String
Get
Return CType(Me("DB2ZVSelectDelete"),String)
End Get
Set
Me("DB2ZVSelectDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Select * from db2.dbo.delblindex where nrstatus=11")> _
Public Property DB2BLSelectDelete() As String
Get
Return CType(Me("DB2BLSelectDelete"),String)
End Get
Set
Me("DB2BLSelectDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.delhostindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where "& _
"udokid00='&UDOKID&'")> _
Public Property DB2HOSTUpdateDelete() As String
Get
Return CType(Me("DB2HOSTUpdateDelete"),String)
End Get
Set
Me("DB2HOSTUpdateDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.delzvindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where ud"& _
"okid00='&UDOKID&'")> _
Public Property DB2ZVUpdateDelete() As String
Get
Return CType(Me("DB2ZVUpdateDelete"),String)
End Get
Set
Me("DB2ZVUpdateDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Update db2.dbo.delblindex set nrstatus=&NRSTATUS&, dmmuta00='&DMMUTA00&' where ud"& _
"okid00='&UDOKID&'")> _
Public Property DB2BLUpdateDelete() As String
Get
Return CType(Me("DB2BLUpdateDelete"),String)
End Get
Set
Me("DB2BLUpdateDelete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Delete from edoka_host.dbo.host_dokument_data_import where pk=&PK& and loadid='&"& _
"Loadid&' and dokumentid='&DOKID&'")> _
Public Property SQL_HOST_Delete() As String
Get
Return CType(Me("SQL_HOST_Delete"),String)
End Get
Set
Me("SQL_HOST_Delete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("delete from edoka_zv.dbo.zvbelege_import where pk=&PK& and loadid='&Loadid&' and "& _
"nrdoc00='&DOKID&'")> _
Public Property SQL_ZV_Delete() As String
Get
Return CType(Me("SQL_ZV_Delete"),String)
End Get
Set
Me("SQL_ZV_Delete") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("delete from edoka.dbo.edex_bl_hostdokument where loadid='&Loadid&' and dokumentid"& _
"='&DOKID&'")> _
Public Property SQL_BL_Delete() As String
Get
Return CType(Me("SQL_BL_Delete"),String)
End Get
Set
Me("SQL_BL_Delete") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EDKB01DB2.My.MySettings
Get
Return Global.EDKB01DB2.My.MySettings.Default
End Get
End Property
End Module
End Namespace

126
EDKB01DB2/Archiv/EDKB01DB2/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,126 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="UserID" Type="System.String" Scope="User">
<Value Profile="(Default)">sa</Value>
</Setting>
<Setting Name="Password" Type="System.String" Scope="User">
<Value Profile="(Default)">*shu29</Value>
</Setting>
<Setting Name="BLConn" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka</Value>
</Setting>
<Setting Name="HOSTConn" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka_host</Value>
</Setting>
<Setting Name="ZVConn" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka_zv</Value>
</Setting>
<Setting Name="JournaleConn" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka_journale</Value>
</Setting>
<Setting Name="DataSource" Type="System.String" Scope="User">
<Value Profile="(Default)">shu00</Value>
</Setting>
<Setting Name="DB2Connection" Type="System.String" Scope="User">
<Value Profile="(Default)">dsn=edokadsn;uid=sa;pwd=iFqo,UZLZo</Value>
</Setting>
<Setting Name="DB2HostSelect" Type="System.String" Scope="User">
<Value Profile="(Default)">select top 5000 * from db2.dbo.hostindex where nrstatus=10</Value>
</Setting>
<Setting Name="DB2ZVSelect" Type="System.String" Scope="User">
<Value Profile="(Default)">select top 5000 * from db2.dbo.zvindex where nrstatus=10</Value>
</Setting>
<Setting Name="DB2BLSelect" Type="System.String" Scope="User">
<Value Profile="(Default)">select top 5000 * from db2.dbo.blindex where nrstatus=10</Value>
</Setting>
<Setting Name="MaxRows" Type="System.String" Scope="User">
<Value Profile="(Default)">9999999</Value>
</Setting>
<Setting Name="Debug" Type="System.String" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="DB2HOSTUpdate" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="DB2ZVUpdate" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="DB2BLUpdate" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="OKStatus" Type="System.String" Scope="User">
<Value Profile="(Default)">20</Value>
</Setting>
<Setting Name="ProvStatus" Type="System.String" Scope="User">
<Value Profile="(Default)">50</Value>
</Setting>
<Setting Name="OKMail" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka@tkb.ch</Value>
</Setting>
<Setting Name="NOKMail" Type="System.String" Scope="User">
<Value Profile="(Default)">edoka@tkb.ch</Value>
</Setting>
<Setting Name="SQL_Empty_ZV" Type="System.String" Scope="User">
<Value Profile="(Default)">Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</Value>
</Setting>
<Setting Name="SQL_Empty_BL" Type="System.String" Scope="User">
<Value Profile="(Default)">Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</Value>
</Setting>
<Setting Name="SQL_HOST_Update_Loadid" Type="System.String" Scope="User">
<Value Profile="(Default)">Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</Value>
</Setting>
<Setting Name="SQL_Empty_HOST" Type="System.String" Scope="User">
<Value Profile="(Default)">Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</Value>
</Setting>
<Setting Name="SQL_HOST_Check_Dokumentid" Type="System.String" Scope="User">
<Value Profile="(Default)">select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</Value>
</Setting>
<Setting Name="SQL_ZV_Check_Dokumentid" Type="System.String" Scope="User">
<Value Profile="(Default)">select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where NRDOC00='&amp;NRDOC00&amp;'</Value>
</Setting>
<Setting Name="SQL_ZV_Update_LoadID" Type="System.String" Scope="User">
<Value Profile="(Default)">Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</Value>
</Setting>
<Setting Name="SQL_BL_Check_Dokumentid" Type="System.String" Scope="User">
<Value Profile="(Default)">Select dokumentid from edoka.dbo.edex_bl_hostdokument where Dokumentid='&amp;MailingID&amp;'</Value>
</Setting>
<Setting Name="SQL_BL_Update_Loadid" Type="System.String" Scope="User">
<Value Profile="(Default)">Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</Value>
</Setting>
<Setting Name="OKStatauDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">21</Value>
</Setting>
<Setting Name="ProvStatusDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">51</Value>
</Setting>
<Setting Name="DB2HOSTSelectDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Select * from db2.dbo.delhostindex where nrstatus=11</Value>
</Setting>
<Setting Name="DB2ZVSelectDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Select * from db2.dbo.delzvindex where nrstatus=11</Value>
</Setting>
<Setting Name="DB2BLSelectDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Select * from db2.dbo.delblindex where nrstatus=11</Value>
</Setting>
<Setting Name="DB2HOSTUpdateDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="DB2ZVUpdateDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="DB2BLUpdateDelete" Type="System.String" Scope="User">
<Value Profile="(Default)">Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</Value>
</Setting>
<Setting Name="SQL_HOST_Delete" Type="System.String" Scope="User">
<Value Profile="(Default)">Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</Value>
</Setting>
<Setting Name="SQL_ZV_Delete" Type="System.String" Scope="User">
<Value Profile="(Default)">delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</Value>
</Setting>
<Setting Name="SQL_BL_Delete" Type="System.String" Scope="User">
<Value Profile="(Default)">delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</Value>
</Setting>
</Settings>
</SettingsFile>

449
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsApplikation.vb Normal file
View File

@@ -0,0 +1,449 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Applikation'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 15. Juni 2003, 07:59:59
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'Applikation'.
' /// </summary>
Public Class clsApplikation
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daMutiert_am, m_daLastrun, m_daErstellt_am As SqlDateTime
Private m_iApplikationnr, m_iMutierer As SqlInt32
Private m_sBezeichnung As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iApplikationnr</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Applikation_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("clsApplikation::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iApplikationnr</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Applikation_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsApplikation::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iApplikationnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Applikation_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsApplikation::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iApplikationnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>iApplikationnr</LI>
' /// <LI>sBezeichnung</LI>
' /// <LI>daErstellt_am</LI>
' /// <LI>daMutiert_am</LI>
' /// <LI>iMutierer</LI>
' /// <LI>daLastrun</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Applikation")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
If dtToReturn.Rows(0)("lastrun") Is System.DBNull.Value Then
m_daLastrun = SqlDateTime.Null
Else
m_daLastrun = New SqlDateTime(CType(dtToReturn.Rows(0)("lastrun"), Date))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsApplikation::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Applikation")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Applikation_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("clsApplikation::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 [iApplikationnr]() As SqlInt32
Get
Return m_iApplikationnr
End Get
Set(ByVal Value As SqlInt32)
Dim iApplikationnrTmp As SqlInt32 = Value
If iApplikationnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iApplikationnr", "iApplikationnr can't be NULL")
End If
m_iApplikationnr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [daLastrun]() As SqlDateTime
Get
Return m_daLastrun
End Get
Set(ByVal Value As SqlDateTime)
m_daLastrun = Value
End Set
End Property
#End Region
End Class
End Namespace

289
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsConnectionProvider.vb Normal file
View File

@@ -0,0 +1,289 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Connection Provider class for Database connection sharing
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 7. Januar 2003, 13:03:43
' // This class implements IDisposable.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Namespace edokadb
' /// <summary>
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
' /// on a high level.
' /// </summary>
Public Class clsConnectionProvider
Implements IDisposable
#Region " Class Member Declarations "
Private m_scoDBConnection As SqlConnection
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
Private m_stCurrentTransaction As SqlTransaction
Private m_alSavePoints As ArrayList
#End Region
Public Sub New()
' // Init the class
InitClass()
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Public Overloads Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Protected Overridable Overloads 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(ByVal 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(ByVal 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(ByVal 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(ByVal 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

202
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsDBInteractionBase.vb Normal file
View File

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

520
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsEDEX_BL_Hostdokument.vb Normal file
View File

@@ -0,0 +1,520 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'EDEX_BL_Hostdokument'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Freitag, 24. Juni 2005, 08:16:40
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'EDEX_BL_Hostdokument'.
' /// </summary>
Public Class clsEDEX_BL_Hostdokument
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInserttimestamp As SqlDateTime
Private m_iBl_status, m_iAuslieferung_nr As SqlInt32
Private m_sStandamdatum, m_sEx, m_sArchivdatum, m_sVvextern1, m_sVvextern2, m_sRes2, m_sRes3, m_sRes1, m_sDokumenttypnr, m_sLoadid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sReferenzzeile2, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sPartnername_inhaber, m_sValutadatum, m_sDokumentid, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sValutadatum1, m_sValorennr, m_sIsinnr As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber. May be SqlString.Null</LI>
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
' /// <LI>sPartnername_inhaber. May be SqlString.Null</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. May be SqlString.Null</LI>
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
' /// <LI>sValorennr. May be SqlString.Null</LI>
' /// <LI>sIsinnr. May be SqlString.Null</LI>
' /// <LI>sDokumentid. May be SqlString.Null</LI>
' /// <LI>sAnzahlseiten. May be SqlString.Null</LI>
' /// <LI>sNachvollziehbarkeit. May be SqlString.Null</LI>
' /// <LI>sArchivdatum. May be SqlString.Null</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>iBl_status. May be SqlInt32.Null</LI>
' /// <LI>sRes1. May be SqlString.Null</LI>
' /// <LI>sRes2. May be SqlString.Null</LI>
' /// <LI>sRes3. May be SqlString.Null</LI>
' /// <LI>iAuslieferung_nr. May be SqlInt32.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
'scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Hostdokument_Insert]"
scmCmdToExecute.CommandText = "dbo.[sp_edex_bl_EDEX_BL_Hostdokument_Insert]" 'Num Konzept
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ibl_status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBl_status))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iauslieferung_nr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferung_nr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetaType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMetaType))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrderType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sOrderType))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_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("clsEDEX_BL_Hostdokument::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_edex_bl_EDEX_BL_Hostdokument_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("EDEX_BL_Hostdokument")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_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("clsEDEX_BL_Hostdokument::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)
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)
m_sPartnername_inhaber = Value
End Set
End Property
Dim m_sMailingProductID As String
Public Property [sMailingProductID]() As SqlString
Get
Return m_sMailingProductID
End Get
Set(ByVal Value As SqlString)
m_sMailingProductID = Value
End Set
End Property
Dim m_sMailingProductBezeichnung As String
Public Property [sMailingProductBezeichnung]() As SqlString
Get
Return m_sMailingProductBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sMailingProductBezeichnung = Value
End Set
End Property
Dim m_sMetaType As String
Public Property [sMetaType]() As SqlString
Get
Return m_sMetaType
End Get
Set(ByVal Value As SqlString)
m_sMetaType = Value
End Set
End Property
Dim m_sOrderType As String
Public Property [sOrderType]() As SqlString
Get
Return m_sOrderType
End Get
Set(ByVal Value As SqlString)
m_sOrderType = Value
End Set
End Property
Dim m_sTransactnr As String
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 [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)
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)
m_sDokumentid = Value
End Set
End Property
Public Property [sAnzahlseiten]() As SqlString
Get
Return m_sAnzahlseiten
End Get
Set(ByVal Value As SqlString)
m_sAnzahlseiten = Value
End Set
End Property
Public Property [sNachvollziehbarkeit]() As SqlString
Get
Return m_sNachvollziehbarkeit
End Get
Set(ByVal Value As SqlString)
m_sNachvollziehbarkeit = Value
End Set
End Property
Public Property [sArchivdatum]() As SqlString
Get
Return m_sArchivdatum
End Get
Set(ByVal Value As SqlString)
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 [iBl_status]() As SqlInt32
Get
Return m_iBl_status
End Get
Set(ByVal Value As SqlInt32)
m_iBl_status = Value
End Set
End Property
Public Property [sRes1]() As SqlString
Get
Return m_sRes1
End Get
Set(ByVal Value As SqlString)
m_sRes1 = Value
End Set
End Property
Public Property [sRes2]() As SqlString
Get
Return m_sRes2
End Get
Set(ByVal Value As SqlString)
m_sRes2 = Value
End Set
End Property
Public Property [sRes3]() As SqlString
Get
Return m_sRes3
End Get
Set(ByVal Value As SqlString)
m_sRes3 = Value
End Set
End Property
Public Property [iAuslieferung_nr]() As SqlInt32
Get
Return m_iAuslieferung_nr
End Get
Set(ByVal Value As SqlInt32)
m_iAuslieferung_nr = Value
End Set
End Property
#End Region
End Class
End Namespace

727
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsHost_dokument.vb Normal file
View File

@@ -0,0 +1,727 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'host_dokument'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 30. Juni 2003, 10:32:51
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'host_dokument'.
' /// </summary>
Public Class clsHost_dokument
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_sArchivdatum, m_sVvextern1, m_sNachvollziehbarkeit, m_sDokumentid, m_sAnzahlseiten, m_sDokumenttypnr, m_sLoadid, m_sStandamdatum, m_sVvextern2, m_sEx, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>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>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
Console.WriteLine(m_sDokumentid.Value & " : " & ex.Message)
Throw New Exception("clsHost_dokument::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>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>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsHost_dokument::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsHost_dokument::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</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>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("host_dokument")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_SelectOne' 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
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsHost_dokument::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("host_dokument")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_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("clsHost_dokument::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
#End Region
End Class
End Namespace

430
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsHost_dokument_data.vb Normal file
View File

@@ -0,0 +1,430 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'host_dokument_data'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'host_dokument_data'.
' /// </summary>
Public Class clsHost_dokument_data
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInserttimestamp As SqlDateTime
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>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>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_data_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_data_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("clsHost_dokument_data::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_host_dokument_data_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("host_dokument_data")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_data_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("clsHost_dokument_data::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
#End Region
End Class
End Namespace

524
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsHost_dokument_import.vb Normal file
View File

@@ -0,0 +1,524 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'host_dokument_import'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'host_dokument_import'.
' /// </summary>
Public Class clsHost_dokument_import
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInserttimestamp As SqlDateTime
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum, m_sMetatype, m_sOrdertype1, m_sOrdertype2, m_sTransactnr, m_sManr, m_sMailingProduct, m_sMailingProductBezeichnung, m_sBetreffzeile, m_sXomaDocID As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>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>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
'scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_import_Insert]" 'früher
scmCmdToExecute.CommandText = "dbo.[sp_host_dokument_import_Insert]" 'seit Nummerierungkonzept Teil 2
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
' Neu auf Mailing-Product! (alt auf DokumentTypNr
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProduct", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProduct))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, ""))
'Neue Indexfelder
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBetreffzeile", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sBetreffzeile))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetatype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMetatype))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrdertype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOrdertype1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTransactnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTransactnr.ToSqlInt32))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sManr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sManr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sXomaDocID", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sXomaDocID))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_import_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("clsHost_dokument_import::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_host_dokument_import_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("host_dokument_import")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_host_dokument_import_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("clsHost_dokument_import::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 [sMetatype]() As SqlString
Get
Return m_sMetatype
End Get
Set(ByVal Value As SqlString)
m_sMetatype = Value
End Set
End Property
Public Property [sOrdertype1]() As SqlString
Get
Return m_sOrdertype1
End Get
Set(ByVal Value As SqlString)
m_sOrdertype1 = Value
End Set
End Property
Public Property [sOrdertype2]() As SqlString
Get
Return m_sOrdertype2
End Get
Set(ByVal Value As SqlString)
m_sOrdertype2 = 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 [daInserttimestamp]() As SqlDateTime
Get
Return m_daInserttimestamp
End Get
Set(ByVal Value As SqlDateTime)
m_daInserttimestamp = 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 [sMailingProductBezeichnung]() As SqlString
Get
Return m_sMailingProductBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sMailingProductBezeichnung = 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 [sXomaDocID]() As SqlString
Get
Return m_sXomaDocID
End Get
Set(ByVal Value As SqlString)
m_sXomaDocID = Value
End Set
End Property
#End Region
End Class
End Namespace

451
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsJournal.vb Normal file
View File

@@ -0,0 +1,451 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Journal'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:24
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'Journal'.
' /// </summary>
Public Class clsJournal
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bFehlerhaft As SqlBoolean
Private m_daEnde, m_daStart As SqlDateTime
Private m_iJournalnr, m_iApplikationnr As SqlInt32
Private m_sFehlerbeschreibung As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
' /// <LI>daStart. May be SqlDateTime.Null</LI>
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iJournalnr</LI>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iJournalnr = scmCmdToExecute.Parameters.Item("@ijournalnr").Value
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journal_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("clsJournal::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournalnr</LI>
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
' /// <LI>daStart. May be SqlDateTime.Null</LI>
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journal_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournal::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournalnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journal_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournal::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournalnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>iJournalnr</LI>
' /// <LI>iApplikationnr</LI>
' /// <LI>daStart</LI>
' /// <LI>daEnde</LI>
' /// <LI>bFehlerhaft</LI>
' /// <LI>sFehlerbeschreibung</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journal")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journal_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
If dtToReturn.Rows(0)("applikationnr") Is System.DBNull.Value Then
m_iApplikationnr = SqlInt32.Null
Else
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
End If
If dtToReturn.Rows(0)("start") Is System.DBNull.Value Then
m_daStart = SqlDateTime.Null
Else
m_daStart = New SqlDateTime(CType(dtToReturn.Rows(0)("start"), Date))
End If
If dtToReturn.Rows(0)("ende") Is System.DBNull.Value Then
m_daEnde = SqlDateTime.Null
Else
m_daEnde = New SqlDateTime(CType(dtToReturn.Rows(0)("ende"), Date))
End If
If dtToReturn.Rows(0)("fehlerhaft") Is System.DBNull.Value Then
m_bFehlerhaft = SqlBoolean.Null
Else
m_bFehlerhaft = New SqlBoolean(CType(dtToReturn.Rows(0)("fehlerhaft"), Boolean))
End If
If dtToReturn.Rows(0)("fehlerbeschreibung") Is System.DBNull.Value Then
m_sFehlerbeschreibung = SqlString.Null
Else
m_sFehlerbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("fehlerbeschreibung"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournal::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journal")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journal_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("clsJournal::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 [iJournalnr]() As SqlInt32
Get
Return m_iJournalnr
End Get
Set(ByVal Value As SqlInt32)
Dim iJournalnrTmp As SqlInt32 = Value
If iJournalnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iJournalnr", "iJournalnr can't be NULL")
End If
m_iJournalnr = Value
End Set
End Property
Public Property [iApplikationnr]() As SqlInt32
Get
Return m_iApplikationnr
End Get
Set(ByVal Value As SqlInt32)
m_iApplikationnr = Value
End Set
End Property
Public Property [daStart]() As SqlDateTime
Get
Return m_daStart
End Get
Set(ByVal Value As SqlDateTime)
m_daStart = Value
End Set
End Property
Public Property [daEnde]() As SqlDateTime
Get
Return m_daEnde
End Get
Set(ByVal Value As SqlDateTime)
m_daEnde = Value
End Set
End Property
Public Property [bFehlerhaft]() As SqlBoolean
Get
Return m_bFehlerhaft
End Get
Set(ByVal Value As SqlBoolean)
m_bFehlerhaft = Value
End Set
End Property
Public Property [sFehlerbeschreibung]() As SqlString
Get
Return m_sFehlerbeschreibung
End Get
Set(ByVal Value As SqlString)
m_sFehlerbeschreibung = Value
End Set
End Property
#End Region
End Class
End Namespace

437
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsJournaldatei.vb Normal file
View File

@@ -0,0 +1,437 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Journaldatei'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'Journaldatei'.
' /// </summary>
Public Class clsJournaldatei
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_blobDatei As SqlBinary
Private m_iJournalnr, m_iJournaldateinr As SqlInt32
Private m_sDateiname, m_sBezeichnung As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaldateinr</LI>
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
' /// <LI>sDateiname. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
Dim iLength As Integer = 0
If Not m_blobDatei.IsNull Then
iLength = m_blobDatei.Length
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaldatei_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("clsJournaldatei::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaldateinr</LI>
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
' /// <LI>sDateiname. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
Dim iLength As Integer = 0
If Not m_blobDatei.IsNull Then
iLength = m_blobDatei.Length
End If
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaldatei_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaldatei::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaldateinr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaldatei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaldatei::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaldateinr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>iJournaldateinr</LI>
' /// <LI>iJournalnr</LI>
' /// <LI>sBezeichnung</LI>
' /// <LI>blobDatei</LI>
' /// <LI>sDateiname</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaldatei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iJournaldateinr = New SqlInt32(CType(dtToReturn.Rows(0)("journaldateinr"), Integer))
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
m_iJournalnr = SqlInt32.Null
Else
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
End If
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
m_sBezeichnung = SqlString.Null
Else
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
End If
If dtToReturn.Rows(0)("datei") Is System.DBNull.Value Then
m_blobDatei = SqlBinary.Null
Else
m_blobDatei = New SqlBinary(CType(dtToReturn.Rows(0)("datei"), Byte()))
End If
If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then
m_sDateiname = SqlString.Null
Else
m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaldatei::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaldatei_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("clsJournaldatei::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 [iJournaldateinr]() As SqlInt32
Get
Return m_iJournaldateinr
End Get
Set(ByVal Value As SqlInt32)
Dim iJournaldateinrTmp As SqlInt32 = Value
If iJournaldateinrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iJournaldateinr", "iJournaldateinr can't be NULL")
End If
m_iJournaldateinr = Value
End Set
End Property
Public Property [iJournalnr]() As SqlInt32
Get
Return m_iJournalnr
End Get
Set(ByVal Value As SqlInt32)
m_iJournalnr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
m_sBezeichnung = Value
End Set
End Property
Public Property [blobDatei]() As SqlBinary
Get
Return m_blobDatei
End Get
Set(ByVal Value As SqlBinary)
m_blobDatei = Value
End Set
End Property
Public Property [sDateiname]() As SqlString
Get
Return m_sDateiname
End Get
Set(ByVal Value As SqlString)
m_sDateiname = Value
End Set
End Property
#End Region
End Class
End Namespace

410
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsJournaleintrag.vb Normal file
View File

@@ -0,0 +1,410 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Journaleintrag'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 09:14:59
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'Journaleintrag'.
' /// </summary>
Public Class clsJournaleintrag
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daDatumzeit As SqlDateTime
Private m_iJournalnr, m_iJournaleintragnr As SqlInt32
Private m_sEintrag As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
' /// <LI>sEintrag. May be SqlString.Null</LI>
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iJournaleintragnr</LI>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaleintrag_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("clsJournaleintrag::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaleintragnr</LI>
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
' /// <LI>sEintrag. May be SqlString.Null</LI>
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaleintrag::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaleintragnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>iJournaleintragnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>iJournaleintragnr</LI>
' /// <LI>iJournalnr</LI>
' /// <LI>sEintrag</LI>
' /// <LI>daDatumzeit</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer))
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
m_iJournalnr = SqlInt32.Null
Else
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
End If
If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then
m_sEintrag = SqlString.Null
Else
m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String))
End If
If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then
m_daDatumzeit = SqlDateTime.Null
Else
m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_Journaleintrag_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("clsJournaleintrag::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 [iJournaleintragnr]() As SqlInt32
Get
Return m_iJournaleintragnr
End Get
Set(ByVal Value As SqlInt32)
Dim iJournaleintragnrTmp As SqlInt32 = Value
If iJournaleintragnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iJournaleintragnr", "iJournaleintragnr can't be NULL")
End If
m_iJournaleintragnr = Value
End Set
End Property
Public Property [iJournalnr]() As SqlInt32
Get
Return m_iJournalnr
End Get
Set(ByVal Value As SqlInt32)
m_iJournalnr = Value
End Set
End Property
Public Property [sEintrag]() As SqlString
Get
Return m_sEintrag
End Get
Set(ByVal Value As SqlString)
m_sEintrag = Value
End Set
End Property
Public Property [daDatumzeit]() As SqlDateTime
Get
Return m_daDatumzeit
End Get
Set(ByVal Value As SqlDateTime)
m_daDatumzeit = Value
End Set
End Property
#End Region
End Class
End Namespace

234
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsUvm_data.vb Normal file
View File

@@ -0,0 +1,234 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'uvm_data'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:12
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'uvm_data'.
' /// </summary>
Public Class clsUvm_data
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInserttimestamp As SqlDateTime
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
' /// <LI>sDMERS00. May be SqlString.Null</LI>
' /// <LI>sDMARC00. May be SqlString.Null</LI>
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_uvm_data_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_uvm_data_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("clsUvm_data::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_uvm_data_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("uvm_data")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_uvm_data_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("clsUvm_data::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 [sNRDOT00]() As SqlString
Get
Return m_sNRDOT00
End Get
Set(ByVal Value As SqlString)
m_sNRDOT00 = Value
End Set
End Property
Public Property [sNRDOC00]() As SqlString
Get
Return m_sNRDOC00
End Get
Set(ByVal Value As SqlString)
m_sNRDOC00 = Value
End Set
End Property
Public Property [sNRPAR00]() As SqlString
Get
Return m_sNRPAR00
End Get
Set(ByVal Value As SqlString)
m_sNRPAR00 = Value
End Set
End Property
Public Property [sNRAUF00]() As SqlString
Get
Return m_sNRAUF00
End Get
Set(ByVal Value As SqlString)
m_sNRAUF00 = Value
End Set
End Property
Public Property [sDMERS00]() As SqlString
Get
Return m_sDMERS00
End Get
Set(ByVal Value As SqlString)
m_sDMERS00 = Value
End Set
End Property
Public Property [sDMARC00]() As SqlString
Get
Return m_sDMARC00
End Get
Set(ByVal Value As SqlString)
m_sDMARC00 = 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
#End Region
End Class
End Namespace

234
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsUvm_import.vb Normal file
View File

@@ -0,0 +1,234 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'uvm_import'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:13
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'uvm_import'.
' /// </summary>
Public Class clsUvm_import
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInserttimestamp As SqlDateTime
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
' /// <LI>sDMERS00. May be SqlString.Null</LI>
' /// <LI>sDMARC00. May be SqlString.Null</LI>
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_uvm_import_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_uvm_import_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("clsUvm_import::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_uvm_import_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("uvm_import")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_uvm_import_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("clsUvm_import::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 [sNRDOT00]() As SqlString
Get
Return m_sNRDOT00
End Get
Set(ByVal Value As SqlString)
m_sNRDOT00 = Value
End Set
End Property
Public Property [sNRDOC00]() As SqlString
Get
Return m_sNRDOC00
End Get
Set(ByVal Value As SqlString)
m_sNRDOC00 = Value
End Set
End Property
Public Property [sNRPAR00]() As SqlString
Get
Return m_sNRPAR00
End Get
Set(ByVal Value As SqlString)
m_sNRPAR00 = Value
End Set
End Property
Public Property [sNRAUF00]() As SqlString
Get
Return m_sNRAUF00
End Get
Set(ByVal Value As SqlString)
m_sNRAUF00 = Value
End Set
End Property
Public Property [sDMERS00]() As SqlString
Get
Return m_sDMERS00
End Get
Set(ByVal Value As SqlString)
m_sDMERS00 = Value
End Set
End Property
Public Property [sDMARC00]() As SqlString
Get
Return m_sDMARC00
End Get
Set(ByVal Value As SqlString)
m_sDMARC00 = 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
#End Region
End Class
End Namespace

427
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsZVBelege_data.vb Normal file
View File

@@ -0,0 +1,427 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'ZVBelege_data'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'ZVBelege_data'.
' /// </summary>
Public Class clsZVBelege_data
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
Private m_fBetrag As SqlDouble
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sNRDOT00</LI>
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
' /// <LI>sNRREF00. May be SqlString.Null</LI>
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
' /// <LI>sNRDOC00</LI>
' /// <LI>sBESAD00. May be SqlString.Null</LI>
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
' /// <LI>sBTBET00. May be SqlString.Null</LI>
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
' /// <LI>sNRAUF00</LI>
' /// <LI>sDMARC00. May be SqlString.Null</LI>
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_data_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_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("clsZVBelege_data::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_ZVBelege_data_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("ZVBelege_data")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_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("clsZVBelege_data::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 [sNRDOT00]() As SqlString
Get
Return m_sNRDOT00
End Get
Set(ByVal Value As SqlString)
Dim sNRDOT00Tmp As SqlString = Value
If sNRDOT00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sNRDOT00", "sNRDOT00 can't be NULL")
End If
m_sNRDOT00 = Value
End Set
End Property
Public Property [sBEEAD00]() As SqlString
Get
Return m_sBEEAD00
End Get
Set(ByVal Value As SqlString)
m_sBEEAD00 = Value
End Set
End Property
Public Property [sCDVARC00]() As SqlString
Get
Return m_sCDVARC00
End Get
Set(ByVal Value As SqlString)
m_sCDVARC00 = Value
End Set
End Property
Public Property [sNRREF00]() As SqlString
Get
Return m_sNRREF00
End Get
Set(ByVal Value As SqlString)
m_sNRREF00 = Value
End Set
End Property
Public Property [sCDZAH00]() As SqlString
Get
Return m_sCDZAH00
End Get
Set(ByVal Value As SqlString)
m_sCDZAH00 = Value
End Set
End Property
Public Property [sNRPCK00]() As SqlString
Get
Return m_sNRPCK00
End Get
Set(ByVal Value As SqlString)
m_sNRPCK00 = Value
End Set
End Property
Public Property [sNRBCL00]() As SqlString
Get
Return m_sNRBCL00
End Get
Set(ByVal Value As SqlString)
m_sNRBCL00 = Value
End Set
End Property
Public Property [sNEVVG01]() As SqlString
Get
Return m_sNEVVG01
End Get
Set(ByVal Value As SqlString)
m_sNEVVG01 = Value
End Set
End Property
Public Property [sNRDOC00]() As SqlString
Get
Return m_sNRDOC00
End Get
Set(ByVal Value As SqlString)
Dim sNRDOC00Tmp As SqlString = Value
If sNRDOC00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sNRDOC00", "sNRDOC00 can't be NULL")
End If
m_sNRDOC00 = Value
End Set
End Property
Public Property [sBESAD00]() As SqlString
Get
Return m_sBESAD00
End Get
Set(ByVal Value As SqlString)
m_sBESAD00 = Value
End Set
End Property
Public Property [sDMVAL00]() As SqlString
Get
Return m_sDMVAL00
End Get
Set(ByVal Value As SqlString)
m_sDMVAL00 = Value
End Set
End Property
Public Property [sCDWAEAI]() As SqlString
Get
Return m_sCDWAEAI
End Get
Set(ByVal Value As SqlString)
m_sCDWAEAI = Value
End Set
End Property
Public Property [sBTBET00]() As SqlString
Get
Return m_sBTBET00
End Get
Set(ByVal Value As SqlString)
m_sBTBET00 = Value
End Set
End Property
Public Property [sNRPAR00]() As SqlString
Get
Return m_sNRPAR00
End Get
Set(ByVal Value As SqlString)
m_sNRPAR00 = Value
End Set
End Property
Public Property [sNEVVG02]() As SqlString
Get
Return m_sNEVVG02
End Get
Set(ByVal Value As SqlString)
m_sNEVVG02 = Value
End Set
End Property
Public Property [sNEVVG00]() As SqlString
Get
Return m_sNEVVG00
End Get
Set(ByVal Value As SqlString)
m_sNEVVG00 = Value
End Set
End Property
Public Property [sNRPOS00]() As SqlString
Get
Return m_sNRPOS00
End Get
Set(ByVal Value As SqlString)
m_sNRPOS00 = Value
End Set
End Property
Public Property [sNRAUF00]() As SqlString
Get
Return m_sNRAUF00
End Get
Set(ByVal Value As SqlString)
Dim sNRAUF00Tmp As SqlString = Value
If sNRAUF00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sNRAUF00", "sNRAUF00 can't be NULL")
End If
m_sNRAUF00 = Value
End Set
End Property
Public Property [sDMARC00]() As SqlString
Get
Return m_sDMARC00
End Get
Set(ByVal Value As SqlString)
m_sDMARC00 = 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 [daValdat]() As SqlDateTime
Get
Return m_daValdat
End Get
Set(ByVal Value As SqlDateTime)
m_daValdat = Value
End Set
End Property
Public Property [fBetrag]() As SqlDouble
Get
Return m_fBetrag
End Get
Set(ByVal Value As SqlDouble)
m_fBetrag = Value
End Set
End Property
#End Region
End Class
End Namespace

415
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/clsZvbelege_import.vb Normal file
View File

@@ -0,0 +1,415 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'ZVBelege_import'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table 'ZVBelege_import'.
' /// </summary>
Public Class clsZVBelege_import
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
Private m_fBetrag As SqlDouble
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
' /// <LI>sNRREF00. May be SqlString.Null</LI>
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
' /// <LI>sBESAD00. May be SqlString.Null</LI>
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
' /// <LI>sBTBET00. May be SqlString.Null</LI>
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
' /// <LI>sDMARC00. May be SqlString.Null</LI>
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_import_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_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("clsZVBelege_import::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.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_ZVBelege_import_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("ZVBelege_import")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_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("clsZVBelege_import::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 [sNRDOT00]() As SqlString
Get
Return m_sNRDOT00
End Get
Set(ByVal Value As SqlString)
m_sNRDOT00 = Value
End Set
End Property
Public Property [sBEEAD00]() As SqlString
Get
Return m_sBEEAD00
End Get
Set(ByVal Value As SqlString)
m_sBEEAD00 = Value
End Set
End Property
Public Property [sCDVARC00]() As SqlString
Get
Return m_sCDVARC00
End Get
Set(ByVal Value As SqlString)
m_sCDVARC00 = Value
End Set
End Property
Public Property [sNRREF00]() As SqlString
Get
Return m_sNRREF00
End Get
Set(ByVal Value As SqlString)
m_sNRREF00 = Value
End Set
End Property
Public Property [sCDZAH00]() As SqlString
Get
Return m_sCDZAH00
End Get
Set(ByVal Value As SqlString)
m_sCDZAH00 = Value
End Set
End Property
Public Property [sNRPCK00]() As SqlString
Get
Return m_sNRPCK00
End Get
Set(ByVal Value As SqlString)
m_sNRPCK00 = Value
End Set
End Property
Public Property [sNRBCL00]() As SqlString
Get
Return m_sNRBCL00
End Get
Set(ByVal Value As SqlString)
m_sNRBCL00 = Value
End Set
End Property
Public Property [sNEVVG01]() As SqlString
Get
Return m_sNEVVG01
End Get
Set(ByVal Value As SqlString)
m_sNEVVG01 = Value
End Set
End Property
Public Property [sNRDOC00]() As SqlString
Get
Return m_sNRDOC00
End Get
Set(ByVal Value As SqlString)
m_sNRDOC00 = Value
End Set
End Property
Public Property [sBESAD00]() As SqlString
Get
Return m_sBESAD00
End Get
Set(ByVal Value As SqlString)
m_sBESAD00 = Value
End Set
End Property
Public Property [sDMVAL00]() As SqlString
Get
Return m_sDMVAL00
End Get
Set(ByVal Value As SqlString)
m_sDMVAL00 = Value
End Set
End Property
Public Property [sCDWAEAI]() As SqlString
Get
Return m_sCDWAEAI
End Get
Set(ByVal Value As SqlString)
m_sCDWAEAI = Value
End Set
End Property
Public Property [sBTBET00]() As SqlString
Get
Return m_sBTBET00
End Get
Set(ByVal Value As SqlString)
m_sBTBET00 = Value
End Set
End Property
Public Property [sNRPAR00]() As SqlString
Get
Return m_sNRPAR00
End Get
Set(ByVal Value As SqlString)
m_sNRPAR00 = Value
End Set
End Property
Public Property [sNEVVG02]() As SqlString
Get
Return m_sNEVVG02
End Get
Set(ByVal Value As SqlString)
m_sNEVVG02 = Value
End Set
End Property
Public Property [sNEVVG00]() As SqlString
Get
Return m_sNEVVG00
End Get
Set(ByVal Value As SqlString)
m_sNEVVG00 = Value
End Set
End Property
Public Property [sNRPOS00]() As SqlString
Get
Return m_sNRPOS00
End Get
Set(ByVal Value As SqlString)
m_sNRPOS00 = Value
End Set
End Property
Public Property [sNRAUF00]() As SqlString
Get
Return m_sNRAUF00
End Get
Set(ByVal Value As SqlString)
m_sNRAUF00 = Value
End Set
End Property
Public Property [sDMARC00]() As SqlString
Get
Return m_sDMARC00
End Get
Set(ByVal Value As SqlString)
m_sDMARC00 = 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 [daValdat]() As SqlDateTime
Get
Return m_daValdat
End Get
Set(ByVal Value As SqlDateTime)
m_daValdat = Value
End Set
End Property
Public Property [fBetrag]() As SqlDouble
Get
Return m_fBetrag
End Get
Set(ByVal Value As SqlDouble)
m_fBetrag = Value
End Set
End Property
#End Region
End Class
End Namespace

569
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/cls_host_dokument.vb Normal file
View File

@@ -0,0 +1,569 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table '_host_dokument'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 2. Februar 2004, 00:58:05
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' /// <summary>
' /// Purpose: Data Access class for the table '_host_dokument'.
' /// </summary>
Public Class cls_host_dokument
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_sDatumbis, m_sDatumvon1, m_sDatumbis1, m_sPartnernr_inhaber, m_sDokumenttypnr, m_sDatumvon As SqlString
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber</LI>
' /// <LI>sDokumenttypnr</LI>
' /// <LI>sDatumvon. May be SqlString.Null</LI>
' /// <LI>sDatumbis. May be SqlString.Null</LI>
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_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("cls_host_dokument::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber</LI>
' /// <LI>sDokumenttypnr</LI>
' /// <LI>sDatumvon. May be SqlString.Null</LI>
' /// <LI>sDatumbis. May be SqlString.Null</LI>
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("cls_host_dokument::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber</LI>
' /// <LI>sDokumenttypnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("cls_host_dokument::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method using PK field 'partnernr_inhaber'. This method will
' /// delete one or more rows from the database, based on the Primary Key field 'partnernr_inhaber'.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Public Function DeleteWpartnernr_inhaberLogic() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWpartnernr_inhaberLogic]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWpartnernr_inhaberLogic' 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("cls_host_dokument::DeleteWpartnernr_inhaberLogic::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Delete method using PK field 'dokumenttypnr'. This method will
' /// delete one or more rows from the database, based on the Primary Key field 'dokumenttypnr'.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumenttypnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Public Function DeleteWdokumenttypnrLogic() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWdokumenttypnrLogic]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWdokumenttypnrLogic' 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("cls_host_dokument::DeleteWdokumenttypnrLogic::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sPartnernr_inhaber</LI>
' /// <LI>sDokumenttypnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>sPartnernr_inhaber</LI>
' /// <LI>sDokumenttypnr</LI>
' /// <LI>sDatumvon</LI>
' /// <LI>sDatumbis</LI>
' /// <LI>sDatumvon1</LI>
' /// <LI>sDatumbis1</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_SelectOne' 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))
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
If dtToReturn.Rows(0)("datumvon") Is System.DBNull.Value Then
m_sDatumvon = SqlString.Null
Else
m_sDatumvon = New SqlString(CType(dtToReturn.Rows(0)("datumvon"), String))
End If
If dtToReturn.Rows(0)("datumbis") Is System.DBNull.Value Then
m_sDatumbis = SqlString.Null
Else
m_sDatumbis = New SqlString(CType(dtToReturn.Rows(0)("datumbis"), String))
End If
If dtToReturn.Rows(0)("datumvon1") Is System.DBNull.Value Then
m_sDatumvon1 = SqlString.Null
Else
m_sDatumvon1 = New SqlString(CType(dtToReturn.Rows(0)("datumvon1"), String))
End If
If dtToReturn.Rows(0)("datumbis1") Is System.DBNull.Value Then
m_sDatumbis1 = SqlString.Null
Else
m_sDatumbis1 = New SqlString(CType(dtToReturn.Rows(0)("datumbis1"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("cls_host_dokument::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr__host_dokument_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("cls_host_dokument::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 [sDokumenttypnr]() As SqlString
Get
Return m_sDokumenttypnr
End Get
Set(ByVal Value As SqlString)
Dim sDokumenttypnrTmp As SqlString = Value
If sDokumenttypnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDokumenttypnr", "sDokumenttypnr can't be NULL")
End If
m_sDokumenttypnr = Value
End Set
End Property
Public Property [sDatumvon]() As SqlString
Get
Return m_sDatumvon
End Get
Set(ByVal Value As SqlString)
m_sDatumvon = Value
End Set
End Property
Public Property [sDatumbis]() As SqlString
Get
Return m_sDatumbis
End Get
Set(ByVal Value As SqlString)
m_sDatumbis = Value
End Set
End Property
Public Property [sDatumvon1]() As SqlString
Get
Return m_sDatumvon1
End Get
Set(ByVal Value As SqlString)
m_sDatumvon1 = Value
End Set
End Property
Public Property [sDatumbis1]() As SqlString
Get
Return m_sDatumbis1
End Get
Set(ByVal Value As SqlString)
m_sDatumbis1 = Value
End Set
End Property
#End Region
End Class
End Namespace

30
EDKB01DB2/Archiv/EDKB01DB2/SQLDB/db_connection.vb Normal file
View File

@@ -0,0 +1,30 @@
Imports System
Imports System.Collections.Specialized
Imports System.Collections.ObjectModel
Imports System.Collections
Imports System.Text
Imports System.Configuration
Namespace EDOKA
Public Class DB_Connection
Shared Sub New()
Dim PrefDatasource As String = "Data Source="
Dim PrefInitialCat As String = ";Initial Catalog="
Dim PrefPersist As String = ";Persist Security Info=True"
Dim PrefUserID As String = ";User ID="
Dim PrefPassword As String = ";Password="
sConnectionString_Host = PrefDatasource + My.Settings.DataSource + PrefInitialCat + My.Settings.HOSTConn + PrefPersist + PrefUserID + My.Settings.UserID + PrefPassword + My.Settings.Password
sConnectionString_ZV = PrefDatasource + My.Settings.DataSource + PrefInitialCat + My.Settings.ZVConn + PrefPersist + PrefUserID + My.Settings.UserID + PrefPassword + My.Settings.Password
sConnectionstring_BL = PrefDatasource + My.Settings.DataSource + PrefInitialCat + My.Settings.BLConn + PrefPersist + PrefUserID + My.Settings.UserID + PrefPassword + My.Settings.Password
sConnectionString_journale = PrefDatasource + My.Settings.DataSource + PrefInitialCat + My.Settings.JournaleConn + PrefPersist + PrefUserID + My.Settings.UserID + PrefPassword + My.Settings.Password
sConnectionstring_DB2 = My.Settings.DB2Connection
conn_host.sConnectionString = sConnectionString_Host
conn_bl.sConnectionString = sConnectionstring_BL
conn_zv.sConnectionString = sConnectionString_ZV
conn_journale.sConnectionString = sConnectionString_journale
End Sub
End Class
End Namespace

11
EDKB01DB2/Archiv/EDKB01DB2/Settings.vb Normal file
View File

@@ -0,0 +1,11 @@
Namespace My
'Diese Klasse ermöglicht die Behandlung bestimmter Ereignisse der Einstellungsklasse:
' Das SettingChanging-Ereignis wird ausgelöst, bevor der Wert einer Einstellung geändert wird.
' Das PropertyChanged-Ereignis wird ausgelöst, nachdem der Wert einer Einstellung geändert wurde.
' Das SettingsLoaded-Ereignis wird ausgelöst, nachdem die Einstellungswerte geladen wurden.
' Das SettingsSaving-Ereignis wird ausgelöst, bevor die Einstellungswerte gespeichert werden.
Partial Friend NotInheritable Class MySettings
End Class
End Namespace

77
EDKB01DB2/Archiv/EDKB01DB2/app - Kopieren.config Normal file
View File

@@ -0,0 +1,77 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=*shu29</value>
</setting>
<setting name="AnzahlRows" serializeAs="String">
<value>1000</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select * from odadm.thostindex where nrstatus=10 fetch first 1000 rows only</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>Select * from odadm.thostindex where nrstatus=10 fetch first 1000 rows only</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>Select * from odadm.tblindex where nrstatus=10 fetch first 1000 rows only</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update oadm.thostindex set nrstatus=20, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update oadm.tzvindex set nrstatus=20, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update oadm.tblindex set nrstatus=20, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

152
EDKB01DB2/Archiv/EDKB01DB2/app.config Normal file
View File

@@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=iFqo,UZLZo</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where NRDOC00='&amp;NRDOC00&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument where Dokumentid='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/BMS.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/BMS.pdb Normal file
View File

Binary file not shown.

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/BMS.xml Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
BMS
</name>
</assembly>
<members>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Common.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Common.pdb Normal file
View File

Binary file not shown.

22
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Common.xml Normal file
View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Common
</name>
</assembly>
<members>
<member name="M:Common.Settings.GetSettingValue(System.String)">
<summary>Gets the first matching value of a property</summary>
<param name="propertyName"></param>
<returns></returns>
</member><member name="M:Common.Settings.SetSettingsValue(System.String,System.String)">
<summary>Sets the first matching value of a property</summary>
<param name="xpath"></param>
<param name="value"></param>
</member><member name="M:Common.Settings.GetDecryptedDSN">
<summary>Return the descripted dsn string</summary>
<returns></returns>
</member>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/DataAccess.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/DataAccess.pdb Normal file
View File

Binary file not shown.

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/DataAccess.xml Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DataAccess
</name>
</assembly>
<members>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.exe Normal file
View File

Binary file not shown.

150
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.exe.config Normal file
View File

@@ -0,0 +1,150 @@
<?xml version="1.0" standalone="yes"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog" />
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
</sharedListeners>
</system.diagnostics>
<startup>
<supportedRuntime version="v2.0.50727" />
</startup>
<userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=A2134$23</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where NRDOC00='&amp;NRDOC00&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument where Dokumentid='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

152
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.exe.config.bak Normal file
View File

@@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=*shu29</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=50</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from odadm.tdelhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from odadm.tdelzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from odadm.tdelblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data where loadid='&amp;loadid&amp;' and pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_data where loadid='&amp;loadid&amp;' and pk=&amp;PK&amp; and nrdoc00='&amp;DOKID%'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.pdb Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.vshost.exe Normal file
View File

Binary file not shown.

150
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.vshost.exe.config Normal file
View File

@@ -0,0 +1,150 @@
<?xml version="1.0" standalone="yes"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog" />
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
</sharedListeners>
</system.diagnostics>
<startup>
<supportedRuntime version="v2.0.50727" />
</startup>
<userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=A2134$23</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where NRDOC00='&amp;NRDOC00&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument where Dokumentid='&amp;MailingID&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

152
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.vshost.exe.config.bak Normal file
View File

@@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=*shu29</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where dokumentid='&amp;Mailingid&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where nrdoc00='&amp;nrdoc00&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument where dokumentid='&amp;Mailingid&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.vshost.exe.manifest Normal file
View File

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

24
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/EDKB01DB2.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB01DB2
</name>
</assembly>
<members>
<member name="P:EDKB01DB2.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:EDKB01DB2.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:EDKB01DB2.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

5
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Error.txt Normal file
View File

@@ -0,0 +1,5 @@
Fehler: 18.02.2015 06:45:47
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Fehler: 02.09.2015 15:55:30
Fehlertext:ODBC-Connection: dsn=edokadsn;uid=sa;pwd=iFqo,UZLZo: ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Fehler bei der Anmeldung für den Benutzer 'sa'.
ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Fehler bei der Anmeldung für den Benutzer 'sa'.

59884
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/HOST_Update.txt Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/IBM.Data.DB2.dll Normal file
View File

Binary file not shown.

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_BL.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 ZV
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_Host.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 HOST
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_Host_Delete.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 HOST
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_Host_Update_Loadid.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 HOST UDOKID
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_ZV.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 ZV
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_ZV_Delete.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 ZV DEL
Pause

2
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/Start_ZV_Update_Loadid.bat Normal file
View File

@@ -0,0 +1,2 @@
edkb01db2 ZV UDOKID
Pause

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/ZpCryptography.dll Normal file
View File

Binary file not shown.

1
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/bms_conn.cfg Normal file
View File

@@ -0,0 +1 @@
¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼‘–’¥¾©¿È®¿ÀeÅ­¸ÉÆ®ÆÎn­»»´‰’¦¾»ºË´ÄÀÁ¸®É®»ºe»¬’Ä¦µÀ³¸mȮƱ‚†xŽŠºÅºÀd¶¹‚¿­€Â©ÈÇ˴Ĺ‹nÀ½º~…€

46
EDKB01DB2/Archiv/EDKB01DB2/bin/Debug/bms_settings.xml Normal file
View File

@@ -0,0 +1,46 @@
<?xml version="1.0" encoding="utf-8" ?>
<root>
<config>
<!-- The maximum duration a start job can take before a starter error occures -->
<MaximumStartDuration>1</MaximumStartDuration>
<!-- Check interval in minutes for starter -->
<StartJobInterval>1</StartJobInterval>
<!-- Check interval in minutes for watcher -->
<WatchJobInterval>1</WatchJobInterval>
<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
<MaxStarterNotifications>2</MaxStarterNotifications>
<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
<MaxWatcherNotifications>3</MaxWatcherNotifications>
<!-- Name of the system event log where service should write his entries -->
<EventLogName>EDKB10</EventLogName>
<!-- The target where messages should be written to.
Valid log targets are:
- 1: System EventLog
- 2: Database EventLog table
-->
<LogTarget>1</LogTarget>
<!-- Mail Server to send eMails from BMS -->
<MailServer>administrator@test24.ch</MailServer>
<!-- Mail sender name -->
<MailFrom>administrator@test24.ch</MailFrom>
<!-- Mail Server authentication method.
Valid methods are:
- 0: Anonymous
- 1: Basic Authentication (clear text authentication!)
-->
<MailServerAuth>
<Method>0</Method>
<UserName>mailUser</UserName>
<Password>mailPassword</Password>
</MailServerAuth>
</config>
</root>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/BMS.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/BMS.pdb Normal file
View File

Binary file not shown.

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/BMS.xml Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
BMS
</name>
</assembly>
<members>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/Common.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/Common.pdb Normal file
View File

Binary file not shown.

22
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/Common.xml Normal file
View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Common
</name>
</assembly>
<members>
<member name="M:Common.Settings.GetSettingValue(System.String)">
<summary>Gets the first matching value of a property</summary>
<param name="propertyName"></param>
<returns></returns>
</member><member name="M:Common.Settings.SetSettingsValue(System.String,System.String)">
<summary>Sets the first matching value of a property</summary>
<param name="xpath"></param>
<param name="value"></param>
</member><member name="M:Common.Settings.GetDecryptedDSN">
<summary>Return the descripted dsn string</summary>
<returns></returns>
</member>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/DataAccess.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/DataAccess.pdb Normal file
View File

Binary file not shown.

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/DataAccess.xml Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DataAccess
</name>
</assembly>
<members>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.exe Normal file
View File

Binary file not shown.

152
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.exe.config Normal file
View File

@@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=*shu29</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where loadid='&amp;LoadID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where LoadID='&amp;LoadID&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument whereLoadid='&amp;Loadid&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.pdb Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.vshost.exe Normal file
View File

Binary file not shown.

152
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.vshost.exe.config Normal file
View File

@@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDKB01DB2.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<EDKB01DB2.My.MySettings>
<setting name="UserID" serializeAs="String">
<value>sa</value>
</setting>
<setting name="Password" serializeAs="String">
<value>*shu29</value>
</setting>
<setting name="BLConn" serializeAs="String">
<value>edoka</value>
</setting>
<setting name="HOSTConn" serializeAs="String">
<value>edoka_host</value>
</setting>
<setting name="ZVConn" serializeAs="String">
<value>edoka_zv</value>
</setting>
<setting name="JournaleConn" serializeAs="String">
<value>edoka_journale</value>
</setting>
<setting name="DataSource" serializeAs="String">
<value>shu00</value>
</setting>
<setting name="DB2Connection" serializeAs="String">
<value>dsn=edokadsn;uid=sa;pwd=*shu29</value>
</setting>
<setting name="DB2HostSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.hostindex where nrstatus=10</value>
</setting>
<setting name="DB2ZVSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.zvindex where nrstatus=10</value>
</setting>
<setting name="DB2BLSelect" serializeAs="String">
<value>select top 5000 * from db2.dbo.blindex where nrstatus=10</value>
</setting>
<setting name="MaxRows" serializeAs="String">
<value>9999999</value>
</setting>
<setting name="Debug" serializeAs="String">
<value>False</value>
</setting>
<setting name="DB2HOSTUpdate" serializeAs="String">
<value>Update db2.dbo.hostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdate" serializeAs="String">
<value>Update db2.dbo.zvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdate" serializeAs="String">
<value>Update db2.dbo.blindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="OKStatus" serializeAs="String">
<value>20</value>
</setting>
<setting name="ProvStatus" serializeAs="String">
<value>50</value>
</setting>
<setting name="OKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="NOKMail" serializeAs="String">
<value>edoka@tkb.ch</value>
</setting>
<setting name="SQL_Empty_ZV" serializeAs="String">
<value>Select top 1 * from edoka_ZV.dbo.ZVBelege_Import where pk=-1</value>
</setting>
<setting name="SQL_Empty_BL" serializeAs="String">
<value>Select top 1 * from edoka.dbo.edex_bl_hostdokument where EDEX_BL_HostdokumentID=-1</value>
</setting>
<setting name="SQL_HOST_Update_Loadid" serializeAs="String">
<value>Update edoka_host.dbo.host_dokument_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and Dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_Empty_HOST" serializeAs="String">
<value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
</setting>
<setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
<value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where loadid='&amp;LoadID&amp;'</value>
</setting>
<setting name="SQL_ZV_Check_Dokumentid" serializeAs="String">
<value>select nrdoc00, pk from edoka_zv.dbo.zvbelege_import where LoadID='&amp;LoadID&amp;'</value>
</setting>
<setting name="SQL_ZV_Update_LoadID" serializeAs="String">
<value>Update edoka_zv.dbo.zvbelege_import set loadid='&amp;Loadid&amp;' where pk=&amp;PK&amp; and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Check_Dokumentid" serializeAs="String">
<value>Select dokumentid from edoka.dbo.edex_bl_hostdokument whereLoadid='&amp;Loadid&amp;'</value>
</setting>
<setting name="SQL_BL_Update_Loadid" serializeAs="String">
<value>Update edoka.dbo.edex_bl_hostdokument set loadid='&amp;Loadid&amp;' where dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="OKStatauDelete" serializeAs="String">
<value>21</value>
</setting>
<setting name="ProvStatusDelete" serializeAs="String">
<value>51</value>
</setting>
<setting name="DB2HOSTSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delhostindex where nrstatus=11</value>
</setting>
<setting name="DB2ZVSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delzvindex where nrstatus=11</value>
</setting>
<setting name="DB2BLSelectDelete" serializeAs="String">
<value>Select * from db2.dbo.delblindex where nrstatus=11</value>
</setting>
<setting name="DB2HOSTUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delhostindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2ZVUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delzvindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="DB2BLUpdateDelete" serializeAs="String">
<value>Update db2.dbo.delblindex set nrstatus=&amp;NRSTATUS&amp;, dmmuta00='&amp;DMMUTA00&amp;' where udokid00='&amp;UDOKID&amp;'</value>
</setting>
<setting name="SQL_HOST_Delete" serializeAs="String">
<value>Delete from edoka_host.dbo.host_dokument_data_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_ZV_Delete" serializeAs="String">
<value>delete from edoka_zv.dbo.zvbelege_import where pk=&amp;PK&amp; and loadid='&amp;Loadid&amp;' and nrdoc00='&amp;DOKID&amp;'</value>
</setting>
<setting name="SQL_BL_Delete" serializeAs="String">
<value>delete from edoka.dbo.edex_bl_hostdokument where loadid='&amp;Loadid&amp;' and dokumentid='&amp;DOKID&amp;'</value>
</setting>
</EDKB01DB2.My.MySettings>
</userSettings>
</configuration>

11
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.vshost.exe.manifest Normal file
View File

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

24
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/EDKB01DB2.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB01DB2
</name>
</assembly>
<members>
<member name="P:EDKB01DB2.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:EDKB01DB2.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:EDKB01DB2.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/IBM.Data.DB2.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/bin/Release/ZpCryptography.dll Normal file
View File

Binary file not shown.

53
EDKB01DB2/Archiv/EDKB01DB2/clsLog.vb Normal file
View File

@@ -0,0 +1,53 @@
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class clsLog
Dim m_journalid As Long
Dim m_applikationid As Long
Dim clsapplikation As New edokadb.clsApplikation()
Dim clsjournal As New edokadb.clsJournal()
Dim clsjournaleintrag As New edokadb.clsJournaleintrag()
Public Sub Startlog(ByVal ApplicationID As Integer)
clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
clsapplikation.cpMainConnectionProvider = conn_journale
clsapplikation.SelectOne()
Me.m_applikationid = clsapplikation.iApplikationnr.Value
clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
clsjournal.cpMainConnectionProvider = conn_journale
conn_journale.OpenConnection()
clsjournal.Insert()
Me.m_journalid = clsjournal.iJournalnr.Value
conn_journale.CloseConnection(True)
End Sub
Public Sub InsertJournale(ByVal Message As String)
clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
clsjournaleintrag.cpMainConnectionProvider = conn_journale
Console.WriteLine(Message)
conn_journale.OpenConnection()
clsjournaleintrag.Insert()
conn_journale.CloseConnection(True)
End Sub
Public Sub StopLog(ByVal applicationid As Integer)
clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
clsapplikation.cpMainConnectionProvider = conn_journale
clsapplikation.SelectOne()
clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
conn_journale.OpenConnection()
clsapplikation.Update()
conn_journale.CloseConnection(True)
End Sub
End Class

1
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
97b79c71f2b8f4eca5192e5bd2b373daf395f509

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.exe Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.pdb Normal file
View File

Binary file not shown.

1
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
1e7f0e2eec733db5dec20123f63e820180128b8e

21
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,21 @@
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\EDKB01DB2.exe
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\EDKB01DB2.pdb
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\EDKB01DB2.xml
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\BMS.dll
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\Common.dll
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\DataAccess.dll
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\ZpCryptography.dll
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\BMS.pdb
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\BMS.xml
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\Common.pdb
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\Common.xml
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\DataAccess.pdb
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\DataAccess.xml
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.exe
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.xml
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.pdb
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\EDKB01DB2.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\IBM.Data.DB2.dll
E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\obj\Debug\EDKB01DB2.vbprojResolveAssemblyReference.cache

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.vbproj.GenerateResource.Cache Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

24
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/EDKB01DB2.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB01DB2
</name>
</assembly>
<members>
<member name="P:EDKB01DB2.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:EDKB01DB2.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:EDKB01DB2.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
EDKB01DB2/Archiv/EDKB01DB2/obj/Release/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More