commit cd4d5f55f131fa5b1d6b22da6767169b99d4da09 Author: Stefan Hutter Date: Tue Dec 27 08:48:16 2022 +0100 Initial diff --git a/.vs/EDKB08/v14/.suo b/.vs/EDKB08/v14/.suo new file mode 100644 index 0000000..a09528d Binary files /dev/null and b/.vs/EDKB08/v14/.suo differ diff --git a/.vs/EDKB08/v15/.suo b/.vs/EDKB08/v15/.suo new file mode 100644 index 0000000..a2301f5 Binary files /dev/null and b/.vs/EDKB08/v15/.suo differ diff --git a/.vs/EDKB08/v15/Server/sqlite3/db.lock b/.vs/EDKB08/v15/Server/sqlite3/db.lock new file mode 100644 index 0000000..e69de29 diff --git a/.vs/EDKB08/v15/Server/sqlite3/storage.ide b/.vs/EDKB08/v15/Server/sqlite3/storage.ide new file mode 100644 index 0000000..c3c2a18 Binary files /dev/null and b/.vs/EDKB08/v15/Server/sqlite3/storage.ide differ diff --git a/.vs/EDKB08/v16/.suo b/.vs/EDKB08/v16/.suo new file mode 100644 index 0000000..8fadd56 Binary files /dev/null and b/.vs/EDKB08/v16/.suo differ diff --git a/.vs/EDKB08/v16/Server/sqlite3/db.lock b/.vs/EDKB08/v16/Server/sqlite3/db.lock new file mode 100644 index 0000000..e69de29 diff --git a/.vs/EDKB08/v16/Server/sqlite3/storage.ide b/.vs/EDKB08/v16/Server/sqlite3/storage.ide new file mode 100644 index 0000000..2b0707d Binary files /dev/null and b/.vs/EDKB08/v16/Server/sqlite3/storage.ide differ diff --git a/.vs/EDKB08/v17/.suo b/.vs/EDKB08/v17/.suo new file mode 100644 index 0000000..a3ad774 Binary files /dev/null and b/.vs/EDKB08/v17/.suo differ diff --git a/AssemblyInfo.vb b/AssemblyInfo.vb new file mode 100644 index 0000000..8098d62 --- /dev/null +++ b/AssemblyInfo.vb @@ -0,0 +1,31 @@ +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen ber eine Assembly werden ber die folgende +' Attributgruppe gesteuert. ndern Sie diese Attributwerte, um Informationen, +' die mit einer Assembly verknpft sind, zu bearbeiten. + +' Die Werte der Assemblyattribute berprfen + + + + + + + + + +'Die folgende GUID ist fr die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird + + +' Versionsinformationen fr eine Assembly bestehen aus den folgenden vier Werten: +' +' Haupversion +' Nebenversion +' Buildnummer +' Revisionsnummer +' +' Sie knnen alle Werte angeben oder auf die standardmigen Build- und Revisionsnummern +' zurckgreifen, indem Sie '*' wie unten angezeigt verwenden: + + diff --git a/EDKB08.sln b/EDKB08.sln new file mode 100644 index 0000000..41c1595 --- /dev/null +++ b/EDKB08.sln @@ -0,0 +1,42 @@ +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.26228.4 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08", "EDKB08.vbproj", "{1607A887-77A7-475C-BDCC-81B033A314AD}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF", "..\EDKB08_GSF\EDKB08_GSF.vbproj", "{190A0F46-BF30-4589-8003-361256BCA6F1}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF_Tester", "..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj", "{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_VitruvTransfer", "..\EDKB08_VitruvTransfer\EDKB08_VitruvTransfer.vbproj", "{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.Build.0 = Debug|Any CPU + {1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.ActiveCfg = Release|Any CPU + {1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.Build.0 = Release|Any CPU + {190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.Build.0 = Debug|Any CPU + {190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.ActiveCfg = Release|Any CPU + {190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.Build.0 = Release|Any CPU + {9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.Build.0 = Debug|Any CPU + {9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.ActiveCfg = Release|Any CPU + {9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.Build.0 = Release|Any CPU + {1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.Build.0 = Debug|Any CPU + {1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.ActiveCfg = Release|Any CPU + {1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + VisualSVNWorkingCopyRoot = .. + EndGlobalSection +EndGlobal diff --git a/EDKB08.v12.suo b/EDKB08.v12.suo new file mode 100644 index 0000000..7986b00 Binary files /dev/null and b/EDKB08.v12.suo differ diff --git a/EDKB08.vbproj b/EDKB08.vbproj new file mode 100644 index 0000000..392da3b --- /dev/null +++ b/EDKB08.vbproj @@ -0,0 +1,293 @@ + + + + Local + 8.0.50727 + 2.0 + {1607A887-77A7-475C-BDCC-81B033A314AD} + + + + + + + + + Debug + AnyCPU + + + + + EDKB08 + + + None + JScript + Grid + IE50 + false + WinExe + Binary + On + Off + EDKB08 + EDKB08.Service1 + + + Console + + + false + v2.0 + 2.0 + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 2.0.0.%2a + false + true + + + bin\ + EDKB08.xml + 285212672 + + + + + true + true + true + false + false + false + false + 1 + 42016,42017,42018,42019,42032,42353,42354,42355 + full + AnyCPU + + + bin\ + EDKB08.xml + 285212672 + + + + + true + true + false + true + false + false + false + 1 + 42016,42017,42018,42019,42032,42353,42354,42355 + None + x86 + + + My Project\app.manifest + + + + False + ..\EDKB08_GSF\bin\EDKB08_GSF.dll + + + System + + + System.Configuration.Install + + + System.Data + + + + + System.Drawing + + + System.ServiceProcess + + + system.windows.forms + + + System.XML + + + + + + + + + + + + Code + + + Code + + + Code + + + Code + + + Code + + + + Code + + + Code + + + Code + + + Code + + + Code + + + Code + + + + Code + + + Code + + + Code + + + Code + + + + Code + + + Code + + + Code + + + + Code + + + Code + + + Code + + + Code + + + Code + + + Code + + + Code + + + Code + + + + Code + + + Code + + + Code + + + True + True + Settings.settings + + + Component + + + Component + + + + ProjectInstaller.vb + Designer + + + Service1.vb + + + + + Journal.xsd + + + + + My + SettingsSingleFileGenerator + Settings.Designer.vb + + + + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 2.0 + true + + + False + .NET Framework 3.5 SP1 + false + + + + + + + + + + + \ No newline at end of file diff --git a/EDKB08.vbproj.user b/EDKB08.vbproj.user new file mode 100644 index 0000000..aec8638 --- /dev/null +++ b/EDKB08.vbproj.user @@ -0,0 +1,6 @@ + + + + false + + \ No newline at end of file diff --git a/EDKB08.vbproj.vspscc b/EDKB08.vbproj.vspscc new file mode 100644 index 0000000..feffdec --- /dev/null +++ b/EDKB08.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/EDKB08.vssscc b/EDKB08.vssscc new file mode 100644 index 0000000..794f014 --- /dev/null +++ b/EDKB08.vssscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT" +} diff --git a/GitInit.bat b/GitInit.bat new file mode 100644 index 0000000..91f21bf --- /dev/null +++ b/GitInit.bat @@ -0,0 +1,5 @@ +git init +git commit -m "first commit" +git remote add origin git@localhost:shu/EDKB08_DMS.git +git push -u origin main +pause \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..d10d86f --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,85 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Public Property Setting() As String + Get + Return CType(Me("Setting"), String) + End Get + Set(value As String) + Me("Setting") = value + End Set + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.EDKB08.My.MySettings + Get + Return Global.EDKB08.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..c86ba90 --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file diff --git a/My Project/app.manifest b/My Project/app.manifest new file mode 100644 index 0000000..5595e67 --- /dev/null +++ b/My Project/app.manifest @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/ProjectInstaller.resx b/ProjectInstaller.resx new file mode 100644 index 0000000..e99665d --- /dev/null +++ b/ProjectInstaller.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 1.3 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Assembly + + + 17, 17 + + + Assembly + + + 188, 17 + + + ProjectInstaller + + + False + + \ No newline at end of file diff --git a/ProjectInstaller.vb b/ProjectInstaller.vb new file mode 100644 index 0000000..ca0d92e --- /dev/null +++ b/ProjectInstaller.vb @@ -0,0 +1,60 @@ +Imports System.ComponentModel +Imports System.Configuration.Install + + Public Class ProjectInstaller + Inherits System.Configuration.Install.Installer + +#Region " Vom Component Designer generierter Code " + + Public Sub New() + MyBase.New() + + ' Dieser Aufruf ist fr den Komponenten-Designer erforderlich. + InitializeComponent() + + ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufgen + + End Sub + + 'Installer berschreibt den Lschvorgang zum Bereinigen der Komponentenliste. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + ' Fr Komponenten-Designer erforderlich + Private components As System.ComponentModel.IContainer + + 'HINWEIS: Die folgende Prozedur ist fr den Komponenten-Designer erforderlich + 'Sie kann mit dem Komponenten-Designer modifiziert werden. + 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. + Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller + Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller + Private Sub InitializeComponent() + Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller() + Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller() + ' + 'ServiceProcessInstaller1 + ' + Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem + Me.ServiceProcessInstaller1.Password = Nothing + Me.ServiceProcessInstaller1.Username = Nothing + ' + 'ServiceInstaller1 + ' + Me.ServiceInstaller1.DisplayName = "EDKB08WS" + Me.ServiceInstaller1.ServiceName = "EDKB08WS" + ' + 'ProjectInstaller + ' + Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1}) + + End Sub + +#End Region + +End Class diff --git a/Service1.resx b/Service1.resx new file mode 100644 index 0000000..d6a87e6 --- /dev/null +++ b/Service1.resx @@ -0,0 +1,187 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 1.3 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + Assembly + + + + AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/ + AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + /////////////////9/////f//+f3///h9///4Hf///AX/gAAB/4AAAf///AX///gd///4ff+/+f3/v/ + /9/7+f/f++H///uB///6A///+AAAH/gAAB/6A///+4H///vh///7+f//+/////v///////////////// + //8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA + AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP/7 + AAD/OwAA/4sAAMADAAD/iwAA/zsAAN/7AADf/wAA3P8AANH/AADAAwAA0f8AANz/AADf/wAA//8AAA== + + + + Assembly + + + 126, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw + MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT + eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA + AABoCQAAAk1TRnQBSQFMAgEBAwEAAQUBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQC + AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB + 3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB + AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B + MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC + AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC + AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB + ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B + AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB + MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB + MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB + MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB + mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB + ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB + zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB + mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB + mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB + AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB + /wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB + mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC + AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB + AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C + AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB + mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB + AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB + /wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC + /wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC + /wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB + AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AiwAB + 7AL7AewMAAHsAgIB7AwAAewCAgHsGwAB7AH7AvoB+wHsCgAB7AQCAewKAAHsBAIB7BcAA+wBAAH7AvoB + +wEAA+wEAAHsAQAB7AEABAIBAAHsAQAB7AQAAewBAAHsAQAEAgEAAewBAAHsFwAB7AEAAvsBAAHsCgAB + 7AEAAgIBAAHsCgAB7AEAAgIBAAHsKwAB7AIDAewMAAHsAgAB7BsAAewBAAIDAQAB7AoAAewBAwL7AQMB + 7AoAAewBAAIDAQAB7BcAA+wBAAQDAQAD7AQAAewBAAHsAQAE+wEAAewBAAHsBAAB7AEAAewBAAQDAQAB + 7AEAAewZAAIDDAAB7AEDAvsBAwHsCgAB7AEAAgMBAAHsGgAB7AQAAewLAAHsAgMB7AwAAewCAAHsHQAC + AQwAAewBAAIBAQAB7AoAAewBAAL5AQAB7BoAAewEAQHsCwAEAQwABPkYAAPsAQAEAQEAA+wFAAHsAQAB + 7AQBAewBAAHsBgAB7AEAAewE+QHsAQAB7BgAAuwCAQLsCwAB7AIBAewMAAHsAvkB7FYAAUIBTQE+BwAB + PgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+BAAH8AT8B/AE/AfwBPwIAAfgBHwH4AR8B+AEfAgAB + 4AEHAeABBwHgAQcCAAHAAQMBwAEDAcABAwIAAYABAQGAAQEBgAEBAgABgAEBAYABAQGAAQECAAHwAQ8B + 8AEPAfABDwIAAcABAwHAAQMBwAEDAgABgAEBAYABAQGAAQECAAGAAQEBgAEBAYABAQIAAfABDwHwAQ8B + 8AEPAgAB4AEHAeABBwHgAQcCAAHAAQMBwAEDAcABAwIAAYABAQGAAQEBgAEBAgABgAEBAYABAQGAAQEC + AAH4AR8B+AEfAfgBHwIACw== + + + + False + + + Service1 + + \ No newline at end of file diff --git a/Service1.vb b/Service1.vb new file mode 100644 index 0000000..b9395ed --- /dev/null +++ b/Service1.vb @@ -0,0 +1,991 @@ +Imports System.ServiceProcess +Imports System.Threading +Imports System.IO +Imports System.Reflection +Imports System.IO.File +Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.ComponentModel +Imports System +Imports System.SystemException +Imports System.Web.Mail +Imports System.Timers +Imports System.Collections.Generic + +''' +Public Class Service1 + Inherits System.ServiceProcess.ServiceBase + +#Region " Vom Component Designer generierter Code " + + Public Sub New() + MyBase.New() + + ' Dieser Aufruf wird vom Komponenten-Designer bentigt. + InitializeComponent() + + + ' Fgen Sie Initialisierungscode hinter dem InitializeComponent()-Aufruf ein + + End Sub + + 'UserService berschreibt den Lschvorgang zum Bereinigen der Komponentenliste. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + ' Der Haupteinstiegspunkt fr den Vorgang + + Shared Sub Main() + +#If CONFIG = "Release" Then + Dim ServicesToRun() As System.ServiceProcess.ServiceBase + ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()} + System.ServiceProcess.ServiceBase.Run(ServicesToRun) +#Else + + Dim myServ As New Service1 + myServ.OnStart({""}) + While (True) + System.Threading.Thread.Sleep(2000) + End While +#End If + '#If DEBUG Then + ' Dim myServ As New Service1() + ' myServ.OnStart({""}) + ' While (True) + ' System.Threading.Thread.Sleep(2000) + ' End While + + '#Else + ' Dim ServicesToRun() As System.ServiceProcess.ServiceBase + ' ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()} + ' System.ServiceProcess.ServiceBase.Run(ServicesToRun) + '#End If + + 'Dim ServicesToRun() As System.ServiceProcess.ServiceBase + + 'ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()} + + 'System.ServiceProcess.ServiceBase.Run(ServicesToRun) + + + + + + End Sub + + ' Fr Komponenten-Designer erforderlich + Private components As System.ComponentModel.IContainer + + ' HINWEIS: Die folgende Prozedur wird vom Komponenten-Designer bentigt. + ' Sie kann mit dem Komponenten-Designer modifiziert werden. Verwenden Sie nicht + ' den Code-Editor zur Bearbeitung. + 'Friend WithEvents ServiceIcon As System.Windows.Forms.NotifyIcon + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Service1)) + 'Me.ServiceIcon = New System.Windows.Forms.NotifyIcon(Me.components) + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + ' + 'ServiceIcon + ' + 'Me.ServiceIcon.Icon = CType(resources.GetObject("ServiceIcon.Icon"), System.Drawing.Icon) + 'Me.ServiceIcon.Text = "EDKB08WS" + 'Me.ServiceIcon.Visible = True + ' + 'ImageList1 + ' + Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit + Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16) + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + ' + 'Service1 + ' + Me.ServiceName = "Service1" + + End Sub + +#End Region + +#Region "Deklarationen" + Private StopThread As Boolean = False + '''Variable mit dem Namen des zu berwachenden Verzeichnises + Dim Watch_Directory As String + '''FileSystemWatcher + '''Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis + '''(Watch_Directory) + Dim FileWatch As New FileSystemWatcher() + + '''Varaible zum Zwischenspeichern der Indexdaten einer + '''Indexdaten-Datei + Dim indexdata As DataTable + + '''Timer zur Auslsung der tglichen Journalaufbereitung + Dim WithEvents JournalTimer As New Timers.Timer() + + 'Anpassungen GSF + Dim WithEvents GSF_Timer As New Timers.Timer() + + Dim WithEvents DirectoryTimer As New Timers.Timer() + + +#End Region + +#Region "Hauptverarbeitung" + + '''Start des Dienstes EDKB08WS + '''Beim Start des Dienstes werden neben dem Einlesen der Parameter der + '''Journaltimer sowie der Systemfilewatcher zur Verzeichnisberwachung + '''initialisiert. + ''' + Protected Overrides Sub OnStart(ByVal args() As String) + Try + 'Dim bmp As New Bitmap(Me.ImageList1.Images(2)) + 'ServiceIcon.Icon = Icon.FromHandle(bmp.GetHicon()) + 'ServiceIcon.Visible = True + 'ServiceIcon.Text = "Starting ..." + + PrintOut("Start EDKB08") + + 'Parameter auslesen + If Params.Loadparameters = False Then + PrintOut(Params.Meldung) + PrintOut("Verarbeitung abgebrochen") + Exit Sub + Else + GSF_Timer.Interval = Params.Prop_gsf_TimerInterval +#If CONFIG = "Release" Then + + GSF_Timer.Enabled = GSF_Timer.Interval > 60000 +#Else + GSF_Timer.Enabled = GSF_Timer.Interval > 60000 +#End If + + DirectoryTimer.Interval = Params.DirectoryTimer_Intervall + DirectoryTimer.Enabled = True + Watch_Directory = Params.Inputverzeichnis + PrintOut(Params.Meldung) + PrintOut("Parameter:") + PrintOut("berwachtes Verzeichnis: " + Params.Inputverzeichnis) + PrintOut("E-Mail OK: " + Params.MailAdresseOK) + PrintOut("E-Mail NOK:" + Params.MailAdresseNOK) + PrintOut("GSF_Timer:" + Params.Prop_gsf_TimerInterval.ToString) + PrintOut("GSF_ConfigPath:" + Params.Prop_gsf_ConfigPath) + End If + 'Datenbank initialisieren + Dim db_conn As New edokadb.DB_Connection() + JournalTimer.Interval = Params.JournalTimer_Time +#If CONFIG = "Release" Then + JournalTimer.Enabled = True + +#Else + Dim a As Integer = 1 + JournalTimer.Enabled = True +#End If + + + PrintOut("Journaltimer initialisiert. Eventhalndler alle " + LTrim(Str(JournalTimer.Interval / (1000 * 60))) + " Minuten") + + 'Verzeichnis-berwachung initialisieren und starten + If Not Init_Filewatcher() Then + Printout("Verarbeitung gestoppt", EventLogEntryType.Error) + End If + If Not Start_Watching() Then + Printout("Verarbeitung gestoppt", EventLogEntryType.Error) + Exit Sub + End If + 'Dim bmp1 As New Bitmap(Me.ImageList1.Images(1)) + 'ServiceIcon.Icon = Icon.FromHandle(bmp1.GetHicon()) + 'ServiceIcon.Text = "Waiting ..." + Catch ex As Exception + ' Dim bmp1 As New Bitmap(Me.ImageList1.Images(2)) + 'ServiceIcon.Icon = Icon.FromHandle(bmp1.GetHicon()) + Printout("Fehler beim Start von EDKB08" + ex.Message, EventLogEntryType.Error) + End Try + End Sub + + Protected Overrides Sub OnStop() + ' Dim bmp1 As New Bitmap(Me.ImageList1.Images(2)) + 'ServiceIcon.Icon = Icon.FromHandle(bmp1.GetHicon()) + 'ServiceIcon.Text = "Stopping..." + End Sub + +#End Region + +#Region "FileWatcher" + + '''Initialisierung des Filewacher-Objektes + '''Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie + '''Dateifilter-Angaben initialisiert. + Private Function Init_Filewatcher() As Boolean + Try + FileWatch.Path = Watch_Directory + FileWatch.IncludeSubdirectories = False + FileWatch.Filter = "*.*" + Return True + Catch ex As Exception + Printout("Fehler bei der Initialisierung des Filewacherobjekts auf " + Watch_Directory + ex.Message, EventLogEntryType.Error) + Return False + End Try + End Function + + '''Eventhandler des FileWatching-Objektes aktivieren + Private Function Start_Watching() As Boolean + Try + AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent) + AddHandler FileWatch.Renamed, AddressOf OnFileEventRename + FileWatch.EnableRaisingEvents = True + PrintOut("Filewatch Event-Handler initialisiert: " + Me.Watch_Directory) + Return True + Catch ex As Exception + Printout("Fehler bei der Event-Initialisierung " + ex.Message, EventLogEntryType.Error) + Return False + End Try + End Function + + Dim EventStopped As Boolean = False + '''Aktivitten im Inputverzeichnis verarbeiten + '''Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler + '''gestoppt und die anstehenden Dokumente verarbeitet. + ''' + '''Nach abgeschlossener Verarbeitung wird der Eventhandler wieder + '''eingeschaltet + ''' + ''' + Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs) + If EventStopped = True Then Exit Sub + + + If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Or UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then + FileWatch.EnableRaisingEvents = False + EventStopped = True + PrintTempJournal("Fileevent raised: " + e.FullPath) + 'IntSleep(Params.WaitAfterFileevent) + 'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then + ' IntSleep(Params.Wait_before_xmlind_ren) + ' Rename(e.FullPath, e.FullPath + ".ind") + ' PrintTempJournal("Fileevent Rename XML: " + e.FullPath + " -> " + e.FullPath + ".ind") + 'End If + PrintOut("Neue Datei " + e.FullPath) + Verarbeiten() + FileWatch.EnableRaisingEvents = True + End If + End Sub + + Private Sub OnFileEventRename(ByVal source As Object, ByVal e As RenamedEventArgs) + If Params.UseFileEventRename = False Then Exit Sub + If EventStopped = True Then Exit Sub + If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Then + FileWatch.EnableRaisingEvents = False + EventStopped = True + PrintOut("Neue Datei " + e.FullPath) + '20130131 - Sleep von 1000 auf 3000 gendert, damit bei FinFox-Dokumente die Verarbeitung nicht aussteigt, sofern die Datei noch nicht angeliefert wurde + IntSleep(3) + Verarbeiten() + FileWatch.EnableRaisingEvents = True + End If + End Sub + + + +#End Region + +#Region "Verarbeitung" + + '''Verarbeiten von angelieferten Daten + '''In dieser Methode werden angelieferte Indexdateien verarbeitet. + ''' + '''Bevor die Verarbeitung startet, wird der Systemfilewacher + '''ausgeschaltet. + '''Die Verarbeitung wird solange durchgefhrt, bis alle anstehenden + '''Indexdaten und Dokumente abgearbeitet sind. + '''Am Schluss der Verarbeitung wird der Systemfilewacher wieder + '''gestartet. + ''' + ''' + Private nameDirection As SortOrder = SortOrder.Ascending + Private dateDirection As SortOrder = SortOrder.Ascending + Private Function CompareFileInfos(file1 As FileInfo, file2 As FileInfo) As Integer + Dim result = 0 + + If result = 0 Then + Select Case dateDirection + Case SortOrder.Ascending + result = file1.LastWriteTime.CompareTo(file2.LastWriteTime) + Case SortOrder.Descending + result = file2.LastWriteTime.CompareTo(file1.LastWriteTime) + End Select + End If + + Return result + End Function + + Private Sub PrintTempJournal(s As String) + If Params.Logpath = "" Then Exit Sub + Dim fn As String = Params.Logpath + "\" + Now.ToString("yyyyMMdd") + "_log.txt" + FileOpen(14, fn, OpenMode.Append) + WriteLine(14, Now.ToString("yyyy-MM-dd HH:mm:ss:hs") + " " + s) + FileClose(14) + End Sub + + + Private Sub Verarbeiten() + Dim gsffilename As String = "" + Try + 'Printout("Bei Verarbeiten() zuerst 5000ms warten", EventLogEntryType.Information) + PrintTempJournal("Verarbeitung Wait before start " + Params.WaitBeforeProcess.ToString + " Sekunden") + IntSleep(Params.WaitBeforeProcess) + Dim looper As Boolean = True + While looper = True + 'Alle .IND-Dateien im Verzeichnis auslesen + PrintTempJournal("Read Directory .ind") + Dim clsindex As New clsIndexData() + Dim di As New IO.DirectoryInfo(Watch_Directory) + IntSleep(Params.Wait_before_readdir) + Dim diar1 As IO.FileInfo() = di.GetFiles("*.ind") + Dim dra As IO.FileInfo + Array.Sort(diar1, AddressOf CompareFileInfos) + If diar1.Length = 0 Then + PrintTempJournal("Read Directory .xml") + diar1 = di.GetFiles("*.xml") + Array.Sort(diar1, AddressOf CompareFileInfos) + If diar1.Length = 0 Then + looper = False + clsindex = Nothing + di = Nothing + diar1 = Nothing + EventStopped = False + PrintTempJournal("----------------------------------------------") + Exit Sub + End If + End If + Try + For Each dra In diar1 + Dim fullname As String = "" + Globals.Fehlermeldung = "" + IntSleep(Params.Wait_Before_Fileprocess) + PrintTempJournal("Verarbeitung " + dra.FullName) + fullname = dra.FullName + If UCase(System.IO.Path.GetExtension(dra.Name)) = ".XML" Then + PrintTempJournal(" Rename " + dra.FullName + " -> " + dra.FullName + ".ind") + IntSleep(Params.Wait_before_xmlind_ren) + Rename(dra.FullName, dra.FullName + ".ind") + fullname = dra.FullName + ".ind" + End If + + gsffilename = dra.Name.Substring(0, dra.Name.IndexOf(".")) + PrintTempJournal(" Journal " + fullname) + PrintOut("File: " + fullname) + Globals.Journal.Open_Journal() + Globals.Journal.Insert_Journal("", "", "", fullname, "", "Start der Verarbeitung", "", "") + + DivFnkt.Save_Indexdata(Journal.JournalNr, fullname) + clsindex.IndexFileName = fullname + If clsindex.getindexdata Then + indexdata = clsindex.Indexdata + Dim check_and_import As New clsCheckandImport() + check_and_import.IndexData = indexdata + + If check_and_import.Herkunftsapplikationen_auslesen = False Then + Journal.Insert_Journal("", "", "", fullname, "16", "Zuordnung zur Herkunftsapplikation fehlt.", "", "") + Else + If check_and_import.Herkunftsapplikationen_auslesen Then + Globals.Journal.Update_Journal() + check_and_import.CheckandImport() + check_and_import = Nothing + End If + End If + End If + + Journal.Insert_Journal("", "", "", fullname, "", "Total Index-Datenstze: " + LTrim(Str(indexdata.Rows.Count)), "", "") + Journal.Insert_Journal("", "", "", fullname, "", "Verarbeitung abgeschlossen.", "", "") + Try + Catch + End Try + Try + PrintOut("Journal Close: " + fullname) + Globals.Journal.Close_Journal() + Catch + End Try + + 'Anpassungen EBES-LSV + If GSF = True Then + IntSleep(1) + Dim a As Integer + + If Fehler <> 0 Then + PrintOut("Dokstatus Fehler Start: " + fullname) + OBJ_GSF.Set_DokStatus(dra.Name.Substring(0, dra.Name.IndexOf(".")), EDKB08_GSF.Common.Enum_DokStatus.OK) + PrintOut("Dokstatus Fehler Ende: " + fullname) + Else + PrintOut("Dokstatus Start: " + fullname) + OBJ_GSF.Set_DokStatus(dra.Name.Substring(0, dra.Name.IndexOf(".")), EDKB08_GSF.Common.Enum_DokStatus.OK) + PrintOut("Dokstatus Ende: " + fullname) + End If + IntSleep(3) + End If + PrintOut("Ende File: " + fullname) + PrintTempJournal(" Abschluss " + fullname) + IntSleep(Params.wait_After_Fileprocess) + If Fehler <> 0 Then + send_error_mail() + End If + Next + Catch ex As Exception + Try + Globals.Journal.Close_Journal() + Catch + End Try + + Printout(ex.Message, EventLogEntryType.Error) + clsindex = Nothing + di = Nothing + diar1 = Nothing + End Try + clsindex = Nothing + di = Nothing + diar1 = Nothing + + '20151225 + Try + Globals.conn_edoka.CloseConnection(True) + Catch + End Try + Try + Globals.conn_journale.CloseConnection(True) + Catch + End Try + + + End While + FileWatch.EnableRaisingEvents = True + EventStopped = False + PrintTempJournal("----------------------------------------------") + Exit Sub + Catch ex As Exception + Try + Globals.conn_edoka.CloseConnection(True) + Catch + End Try + Try + Globals.conn_journale.CloseConnection(True) + Catch + End Try + Fehler = -16 + Try + Journal.Insert_Journal("", "", "", "", "-16", ex.Message + ex.StackTrace, "", "") + Catch + End Try + Try + Journal.Insert_Journal("", "", "", "", "", "Verarbeitung abgebrochen", "", "") + Catch + End Try + Try + Journal.Close_Journal() + Catch + + End Try + + Try + OBJ_GSF.Set_DokStatus(gsffilename, EDKB08_GSF.Common.Enum_DokStatus.FehlerEDKB08) + Catch + End Try + + Printout("Folgender Fehler ist in EDKB08 aufgetreten:" + ex.Message, EventLogEntryType.Error) + FileWatch.EnableRaisingEvents = True + 'Dim bmp1 As New Bitmap(Me.ImageList1.Images(1)) + 'ServiceIcon.Icon = Icon.FromHandle(bmp1.GetHicon()) + 'ServiceIcon.Text = "Waiting ..." + EventStopped = False + End Try + End Sub + Sub send_error_mail() + Dim subject As String + Dim body As String + subject = "EDKB08-Dokumentimport mit Fehlern " + Globals.Herkunftsapplikation.Rows(0).Item(1) + body = "Fehler EDOKB08:" + vbCrLf + vbCrLf + body = body + "Applikation: " + Globals.Herkunftsapplikation.Rows(0).Item(1).ToString + vbCrLf + body = body + "Journal-Nr: " + Journal.JournalNr.ToString + vbCrLf + vbCrLf + body = body + "Fehlermeldung: " + vbCrLf + body = body + Globals.Fehlermeldung + If Globals.Herkunftsapplikation.Rows(0).Item("Mail_Empfaneger").ToString = "" Then Exit Sub + Dim scmCmdToExecute As SqlCommand = New SqlCommand + scmCmdToExecute.CommandText = "dbo.SP_SendMail" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable + scmCmdToExecute.Parameters.Add(New SqlParameter("@email", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Herkunftsapplikation.Rows(0).Item("Mail_Empfaneger").ToString)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, subject)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, body)) + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + conn_edoka.OpenConnection() + Catch + End Try + Try + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + Finally + scmCmdToExecute.Dispose() + conn_edoka.CloseConnection(True) + End Try + End Sub + Public Sub IntSleep(Seconds As Integer) + Dim sleeptime As DateTime + sleeptime = DateAdd(DateInterval.Second, Seconds, Now) + While Now < sleeptime + Thread.Sleep(10) + End While + + End Sub + '''Journaldatei erstellen und je nach Applikationseinstellungen + '''versenden + '''Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und + '''sendet diese mittels Mail bzw. mittls DTO weiter + Private Sub Logdatei_Erstellen() + Dim filename As String = "" + Try + If Globals.Herkunftsapplikation.Rows(0).Item("log_erstellung") <> 1 And Globals.Herkunftsapplikation.Rows(0).Item("log_erstellung") <> 2 Then Exit Sub + If Globals.Herkunftsapplikation.Rows(0).Item("log_erstellung") = 1 And Globals.Herkunftsapplikation.Rows(0).Item("Mail_Periodizitaet") = 0 Then + filename = Journal.Print_Log(Globals.Herkunftsapplikation.Rows(0).Item(0), Globals.Herkunftsapplikation.Rows(0).Item(1), Globals.Herkunftsapplikation.Rows(0).Item("outputformat")) + PrintOut("Aufruf Sendmail") + Send_Mail(filename, Globals.Herkunftsapplikation.Rows(0).Item("Mail_Empfaneger")) + End If + If Globals.Herkunftsapplikation.Rows(0).Item("log_erstellung") = 2 Then + filename = Journal.Print_Log(Globals.Herkunftsapplikation.Rows(0).Item(0), Globals.Herkunftsapplikation.Rows(0).Item(1), Globals.Herkunftsapplikation.Rows(0).Item("outputformat")) + Send_DTO(filename) + End If + Catch ex As Exception + Journal.Insert_Journal("", "", "", filename, "-16", "Das Journal " + filename + " konnte nicht erstellt werden." + ex.Message, "", "") + End Try + End Sub + + + '''DTO-Versand + ''' + Private Function Send_DTO(ByVal filename As String) As Boolean + Try + Dim i As Integer + Dim tw As TextWriter + Dim s As String + s = Herkunftsapplikation.Rows(0).Item(3) + s = s.Replace("%1", filename) + s = s.Replace("%2", filename) + tw = New StreamWriter(New FileStream(Params.TempPfad + "dtotransfer.cmd", FileMode.Create)) + tw.WriteLine(s) + tw.Flush() + tw.Close() + i = Microsoft.VisualBasic.Shell(Params.TempPfad + "dtotransfer.cmd", AppWinStyle.Hide, True) + If i <> 0 Then + Journal.Insert_Journal("", "", "", filename, "0", "DTO-Datei konnte nicht bermittelt werden. RC: " + LTrim(Str(i)), "", "") + Else + Journal.Insert_Journal("", "", "", filename, "0", "DTO-Datei konnte nicht bermittelt werden. RC: " + LTrim(Str(i)), "", "") + End If + Return True + Catch ex As Exception + Fehler = 4 + Journal.Insert_Journal("", "", "", filename, "-16", "DTO-Datei konnte nicht bermittelt werden. " + ex.Message, "", "") + 'PrintOut("Der Journalversand mittls DTO ist fehlgeschlagen. " + ex.Message, EventLogEntryType.Warning) + Return False + End Try + End Function + + '''Versand von Journaldaten mittels Email + ''' + ''' + Private Function Send_Mail(ByVal filename As String, ByVal empfaenger As String) As Boolean + 'Sofern ein SMTP-Server angegeben wird, wird vie SMTP Versendet + If Params.Mailserver <> "" Then + + Dim strArgs() As String = Command.Split(",") + Dim blnSMTP As Boolean = False + Dim blnCC As Boolean = False + Dim blnAttachments As Boolean = False + Try + Dim insMail As New System.Net.Mail.MailMessage(Params.Mailabsender, empfaenger) + With insMail + .Subject = "EDKB08-Journal" + '.BodyEndoding = System.Text.Encoding.Unicode + .Body = "Dieses Email wurde automatisch von EDKB08 erstellt" + ' .Attachments.Add(New MailAttachment(filename)) + End With + Dim myMail As New System.Net.Mail.SmtpClient + myMail.Host = Params.Mailserver + myMail.Send(insMail) + ''PrintOut("Journal erfolgreich versandt.", EventLogEntryType.Information) + Journal.Insert_Journal("", "", "", filename, "0", "E-Mail mit Journal versandt.", "", "") + Catch ex As Exception + Fehler = 4 + Journal.Insert_Journal("", "", "", filename, "-10", "E-Mail konnte nicht versandt werden. " + ex.Message, "", "") + 'PrintOut("Journal konnte nicht versandt werden." + ex.Message, EventLogEntryType.Error) + Return False + End Try + Else + If Save_Report_To_DB(filename) Then + If Fehler = 0 Then + send_db_mail(empfaenger, "EDKB08-Dokumentimport erfolgreich: " + filename.Substring(filename.LastIndexOf("\") + 1), filename) + Else + send_db_mail(empfaenger, "EDKB08-Dokumentimport mit Fehlern: " + filename.Substring(filename.LastIndexOf("\") + 1), filename) + End If + End If + End If + End Function + + Private Function send_db_mail(ByVal empfaenger As String, ByVal Subject As String, ByVal filename As String) As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_send_mail" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_journale_Mail.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Subject)) + filename = filename.Substring(filename.LastIndexOf("\") + 1) + + scmCmdToExecute.Parameters.Add(New SqlParameter("@filename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, filename)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@jobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Journal.JournalNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@errorcode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 9)) + Try + sdaAdapter.Fill(dtToReturn) + If scmCmdToExecute.Parameters("@errorcode").Value <> 0 Then + 'Journal.Insert_Journal("", "", "", filename, "20", "Mail konnte nicht versandt werden. " + scmCmdToExecute.Parameters("@errorcode").Value, "", "") + PrintLog("Mail konnte nicht versandt werden. " + scmCmdToExecute.Parameters("@errorcode").Value, EventLogEntryType.Warning) + Return False + End If + Catch ex As Exception + 'Journal.Insert_Journal("", "", "", filename, "20", "Mail konnte nicht versandt werden." + ex.Message, "", "") + PrintLog("Mail konnte nicht versandt werden." + ex.Message, EventLogEntryType.Warning) + Return False + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + Private Function Save_Report_To_DB(ByVal Filename As String) As Boolean + Dim connection As New SqlConnection() + Dim da As New SqlDataAdapter("Select * From import_journaldatei where import_jobnr=" + Journal.JournalNr.ToString, connection) + Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) + Dim ds As New DataSet() + Try + 'Connectionstring zur Datenbank + connection.ConnectionString = Globals.sConnectionString_journale + connection.Open() + da.Fill(ds, "docs") + Dim fs As New FileStream(Filename, FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + fs.Read(mydata, 0, fs.Length) + fs.Close() + Dim myRow As DataRow + If ds.Tables(0).Rows.Count = 0 Then + ' Neues Dokument speichern + myRow = ds.Tables(0).NewRow + myRow.Item(0) = Journal.JournalNr + myRow.Item(1) = mydata + ds.Tables(0).Rows.Add(myRow) + da.Update(ds, "docs") + Else + 'Bestehendes Dokument sichenr + myRow = ds.Tables(0).Rows(0) + myRow.Item(1) = mydata + da.Update(ds, "docs") + End If + fs.Close() + fs = Nothing + File.Delete(Filename) + Return True + Catch ex As Exception + Journal.Insert_Journal("", "", "", Filename, "20", "Das Journal konnte nicht auf der Datenbank gespeichert werden." + vbNewLine + ex.Message, "", "") + Return False + End Try + CB = Nothing + ds = Nothing + da = Nothing + connection.Close() + connection = Nothing + End Function + + + +#End Region + +#Region "Journaltimer Funktionen" + + Public Sub JournalTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles JournalTimer.Elapsed + If EventStopped = True Then Exit Sub + Dim restartdok As New DataTable() + Dim restartjob As New DataTable() + restartdok = get_restartdok() + restartjob = get_restartjob() + Me.JournalTimer.Enabled = False + Dim i As Integer + Me.FileWatch.EnableRaisingEvents = False + For i = 0 To restartdok.Rows.Count - 1 + Write_Restartfiles(restartdok.Rows(i).Item(0)) + Next + For i = 0 To restartjob.Rows.Count - 1 + Write_Restartjobfiles(restartjob.Rows(i).Item(0)) + Next + If restartdok.Rows.Count <> 0 Or restartjob.Rows.Count <> 0 Then + Verarbeiten() + End If + '20120905 - SHU - Wenn IND-Dateien im Input-Verzeichnis vorhanden sind, diese verarbeiten + Dim di As New IO.DirectoryInfo(Watch_Directory) + Dim diar1 As IO.FileInfo() = di.GetFiles("*.ind") + If diar1.Length > 0 Then Verarbeiten() + restartjob.Dispose() + restartdok.Dispose() + + If Now.Hour > 0 And Now.Hour < 1 Then + Dim filename As String + Dim dt As DataTable + PrintOut("Start Tgliche Journalerstellung") + dt = get_applikationen() + For i = 0 To dt.Rows.Count - 1 + filename = Journal.Print_Log_Batch(dt.Rows(i).Item(0), dt.Rows(i).Item(1), dt.Rows(i).Item(2)) + Send_Mail(filename, dt.Rows(i).Item(3)) + PrintOut(dt.Rows(i).Item(1) + ": " + "Journal gesendet") + Next + End If + Me.JournalTimer.Enabled = True + Me.FileWatch.EnableRaisingEvents = True + End Sub + + Private Sub Write_Restartfiles(ByVal itemid As Integer) + Dim connection As New SqlConnection() + Dim da As New SqlDataAdapter("Select * From import_daten where import_data_nr=" + LTrim(Str(itemid)), connection) + Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) + Dim ds As New DataSet() + Dim Dokumentfilename As String + Dim XMLFilename As String + Dim xmlstring As String + Dim xmlds As New DataSet() + + Try + 'Connectionstring zur Datenbank + connection.ConnectionString = Globals.sConnectionString_journale + connection.Open() + da.Fill(ds, "docs") + Dim myRow As DataRow + xmlstring = ds.Tables(0).Rows(0).Item(3) + myRow = ds.Tables(0).Rows(0) + + 'Indexfile schreiben + XMLFilename = Params.Inputverzeichnis + LTrim(Str(itemid)) + "_" + Format(Now, "yyyyMMddHHmmss") + ".ind" + FileOpen(11, XMLFilename, OpenMode.Output) + PrintLine(11, xmlstring) + FileClose(11) + xmlds.ReadXml(XMLFilename) + Dokumentfilename = Params.Inputverzeichnis + xmlds.Tables(0).Rows(0).Item(12) + xmlds.Dispose() + 'Dokumentdatei schreiben + Dim MyData() As Byte + MyData = myRow.Item(4) + Dim K As Long + K = UBound(MyData) + Dim fs As New FileStream(Dokumentfilename, FileMode.OpenOrCreate, FileAccess.Write) + fs.Write(MyData, 0, K) + fs.Close() + fs = Nothing + Catch ex As Exception + FileClose(11) + End Try + CB = Nothing + ds = Nothing + da = Nothing + connection.Close() + connection = Nothing + End Sub + + Private Sub Write_Restartjobfiles(ByVal itemid As Integer) + Dim connection As New SqlConnection() + Dim da As New SqlDataAdapter("Select * From import_job where import_jobnr=" + LTrim(Str(itemid)), connection) + Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) + Dim ds As New DataSet() + + Try + 'Connectionstring zur Datenbank + connection.ConnectionString = Globals.sConnectionString_journale + connection.Open() + da.Fill(ds, "docs") + Dim myRow As DataRow + myRow = ds.Tables(0).Rows(0) + + Dim MyData() As Byte + MyData = myRow.Item(7) + Dim K As Long + K = UBound(MyData) + Dim fs As New FileStream(Params.Inputverzeichnis + LTrim(Str(itemid)) + "_" + Format(Now, "yyyyMMddHHmmss") + ".ind", FileMode.OpenOrCreate, FileAccess.Write) + fs.Write(MyData, 0, K) + fs.Close() + fs = Nothing + Catch ex As Exception + End Try + CB = Nothing + ds = Nothing + da = Nothing + connection.Close() + connection = Nothing + End Sub + + ''' + Private Function get_applikationen() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_journalprotag" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Printout("Tgliche Journalerstellung fehlgeschlagen. " + ex.Message, EventLogEntryType.Error) + Return dtToReturn + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + Private Function get_restartdok() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_get_restartdok" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_journale.scoDBConnection + Try + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Printout("Auslesen von erneut zu ladenden Dokumenten ist fehlgeschlagen. " + ex.Message, EventLogEntryType.Error) + Return dtToReturn + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + Private Function get_restartjob() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_get_restartjob" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_journale.scoDBConnection + Try + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Printout("Auslesen von erneut zu ladenden Dokumenten ist fehlgeschlagen. " + ex.Message, EventLogEntryType.Error) + Return dtToReturn + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + +#End Region + + +#Region "GSF" + + Dim WithEvents OBJ_GSF As New EDKB08_GSF.Common() + + 'Anpassungen EBES-LSV' + Dim GSF As Boolean + + Public Sub GSF_Verarbeitung(ByVal Startverzeichnis As String) Handles OBJ_GSF.StartVerarbeitung + Dim savewatch_directory As String + Dim saveInputVerzeichnis As String + saveInputVerzeichnis = Params.Inputverzeichnis + savewatch_directory = Watch_Directory + Try + Params.Inputverzeichnis = Startverzeichnis + Watch_Directory = Startverzeichnis + + GSF = True + GSF_Timer.Enabled = False + EventStopped = True + IntSleep(5) + Verarbeiten() + EventStopped = False + GSF = False + GSF_Timer.Enabled = GSF_Timer.Interval > 60000 + Catch + Finally + Params.Inputverzeichnis = saveInputVerzeichnis + Watch_Directory = savewatch_directory + End Try + End Sub + + Public Sub GSF_Timer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles GSF_Timer.Elapsed + PrintLog("GSF_Timer elapsed") + PrintOut("Event_Stopped:" + EventStopped.ToString) + If EventStopped Then Exit Sub + PrintLog("GSF_Timer elapsed") + GSF_Timer.Enabled = False + FileWatch.EnableRaisingEvents = False + OBJ_GSF.Sub_Init(Params.Prop_gsf_ConfigPath, Params.Prop_gsf_ConfigDateiendung) + OBJ_GSF.Start_Checking() + OBJ_GSF.Sub_End() + FileWatch.EnableRaisingEvents = True + GSF_Timer.Enabled = GSF_Timer.Interval > 60000 + + '20201114 - Verarbeitung der whrend GSF-Verarbeitung angelieferten Daten + DirectoryTimer_Elapsed(sender, e) + '20201114 - Ende + End Sub + + Sub GSF_logging(ByVal logeintrag As String, ByVal itype As Integer) Handles OBJ_GSF.LogToBMS + PrintOut(logeintrag + " " + itype.ToString) + End Sub + + Private Sub DirectoryTimer_Elapsed(sender As Object, e As ElapsedEventArgs) Handles DirectoryTimer.Elapsed + PrintOut("Event_Stopped:" + EventStopped.ToString) + If EventStopped Then Exit Sub + GSF_Timer.Enabled = False + FileWatch.EnableRaisingEvents = False + FileOpen(99, Params.Directoryscanner, OpenMode.Input) + While Not EOF(99) + Dim s As String + Input(99, s) + Copyfiles(s, Params.Inputverzeichnis) + End While + Verarbeiten() + FileClose(99) + FileWatch.EnableRaisingEvents = True + GSF_Timer.Enabled = GSF_Timer.Interval > 60000 + End Sub + + Sub Copyfiles(inputdir As String, outputdir As String) + Dim destextension As String + For Each fi As FileInfo In New DirectoryInfo(inputdir).GetFiles + If UCase(fi.Extension) = ".XML" Then + destextension = ".ind" + Else + destextension = fi.Extension + End If + Try + File.Move(fi.FullName, outputdir + "\" + Path.GetFileNameWithoutExtension(fi.Name) + destextension) + Catch + End Try + + Next + End Sub +#End Region + + +End Class diff --git a/Settings.vb b/Settings.vb new file mode 100644 index 0000000..49c473d --- /dev/null +++ b/Settings.vb @@ -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 diff --git a/app.config b/app.config new file mode 100644 index 0000000..fab6604 --- /dev/null +++ b/app.config @@ -0,0 +1,37 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/20201115_edkb08.zip b/bin/20201115_edkb08.zip new file mode 100644 index 0000000..3d3e072 Binary files /dev/null and b/bin/20201115_edkb08.zip differ diff --git a/bin/20210411_EDKB08.zip b/bin/20210411_EDKB08.zip new file mode 100644 index 0000000..11ea4df Binary files /dev/null and b/bin/20210411_EDKB08.zip differ diff --git a/bin/20210525_EDKB08.zip b/bin/20210525_EDKB08.zip new file mode 100644 index 0000000..d5ff53e Binary files /dev/null and b/bin/20210525_EDKB08.zip differ diff --git a/bin/20210816_EDKB08.zip b/bin/20210816_EDKB08.zip new file mode 100644 index 0000000..9cc4a4b Binary files /dev/null and b/bin/20210816_EDKB08.zip differ diff --git a/bin/20211020_EDKB08.zip b/bin/20211020_EDKB08.zip new file mode 100644 index 0000000..1e35b86 Binary files /dev/null and b/bin/20211020_EDKB08.zip differ diff --git a/bin/20211115_edkb08.zip b/bin/20211115_edkb08.zip new file mode 100644 index 0000000..819ded3 Binary files /dev/null and b/bin/20211115_edkb08.zip differ diff --git a/bin/20211213_EDKB08.zip b/bin/20211213_EDKB08.zip new file mode 100644 index 0000000..ad0760a Binary files /dev/null and b/bin/20211213_EDKB08.zip differ diff --git a/bin/20211219_edkb08.zip b/bin/20211219_edkb08.zip new file mode 100644 index 0000000..46b4827 Binary files /dev/null and b/bin/20211219_edkb08.zip differ diff --git a/bin/20220312_EDKB08.zip b/bin/20220312_EDKB08.zip new file mode 100644 index 0000000..db07957 Binary files /dev/null and b/bin/20220312_EDKB08.zip differ diff --git a/bin/20221012_EDKB08.zip b/bin/20221012_EDKB08.zip new file mode 100644 index 0000000..4b06d2e Binary files /dev/null and b/bin/20221012_EDKB08.zip differ diff --git a/bin/20221021_EDKB08.zip b/bin/20221021_EDKB08.zip new file mode 100644 index 0000000..31bdc98 Binary files /dev/null and b/bin/20221021_EDKB08.zip differ diff --git a/bin/CanonStruktur.xml b/bin/CanonStruktur.xml new file mode 100644 index 0000000..85b9474 --- /dev/null +++ b/bin/CanonStruktur.xml @@ -0,0 +1,40 @@ + + +ADD + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/bin/DirectoriesToScan.txt b/bin/DirectoriesToScan.txt new file mode 100644 index 0000000..e3a8b0b --- /dev/null +++ b/bin/DirectoriesToScan.txt @@ -0,0 +1 @@ +K:\EDOKA\EDKB08\Intranet_input\ \ No newline at end of file diff --git a/bin/EDKB08.exe b/bin/EDKB08.exe new file mode 100644 index 0000000..8f074d9 Binary files /dev/null and b/bin/EDKB08.exe differ diff --git a/bin/EDKB08.exe.config b/bin/EDKB08.exe.config new file mode 100644 index 0000000..fab6604 --- /dev/null +++ b/bin/EDKB08.exe.config @@ -0,0 +1,37 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/EDKB08.pdb b/bin/EDKB08.pdb new file mode 100644 index 0000000..124da39 Binary files /dev/null and b/bin/EDKB08.pdb differ diff --git a/bin/EDKB08.vshost.exe b/bin/EDKB08.vshost.exe new file mode 100644 index 0000000..0a4ce9d Binary files /dev/null and b/bin/EDKB08.vshost.exe differ diff --git a/bin/EDKB08.vshost.exe.config b/bin/EDKB08.vshost.exe.config new file mode 100644 index 0000000..fab6604 --- /dev/null +++ b/bin/EDKB08.vshost.exe.config @@ -0,0 +1,37 @@ + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/EDKB08.vshost.exe.manifest b/bin/EDKB08.vshost.exe.manifest new file mode 100644 index 0000000..5595e67 --- /dev/null +++ b/bin/EDKB08.vshost.exe.manifest @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/EDKB08.xml b/bin/EDKB08.xml new file mode 100644 index 0000000..a6a2938 --- /dev/null +++ b/bin/EDKB08.xml @@ -0,0 +1,1226 @@ + + + + +EDKB08 + + + + +Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in +EDOKA +Mit den Methoden dieser Klasse werden einerseits die angelieferten +Indexinformationen auf ihre Vollständigkeit hin überprüft. Im Fehlerfall werden +ensprechende Meldungen ausgegeben bzw. journalisiert, im OK-Fall werden die +entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist +festgehalten ob - Alle Parameter korrekt sein müssen, bevor der Dokumentimport +stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden + + +Interne Variable für das Property IndexData + + +Datentabelle mit den Indexwerten + + +Interne temporöre Datentabelle + + +Prüfung der Indexwerte +Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA +importiert. + + + + +Prüft die Indexdaten und löst ggf. den Import des Dokumentes +aus. +Die Funktion prüft die Indexwerte. Sofern die Werte i.O. sind und der +Dokumentimport ausgelöst werden kann (vgl. Parameter Dokimport) wird das +Dokument importiert. Im Fehlerfall wird eine Meldung protokolliert und die +Variable Fehler gesetzt. +True=Dokument importieren False=Dokument nicht +importieren (nur plausibilisieren) +Aktuelle Datarow der Tabelle Indexdata +True=Verarbeitung i.O. False=Verarbeitung fehlerhaft +Stefan Hutter + + +Importiert ein Dokument nach EDOKA +Gültige Werte sind: ADD, UPD, REPL, DEL +True = Import erfolgreich$EOL$ +False = Import fehlgeschalgen + + +Prüfung der Partnerzuordnung +Mit der Funktion wird abhängig vom angelieferten Wert die +Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft. + +Input Partnernummer +Direkter Zugriff auf die Tabelle Partner mittels Partnernr + +Input VV-Nr: +Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die +Partnernummer gefunden wird, diese in der Datentabelle nachführen + +Input: Barcode-ID: +Zugriff auf die Partnernummer über die Tabelle Dokument mit der +geliefertenen EDOKA-BarcodeID + +Input: KST: +Zugriff über die Kostenstelle auf den EDOKA-Partner +Aktuelle Datenzeile in der Tabelle Indexdata +True=Partnerzuordnung i.O. +False=Partnerzuordnung nicht i.O. +Checkdata + + +Prüft, ob alle Werte für eine EDOKA_Partner-Erfasssung vorhanden sind. +Wenn dies der Fall ist, wird ein neuer EDOKA-Partner eröffnet +Sofern genügend Informationen für die Partnereröffnung vorhanden sind, +wird ein EDOKA-Partner eröffnet. Nach dem Insert in der Datenbank wird durch die +DB die Überprüfung auf eine allfällige Partnerzusammenlegung +ausgelöst. +Aktuelle Datenzeile des Import-Programmes +True = EDOKA-Partner eröffnet +False = Daten zur Eröffnung des EDOKA-Partners sind +unvollständig +Stefan Hutter +Checkdata + + +Prüft die dokumentspezifischen Werte und das Vorhandensein des +physischen Dokumentes +Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten +Dokumente: + + +Gültiges Dokumentformant (DOC, XLS, TIF, PDF, +JPG + +Vorhandensein des Dokumentes im +Importverzeichnis + +Dokumenttyp +Zeile in der Tabelle Indexdata +True=Dokumentwerte i.O. +False=Dokumentwerte nicht i.O. +Stefan Hutter +Checkdata + + +Notiz zu einem Dokument hinzufügen +Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz +hinzu +Aktuelle Dokumentid +Meldung / Notiz + + +Auslesen der Daten "Herkunftsapplikation" und in der internen Variable +Herkunftsapplikationen zwischenspeichern + + +Auslesen der Herkunftsapplikation anhand des Dokumenttyps +Aktueller Datensatz aus den Indexdaten +"" = Herkunftsapplikation nicht vorhanden$EOL$ +"[Bezeichnung] = Herkunftsapplikation vorhanden +Herkuftsapplikation_auslesen + + +Importiert ein Dokument nach EDOKA +Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$ + + +$EOL$ $EOL$ Tabelle +$EOL$ Beschreibung + +$EOL$ $EOL$ Dokument +$EOL$ Dokumentbeschreibung + +$EOL$ $EOL$ Dokumentstatus +$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis +zum ersten archivierungs-relevanten Status gesetzt. $EOL$ + +$EOL$ +Bei der Verarbeitung eines Dokumentes mit Barcodeid, werden die +bestehenden Dokumentinformationen in der Tabelle Dokument erweitert und die +Tabelle Import_Barcode ergäntzt, damit die Batchverarbeitung EDKB02 das Handling +für diese Dokumente korrekt vornehmen kann. + +$EOL$ $EOL$ Dokumentcoldindexwert +$EOL$ Tabelle mit den COLD-relevanten +Indexinformationen + +$EOL$ $EOL$ Dokumentwerte +$EOL$ Tabelle mit den individuellen +Dokumentwerten + +$EOL$ $EOL$ Notizen +$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im +EDOKA eingefügt wurde +Aktuelle Zeile der Indexdatei +True = Import erfolgreich $EOL$ +False = Import fehlgeschalgen + + +FA-Nummer 1-3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer1 +Bezeichnung der Applikatoin + +FANummer2 +Dokumentname + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +FA-Nummer 3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +Löst das Importieren des Original-Dokumentes in die Datenbank +aus +Die Methode löst das Importieren des Origianldokumentes in die +EDOKA-Datenbank aus +EDOKA-DokumentID +Aktuelle Zeile der Indexdaten +True=Improt erfolgreich, False=Import fehlgeschlagen +clsDivFnkt.Save_To_DB(System.String, +System.String) + + +EDOKA-Dokumenttypnr auslesen +Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp +aus. +Aktuelle Datenzeile der Indexdaten +Dokumenttypnr + + +Auslesen von Coldschema und -Folder +Dokumenttypnr des aktuellen Dokumentes +Datatable mit den COLD-Werten + + +Coldindex zum erstellen Dokument erstellen und speichern +Standard 1 +Dokumentid des aktuellen Dokumentes +Datatable + + +Dokument Cold Indexwert anpassen +Führt einen Wert in der Tabelle Dokumentcoldindexwert nach +DokumentID des aktuellend Dokumentes +1 für Ausgangsarchivierung +2 für Ausgangsarchivierung +Nummer des Indexfeldes +Wert + + +Edoka-spezifische Dokumentwerte nachführen +Führt folgende Daten in den Dokumentwerten hinzu +- Herkunftsapplikation +- Archivreferenz +- Listen-Empfänger MA/KST/NL +- Individuelle Dokumentwerte der Fremdanwendung +Aktuelle Zeile der Indexdaten + + +Edoka-spezifischer Dokumentwert auf der Datenbank sichern +Inhalt +Feldnummer + + +Erstellen der Dokumentstatus und eintragen der entsprechenden +Statushistory-Einträge +Aktuelle Zeile der Indexdaten +Status, welcher im Dokument unter "Statusnr" nachgeführt +wird +edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.insert_history_status(System.Int32, +System.String, System.Int32, System.DateTime) + + +Dokumentstatus für das zu erstellende Dokument generieren +Erstellt die Dokumentstatus gem. Statussequenz des +Dokumenttyps +Aktuelle Zeile der Indexdaten +Datatable + + +Alle Dokumentstatus eines Dokumentes lesen +Diese Funktion liest alle Dokumentstatus eines Dokumentes +Aktuelle Ziele der Indexdaten +Datatable mit den Dokumentstatus + + +Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten +TG-Nummer +Aktuelle Import-Datenzeile +Mitarbeiternr des EDOKA-Mitarbeiters entweder anhand der TGNummer oder +die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte +TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden +ist + + +Statushistory nachführen +Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments +die Statushistory nach +Nummer des Status +EDOKA-DokumentID +Verantwortlicher Mitarbeiter +Timestamp + + +Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder +Dokumentname) auslösen +Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder +Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst. +Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein +Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet +wurde. +Aktuelle Zeile der Indexdaten +True=Löschung durchgeführt +False=Löschung nicht durchgeführt + + +Dokument löschen bzw. aufheben +Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es +wird überprüft, ob das zu löschende Dokumente den Status "Aufgehoben" +in der Statussequenz hat. Beim Vorhandensein des Aufhebungsstatus wird das +Dokument aufgehoben, ansonsten gelöscht resp. inaktiviert. +DokumentID des zu löschenden Dokumentes +Aktuelle Zeile der Indexdaten +True=Löschung erfolgt +False=Löschung nicht durchgeführt + + +Auselesen des letzten Status in der Seqeunz des zu löschenden +Dokumentes +Dokumentid des zu löschenden Dokumentes +Status_Bezeichnungnr + + +Dokument aufheben +Dokumentid des aufzuhebenden Dokumentes + + +SColdindex und Aufhebungsstatus des eines zu löschenden bzw. +aufzuhebenden Dokumentes auslesen +Sofern das Dokument aufgehoben wird, wird der Status +"Aufgehoben" im Dokument nachgeführt, indem einerseits einen +Statushistory-Eintrag erstellt und der aktuelle Dokumentstatus gesetzt +wird. +Dokumentid des zu löschenden / aufzuhebenden +Dokumentes +True=Dokument aufheben +False=Dokument nicht aufheben +True=Aufgehobenes Dokument reaktivieren +False=Keine Dokumentreaktivierung +Datentable mit den Dokumentstatus + + +AGI-COLD-Dokument-Status ändern +Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter +"neuerstatus" +Datentabelle mit Cold-Index-Werten +DokumentID +Neuer Status der entsprechenden COLD-Dokumente + + +Tabelle COLD-Update mit Updates ergänzen +DokumentID des EDOKA-Dokumentes +DokumentID des COLD-Bildes +1=Ausgangsarchiviertes Dokumente +2=Eingangarchiviertes Dokumente +Feldnr des Feldes im Cold-Index +Neuer Wert + + +Dokumentwerte eines Dokumentes updaten +Aktuelle Zeile der Indexdaten + + +Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde +Dokumentid des zu prüfenden Dokumentes + + +Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank +1=Prüfung anhand einer EDOKA_Dokumentid +2=Prüfung anhand des Dateinamens +EDOKA_DokumentID oder Dateiname +Aktuelle Zeile der Indexdaten +True=Dokument gefunden und es kann gelöscht werden +False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die +Suche mittels Dateiname mehrere Treffer ergab + + +Diverse allgemeine Funktionen +Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus +diversen anderen Klassen genutzt werden.$EOL$ +Die Instanzierung der Klasse erfolgt über das Module Globals.vb +Globals.DivFnkt + + +Generieren der EDOKA-DokumentID +Diese Methode generiert eine neue eindeutige, 22-stellige +EDOKA-Dokumentid. $EOL$ +Die Letzte ziffer ist eine Prüfziffer +DokumentID für EDOKA +Prüfziffer-Berechnung + + +Berechnung der Prüfziffer nach Modulo9/Rekursiv +Dokumentid ohne Präfix +DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer +EDKB08.clsDivFnkt + + +Dokumen in der EDOKA-Datenbank speichern +Die Funktion speichert ein Dokument des Filesystems in die +EDOKA-Datenbank Tabelle DOKS +DEDOKA-Dokumentid +Origianl-Dokumentname (Fullpath) +True=Speichern erfolgreich, False=Speichern fehlgeschalgen + + +Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder +Textdatei +Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als +XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert +diese im Property IndexData zurück. +Stefan Hutter + + +Interne Variable für IndexFilenName + + +Enthält der Name der Inputdatei mit den Indexdaten (XML oder +TXT) +Stefan Hutter + + +Interne Variable für IndexData + + +Datentabelle mit den geladenen Indexwerten +Stefan Hutter + + +Temporäre Collection mit den getrennten Indexdaten aus der +txt-Input-Datei +Stefan Hutter + + +Angelieferte Indexdaten auslesen und in die Datentabele Indexdata +speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder +Komma-getrennte Textdatei auslesen +Stefan Hutter + + +XML-Datei als Datatable einlesen +Stefan Hutter + + + +Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten +Datensätze eingelesen und zugewiesen werden können +Stefan Hutter + + +Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der +Tabelle "Indexdata" speichern +Zeile der Inputdatei (Komma-getrennte Werte) +Stefan Hutter + + +Datensatz in der Tabelle "Indexdata" einfügen. Die Anzahl der +Spalten in der Tabelle ist abhängig vom Default-XML, welches zur +Tabellenerstellung verwendet wird. + +Stefan Hutter + + +Splitfunktion +Input-Zeile +Trennzeichen der einzelnen werte (z.B. Komma, +Strichpunkt usw.) +Qualiflyer, welcher die Werte umschliesst (z.B. +") +Stefan Hutter + + +Klasse zum auselesen der Steuerparameter aus der Datei +\bin\parameters.cfg +Stefan Hutter + + +Interne Variable zum Auslesen der Datei + + +Interne Variable zum Auslesen der Datei + + +Interne Variable für das Property Application ID + + +ApplikationsID für die Journalisierung + + +Interne Variable für das Property Inputverzeichnis + + +Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert +sind + + +Interne Variable für das Property MailadresseOK + + +EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung +ordnungsgemäss durchgelaufen ist + + +Interne Variable für das Property MailadresseNOK + + +Mailadresse, an die im Fehlerfall ein Mail gesendet wird + + +Interne Variable für das Property Meldung + + +Allfälliger Meldungstext, welcher beim Laden der Parameter generiert +wird + + +Interne Variable für das Property Temppfad + + +Pfad für temporäre Dateien + + +Interne Variable für das Property Mailserver + + +SMTP-Mailserver für den Journalversand + + +Interne Variable für das Property Journaltimer_time + + +Journaltimer-Zeit in Milisekunden + + +Interne Variable für das Property DeleteOriginalfiles + + +DeleteOriginalfiles + + +Interne Variable für das Property GSF Config File Path + + +gsf ConfigPath + + +Interne Variable für das Property GSF Timer Intervall + + +gsf Timer Interval + + +Interne Variable für das Property GSF DateiEndung + + +gsf DateiEndung + + +Laden der Parameterdaten aus parameters.cfg +Die Funktion lädt für die Anwendung die notwendigen Parameter aus der +Datei "Parameters.cfg" +True im OK-Fall +False im Fehlerfall + + +Parameterbezeichnung und Parameterwert trennen +Inputstring mit Parameterbezeichnung und +Parameterwert +Parameterwert als String + + + + Purpose: Data Access class for the table 'edex_sb_serienbrief'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iSerienbriefnr
    • +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • iSerienbriefnr
    • +
  • sBezeichnung
    • +
  • iVerantwortlich
    • +
  • iPostzustellung
    • +
  • daDokumentdatum
    • +
  • iZustaendig
    • +
  • iUnterschriftlinks
    • +
  • iUnterschriftrechts
    • +
  • iTeam
    • +
  • daArchivdatum
    • +
  • daTermin
    • +
  • sBemerkung
    • +
  • daErstellt_am
    • +
  • daMutiert_am
    • +
  • iMutierer
    • +
  • bAktiv
    • +
  • iStatus
    • +
  • iDokumenttypnr
    • +
  • iWindowwidth
    • +
  • iWindowheight
    • +
  • iTreewidth
    • +
  • iFehlerhaft
    • +
  • iInBearbeitung
    • +
  • iErstellt
    • +
  • iGedruckt
    • +
  • iBestaetigt
    • +
  • iAusgeloest
    • +
  • iBldossier
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Data Access class for the table 'Partner'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • sIDMSG00
    • +
  • sDMMSG00
    • +
  • sZTMSG00
    • +
  • sBEPGM00
    • +
  • sCDBNK00
    • +
  • iNRPAR00
    • +
  • sBKPAR00
    • +
  • iNRFOG012
    • +
  • sBEBAN012
    • +
  • sNRFOG022
    • +
  • sBEBAN022
    • +
  • sTXADZ012
    • +
  • sTXADZ022
    • +
  • sTXADZ032
    • +
  • sTXADZ042
    • +
  • sTXADZ052
    • +
  • sTXADZ062
    • +
  • sTXADZ072
    • +
  • sNRPARAD
    • +
  • sNRADR00
    • +
  • sNRFOG011
    • +
  • sBEBAN011
    • +
  • sNRFOG21
    • +
  • sBEBAN21
    • +
  • sTXADZ011
    • +
  • sTXADZ021
    • +
  • sTXADZ031
    • +
  • sTXADZ041
    • +
  • sTXADZ051
    • +
  • sTXADZ061
    • +
  • sTXADZ071
    • +
  • sCDBAL00
    • +
  • sCDVIG00
    • +
  • sSAVRS00
    • +
  • sTSMUT00
    • +
  • sVDMUTER
    • +
  • sTXRes00
    • +
  • bSaldiert
    • +
  • iAZEPL00
    • +
  • bCDVSA00
    • +
  • daValidto
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + +Globale Variablen und FUnktionen + + +Datentabelle mit den EDOKA-Applikationsdaten + + +Datensatzzeiger in der Tabelle Applikationsdaten + + +Verbindung zur Daten EDOKA + + +Verbindung zur Daten EDOKA_Journale + + +Verbindung zur Daten EDOKA_Journale mit dem Mail-User + + +Befehlszeilenargumente + + +Connectionprovider für die Datenbank EDOKA +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Instanz des Objektes DivFnkt + + +Hält die Applikationsdaten für ein zu importierendes Dokumente +fest + + +Ausgabe eines Strings mit vorgestelltem TimeStamp + + + +Eintrag ins EventLog von EDKB08 schreiben + + + + +Globaler Verweis zur Klasse CLSJournal + + +Daten für der Herkunftsapplikation +Diese interne Tabelle enthält die Daten für die Herkunftsapplikation +einer Indexdatei + + +Interne Variable zur Festhaltung von Fehlern + + +Funktionen für die Journalisierung der einzelnen +Verarbeitungsschritte + + +Interne Variable für das Property JournalNr + + +Property für die JournalNr + + +Variable für die Datenbankklasse clsImport_Job + + +Variable für die Datenbankklasse clsimport_eintrag + + +Interne Variable für das halten einer Datentabelle + + +Öffnet ein neuer Journaleintrag in der Tabelle Import_Job +Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den +entsprechenden Einträgen erstellt +Verarbeiten + + +Schliessen des aktuell geöffneten Verarbeitungsjournales +Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle +Import_Job nachgeführt +Verarbeiten + + +Journaleintrag löschen +Löscht den Journaleintrag aus der Variabel JournalNr + + +Einfügen eines neuen Journaldatensatzes +Recordnummer der Indexdaten bzw. "" für allgemeine +Journaleinträte +Partnernr oder "" für allgemeine +Einträge +Dateityp der zu importierenden Datei bzw. "" +für allgemeine Einträge +Index-Dateiname oder Dateiname der zu importierenden +Datei +Status Nr +Bezeichnung zur Statusnr +Dokumentid des EDOKA-Dokumentes nach dem Import +oder "" +Fremdschlüssel zur Tabelle FA_APPL +edkb08.edokadb.clsFA_APPL + + +Ergänzt den Journaleintrag mit der zugehörenden +Herkunftsapplikation +edkb08.Globals + + +Funktionen für den Export der Journaldaten + + +Auswertung erstellen und ggf. mittels DTO versenden +Datentabelle mit den Auswertungsdaten der Applikation +Format der Auswertung (txt, csv, xls, doc, pdf, +xml) + + +Journaldatei als CSV-Datei erstellen +Journaldaten + + +Journaldatei als TXT-Datei erstellen +Journaldaten + + +EDKB08 - Hauptprogramm +EDKB08 ist ein Importfunktion für Dokumente, welche durch +Fremdanwendungen geliefert und in EDOKA importiert werden sollen. + +Als Input werden die einzelenen Dokumente sowie eine oderer mehrer Dateien mit +den zugehörenden Indexinformationen in ein definiertes Verzeichnis gestellt. + +EDKB08 überwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung +".IND" angeliefert wird, startet der eigentliche Importvorgang. + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Steuerroutine für EDKB08 +Diese Routine wird beim Programmstart durchlaufen. Dabei werden die +benötigten Parameter ausgelesen und an der Konsole angezeigt. + +Nach erfolgreicher Initialisierung werden Aktivitäten im vordefinierten +Verzeichnis abgewartet. + + +Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so +lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden +sind. +Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und +verarbeitet. + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + + + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Timer zur Auslösung der täglichen Journalaufbereitung + + +Start des Dienstes EDKB08WS +Beim Start des Dienstes werden neben dem Einlesen der Parameter der +Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung +initialisiert. + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + +Verarbeiten von angelieferten Daten +In dieser Methode werden angelieferte Indexdateien verarbeitet. + +Bevor die Verarbeitung startet, wird der Systemfilewacher +ausgeschaltet. +Die Verarbeitung wird solange durchgeführt, bis alle anstehenden +Indexdaten und Dokumente abgearbeitet sind. +Am Schluss der Verarbeitung wird der Systemfilewacher wieder +gestartet. + + + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Versand von Journaldaten mittels Email + + + + + + + + diff --git a/bin/EDKB08Struktur.xml b/bin/EDKB08Struktur.xml new file mode 100644 index 0000000..e8929b9 --- /dev/null +++ b/bin/EDKB08Struktur.xml @@ -0,0 +1,50 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/bin/EDKB08_GSF.dll b/bin/EDKB08_GSF.dll new file mode 100644 index 0000000..35d0d14 Binary files /dev/null and b/bin/EDKB08_GSF.dll differ diff --git a/bin/EDKB08_GSF.pdb b/bin/EDKB08_GSF.pdb new file mode 100644 index 0000000..0f2d0fc Binary files /dev/null and b/bin/EDKB08_GSF.pdb differ diff --git a/bin/EDKB08_GSF.xml b/bin/EDKB08_GSF.xml new file mode 100644 index 0000000..6aa8705 --- /dev/null +++ b/bin/EDKB08_GSF.xml @@ -0,0 +1,10 @@ + + + + +EDKB08_GSF + + + + + diff --git a/bin/InstallUtil.InstallLog b/bin/InstallUtil.InstallLog new file mode 100644 index 0000000..2f15f02 --- /dev/null +++ b/bin/InstallUtil.InstallLog @@ -0,0 +1,34 @@ + +Eine transaktive Installation wird ausgeführt. + +Die Installationsphase wird gestartet. +Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe. +Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog. + +Während der Installationsphase ist eine Ausnahme aufgetreten. +System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security. + +Die Rollbackphase der Installation wird gestartet. +Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe. +Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog. + +Die Rollbackphase wurde erfolgreich abgeschlossen. + +Die transaktive Installation ist abgeschlossen. + +Eine transaktive Installation wird ausgeführt. + +Die Installationsphase wird gestartet. +Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe. +Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog. + +Während der Installationsphase ist eine Ausnahme aufgetreten. +System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security. + +Die Rollbackphase der Installation wird gestartet. +Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe. +Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog. + +Die Rollbackphase wurde erfolgreich abgeschlossen. + +Die transaktive Installation ist abgeschlossen. diff --git a/bin/SP_DoktypPerson.txt b/bin/SP_DoktypPerson.txt new file mode 100644 index 0000000..f08f56a --- /dev/null +++ b/bin/SP_DoktypPerson.txt @@ -0,0 +1,4 @@ +2156 +2154 +2155 +2153 \ No newline at end of file diff --git a/bin/System.Web.dll b/bin/System.Web.dll new file mode 100644 index 0000000..108acb0 Binary files /dev/null and b/bin/System.Web.dll differ diff --git a/bin/Uebersteuerung_AVQSend.txt b/bin/Uebersteuerung_AVQSend.txt new file mode 100644 index 0000000..63c889e --- /dev/null +++ b/bin/Uebersteuerung_AVQSend.txt @@ -0,0 +1 @@ +1436 \ No newline at end of file diff --git a/bin/avaloqconn.cfg b/bin/avaloqconn.cfg new file mode 100644 index 0000000..fa95189 --- /dev/null +++ b/bin/avaloqconn.cfg @@ -0,0 +1 @@ +Data Source=DATG01.TGKB; User Id=tkb$i_edoka; Password=Edoka1234$1; Integrated Security=no; diff --git a/bin/bms_conn.cfg b/bin/bms_conn.cfg new file mode 100644 index 0000000..96c6fb7 --- /dev/null +++ b/bin/bms_conn.cfg @@ -0,0 +1 @@ +¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼‘–’¥¾©¿È®¿ÀeÅ­¸ÉÆ®ÆÎn­»»´‰’¦¾»ºË´ÄÀÁ¸®É®»ºe»¬’Ä¦µÀ³¸mȮƱ‚†xŽŠºÅºÀd¶¹‚¿­€Â©ÈÇ˴Ĺ‹nÀ½º~…€ diff --git a/bin/edkb08.InstallLog b/bin/edkb08.InstallLog new file mode 100644 index 0000000..99b397a --- /dev/null +++ b/bin/edkb08.InstallLog @@ -0,0 +1,32 @@ +Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe wird installiert. +Betroffene Parameter: + logtoconsole = + logfile = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog + assemblypath = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe +Dienst EDKB08WS wird installiert... +Die EventLog-Quelle EDKB08WS im Protokoll Application wird erstellt... +Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe wird zurückgesetzt. +Betroffene Parameter: + logtoconsole = + logfile = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog + assemblypath = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe +Der vorherige Zustand des Ereignisprotokolls für die Quelle EDKB08WS wird wiederhergestellt. +Während der Rollbackphase des Installers System.Diagnostics.EventLogInstaller ist eine Ausnahme aufgetreten. +System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security. +Während der Rollbackphase der Installation ist eine Ausnahme aufgetreten. Diese Ausnahme wird ignoriert, und der Rollback wird fortgesetzt. Der ursprüngliche Zustand des Computers wird jedoch möglicherweise nicht vollständig wiederhergestellt, nachdem der Rollback beendet ist. +Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe wird installiert. +Betroffene Parameter: + logtoconsole = + assemblypath = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe + logfile = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog +Dienst EDKB08WS wird installiert... +Die EventLog-Quelle EDKB08WS im Protokoll Application wird erstellt... +Assembly E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe wird zurückgesetzt. +Betroffene Parameter: + logtoconsole = + assemblypath = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe + logfile = E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.InstallLog +Der vorherige Zustand des Ereignisprotokolls für die Quelle EDKB08WS wird wiederhergestellt. +Während der Rollbackphase des Installers System.Diagnostics.EventLogInstaller ist eine Ausnahme aufgetreten. +System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security. +Während der Rollbackphase der Installation ist eine Ausnahme aufgetreten. Diese Ausnahme wird ignoriert, und der Rollback wird fortgesetzt. Der ursprüngliche Zustand des Computers wird jedoch möglicherweise nicht vollständig wiederhergestellt, nachdem der Rollback beendet ist. diff --git a/bin/edkb08.zip b/bin/edkb08.zip new file mode 100644 index 0000000..cf6ba67 Binary files /dev/null and b/bin/edkb08.zip differ diff --git a/bin/edkb08.zip_old b/bin/edkb08.zip_old new file mode 100644 index 0000000..9754b13 Binary files /dev/null and b/bin/edkb08.zip_old differ diff --git a/bin/edokaconn.cfg b/bin/edokaconn.cfg new file mode 100644 index 0000000..706fd1b --- /dev/null +++ b/bin/edokaconn.cfg @@ -0,0 +1 @@ +Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29 diff --git a/bin/gsf/Archiv/ABGE.xmlx b/bin/gsf/Archiv/ABGE.xmlx new file mode 100644 index 0000000..fbf6eb8 --- /dev/null +++ b/bin/gsf/Archiv/ABGE.xmlx @@ -0,0 +1,51 @@ + + + + + EBES + + + 0 + + + \\sbttgzvsrv01.tgcorp.ch\steuer_imaqtg + + + \\sbttgzvsrv01.tgcorp.ch\steuer_imaqtg\ + + + 0 + + + user + + + password + + + xml + + + xmx + + + xer + + + xee + + + D:\edoka\EDKB08\tmp_abge\ + + + \ No newline at end of file diff --git a/bin/gsf/Archiv/EBES.xmlx b/bin/gsf/Archiv/EBES.xmlx new file mode 100644 index 0000000..3b49d54 --- /dev/null +++ b/bin/gsf/Archiv/EBES.xmlx @@ -0,0 +1,51 @@ + + + + + EBES + + + 0 + + + d:\edoka\edkb08\agtguv + + + d:\edoka\edkb08\agtguv\ + + + 0 + + + user + + + password + + + xml + + + xmx + + + xer + + + xee + + + D:\edoka\EDKB08\tmp_ebes\ + + + \ No newline at end of file diff --git a/bin/gsf/Archiv/Intranet.xmlc b/bin/gsf/Archiv/Intranet.xmlc new file mode 100644 index 0000000..19795f8 --- /dev/null +++ b/bin/gsf/Archiv/Intranet.xmlc @@ -0,0 +1,52 @@ + + + + + LSV + + + 0 + + + d:\edoka\edkb08\agtglv + + + d:\edoka\edkb08\agtglv\ + + + 0 + + + user + + + password + + + xml + + + xmx + + + xer + + + xee + + + + D:\edoka\EDKB08\tmp_lsv\ + + + \ No newline at end of file diff --git a/bin/gsf/Archiv/LSV.xmlc b/bin/gsf/Archiv/LSV.xmlc new file mode 100644 index 0000000..19795f8 --- /dev/null +++ b/bin/gsf/Archiv/LSV.xmlc @@ -0,0 +1,52 @@ + + + + + LSV + + + 0 + + + d:\edoka\edkb08\agtglv + + + d:\edoka\edkb08\agtglv\ + + + 0 + + + user + + + password + + + xml + + + xmx + + + xer + + + xee + + + + D:\edoka\EDKB08\tmp_lsv\ + + + \ No newline at end of file diff --git a/bin/gsf/EBES.xml b/bin/gsf/EBES.xml new file mode 100644 index 0000000..70c2bcc --- /dev/null +++ b/bin/gsf/EBES.xml @@ -0,0 +1,51 @@ + + + + + EBES + + + 0 + + + k:\edoka\edkb08\agtguv\input + + + k:\edoka\edkb08\agtguv\input\ + + + 0 + + + user + + + password + + + xml + + + xmx + + + xer + + + xee + + + k:\edoka\EDKB08\tmp_ebes\ + + + \ No newline at end of file diff --git a/bin/gsf/VITRUV.XMLxxx b/bin/gsf/VITRUV.XMLxxx new file mode 100644 index 0000000..4978b6d --- /dev/null +++ b/bin/gsf/VITRUV.XMLxxx @@ -0,0 +1,51 @@ + + + + + VITRUV + + + 1 + + + x: https://webdav.vitruv.ch/CH_ThurgauerKB/VitTransfer/Export + + + X: + + + 1 + + + wd-tkbedoka + + + fR*zzbED2lec + + + + + + + + + + + + + + + k:\edoka\EDKB08\ + + + \ No newline at end of file diff --git a/bin/gsf/WordChange.txt b/bin/gsf/WordChange.txt new file mode 100644 index 0000000..a7018b3 --- /dev/null +++ b/bin/gsf/WordChange.txt @@ -0,0 +1,6 @@ +;oe +;ue +;ae +;AE +;OE +;UE \ No newline at end of file diff --git a/bin/install.bat b/bin/install.bat new file mode 100644 index 0000000..bcd2777 --- /dev/null +++ b/bin/install.bat @@ -0,0 +1,2 @@ +C:\Windows\Microsoft.NET\Framework\v2.0.50727\installutil E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\edkb08.exe +pause \ No newline at end of file diff --git a/bin/install_U.bat b/bin/install_U.bat new file mode 100644 index 0000000..a242036 --- /dev/null +++ b/bin/install_U.bat @@ -0,0 +1,2 @@ +C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil /u E:\Software-Projekte\EDOKA\batch\EDKB17\EDKB17\EDKB17\bin\Debug\edkb17.exe +pause \ No newline at end of file diff --git a/bin/journaleconn.cfg b/bin/journaleconn.cfg new file mode 100644 index 0000000..ea7c035 --- /dev/null +++ b/bin/journaleconn.cfg @@ -0,0 +1 @@ +Data Source=shu00;Initial Catalog=edoka_journale;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29 \ No newline at end of file diff --git a/bin/journaleconn_Mail.cfg b/bin/journaleconn_Mail.cfg new file mode 100644 index 0000000..cec09e0 --- /dev/null +++ b/bin/journaleconn_Mail.cfg @@ -0,0 +1 @@ +data source=sb000233.tgcorp.ch;initial catalog=edoka_journale;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka33c \ No newline at end of file diff --git a/bin/parameters.cfg b/bin/parameters.cfg new file mode 100644 index 0000000..545b463 --- /dev/null +++ b/bin/parameters.cfg @@ -0,0 +1,24 @@ +Applikation-ID =10 +Filepfad =k:\edoka\edkb08\ +Temppfad =k:\edoka\edkb08\ +Journaltimer in Minuten =1 +Mail-Absender =stefan.hutter@tkb.ch +SMTP-Server = +DeleteOriginalfiles =1 +Mailadresse_OK =stefan.hutter@tkb.ch +Mailadresse_NOK =stefan.hutter@tkb.ch +GSF_ConfigFiles =E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\gsf\ +GSF_Timer in Minuten =1 +GSF_Conf_Dateiendung =xml +Directorytimer =10 +Directorys =E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\DirectoriesToScan.txt +IndexSicherung =k:\edoka\edkb08\indsik\ +TempLogFilePath =K:\EDOKA\EDKB08\Log +Use FileEvent Rename =False +Wait_after_fileevent =3 +Wait_before_process =5 +Wait_before_xmlind_ren =1 +Wait_before_readdir =2 +Wait_before_fileproc =2 +Wait_after_fileproc =2 + diff --git a/bin/parameters.cfg.bak b/bin/parameters.cfg.bak new file mode 100644 index 0000000..bc5ea18 --- /dev/null +++ b/bin/parameters.cfg.bak @@ -0,0 +1,15 @@ +Applikation-ID =10 +Filepfad =k:\edoka\edkb08\ +Temppfad =k:\edoka\edkb08\ +Journaltimer in Minuten =1 +Mail-Absender =stefan.hutter@tkb.ch +SMTP-Server = +DeleteOriginalfiles =1 +Mailadresse_OK =stefan.hutter@tkb.ch +Mailadresse_NOK =stefan.hutter@tkb.ch +GSF_ConfigFiles =E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\gsf\ +GSF_Timer in Minuten =100 +GSF_Conf_Dateiendung =xml +Directorytimer =10 +Directorys =E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\DirectoriesToScan.txt + diff --git a/edkb08/Datenbank/Avaloq.vb b/edkb08/Datenbank/Avaloq.vb new file mode 100644 index 0000000..ba015b2 --- /dev/null +++ b/edkb08/Datenbank/Avaloq.vb @@ -0,0 +1,3 @@ +Module Avaloq + +End Module diff --git a/edkb08/Datenbank/Journale/clsImport_Daten.vb b/edkb08/Datenbank/Journale/clsImport_Daten.vb new file mode 100644 index 0000000..b92bdd0 --- /dev/null +++ b/edkb08/Datenbank/Journale/clsImport_Daten.vb @@ -0,0 +1,417 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'Import_Daten' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Freitag, 15. April 2005, 13:41:18 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'Import_Daten'. + ' /// + Public Class clsImport_Daten + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_blobDaten As SqlBinary + Private m_iImport_Jobnr, m_iImport_Data_Nr As SqlInt32 + Private m_sDatenformat As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Data_Nr
    • + ' ///
  • iImport_Jobnr. May be SqlInt32.Null
    • + ' ///
  • sDatenformat. May be SqlString.Null
    • + ' ///
  • blobDaten. May be SqlBinary.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Daten_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Data_Nr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Data_Nr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Jobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_Jobnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatenformat", SqlDbType.VarChar, 3, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatenformat)) + Dim iLength As Integer = 0 + If Not m_blobDaten.IsNull Then + iLength = m_blobDaten.Length + End If + scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdaten", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDaten)) + 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_inport_Import_Daten_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("clsImport_Daten::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Data_Nr
    • + ' ///
  • iImport_Jobnr. May be SqlInt32.Null
    • + ' ///
  • sDatenformat. May be SqlString.Null
    • + ' ///
  • blobDaten. May be SqlBinary.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Daten_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Data_Nr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Data_Nr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Jobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_Jobnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatenformat", SqlDbType.VarChar, 3, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatenformat)) + Dim iLength As Integer = 0 + If Not m_blobDaten.IsNull Then + iLength = m_blobDaten.Length + End If + scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdaten", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDaten)) + 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_inport_Import_Daten_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("clsImport_Daten::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Data_Nr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Daten_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Data_Nr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Data_Nr)) + 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_inport_Import_Daten_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("clsImport_Daten::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Data_Nr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iImport_Data_Nr
    • + ' ///
  • iImport_Jobnr
    • + ' ///
  • sDatenformat
    • + ' ///
  • blobDaten
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Daten_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Daten") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iImport_Data_Nr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Data_Nr)) + 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_inport_Import_Daten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iImport_Data_Nr = New SqlInt32(CType(dtToReturn.Rows(0)("Import_Data_Nr"), Integer)) + If dtToReturn.Rows(0)("Import_Jobnr") Is System.DBNull.Value Then + m_iImport_Jobnr = SqlInt32.Null + Else + m_iImport_Jobnr = New SqlInt32(CType(dtToReturn.Rows(0)("Import_Jobnr"), Integer)) + End If + If dtToReturn.Rows(0)("datenformat") Is System.DBNull.Value Then + m_sDatenformat = SqlString.Null + Else + m_sDatenformat = New SqlString(CType(dtToReturn.Rows(0)("datenformat"), String)) + End If + If dtToReturn.Rows(0)("daten") Is System.DBNull.Value Then + m_blobDaten = SqlBinary.Null + Else + m_blobDaten = New SqlBinary(CType(dtToReturn.Rows(0)("daten"), Byte())) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsImport_Daten::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Daten_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Daten") + 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_inport_Import_Daten_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("clsImport_Daten::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 [iImport_Data_Nr]() As SqlInt32 + Get + Return m_iImport_Data_Nr + End Get + Set(ByVal Value As SqlInt32) + Dim iImport_Data_NrTmp As SqlInt32 = Value + If iImport_Data_NrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iImport_Data_Nr", "iImport_Data_Nr can't be NULL") + End If + m_iImport_Data_Nr = Value + End Set + End Property + + + Public Property [iImport_Jobnr]() As SqlInt32 + Get + Return m_iImport_Jobnr + End Get + Set(ByVal Value As SqlInt32) + m_iImport_Jobnr = Value + End Set + End Property + + + Public Property [sDatenformat]() As SqlString + Get + Return m_sDatenformat + End Get + Set(ByVal Value As SqlString) + m_sDatenformat = Value + End Set + End Property + + + Public Property [blobDaten]() As SqlBinary + Get + Return m_blobDaten + End Get + Set(ByVal Value As SqlBinary) + m_blobDaten = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/Journale/clsImport_Eintrag.vb b/edkb08/Datenbank/Journale/clsImport_Eintrag.vb new file mode 100644 index 0000000..55eb9ca --- /dev/null +++ b/edkb08/Datenbank/Journale/clsImport_Eintrag.vb @@ -0,0 +1,590 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'Import_Eintrag' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Donnerstag, 14. April 2005, 21:41: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 + ' /// + ' /// Purpose: Data Access class for the table 'Import_Eintrag'. + ' /// + Public Class clsImport_Eintrag + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_daTS As SqlDateTime + Private m_iImport_Eintragnr, m_iImport_JobNr As SqlInt32 + Private m_sEDOKA_Dokumentid, m_sStatustext, m_sEDOKA_Dokumenttyp, m_sIndexdaten, m_sApplikationsnr, m_sPartnernr, m_sRecordNo, m_sDateityp, m_sStatus, m_sDateiname As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_JobNr. May be SqlInt32.Null
    • + ' ///
  • daTS. May be SqlDateTime.Null
    • + ' ///
  • sRecordNo. May be SqlString.Null
    • + ' ///
  • sPartnernr. May be SqlString.Null
    • + ' ///
  • sDateityp. May be SqlString.Null
    • + ' ///
  • sDateiname. May be SqlString.Null
    • + ' ///
  • sStatus. May be SqlString.Null
    • + ' ///
  • sStatustext. May be SqlString.Null
    • + ' ///
  • sEDOKA_Dokumentid. May be SqlString.Null
    • + ' ///
  • sEDOKA_Dokumenttyp. May be SqlString.Null
    • + ' ///
  • sApplikationsnr. May be SqlString.Null
    • + ' ///
  • sIndexdaten. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iImport_Eintragnr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Eintrag_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daTS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sRecordNo", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRecordNo)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sPartnernr", SqlDbType.VarChar, 9, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDateityp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateityp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sStatus", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sStatustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStatustext)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sEDOKA_Dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEDOKA_Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sEDOKA_Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEDOKA_Dokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sApplikationsnr", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sApplikationsnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIndexdaten", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIndexdaten)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iImport_Eintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_Eintragnr)) + 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_iImport_Eintragnr = scmCmdToExecute.Parameters.Item("@iImport_Eintragnr").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_inport_Import_Eintrag_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("clsImport_Eintrag::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Eintragnr
    • + ' ///
  • iImport_JobNr. May be SqlInt32.Null
    • + ' ///
  • daTS. May be SqlDateTime.Null
    • + ' ///
  • sRecordNo. May be SqlString.Null
    • + ' ///
  • sPartnernr. May be SqlString.Null
    • + ' ///
  • sDateityp. May be SqlString.Null
    • + ' ///
  • sDateiname. May be SqlString.Null
    • + ' ///
  • sStatus. May be SqlString.Null
    • + ' ///
  • sStatustext. May be SqlString.Null
    • + ' ///
  • sEDOKA_Dokumentid. May be SqlString.Null
    • + ' ///
  • sEDOKA_Dokumenttyp. May be SqlString.Null
    • + ' ///
  • sApplikationsnr. May be SqlString.Null
    • + ' ///
  • sIndexdaten. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Eintrag_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Eintragnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daTS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sRecordNo", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRecordNo)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sPartnernr", SqlDbType.VarChar, 9, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDateityp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateityp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sStatus", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sStatustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStatustext)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sEDOKA_Dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEDOKA_Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sEDOKA_Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEDOKA_Dokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sApplikationsnr", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sApplikationsnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIndexdaten", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIndexdaten)) + 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_inport_Import_Eintrag_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("clsImport_Eintrag::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Eintragnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Eintrag_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_Eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Eintragnr)) + 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_inport_Import_Eintrag_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("clsImport_Eintrag::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_Eintragnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iImport_Eintragnr
    • + ' ///
  • iImport_JobNr
    • + ' ///
  • daTS
    • + ' ///
  • sRecordNo
    • + ' ///
  • sPartnernr
    • + ' ///
  • sDateityp
    • + ' ///
  • sDateiname
    • + ' ///
  • sStatus
    • + ' ///
  • sStatustext
    • + ' ///
  • sEDOKA_Dokumentid
    • + ' ///
  • sEDOKA_Dokumenttyp
    • + ' ///
  • sApplikationsnr
    • + ' ///
  • sIndexdaten
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Eintrag_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Eintrag") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iImport_Eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_Eintragnr)) + 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_inport_Import_Eintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iImport_Eintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("Import_Eintragnr"), Integer)) + If dtToReturn.Rows(0)("Import_JobNr") Is System.DBNull.Value Then + m_iImport_JobNr = SqlInt32.Null + Else + m_iImport_JobNr = New SqlInt32(CType(dtToReturn.Rows(0)("Import_JobNr"), Integer)) + End If + If dtToReturn.Rows(0)("TS") Is System.DBNull.Value Then + m_daTS = SqlDateTime.Null + Else + m_daTS = New SqlDateTime(CType(dtToReturn.Rows(0)("TS"), Date)) + End If + If dtToReturn.Rows(0)("RecordNo") Is System.DBNull.Value Then + m_sRecordNo = SqlString.Null + Else + m_sRecordNo = New SqlString(CType(dtToReturn.Rows(0)("RecordNo"), String)) + End If + If dtToReturn.Rows(0)("Partnernr") Is System.DBNull.Value Then + m_sPartnernr = SqlString.Null + Else + m_sPartnernr = New SqlString(CType(dtToReturn.Rows(0)("Partnernr"), String)) + End If + If dtToReturn.Rows(0)("Dateityp") Is System.DBNull.Value Then + m_sDateityp = SqlString.Null + Else + m_sDateityp = New SqlString(CType(dtToReturn.Rows(0)("Dateityp"), String)) + 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 + If dtToReturn.Rows(0)("Status") Is System.DBNull.Value Then + m_sStatus = SqlString.Null + Else + m_sStatus = New SqlString(CType(dtToReturn.Rows(0)("Status"), String)) + End If + If dtToReturn.Rows(0)("Statustext") Is System.DBNull.Value Then + m_sStatustext = SqlString.Null + Else + m_sStatustext = New SqlString(CType(dtToReturn.Rows(0)("Statustext"), String)) + End If + If dtToReturn.Rows(0)("EDOKA_Dokumentid") Is System.DBNull.Value Then + m_sEDOKA_Dokumentid = SqlString.Null + Else + m_sEDOKA_Dokumentid = New SqlString(CType(dtToReturn.Rows(0)("EDOKA_Dokumentid"), String)) + End If + If dtToReturn.Rows(0)("EDOKA_Dokumenttyp") Is System.DBNull.Value Then + m_sEDOKA_Dokumenttyp = SqlString.Null + Else + m_sEDOKA_Dokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("EDOKA_Dokumenttyp"), String)) + End If + If dtToReturn.Rows(0)("Applikationsnr") Is System.DBNull.Value Then + m_sApplikationsnr = SqlString.Null + Else + m_sApplikationsnr = New SqlString(CType(dtToReturn.Rows(0)("Applikationsnr"), String)) + End If + If dtToReturn.Rows(0)("Indexdaten") Is System.DBNull.Value Then + m_sIndexdaten = SqlString.Null + Else + m_sIndexdaten = New SqlString(CType(dtToReturn.Rows(0)("Indexdaten"), 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("clsImport_Eintrag::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_inport_Import_Eintrag_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Eintrag") + 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_inport_Import_Eintrag_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("clsImport_Eintrag::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 [iImport_Eintragnr]() As SqlInt32 + Get + Return m_iImport_Eintragnr + End Get + Set(ByVal Value As SqlInt32) + Dim iImport_EintragnrTmp As SqlInt32 = Value + If iImport_EintragnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iImport_Eintragnr", "iImport_Eintragnr can't be NULL") + End If + m_iImport_Eintragnr = Value + End Set + End Property + + + Public Property [iImport_JobNr]() As SqlInt32 + Get + Return m_iImport_JobNr + End Get + Set(ByVal Value As SqlInt32) + m_iImport_JobNr = Value + End Set + End Property + + + Public Property [daTS]() As SqlDateTime + Get + Return m_daTS + End Get + Set(ByVal Value As SqlDateTime) + m_daTS = Value + End Set + End Property + + + Public Property [sRecordNo]() As SqlString + Get + Return m_sRecordNo + End Get + Set(ByVal Value As SqlString) + m_sRecordNo = Value + End Set + End Property + + + Public Property [sPartnernr]() As SqlString + Get + Return m_sPartnernr + End Get + Set(ByVal Value As SqlString) + m_sPartnernr = Value + End Set + End Property + + + Public Property [sDateityp]() As SqlString + Get + Return m_sDateityp + End Get + Set(ByVal Value As SqlString) + m_sDateityp = 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 + + + Public Property [sStatus]() As SqlString + Get + Return m_sStatus + End Get + Set(ByVal Value As SqlString) + m_sStatus = Value + End Set + End Property + + + Public Property [sStatustext]() As SqlString + Get + Return m_sStatustext + End Get + Set(ByVal Value As SqlString) + m_sStatustext = Value + End Set + End Property + + + Public Property [sEDOKA_Dokumentid]() As SqlString + Get + Return m_sEDOKA_Dokumentid + End Get + Set(ByVal Value As SqlString) + m_sEDOKA_Dokumentid = Value + End Set + End Property + + + Public Property [sEDOKA_Dokumenttyp]() As SqlString + Get + Return m_sEDOKA_Dokumenttyp + End Get + Set(ByVal Value As SqlString) + m_sEDOKA_Dokumenttyp = Value + End Set + End Property + + + Public Property [sApplikationsnr]() As SqlString + Get + Return m_sApplikationsnr + End Get + Set(ByVal Value As SqlString) + m_sApplikationsnr = Value + End Set + End Property + + + Public Property [sIndexdaten]() As SqlString + Get + Return m_sIndexdaten + End Get + Set(ByVal Value As SqlString) + m_sIndexdaten = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/Journale/clsImport_Job.vb b/edkb08/Datenbank/Journale/clsImport_Job.vb new file mode 100644 index 0000000..97dc940 --- /dev/null +++ b/edkb08/Datenbank/Journale/clsImport_Job.vb @@ -0,0 +1,469 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'Import_Job' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 5. April 2005, 22:50:00 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'Import_Job'. + ' /// + Public Class clsImport_Job + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_daEnde_TS, m_daStart_TS, m_daJournal_Datum As SqlDateTime + Private m_iJournal_Ausgeliefert, m_iApplikationNr, m_iImport_JobNr, m_iFeherhaft As SqlInt32 + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • daStart_TS. May be SqlDateTime.Null
    • + ' ///
  • daEnde_TS. May be SqlDateTime.Null
    • + ' ///
  • iFeherhaft. May be SqlInt32.Null
    • + ' ///
  • iApplikationNr. May be SqlInt32.Null
    • + ' ///
  • iJournal_Ausgeliefert. May be SqlInt32.Null
    • + ' ///
  • daJournal_Datum. May be SqlDateTime.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iImport_JobNr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Import_Job_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart_TS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart_TS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde_TS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde_TS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iFeherhaft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFeherhaft)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iJournal_Ausgeliefert", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournal_Ausgeliefert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daJournal_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daJournal_Datum)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + 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_iImport_JobNr = scmCmdToExecute.Parameters.Item("@iImport_JobNr").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_Import_Job_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("clsImport_Job::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_JobNr
    • + ' ///
  • daStart_TS. May be SqlDateTime.Null
    • + ' ///
  • daEnde_TS. May be SqlDateTime.Null
    • + ' ///
  • iFeherhaft. May be SqlInt32.Null
    • + ' ///
  • iApplikationNr. May be SqlInt32.Null
    • + ' ///
  • iJournal_Ausgeliefert. May be SqlInt32.Null
    • + ' ///
  • daJournal_Datum. May be SqlDateTime.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Import_Job_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart_TS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart_TS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde_TS", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde_TS)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iFeherhaft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFeherhaft)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iJournal_Ausgeliefert", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournal_Ausgeliefert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daJournal_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daJournal_Datum)) + 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_Import_Job_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("clsImport_Job::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_JobNr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Import_Job_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + 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_Import_Job_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("clsImport_Job::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iImport_JobNr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iImport_JobNr
    • + ' ///
  • daStart_TS
    • + ' ///
  • daEnde_TS
    • + ' ///
  • iFeherhaft
    • + ' ///
  • iApplikationNr
    • + ' ///
  • iJournal_Ausgeliefert
    • + ' ///
  • daJournal_Datum
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Import_Job_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Job") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iImport_JobNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iImport_JobNr)) + 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_Import_Job_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iImport_JobNr = New SqlInt32(CType(dtToReturn.Rows(0)("Import_JobNr"), Integer)) + If dtToReturn.Rows(0)("Start_TS") Is System.DBNull.Value Then + m_daStart_TS = SqlDateTime.Null + Else + m_daStart_TS = New SqlDateTime(CType(dtToReturn.Rows(0)("Start_TS"), Date)) + End If + If dtToReturn.Rows(0)("Ende_TS") Is System.DBNull.Value Then + m_daEnde_TS = SqlDateTime.Null + Else + m_daEnde_TS = New SqlDateTime(CType(dtToReturn.Rows(0)("Ende_TS"), Date)) + End If + If dtToReturn.Rows(0)("Feherhaft") Is System.DBNull.Value Then + m_iFeherhaft = SqlInt32.Null + Else + m_iFeherhaft = New SqlInt32(CType(dtToReturn.Rows(0)("Feherhaft"), Integer)) + End If + 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)("Journal_Ausgeliefert") Is System.DBNull.Value Then + m_iJournal_Ausgeliefert = SqlInt32.Null + Else + m_iJournal_Ausgeliefert = New SqlInt32(CType(dtToReturn.Rows(0)("Journal_Ausgeliefert"), Integer)) + End If + If dtToReturn.Rows(0)("Journal_Datum") Is System.DBNull.Value Then + m_daJournal_Datum = SqlDateTime.Null + Else + m_daJournal_Datum = New SqlDateTime(CType(dtToReturn.Rows(0)("Journal_Datum"), 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("clsImport_Job::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Import_Job_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Import_Job") + 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_Import_Job_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("clsImport_Job::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 [iImport_JobNr]() As SqlInt32 + Get + Return m_iImport_JobNr + End Get + Set(ByVal Value As SqlInt32) + Dim iImport_JobNrTmp As SqlInt32 = Value + If iImport_JobNrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iImport_JobNr", "iImport_JobNr can't be NULL") + End If + m_iImport_JobNr = Value + End Set + End Property + + + Public Property [daStart_TS]() As SqlDateTime + Get + Return m_daStart_TS + End Get + Set(ByVal Value As SqlDateTime) + m_daStart_TS = Value + End Set + End Property + + + Public Property [daEnde_TS]() As SqlDateTime + Get + Return m_daEnde_TS + End Get + Set(ByVal Value As SqlDateTime) + m_daEnde_TS = Value + End Set + End Property + + + Public Property [iFeherhaft]() As SqlInt32 + Get + Return m_iFeherhaft + End Get + Set(ByVal Value As SqlInt32) + m_iFeherhaft = 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 [iJournal_Ausgeliefert]() As SqlInt32 + Get + Return m_iJournal_Ausgeliefert + End Get + Set(ByVal Value As SqlInt32) + m_iJournal_Ausgeliefert = Value + End Set + End Property + + + Public Property [daJournal_Datum]() As SqlDateTime + Get + Return m_daJournal_Datum + End Get + Set(ByVal Value As SqlDateTime) + m_daJournal_Datum = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/Journale/vssver.scc b/edkb08/Datenbank/Journale/vssver.scc new file mode 100644 index 0000000..077b724 Binary files /dev/null and b/edkb08/Datenbank/Journale/vssver.scc differ diff --git a/edkb08/Datenbank/clsAvaloq.vb b/edkb08/Datenbank/clsAvaloq.vb new file mode 100644 index 0000000..917fbc9 --- /dev/null +++ b/edkb08/Datenbank/clsAvaloq.vb @@ -0,0 +1,390 @@ +Imports System +Imports System.Data +Imports System.Data.OracleClient + +Namespace Avaloq + + Public Class SST + Const queryString As String = "k.tkb$out_dsp_in#.edoka_in" + Const queryStringGetValues As String = "k.tkb$out_dsp_in#.edoka_get_values" + Const queryStringOpenSession As String = "k.session#.open_session" + Const queryStringCloseSession As String = "k.session#.close_session" + Const avqOracleUser As String = "TKB$I_EDOKA" + Const avqSecUserId As Integer = 34 + Const avqBuId As Integer = 1 + + Const edkFaDokTyp As String = "1688" + + 'Const edkDokBezeichnungKey As String = "edk_bez" + 'Const edkDokBezeichnungDflt As String = "Antworttalon" + Dim connStrg As String + + + Private _hasErrors As Boolean + + Private _dlvEDK As Boolean + Private _dlvAVQ As Boolean + + Private _edkDokNr As String + Private _edkDokTypOvr As Boolean + Private _edkDokBezeichnung As String + Private _qrcode As String + Private _bpnr As String + + + + Public Sub New() + oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "avaloqconn.cfg") + connStrg = oread.ReadLine + oread.Close() + + End Sub + + + Public ReadOnly Property hasErrors() As Boolean + Get + Return _hasErrors + End Get + End Property + + Public ReadOnly Property DeliverToEDK As Boolean + Get + Return _dlvEDK + End Get + End Property + + Public ReadOnly Property DeliverToAVQ As Boolean + Get + Return _dlvAVQ + End Get + End Property + + Public ReadOnly Property BPNr As String + Get + Return _bpnr + End Get + End Property + + Public ReadOnly Property edkDokNr As String + Get + Return _edkDokNr + End Get + End Property + + Public ReadOnly Property edkDokTypOvr As Boolean + Get + Return _edkDokTypOvr + End Get + End Property + + Public ReadOnly Property edkDokBezeichnung As String + Get + Return _edkDokBezeichnung + End Get + End Property + + + Private Sub InitItem() + _hasErrors = False + _dlvEDK = True + _dlvAVQ = True + _bpnr = Nothing + _edkDokNr = Nothing + _edkDokTypOvr = False + _edkDokBezeichnung = Nothing + _qrcode = Nothing + End Sub + + Public Sub Prepare(ByVal BPNr As String, ByVal XmlDokTypNr As String, ByVal Instructions As String, ByVal dlvEDK As String, ByVal dlvAVQ As String) + PrintOut("AVQ Prepare Start") + InitItem() + + If Instructions.IndexOf("dms_id:;bp_nr:;attr1:") > -1 Then + Instructions = Instructions.Replace("dms_id:;bp_nr:;attr1:", "") + End If + _qrcode = Instructions + + If Len(XmlDokTypNr) > 0 Then + If XmlDokTypNr <> edkFaDokTyp Then + 'DokTyp ist ein Edoka-Doktyp + _edkDokNr = XmlDokTypNr + _edkDokTypOvr = True + End If + End If + + If dlvEDK = "0" Then + _dlvEDK = False + End If + + If dlvAVQ = "0" Then + _dlvAVQ = False + End If + + If Len(_qrcode) > 0 Then + + + + End If + + If _dlvAVQ = True Or _dlvEDK = True Then + + GetAvqData(BPNr, Instructions) + + If Len(BPNr) > 0 And BPNr <> _bpnr Then + + 'Wahrscheinlich falsch manuell indexiert + End If + + End If + + 'If Len(_qrcode) > 0 Then + ' _hasQrCode = True + ' + ''EDOKA-Dokument-Bezeichnung auslesen + 'Try + 'For Each pairs As String In _qrcode.Split(";"c) + 'Dim values As String() = pairs.Split(":"c) + 'If values(0) = edkDokBezeichnungKey Then + ' _edkDokBezeichnung = values(1) + ' End If + ' Next + ' Catch ex As Exception + ' _hasErrors = True + ' _edkDokBezeichnung = edkDokBezeichnungDflt + ' End Try + ' Else + ' _hasErrors = True + ' _edkDokBezeichnung = edkDokBezeichnungDflt + ' End If + PrintOut("AVQ Prepare Ende") + + End Sub + + + Private Sub GetAvqData(ByVal BPNr As String, ByVal Instructions As String) + PrintOut("GetAVQData Start") + Dim dataReader As OracleDataReader + Dim connectionSession As New OracleConnection + + connectionSession.ConnectionString = connStrg + 'OracleConnection.ClearAllPools() + Dim command As OracleCommand = connectionSession.CreateCommand() + + command.Parameters.Clear() + + command.CommandText = queryStringOpenSession + command.CommandType = CommandType.StoredProcedure + command.Parameters.Add(New OracleParameter("i_sec_user_id", OracleType.Int32)).Value = avqSecUserId + command.Parameters.Add(New OracleParameter("i_oracle_user", OracleType.VarChar)).Value = avqOracleUser + command.Parameters.Add(New OracleParameter("i_bu_id", OracleType.Int32)).Value = avqBuId + Try + connectionSession.Open() + command.ExecuteReader() + 'dataReader.Read() + 'dataReader.Close() + 'dataReader.Dispose() + Catch ex As Exception + PrintOut("Get_AVQ_Data (1):" + ex.Message) + If connectionSession.State = ConnectionState.Closed Then + connectionSession.Open() + command.ExecuteReader() + End If + End Try + + + command.Parameters.Clear() + + command.CommandText = queryStringGetValues + command.CommandType = CommandType.StoredProcedure + command.Parameters.Add(New OracleParameter("i_bp_nr", OracleType.VarChar)).Value = BPNr + command.Parameters.Add(New OracleParameter("i_instructions", OracleType.VarChar)).Value = Instructions + command.Parameters.Add(New OracleParameter("o_bp_nr", OracleType.Char, 4000)).Direction = ParameterDirection.Output + command.Parameters.Add(New OracleParameter("o_edk_dok_nr", OracleType.Char, 4000)).Direction = ParameterDirection.Output + command.Parameters.Add(New OracleParameter("o_edk_dok_bez", OracleType.Char, 4000)).Direction = ParameterDirection.Output + command.Parameters.Add(New OracleParameter("o_ret_val", OracleType.Char, 4000)).Direction = ParameterDirection.Output + + Try + If connectionSession.State = ConnectionState.Open Then + 'nothing + Else + connectionSession.Open() + End If + + + dataReader = command.ExecuteReader() + dataReader.Read() + + Dim rbpnr As String = Trim(command.Parameters.Item(2).Value) + Dim rdoktypnr As String = Trim(command.Parameters.Item(3).Value) + Dim rdokbez As String = Trim(command.Parameters.Item(4).Value) + Dim ret As String = Trim(command.Parameters.Item(5).Value) + + If ret = "OK" Then + _hasErrors = False + Else + _hasErrors = True + End If + + _bpnr = rbpnr + _edkDokBezeichnung = rdokbez 'Edoka-Dokumentbezeichnung für allfälligen Override UND für den Standard-Fall + + If _edkDokTypOvr = False Then + 'Falls Doktyp-Override aus Scanning kommt, ist Definition in Avaloq-Table-Editor irrelevant + If Len(rdoktypnr) > 0 And rdoktypnr <> edkFaDokTyp Then + _edkDokNr = rdoktypnr + _edkDokTypOvr = True + End If + End If + + dataReader.Close() + dataReader.Dispose() + connectionSession.Close() + connectionSession.Dispose() + 'ACHTUNG + connectionSession = Nothing + dataReader = Nothing + command = Nothing + + 'ACHTUNG + + Catch ex As Exception + PrintOut("Get_AVQ_Data (2):" + ex.Message) + + Console.WriteLine(ex.Message) + If connectionSession.State = ConnectionState.Open Then + command.Parameters.Clear() + command.CommandText = "k.session#.close_session" + command.CommandType = CommandType.StoredProcedure + Try + dataReader = command.ExecuteReader() + dataReader.Read() + dataReader.Close() + dataReader.Dispose() + Catch ex1 As Exception + + End Try + + command.Dispose() + connectionSession.Close() + connectionSession.Dispose() + Console.WriteLine(connectionSession.State) + End If + End Try + PrintOut("GetAVQData Ende") + + End Sub + + + + Public Sub SendData() + PrintOut("AVQ Sendata Start") + + If Len(_bpnr) = 0 Or Len(_qrcode) = 0 Then + _hasErrors = True + Return + End If + + + _hasErrors = True 'wird bei erfolgreicher Übermittlung auf false gesetellt + + Dim dataReader As OracleDataReader + Dim connectionSession As New OracleConnection + + connectionSession.ConnectionString = connStrg + 'OracleConnection.ClearAllPools() + Dim command As OracleCommand = connectionSession.CreateCommand() + + command.Parameters.Clear() + + command.CommandText = queryStringOpenSession + command.CommandType = CommandType.StoredProcedure + command.Parameters.Add(New OracleParameter("i_sec_user_id", OracleType.Int32)).Value = avqSecUserId + command.Parameters.Add(New OracleParameter("i_oracle_user", OracleType.VarChar)).Value = avqOracleUser + command.Parameters.Add(New OracleParameter("i_bu_id", OracleType.Int32)).Value = avqBuId + Try + connectionSession.Open() + 'connectionSession.Open() + 'connectionSession.open + 'dataReader = + command.ExecuteReader() + 'dataReader.Read() + 'dataReader.Close() + 'dataReader.Dispose() + Catch ex As Exception + PrintOut("AVQ Send_Data (1):" + ex.Message) + + If connectionSession.State = ConnectionState.Closed Then + connectionSession.Open() + command.ExecuteReader() + End If + End Try + + + command.Parameters.Clear() + + command.CommandText = queryString + command.CommandType = CommandType.StoredProcedure + command.Parameters.Add(New OracleParameter("i_bp_nr", OracleType.VarChar)).Value = _bpnr + command.Parameters.Add(New OracleParameter("i_instructions", OracleType.VarChar)).Value = _qrcode + command.Parameters.Add(New OracleParameter("o_ret_val", OracleType.VarChar, 20)).Direction = ParameterDirection.Output + + Try + If connectionSession.State = ConnectionState.Open Then + 'nothing + Else + connectionSession.Open() + End If + + + dataReader = command.ExecuteReader() + dataReader.Read() + + Dim result As String = command.Parameters.Item(2).Value + If result = "OK" Then + _hasErrors = False + Else + _hasErrors = True + End If + + dataReader.Close() + dataReader.Dispose() + connectionSession.Close() + connectionSession.Dispose() + 'ACHTUNG + connectionSession = Nothing + dataReader = Nothing + command = Nothing + + 'ACHTUNG + + Catch ex As Exception + PrintOut("AVQ Send_Data (2):" + ex.Message) + + Console.WriteLine(ex.Message) + If connectionSession.State = ConnectionState.Open Then + command.Parameters.Clear() + command.CommandText = "k.session#.close_session" + command.CommandType = CommandType.StoredProcedure + Try + dataReader = command.ExecuteReader() + dataReader.Read() + dataReader.Close() + dataReader.Dispose() + Catch ex1 As Exception + + End Try + + command.Dispose() + connectionSession.Close() + connectionSession.Dispose() + Console.WriteLine(connectionSession.State) + End If + End Try + PrintOut("AVQ Sendata Ende") + End Sub + End Class + + + +End Namespace + diff --git a/edkb08/Datenbank/clsConnectionProvider.vb b/edkb08/Datenbank/clsConnectionProvider.vb new file mode 100644 index 0000000..4a5a6fa --- /dev/null +++ b/edkb08/Datenbank/clsConnectionProvider.vb @@ -0,0 +1,289 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Connection Provider class for Database connection sharing +' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25 +' // This class implements IDisposable. +' /////////////////////////////////////////////////////////////////////////// +Imports System +Imports System.Configuration +Imports System.Data +Imports System.Data.SqlClient +Imports System.Collections + +Namespace edokadb + ' /// + ' /// 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. + ' /// + 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 + + + ' /// + ' /// Purpose: Implements the IDispose' method Dispose. + ' /// + Overloads Public Sub Dispose() Implements IDisposable.Dispose + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + + + ' /// + ' /// Purpose: Implements the Dispose functionality. + ' /// + Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean) + ' // Check to see if Dispose has already been called. + If Not m_bIsDisposed Then + If bIsDisposing Then + ' // Dispose managed resources. + If Not (m_stCurrentTransaction Is Nothing) Then + m_stCurrentTransaction.Dispose() + m_stCurrentTransaction = Nothing + End If + If Not (m_scoDBConnection Is Nothing) Then + ' // closing the connection will abort (rollback) any pending transactions + m_scoDBConnection.Close() + m_scoDBConnection.Dispose() + m_scoDBConnection = Nothing + End If + End If + End If + m_bIsDisposed = True + End Sub + + + ' /// + ' /// Purpose: Initializes class members. + ' /// + 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 + + + ' /// + ' /// Purpose: Opens the connection object. + ' /// + ' /// True, if succeeded, otherwise an Exception exception is thrown. + 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 + + + ' /// + ' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class. + ' /// + ' /// Name of the transaction to start + ' /// True, if transaction is started correctly, otherwise an Exception exception is thrown + Public Function BeginTransaction(sTransactionName As String) As Boolean + Try + If m_bIsTransactionPending Then + ' // no nested transactions allowed. + Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed") + End If + If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then + ' // no open connection + Throw New Exception("BeginTransaction::Connection is not open.") + End If + ' // begin the transaction and store the transaction object. + m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName) + m_bIsTransactionPending = True + Return True + Catch ex As Exception + ' // bubble exception + Throw ex + End Try + End Function + + + ' /// + ' /// Purpose: Commits a pending transaction on the open connection object of this class. + ' /// + ' /// True, if commit was succesful, or an Exception exception is thrown + 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 + + + ' /// + ' /// 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(). + ' /// + ' /// Name of transaction to roll back. Can be name of savepoint + ' /// True, if rollback was succesful, or an Exception exception is thrown + Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean + Try + If Not m_bIsTransactionPending Then + ' // no transaction pending + Throw New Exception("RollbackTransaction::No transaction pending.") + End If + If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then + ' // no open connection + Throw New Exception("RollbackTransaction::Connection is not open.") + End If + ' // rollback the transaction + m_stCurrentTransaction.Rollback(sTransactionToRollback) + ' // if this wasn't a savepoint, we've rolled back the complete transaction, so we + ' // can clean it up. + If Not m_alSavePoints.Contains(sTransactionToRollback) Then + ' // it's not a savepoint + m_bIsTransactionPending = False + m_stCurrentTransaction.Dispose() + m_stCurrentTransaction = Nothing + m_alSavePoints.Clear() + End If + Return True + Catch ex As Exception + ' // bubble exception + Throw ex + End Try + End Function + + + ' /// + ' /// 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. + ' /// + ' /// Name of the savepoint to store the current transaction under. + ' /// True, if save was succesful, or an Exception exception is thrown + Public Function SaveTransaction(sSavePointName As String) As Boolean + Try + If Not m_bIsTransactionPending Then + ' // no transaction pending + Throw New Exception("SaveTransaction::No transaction pending.") + End If + If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then + ' // no open connection + Throw New Exception("SaveTransaction::Connection is not open.") + End If + ' // save the transaction + m_stCurrentTransaction.Save(sSavePointName) + ' // Store the savepoint in the list. + m_alSavePoints.Add(sSavePointName) + Return True + Catch ex As Exception + ' // bubble exception + Throw ex + End Try + End Function + + + ' /// + ' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending + ' /// transaction is commited, or aborted. + ' /// + ' /// 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. + ' /// True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when + ' /// an error occurs + Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean + Try + If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then + ' // No open connection + Return False + End If + If m_bIsTransactionPending Then + If bCommitPendingTransaction Then + ' // Commit the pending transaction + m_stCurrentTransaction.Commit() + Else + ' // Rollback the pending transaction + m_stCurrentTransaction.Rollback() + End If + m_bIsTransactionPending = False + m_stCurrentTransaction.Dispose() + m_stCurrentTransaction = Nothing + m_alSavePoints.Clear() + End If + ' // close the connection + m_scoDBConnection.Close() + Return True + Catch ex As Exception + ' // bubble exception + Throw ex + End Try + End Function + + +#Region " Class Property Declarations " + + Public ReadOnly Property stCurrentTransaction() As SqlTransaction + Get + Return m_stCurrentTransaction + End Get + End Property + + + Public ReadOnly Property bIsTransactionPending() As Boolean + Get + Return m_bIsTransactionPending + End Get + End Property + + + Public ReadOnly Property scoDBConnection() As SqlConnection + Get + Return m_scoDBConnection + End Get + End Property + Public WriteOnly Property sConnectionString() As String + Set (ByVal Value As String) + m_scoDBConnection.ConnectionString = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsDBInteractionBase.vb b/edkb08/Datenbank/clsDBInteractionBase.vb new file mode 100644 index 0000000..1f46668 --- /dev/null +++ b/edkb08/Datenbank/clsDBInteractionBase.vb @@ -0,0 +1,202 @@ +' ////////////////////////////////////////////////////////////////////////////////////////// +' // Description: Base class for Database Interaction. +' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25 +' // 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 + ' /// + ' /// Purpose: Error Enums used by this LLBL library. + ' /// + Public Enum LLBLError + AllOk + ' // Add more here (check the comma's!) + End Enum + + + ' /// + ' /// Purpose: General interface of the API generated. Contains only common methods of all classes. + ' /// + 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 + + + ' /// + ' /// Purpose: Abstract base class for Database Interaction classes. + ' /// + 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 + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Initialize the class' members. + InitClass() + End Sub + + + ' /// + ' /// Purpose: Initializes class members. + ' /// + 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 + + + ' /// + ' /// Purpose: Implements the IDispose' method Dispose. + ' /// + Overloads Public Sub Dispose() Implements IDisposable.Dispose + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + + + ' /// + ' /// Purpose: Implements the Dispose functionality. + ' /// + Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean) + ' // Check to see if Dispose has already been called. + If Not m_bIsDisposed Then + If bIsDisposing Then + ' // Dispose managed resources. + If m_bMainConnectionIsCreatedLocal Then + ' // Object is created in this class, so destroy it here. + m_scoMainConnection.Close() + m_scoMainConnection.Dispose() + m_bMainConnectionIsCreatedLocal = True + End If + m_cpMainConnectionProvider = Nothing + m_scoMainConnection = Nothing + End If + End If + m_bIsDisposed = True + End Sub + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Insert() method. + ' /// + Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Delete() method. + ' /// + Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Update() method. + ' /// + Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.SelectOne() method. + ' /// + Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.SelectAll() method. + ' /// + 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 diff --git a/edkb08/Datenbank/clsDokument.vb b/edkb08/Datenbank/clsDokument.vb new file mode 100644 index 0000000..e5f3bb1 --- /dev/null +++ b/edkb08/Datenbank/clsDokument.vb @@ -0,0 +1,1890 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'dokument' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 24. Mai 2005, 16:40: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 + ' /// + ' /// Purpose: Data Access class for the table 'dokument'. + ' /// + Public Class clsDokument + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean + Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime + Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 + Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumentid
    • + ' ///
  • iMitarbeiternr. May be SqlInt32.Null
    • + ' ///
  • iMitarbeiternr1. May be SqlInt32.Null
    • + ' ///
  • iNrpar00. May be SqlInt32.Null
    • + ' ///
  • sDokumentidn. May be SqlString.Null
    • + ' ///
  • sDokumentname. May be SqlString.Null
    • + ' ///
  • iErsteller. May be SqlInt32.Null
    • + ' ///
  • iErstellerteam. May be SqlInt32.Null
    • + ' ///
  • daErstelltam. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iMutierertieam. May be SqlInt32.Null
    • + ' ///
  • daMutiertam. May be SqlDateTime.Null
    • + ' ///
  • sSpeicherort. May be SqlString.Null
    • + ' ///
  • bGesperrt. May be SqlBoolean.Null
    • + ' ///
  • iGesperrt_durch. May be SqlInt32.Null
    • + ' ///
  • daGesperrtam. May be SqlDateTime.Null
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sBemerkung. May be SqlString.Null
    • + ' ///
  • bAuserstuebernahme. May be SqlBoolean.Null
    • + ' ///
  • iDokumenttypnr. May be SqlInt32.Null
    • + ' ///
  • bUnvollstaendig. May be SqlBoolean.Null
    • + ' ///
  • sBemerkunguvm. May be SqlString.Null
    • + ' ///
  • bBereit_zur_archivierung. May be SqlBoolean.Null
    • + ' ///
  • bAusgangsarchiviert. May be SqlBoolean.Null
    • + ' ///
  • daDatum_ausgangsarchivierung. May be SqlDateTime.Null
    • + ' ///
  • iMa_ausgangsarchivierung. May be SqlInt32.Null
    • + ' ///
  • bZu_retournieren. May be SqlBoolean.Null
    • + ' ///
  • bEingangsarchiviert. May be SqlBoolean.Null
    • + ' ///
  • daDatum_eingangsarchivierung. May be SqlDateTime.Null
    • + ' ///
  • iMa_eingangsarchivierung. May be SqlInt32.Null
    • + ' ///
  • iStatus_edoka_batch_ausgang. May be SqlInt32.Null
    • + ' ///
  • iStatus_edoka_batch_eingang. May be SqlInt32.Null
    • + ' ///
  • sLoeschgrund. May be SqlString.Null
    • + ' ///
  • iColdstatus. May be SqlInt32.Null
    • + ' ///
  • sVersandadresse. May be SqlString.Null
    • + ' ///
  • iBarcodenr. May be SqlInt32.Null
    • + ' ///
  • sColddokumentid. May be SqlString.Null
    • + ' ///
  • bAmsdokument. May be SqlBoolean.Null
    • + ' ///
  • iVerantwortlich. May be SqlInt32.Null
    • + ' ///
  • iZustaendiger. May be SqlInt32.Null
    • + ' ///
  • iUnterschriftlinks. May be SqlInt32.Null
    • + ' ///
  • iUnterschriftrechts. May be SqlInt32.Null
    • + ' ///
  • iPostzustellung. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • iStatusnr. May be SqlInt32.Null
    • + ' ///
  • bZustaendig_kube. May be SqlBoolean.Null
    • + ' ///
  • sZustelladresse. May be SqlString.Null
    • + ' ///
  • bVertraulich. May be SqlBoolean.Null
    • + ' ///
  • daErstellungsdatum. May be SqlDateTime.Null
    • + ' ///
  • daArchivierungsdatum. May be SqlDateTime.Null
    • + ' ///
  • daTermin. May be SqlDateTime.Null
    • + ' ///
  • iMutiererteam. May be SqlInt32.Null
    • + ' ///
  • sAnredezustelladresse. May be SqlString.Null
    • + ' ///
  • iDokdurchkubeweitergegeben. May be SqlInt32.Null
    • + ' ///
  • iBck. May be SqlInt32.Null
    • + ' ///
  • iBearbeitungszeit_in_minuten. May be SqlInt32.Null
    • + ' ///
  • iMonierung_in_tagen. May be SqlInt32.Null
    • + ' ///
  • iAufbewahrung_elektronisch. May be SqlInt32.Null
    • + ' ///
  • iAufbewahrung_phaysisch. May be SqlInt32.Null
    • + ' ///
  • iIn_edoka_datenbank. May be SqlInt32.Null
    • + ' ///
  • iBearbeitung_nach_abschluss. May be SqlInt32.Null
    • + ' ///
  • sColdfolder. May be SqlString.Null
    • + ' ///
  • sColdschema. May be SqlString.Null
    • + ' ///
  • daErinnerungam. May be SqlDateTime.Null
    • + ' ///
  • sFANummer1. May be SqlString.Null
    • + ' ///
  • sFANummer2. May be SqlString.Null
    • + ' ///
  • bFapartnerwechsel. May be SqlBoolean.Null
    • + ' ///
  • bFAStatuswechsel. May be SqlBoolean.Null
    • + ' ///
  • bFAVerantwortlicherwechsel. May be SqlBoolean.Null
    • + ' ///
  • sBedRDokumentid. May be SqlString.Null
    • + ' ///
  • bBedRRetourniert. May be SqlBoolean.Null
    • + ' ///
  • iBRVernichtungnachTagen. May be SqlInt32.Null
    • + ' ///
  • bOfficedokumentgeloescht. May be SqlBoolean.Null
    • + ' ///
  • sFanummer3. May be SqlString.Null
    • + ' ///
  • sVvnr. May be SqlString.Null
    • + ' ///
  • iAnzeigeStatus. May be SqlInt32.Null
    • + ' ///
  • bBl_scan. May be SqlBoolean.Null
    • + ' ///
  • bBldossier. May be SqlBoolean.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) + 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_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("clsDokument::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumentid
    • + ' ///
  • iMitarbeiternr. May be SqlInt32.Null
    • + ' ///
  • iMitarbeiternr1. May be SqlInt32.Null
    • + ' ///
  • iNrpar00. May be SqlInt32.Null
    • + ' ///
  • sDokumentidn. May be SqlString.Null
    • + ' ///
  • sDokumentname. May be SqlString.Null
    • + ' ///
  • iErsteller. May be SqlInt32.Null
    • + ' ///
  • iErstellerteam. May be SqlInt32.Null
    • + ' ///
  • daErstelltam. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iMutierertieam. May be SqlInt32.Null
    • + ' ///
  • daMutiertam. May be SqlDateTime.Null
    • + ' ///
  • sSpeicherort. May be SqlString.Null
    • + ' ///
  • bGesperrt. May be SqlBoolean.Null
    • + ' ///
  • iGesperrt_durch. May be SqlInt32.Null
    • + ' ///
  • daGesperrtam. May be SqlDateTime.Null
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sBemerkung. May be SqlString.Null
    • + ' ///
  • bAuserstuebernahme. May be SqlBoolean.Null
    • + ' ///
  • iDokumenttypnr. May be SqlInt32.Null
    • + ' ///
  • bUnvollstaendig. May be SqlBoolean.Null
    • + ' ///
  • sBemerkunguvm. May be SqlString.Null
    • + ' ///
  • bBereit_zur_archivierung. May be SqlBoolean.Null
    • + ' ///
  • bAusgangsarchiviert. May be SqlBoolean.Null
    • + ' ///
  • daDatum_ausgangsarchivierung. May be SqlDateTime.Null
    • + ' ///
  • iMa_ausgangsarchivierung. May be SqlInt32.Null
    • + ' ///
  • bZu_retournieren. May be SqlBoolean.Null
    • + ' ///
  • bEingangsarchiviert. May be SqlBoolean.Null
    • + ' ///
  • daDatum_eingangsarchivierung. May be SqlDateTime.Null
    • + ' ///
  • iMa_eingangsarchivierung. May be SqlInt32.Null
    • + ' ///
  • iStatus_edoka_batch_ausgang. May be SqlInt32.Null
    • + ' ///
  • iStatus_edoka_batch_eingang. May be SqlInt32.Null
    • + ' ///
  • sLoeschgrund. May be SqlString.Null
    • + ' ///
  • iColdstatus. May be SqlInt32.Null
    • + ' ///
  • sVersandadresse. May be SqlString.Null
    • + ' ///
  • iBarcodenr. May be SqlInt32.Null
    • + ' ///
  • sColddokumentid. May be SqlString.Null
    • + ' ///
  • bAmsdokument. May be SqlBoolean.Null
    • + ' ///
  • iVerantwortlich. May be SqlInt32.Null
    • + ' ///
  • iZustaendiger. May be SqlInt32.Null
    • + ' ///
  • iUnterschriftlinks. May be SqlInt32.Null
    • + ' ///
  • iUnterschriftrechts. May be SqlInt32.Null
    • + ' ///
  • iPostzustellung. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • iStatusnr. May be SqlInt32.Null
    • + ' ///
  • bZustaendig_kube. May be SqlBoolean.Null
    • + ' ///
  • sZustelladresse. May be SqlString.Null
    • + ' ///
  • bVertraulich. May be SqlBoolean.Null
    • + ' ///
  • daErstellungsdatum. May be SqlDateTime.Null
    • + ' ///
  • daArchivierungsdatum. May be SqlDateTime.Null
    • + ' ///
  • daTermin. May be SqlDateTime.Null
    • + ' ///
  • iMutiererteam. May be SqlInt32.Null
    • + ' ///
  • sAnredezustelladresse. May be SqlString.Null
    • + ' ///
  • iDokdurchkubeweitergegeben. May be SqlInt32.Null
    • + ' ///
  • iBck. May be SqlInt32.Null
    • + ' ///
  • iBearbeitungszeit_in_minuten. May be SqlInt32.Null
    • + ' ///
  • iMonierung_in_tagen. May be SqlInt32.Null
    • + ' ///
  • iAufbewahrung_elektronisch. May be SqlInt32.Null
    • + ' ///
  • iAufbewahrung_phaysisch. May be SqlInt32.Null
    • + ' ///
  • iIn_edoka_datenbank. May be SqlInt32.Null
    • + ' ///
  • iBearbeitung_nach_abschluss. May be SqlInt32.Null
    • + ' ///
  • sColdfolder. May be SqlString.Null
    • + ' ///
  • sColdschema. May be SqlString.Null
    • + ' ///
  • daErinnerungam. May be SqlDateTime.Null
    • + ' ///
  • sFANummer1. May be SqlString.Null
    • + ' ///
  • sFANummer2. May be SqlString.Null
    • + ' ///
  • bFapartnerwechsel. May be SqlBoolean.Null
    • + ' ///
  • bFAStatuswechsel. May be SqlBoolean.Null
    • + ' ///
  • bFAVerantwortlicherwechsel. May be SqlBoolean.Null
    • + ' ///
  • sBedRDokumentid. May be SqlString.Null
    • + ' ///
  • bBedRRetourniert. May be SqlBoolean.Null
    • + ' ///
  • iBRVernichtungnachTagen. May be SqlInt32.Null
    • + ' ///
  • bOfficedokumentgeloescht. May be SqlBoolean.Null
    • + ' ///
  • sFanummer3. May be SqlString.Null
    • + ' ///
  • sVvnr. May be SqlString.Null
    • + ' ///
  • iAnzeigeStatus. May be SqlInt32.Null
    • + ' ///
  • bBl_scan. May be SqlBoolean.Null
    • + ' ///
  • bBldossier. May be SqlBoolean.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) + 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_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("clsDokument::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumentid
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, 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_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("clsDokument::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumentid
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • sDokumentid
    • + ' ///
  • iMitarbeiternr
    • + ' ///
  • iMitarbeiternr1
    • + ' ///
  • iNrpar00
    • + ' ///
  • sDokumentidn
    • + ' ///
  • sDokumentname
    • + ' ///
  • iErsteller
    • + ' ///
  • iErstellerteam
    • + ' ///
  • daErstelltam
    • + ' ///
  • iMutierer
    • + ' ///
  • iMutierertieam
    • + ' ///
  • daMutiertam
    • + ' ///
  • sSpeicherort
    • + ' ///
  • bGesperrt
    • + ' ///
  • iGesperrt_durch
    • + ' ///
  • daGesperrtam
    • + ' ///
  • sBezeichnung
    • + ' ///
  • sBemerkung
    • + ' ///
  • bAuserstuebernahme
    • + ' ///
  • iDokumenttypnr
    • + ' ///
  • bUnvollstaendig
    • + ' ///
  • sBemerkunguvm
    • + ' ///
  • bBereit_zur_archivierung
    • + ' ///
  • bAusgangsarchiviert
    • + ' ///
  • daDatum_ausgangsarchivierung
    • + ' ///
  • iMa_ausgangsarchivierung
    • + ' ///
  • bZu_retournieren
    • + ' ///
  • bEingangsarchiviert
    • + ' ///
  • daDatum_eingangsarchivierung
    • + ' ///
  • iMa_eingangsarchivierung
    • + ' ///
  • iStatus_edoka_batch_ausgang
    • + ' ///
  • iStatus_edoka_batch_eingang
    • + ' ///
  • sLoeschgrund
    • + ' ///
  • iColdstatus
    • + ' ///
  • sVersandadresse
    • + ' ///
  • iBarcodenr
    • + ' ///
  • sColddokumentid
    • + ' ///
  • bAmsdokument
    • + ' ///
  • iVerantwortlich
    • + ' ///
  • iZustaendiger
    • + ' ///
  • iUnterschriftlinks
    • + ' ///
  • iUnterschriftrechts
    • + ' ///
  • iPostzustellung
    • + ' ///
  • bAktiv
    • + ' ///
  • iStatusnr
    • + ' ///
  • bZustaendig_kube
    • + ' ///
  • sZustelladresse
    • + ' ///
  • bVertraulich
    • + ' ///
  • daErstellungsdatum
    • + ' ///
  • daArchivierungsdatum
    • + ' ///
  • daTermin
    • + ' ///
  • iMutiererteam
    • + ' ///
  • sAnredezustelladresse
    • + ' ///
  • iDokdurchkubeweitergegeben
    • + ' ///
  • iBck
    • + ' ///
  • iBearbeitungszeit_in_minuten
    • + ' ///
  • iMonierung_in_tagen
    • + ' ///
  • iAufbewahrung_elektronisch
    • + ' ///
  • iAufbewahrung_phaysisch
    • + ' ///
  • iIn_edoka_datenbank
    • + ' ///
  • iBearbeitung_nach_abschluss
    • + ' ///
  • sColdfolder
    • + ' ///
  • sColdschema
    • + ' ///
  • daErinnerungam
    • + ' ///
  • sFANummer1
    • + ' ///
  • sFANummer2
    • + ' ///
  • bFapartnerwechsel
    • + ' ///
  • bFAStatuswechsel
    • + ' ///
  • bFAVerantwortlicherwechsel
    • + ' ///
  • sBedRDokumentid
    • + ' ///
  • bBedRRetourniert
    • + ' ///
  • iBRVernichtungnachTagen
    • + ' ///
  • bOfficedokumentgeloescht
    • + ' ///
  • sFanummer3
    • + ' ///
  • sVvnr
    • + ' ///
  • iAnzeigeStatus
    • + ' ///
  • bBl_scan
    • + ' ///
  • bBldossier
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("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, 22, 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_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) + If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then + m_iMitarbeiternr = SqlInt32.Null + Else + m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer)) + End If + If dtToReturn.Rows(0)("mitarbeiternr1") Is System.DBNull.Value Then + m_iMitarbeiternr1 = SqlInt32.Null + Else + m_iMitarbeiternr1 = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr1"), Integer)) + End If + If dtToReturn.Rows(0)("nrpar00") Is System.DBNull.Value Then + m_iNrpar00 = SqlInt32.Null + Else + m_iNrpar00 = New SqlInt32(CType(dtToReturn.Rows(0)("nrpar00"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentidn") Is System.DBNull.Value Then + m_sDokumentidn = SqlString.Null + Else + m_sDokumentidn = New SqlString(CType(dtToReturn.Rows(0)("dokumentidn"), String)) + End If + If dtToReturn.Rows(0)("dokumentname") Is System.DBNull.Value Then + m_sDokumentname = SqlString.Null + Else + m_sDokumentname = New SqlString(CType(dtToReturn.Rows(0)("dokumentname"), String)) + End If + If dtToReturn.Rows(0)("ersteller") Is System.DBNull.Value Then + m_iErsteller = SqlInt32.Null + Else + m_iErsteller = New SqlInt32(CType(dtToReturn.Rows(0)("ersteller"), Integer)) + End If + If dtToReturn.Rows(0)("erstellerteam") Is System.DBNull.Value Then + m_iErstellerteam = SqlInt32.Null + Else + m_iErstellerteam = New SqlInt32(CType(dtToReturn.Rows(0)("erstellerteam"), Integer)) + End If + If dtToReturn.Rows(0)("erstelltam") Is System.DBNull.Value Then + m_daErstelltam = SqlDateTime.Null + Else + m_daErstelltam = New SqlDateTime(CType(dtToReturn.Rows(0)("erstelltam"), 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)("mutierertieam") Is System.DBNull.Value Then + m_iMutierertieam = SqlInt32.Null + Else + m_iMutierertieam = New SqlInt32(CType(dtToReturn.Rows(0)("mutierertieam"), Integer)) + End If + If dtToReturn.Rows(0)("mutiertam") Is System.DBNull.Value Then + m_daMutiertam = SqlDateTime.Null + Else + m_daMutiertam = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiertam"), Date)) + End If + If dtToReturn.Rows(0)("speicherort") Is System.DBNull.Value Then + m_sSpeicherort = SqlString.Null + Else + m_sSpeicherort = New SqlString(CType(dtToReturn.Rows(0)("speicherort"), String)) + End If + If dtToReturn.Rows(0)("gesperrt") Is System.DBNull.Value Then + m_bGesperrt = SqlBoolean.Null + Else + m_bGesperrt = New SqlBoolean(CType(dtToReturn.Rows(0)("gesperrt"), Boolean)) + End If + If dtToReturn.Rows(0)("gesperrt_durch") Is System.DBNull.Value Then + m_iGesperrt_durch = SqlInt32.Null + Else + m_iGesperrt_durch = New SqlInt32(CType(dtToReturn.Rows(0)("gesperrt_durch"), Integer)) + End If + If dtToReturn.Rows(0)("gesperrtam") Is System.DBNull.Value Then + m_daGesperrtam = SqlDateTime.Null + Else + m_daGesperrtam = New SqlDateTime(CType(dtToReturn.Rows(0)("gesperrtam"), Date)) + 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)("bemerkung") Is System.DBNull.Value Then + m_sBemerkung = SqlString.Null + Else + m_sBemerkung = New SqlString(CType(dtToReturn.Rows(0)("bemerkung"), String)) + End If + If dtToReturn.Rows(0)("auserstuebernahme") Is System.DBNull.Value Then + m_bAuserstuebernahme = SqlBoolean.Null + Else + m_bAuserstuebernahme = New SqlBoolean(CType(dtToReturn.Rows(0)("auserstuebernahme"), Boolean)) + End If + If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then + m_iDokumenttypnr = SqlInt32.Null + Else + m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) + End If + If dtToReturn.Rows(0)("unvollstaendig") Is System.DBNull.Value Then + m_bUnvollstaendig = SqlBoolean.Null + Else + m_bUnvollstaendig = New SqlBoolean(CType(dtToReturn.Rows(0)("unvollstaendig"), Boolean)) + End If + If dtToReturn.Rows(0)("bemerkunguvm") Is System.DBNull.Value Then + m_sBemerkunguvm = SqlString.Null + Else + m_sBemerkunguvm = New SqlString(CType(dtToReturn.Rows(0)("bemerkunguvm"), String)) + End If + If dtToReturn.Rows(0)("bereit_zur_archivierung") Is System.DBNull.Value Then + m_bBereit_zur_archivierung = SqlBoolean.Null + Else + m_bBereit_zur_archivierung = New SqlBoolean(CType(dtToReturn.Rows(0)("bereit_zur_archivierung"), Boolean)) + End If + If dtToReturn.Rows(0)("ausgangsarchiviert") Is System.DBNull.Value Then + m_bAusgangsarchiviert = SqlBoolean.Null + Else + m_bAusgangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("ausgangsarchiviert"), Boolean)) + End If + If dtToReturn.Rows(0)("datum_ausgangsarchivierung") Is System.DBNull.Value Then + m_daDatum_ausgangsarchivierung = SqlDateTime.Null + Else + m_daDatum_ausgangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_ausgangsarchivierung"), Date)) + End If + If dtToReturn.Rows(0)("ma_ausgangsarchivierung") Is System.DBNull.Value Then + m_iMa_ausgangsarchivierung = SqlInt32.Null + Else + m_iMa_ausgangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_ausgangsarchivierung"), Integer)) + End If + If dtToReturn.Rows(0)("zu_retournieren") Is System.DBNull.Value Then + m_bZu_retournieren = SqlBoolean.Null + Else + m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean)) + End If + If dtToReturn.Rows(0)("eingangsarchiviert") Is System.DBNull.Value Then + m_bEingangsarchiviert = SqlBoolean.Null + Else + m_bEingangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("eingangsarchiviert"), Boolean)) + End If + If dtToReturn.Rows(0)("datum_eingangsarchivierung") Is System.DBNull.Value Then + m_daDatum_eingangsarchivierung = SqlDateTime.Null + Else + m_daDatum_eingangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_eingangsarchivierung"), Date)) + End If + If dtToReturn.Rows(0)("ma_eingangsarchivierung") Is System.DBNull.Value Then + m_iMa_eingangsarchivierung = SqlInt32.Null + Else + m_iMa_eingangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_eingangsarchivierung"), Integer)) + End If + If dtToReturn.Rows(0)("status_edoka_batch_ausgang") Is System.DBNull.Value Then + m_iStatus_edoka_batch_ausgang = SqlInt32.Null + Else + m_iStatus_edoka_batch_ausgang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_ausgang"), Integer)) + End If + If dtToReturn.Rows(0)("status_edoka_batch_eingang") Is System.DBNull.Value Then + m_iStatus_edoka_batch_eingang = SqlInt32.Null + Else + m_iStatus_edoka_batch_eingang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_eingang"), Integer)) + End If + If dtToReturn.Rows(0)("loeschgrund") Is System.DBNull.Value Then + m_sLoeschgrund = SqlString.Null + Else + m_sLoeschgrund = New SqlString(CType(dtToReturn.Rows(0)("loeschgrund"), String)) + End If + If dtToReturn.Rows(0)("coldstatus") Is System.DBNull.Value Then + m_iColdstatus = SqlInt32.Null + Else + m_iColdstatus = New SqlInt32(CType(dtToReturn.Rows(0)("coldstatus"), Integer)) + End If + If dtToReturn.Rows(0)("versandadresse") Is System.DBNull.Value Then + m_sVersandadresse = SqlString.Null + Else + m_sVersandadresse = New SqlString(CType(dtToReturn.Rows(0)("versandadresse"), String)) + End If + If dtToReturn.Rows(0)("barcodenr") Is System.DBNull.Value Then + m_iBarcodenr = SqlInt32.Null + Else + m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer)) + End If + If dtToReturn.Rows(0)("colddokumentid") Is System.DBNull.Value Then + m_sColddokumentid = SqlString.Null + Else + m_sColddokumentid = New SqlString(CType(dtToReturn.Rows(0)("colddokumentid"), String)) + End If + If dtToReturn.Rows(0)("amsdokument") Is System.DBNull.Value Then + m_bAmsdokument = SqlBoolean.Null + Else + m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean)) + End If + If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then + m_iVerantwortlich = SqlInt32.Null + Else + m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) + End If + If dtToReturn.Rows(0)("zustaendiger") Is System.DBNull.Value Then + m_iZustaendiger = SqlInt32.Null + Else + m_iZustaendiger = New SqlInt32(CType(dtToReturn.Rows(0)("zustaendiger"), Integer)) + End If + If dtToReturn.Rows(0)("unterschriftlinks") Is System.DBNull.Value Then + m_iUnterschriftlinks = SqlInt32.Null + Else + m_iUnterschriftlinks = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftlinks"), Integer)) + End If + If dtToReturn.Rows(0)("unterschriftrechts") Is System.DBNull.Value Then + m_iUnterschriftrechts = SqlInt32.Null + Else + m_iUnterschriftrechts = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftrechts"), Integer)) + End If + If dtToReturn.Rows(0)("postzustellung") Is System.DBNull.Value Then + m_iPostzustellung = SqlInt32.Null + Else + m_iPostzustellung = New SqlInt32(CType(dtToReturn.Rows(0)("postzustellung"), Integer)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("statusnr") Is System.DBNull.Value Then + m_iStatusnr = SqlInt32.Null + Else + m_iStatusnr = New SqlInt32(CType(dtToReturn.Rows(0)("statusnr"), Integer)) + End If + If dtToReturn.Rows(0)("zustaendig_kube") Is System.DBNull.Value Then + m_bZustaendig_kube = SqlBoolean.Null + Else + m_bZustaendig_kube = New SqlBoolean(CType(dtToReturn.Rows(0)("zustaendig_kube"), Boolean)) + End If + If dtToReturn.Rows(0)("zustelladresse") Is System.DBNull.Value Then + m_sZustelladresse = SqlString.Null + Else + m_sZustelladresse = New SqlString(CType(dtToReturn.Rows(0)("zustelladresse"), String)) + End If + If dtToReturn.Rows(0)("vertraulich") Is System.DBNull.Value Then + m_bVertraulich = SqlBoolean.Null + Else + m_bVertraulich = New SqlBoolean(CType(dtToReturn.Rows(0)("vertraulich"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellungsdatum") Is System.DBNull.Value Then + m_daErstellungsdatum = SqlDateTime.Null + Else + m_daErstellungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellungsdatum"), Date)) + End If + If dtToReturn.Rows(0)("archivierungsdatum") Is System.DBNull.Value Then + m_daArchivierungsdatum = SqlDateTime.Null + Else + m_daArchivierungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("archivierungsdatum"), Date)) + End If + If dtToReturn.Rows(0)("termin") Is System.DBNull.Value Then + m_daTermin = SqlDateTime.Null + Else + m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("termin"), Date)) + End If + If dtToReturn.Rows(0)("mutiererteam") Is System.DBNull.Value Then + m_iMutiererteam = SqlInt32.Null + Else + m_iMutiererteam = New SqlInt32(CType(dtToReturn.Rows(0)("mutiererteam"), Integer)) + End If + If dtToReturn.Rows(0)("anredezustelladresse") Is System.DBNull.Value Then + m_sAnredezustelladresse = SqlString.Null + Else + m_sAnredezustelladresse = New SqlString(CType(dtToReturn.Rows(0)("anredezustelladresse"), String)) + End If + If dtToReturn.Rows(0)("dokdurchkubeweitergegeben") Is System.DBNull.Value Then + m_iDokdurchkubeweitergegeben = SqlInt32.Null + Else + m_iDokdurchkubeweitergegeben = New SqlInt32(CType(dtToReturn.Rows(0)("dokdurchkubeweitergegeben"), Integer)) + End If + If dtToReturn.Rows(0)("bck") Is System.DBNull.Value Then + m_iBck = SqlInt32.Null + Else + m_iBck = New SqlInt32(CType(dtToReturn.Rows(0)("bck"), Integer)) + End If + If dtToReturn.Rows(0)("bearbeitungszeit_in_minuten") Is System.DBNull.Value Then + m_iBearbeitungszeit_in_minuten = SqlInt32.Null + Else + m_iBearbeitungszeit_in_minuten = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitungszeit_in_minuten"), Integer)) + End If + If dtToReturn.Rows(0)("monierung_in_tagen") Is System.DBNull.Value Then + m_iMonierung_in_tagen = SqlInt32.Null + Else + m_iMonierung_in_tagen = New SqlInt32(CType(dtToReturn.Rows(0)("monierung_in_tagen"), Integer)) + End If + If dtToReturn.Rows(0)("aufbewahrung_elektronisch") Is System.DBNull.Value Then + m_iAufbewahrung_elektronisch = SqlInt32.Null + Else + m_iAufbewahrung_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_elektronisch"), Integer)) + End If + If dtToReturn.Rows(0)("aufbewahrung_phaysisch") Is System.DBNull.Value Then + m_iAufbewahrung_phaysisch = SqlInt32.Null + Else + m_iAufbewahrung_phaysisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_phaysisch"), Integer)) + End If + If dtToReturn.Rows(0)("in_edoka_datenbank") Is System.DBNull.Value Then + m_iIn_edoka_datenbank = SqlInt32.Null + Else + m_iIn_edoka_datenbank = New SqlInt32(CType(dtToReturn.Rows(0)("in_edoka_datenbank"), Integer)) + End If + If dtToReturn.Rows(0)("bearbeitung_nach_abschluss") Is System.DBNull.Value Then + m_iBearbeitung_nach_abschluss = SqlInt32.Null + Else + m_iBearbeitung_nach_abschluss = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitung_nach_abschluss"), Integer)) + End If + If dtToReturn.Rows(0)("coldfolder") Is System.DBNull.Value Then + m_sColdfolder = SqlString.Null + Else + m_sColdfolder = New SqlString(CType(dtToReturn.Rows(0)("coldfolder"), String)) + End If + If dtToReturn.Rows(0)("coldschema") Is System.DBNull.Value Then + m_sColdschema = SqlString.Null + Else + m_sColdschema = New SqlString(CType(dtToReturn.Rows(0)("coldschema"), String)) + End If + If dtToReturn.Rows(0)("erinnerungam") Is System.DBNull.Value Then + m_daErinnerungam = SqlDateTime.Null + Else + m_daErinnerungam = New SqlDateTime(CType(dtToReturn.Rows(0)("erinnerungam"), Date)) + End If + If dtToReturn.Rows(0)("FANummer1") Is System.DBNull.Value Then + m_sFANummer1 = SqlString.Null + Else + m_sFANummer1 = New SqlString(CType(dtToReturn.Rows(0)("FANummer1"), String)) + End If + If dtToReturn.Rows(0)("FANummer2") Is System.DBNull.Value Then + m_sFANummer2 = SqlString.Null + Else + m_sFANummer2 = New SqlString(CType(dtToReturn.Rows(0)("FANummer2"), String)) + End If + If dtToReturn.Rows(0)("fapartnerwechsel") Is System.DBNull.Value Then + m_bFapartnerwechsel = SqlBoolean.Null + Else + m_bFapartnerwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("fapartnerwechsel"), Boolean)) + End If + If dtToReturn.Rows(0)("FAStatuswechsel") Is System.DBNull.Value Then + m_bFAStatuswechsel = SqlBoolean.Null + Else + m_bFAStatuswechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAStatuswechsel"), Boolean)) + End If + If dtToReturn.Rows(0)("FAVerantwortlicherwechsel") Is System.DBNull.Value Then + m_bFAVerantwortlicherwechsel = SqlBoolean.Null + Else + m_bFAVerantwortlicherwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAVerantwortlicherwechsel"), Boolean)) + End If + If dtToReturn.Rows(0)("BedRDokumentid") Is System.DBNull.Value Then + m_sBedRDokumentid = SqlString.Null + Else + m_sBedRDokumentid = New SqlString(CType(dtToReturn.Rows(0)("BedRDokumentid"), String)) + End If + If dtToReturn.Rows(0)("BedRRetourniert") Is System.DBNull.Value Then + m_bBedRRetourniert = SqlBoolean.Null + Else + m_bBedRRetourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("BedRRetourniert"), Boolean)) + End If + If dtToReturn.Rows(0)("BRVernichtungnachTagen") Is System.DBNull.Value Then + m_iBRVernichtungnachTagen = SqlInt32.Null + Else + m_iBRVernichtungnachTagen = New SqlInt32(CType(dtToReturn.Rows(0)("BRVernichtungnachTagen"), Integer)) + End If + If dtToReturn.Rows(0)("officedokumentgeloescht") Is System.DBNull.Value Then + m_bOfficedokumentgeloescht = SqlBoolean.Null + Else + m_bOfficedokumentgeloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("officedokumentgeloescht"), Boolean)) + End If + If dtToReturn.Rows(0)("fanummer3") Is System.DBNull.Value Then + m_sFanummer3 = SqlString.Null + Else + m_sFanummer3 = New SqlString(CType(dtToReturn.Rows(0)("fanummer3"), String)) + End If + If dtToReturn.Rows(0)("vvnr") Is System.DBNull.Value Then + m_sVvnr = SqlString.Null + Else + m_sVvnr = New SqlString(CType(dtToReturn.Rows(0)("vvnr"), String)) + End If + If dtToReturn.Rows(0)("AnzeigeStatus") Is System.DBNull.Value Then + m_iAnzeigeStatus = SqlInt32.Null + Else + m_iAnzeigeStatus = New SqlInt32(CType(dtToReturn.Rows(0)("AnzeigeStatus"), Integer)) + End If + If dtToReturn.Rows(0)("bl_scan") Is System.DBNull.Value Then + m_bBl_scan = SqlBoolean.Null + Else + m_bBl_scan = New SqlBoolean(CType(dtToReturn.Rows(0)("bl_scan"), Boolean)) + End If + If dtToReturn.Rows(0)("bldossier") Is System.DBNull.Value Then + m_bBldossier = SqlBoolean.Null + Else + m_bBldossier = New SqlBoolean(CType(dtToReturn.Rows(0)("bldossier"), Boolean)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokument::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("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_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("clsDokument::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 [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 [iMitarbeiternr]() As SqlInt32 + Get + Return m_iMitarbeiternr + End Get + Set(ByVal Value As SqlInt32) + m_iMitarbeiternr = Value + End Set + End Property + + + Public Property [iMitarbeiternr1]() As SqlInt32 + Get + Return m_iMitarbeiternr1 + End Get + Set(ByVal Value As SqlInt32) + m_iMitarbeiternr1 = Value + End Set + End Property + + + Public Property [iNrpar00]() As SqlInt32 + Get + Return m_iNrpar00 + End Get + Set(ByVal Value As SqlInt32) + m_iNrpar00 = Value + End Set + End Property + + + Public Property [sDokumentidn]() As SqlString + Get + Return m_sDokumentidn + End Get + Set(ByVal Value As SqlString) + m_sDokumentidn = Value + End Set + End Property + + + Public Property [sDokumentname]() As SqlString + Get + Return m_sDokumentname + End Get + Set(ByVal Value As SqlString) + m_sDokumentname = Value + End Set + End Property + + + Public Property [iErsteller]() As SqlInt32 + Get + Return m_iErsteller + End Get + Set(ByVal Value As SqlInt32) + m_iErsteller = Value + End Set + End Property + + + Public Property [iErstellerteam]() As SqlInt32 + Get + Return m_iErstellerteam + End Get + Set(ByVal Value As SqlInt32) + m_iErstellerteam = Value + End Set + End Property + + + Public Property [daErstelltam]() As SqlDateTime + Get + Return m_daErstelltam + End Get + Set(ByVal Value As SqlDateTime) + m_daErstelltam = 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 [iMutierertieam]() As SqlInt32 + Get + Return m_iMutierertieam + End Get + Set(ByVal Value As SqlInt32) + m_iMutierertieam = Value + End Set + End Property + + + Public Property [daMutiertam]() As SqlDateTime + Get + Return m_daMutiertam + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiertam = Value + End Set + End Property + + + Public Property [sSpeicherort]() As SqlString + Get + Return m_sSpeicherort + End Get + Set(ByVal Value As SqlString) + m_sSpeicherort = Value + End Set + End Property + + + Public Property [bGesperrt]() As SqlBoolean + Get + Return m_bGesperrt + End Get + Set(ByVal Value As SqlBoolean) + m_bGesperrt = Value + End Set + End Property + + + Public Property [iGesperrt_durch]() As SqlInt32 + Get + Return m_iGesperrt_durch + End Get + Set(ByVal Value As SqlInt32) + m_iGesperrt_durch = Value + End Set + End Property + + + Public Property [daGesperrtam]() As SqlDateTime + Get + Return m_daGesperrtam + End Get + Set(ByVal Value As SqlDateTime) + m_daGesperrtam = 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 [sBemerkung]() As SqlString + Get + Return m_sBemerkung + End Get + Set(ByVal Value As SqlString) + m_sBemerkung = Value + End Set + End Property + + + Public Property [bAuserstuebernahme]() As SqlBoolean + Get + Return m_bAuserstuebernahme + End Get + Set(ByVal Value As SqlBoolean) + m_bAuserstuebernahme = Value + End Set + End Property + + + Public Property [iDokumenttypnr]() As SqlInt32 + Get + Return m_iDokumenttypnr + End Get + Set(ByVal Value As SqlInt32) + m_iDokumenttypnr = Value + End Set + End Property + + + Public Property [bUnvollstaendig]() As SqlBoolean + Get + Return m_bUnvollstaendig + End Get + Set(ByVal Value As SqlBoolean) + m_bUnvollstaendig = Value + End Set + End Property + + + Public Property [sBemerkunguvm]() As SqlString + Get + Return m_sBemerkunguvm + End Get + Set(ByVal Value As SqlString) + m_sBemerkunguvm = Value + End Set + End Property + + + Public Property [bBereit_zur_archivierung]() As SqlBoolean + Get + Return m_bBereit_zur_archivierung + End Get + Set(ByVal Value As SqlBoolean) + m_bBereit_zur_archivierung = Value + End Set + End Property + + + Public Property [bAusgangsarchiviert]() As SqlBoolean + Get + Return m_bAusgangsarchiviert + End Get + Set(ByVal Value As SqlBoolean) + m_bAusgangsarchiviert = Value + End Set + End Property + + + Public Property [daDatum_ausgangsarchivierung]() As SqlDateTime + Get + Return m_daDatum_ausgangsarchivierung + End Get + Set(ByVal Value As SqlDateTime) + m_daDatum_ausgangsarchivierung = Value + End Set + End Property + + + Public Property [iMa_ausgangsarchivierung]() As SqlInt32 + Get + Return m_iMa_ausgangsarchivierung + End Get + Set(ByVal Value As SqlInt32) + m_iMa_ausgangsarchivierung = Value + End Set + End Property + + + Public Property [bZu_retournieren]() As SqlBoolean + Get + Return m_bZu_retournieren + End Get + Set(ByVal Value As SqlBoolean) + m_bZu_retournieren = Value + End Set + End Property + + + Public Property [bEingangsarchiviert]() As SqlBoolean + Get + Return m_bEingangsarchiviert + End Get + Set(ByVal Value As SqlBoolean) + m_bEingangsarchiviert = Value + End Set + End Property + + + Public Property [daDatum_eingangsarchivierung]() As SqlDateTime + Get + Return m_daDatum_eingangsarchivierung + End Get + Set(ByVal Value As SqlDateTime) + m_daDatum_eingangsarchivierung = Value + End Set + End Property + + + Public Property [iMa_eingangsarchivierung]() As SqlInt32 + Get + Return m_iMa_eingangsarchivierung + End Get + Set(ByVal Value As SqlInt32) + m_iMa_eingangsarchivierung = Value + End Set + End Property + + + Public Property [iStatus_edoka_batch_ausgang]() As SqlInt32 + Get + Return m_iStatus_edoka_batch_ausgang + End Get + Set(ByVal Value As SqlInt32) + m_iStatus_edoka_batch_ausgang = Value + End Set + End Property + + + Public Property [iStatus_edoka_batch_eingang]() As SqlInt32 + Get + Return m_iStatus_edoka_batch_eingang + End Get + Set(ByVal Value As SqlInt32) + m_iStatus_edoka_batch_eingang = Value + End Set + End Property + + + Public Property [sLoeschgrund]() As SqlString + Get + Return m_sLoeschgrund + End Get + Set(ByVal Value As SqlString) + m_sLoeschgrund = Value + End Set + End Property + + + Public Property [iColdstatus]() As SqlInt32 + Get + Return m_iColdstatus + End Get + Set(ByVal Value As SqlInt32) + m_iColdstatus = Value + End Set + End Property + + + Public Property [sVersandadresse]() As SqlString + Get + Return m_sVersandadresse + End Get + Set(ByVal Value As SqlString) + m_sVersandadresse = Value + End Set + End Property + + + Public Property [iBarcodenr]() As SqlInt32 + Get + Return m_iBarcodenr + End Get + Set(ByVal Value As SqlInt32) + m_iBarcodenr = Value + End Set + End Property + + + Public Property [sColddokumentid]() As SqlString + Get + Return m_sColddokumentid + End Get + Set(ByVal Value As SqlString) + m_sColddokumentid = Value + End Set + End Property + + + Public Property [bAmsdokument]() As SqlBoolean + Get + Return m_bAmsdokument + End Get + Set(ByVal Value As SqlBoolean) + m_bAmsdokument = Value + End Set + End Property + + + Public Property [iVerantwortlich]() As SqlInt32 + Get + Return m_iVerantwortlich + End Get + Set(ByVal Value As SqlInt32) + m_iVerantwortlich = Value + End Set + End Property + + + Public Property [iZustaendiger]() As SqlInt32 + Get + Return m_iZustaendiger + End Get + Set(ByVal Value As SqlInt32) + m_iZustaendiger = Value + End Set + End Property + + + Public Property [iUnterschriftlinks]() As SqlInt32 + Get + Return m_iUnterschriftlinks + End Get + Set(ByVal Value As SqlInt32) + m_iUnterschriftlinks = Value + End Set + End Property + + + Public Property [iUnterschriftrechts]() As SqlInt32 + Get + Return m_iUnterschriftrechts + End Get + Set(ByVal Value As SqlInt32) + m_iUnterschriftrechts = Value + End Set + End Property + + + Public Property [iPostzustellung]() As SqlInt32 + Get + Return m_iPostzustellung + End Get + Set(ByVal Value As SqlInt32) + m_iPostzustellung = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [iStatusnr]() As SqlInt32 + Get + Return m_iStatusnr + End Get + Set(ByVal Value As SqlInt32) + m_iStatusnr = Value + End Set + End Property + + + Public Property [bZustaendig_kube]() As SqlBoolean + Get + Return m_bZustaendig_kube + End Get + Set(ByVal Value As SqlBoolean) + m_bZustaendig_kube = Value + End Set + End Property + + + Public Property [sZustelladresse]() As SqlString + Get + Return m_sZustelladresse + End Get + Set(ByVal Value As SqlString) + m_sZustelladresse = Value + End Set + End Property + + + Public Property [bVertraulich]() As SqlBoolean + Get + Return m_bVertraulich + End Get + Set(ByVal Value As SqlBoolean) + m_bVertraulich = Value + End Set + End Property + + + Public Property [daErstellungsdatum]() As SqlDateTime + Get + Return m_daErstellungsdatum + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellungsdatum = Value + End Set + End Property + + + Public Property [daArchivierungsdatum]() As SqlDateTime + Get + Return m_daArchivierungsdatum + End Get + Set(ByVal Value As SqlDateTime) + m_daArchivierungsdatum = Value + End Set + End Property + + + Public Property [daTermin]() As SqlDateTime + Get + Return m_daTermin + End Get + Set(ByVal Value As SqlDateTime) + m_daTermin = Value + End Set + End Property + + + Public Property [iMutiererteam]() As SqlInt32 + Get + Return m_iMutiererteam + End Get + Set(ByVal Value As SqlInt32) + m_iMutiererteam = Value + End Set + End Property + + + Public Property [sAnredezustelladresse]() As SqlString + Get + Return m_sAnredezustelladresse + End Get + Set(ByVal Value As SqlString) + m_sAnredezustelladresse = Value + End Set + End Property + + + Public Property [iDokdurchkubeweitergegeben]() As SqlInt32 + Get + Return m_iDokdurchkubeweitergegeben + End Get + Set(ByVal Value As SqlInt32) + m_iDokdurchkubeweitergegeben = Value + End Set + End Property + + + Public Property [iBck]() As SqlInt32 + Get + Return m_iBck + End Get + Set(ByVal Value As SqlInt32) + m_iBck = Value + End Set + End Property + + + Public Property [iBearbeitungszeit_in_minuten]() As SqlInt32 + Get + Return m_iBearbeitungszeit_in_minuten + End Get + Set(ByVal Value As SqlInt32) + m_iBearbeitungszeit_in_minuten = Value + End Set + End Property + + + Public Property [iMonierung_in_tagen]() As SqlInt32 + Get + Return m_iMonierung_in_tagen + End Get + Set(ByVal Value As SqlInt32) + m_iMonierung_in_tagen = Value + End Set + End Property + + + Public Property [iAufbewahrung_elektronisch]() As SqlInt32 + Get + Return m_iAufbewahrung_elektronisch + End Get + Set(ByVal Value As SqlInt32) + m_iAufbewahrung_elektronisch = Value + End Set + End Property + + + Public Property [iAufbewahrung_phaysisch]() As SqlInt32 + Get + Return m_iAufbewahrung_phaysisch + End Get + Set(ByVal Value As SqlInt32) + m_iAufbewahrung_phaysisch = Value + End Set + End Property + + + Public Property [iIn_edoka_datenbank]() As SqlInt32 + Get + Return m_iIn_edoka_datenbank + End Get + Set(ByVal Value As SqlInt32) + m_iIn_edoka_datenbank = Value + End Set + End Property + + + Public Property [iBearbeitung_nach_abschluss]() As SqlInt32 + Get + Return m_iBearbeitung_nach_abschluss + End Get + Set(ByVal Value As SqlInt32) + m_iBearbeitung_nach_abschluss = Value + End Set + End Property + + + Public Property [sColdfolder]() As SqlString + Get + Return m_sColdfolder + End Get + Set(ByVal Value As SqlString) + m_sColdfolder = Value + End Set + End Property + + + Public Property [sColdschema]() As SqlString + Get + Return m_sColdschema + End Get + Set(ByVal Value As SqlString) + m_sColdschema = Value + End Set + End Property + + + Public Property [daErinnerungam]() As SqlDateTime + Get + Return m_daErinnerungam + End Get + Set(ByVal Value As SqlDateTime) + m_daErinnerungam = Value + End Set + End Property + + + Public Property [sFANummer1]() As SqlString + Get + Return m_sFANummer1 + End Get + Set(ByVal Value As SqlString) + m_sFANummer1 = Value + End Set + End Property + + + Public Property [sFANummer2]() As SqlString + Get + Return m_sFANummer2 + End Get + Set(ByVal Value As SqlString) + m_sFANummer2 = Value + End Set + End Property + + + Public Property [bFapartnerwechsel]() As SqlBoolean + Get + Return m_bFapartnerwechsel + End Get + Set(ByVal Value As SqlBoolean) + m_bFapartnerwechsel = Value + End Set + End Property + + + Public Property [bFAStatuswechsel]() As SqlBoolean + Get + Return m_bFAStatuswechsel + End Get + Set(ByVal Value As SqlBoolean) + m_bFAStatuswechsel = Value + End Set + End Property + + + Public Property [bFAVerantwortlicherwechsel]() As SqlBoolean + Get + Return m_bFAVerantwortlicherwechsel + End Get + Set(ByVal Value As SqlBoolean) + m_bFAVerantwortlicherwechsel = Value + End Set + End Property + + + Public Property [sBedRDokumentid]() As SqlString + Get + Return m_sBedRDokumentid + End Get + Set(ByVal Value As SqlString) + m_sBedRDokumentid = Value + End Set + End Property + + + Public Property [bBedRRetourniert]() As SqlBoolean + Get + Return m_bBedRRetourniert + End Get + Set(ByVal Value As SqlBoolean) + m_bBedRRetourniert = Value + End Set + End Property + + + Public Property [iBRVernichtungnachTagen]() As SqlInt32 + Get + Return m_iBRVernichtungnachTagen + End Get + Set(ByVal Value As SqlInt32) + m_iBRVernichtungnachTagen = Value + End Set + End Property + + + Public Property [bOfficedokumentgeloescht]() As SqlBoolean + Get + Return m_bOfficedokumentgeloescht + End Get + Set(ByVal Value As SqlBoolean) + m_bOfficedokumentgeloescht = Value + End Set + End Property + + + Public Property [sFanummer3]() As SqlString + Get + Return m_sFanummer3 + End Get + Set(ByVal Value As SqlString) + m_sFanummer3 = Value + End Set + End Property + + + Public Property [sVvnr]() As SqlString + Get + Return m_sVvnr + End Get + Set(ByVal Value As SqlString) + m_sVvnr = Value + End Set + End Property + + + Public Property [iAnzeigeStatus]() As SqlInt32 + Get + Return m_iAnzeigeStatus + End Get + Set(ByVal Value As SqlInt32) + m_iAnzeigeStatus = Value + End Set + End Property + + + Public Property [bBl_scan]() As SqlBoolean + Get + Return m_bBl_scan + End Get + Set(ByVal Value As SqlBoolean) + m_bBl_scan = Value + End Set + End Property + + + Public Property [bBldossier]() As SqlBoolean + Get + Return m_bBldossier + End Get + Set(ByVal Value As SqlBoolean) + m_bBldossier = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsDokument_status.vb b/edkb08/Datenbank/clsDokument_status.vb new file mode 100644 index 0000000..a52fa11 --- /dev/null +++ b/edkb08/Datenbank/clsDokument_status.vb @@ -0,0 +1,591 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'dokument_status' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 9. Juni 2003, 08:18:09 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'dokument_status'. + ' /// + Public Class clsDokument_status + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bDokument_bearbeitung_moeglich, m_bFolgestatus_durch_anderen_verantwortlichen, m_bDokument_ausgangsarchivierung, m_bAktiv, m_bDokument_bearbeitung_abgeschlossen As SqlBoolean + Private m_daErstellt_am As SqlDateTime + Private m_iDokument_statusnr, m_iMutierer, m_iStatus_bezeichnungnr, m_iErledigung_ab As SqlInt32 + Private m_sReihenfolge, m_sBezeichnung, m_sDokumenitid As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumenitid. May be SqlString.Null
    • + ' ///
  • iStatus_bezeichnungnr. May be SqlInt32.Null
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sReihenfolge. May be SqlString.Null
    • + ' ///
  • bFolgestatus_durch_anderen_verantwortlichen. May be SqlBoolean.Null
    • + ' ///
  • bDokument_bearbeitung_moeglich. May be SqlBoolean.Null
    • + ' ///
  • iErledigung_ab. May be SqlInt32.Null
    • + ' ///
  • bDokument_ausgangsarchivierung. May be SqlBoolean.Null
    • + ' ///
  • bDokument_bearbeitung_abgeschlossen. May be SqlBoolean.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iDokument_statusnr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_status_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenitid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenitid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_bezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_bezeichnungnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sreihenfolge", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReihenfolge)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfolgestatus_durch_anderen_verantwortlichen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFolgestatus_durch_anderen_verantwortlichen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_bearbeitung_moeglich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_bearbeitung_moeglich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierledigung_ab", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErledigung_ab)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_ausgangsarchivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_bearbeitung_abgeschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_bearbeitung_abgeschlossen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@idokument_statusnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iDokument_statusnr)) + 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_iDokument_statusnr = scmCmdToExecute.Parameters.Item("@idokument_statusnr").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_dokument_status_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokument_status::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokument_statusnr
    • + ' ///
  • sDokumenitid. May be SqlString.Null
    • + ' ///
  • iStatus_bezeichnungnr. May be SqlInt32.Null
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sReihenfolge. May be SqlString.Null
    • + ' ///
  • bFolgestatus_durch_anderen_verantwortlichen. May be SqlBoolean.Null
    • + ' ///
  • bDokument_bearbeitung_moeglich. May be SqlBoolean.Null
    • + ' ///
  • iErledigung_ab. May be SqlInt32.Null
    • + ' ///
  • bDokument_ausgangsarchivierung. May be SqlBoolean.Null
    • + ' ///
  • bDokument_bearbeitung_abgeschlossen. May be SqlBoolean.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_status_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokument_statusnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokument_statusnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenitid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenitid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_bezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_bezeichnungnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sreihenfolge", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReihenfolge)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfolgestatus_durch_anderen_verantwortlichen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFolgestatus_durch_anderen_verantwortlichen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_bearbeitung_moeglich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_bearbeitung_moeglich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierledigung_ab", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErledigung_ab)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_ausgangsarchivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_ausgangsarchivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_bearbeitung_abgeschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_bearbeitung_abgeschlossen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_dokument_status_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("clsDokument_status::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokument_statusnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_status_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokument_statusnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokument_statusnr)) + 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_dokument_status_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("clsDokument_status::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokument_statusnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iDokument_statusnr
    • + ' ///
  • sDokumenitid
    • + ' ///
  • iStatus_bezeichnungnr
    • + ' ///
  • sBezeichnung
    • + ' ///
  • sReihenfolge
    • + ' ///
  • bFolgestatus_durch_anderen_verantwortlichen
    • + ' ///
  • bDokument_bearbeitung_moeglich
    • + ' ///
  • iErledigung_ab
    • + ' ///
  • bDokument_ausgangsarchivierung
    • + ' ///
  • bDokument_bearbeitung_abgeschlossen
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • iMutierer
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_status_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("dokument_status") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@idokument_statusnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokument_statusnr)) + 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_dokument_status_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iDokument_statusnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokument_statusnr"), Integer)) + If dtToReturn.Rows(0)("dokumenitid") Is System.DBNull.Value Then + m_sDokumenitid = SqlString.Null + Else + m_sDokumenitid = New SqlString(CType(dtToReturn.Rows(0)("dokumenitid"), String)) + End If + If dtToReturn.Rows(0)("status_bezeichnungnr") Is System.DBNull.Value Then + m_iStatus_bezeichnungnr = SqlInt32.Null + Else + m_iStatus_bezeichnungnr = New SqlInt32(CType(dtToReturn.Rows(0)("status_bezeichnungnr"), 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)("reihenfolge") Is System.DBNull.Value Then + m_sReihenfolge = SqlString.Null + Else + m_sReihenfolge = New SqlString(CType(dtToReturn.Rows(0)("reihenfolge"), String)) + End If + If dtToReturn.Rows(0)("folgestatus_durch_anderen_verantwortlichen") Is System.DBNull.Value Then + m_bFolgestatus_durch_anderen_verantwortlichen = SqlBoolean.Null + Else + m_bFolgestatus_durch_anderen_verantwortlichen = New SqlBoolean(CType(dtToReturn.Rows(0)("folgestatus_durch_anderen_verantwortlichen"), Boolean)) + End If + If dtToReturn.Rows(0)("dokument_bearbeitung_moeglich") Is System.DBNull.Value Then + m_bDokument_bearbeitung_moeglich = SqlBoolean.Null + Else + m_bDokument_bearbeitung_moeglich = New SqlBoolean(CType(dtToReturn.Rows(0)("dokument_bearbeitung_moeglich"), Boolean)) + End If + If dtToReturn.Rows(0)("erledigung_ab") Is System.DBNull.Value Then + m_iErledigung_ab = SqlInt32.Null + Else + m_iErledigung_ab = New SqlInt32(CType(dtToReturn.Rows(0)("erledigung_ab"), Integer)) + End If + If dtToReturn.Rows(0)("dokument_ausgangsarchivierung") Is System.DBNull.Value Then + m_bDokument_ausgangsarchivierung = SqlBoolean.Null + Else + m_bDokument_ausgangsarchivierung = New SqlBoolean(CType(dtToReturn.Rows(0)("dokument_ausgangsarchivierung"), Boolean)) + End If + If dtToReturn.Rows(0)("dokument_bearbeitung_abgeschlossen") Is System.DBNull.Value Then + m_bDokument_bearbeitung_abgeschlossen = SqlBoolean.Null + Else + m_bDokument_bearbeitung_abgeschlossen = New SqlBoolean(CType(dtToReturn.Rows(0)("dokument_bearbeitung_abgeschlossen"), Boolean)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokument_status::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokument_status_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("dokument_status") + 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_dokument_status_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokument_status::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 [iDokument_statusnr]() As SqlInt32 + Get + Return m_iDokument_statusnr + End Get + Set(ByVal Value As SqlInt32) + Dim iDokument_statusnrTmp As SqlInt32 = Value + If iDokument_statusnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iDokument_statusnr", "iDokument_statusnr can't be NULL") + End If + m_iDokument_statusnr = Value + End Set + End Property + + + Public Property [sDokumenitid]() As SqlString + Get + Return m_sDokumenitid + End Get + Set(ByVal Value As SqlString) + m_sDokumenitid = Value + End Set + End Property + + + Public Property [iStatus_bezeichnungnr]() As SqlInt32 + Get + Return m_iStatus_bezeichnungnr + End Get + Set(ByVal Value As SqlInt32) + m_iStatus_bezeichnungnr = 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 [sReihenfolge]() As SqlString + Get + Return m_sReihenfolge + End Get + Set(ByVal Value As SqlString) + m_sReihenfolge = Value + End Set + End Property + + + Public Property [bFolgestatus_durch_anderen_verantwortlichen]() As SqlBoolean + Get + Return m_bFolgestatus_durch_anderen_verantwortlichen + End Get + Set(ByVal Value As SqlBoolean) + m_bFolgestatus_durch_anderen_verantwortlichen = Value + End Set + End Property + + + Public Property [bDokument_bearbeitung_moeglich]() As SqlBoolean + Get + Return m_bDokument_bearbeitung_moeglich + End Get + Set(ByVal Value As SqlBoolean) + m_bDokument_bearbeitung_moeglich = Value + End Set + End Property + + + Public Property [iErledigung_ab]() As SqlInt32 + Get + Return m_iErledigung_ab + End Get + Set(ByVal Value As SqlInt32) + m_iErledigung_ab = Value + End Set + End Property + + + Public Property [bDokument_ausgangsarchivierung]() As SqlBoolean + Get + Return m_bDokument_ausgangsarchivierung + End Get + Set(ByVal Value As SqlBoolean) + m_bDokument_ausgangsarchivierung = Value + End Set + End Property + + + Public Property [bDokument_bearbeitung_abgeschlossen]() As SqlBoolean + Get + Return m_bDokument_bearbeitung_abgeschlossen + End Get + Set(ByVal Value As SqlBoolean) + m_bDokument_bearbeitung_abgeschlossen = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsDokumentcoldindexwert.vb b/edkb08/Datenbank/clsDokumentcoldindexwert.vb new file mode 100644 index 0000000..f1a935a --- /dev/null +++ b/edkb08/Datenbank/clsDokumentcoldindexwert.vb @@ -0,0 +1,751 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'dokumentcoldindexwert' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 6. April 2005, 10:10:46 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'dokumentcoldindexwert'. + ' /// + Public Class clsDokumentcoldindexwert + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daMutiert_am, m_daErstellt_am As SqlDateTime + Private m_iIndextyp, m_iColdindexwertnr, m_iMutierer, m_iMandantnr As SqlInt32 + Private m_sNRSTA00, m_sNRDOC00, m_sBEGSF00, m_sBERES03, m_sBEUSR00, m_sBKPAR00, m_sNAVVG00, m_sDokumentid, m_sNRPAR00, m_sBEBEZ00, m_sBESTA00, m_sBEORT00, m_sDMSTA01, m_sBEDAT00 As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iIndextyp. May be SqlInt32.Null
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • sNRPAR00. May be SqlString.Null
    • + ' ///
  • sBKPAR00. May be SqlString.Null
    • + ' ///
  • sNAVVG00. May be SqlString.Null
    • + ' ///
  • sBEBEZ00. May be SqlString.Null
    • + ' ///
  • sDMSTA01. May be SqlString.Null
    • + ' ///
  • sBEDAT00. May be SqlString.Null
    • + ' ///
  • sBESTA00. May be SqlString.Null
    • + ' ///
  • sBEORT00. May be SqlString.Null
    • + ' ///
  • sNRDOC00. May be SqlString.Null
    • + ' ///
  • sNRSTA00. May be SqlString.Null
    • + ' ///
  • sBEGSF00. May be SqlString.Null
    • + ' ///
  • sBEUSR00. May be SqlString.Null
    • + ' ///
  • sBERES03. May be SqlString.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iColdindexwertnr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumentcoldindexwert_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iindextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIndextyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNAVVG00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNAVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBEZ00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBEZ00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMSTA01", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMSTA01)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDAT00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEDAT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESTA00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESTA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORT00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRSTA00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRSTA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEGSF00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEGSF00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEUSR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEUSR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBERES03", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBERES03)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldindexwertnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iColdindexwertnr)) + 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_iColdindexwertnr = scmCmdToExecute.Parameters.Item("@icoldindexwertnr").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_dokumentcoldindexwert_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("clsDokumentcoldindexwert::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iColdindexwertnr
    • + ' ///
  • iIndextyp. May be SqlInt32.Null
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • sNRPAR00. May be SqlString.Null
    • + ' ///
  • sBKPAR00. May be SqlString.Null
    • + ' ///
  • sNAVVG00. May be SqlString.Null
    • + ' ///
  • sBEBEZ00. May be SqlString.Null
    • + ' ///
  • sDMSTA01. May be SqlString.Null
    • + ' ///
  • sBEDAT00. May be SqlString.Null
    • + ' ///
  • sBESTA00. May be SqlString.Null
    • + ' ///
  • sBEORT00. May be SqlString.Null
    • + ' ///
  • sNRDOC00. May be SqlString.Null
    • + ' ///
  • sNRSTA00. May be SqlString.Null
    • + ' ///
  • sBEGSF00. May be SqlString.Null
    • + ' ///
  • sBEUSR00. May be SqlString.Null
    • + ' ///
  • sBERES03. May be SqlString.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumentcoldindexwert_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldindexwertnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iColdindexwertnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iindextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIndextyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNAVVG00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNAVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBEZ00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBEZ00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMSTA01", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMSTA01)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDAT00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEDAT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESTA00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESTA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORT00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRSTA00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRSTA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEGSF00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEGSF00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEUSR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEUSR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBERES03", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBERES03)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_dokumentcoldindexwert_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("clsDokumentcoldindexwert::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iColdindexwertnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumentcoldindexwert_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldindexwertnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iColdindexwertnr)) + 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_dokumentcoldindexwert_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("clsDokumentcoldindexwert::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iColdindexwertnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iColdindexwertnr
    • + ' ///
  • iIndextyp
    • + ' ///
  • iMandantnr
    • + ' ///
  • sDokumentid
    • + ' ///
  • sNRPAR00
    • + ' ///
  • sBKPAR00
    • + ' ///
  • sNAVVG00
    • + ' ///
  • sBEBEZ00
    • + ' ///
  • sDMSTA01
    • + ' ///
  • sBEDAT00
    • + ' ///
  • sBESTA00
    • + ' ///
  • sBEORT00
    • + ' ///
  • sNRDOC00
    • + ' ///
  • sNRSTA00
    • + ' ///
  • sBEGSF00
    • + ' ///
  • sBEUSR00
    • + ' ///
  • sBERES03
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Public Overrides Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumentcoldindexwert_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable("dokumentcoldindexwert") + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldindexwertnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iColdindexwertnr)) + 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_dokumentcoldindexwert_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iColdindexwertnr = New SqlInt32(CType(dtToReturn.Rows(0)("coldindexwertnr"), Integer)) + If dtToReturn.Rows(0)("indextyp") Is System.DBNull.Value Then + m_iIndextyp = SqlInt32.Null + Else + m_iIndextyp = New SqlInt32(CType(dtToReturn.Rows(0)("indextyp"), Integer)) + End If + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then + m_sDokumentid = SqlString.Null + Else + m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) + End If + If dtToReturn.Rows(0)("NRPAR00") Is System.DBNull.Value Then + m_sNRPAR00 = SqlString.Null + Else + m_sNRPAR00 = New SqlString(CType(dtToReturn.Rows(0)("NRPAR00"), String)) + End If + If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then + m_sBKPAR00 = SqlString.Null + Else + m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String)) + End If + If dtToReturn.Rows(0)("NAVVG00") Is System.DBNull.Value Then + m_sNAVVG00 = SqlString.Null + Else + m_sNAVVG00 = New SqlString(CType(dtToReturn.Rows(0)("NAVVG00"), String)) + End If + If dtToReturn.Rows(0)("BEBEZ00") Is System.DBNull.Value Then + m_sBEBEZ00 = SqlString.Null + Else + m_sBEBEZ00 = New SqlString(CType(dtToReturn.Rows(0)("BEBEZ00"), String)) + End If + If dtToReturn.Rows(0)("DMSTA01") Is System.DBNull.Value Then + m_sDMSTA01 = SqlString.Null + Else + m_sDMSTA01 = New SqlString(CType(dtToReturn.Rows(0)("DMSTA01"), String)) + End If + If dtToReturn.Rows(0)("BEDAT00") Is System.DBNull.Value Then + m_sBEDAT00 = SqlString.Null + Else + m_sBEDAT00 = New SqlString(CType(dtToReturn.Rows(0)("BEDAT00"), String)) + End If + If dtToReturn.Rows(0)("BESTA00") Is System.DBNull.Value Then + m_sBESTA00 = SqlString.Null + Else + m_sBESTA00 = New SqlString(CType(dtToReturn.Rows(0)("BESTA00"), String)) + End If + If dtToReturn.Rows(0)("BEORT00") Is System.DBNull.Value Then + m_sBEORT00 = SqlString.Null + Else + m_sBEORT00 = New SqlString(CType(dtToReturn.Rows(0)("BEORT00"), String)) + End If + If dtToReturn.Rows(0)("NRDOC00") Is System.DBNull.Value Then + m_sNRDOC00 = SqlString.Null + Else + m_sNRDOC00 = New SqlString(CType(dtToReturn.Rows(0)("NRDOC00"), String)) + End If + If dtToReturn.Rows(0)("NRSTA00") Is System.DBNull.Value Then + m_sNRSTA00 = SqlString.Null + Else + m_sNRSTA00 = New SqlString(CType(dtToReturn.Rows(0)("NRSTA00"), String)) + End If + If dtToReturn.Rows(0)("BEGSF00") Is System.DBNull.Value Then + m_sBEGSF00 = SqlString.Null + Else + m_sBEGSF00 = New SqlString(CType(dtToReturn.Rows(0)("BEGSF00"), String)) + End If + If dtToReturn.Rows(0)("BEUSR00") Is System.DBNull.Value Then + m_sBEUSR00 = SqlString.Null + Else + m_sBEUSR00 = New SqlString(CType(dtToReturn.Rows(0)("BEUSR00"), String)) + End If + If dtToReturn.Rows(0)("BERES03") Is System.DBNull.Value Then + m_sBERES03 = SqlString.Null + Else + m_sBERES03 = New SqlString(CType(dtToReturn.Rows(0)("BERES03"), String)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then + m_daMutiert_am = SqlDateTime.Null + Else + m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokumentcoldindexwert::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumentcoldindexwert_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable("dokumentcoldindexwert") + 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_dokumentcoldindexwert_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("clsDokumentcoldindexwert::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 [iColdindexwertnr]() As SqlInt32 + Get + Return m_iColdindexwertnr + End Get + Set(ByVal Value As SqlInt32) + Dim iColdindexwertnrTmp As SqlInt32 = Value + If iColdindexwertnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iColdindexwertnr", "iColdindexwertnr can't be NULL") + End If + m_iColdindexwertnr = Value + End Set + End Property + + + Public Property [iIndextyp]() As SqlInt32 + Get + Return m_iIndextyp + End Get + Set(ByVal Value As SqlInt32) + m_iIndextyp = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [sDokumentid]() As SqlString + Get + Return m_sDokumentid + End Get + Set(ByVal Value As SqlString) + m_sDokumentid = 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 [sBKPAR00]() As SqlString + Get + Return m_sBKPAR00 + End Get + Set(ByVal Value As SqlString) + m_sBKPAR00 = Value + End Set + End Property + + + Public Property [sNAVVG00]() As SqlString + Get + Return m_sNAVVG00 + End Get + Set(ByVal Value As SqlString) + m_sNAVVG00 = Value + End Set + End Property + + + Public Property [sBEBEZ00]() As SqlString + Get + Return m_sBEBEZ00 + End Get + Set(ByVal Value As SqlString) + m_sBEBEZ00 = Value + End Set + End Property + + + Public Property [sDMSTA01]() As SqlString + Get + Return m_sDMSTA01 + End Get + Set(ByVal Value As SqlString) + m_sDMSTA01 = Value + End Set + End Property + + + Public Property [sBEDAT00]() As SqlString + Get + Return m_sBEDAT00 + End Get + Set(ByVal Value As SqlString) + m_sBEDAT00 = Value + End Set + End Property + + + Public Property [sBESTA00]() As SqlString + Get + Return m_sBESTA00 + End Get + Set(ByVal Value As SqlString) + m_sBESTA00 = Value + End Set + End Property + + + Public Property [sBEORT00]() As SqlString + Get + Return m_sBEORT00 + End Get + Set(ByVal Value As SqlString) + m_sBEORT00 = 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 [sNRSTA00]() As SqlString + Get + Return m_sNRSTA00 + End Get + Set(ByVal Value As SqlString) + m_sNRSTA00 = Value + End Set + End Property + + + Public Property [sBEGSF00]() As SqlString + Get + Return m_sBEGSF00 + End Get + Set(ByVal Value As SqlString) + m_sBEGSF00 = Value + End Set + End Property + + + Public Property [sBEUSR00]() As SqlString + Get + Return m_sBEUSR00 + End Get + Set(ByVal Value As SqlString) + m_sBEUSR00 = Value + End Set + End Property + + + Public Property [sBERES03]() As SqlString + Get + Return m_sBERES03 + End Get + Set(ByVal Value As SqlString) + m_sBERES03 = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsDokumenttyp.vb b/edkb08/Datenbank/clsDokumenttyp.vb new file mode 100644 index 0000000..ea6ef88 --- /dev/null +++ b/edkb08/Datenbank/clsDokumenttyp.vb @@ -0,0 +1,1390 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'dokumenttyp' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Donnerstag, 4. März 2004, 23:03:50 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'dokumenttyp'. + ' /// + Public Class clsDokumenttyp + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bNurnative, m_bFunktionen_zuweisen, m_bEmail_versand, m_bVertrauliches_dokument, m_bUnterschrift_links, m_bUnterschrift_rechts, m_bDokument_wird_erstellt, m_bHostdokument, m_bAmsdokument, m_bAktiv, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bZu_retournieren, m_bZu_vercolden, m_bEingang_ersetzt_ausgang, m_bWird_importiert, m_bPartnersaldierung_statusalt, m_bWird_nicht_geloescht, m_bVertrag, m_bBedingtretournierbar As SqlBoolean + Private m_daMutiert_am, m_daErstellt_am As SqlDateTime + Private m_iDoktypbedingteretournierung, m_iCold_folder, m_iTagebisvernichtungbedingteretournierung, m_iProzessnr, m_iProzessnr1, m_iDokumentstatus_barcode, m_iObjektbezeichnungnr, m_iOwner, m_iPhysisches_archiv, m_iDokumentstatus, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMutierer, m_iMandantnr, m_iMonate_bis_zur_archivierung, m_iAnzahl_tage, m_iDokumenttypnr, m_iTage_mutation, m_iDbearbeitungszeit, m_iOffice_vorlagenr, m_iDokumentart_host, m_iDokumentart_coldeingang, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iDokumentart_neuerstellung, m_iDokumentart_kundendossier, m_iDokumentart_retournierung, m_iDokumentart_coldausgang As SqlInt32 + Private m_sHostdokumenttyp, m_sBezeichnung, m_sBeschreibung As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokumenttypnr
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sBeschreibung. May be SqlString.Null
    • + ' ///
  • bZu_vercolden
    • + ' ///
  • bZu_retournieren
    • + ' ///
  • bEingang_ersetzt_ausgang
    • + ' ///
  • bWird_importiert
    • + ' ///
  • iAnzahl_tage
    • + ' ///
  • iDbearbeitungszeit
    • + ' ///
  • iTage_mutation
    • + ' ///
  • bPartnersaldierung_statusalt
    • + ' ///
  • bWird_nicht_geloescht
    • + ' ///
  • bVertrauliches_dokument
    • + ' ///
  • bUnterschrift_links
    • + ' ///
  • bUnterschrift_rechts
    • + ' ///
  • iMonate_bis_zur_archivierung
    • + ' ///
  • iAufbewahrungsfrist_elektronisch
    • + ' ///
  • iAufbewahrungsfrist_physisch
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iOffice_vorlagenr. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_kundendossier. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_neuerstellung. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_retournierung. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_coldausgang
    • + ' ///
  • iDokumentart_coldeingang
    • + ' ///
  • iDokumentart_host. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_weitere. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_nativ. May be SqlInt32.Null
    • + ' ///
  • iProzessnr. May be SqlInt32.Null
    • + ' ///
  • iProzessnr1. May be SqlInt32.Null
    • + ' ///
  • bAmsdokument
    • + ' ///
  • bHostdokument. May be SqlBoolean.Null
    • + ' ///
  • sHostdokumenttyp. May be SqlString.Null
    • + ' ///
  • iCold_folder. May be SqlInt32.Null
    • + ' ///
  • iPhysisches_archiv. May be SqlInt32.Null
    • + ' ///
  • iDokumentstatus. May be SqlInt32.Null
    • + ' ///
  • bDokument_wird_erstellt. May be SqlBoolean.Null
    • + ' ///
  • bDokument_wird_retourniert. May be SqlBoolean.Null
    • + ' ///
  • bCold_ersetzen. May be SqlBoolean.Null
    • + ' ///
  • bEmail_versand. May be SqlBoolean.Null
    • + ' ///
  • bFunktionen_zuweisen. May be SqlBoolean.Null
    • + ' ///
  • iDokumentstatus_barcode. May be SqlInt32.Null
    • + ' ///
  • bNurnative. May be SqlBoolean.Null
    • + ' ///
  • iOwner. May be SqlInt32.Null
    • + ' ///
  • bVertrag. May be SqlBoolean.Null
    • + ' ///
  • iObjektbezeichnungnr. May be SqlInt32.Null
    • + ' ///
  • bBedingtretournierbar. May be SqlBoolean.Null
    • + ' ///
  • iDoktypbedingteretournierung. May be SqlInt32.Null
    • + ' ///
  • iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) + 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_dokumenttyp_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("clsDokumenttyp::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokumenttypnr
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • sBeschreibung. May be SqlString.Null
    • + ' ///
  • bZu_vercolden
    • + ' ///
  • bZu_retournieren
    • + ' ///
  • bEingang_ersetzt_ausgang
    • + ' ///
  • bWird_importiert
    • + ' ///
  • iAnzahl_tage
    • + ' ///
  • iDbearbeitungszeit
    • + ' ///
  • iTage_mutation
    • + ' ///
  • bPartnersaldierung_statusalt
    • + ' ///
  • bWird_nicht_geloescht
    • + ' ///
  • bVertrauliches_dokument
    • + ' ///
  • bUnterschrift_links
    • + ' ///
  • bUnterschrift_rechts
    • + ' ///
  • iMonate_bis_zur_archivierung
    • + ' ///
  • iAufbewahrungsfrist_elektronisch
    • + ' ///
  • iAufbewahrungsfrist_physisch
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iOffice_vorlagenr. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_kundendossier. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_neuerstellung. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_retournierung. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_coldausgang
    • + ' ///
  • iDokumentart_coldeingang
    • + ' ///
  • iDokumentart_host. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_weitere. May be SqlInt32.Null
    • + ' ///
  • iDokumentart_nativ. May be SqlInt32.Null
    • + ' ///
  • iProzessnr. May be SqlInt32.Null
    • + ' ///
  • iProzessnr1. May be SqlInt32.Null
    • + ' ///
  • bAmsdokument
    • + ' ///
  • bHostdokument. May be SqlBoolean.Null
    • + ' ///
  • sHostdokumenttyp. May be SqlString.Null
    • + ' ///
  • iCold_folder. May be SqlInt32.Null
    • + ' ///
  • iPhysisches_archiv. May be SqlInt32.Null
    • + ' ///
  • iDokumentstatus. May be SqlInt32.Null
    • + ' ///
  • bDokument_wird_erstellt. May be SqlBoolean.Null
    • + ' ///
  • bDokument_wird_retourniert. May be SqlBoolean.Null
    • + ' ///
  • bCold_ersetzen. May be SqlBoolean.Null
    • + ' ///
  • bEmail_versand. May be SqlBoolean.Null
    • + ' ///
  • bFunktionen_zuweisen. May be SqlBoolean.Null
    • + ' ///
  • iDokumentstatus_barcode. May be SqlInt32.Null
    • + ' ///
  • bNurnative. May be SqlBoolean.Null
    • + ' ///
  • iOwner. May be SqlInt32.Null
    • + ' ///
  • bVertrag. May be SqlBoolean.Null
    • + ' ///
  • iObjektbezeichnungnr. May be SqlInt32.Null
    • + ' ///
  • bBedingtretournierbar. May be SqlBoolean.Null
    • + ' ///
  • iDoktypbedingteretournierung. May be SqlInt32.Null
    • + ' ///
  • iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) + 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_dokumenttyp_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("clsDokumenttyp::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokumenttypnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + 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_dokumenttyp_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("clsDokumenttyp::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iDokumenttypnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iDokumenttypnr
    • + ' ///
  • sBezeichnung
    • + ' ///
  • sBeschreibung
    • + ' ///
  • bZu_vercolden
    • + ' ///
  • bZu_retournieren
    • + ' ///
  • bEingang_ersetzt_ausgang
    • + ' ///
  • bWird_importiert
    • + ' ///
  • iAnzahl_tage
    • + ' ///
  • iDbearbeitungszeit
    • + ' ///
  • iTage_mutation
    • + ' ///
  • bPartnersaldierung_statusalt
    • + ' ///
  • bWird_nicht_geloescht
    • + ' ///
  • bVertrauliches_dokument
    • + ' ///
  • bUnterschrift_links
    • + ' ///
  • bUnterschrift_rechts
    • + ' ///
  • iMonate_bis_zur_archivierung
    • + ' ///
  • iAufbewahrungsfrist_elektronisch
    • + ' ///
  • iAufbewahrungsfrist_physisch
    • + ' ///
  • iMandantnr
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
  • iOffice_vorlagenr
    • + ' ///
  • iDokumentart_kundendossier
    • + ' ///
  • iDokumentart_neuerstellung
    • + ' ///
  • iDokumentart_retournierung
    • + ' ///
  • iDokumentart_coldausgang
    • + ' ///
  • iDokumentart_coldeingang
    • + ' ///
  • iDokumentart_host
    • + ' ///
  • iDokumentart_weitere
    • + ' ///
  • iDokumentart_nativ
    • + ' ///
  • iProzessnr
    • + ' ///
  • iProzessnr1
    • + ' ///
  • bAmsdokument
    • + ' ///
  • bHostdokument
    • + ' ///
  • sHostdokumenttyp
    • + ' ///
  • iCold_folder
    • + ' ///
  • iPhysisches_archiv
    • + ' ///
  • iDokumentstatus
    • + ' ///
  • bDokument_wird_erstellt
    • + ' ///
  • bDokument_wird_retourniert
    • + ' ///
  • bCold_ersetzen
    • + ' ///
  • bEmail_versand
    • + ' ///
  • bFunktionen_zuweisen
    • + ' ///
  • iDokumentstatus_barcode
    • + ' ///
  • bNurnative
    • + ' ///
  • iOwner
    • + ' ///
  • bVertrag
    • + ' ///
  • iObjektbezeichnungnr
    • + ' ///
  • bBedingtretournierbar
    • + ' ///
  • iDoktypbedingteretournierung
    • + ' ///
  • iTagebisvernichtungbedingteretournierung
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("dokumenttyp") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + 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_dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), 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)("beschreibung") Is System.DBNull.Value Then + m_sBeschreibung = SqlString.Null + Else + m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String)) + End If + m_bZu_vercolden = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_vercolden"), Boolean)) + m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean)) + m_bEingang_ersetzt_ausgang = New SqlBoolean(CType(dtToReturn.Rows(0)("eingang_ersetzt_ausgang"), Boolean)) + m_bWird_importiert = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_importiert"), Boolean)) + m_iAnzahl_tage = New SqlInt32(CType(dtToReturn.Rows(0)("anzahl_tage"), Integer)) + m_iDbearbeitungszeit = New SqlInt32(CType(dtToReturn.Rows(0)("dbearbeitungszeit"), Integer)) + m_iTage_mutation = New SqlInt32(CType(dtToReturn.Rows(0)("tage_mutation"), Integer)) + m_bPartnersaldierung_statusalt = New SqlBoolean(CType(dtToReturn.Rows(0)("partnersaldierung_statusalt"), Boolean)) + m_bWird_nicht_geloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_nicht_geloescht"), Boolean)) + m_bVertrauliches_dokument = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrauliches_dokument"), Boolean)) + m_bUnterschrift_links = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_links"), Boolean)) + m_bUnterschrift_rechts = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_rechts"), Boolean)) + m_iMonate_bis_zur_archivierung = New SqlInt32(CType(dtToReturn.Rows(0)("monate_bis_zur_archivierung"), Integer)) + m_iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_elektronisch"), Integer)) + m_iAufbewahrungsfrist_physisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_physisch"), Integer)) + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then + m_daMutiert_am = SqlDateTime.Null + Else + m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then + m_iOffice_vorlagenr = SqlInt32.Null + Else + m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentart_kundendossier") Is System.DBNull.Value Then + m_iDokumentart_kundendossier = SqlInt32.Null + Else + m_iDokumentart_kundendossier = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_kundendossier"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentart_neuerstellung") Is System.DBNull.Value Then + m_iDokumentart_neuerstellung = SqlInt32.Null + Else + m_iDokumentart_neuerstellung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_neuerstellung"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentart_retournierung") Is System.DBNull.Value Then + m_iDokumentart_retournierung = SqlInt32.Null + Else + m_iDokumentart_retournierung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_retournierung"), Integer)) + End If + m_iDokumentart_coldausgang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldausgang"), Integer)) + m_iDokumentart_coldeingang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldeingang"), Integer)) + If dtToReturn.Rows(0)("dokumentart_host") Is System.DBNull.Value Then + m_iDokumentart_host = SqlInt32.Null + Else + m_iDokumentart_host = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_host"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentart_weitere") Is System.DBNull.Value Then + m_iDokumentart_weitere = SqlInt32.Null + Else + m_iDokumentart_weitere = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_weitere"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentart_nativ") Is System.DBNull.Value Then + m_iDokumentart_nativ = SqlInt32.Null + Else + m_iDokumentart_nativ = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_nativ"), Integer)) + End If + If dtToReturn.Rows(0)("prozessnr") Is System.DBNull.Value Then + m_iProzessnr = SqlInt32.Null + Else + m_iProzessnr = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr"), Integer)) + End If + If dtToReturn.Rows(0)("prozessnr1") Is System.DBNull.Value Then + m_iProzessnr1 = SqlInt32.Null + Else + m_iProzessnr1 = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr1"), Integer)) + End If + m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean)) + If dtToReturn.Rows(0)("hostdokument") Is System.DBNull.Value Then + m_bHostdokument = SqlBoolean.Null + Else + m_bHostdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("hostdokument"), Boolean)) + End If + If dtToReturn.Rows(0)("hostdokumenttyp") Is System.DBNull.Value Then + m_sHostdokumenttyp = SqlString.Null + Else + m_sHostdokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("hostdokumenttyp"), String)) + End If + If dtToReturn.Rows(0)("cold_folder") Is System.DBNull.Value Then + m_iCold_folder = SqlInt32.Null + Else + m_iCold_folder = New SqlInt32(CType(dtToReturn.Rows(0)("cold_folder"), Integer)) + End If + If dtToReturn.Rows(0)("physisches_archiv") Is System.DBNull.Value Then + m_iPhysisches_archiv = SqlInt32.Null + Else + m_iPhysisches_archiv = New SqlInt32(CType(dtToReturn.Rows(0)("physisches_archiv"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentstatus") Is System.DBNull.Value Then + m_iDokumentstatus = SqlInt32.Null + Else + m_iDokumentstatus = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus"), Integer)) + End If + If dtToReturn.Rows(0)("Dokument_wird_erstellt") Is System.DBNull.Value Then + m_bDokument_wird_erstellt = SqlBoolean.Null + Else + m_bDokument_wird_erstellt = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_erstellt"), Boolean)) + End If + If dtToReturn.Rows(0)("Dokument_wird_retourniert") Is System.DBNull.Value Then + m_bDokument_wird_retourniert = SqlBoolean.Null + Else + m_bDokument_wird_retourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_retourniert"), Boolean)) + End If + If dtToReturn.Rows(0)("cold_ersetzen") Is System.DBNull.Value Then + m_bCold_ersetzen = SqlBoolean.Null + Else + m_bCold_ersetzen = New SqlBoolean(CType(dtToReturn.Rows(0)("cold_ersetzen"), Boolean)) + End If + If dtToReturn.Rows(0)("email_versand") Is System.DBNull.Value Then + m_bEmail_versand = SqlBoolean.Null + Else + m_bEmail_versand = New SqlBoolean(CType(dtToReturn.Rows(0)("email_versand"), Boolean)) + End If + If dtToReturn.Rows(0)("funktionen_zuweisen") Is System.DBNull.Value Then + m_bFunktionen_zuweisen = SqlBoolean.Null + Else + m_bFunktionen_zuweisen = New SqlBoolean(CType(dtToReturn.Rows(0)("funktionen_zuweisen"), Boolean)) + End If + If dtToReturn.Rows(0)("dokumentstatus_barcode") Is System.DBNull.Value Then + m_iDokumentstatus_barcode = SqlInt32.Null + Else + m_iDokumentstatus_barcode = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus_barcode"), Integer)) + End If + If dtToReturn.Rows(0)("nurnative") Is System.DBNull.Value Then + m_bNurnative = SqlBoolean.Null + Else + m_bNurnative = New SqlBoolean(CType(dtToReturn.Rows(0)("nurnative"), Boolean)) + End If + If dtToReturn.Rows(0)("Owner") Is System.DBNull.Value Then + m_iOwner = SqlInt32.Null + Else + m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("Owner"), Integer)) + End If + If dtToReturn.Rows(0)("vertrag") Is System.DBNull.Value Then + m_bVertrag = SqlBoolean.Null + Else + m_bVertrag = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrag"), Boolean)) + End If + If dtToReturn.Rows(0)("objektbezeichnungnr") Is System.DBNull.Value Then + m_iObjektbezeichnungnr = SqlInt32.Null + Else + m_iObjektbezeichnungnr = New SqlInt32(CType(dtToReturn.Rows(0)("objektbezeichnungnr"), Integer)) + End If + If dtToReturn.Rows(0)("bedingtretournierbar") Is System.DBNull.Value Then + m_bBedingtretournierbar = SqlBoolean.Null + Else + m_bBedingtretournierbar = New SqlBoolean(CType(dtToReturn.Rows(0)("bedingtretournierbar"), Boolean)) + End If + If dtToReturn.Rows(0)("doktypbedingteretournierung") Is System.DBNull.Value Then + m_iDoktypbedingteretournierung = SqlInt32.Null + Else + m_iDoktypbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("doktypbedingteretournierung"), Integer)) + End If + If dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung") Is System.DBNull.Value Then + m_iTagebisvernichtungbedingteretournierung = SqlInt32.Null + Else + m_iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsDokumenttyp::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("dokumenttyp") + 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_dokumenttyp_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("clsDokumenttyp::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 [iDokumenttypnr]() As SqlInt32 + Get + Return m_iDokumenttypnr + End Get + Set(ByVal Value As SqlInt32) + Dim iDokumenttypnrTmp As SqlInt32 = Value + If iDokumenttypnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iDokumenttypnr", "iDokumenttypnr can't be NULL") + End If + m_iDokumenttypnr = 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 [sBeschreibung]() As SqlString + Get + Return m_sBeschreibung + End Get + Set(ByVal Value As SqlString) + m_sBeschreibung = Value + End Set + End Property + + + Public Property [bZu_vercolden]() As SqlBoolean + Get + Return m_bZu_vercolden + End Get + Set(ByVal Value As SqlBoolean) + Dim bZu_vercoldenTmp As SqlBoolean = Value + If bZu_vercoldenTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bZu_vercolden", "bZu_vercolden can't be NULL") + End If + m_bZu_vercolden = Value + End Set + End Property + + + Public Property [bZu_retournieren]() As SqlBoolean + Get + Return m_bZu_retournieren + End Get + Set(ByVal Value As SqlBoolean) + Dim bZu_retournierenTmp As SqlBoolean = Value + If bZu_retournierenTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bZu_retournieren", "bZu_retournieren can't be NULL") + End If + m_bZu_retournieren = Value + End Set + End Property + + + Public Property [bEingang_ersetzt_ausgang]() As SqlBoolean + Get + Return m_bEingang_ersetzt_ausgang + End Get + Set(ByVal Value As SqlBoolean) + Dim bEingang_ersetzt_ausgangTmp As SqlBoolean = Value + If bEingang_ersetzt_ausgangTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bEingang_ersetzt_ausgang", "bEingang_ersetzt_ausgang can't be NULL") + End If + m_bEingang_ersetzt_ausgang = Value + End Set + End Property + + + Public Property [bWird_importiert]() As SqlBoolean + Get + Return m_bWird_importiert + End Get + Set(ByVal Value As SqlBoolean) + Dim bWird_importiertTmp As SqlBoolean = Value + If bWird_importiertTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bWird_importiert", "bWird_importiert can't be NULL") + End If + m_bWird_importiert = Value + End Set + End Property + + + Public Property [iAnzahl_tage]() As SqlInt32 + Get + Return m_iAnzahl_tage + End Get + Set(ByVal Value As SqlInt32) + Dim iAnzahl_tageTmp As SqlInt32 = Value + If iAnzahl_tageTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iAnzahl_tage", "iAnzahl_tage can't be NULL") + End If + m_iAnzahl_tage = Value + End Set + End Property + + + Public Property [iDbearbeitungszeit]() As SqlInt32 + Get + Return m_iDbearbeitungszeit + End Get + Set(ByVal Value As SqlInt32) + Dim iDbearbeitungszeitTmp As SqlInt32 = Value + If iDbearbeitungszeitTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iDbearbeitungszeit", "iDbearbeitungszeit can't be NULL") + End If + m_iDbearbeitungszeit = Value + End Set + End Property + + + Public Property [iTage_mutation]() As SqlInt32 + Get + Return m_iTage_mutation + End Get + Set(ByVal Value As SqlInt32) + Dim iTage_mutationTmp As SqlInt32 = Value + If iTage_mutationTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iTage_mutation", "iTage_mutation can't be NULL") + End If + m_iTage_mutation = Value + End Set + End Property + + + Public Property [bPartnersaldierung_statusalt]() As SqlBoolean + Get + Return m_bPartnersaldierung_statusalt + End Get + Set(ByVal Value As SqlBoolean) + Dim bPartnersaldierung_statusaltTmp As SqlBoolean = Value + If bPartnersaldierung_statusaltTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bPartnersaldierung_statusalt", "bPartnersaldierung_statusalt can't be NULL") + End If + m_bPartnersaldierung_statusalt = Value + End Set + End Property + + + Public Property [bWird_nicht_geloescht]() As SqlBoolean + Get + Return m_bWird_nicht_geloescht + End Get + Set(ByVal Value As SqlBoolean) + Dim bWird_nicht_geloeschtTmp As SqlBoolean = Value + If bWird_nicht_geloeschtTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bWird_nicht_geloescht", "bWird_nicht_geloescht can't be NULL") + End If + m_bWird_nicht_geloescht = Value + End Set + End Property + + + Public Property [bVertrauliches_dokument]() As SqlBoolean + Get + Return m_bVertrauliches_dokument + End Get + Set(ByVal Value As SqlBoolean) + Dim bVertrauliches_dokumentTmp As SqlBoolean = Value + If bVertrauliches_dokumentTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bVertrauliches_dokument", "bVertrauliches_dokument can't be NULL") + End If + m_bVertrauliches_dokument = Value + End Set + End Property + + + Public Property [bUnterschrift_links]() As SqlBoolean + Get + Return m_bUnterschrift_links + End Get + Set(ByVal Value As SqlBoolean) + Dim bUnterschrift_linksTmp As SqlBoolean = Value + If bUnterschrift_linksTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bUnterschrift_links", "bUnterschrift_links can't be NULL") + End If + m_bUnterschrift_links = Value + End Set + End Property + + + Public Property [bUnterschrift_rechts]() As SqlBoolean + Get + Return m_bUnterschrift_rechts + End Get + Set(ByVal Value As SqlBoolean) + Dim bUnterschrift_rechtsTmp As SqlBoolean = Value + If bUnterschrift_rechtsTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bUnterschrift_rechts", "bUnterschrift_rechts can't be NULL") + End If + m_bUnterschrift_rechts = Value + End Set + End Property + + + Public Property [iMonate_bis_zur_archivierung]() As SqlInt32 + Get + Return m_iMonate_bis_zur_archivierung + End Get + Set(ByVal Value As SqlInt32) + Dim iMonate_bis_zur_archivierungTmp As SqlInt32 = Value + If iMonate_bis_zur_archivierungTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iMonate_bis_zur_archivierung", "iMonate_bis_zur_archivierung can't be NULL") + End If + m_iMonate_bis_zur_archivierung = Value + End Set + End Property + + + Public Property [iAufbewahrungsfrist_elektronisch]() As SqlInt32 + Get + Return m_iAufbewahrungsfrist_elektronisch + End Get + Set(ByVal Value As SqlInt32) + Dim iAufbewahrungsfrist_elektronischTmp As SqlInt32 = Value + If iAufbewahrungsfrist_elektronischTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_elektronisch", "iAufbewahrungsfrist_elektronisch can't be NULL") + End If + m_iAufbewahrungsfrist_elektronisch = Value + End Set + End Property + + + Public Property [iAufbewahrungsfrist_physisch]() As SqlInt32 + Get + Return m_iAufbewahrungsfrist_physisch + End Get + Set(ByVal Value As SqlInt32) + Dim iAufbewahrungsfrist_physischTmp As SqlInt32 = Value + If iAufbewahrungsfrist_physischTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_physisch", "iAufbewahrungsfrist_physisch can't be NULL") + End If + m_iAufbewahrungsfrist_physisch = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + + + Public Property [iOffice_vorlagenr]() As SqlInt32 + Get + Return m_iOffice_vorlagenr + End Get + Set(ByVal Value As SqlInt32) + m_iOffice_vorlagenr = Value + End Set + End Property + + + Public Property [iDokumentart_kundendossier]() As SqlInt32 + Get + Return m_iDokumentart_kundendossier + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_kundendossier = Value + End Set + End Property + + + Public Property [iDokumentart_neuerstellung]() As SqlInt32 + Get + Return m_iDokumentart_neuerstellung + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_neuerstellung = Value + End Set + End Property + + + Public Property [iDokumentart_retournierung]() As SqlInt32 + Get + Return m_iDokumentart_retournierung + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_retournierung = Value + End Set + End Property + + + Public Property [iDokumentart_coldausgang]() As SqlInt32 + Get + Return m_iDokumentart_coldausgang + End Get + Set(ByVal Value As SqlInt32) + Dim iDokumentart_coldausgangTmp As SqlInt32 = Value + If iDokumentart_coldausgangTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iDokumentart_coldausgang", "iDokumentart_coldausgang can't be NULL") + End If + m_iDokumentart_coldausgang = Value + End Set + End Property + + + Public Property [iDokumentart_coldeingang]() As SqlInt32 + Get + Return m_iDokumentart_coldeingang + End Get + Set(ByVal Value As SqlInt32) + Dim iDokumentart_coldeingangTmp As SqlInt32 = Value + If iDokumentart_coldeingangTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iDokumentart_coldeingang", "iDokumentart_coldeingang can't be NULL") + End If + m_iDokumentart_coldeingang = Value + End Set + End Property + + + Public Property [iDokumentart_host]() As SqlInt32 + Get + Return m_iDokumentart_host + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_host = Value + End Set + End Property + + + Public Property [iDokumentart_weitere]() As SqlInt32 + Get + Return m_iDokumentart_weitere + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_weitere = Value + End Set + End Property + + + Public Property [iDokumentart_nativ]() As SqlInt32 + Get + Return m_iDokumentart_nativ + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentart_nativ = Value + End Set + End Property + + + Public Property [iProzessnr]() As SqlInt32 + Get + Return m_iProzessnr + End Get + Set(ByVal Value As SqlInt32) + m_iProzessnr = Value + End Set + End Property + + + Public Property [iProzessnr1]() As SqlInt32 + Get + Return m_iProzessnr1 + End Get + Set(ByVal Value As SqlInt32) + m_iProzessnr1 = Value + End Set + End Property + + + Public Property [bAmsdokument]() As SqlBoolean + Get + Return m_bAmsdokument + End Get + Set(ByVal Value As SqlBoolean) + Dim bAmsdokumentTmp As SqlBoolean = Value + If bAmsdokumentTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bAmsdokument", "bAmsdokument can't be NULL") + End If + m_bAmsdokument = Value + End Set + End Property + + + Public Property [bHostdokument]() As SqlBoolean + Get + Return m_bHostdokument + End Get + Set(ByVal Value As SqlBoolean) + m_bHostdokument = Value + End Set + End Property + + + Public Property [sHostdokumenttyp]() As SqlString + Get + Return m_sHostdokumenttyp + End Get + Set(ByVal Value As SqlString) + m_sHostdokumenttyp = Value + End Set + End Property + + + Public Property [iCold_folder]() As SqlInt32 + Get + Return m_iCold_folder + End Get + Set(ByVal Value As SqlInt32) + m_iCold_folder = Value + End Set + End Property + + + Public Property [iPhysisches_archiv]() As SqlInt32 + Get + Return m_iPhysisches_archiv + End Get + Set(ByVal Value As SqlInt32) + m_iPhysisches_archiv = Value + End Set + End Property + + + Public Property [iDokumentstatus]() As SqlInt32 + Get + Return m_iDokumentstatus + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentstatus = Value + End Set + End Property + + + Public Property [bDokument_wird_erstellt]() As SqlBoolean + Get + Return m_bDokument_wird_erstellt + End Get + Set(ByVal Value As SqlBoolean) + m_bDokument_wird_erstellt = Value + End Set + End Property + + + Public Property [bDokument_wird_retourniert]() As SqlBoolean + Get + Return m_bDokument_wird_retourniert + End Get + Set(ByVal Value As SqlBoolean) + m_bDokument_wird_retourniert = Value + End Set + End Property + + + Public Property [bCold_ersetzen]() As SqlBoolean + Get + Return m_bCold_ersetzen + End Get + Set(ByVal Value As SqlBoolean) + m_bCold_ersetzen = Value + End Set + End Property + + + Public Property [bEmail_versand]() As SqlBoolean + Get + Return m_bEmail_versand + End Get + Set(ByVal Value As SqlBoolean) + m_bEmail_versand = Value + End Set + End Property + + + Public Property [bFunktionen_zuweisen]() As SqlBoolean + Get + Return m_bFunktionen_zuweisen + End Get + Set(ByVal Value As SqlBoolean) + m_bFunktionen_zuweisen = Value + End Set + End Property + + + Public Property [iDokumentstatus_barcode]() As SqlInt32 + Get + Return m_iDokumentstatus_barcode + End Get + Set(ByVal Value As SqlInt32) + m_iDokumentstatus_barcode = Value + End Set + End Property + + + Public Property [bNurnative]() As SqlBoolean + Get + Return m_bNurnative + End Get + Set(ByVal Value As SqlBoolean) + m_bNurnative = Value + End Set + End Property + + + Public Property [iOwner]() As SqlInt32 + Get + Return m_iOwner + End Get + Set(ByVal Value As SqlInt32) + m_iOwner = Value + End Set + End Property + + + Public Property [bVertrag]() As SqlBoolean + Get + Return m_bVertrag + End Get + Set(ByVal Value As SqlBoolean) + m_bVertrag = Value + End Set + End Property + + + Public Property [iObjektbezeichnungnr]() As SqlInt32 + Get + Return m_iObjektbezeichnungnr + End Get + Set(ByVal Value As SqlInt32) + m_iObjektbezeichnungnr = Value + End Set + End Property + + + Public Property [bBedingtretournierbar]() As SqlBoolean + Get + Return m_bBedingtretournierbar + End Get + Set(ByVal Value As SqlBoolean) + m_bBedingtretournierbar = Value + End Set + End Property + + + Public Property [iDoktypbedingteretournierung]() As SqlInt32 + Get + Return m_iDoktypbedingteretournierung + End Get + Set(ByVal Value As SqlInt32) + m_iDoktypbedingteretournierung = Value + End Set + End Property + + + Public Property [iTagebisvernichtungbedingteretournierung]() As SqlInt32 + Get + Return m_iTagebisvernichtungbedingteretournierung + End Get + Set(ByVal Value As SqlInt32) + m_iTagebisvernichtungbedingteretournierung = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsEdex_sb_serienbrief.vb b/edkb08/Datenbank/clsEdex_sb_serienbrief.vb new file mode 100644 index 0000000..08d5ea2 --- /dev/null +++ b/edkb08/Datenbank/clsEdex_sb_serienbrief.vb @@ -0,0 +1,891 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'edex_sb_serienbrief' +' // Generated by LLBLGen v1.21.2003.712 Final on: Montag, 13. September 2010, 16:18:43 +' // 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 + ''' + ''' Purpose: Data Access class for the table 'edex_sb_serienbrief'. + ''' + Public Class clsEdex_sb_serienbrief + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daErstellt_am, m_daArchivdatum, m_daTermin, m_daDokumentdatum, m_daMutiert_am As SqlDateTime + Private m_iDokumenttypnr, m_iWindowheight, m_iWindowwidth, m_iTreewidth, m_iBestaetigt, m_iAusgeloest, m_iBldossier, m_iGedruckt, m_iFehlerhaft, m_iInBearbeitung, m_iErstellt, m_iUnterschriftlinks, m_iUnterschriftrechts, m_iZustaendig, m_iVerantwortlich, m_iPostzustellung, m_iMutierer, m_iStatus, m_iSerienbriefnr, m_iTeam As SqlInt32 + Private m_sBezeichnung, m_sBemerkung As SqlString + +#End Region + + + ''' + ''' Purpose: Class constructor. + ''' + Public Sub New() + ' // Nothing for now. + End Sub + + + ''' + ''' Purpose: Insert method. This method will insert one new row into the database. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • sBezeichnung. May be SqlString.Null
    • + '''
  • iVerantwortlich. May be SqlInt32.Null
    • + '''
  • iPostzustellung. May be SqlInt32.Null
    • + '''
  • daDokumentdatum. May be SqlDateTime.Null
    • + '''
  • iZustaendig. May be SqlInt32.Null
    • + '''
  • iUnterschriftlinks. May be SqlInt32.Null
    • + '''
  • iUnterschriftrechts. May be SqlInt32.Null
    • + '''
  • iTeam. May be SqlInt32.Null
    • + '''
  • daArchivdatum. May be SqlDateTime.Null
    • + '''
  • daTermin. May be SqlDateTime.Null
    • + '''
  • sBemerkung. May be SqlString.Null
    • + '''
  • daErstellt_am. May be SqlDateTime.Null
    • + '''
  • daMutiert_am. May be SqlDateTime.Null
    • + '''
  • iMutierer. May be SqlInt32.Null
    • + '''
  • bAktiv. May be SqlBoolean.Null
    • + '''
  • iStatus. May be SqlInt32.Null
    • + '''
  • iDokumenttypnr. May be SqlInt32.Null
    • + '''
  • iWindowwidth. May be SqlInt32.Null
    • + '''
  • iWindowheight. May be SqlInt32.Null
    • + '''
  • iTreewidth. May be SqlInt32.Null
    • + '''
  • iFehlerhaft. May be SqlInt32.Null
    • + '''
  • iInBearbeitung. May be SqlInt32.Null
    • + '''
  • iErstellt. May be SqlInt32.Null
    • + '''
  • iGedruckt. May be SqlInt32.Null
    • + '''
  • iBestaetigt. May be SqlInt32.Null
    • + '''
  • iAusgeloest. May be SqlInt32.Null
    • + '''
  • iBldossier. May be SqlInt32.Null
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iSerienbriefnr
    • + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edex_sb_serienbrief_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumentdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDokumentdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendig", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendig)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTeam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daArchivdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iwindowwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWindowwidth)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iwindowheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWindowheight)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itreewidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTreewidth)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifehlerhaft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFehlerhaft)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iinBearbeitung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iInBearbeitung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@igedruckt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGedruckt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibestaetigt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBestaetigt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iausgeloest", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAusgeloest)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibldossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBldossier)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iserienbriefnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iSerienbriefnr)) + 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_iSerienbriefnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iserienbriefnr").Value, SqlInt32)) + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_edex_sb_serienbrief_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_sb_serienbrief::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Update method. This method will Update one existing row in the database. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • iSerienbriefnr
    • + '''
  • sBezeichnung. May be SqlString.Null
    • + '''
  • iVerantwortlich. May be SqlInt32.Null
    • + '''
  • iPostzustellung. May be SqlInt32.Null
    • + '''
  • daDokumentdatum. May be SqlDateTime.Null
    • + '''
  • iZustaendig. May be SqlInt32.Null
    • + '''
  • iUnterschriftlinks. May be SqlInt32.Null
    • + '''
  • iUnterschriftrechts. May be SqlInt32.Null
    • + '''
  • iTeam. May be SqlInt32.Null
    • + '''
  • daArchivdatum. May be SqlDateTime.Null
    • + '''
  • daTermin. May be SqlDateTime.Null
    • + '''
  • sBemerkung. May be SqlString.Null
    • + '''
  • daErstellt_am. May be SqlDateTime.Null
    • + '''
  • daMutiert_am. May be SqlDateTime.Null
    • + '''
  • iMutierer. May be SqlInt32.Null
    • + '''
  • bAktiv. May be SqlBoolean.Null
    • + '''
  • iStatus. May be SqlInt32.Null
    • + '''
  • iDokumenttypnr. May be SqlInt32.Null
    • + '''
  • iWindowwidth. May be SqlInt32.Null
    • + '''
  • iWindowheight. May be SqlInt32.Null
    • + '''
  • iTreewidth. May be SqlInt32.Null
    • + '''
  • iFehlerhaft. May be SqlInt32.Null
    • + '''
  • iInBearbeitung. May be SqlInt32.Null
    • + '''
  • iErstellt. May be SqlInt32.Null
    • + '''
  • iGedruckt. May be SqlInt32.Null
    • + '''
  • iBestaetigt. May be SqlInt32.Null
    • + '''
  • iAusgeloest. May be SqlInt32.Null
    • + '''
  • iBldossier. May be SqlInt32.Null
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edex_sb_serienbrief_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iserienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSerienbriefnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumentdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDokumentdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendig", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendig)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTeam)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daArchivdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iwindowwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWindowwidth)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iwindowheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWindowheight)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@itreewidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTreewidth)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifehlerhaft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFehlerhaft)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iinBearbeitung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iInBearbeitung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@igedruckt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGedruckt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibestaetigt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBestaetigt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iausgeloest", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAusgeloest)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ibldossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBldossier)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_edex_sb_serienbrief_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("clsEdex_sb_serienbrief::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • iSerienbriefnr
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edex_sb_serienbrief_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iserienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSerienbriefnr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_edex_sb_serienbrief_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("clsEdex_sb_serienbrief::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ''' + ''' DataTable object if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • iSerienbriefnr
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
  • iSerienbriefnr
    • + '''
  • sBezeichnung
    • + '''
  • iVerantwortlich
    • + '''
  • iPostzustellung
    • + '''
  • daDokumentdatum
    • + '''
  • iZustaendig
    • + '''
  • iUnterschriftlinks
    • + '''
  • iUnterschriftrechts
    • + '''
  • iTeam
    • + '''
  • daArchivdatum
    • + '''
  • daTermin
    • + '''
  • sBemerkung
    • + '''
  • daErstellt_am
    • + '''
  • daMutiert_am
    • + '''
  • iMutierer
    • + '''
  • bAktiv
    • + '''
  • iStatus
    • + '''
  • iDokumenttypnr
    • + '''
  • iWindowwidth
    • + '''
  • iWindowheight
    • + '''
  • iTreewidth
    • + '''
  • iFehlerhaft
    • + '''
  • iInBearbeitung
    • + '''
  • iErstellt
    • + '''
  • iGedruckt
    • + '''
  • iBestaetigt
    • + '''
  • iAusgeloest
    • + '''
  • iBldossier
    • + '''
+ ''' Will fill all properties corresponding with a field in the table with the value of the row selected. + ''' + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edex_sb_serienbrief_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("edex_sb_serienbrief") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iserienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSerienbriefnr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_edex_sb_serienbrief_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iSerienbriefnr = New SqlInt32(CType(dtToReturn.Rows(0)("serienbriefnr"), 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)("verantwortlich") Is System.DBNull.Value Then + m_iVerantwortlich = SqlInt32.Null + Else + m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) + End If + If dtToReturn.Rows(0)("postzustellung") Is System.DBNull.Value Then + m_iPostzustellung = SqlInt32.Null + Else + m_iPostzustellung = New SqlInt32(CType(dtToReturn.Rows(0)("postzustellung"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentdatum") Is System.DBNull.Value Then + m_daDokumentdatum = SqlDateTime.Null + Else + m_daDokumentdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("dokumentdatum"), Date)) + End If + If dtToReturn.Rows(0)("zustaendig") Is System.DBNull.Value Then + m_iZustaendig = SqlInt32.Null + Else + m_iZustaendig = New SqlInt32(CType(dtToReturn.Rows(0)("zustaendig"), Integer)) + End If + If dtToReturn.Rows(0)("unterschriftlinks") Is System.DBNull.Value Then + m_iUnterschriftlinks = SqlInt32.Null + Else + m_iUnterschriftlinks = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftlinks"), Integer)) + End If + If dtToReturn.Rows(0)("unterschriftrechts") Is System.DBNull.Value Then + m_iUnterschriftrechts = SqlInt32.Null + Else + m_iUnterschriftrechts = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftrechts"), Integer)) + End If + If dtToReturn.Rows(0)("team") Is System.DBNull.Value Then + m_iTeam = SqlInt32.Null + Else + m_iTeam = New SqlInt32(CType(dtToReturn.Rows(0)("team"), Integer)) + End If + If dtToReturn.Rows(0)("archivdatum") Is System.DBNull.Value Then + m_daArchivdatum = SqlDateTime.Null + Else + m_daArchivdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("archivdatum"), Date)) + End If + If dtToReturn.Rows(0)("termin") Is System.DBNull.Value Then + m_daTermin = SqlDateTime.Null + Else + m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("termin"), Date)) + End If + If dtToReturn.Rows(0)("bemerkung") Is System.DBNull.Value Then + m_sBemerkung = SqlString.Null + Else + m_sBemerkung = New SqlString(CType(dtToReturn.Rows(0)("bemerkung"), 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)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("status") Is System.DBNull.Value Then + m_iStatus = SqlInt32.Null + Else + m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer)) + End If + If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then + m_iDokumenttypnr = SqlInt32.Null + Else + m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) + End If + If dtToReturn.Rows(0)("windowwidth") Is System.DBNull.Value Then + m_iWindowwidth = SqlInt32.Null + Else + m_iWindowwidth = New SqlInt32(CType(dtToReturn.Rows(0)("windowwidth"), Integer)) + End If + If dtToReturn.Rows(0)("windowheight") Is System.DBNull.Value Then + m_iWindowheight = SqlInt32.Null + Else + m_iWindowheight = New SqlInt32(CType(dtToReturn.Rows(0)("windowheight"), Integer)) + End If + If dtToReturn.Rows(0)("treewidth") Is System.DBNull.Value Then + m_iTreewidth = SqlInt32.Null + Else + m_iTreewidth = New SqlInt32(CType(dtToReturn.Rows(0)("treewidth"), Integer)) + End If + If dtToReturn.Rows(0)("fehlerhaft") Is System.DBNull.Value Then + m_iFehlerhaft = SqlInt32.Null + Else + m_iFehlerhaft = New SqlInt32(CType(dtToReturn.Rows(0)("fehlerhaft"), Integer)) + End If + If dtToReturn.Rows(0)("inBearbeitung") Is System.DBNull.Value Then + m_iInBearbeitung = SqlInt32.Null + Else + m_iInBearbeitung = New SqlInt32(CType(dtToReturn.Rows(0)("inBearbeitung"), Integer)) + End If + If dtToReturn.Rows(0)("erstellt") Is System.DBNull.Value Then + m_iErstellt = SqlInt32.Null + Else + m_iErstellt = New SqlInt32(CType(dtToReturn.Rows(0)("erstellt"), Integer)) + End If + If dtToReturn.Rows(0)("gedruckt") Is System.DBNull.Value Then + m_iGedruckt = SqlInt32.Null + Else + m_iGedruckt = New SqlInt32(CType(dtToReturn.Rows(0)("gedruckt"), Integer)) + End If + If dtToReturn.Rows(0)("bestaetigt") Is System.DBNull.Value Then + m_iBestaetigt = SqlInt32.Null + Else + m_iBestaetigt = New SqlInt32(CType(dtToReturn.Rows(0)("bestaetigt"), Integer)) + End If + If dtToReturn.Rows(0)("ausgeloest") Is System.DBNull.Value Then + m_iAusgeloest = SqlInt32.Null + Else + m_iAusgeloest = New SqlInt32(CType(dtToReturn.Rows(0)("ausgeloest"), Integer)) + End If + If dtToReturn.Rows(0)("bldossier") Is System.DBNull.Value Then + m_iBldossier = SqlInt32.Null + Else + m_iBldossier = New SqlInt32(CType(dtToReturn.Rows(0)("bldossier"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsEdex_sb_serienbrief::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ''' + ''' Purpose: SelectAll method. This method will Select all rows from the table. + ''' + ''' DataTable object if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edex_sb_serienbrief_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("edex_sb_serienbrief") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_edex_sb_serienbrief_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_sb_serienbrief::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 [iSerienbriefnr]() As SqlInt32 + Get + Return m_iSerienbriefnr + End Get + Set(ByVal Value As SqlInt32) + Dim iSerienbriefnrTmp As SqlInt32 = Value + If iSerienbriefnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iSerienbriefnr", "iSerienbriefnr can't be NULL") + End If + m_iSerienbriefnr = 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 [iVerantwortlich]() As SqlInt32 + Get + Return m_iVerantwortlich + End Get + Set(ByVal Value As SqlInt32) + m_iVerantwortlich = Value + End Set + End Property + + + Public Property [iPostzustellung]() As SqlInt32 + Get + Return m_iPostzustellung + End Get + Set(ByVal Value As SqlInt32) + m_iPostzustellung = Value + End Set + End Property + + + Public Property [daDokumentdatum]() As SqlDateTime + Get + Return m_daDokumentdatum + End Get + Set(ByVal Value As SqlDateTime) + m_daDokumentdatum = Value + End Set + End Property + + + Public Property [iZustaendig]() As SqlInt32 + Get + Return m_iZustaendig + End Get + Set(ByVal Value As SqlInt32) + m_iZustaendig = Value + End Set + End Property + + + Public Property [iUnterschriftlinks]() As SqlInt32 + Get + Return m_iUnterschriftlinks + End Get + Set(ByVal Value As SqlInt32) + m_iUnterschriftlinks = Value + End Set + End Property + + + Public Property [iUnterschriftrechts]() As SqlInt32 + Get + Return m_iUnterschriftrechts + End Get + Set(ByVal Value As SqlInt32) + m_iUnterschriftrechts = Value + End Set + End Property + + + Public Property [iTeam]() As SqlInt32 + Get + Return m_iTeam + End Get + Set(ByVal Value As SqlInt32) + m_iTeam = Value + End Set + End Property + + + Public Property [daArchivdatum]() As SqlDateTime + Get + Return m_daArchivdatum + End Get + Set(ByVal Value As SqlDateTime) + m_daArchivdatum = Value + End Set + End Property + + + Public Property [daTermin]() As SqlDateTime + Get + Return m_daTermin + End Get + Set(ByVal Value As SqlDateTime) + m_daTermin = Value + End Set + End Property + + + Public Property [sBemerkung]() As SqlString + Get + Return m_sBemerkung + End Get + Set(ByVal Value As SqlString) + m_sBemerkung = 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 [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [iStatus]() As SqlInt32 + Get + Return m_iStatus + End Get + Set(ByVal Value As SqlInt32) + m_iStatus = Value + End Set + End Property + + + Public Property [iDokumenttypnr]() As SqlInt32 + Get + Return m_iDokumenttypnr + End Get + Set(ByVal Value As SqlInt32) + m_iDokumenttypnr = Value + End Set + End Property + + + Public Property [iWindowwidth]() As SqlInt32 + Get + Return m_iWindowwidth + End Get + Set(ByVal Value As SqlInt32) + m_iWindowwidth = Value + End Set + End Property + + + Public Property [iWindowheight]() As SqlInt32 + Get + Return m_iWindowheight + End Get + Set(ByVal Value As SqlInt32) + m_iWindowheight = Value + End Set + End Property + + + Public Property [iTreewidth]() As SqlInt32 + Get + Return m_iTreewidth + End Get + Set(ByVal Value As SqlInt32) + m_iTreewidth = Value + End Set + End Property + + + Public Property [iFehlerhaft]() As SqlInt32 + Get + Return m_iFehlerhaft + End Get + Set(ByVal Value As SqlInt32) + m_iFehlerhaft = Value + End Set + End Property + + + Public Property [iInBearbeitung]() As SqlInt32 + Get + Return m_iInBearbeitung + End Get + Set(ByVal Value As SqlInt32) + m_iInBearbeitung = Value + End Set + End Property + + + Public Property [iErstellt]() As SqlInt32 + Get + Return m_iErstellt + End Get + Set(ByVal Value As SqlInt32) + m_iErstellt = Value + End Set + End Property + + + Public Property [iGedruckt]() As SqlInt32 + Get + Return m_iGedruckt + End Get + Set(ByVal Value As SqlInt32) + m_iGedruckt = Value + End Set + End Property + + + Public Property [iBestaetigt]() As SqlInt32 + Get + Return m_iBestaetigt + End Get + Set(ByVal Value As SqlInt32) + m_iBestaetigt = Value + End Set + End Property + + + Public Property [iAusgeloest]() As SqlInt32 + Get + Return m_iAusgeloest + End Get + Set(ByVal Value As SqlInt32) + m_iAusgeloest = Value + End Set + End Property + + + Public Property [iBldossier]() As SqlInt32 + Get + Return m_iBldossier + End Get + Set(ByVal Value As SqlInt32) + m_iBldossier = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsFA_APPL.vb b/edkb08/Datenbank/clsFA_APPL.vb new file mode 100644 index 0000000..ce5f066 --- /dev/null +++ b/edkb08/Datenbank/clsFA_APPL.vb @@ -0,0 +1,711 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'FA_APPL' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 4. April 2005, 23:36:30 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'FA_APPL'. + ' /// + Public Class clsFA_APPL + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bLog_In_DB, m_bLog_Per_Mail, m_bAktiv, m_bLog_Mit_DTO As SqlBoolean + Private m_daMutiert_am, m_daErstellt_am As SqlDateTime + Private m_iVerarbeitungsart, m_iMail_Periodizitaet, m_iMandantnr, m_iMutierer, m_iApplNr, m_iEDOKA_Mitarbeiter As SqlInt32 + Private m_sReserve_2, m_sOutputFormat, m_sReserve_1, m_sInputverzeichnis, m_sMail_Empfaneger, m_sBezeichnung, m_sDTO_Parameter As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • iEDOKA_Mitarbeiter. May be SqlInt32.Null
    • + ' ///
  • sDTO_Parameter. May be SqlString.Null
    • + ' ///
  • sReserve_1. May be SqlString.Null
    • + ' ///
  • sReserve_2. May be SqlString.Null
    • + ' ///
  • sInputverzeichnis. May be SqlString.Null
    • + ' ///
  • bLog_Per_Mail. May be SqlBoolean.Null
    • + ' ///
  • bLog_In_DB. May be SqlBoolean.Null
    • + ' ///
  • bLog_Mit_DTO. May be SqlBoolean.Null
    • + ' ///
  • sMail_Empfaneger. May be SqlString.Null
    • + ' ///
  • iMail_Periodizitaet. May be SqlInt32.Null
    • + ' ///
  • iVerarbeitungsart. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • sOutputFormat. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iApplNr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_APPL_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEDOKA_Mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEDOKA_Mitarbeiter)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDTO_Parameter", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDTO_Parameter)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sReserve_1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReserve_1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sReserve_2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReserve_2)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sInputverzeichnis", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInputverzeichnis)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_Per_Mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_Per_Mail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_In_DB", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_In_DB)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_Mit_DTO", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_Mit_DTO)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sMail_Empfaneger", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMail_Empfaneger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iMail_Periodizitaet", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMail_Periodizitaet)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerarbeitungsart", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerarbeitungsart)) + 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sOutputFormat", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOutputFormat)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + 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_iApplNr = scmCmdToExecute.Parameters.Item("@iApplNr").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_edokaimport_FA_APPL_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("clsFA_APPL::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iApplNr
    • + ' ///
  • sBezeichnung. May be SqlString.Null
    • + ' ///
  • iEDOKA_Mitarbeiter. May be SqlInt32.Null
    • + ' ///
  • sDTO_Parameter. May be SqlString.Null
    • + ' ///
  • sReserve_1. May be SqlString.Null
    • + ' ///
  • sReserve_2. May be SqlString.Null
    • + ' ///
  • sInputverzeichnis. May be SqlString.Null
    • + ' ///
  • bLog_Per_Mail. May be SqlBoolean.Null
    • + ' ///
  • bLog_In_DB. May be SqlBoolean.Null
    • + ' ///
  • bLog_Mit_DTO. May be SqlBoolean.Null
    • + ' ///
  • sMail_Empfaneger. May be SqlString.Null
    • + ' ///
  • iMail_Periodizitaet. May be SqlInt32.Null
    • + ' ///
  • iVerarbeitungsart. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • sOutputFormat. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_APPL_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEDOKA_Mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEDOKA_Mitarbeiter)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDTO_Parameter", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDTO_Parameter)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sReserve_1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReserve_1)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sReserve_2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReserve_2)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sInputverzeichnis", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInputverzeichnis)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_Per_Mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_Per_Mail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_In_DB", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_In_DB)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bLog_Mit_DTO", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bLog_Mit_DTO)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sMail_Empfaneger", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMail_Empfaneger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iMail_Periodizitaet", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMail_Periodizitaet)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerarbeitungsart", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerarbeitungsart)) + 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sOutputFormat", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOutputFormat)) + 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_edokaimport_FA_APPL_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("clsFA_APPL::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iApplNr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_APPL_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + 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_edokaimport_FA_APPL_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("clsFA_APPL::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iApplNr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iApplNr
    • + ' ///
  • sBezeichnung
    • + ' ///
  • iEDOKA_Mitarbeiter
    • + ' ///
  • sDTO_Parameter
    • + ' ///
  • sReserve_1
    • + ' ///
  • sReserve_2
    • + ' ///
  • sInputverzeichnis
    • + ' ///
  • bLog_Per_Mail
    • + ' ///
  • bLog_In_DB
    • + ' ///
  • bLog_Mit_DTO
    • + ' ///
  • sMail_Empfaneger
    • + ' ///
  • iMail_Periodizitaet
    • + ' ///
  • iVerarbeitungsart
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
  • bAktiv
    • + ' ///
  • iMandantnr
    • + ' ///
  • sOutputFormat
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_APPL_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_APPL") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + 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_edokaimport_FA_APPL_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iApplNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplNr"), 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)("EDOKA_Mitarbeiter") Is System.DBNull.Value Then + m_iEDOKA_Mitarbeiter = SqlInt32.Null + Else + m_iEDOKA_Mitarbeiter = New SqlInt32(CType(dtToReturn.Rows(0)("EDOKA_Mitarbeiter"), Integer)) + End If + If dtToReturn.Rows(0)("DTO_Parameter") Is System.DBNull.Value Then + m_sDTO_Parameter = SqlString.Null + Else + m_sDTO_Parameter = New SqlString(CType(dtToReturn.Rows(0)("DTO_Parameter"), String)) + End If + If dtToReturn.Rows(0)("Reserve_1") Is System.DBNull.Value Then + m_sReserve_1 = SqlString.Null + Else + m_sReserve_1 = New SqlString(CType(dtToReturn.Rows(0)("Reserve_1"), String)) + End If + If dtToReturn.Rows(0)("Reserve_2") Is System.DBNull.Value Then + m_sReserve_2 = SqlString.Null + Else + m_sReserve_2 = New SqlString(CType(dtToReturn.Rows(0)("Reserve_2"), String)) + End If + If dtToReturn.Rows(0)("Inputverzeichnis") Is System.DBNull.Value Then + m_sInputverzeichnis = SqlString.Null + Else + m_sInputverzeichnis = New SqlString(CType(dtToReturn.Rows(0)("Inputverzeichnis"), String)) + End If + If dtToReturn.Rows(0)("Log_Per_Mail") Is System.DBNull.Value Then + m_bLog_Per_Mail = SqlBoolean.Null + Else + m_bLog_Per_Mail = New SqlBoolean(CType(dtToReturn.Rows(0)("Log_Per_Mail"), Boolean)) + End If + If dtToReturn.Rows(0)("Log_In_DB") Is System.DBNull.Value Then + m_bLog_In_DB = SqlBoolean.Null + Else + m_bLog_In_DB = New SqlBoolean(CType(dtToReturn.Rows(0)("Log_In_DB"), Boolean)) + End If + If dtToReturn.Rows(0)("Log_Mit_DTO") Is System.DBNull.Value Then + m_bLog_Mit_DTO = SqlBoolean.Null + Else + m_bLog_Mit_DTO = New SqlBoolean(CType(dtToReturn.Rows(0)("Log_Mit_DTO"), Boolean)) + End If + If dtToReturn.Rows(0)("Mail_Empfaneger") Is System.DBNull.Value Then + m_sMail_Empfaneger = SqlString.Null + Else + m_sMail_Empfaneger = New SqlString(CType(dtToReturn.Rows(0)("Mail_Empfaneger"), String)) + End If + If dtToReturn.Rows(0)("Mail_Periodizitaet") Is System.DBNull.Value Then + m_iMail_Periodizitaet = SqlInt32.Null + Else + m_iMail_Periodizitaet = New SqlInt32(CType(dtToReturn.Rows(0)("Mail_Periodizitaet"), Integer)) + End If + If dtToReturn.Rows(0)("Verarbeitungsart") Is System.DBNull.Value Then + m_iVerarbeitungsart = SqlInt32.Null + Else + m_iVerarbeitungsart = New SqlInt32(CType(dtToReturn.Rows(0)("Verarbeitungsart"), Integer)) + 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)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("OutputFormat") Is System.DBNull.Value Then + m_sOutputFormat = SqlString.Null + Else + m_sOutputFormat = New SqlString(CType(dtToReturn.Rows(0)("OutputFormat"), 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("clsFA_APPL::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_APPL_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_APPL") + 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_edokaimport_FA_APPL_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("clsFA_APPL::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 [iApplNr]() As SqlInt32 + Get + Return m_iApplNr + End Get + Set(ByVal Value As SqlInt32) + Dim iApplNrTmp As SqlInt32 = Value + If iApplNrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iApplNr", "iApplNr can't be NULL") + End If + m_iApplNr = 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 [iEDOKA_Mitarbeiter]() As SqlInt32 + Get + Return m_iEDOKA_Mitarbeiter + End Get + Set(ByVal Value As SqlInt32) + m_iEDOKA_Mitarbeiter = Value + End Set + End Property + + + Public Property [sDTO_Parameter]() As SqlString + Get + Return m_sDTO_Parameter + End Get + Set(ByVal Value As SqlString) + m_sDTO_Parameter = Value + End Set + End Property + + + Public Property [sReserve_1]() As SqlString + Get + Return m_sReserve_1 + End Get + Set(ByVal Value As SqlString) + m_sReserve_1 = Value + End Set + End Property + + + Public Property [sReserve_2]() As SqlString + Get + Return m_sReserve_2 + End Get + Set(ByVal Value As SqlString) + m_sReserve_2 = Value + End Set + End Property + + + Public Property [sInputverzeichnis]() As SqlString + Get + Return m_sInputverzeichnis + End Get + Set(ByVal Value As SqlString) + m_sInputverzeichnis = Value + End Set + End Property + + + Public Property [bLog_Per_Mail]() As SqlBoolean + Get + Return m_bLog_Per_Mail + End Get + Set(ByVal Value As SqlBoolean) + m_bLog_Per_Mail = Value + End Set + End Property + + + Public Property [bLog_In_DB]() As SqlBoolean + Get + Return m_bLog_In_DB + End Get + Set(ByVal Value As SqlBoolean) + m_bLog_In_DB = Value + End Set + End Property + + + Public Property [bLog_Mit_DTO]() As SqlBoolean + Get + Return m_bLog_Mit_DTO + End Get + Set(ByVal Value As SqlBoolean) + m_bLog_Mit_DTO = Value + End Set + End Property + + + Public Property [sMail_Empfaneger]() As SqlString + Get + Return m_sMail_Empfaneger + End Get + Set(ByVal Value As SqlString) + m_sMail_Empfaneger = Value + End Set + End Property + + + Public Property [iMail_Periodizitaet]() As SqlInt32 + Get + Return m_iMail_Periodizitaet + End Get + Set(ByVal Value As SqlInt32) + m_iMail_Periodizitaet = Value + End Set + End Property + + + Public Property [iVerarbeitungsart]() As SqlInt32 + Get + Return m_iVerarbeitungsart + End Get + Set(ByVal Value As SqlInt32) + m_iVerarbeitungsart = 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 [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [sOutputFormat]() As SqlString + Get + Return m_sOutputFormat + End Get + Set(ByVal Value As SqlString) + m_sOutputFormat = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsFA_BCImport.vb b/edkb08/Datenbank/clsFA_BCImport.vb new file mode 100644 index 0000000..bc834a6 --- /dev/null +++ b/edkb08/Datenbank/clsFA_BCImport.vb @@ -0,0 +1,491 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'FA_BCImport' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 4. April 2005, 23:36:30 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'FA_BCImport'. + ' /// + Public Class clsFA_BCImport + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daErstellt_am, m_daMutiert_am As SqlDateTime + Private m_iStatus, m_iFabcimportnr As SqlInt32 + Private m_sDateiformat, m_sDateiname, m_sDokumentid As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • sDateiname. May be SqlString.Null
    • + ' ///
  • iStatus. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • sDateiformat. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iFabcimportnr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_BCImport_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiformat", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiformat)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@ifabcimportnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iFabcimportnr)) + 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_iFabcimportnr = scmCmdToExecute.Parameters.Item("@ifabcimportnr").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_edokaimport_FA_BCImport_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("clsFA_BCImport::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iFabcimportnr
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • sDateiname. May be SqlString.Null
    • + ' ///
  • iStatus. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • sDateiformat. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_BCImport_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifabcimportnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFabcimportnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + 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("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiformat", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiformat)) + 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_edokaimport_FA_BCImport_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("clsFA_BCImport::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iFabcimportnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_BCImport_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifabcimportnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFabcimportnr)) + 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_edokaimport_FA_BCImport_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("clsFA_BCImport::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iFabcimportnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iFabcimportnr
    • + ' ///
  • sDokumentid
    • + ' ///
  • sDateiname
    • + ' ///
  • iStatus
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • bAktiv
    • + ' ///
  • sDateiformat
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_BCImport_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_BCImport") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@ifabcimportnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFabcimportnr)) + 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_edokaimport_FA_BCImport_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iFabcimportnr = New SqlInt32(CType(dtToReturn.Rows(0)("fabcimportnr"), Integer)) + If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then + m_sDokumentid = SqlString.Null + Else + m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) + End If + If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then + m_sDateiname = SqlString.Null + Else + m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String)) + End If + If dtToReturn.Rows(0)("status") Is System.DBNull.Value Then + m_iStatus = SqlInt32.Null + Else + m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer)) + 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)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("dateiformat") Is System.DBNull.Value Then + m_sDateiformat = SqlString.Null + Else + m_sDateiformat = New SqlString(CType(dtToReturn.Rows(0)("dateiformat"), 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("clsFA_BCImport::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_BCImport_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_BCImport") + 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_edokaimport_FA_BCImport_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("clsFA_BCImport::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 [iFabcimportnr]() As SqlInt32 + Get + Return m_iFabcimportnr + End Get + Set(ByVal Value As SqlInt32) + Dim iFabcimportnrTmp As SqlInt32 = Value + If iFabcimportnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iFabcimportnr", "iFabcimportnr can't be NULL") + End If + m_iFabcimportnr = 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 [sDateiname]() As SqlString + Get + Return m_sDateiname + End Get + Set(ByVal Value As SqlString) + m_sDateiname = Value + End Set + End Property + + + Public Property [iStatus]() As SqlInt32 + Get + Return m_iStatus + End Get + Set(ByVal Value As SqlInt32) + m_iStatus = 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 [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [sDateiformat]() As SqlString + Get + Return m_sDateiformat + End Get + Set(ByVal Value As SqlString) + m_sDateiformat = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsFA_Dokumenttyp.vb b/edkb08/Datenbank/clsFA_Dokumenttyp.vb new file mode 100644 index 0000000..db80f91 --- /dev/null +++ b/edkb08/Datenbank/clsFA_Dokumenttyp.vb @@ -0,0 +1,490 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'FA_Dokumenttyp' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 4. April 2005, 23:36:30 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'FA_Dokumenttyp'. + ' /// + Public Class clsFA_Dokumenttyp + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_daMutiert_am, m_daErstellt_am As SqlDateTime + Private m_iAktiv, m_iMutierer, m_iApplNr, m_iEintragnr, m_iEDOKA_Dokumenttyp As SqlInt32 + Private m_sFA_Dokumenttyp As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iApplNr. May be SqlInt32.Null
    • + ' ///
  • sFA_Dokumenttyp. May be SqlString.Null
    • + ' ///
  • iEDOKA_Dokumenttyp. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iAktiv. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iEintragnr
    • + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_Dokumenttyp_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFA_Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFA_Dokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEDOKA_Dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEDOKA_Dokumenttyp)) + 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("@iaktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktiv)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iEintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr)) + 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_iEintragnr = scmCmdToExecute.Parameters.Item("@iEintragnr").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_edokaimport_FA_Dokumenttyp_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("clsFA_Dokumenttyp::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iEintragnr
    • + ' ///
  • iApplNr. May be SqlInt32.Null
    • + ' ///
  • sFA_Dokumenttyp. May be SqlString.Null
    • + ' ///
  • iEDOKA_Dokumenttyp. May be SqlInt32.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • iAktiv. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_Dokumenttyp_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sFA_Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFA_Dokumenttyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEDOKA_Dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEDOKA_Dokumenttyp)) + 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("@iaktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktiv)) + 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_edokaimport_FA_Dokumenttyp_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("clsFA_Dokumenttyp::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iEintragnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_Dokumenttyp_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iEintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr)) + 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_edokaimport_FA_Dokumenttyp_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("clsFA_Dokumenttyp::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iEintragnr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iEintragnr
    • + ' ///
  • iApplNr
    • + ' ///
  • sFA_Dokumenttyp
    • + ' ///
  • iEDOKA_Dokumenttyp
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
  • iAktiv
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_Dokumenttyp_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_Dokumenttyp") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iEintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr)) + 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_edokaimport_FA_Dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("Eintragnr"), Integer)) + If dtToReturn.Rows(0)("ApplNr") Is System.DBNull.Value Then + m_iApplNr = SqlInt32.Null + Else + m_iApplNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplNr"), Integer)) + End If + If dtToReturn.Rows(0)("FA_Dokumenttyp") Is System.DBNull.Value Then + m_sFA_Dokumenttyp = SqlString.Null + Else + m_sFA_Dokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("FA_Dokumenttyp"), String)) + End If + If dtToReturn.Rows(0)("EDOKA_Dokumenttyp") Is System.DBNull.Value Then + m_iEDOKA_Dokumenttyp = SqlInt32.Null + Else + m_iEDOKA_Dokumenttyp = New SqlInt32(CType(dtToReturn.Rows(0)("EDOKA_Dokumenttyp"), Integer)) + 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)("aktiv") Is System.DBNull.Value Then + m_iAktiv = SqlInt32.Null + Else + m_iAktiv = New SqlInt32(CType(dtToReturn.Rows(0)("aktiv"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsFA_Dokumenttyp::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_edokaimport_FA_Dokumenttyp_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("FA_Dokumenttyp") + 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_edokaimport_FA_Dokumenttyp_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("clsFA_Dokumenttyp::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 [iEintragnr]() As SqlInt32 + Get + Return m_iEintragnr + End Get + Set(ByVal Value As SqlInt32) + Dim iEintragnrTmp As SqlInt32 = Value + If iEintragnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL") + End If + m_iEintragnr = Value + End Set + End Property + + + Public Property [iApplNr]() As SqlInt32 + Get + Return m_iApplNr + End Get + Set(ByVal Value As SqlInt32) + m_iApplNr = Value + End Set + End Property + + + Public Property [sFA_Dokumenttyp]() As SqlString + Get + Return m_sFA_Dokumenttyp + End Get + Set(ByVal Value As SqlString) + m_sFA_Dokumenttyp = Value + End Set + End Property + + + Public Property [iEDOKA_Dokumenttyp]() As SqlInt32 + Get + Return m_iEDOKA_Dokumenttyp + End Get + Set(ByVal Value As SqlInt32) + m_iEDOKA_Dokumenttyp = 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 [iAktiv]() As SqlInt32 + Get + Return m_iAktiv + End Get + Set(ByVal Value As SqlInt32) + m_iAktiv = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsKey_tabelle.vb b/edkb08/Datenbank/clsKey_tabelle.vb new file mode 100644 index 0000000..47f4267 --- /dev/null +++ b/edkb08/Datenbank/clsKey_tabelle.vb @@ -0,0 +1,490 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'key_tabelle' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 7. Dezember 2002, 22:50:12 +' // Because the Base Class already implements IDispose, this class doesn't. +' /////////////////////////////////////////////////////////////////////////// +Imports System +Imports System.Data +Imports System.Data.SqlTypes +Imports System.Data.SqlClient + +Namespace edokadb + ' /// + ' /// Purpose: Data Access class for the table 'key_tabelle'. + ' /// + Public Class clsKey_tabelle + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daErstellt_am, m_daMutiert_am As SqlDateTime + Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32 + Private m_sBeschreibung As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iKeynr
    • + ' ///
  • sBeschreibung
    • + ' ///
  • iKey_wert
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iKeynr
    • + ' ///
  • sBeschreibung
    • + ' ///
  • iKey_wert
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iKeynr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iKeynr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iKeynr
    • + ' ///
  • sBeschreibung
    • + ' ///
  • iKey_wert
    • + ' ///
  • iMandantnr
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("key_tabelle") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer)) + m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String)) + m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer)) + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then + m_daMutiert_am = SqlDateTime.Null + Else + m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("key_tabelle") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + +#Region " Class Property Declarations " + + Public Property [iKeynr]() As SqlInt32 + Get + Return m_iKeynr + End Get + Set(ByVal Value As SqlInt32) + Dim iKeynrTmp As SqlInt32 = Value + If iKeynrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL") + End If + m_iKeynr = Value + End Set + End Property + + + Public Property [sBeschreibung]() As SqlString + Get + Return m_sBeschreibung + End Get + Set(ByVal Value As SqlString) + Dim sBeschreibungTmp As SqlString = Value + If sBeschreibungTmp.IsNull Then + Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL") + End If + m_sBeschreibung = Value + End Set + End Property + + + Public Property [iKey_wert]() As SqlInt32 + Get + Return m_iKey_wert + End Get + Set(ByVal Value As SqlInt32) + Dim iKey_wertTmp As SqlInt32 = Value + If iKey_wertTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL") + End If + m_iKey_wert = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsMehrfachscann.vb b/edkb08/Datenbank/clsMehrfachscann.vb new file mode 100644 index 0000000..d62b612 --- /dev/null +++ b/edkb08/Datenbank/clsMehrfachscann.vb @@ -0,0 +1,261 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'mehrfachscann' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 19. Juli 2006, 15:16:33 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'mehrfachscann'. + ' /// + Public Class clsMehrfachscann + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daStatusdatum, m_daMutiert_am, m_daErstellt_am, m_daMutationsdatum As SqlDateTime + Private m_iMutierer, m_iNreintrag, m_iStatus, m_iMandantnr As SqlInt32 + Private m_sDokumentid, m_sStapelnr, m_sColddokumentid As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNreintrag
    • + ' ///
  • daMutationsdatum
    • + ' ///
  • sColddokumentid. May be SqlString.Null
    • + ' ///
  • sStapelnr
    • + ' ///
  • iStatus
    • + ' ///
  • daStatusdatum
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + 'scmCmdToExecute.CommandText = "dbo.[pv_mehrfachscann_Insert]" + scmCmdToExecute.CommandText = "dbo.[pv_mehrfachscann_Insert_EDKB02]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@inreintrag", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNreintrag)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutationsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daMutationsdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sstapelnr", SqlDbType.VarChar, 20, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sStapelnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dastatusdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daStatusdatum)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@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 'pv_mehrfachscann_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("clsMehrfachscann::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + +#Region " Class Property Declarations " + + Public Property [iNreintrag]() As SqlInt32 + Get + Return m_iNreintrag + End Get + Set(ByVal Value As SqlInt32) + Dim iNreintragTmp As SqlInt32 = Value + If iNreintragTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iNreintrag", "iNreintrag can't be NULL") + End If + m_iNreintrag = Value + End Set + End Property + + + Public Property [daMutationsdatum]() As SqlDateTime + Get + Return m_daMutationsdatum + End Get + Set(ByVal Value As SqlDateTime) + Dim daMutationsdatumTmp As SqlDateTime = Value + If daMutationsdatumTmp.IsNull Then + Throw New ArgumentOutOfRangeException("daMutationsdatum", "daMutationsdatum can't be NULL") + End If + m_daMutationsdatum = Value + End Set + End Property + + + Public Property [sColddokumentid]() As SqlString + Get + Return m_sColddokumentid + End Get + Set(ByVal Value As SqlString) + m_sColddokumentid = Value + End Set + End Property + + + Public Property [sStapelnr]() As SqlString + Get + Return m_sStapelnr + End Get + Set(ByVal Value As SqlString) + Dim sStapelnrTmp As SqlString = Value + If sStapelnrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("sStapelnr", "sStapelnr can't be NULL") + End If + m_sStapelnr = Value + End Set + End Property + + + Public Property [iStatus]() As SqlInt32 + Get + Return m_iStatus + End Get + Set(ByVal Value As SqlInt32) + Dim iStatusTmp As SqlInt32 = Value + If iStatusTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iStatus", "iStatus can't be NULL") + End If + m_iStatus = Value + End Set + End Property + + + Public Property [daStatusdatum]() As SqlDateTime + Get + Return m_daStatusdatum + End Get + Set(ByVal Value As SqlDateTime) + Dim daStatusdatumTmp As SqlDateTime = Value + If daStatusdatumTmp.IsNull Then + Throw New ArgumentOutOfRangeException("daStatusdatum", "daStatusdatum can't be NULL") + End If + m_daStatusdatum = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + + + Public Property [sDokumentid]() As SqlString + Get + Return m_sDokumentid + End Get + Set(ByVal Value As SqlString) + m_sDokumentid = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsMitarbeiter.vb b/edkb08/Datenbank/clsMitarbeiter.vb new file mode 100644 index 0000000..3052d90 --- /dev/null +++ b/edkb08/Datenbank/clsMitarbeiter.vb @@ -0,0 +1,910 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'mitarbeiter' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 10. August 2003, 23:09: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 + ' /// + ' /// Purpose: Data Access class for the table 'mitarbeiter'. + ' /// + Public Class clsMitarbeiter + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean + Private m_daErstellt_am, m_daMutiert_am As SqlDateTime + Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 + Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iMitarbeiternr
    • + ' ///
  • sVorname. May be SqlString.Null
    • + ' ///
  • sName. May be SqlString.Null
    • + ' ///
  • sKurzzeichen. May be SqlString.Null
    • + ' ///
  • sAnrede. May be SqlString.Null
    • + ' ///
  • sTgnummer. May be SqlString.Null
    • + ' ///
  • sEmail. May be SqlString.Null
    • + ' ///
  • sFax. May be SqlString.Null
    • + ' ///
  • sTelefon. May be SqlString.Null
    • + ' ///
  • sUnterschrift_text. May be SqlString.Null
    • + ' ///
  • iFunktionnr. May be SqlInt32.Null
    • + ' ///
  • iSprache. May be SqlInt32.Null
    • + ' ///
  • iFuermandant
    • + ' ///
  • bShowtip
    • + ' ///
  • iPartnernr
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • bMailempfang. May be SqlBoolean.Null
    • + ' ///
  • bEdokaMesasge. May be SqlBoolean.Null
    • + ' ///
  • sFunktion. May be SqlString.Null
    • + ' ///
  • bMailDirektVersenden. May be SqlBoolean.Null
    • + ' ///
  • sRang. May be SqlString.Null
    • + ' ///
  • bMailDokumentrueckgang. May be SqlBoolean.Null
    • + ' ///
  • iKlassifizierung. May be SqlInt32.Null
    • + ' ///
  • bEdoka_mail. May be SqlBoolean.Null
    • + ' ///
  • bJournalisierung. May be SqlBoolean.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung)) + 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_mitarbeiter_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("clsMitarbeiter::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iMitarbeiternr
    • + ' ///
  • sVorname. May be SqlString.Null
    • + ' ///
  • sName. May be SqlString.Null
    • + ' ///
  • sKurzzeichen. May be SqlString.Null
    • + ' ///
  • sAnrede. May be SqlString.Null
    • + ' ///
  • sTgnummer. May be SqlString.Null
    • + ' ///
  • sEmail. May be SqlString.Null
    • + ' ///
  • sFax. May be SqlString.Null
    • + ' ///
  • sTelefon. May be SqlString.Null
    • + ' ///
  • sUnterschrift_text. May be SqlString.Null
    • + ' ///
  • iFunktionnr. May be SqlInt32.Null
    • + ' ///
  • iSprache. May be SqlInt32.Null
    • + ' ///
  • iFuermandant
    • + ' ///
  • bShowtip
    • + ' ///
  • iPartnernr
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • bMailempfang. May be SqlBoolean.Null
    • + ' ///
  • bEdokaMesasge. May be SqlBoolean.Null
    • + ' ///
  • sFunktion. May be SqlString.Null
    • + ' ///
  • bMailDirektVersenden. May be SqlBoolean.Null
    • + ' ///
  • sRang. May be SqlString.Null
    • + ' ///
  • bMailDokumentrueckgang. May be SqlBoolean.Null
    • + ' ///
  • iKlassifizierung. May be SqlInt32.Null
    • + ' ///
  • bEdoka_mail. May be SqlBoolean.Null
    • + ' ///
  • bJournalisierung. May be SqlBoolean.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung)) + 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_mitarbeiter_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("clsMitarbeiter::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iMitarbeiternr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + 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_mitarbeiter_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("clsMitarbeiter::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iMitarbeiternr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iMitarbeiternr
    • + ' ///
  • sVorname
    • + ' ///
  • sName
    • + ' ///
  • sKurzzeichen
    • + ' ///
  • sAnrede
    • + ' ///
  • sTgnummer
    • + ' ///
  • sEmail
    • + ' ///
  • sFax
    • + ' ///
  • sTelefon
    • + ' ///
  • sUnterschrift_text
    • + ' ///
  • iFunktionnr
    • + ' ///
  • iSprache
    • + ' ///
  • iFuermandant
    • + ' ///
  • bShowtip
    • + ' ///
  • iPartnernr
    • + ' ///
  • iMandantnr
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
  • bMailempfang
    • + ' ///
  • bEdokaMesasge
    • + ' ///
  • sFunktion
    • + ' ///
  • bMailDirektVersenden
    • + ' ///
  • sRang
    • + ' ///
  • bMailDokumentrueckgang
    • + ' ///
  • iKlassifizierung
    • + ' ///
  • bEdoka_mail
    • + ' ///
  • bJournalisierung
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("mitarbeiter") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) + 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_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer)) + If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then + m_sVorname = SqlString.Null + Else + m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String)) + End If + If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then + m_sName = SqlString.Null + Else + m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String)) + End If + If dtToReturn.Rows(0)("kurzzeichen") Is System.DBNull.Value Then + m_sKurzzeichen = SqlString.Null + Else + m_sKurzzeichen = New SqlString(CType(dtToReturn.Rows(0)("kurzzeichen"), String)) + End If + If dtToReturn.Rows(0)("anrede") Is System.DBNull.Value Then + m_sAnrede = SqlString.Null + Else + m_sAnrede = New SqlString(CType(dtToReturn.Rows(0)("anrede"), String)) + End If + If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then + m_sTgnummer = SqlString.Null + Else + m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String)) + End If + If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then + m_sEmail = SqlString.Null + Else + m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String)) + End If + If dtToReturn.Rows(0)("fax") Is System.DBNull.Value Then + m_sFax = SqlString.Null + Else + m_sFax = New SqlString(CType(dtToReturn.Rows(0)("fax"), String)) + End If + If dtToReturn.Rows(0)("telefon") Is System.DBNull.Value Then + m_sTelefon = SqlString.Null + Else + m_sTelefon = New SqlString(CType(dtToReturn.Rows(0)("telefon"), String)) + End If + If dtToReturn.Rows(0)("unterschrift_text") Is System.DBNull.Value Then + m_sUnterschrift_text = SqlString.Null + Else + m_sUnterschrift_text = New SqlString(CType(dtToReturn.Rows(0)("unterschrift_text"), String)) + End If + If dtToReturn.Rows(0)("funktionnr") Is System.DBNull.Value Then + m_iFunktionnr = SqlInt32.Null + Else + m_iFunktionnr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionnr"), Integer)) + End If + If dtToReturn.Rows(0)("sprache") Is System.DBNull.Value Then + m_iSprache = SqlInt32.Null + Else + m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer)) + End If + m_iFuermandant = New SqlInt32(CType(dtToReturn.Rows(0)("fuermandant"), Integer)) + m_bShowtip = New SqlBoolean(CType(dtToReturn.Rows(0)("showtip"), Boolean)) + m_iPartnernr = New SqlInt32(CType(dtToReturn.Rows(0)("partnernr"), Integer)) + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then + m_daMutiert_am = SqlDateTime.Null + Else + m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + If dtToReturn.Rows(0)("Mailempfang") Is System.DBNull.Value Then + m_bMailempfang = SqlBoolean.Null + Else + m_bMailempfang = New SqlBoolean(CType(dtToReturn.Rows(0)("Mailempfang"), Boolean)) + End If + If dtToReturn.Rows(0)("EdokaMesasge") Is System.DBNull.Value Then + m_bEdokaMesasge = SqlBoolean.Null + Else + m_bEdokaMesasge = New SqlBoolean(CType(dtToReturn.Rows(0)("EdokaMesasge"), Boolean)) + End If + If dtToReturn.Rows(0)("funktion") Is System.DBNull.Value Then + m_sFunktion = SqlString.Null + Else + m_sFunktion = New SqlString(CType(dtToReturn.Rows(0)("funktion"), String)) + End If + If dtToReturn.Rows(0)("MailDirektVersenden") Is System.DBNull.Value Then + m_bMailDirektVersenden = SqlBoolean.Null + Else + m_bMailDirektVersenden = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDirektVersenden"), Boolean)) + End If + If dtToReturn.Rows(0)("Rang") Is System.DBNull.Value Then + m_sRang = SqlString.Null + Else + m_sRang = New SqlString(CType(dtToReturn.Rows(0)("Rang"), String)) + End If + If dtToReturn.Rows(0)("MailDokumentrueckgang") Is System.DBNull.Value Then + m_bMailDokumentrueckgang = SqlBoolean.Null + Else + m_bMailDokumentrueckgang = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDokumentrueckgang"), Boolean)) + End If + If dtToReturn.Rows(0)("klassifizierung") Is System.DBNull.Value Then + m_iKlassifizierung = SqlInt32.Null + Else + m_iKlassifizierung = New SqlInt32(CType(dtToReturn.Rows(0)("klassifizierung"), Integer)) + End If + If dtToReturn.Rows(0)("edoka_mail") Is System.DBNull.Value Then + m_bEdoka_mail = SqlBoolean.Null + Else + m_bEdoka_mail = New SqlBoolean(CType(dtToReturn.Rows(0)("edoka_mail"), Boolean)) + End If + If dtToReturn.Rows(0)("journalisierung") Is System.DBNull.Value Then + m_bJournalisierung = SqlBoolean.Null + Else + m_bJournalisierung = New SqlBoolean(CType(dtToReturn.Rows(0)("journalisierung"), Boolean)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("mitarbeiter") + 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_mitarbeiter_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("clsMitarbeiter::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 [iMitarbeiternr]() As SqlInt32 + Get + Return m_iMitarbeiternr + End Get + Set(ByVal Value As SqlInt32) + Dim iMitarbeiternrTmp As SqlInt32 = Value + If iMitarbeiternrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL") + End If + m_iMitarbeiternr = Value + End Set + End Property + + + Public Property [sVorname]() As SqlString + Get + Return m_sVorname + End Get + Set(ByVal Value As SqlString) + m_sVorname = Value + End Set + End Property + + + Public Property [sName]() As SqlString + Get + Return m_sName + End Get + Set(ByVal Value As SqlString) + m_sName = Value + End Set + End Property + + + Public Property [sKurzzeichen]() As SqlString + Get + Return m_sKurzzeichen + End Get + Set(ByVal Value As SqlString) + m_sKurzzeichen = Value + End Set + End Property + + + Public Property [sAnrede]() As SqlString + Get + Return m_sAnrede + End Get + Set(ByVal Value As SqlString) + m_sAnrede = Value + End Set + End Property + + + Public Property [sTgnummer]() As SqlString + Get + Return m_sTgnummer + End Get + Set(ByVal Value As SqlString) + m_sTgnummer = Value + End Set + End Property + + + Public Property [sEmail]() As SqlString + Get + Return m_sEmail + End Get + Set(ByVal Value As SqlString) + m_sEmail = Value + End Set + End Property + + + Public Property [sFax]() As SqlString + Get + Return m_sFax + End Get + Set(ByVal Value As SqlString) + m_sFax = Value + End Set + End Property + + + Public Property [sTelefon]() As SqlString + Get + Return m_sTelefon + End Get + Set(ByVal Value As SqlString) + m_sTelefon = Value + End Set + End Property + + + Public Property [sUnterschrift_text]() As SqlString + Get + Return m_sUnterschrift_text + End Get + Set(ByVal Value As SqlString) + m_sUnterschrift_text = Value + End Set + End Property + + + Public Property [iFunktionnr]() As SqlInt32 + Get + Return m_iFunktionnr + End Get + Set(ByVal Value As SqlInt32) + m_iFunktionnr = Value + End Set + End Property + + + Public Property [iSprache]() As SqlInt32 + Get + Return m_iSprache + End Get + Set(ByVal Value As SqlInt32) + m_iSprache = Value + End Set + End Property + + + Public Property [iFuermandant]() As SqlInt32 + Get + Return m_iFuermandant + End Get + Set(ByVal Value As SqlInt32) + Dim iFuermandantTmp As SqlInt32 = Value + If iFuermandantTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iFuermandant", "iFuermandant can't be NULL") + End If + m_iFuermandant = Value + End Set + End Property + + + Public Property [bShowtip]() As SqlBoolean + Get + Return m_bShowtip + End Get + Set(ByVal Value As SqlBoolean) + Dim bShowtipTmp As SqlBoolean = Value + If bShowtipTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bShowtip", "bShowtip can't be NULL") + End If + m_bShowtip = Value + End Set + End Property + + + Public Property [iPartnernr]() As SqlInt32 + Get + Return m_iPartnernr + End Get + Set(ByVal Value As SqlInt32) + Dim iPartnernrTmp As SqlInt32 = Value + If iPartnernrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iPartnernr", "iPartnernr can't be NULL") + End If + m_iPartnernr = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + + + Public Property [bMailempfang]() As SqlBoolean + Get + Return m_bMailempfang + End Get + Set(ByVal Value As SqlBoolean) + m_bMailempfang = Value + End Set + End Property + + + Public Property [bEdokaMesasge]() As SqlBoolean + Get + Return m_bEdokaMesasge + End Get + Set(ByVal Value As SqlBoolean) + m_bEdokaMesasge = Value + End Set + End Property + + + Public Property [sFunktion]() As SqlString + Get + Return m_sFunktion + End Get + Set(ByVal Value As SqlString) + m_sFunktion = Value + End Set + End Property + + + Public Property [bMailDirektVersenden]() As SqlBoolean + Get + Return m_bMailDirektVersenden + End Get + Set(ByVal Value As SqlBoolean) + m_bMailDirektVersenden = Value + End Set + End Property + + + Public Property [sRang]() As SqlString + Get + Return m_sRang + End Get + Set(ByVal Value As SqlString) + m_sRang = Value + End Set + End Property + + + Public Property [bMailDokumentrueckgang]() As SqlBoolean + Get + Return m_bMailDokumentrueckgang + End Get + Set(ByVal Value As SqlBoolean) + m_bMailDokumentrueckgang = Value + End Set + End Property + + + Public Property [iKlassifizierung]() As SqlInt32 + Get + Return m_iKlassifizierung + End Get + Set(ByVal Value As SqlInt32) + m_iKlassifizierung = Value + End Set + End Property + + + Public Property [bEdoka_mail]() As SqlBoolean + Get + Return m_bEdoka_mail + End Get + Set(ByVal Value As SqlBoolean) + m_bEdoka_mail = Value + End Set + End Property + + + Public Property [bJournalisierung]() As SqlBoolean + Get + Return m_bJournalisierung + End Get + Set(ByVal Value As SqlBoolean) + m_bJournalisierung = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsMyKey_Tabelle.vb b/edkb08/Datenbank/clsMyKey_Tabelle.vb new file mode 100644 index 0000000..329444a --- /dev/null +++ b/edkb08/Datenbank/clsMyKey_Tabelle.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.Data +Imports System.Data.SqlTypes +Imports System.Data.SqlClient +Namespace edokadb + Public Class clsMyKey_Tabelle + Inherits edokadb.clsKey_tabelle + + Public Function get_dbkey(ByVal Tablename As String) As Long + Dim m_dbkey As Long + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + Try + scmCmdToExecute.Connection.Open() + Catch ex As Exception + Finally + End Try + + scmCmdToExecute.ExecuteNonQuery() + m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + scmCmdToExecute.Connection.Close() + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return m_dbkey + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsMyMitarbeiter.vb b/edkb08/Datenbank/clsMyMitarbeiter.vb new file mode 100644 index 0000000..83a0d0b --- /dev/null +++ b/edkb08/Datenbank/clsMyMitarbeiter.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.Data +Imports System.Data.SqlTypes +Imports System.Data.SqlClient +Imports System.Security.Principal + + +Namespace edokadb + Public Class clsMyMitarbeiter + Inherits edokaDB.clsMitarbeiter + +#Region "Deklarationen" + Private m_xtgnummer As String + + Property xtgnummer() As String + Get + Return m_xtgnummer + End Get + Set(ByVal Value As String) + m_xtgnummer = Value + End Set + End Property +#End Region + + Public Function SelectWithTGNummer() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[sp_mitarbeiter_SelectWithTGNummer]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable("mitarbeiter") + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + Try + + scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_xtgnummer)) + + 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_mitarbeiter_SelectAllWithTGNummer' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + Return dtToReturn + Catch ex As Exception + MsgBox(ex.Message) + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + End Class +End Namespace + diff --git a/edkb08/Datenbank/clsPartner.vb b/edkb08/Datenbank/clsPartner.vb new file mode 100644 index 0000000..bf5b336 --- /dev/null +++ b/edkb08/Datenbank/clsPartner.vb @@ -0,0 +1,1150 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'Partner' +' // Generated by LLBLGen v1.21.2003.712 Final on: Mittwoch, 27. Oktober 2010, 14:07:35 +' // 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 + ''' + ''' Purpose: Data Access class for the table 'Partner'. + ''' + Public Class clsPartner + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bCDVSA00, m_bSaldiert As SqlBoolean + Private m_daValidto As SqlDateTime + Private m_iNRPAR00, m_iNRFOG012, m_iAZEPL00 As SqlInt32 + Private m_sTXADZ031, m_sTXADZ041, m_sTXADZ061, m_sTXADZ051, m_sBEBAN21, m_sNRFOG21, m_sTXADZ021, m_sTXADZ011, m_sVDMUTER, m_sTSMUT00, m_sIDMSG00, m_sTXRes00, m_sCDBAL00, m_sTXADZ071, m_sSAVRS00, m_sCDVIG00, m_sNRFOG022, m_sBEBAN012, m_sTXADZ012, m_sBEBAN022, m_sBKPAR00, m_sZTMSG00, m_sDMMSG00, m_sCDBNK00, m_sBEPGM00, m_sTXADZ022, m_sNRADR00, m_sNRPARAD, m_sBEBAN011, m_sNRFOG011, m_sTXADZ072, m_sTXADZ042, m_sTXADZ032, m_sTXADZ062, m_sTXADZ052 As SqlString + +#End Region + + + ''' + ''' Purpose: Class constructor. + ''' + Public Sub New() + ' // Nothing for now. + End Sub + + + ''' + ''' Purpose: Insert method. This method will insert one new row into the database. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • sIDMSG00. May be SqlString.Null
    • + '''
  • sDMMSG00. May be SqlString.Null
    • + '''
  • sZTMSG00. May be SqlString.Null
    • + '''
  • sBEPGM00. May be SqlString.Null
    • + '''
  • sCDBNK00. May be SqlString.Null
    • + '''
  • iNRPAR00
    • + '''
  • sBKPAR00. May be SqlString.Null
    • + '''
  • iNRFOG012. May be SqlInt32.Null
    • + '''
  • sBEBAN012. May be SqlString.Null
    • + '''
  • sNRFOG022. May be SqlString.Null
    • + '''
  • sBEBAN022. May be SqlString.Null
    • + '''
  • sTXADZ012. May be SqlString.Null
    • + '''
  • sTXADZ022. May be SqlString.Null
    • + '''
  • sTXADZ032. May be SqlString.Null
    • + '''
  • sTXADZ042. May be SqlString.Null
    • + '''
  • sTXADZ052. May be SqlString.Null
    • + '''
  • sTXADZ062. May be SqlString.Null
    • + '''
  • sTXADZ072. May be SqlString.Null
    • + '''
  • sNRPARAD. May be SqlString.Null
    • + '''
  • sNRADR00. May be SqlString.Null
    • + '''
  • sNRFOG011. May be SqlString.Null
    • + '''
  • sBEBAN011. May be SqlString.Null
    • + '''
  • sNRFOG21. May be SqlString.Null
    • + '''
  • sBEBAN21. May be SqlString.Null
    • + '''
  • sTXADZ011. May be SqlString.Null
    • + '''
  • sTXADZ021. May be SqlString.Null
    • + '''
  • sTXADZ031. May be SqlString.Null
    • + '''
  • sTXADZ041. May be SqlString.Null
    • + '''
  • sTXADZ051. May be SqlString.Null
    • + '''
  • sTXADZ061. May be SqlString.Null
    • + '''
  • sTXADZ071. May be SqlString.Null
    • + '''
  • sCDBAL00. May be SqlString.Null
    • + '''
  • sCDVIG00. May be SqlString.Null
    • + '''
  • sSAVRS00. May be SqlString.Null
    • + '''
  • sTSMUT00. May be SqlString.Null
    • + '''
  • sVDMUTER. May be SqlString.Null
    • + '''
  • sTXRes00. May be SqlString.Null
    • + '''
  • bSaldiert
    • + '''
  • iAZEPL00. May be SqlInt32.Null
    • + '''
  • bCDVSA00
    • + '''
  • daValidto. May be SqlDateTime.Null
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@davalidto", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daValidto)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_Partner_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("clsPartner::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Update method. This method will Update one existing row in the database. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • sIDMSG00. May be SqlString.Null
    • + '''
  • sDMMSG00. May be SqlString.Null
    • + '''
  • sZTMSG00. May be SqlString.Null
    • + '''
  • sBEPGM00. May be SqlString.Null
    • + '''
  • sCDBNK00. May be SqlString.Null
    • + '''
  • iNRPAR00
    • + '''
  • sBKPAR00. May be SqlString.Null
    • + '''
  • iNRFOG012. May be SqlInt32.Null
    • + '''
  • sBEBAN012. May be SqlString.Null
    • + '''
  • sNRFOG022. May be SqlString.Null
    • + '''
  • sBEBAN022. May be SqlString.Null
    • + '''
  • sTXADZ012. May be SqlString.Null
    • + '''
  • sTXADZ022. May be SqlString.Null
    • + '''
  • sTXADZ032. May be SqlString.Null
    • + '''
  • sTXADZ042. May be SqlString.Null
    • + '''
  • sTXADZ052. May be SqlString.Null
    • + '''
  • sTXADZ062. May be SqlString.Null
    • + '''
  • sTXADZ072. May be SqlString.Null
    • + '''
  • sNRPARAD. May be SqlString.Null
    • + '''
  • sNRADR00. May be SqlString.Null
    • + '''
  • sNRFOG011. May be SqlString.Null
    • + '''
  • sBEBAN011. May be SqlString.Null
    • + '''
  • sNRFOG21. May be SqlString.Null
    • + '''
  • sBEBAN21. May be SqlString.Null
    • + '''
  • sTXADZ011. May be SqlString.Null
    • + '''
  • sTXADZ021. May be SqlString.Null
    • + '''
  • sTXADZ031. May be SqlString.Null
    • + '''
  • sTXADZ041. May be SqlString.Null
    • + '''
  • sTXADZ051. May be SqlString.Null
    • + '''
  • sTXADZ061. May be SqlString.Null
    • + '''
  • sTXADZ071. May be SqlString.Null
    • + '''
  • sCDBAL00. May be SqlString.Null
    • + '''
  • sCDVIG00. May be SqlString.Null
    • + '''
  • sSAVRS00. May be SqlString.Null
    • + '''
  • sTSMUT00. May be SqlString.Null
    • + '''
  • sVDMUTER. May be SqlString.Null
    • + '''
  • sTXRes00. May be SqlString.Null
    • + '''
  • bSaldiert
    • + '''
  • iAZEPL00. May be SqlInt32.Null
    • + '''
  • bCDVSA00
    • + '''
  • daValidto. May be SqlDateTime.Null
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@davalidto", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daValidto)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_Partner_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("clsPartner::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ''' + ''' True if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • iNRPAR00
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_Partner_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("clsPartner::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ''' + ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ''' + ''' DataTable object if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties needed for this method: + '''
    + '''
  • iNRPAR00
    • + '''
+ ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
  • sIDMSG00
    • + '''
  • sDMMSG00
    • + '''
  • sZTMSG00
    • + '''
  • sBEPGM00
    • + '''
  • sCDBNK00
    • + '''
  • iNRPAR00
    • + '''
  • sBKPAR00
    • + '''
  • iNRFOG012
    • + '''
  • sBEBAN012
    • + '''
  • sNRFOG022
    • + '''
  • sBEBAN022
    • + '''
  • sTXADZ012
    • + '''
  • sTXADZ022
    • + '''
  • sTXADZ032
    • + '''
  • sTXADZ042
    • + '''
  • sTXADZ052
    • + '''
  • sTXADZ062
    • + '''
  • sTXADZ072
    • + '''
  • sNRPARAD
    • + '''
  • sNRADR00
    • + '''
  • sNRFOG011
    • + '''
  • sBEBAN011
    • + '''
  • sNRFOG21
    • + '''
  • sBEBAN21
    • + '''
  • sTXADZ011
    • + '''
  • sTXADZ021
    • + '''
  • sTXADZ031
    • + '''
  • sTXADZ041
    • + '''
  • sTXADZ051
    • + '''
  • sTXADZ061
    • + '''
  • sTXADZ071
    • + '''
  • sCDBAL00
    • + '''
  • sCDVIG00
    • + '''
  • sSAVRS00
    • + '''
  • sTSMUT00
    • + '''
  • sVDMUTER
    • + '''
  • sTXRes00
    • + '''
  • bSaldiert
    • + '''
  • iAZEPL00
    • + '''
  • bCDVSA00
    • + '''
  • daValidto
    • + '''
+ ''' Will fill all properties corresponding with a field in the table with the value of the row selected. + ''' + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Partner") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_Partner_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + If dtToReturn.Rows(0)("IDMSG00") Is System.DBNull.Value Then + m_sIDMSG00 = SqlString.Null + Else + m_sIDMSG00 = New SqlString(CType(dtToReturn.Rows(0)("IDMSG00"), String)) + End If + If dtToReturn.Rows(0)("DMMSG00") Is System.DBNull.Value Then + m_sDMMSG00 = SqlString.Null + Else + m_sDMMSG00 = New SqlString(CType(dtToReturn.Rows(0)("DMMSG00"), String)) + End If + If dtToReturn.Rows(0)("ZTMSG00") Is System.DBNull.Value Then + m_sZTMSG00 = SqlString.Null + Else + m_sZTMSG00 = New SqlString(CType(dtToReturn.Rows(0)("ZTMSG00"), String)) + End If + If dtToReturn.Rows(0)("BEPGM00") Is System.DBNull.Value Then + m_sBEPGM00 = SqlString.Null + Else + m_sBEPGM00 = New SqlString(CType(dtToReturn.Rows(0)("BEPGM00"), String)) + End If + If dtToReturn.Rows(0)("CDBNK00") Is System.DBNull.Value Then + m_sCDBNK00 = SqlString.Null + Else + m_sCDBNK00 = New SqlString(CType(dtToReturn.Rows(0)("CDBNK00"), String)) + End If + m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer)) + If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then + m_sBKPAR00 = SqlString.Null + Else + m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String)) + End If + If dtToReturn.Rows(0)("NRFOG012") Is System.DBNull.Value Then + m_iNRFOG012 = SqlInt32.Null + Else + m_iNRFOG012 = New SqlInt32(CType(dtToReturn.Rows(0)("NRFOG012"), Integer)) + End If + If dtToReturn.Rows(0)("BEBAN012") Is System.DBNull.Value Then + m_sBEBAN012 = SqlString.Null + Else + m_sBEBAN012 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN012"), String)) + End If + If dtToReturn.Rows(0)("NRFOG022") Is System.DBNull.Value Then + m_sNRFOG022 = SqlString.Null + Else + m_sNRFOG022 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG022"), String)) + End If + If dtToReturn.Rows(0)("BEBAN022") Is System.DBNull.Value Then + m_sBEBAN022 = SqlString.Null + Else + m_sBEBAN022 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN022"), String)) + End If + If dtToReturn.Rows(0)("TXADZ012") Is System.DBNull.Value Then + m_sTXADZ012 = SqlString.Null + Else + m_sTXADZ012 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ012"), String)) + End If + If dtToReturn.Rows(0)("TXADZ022") Is System.DBNull.Value Then + m_sTXADZ022 = SqlString.Null + Else + m_sTXADZ022 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ022"), String)) + End If + If dtToReturn.Rows(0)("TXADZ032") Is System.DBNull.Value Then + m_sTXADZ032 = SqlString.Null + Else + m_sTXADZ032 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ032"), String)) + End If + If dtToReturn.Rows(0)("TXADZ042") Is System.DBNull.Value Then + m_sTXADZ042 = SqlString.Null + Else + m_sTXADZ042 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ042"), String)) + End If + If dtToReturn.Rows(0)("TXADZ052") Is System.DBNull.Value Then + m_sTXADZ052 = SqlString.Null + Else + m_sTXADZ052 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ052"), String)) + End If + If dtToReturn.Rows(0)("TXADZ062") Is System.DBNull.Value Then + m_sTXADZ062 = SqlString.Null + Else + m_sTXADZ062 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ062"), String)) + End If + If dtToReturn.Rows(0)("TXADZ072") Is System.DBNull.Value Then + m_sTXADZ072 = SqlString.Null + Else + m_sTXADZ072 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ072"), String)) + End If + If dtToReturn.Rows(0)("NRPARAD") Is System.DBNull.Value Then + m_sNRPARAD = SqlString.Null + Else + m_sNRPARAD = New SqlString(CType(dtToReturn.Rows(0)("NRPARAD"), String)) + End If + If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then + m_sNRADR00 = SqlString.Null + Else + m_sNRADR00 = New SqlString(CType(dtToReturn.Rows(0)("NRADR00"), String)) + End If + If dtToReturn.Rows(0)("NRFOG011") Is System.DBNull.Value Then + m_sNRFOG011 = SqlString.Null + Else + m_sNRFOG011 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG011"), String)) + End If + If dtToReturn.Rows(0)("BEBAN011") Is System.DBNull.Value Then + m_sBEBAN011 = SqlString.Null + Else + m_sBEBAN011 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN011"), String)) + End If + If dtToReturn.Rows(0)("NRFOG21") Is System.DBNull.Value Then + m_sNRFOG21 = SqlString.Null + Else + m_sNRFOG21 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG21"), String)) + End If + If dtToReturn.Rows(0)("BEBAN21") Is System.DBNull.Value Then + m_sBEBAN21 = SqlString.Null + Else + m_sBEBAN21 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN21"), String)) + End If + If dtToReturn.Rows(0)("TXADZ011") Is System.DBNull.Value Then + m_sTXADZ011 = SqlString.Null + Else + m_sTXADZ011 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ011"), String)) + End If + If dtToReturn.Rows(0)("TXADZ021") Is System.DBNull.Value Then + m_sTXADZ021 = SqlString.Null + Else + m_sTXADZ021 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ021"), String)) + End If + If dtToReturn.Rows(0)("TXADZ031") Is System.DBNull.Value Then + m_sTXADZ031 = SqlString.Null + Else + m_sTXADZ031 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ031"), String)) + End If + If dtToReturn.Rows(0)("TXADZ041") Is System.DBNull.Value Then + m_sTXADZ041 = SqlString.Null + Else + m_sTXADZ041 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ041"), String)) + End If + If dtToReturn.Rows(0)("TXADZ051") Is System.DBNull.Value Then + m_sTXADZ051 = SqlString.Null + Else + m_sTXADZ051 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ051"), String)) + End If + If dtToReturn.Rows(0)("TXADZ061") Is System.DBNull.Value Then + m_sTXADZ061 = SqlString.Null + Else + m_sTXADZ061 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ061"), String)) + End If + If dtToReturn.Rows(0)("TXADZ071") Is System.DBNull.Value Then + m_sTXADZ071 = SqlString.Null + Else + m_sTXADZ071 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ071"), String)) + End If + If dtToReturn.Rows(0)("CDBAL00") Is System.DBNull.Value Then + m_sCDBAL00 = SqlString.Null + Else + m_sCDBAL00 = New SqlString(CType(dtToReturn.Rows(0)("CDBAL00"), String)) + End If + If dtToReturn.Rows(0)("CDVIG00") Is System.DBNull.Value Then + m_sCDVIG00 = SqlString.Null + Else + m_sCDVIG00 = New SqlString(CType(dtToReturn.Rows(0)("CDVIG00"), String)) + End If + If dtToReturn.Rows(0)("SAVRS00") Is System.DBNull.Value Then + m_sSAVRS00 = SqlString.Null + Else + m_sSAVRS00 = New SqlString(CType(dtToReturn.Rows(0)("SAVRS00"), String)) + End If + If dtToReturn.Rows(0)("TSMUT00") Is System.DBNull.Value Then + m_sTSMUT00 = SqlString.Null + Else + m_sTSMUT00 = New SqlString(CType(dtToReturn.Rows(0)("TSMUT00"), String)) + End If + If dtToReturn.Rows(0)("VDMUTER") Is System.DBNull.Value Then + m_sVDMUTER = SqlString.Null + Else + m_sVDMUTER = New SqlString(CType(dtToReturn.Rows(0)("VDMUTER"), String)) + End If + If dtToReturn.Rows(0)("TXRes00") Is System.DBNull.Value Then + m_sTXRes00 = SqlString.Null + Else + m_sTXRes00 = New SqlString(CType(dtToReturn.Rows(0)("TXRes00"), String)) + End If + m_bSaldiert = New SqlBoolean(CType(dtToReturn.Rows(0)("Saldiert"), Boolean)) + If dtToReturn.Rows(0)("AZEPL00") Is System.DBNull.Value Then + m_iAZEPL00 = SqlInt32.Null + Else + m_iAZEPL00 = New SqlInt32(CType(dtToReturn.Rows(0)("AZEPL00"), Integer)) + End If + m_bCDVSA00 = New SqlBoolean(CType(dtToReturn.Rows(0)("CDVSA00"), Boolean)) + If dtToReturn.Rows(0)("validto") Is System.DBNull.Value Then + m_daValidto = SqlDateTime.Null + Else + m_daValidto = New SqlDateTime(CType(dtToReturn.Rows(0)("validto"), 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("clsPartner::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ''' + ''' Purpose: SelectAll method. This method will Select all rows from the table. + ''' + ''' DataTable object if succeeded, otherwise an Exception is thrown. + ''' + ''' Properties set after a succesful call of this method: + '''
    + '''
  • iErrorCode
    • + '''
+ ''' + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("Partner") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_Partner_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("clsPartner::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 [sIDMSG00]() As SqlString + Get + Return m_sIDMSG00 + End Get + Set(ByVal Value As SqlString) + m_sIDMSG00 = Value + End Set + End Property + + + Public Property [sDMMSG00]() As SqlString + Get + Return m_sDMMSG00 + End Get + Set(ByVal Value As SqlString) + m_sDMMSG00 = Value + End Set + End Property + + + Public Property [sZTMSG00]() As SqlString + Get + Return m_sZTMSG00 + End Get + Set(ByVal Value As SqlString) + m_sZTMSG00 = Value + End Set + End Property + + + Public Property [sBEPGM00]() As SqlString + Get + Return m_sBEPGM00 + End Get + Set(ByVal Value As SqlString) + m_sBEPGM00 = Value + End Set + End Property + + + Public Property [sCDBNK00]() As SqlString + Get + Return m_sCDBNK00 + End Get + Set(ByVal Value As SqlString) + m_sCDBNK00 = Value + End Set + End Property + + + Public Property [iNRPAR00]() As SqlInt32 + Get + Return m_iNRPAR00 + End Get + Set(ByVal Value As SqlInt32) + Dim iNRPAR00Tmp As SqlInt32 = Value + If iNRPAR00Tmp.IsNull Then + Throw New ArgumentOutOfRangeException("iNRPAR00", "iNRPAR00 can't be NULL") + End If + m_iNRPAR00 = Value + End Set + End Property + + + Public Property [sBKPAR00]() As SqlString + Get + Return m_sBKPAR00 + End Get + Set(ByVal Value As SqlString) + m_sBKPAR00 = Value + End Set + End Property + + + Public Property [iNRFOG012]() As SqlInt32 + Get + Return m_iNRFOG012 + End Get + Set(ByVal Value As SqlInt32) + m_iNRFOG012 = Value + End Set + End Property + + + Public Property [sBEBAN012]() As SqlString + Get + Return m_sBEBAN012 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN012 = Value + End Set + End Property + + + Public Property [sNRFOG022]() As SqlString + Get + Return m_sNRFOG022 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG022 = Value + End Set + End Property + + + Public Property [sBEBAN022]() As SqlString + Get + Return m_sBEBAN022 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN022 = Value + End Set + End Property + + + Public Property [sTXADZ012]() As SqlString + Get + Return m_sTXADZ012 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ012 = Value + End Set + End Property + + + Public Property [sTXADZ022]() As SqlString + Get + Return m_sTXADZ022 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ022 = Value + End Set + End Property + + + Public Property [sTXADZ032]() As SqlString + Get + Return m_sTXADZ032 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ032 = Value + End Set + End Property + + + Public Property [sTXADZ042]() As SqlString + Get + Return m_sTXADZ042 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ042 = Value + End Set + End Property + + + Public Property [sTXADZ052]() As SqlString + Get + Return m_sTXADZ052 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ052 = Value + End Set + End Property + + + Public Property [sTXADZ062]() As SqlString + Get + Return m_sTXADZ062 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ062 = Value + End Set + End Property + + + Public Property [sTXADZ072]() As SqlString + Get + Return m_sTXADZ072 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ072 = Value + End Set + End Property + + + Public Property [sNRPARAD]() As SqlString + Get + Return m_sNRPARAD + End Get + Set(ByVal Value As SqlString) + m_sNRPARAD = Value + End Set + End Property + + + Public Property [sNRADR00]() As SqlString + Get + Return m_sNRADR00 + End Get + Set(ByVal Value As SqlString) + m_sNRADR00 = Value + End Set + End Property + + + Public Property [sNRFOG011]() As SqlString + Get + Return m_sNRFOG011 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG011 = Value + End Set + End Property + + + Public Property [sBEBAN011]() As SqlString + Get + Return m_sBEBAN011 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN011 = Value + End Set + End Property + + + Public Property [sNRFOG21]() As SqlString + Get + Return m_sNRFOG21 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG21 = Value + End Set + End Property + + + Public Property [sBEBAN21]() As SqlString + Get + Return m_sBEBAN21 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN21 = Value + End Set + End Property + + + Public Property [sTXADZ011]() As SqlString + Get + Return m_sTXADZ011 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ011 = Value + End Set + End Property + + + Public Property [sTXADZ021]() As SqlString + Get + Return m_sTXADZ021 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ021 = Value + End Set + End Property + + + Public Property [sTXADZ031]() As SqlString + Get + Return m_sTXADZ031 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ031 = Value + End Set + End Property + + + Public Property [sTXADZ041]() As SqlString + Get + Return m_sTXADZ041 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ041 = Value + End Set + End Property + + + Public Property [sTXADZ051]() As SqlString + Get + Return m_sTXADZ051 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ051 = Value + End Set + End Property + + + Public Property [sTXADZ061]() As SqlString + Get + Return m_sTXADZ061 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ061 = Value + End Set + End Property + + + Public Property [sTXADZ071]() As SqlString + Get + Return m_sTXADZ071 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ071 = Value + End Set + End Property + + + Public Property [sCDBAL00]() As SqlString + Get + Return m_sCDBAL00 + End Get + Set(ByVal Value As SqlString) + m_sCDBAL00 = Value + End Set + End Property + + + Public Property [sCDVIG00]() As SqlString + Get + Return m_sCDVIG00 + End Get + Set(ByVal Value As SqlString) + m_sCDVIG00 = Value + End Set + End Property + + + Public Property [sSAVRS00]() As SqlString + Get + Return m_sSAVRS00 + End Get + Set(ByVal Value As SqlString) + m_sSAVRS00 = Value + End Set + End Property + + + Public Property [sTSMUT00]() As SqlString + Get + Return m_sTSMUT00 + End Get + Set(ByVal Value As SqlString) + m_sTSMUT00 = Value + End Set + End Property + + + Public Property [sVDMUTER]() As SqlString + Get + Return m_sVDMUTER + End Get + Set(ByVal Value As SqlString) + m_sVDMUTER = Value + End Set + End Property + + + Public Property [sTXRes00]() As SqlString + Get + Return m_sTXRes00 + End Get + Set(ByVal Value As SqlString) + m_sTXRes00 = Value + End Set + End Property + + + Public Property [bSaldiert]() As SqlBoolean + Get + Return m_bSaldiert + End Get + Set(ByVal Value As SqlBoolean) + Dim bSaldiertTmp As SqlBoolean = Value + If bSaldiertTmp.IsNull Then + Throw New ArgumentOutOfRangeException("bSaldiert", "bSaldiert can't be NULL") + End If + m_bSaldiert = Value + End Set + End Property + + + Public Property [iAZEPL00]() As SqlInt32 + Get + Return m_iAZEPL00 + End Get + Set(ByVal Value As SqlInt32) + m_iAZEPL00 = Value + End Set + End Property + + + Public Property [bCDVSA00]() As SqlBoolean + Get + Return m_bCDVSA00 + End Get + Set(ByVal Value As SqlBoolean) + Dim bCDVSA00Tmp As SqlBoolean = Value + If bCDVSA00Tmp.IsNull Then + Throw New ArgumentOutOfRangeException("bCDVSA00", "bCDVSA00 can't be NULL") + End If + m_bCDVSA00 = Value + End Set + End Property + + + Public Property [daValidto]() As SqlDateTime + Get + Return m_daValidto + End Get + Set(ByVal Value As SqlDateTime) + m_daValidto = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsPartner_sik.vb b/edkb08/Datenbank/clsPartner_sik.vb new file mode 100644 index 0000000..f04fdaa --- /dev/null +++ b/edkb08/Datenbank/clsPartner_sik.vb @@ -0,0 +1,1121 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'Partner' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 9. Februar 2003, 12:18:53 +' // 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 + ' /// + ' /// Purpose: Data Access class for the table 'Partner'. + ' /// + Public Class clsPartner_sik + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bSaldiert, m_bCDVSA00 As SqlBoolean + Private m_iNRFOG012, m_iNRPAR00, m_iAZEPL00 As SqlInt32 + Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sIDMSG00. May be SqlString.Null
    • + ' ///
  • sDMMSG00. May be SqlString.Null
    • + ' ///
  • sZTMSG00. May be SqlString.Null
    • + ' ///
  • sBEPGM00. May be SqlString.Null
    • + ' ///
  • sCDBNK00. May be SqlString.Null
    • + ' ///
  • iNRPAR00
    • + ' ///
  • sBKPAR00. May be SqlString.Null
    • + ' ///
  • iNRFOG012. May be SqlInt32.Null
    • + ' ///
  • sBEBAN012. May be SqlString.Null
    • + ' ///
  • sNRFOG022. May be SqlString.Null
    • + ' ///
  • sBEBAN022. May be SqlString.Null
    • + ' ///
  • sTXADZ012. May be SqlString.Null
    • + ' ///
  • sTXADZ022. May be SqlString.Null
    • + ' ///
  • sTXADZ032. May be SqlString.Null
    • + ' ///
  • sTXADZ042. May be SqlString.Null
    • + ' ///
  • sTXADZ052. May be SqlString.Null
    • + ' ///
  • sTXADZ062. May be SqlString.Null
    • + ' ///
  • sTXADZ072. May be SqlString.Null
    • + ' ///
  • sNRPARAD. May be SqlString.Null
    • + ' ///
  • sNRADR00. May be SqlString.Null
    • + ' ///
  • sNRFOG011. May be SqlString.Null
    • + ' ///
  • sBEBAN011. May be SqlString.Null
    • + ' ///
  • sNRFOG21. May be SqlString.Null
    • + ' ///
  • sBEBAN21. May be SqlString.Null
    • + ' ///
  • sTXADZ011. May be SqlString.Null
    • + ' ///
  • sTXADZ021. May be SqlString.Null
    • + ' ///
  • sTXADZ031. May be SqlString.Null
    • + ' ///
  • sTXADZ041. May be SqlString.Null
    • + ' ///
  • sTXADZ051. May be SqlString.Null
    • + ' ///
  • sTXADZ061. May be SqlString.Null
    • + ' ///
  • sTXADZ071. May be SqlString.Null
    • + ' ///
  • sCDBAL00. May be SqlString.Null
    • + ' ///
  • sCDVIG00. May be SqlString.Null
    • + ' ///
  • sSAVRS00. May be SqlString.Null
    • + ' ///
  • sTSMUT00. May be SqlString.Null
    • + ' ///
  • sVDMUTER. May be SqlString.Null
    • + ' ///
  • sTXRes00. May be SqlString.Null
    • + ' ///
  • bSaldiert
    • + ' ///
  • iAZEPL00. May be SqlInt32.Null
    • + ' ///
  • bCDVSA00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 53, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bSaldiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) + 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_Partner_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("clsPartner::Insert::Error occured." + ex.Message, ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • sIDMSG00. May be SqlString.Null
    • + ' ///
  • sDMMSG00. May be SqlString.Null
    • + ' ///
  • sZTMSG00. May be SqlString.Null
    • + ' ///
  • sBEPGM00. May be SqlString.Null
    • + ' ///
  • sCDBNK00. May be SqlString.Null
    • + ' ///
  • iNRPAR00
    • + ' ///
  • sBKPAR00. May be SqlString.Null
    • + ' ///
  • iNRFOG012. May be SqlInt32.Null
    • + ' ///
  • sBEBAN012. May be SqlString.Null
    • + ' ///
  • sNRFOG022. May be SqlString.Null
    • + ' ///
  • sBEBAN022. May be SqlString.Null
    • + ' ///
  • sTXADZ012. May be SqlString.Null
    • + ' ///
  • sTXADZ022. May be SqlString.Null
    • + ' ///
  • sTXADZ032. May be SqlString.Null
    • + ' ///
  • sTXADZ042. May be SqlString.Null
    • + ' ///
  • sTXADZ052. May be SqlString.Null
    • + ' ///
  • sTXADZ062. May be SqlString.Null
    • + ' ///
  • sTXADZ072. May be SqlString.Null
    • + ' ///
  • sNRPARAD. May be SqlString.Null
    • + ' ///
  • sNRADR00. May be SqlString.Null
    • + ' ///
  • sNRFOG011. May be SqlString.Null
    • + ' ///
  • sBEBAN011. May be SqlString.Null
    • + ' ///
  • sNRFOG21. May be SqlString.Null
    • + ' ///
  • sBEBAN21. May be SqlString.Null
    • + ' ///
  • sTXADZ011. May be SqlString.Null
    • + ' ///
  • sTXADZ021. May be SqlString.Null
    • + ' ///
  • sTXADZ031. May be SqlString.Null
    • + ' ///
  • sTXADZ041. May be SqlString.Null
    • + ' ///
  • sTXADZ051. May be SqlString.Null
    • + ' ///
  • sTXADZ061. May be SqlString.Null
    • + ' ///
  • sTXADZ071. May be SqlString.Null
    • + ' ///
  • sCDBAL00. May be SqlString.Null
    • + ' ///
  • sCDVIG00. May be SqlString.Null
    • + ' ///
  • sSAVRS00. May be SqlString.Null
    • + ' ///
  • sTSMUT00. May be SqlString.Null
    • + ' ///
  • sVDMUTER. May be SqlString.Null
    • + ' ///
  • sTXRes00. May be SqlString.Null
    • + ' ///
  • bSaldiert
    • + ' ///
  • iAZEPL00. May be SqlInt32.Null
    • + ' ///
  • bCDVSA00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 53, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bSaldiert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) + 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_Partner_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("clsPartner::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRPAR00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + 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_Partner_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("clsPartner::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRPAR00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • sIDMSG00
    • + ' ///
  • sDMMSG00
    • + ' ///
  • sZTMSG00
    • + ' ///
  • sBEPGM00
    • + ' ///
  • sCDBNK00
    • + ' ///
  • iNRPAR00
    • + ' ///
  • sBKPAR00
    • + ' ///
  • iNRFOG012
    • + ' ///
  • sBEBAN012
    • + ' ///
  • sNRFOG022
    • + ' ///
  • sBEBAN022
    • + ' ///
  • sTXADZ012
    • + ' ///
  • sTXADZ022
    • + ' ///
  • sTXADZ032
    • + ' ///
  • sTXADZ042
    • + ' ///
  • sTXADZ052
    • + ' ///
  • sTXADZ062
    • + ' ///
  • sTXADZ072
    • + ' ///
  • sNRPARAD
    • + ' ///
  • sNRADR00
    • + ' ///
  • sNRFOG011
    • + ' ///
  • sBEBAN011
    • + ' ///
  • sNRFOG21
    • + ' ///
  • sBEBAN21
    • + ' ///
  • sTXADZ011
    • + ' ///
  • sTXADZ021
    • + ' ///
  • sTXADZ031
    • + ' ///
  • sTXADZ041
    • + ' ///
  • sTXADZ051
    • + ' ///
  • sTXADZ061
    • + ' ///
  • sTXADZ071
    • + ' ///
  • sCDBAL00
    • + ' ///
  • sCDVIG00
    • + ' ///
  • sSAVRS00
    • + ' ///
  • sTSMUT00
    • + ' ///
  • sVDMUTER
    • + ' ///
  • sTXRes00
    • + ' ///
  • bSaldiert
    • + ' ///
  • iAZEPL00
    • + ' ///
  • bCDVSA00
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Public Overrides Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable("Partner") + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + 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_Partner_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + If dtToReturn.Rows(0)("IDMSG00") Is System.DBNull.Value Then + m_sIDMSG00 = SqlString.Null + Else + m_sIDMSG00 = New SqlString(CType(dtToReturn.Rows(0)("IDMSG00"), String)) + End If + If dtToReturn.Rows(0)("DMMSG00") Is System.DBNull.Value Then + m_sDMMSG00 = SqlString.Null + Else + m_sDMMSG00 = New SqlString(CType(dtToReturn.Rows(0)("DMMSG00"), String)) + End If + If dtToReturn.Rows(0)("ZTMSG00") Is System.DBNull.Value Then + m_sZTMSG00 = SqlString.Null + Else + m_sZTMSG00 = New SqlString(CType(dtToReturn.Rows(0)("ZTMSG00"), String)) + End If + If dtToReturn.Rows(0)("BEPGM00") Is System.DBNull.Value Then + m_sBEPGM00 = SqlString.Null + Else + m_sBEPGM00 = New SqlString(CType(dtToReturn.Rows(0)("BEPGM00"), String)) + End If + If dtToReturn.Rows(0)("CDBNK00") Is System.DBNull.Value Then + m_sCDBNK00 = SqlString.Null + Else + m_sCDBNK00 = New SqlString(CType(dtToReturn.Rows(0)("CDBNK00"), String)) + End If + m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer)) + If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then + m_sBKPAR00 = SqlString.Null + Else + m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String)) + End If + If dtToReturn.Rows(0)("NRFOG012") Is System.DBNull.Value Then + m_iNRFOG012 = SqlInt32.Null + Else + m_iNRFOG012 = New SqlInt32(CType(dtToReturn.Rows(0)("NRFOG012"), Integer)) + End If + If dtToReturn.Rows(0)("BEBAN012") Is System.DBNull.Value Then + m_sBEBAN012 = SqlString.Null + Else + m_sBEBAN012 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN012"), String)) + End If + If dtToReturn.Rows(0)("NRFOG022") Is System.DBNull.Value Then + m_sNRFOG022 = SqlString.Null + Else + m_sNRFOG022 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG022"), String)) + End If + If dtToReturn.Rows(0)("BEBAN022") Is System.DBNull.Value Then + m_sBEBAN022 = SqlString.Null + Else + m_sBEBAN022 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN022"), String)) + End If + If dtToReturn.Rows(0)("TXADZ012") Is System.DBNull.Value Then + m_sTXADZ012 = SqlString.Null + Else + m_sTXADZ012 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ012"), String)) + End If + If dtToReturn.Rows(0)("TXADZ022") Is System.DBNull.Value Then + m_sTXADZ022 = SqlString.Null + Else + m_sTXADZ022 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ022"), String)) + End If + If dtToReturn.Rows(0)("TXADZ032") Is System.DBNull.Value Then + m_sTXADZ032 = SqlString.Null + Else + m_sTXADZ032 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ032"), String)) + End If + If dtToReturn.Rows(0)("TXADZ042") Is System.DBNull.Value Then + m_sTXADZ042 = SqlString.Null + Else + m_sTXADZ042 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ042"), String)) + End If + If dtToReturn.Rows(0)("TXADZ052") Is System.DBNull.Value Then + m_sTXADZ052 = SqlString.Null + Else + m_sTXADZ052 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ052"), String)) + End If + If dtToReturn.Rows(0)("TXADZ062") Is System.DBNull.Value Then + m_sTXADZ062 = SqlString.Null + Else + m_sTXADZ062 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ062"), String)) + End If + If dtToReturn.Rows(0)("TXADZ072") Is System.DBNull.Value Then + m_sTXADZ072 = SqlString.Null + Else + m_sTXADZ072 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ072"), String)) + End If + If dtToReturn.Rows(0)("NRPARAD") Is System.DBNull.Value Then + m_sNRPARAD = SqlString.Null + Else + m_sNRPARAD = New SqlString(CType(dtToReturn.Rows(0)("NRPARAD"), String)) + End If + If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then + m_sNRADR00 = SqlString.Null + Else + m_sNRADR00 = New SqlString(CType(dtToReturn.Rows(0)("NRADR00"), String)) + End If + If dtToReturn.Rows(0)("NRFOG011") Is System.DBNull.Value Then + m_sNRFOG011 = SqlString.Null + Else + m_sNRFOG011 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG011"), String)) + End If + If dtToReturn.Rows(0)("BEBAN011") Is System.DBNull.Value Then + m_sBEBAN011 = SqlString.Null + Else + m_sBEBAN011 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN011"), String)) + End If + If dtToReturn.Rows(0)("NRFOG21") Is System.DBNull.Value Then + m_sNRFOG21 = SqlString.Null + Else + m_sNRFOG21 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG21"), String)) + End If + If dtToReturn.Rows(0)("BEBAN21") Is System.DBNull.Value Then + m_sBEBAN21 = SqlString.Null + Else + m_sBEBAN21 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN21"), String)) + End If + If dtToReturn.Rows(0)("TXADZ011") Is System.DBNull.Value Then + m_sTXADZ011 = SqlString.Null + Else + m_sTXADZ011 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ011"), String)) + End If + If dtToReturn.Rows(0)("TXADZ021") Is System.DBNull.Value Then + m_sTXADZ021 = SqlString.Null + Else + m_sTXADZ021 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ021"), String)) + End If + If dtToReturn.Rows(0)("TXADZ031") Is System.DBNull.Value Then + m_sTXADZ031 = SqlString.Null + Else + m_sTXADZ031 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ031"), String)) + End If + If dtToReturn.Rows(0)("TXADZ041") Is System.DBNull.Value Then + m_sTXADZ041 = SqlString.Null + Else + m_sTXADZ041 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ041"), String)) + End If + If dtToReturn.Rows(0)("TXADZ051") Is System.DBNull.Value Then + m_sTXADZ051 = SqlString.Null + Else + m_sTXADZ051 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ051"), String)) + End If + If dtToReturn.Rows(0)("TXADZ061") Is System.DBNull.Value Then + m_sTXADZ061 = SqlString.Null + Else + m_sTXADZ061 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ061"), String)) + End If + If dtToReturn.Rows(0)("TXADZ071") Is System.DBNull.Value Then + m_sTXADZ071 = SqlString.Null + Else + m_sTXADZ071 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ071"), String)) + End If + If dtToReturn.Rows(0)("CDBAL00") Is System.DBNull.Value Then + m_sCDBAL00 = SqlString.Null + Else + m_sCDBAL00 = New SqlString(CType(dtToReturn.Rows(0)("CDBAL00"), String)) + End If + If dtToReturn.Rows(0)("CDVIG00") Is System.DBNull.Value Then + m_sCDVIG00 = SqlString.Null + Else + m_sCDVIG00 = New SqlString(CType(dtToReturn.Rows(0)("CDVIG00"), String)) + End If + If dtToReturn.Rows(0)("SAVRS00") Is System.DBNull.Value Then + m_sSAVRS00 = SqlString.Null + Else + m_sSAVRS00 = New SqlString(CType(dtToReturn.Rows(0)("SAVRS00"), String)) + End If + If dtToReturn.Rows(0)("TSMUT00") Is System.DBNull.Value Then + m_sTSMUT00 = SqlString.Null + Else + m_sTSMUT00 = New SqlString(CType(dtToReturn.Rows(0)("TSMUT00"), String)) + End If + If dtToReturn.Rows(0)("VDMUTER") Is System.DBNull.Value Then + m_sVDMUTER = SqlString.Null + Else + m_sVDMUTER = New SqlString(CType(dtToReturn.Rows(0)("VDMUTER"), String)) + End If + If dtToReturn.Rows(0)("TXRes00") Is System.DBNull.Value Then + m_sTXRes00 = SqlString.Null + Else + m_sTXRes00 = New SqlString(CType(dtToReturn.Rows(0)("TXRes00"), String)) + End If + m_bSaldiert = New SqlBoolean(CType(dtToReturn.Rows(0)("Saldiert"), Boolean)) + If dtToReturn.Rows(0)("AZEPL00") Is System.DBNull.Value Then + m_iAZEPL00 = SqlInt32.Null + Else + m_iAZEPL00 = New SqlInt32(CType(dtToReturn.Rows(0)("AZEPL00"), Integer)) + End If + m_bCDVSA00 = New SqlBoolean(CType(dtToReturn.Rows(0)("CDVSA00"), Boolean)) + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsPartner::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Public Overrides Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable("Partner") + 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_Partner_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("clsPartner::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 [sIDMSG00]() As SqlString + Get + Return m_sIDMSG00 + End Get + Set(ByVal Value As SqlString) + m_sIDMSG00 = Value + End Set + End Property + + + Public Property [sDMMSG00]() As SqlString + Get + Return m_sDMMSG00 + End Get + Set(ByVal Value As SqlString) + m_sDMMSG00 = Value + End Set + End Property + + + Public Property [sZTMSG00]() As SqlString + Get + Return m_sZTMSG00 + End Get + Set(ByVal Value As SqlString) + m_sZTMSG00 = Value + End Set + End Property + + + Public Property [sBEPGM00]() As SqlString + Get + Return m_sBEPGM00 + End Get + Set(ByVal Value As SqlString) + m_sBEPGM00 = Value + End Set + End Property + + + Public Property [sCDBNK00]() As SqlString + Get + Return m_sCDBNK00 + End Get + Set(ByVal Value As SqlString) + m_sCDBNK00 = Value + End Set + End Property + + + Public Property [iNRPAR00]() As SqlInt32 + Get + Return m_iNRPAR00 + End Get + Set(ByVal Value As SqlInt32) + Dim iNRPAR00Tmp As SqlInt32 = Value + If iNRPAR00Tmp.IsNull Then + Throw New ArgumentOutOfRangeException("iNRPAR00", "iNRPAR00 can't be NULL") + End If + m_iNRPAR00 = Value + End Set + End Property + + + Public Property [sBKPAR00]() As SqlString + Get + Return m_sBKPAR00 + End Get + Set(ByVal Value As SqlString) + m_sBKPAR00 = Value + End Set + End Property + + + Public Property [iNRFOG012]() As SqlInt32 + Get + Return m_iNRFOG012 + End Get + Set(ByVal Value As SqlInt32) + m_iNRFOG012 = Value + End Set + End Property + + + Public Property [sBEBAN012]() As SqlString + Get + Return m_sBEBAN012 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN012 = Value + End Set + End Property + + + Public Property [sNRFOG022]() As SqlString + Get + Return m_sNRFOG022 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG022 = Value + End Set + End Property + + + Public Property [sBEBAN022]() As SqlString + Get + Return m_sBEBAN022 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN022 = Value + End Set + End Property + + + Public Property [sTXADZ012]() As SqlString + Get + Return m_sTXADZ012 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ012 = Value + End Set + End Property + + + Public Property [sTXADZ022]() As SqlString + Get + Return m_sTXADZ022 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ022 = Value + End Set + End Property + + + Public Property [sTXADZ032]() As SqlString + Get + Return m_sTXADZ032 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ032 = Value + End Set + End Property + + + Public Property [sTXADZ042]() As SqlString + Get + Return m_sTXADZ042 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ042 = Value + End Set + End Property + + + Public Property [sTXADZ052]() As SqlString + Get + Return m_sTXADZ052 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ052 = Value + End Set + End Property + + + Public Property [sTXADZ062]() As SqlString + Get + Return m_sTXADZ062 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ062 = Value + End Set + End Property + + + Public Property [sTXADZ072]() As SqlString + Get + Return m_sTXADZ072 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ072 = Value + End Set + End Property + + + Public Property [sNRPARAD]() As SqlString + Get + Return m_sNRPARAD + End Get + Set(ByVal Value As SqlString) + m_sNRPARAD = Value + End Set + End Property + + + Public Property [sNRADR00]() As SqlString + Get + Return m_sNRADR00 + End Get + Set(ByVal Value As SqlString) + m_sNRADR00 = Value + End Set + End Property + + + Public Property [sNRFOG011]() As SqlString + Get + Return m_sNRFOG011 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG011 = Value + End Set + End Property + + + Public Property [sBEBAN011]() As SqlString + Get + Return m_sBEBAN011 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN011 = Value + End Set + End Property + + + Public Property [sNRFOG21]() As SqlString + Get + Return m_sNRFOG21 + End Get + Set(ByVal Value As SqlString) + m_sNRFOG21 = Value + End Set + End Property + + + Public Property [sBEBAN21]() As SqlString + Get + Return m_sBEBAN21 + End Get + Set(ByVal Value As SqlString) + m_sBEBAN21 = Value + End Set + End Property + + + Public Property [sTXADZ011]() As SqlString + Get + Return m_sTXADZ011 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ011 = Value + End Set + End Property + + + Public Property [sTXADZ021]() As SqlString + Get + Return m_sTXADZ021 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ021 = Value + End Set + End Property + + + Public Property [sTXADZ031]() As SqlString + Get + Return m_sTXADZ031 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ031 = Value + End Set + End Property + + + Public Property [sTXADZ041]() As SqlString + Get + Return m_sTXADZ041 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ041 = Value + End Set + End Property + + + Public Property [sTXADZ051]() As SqlString + Get + Return m_sTXADZ051 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ051 = Value + End Set + End Property + + + Public Property [sTXADZ061]() As SqlString + Get + Return m_sTXADZ061 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ061 = Value + End Set + End Property + + + Public Property [sTXADZ071]() As SqlString + Get + Return m_sTXADZ071 + End Get + Set(ByVal Value As SqlString) + m_sTXADZ071 = Value + End Set + End Property + + + Public Property [sCDBAL00]() As SqlString + Get + Return m_sCDBAL00 + End Get + Set(ByVal Value As SqlString) + m_sCDBAL00 = Value + End Set + End Property + + + Public Property [sCDVIG00]() As SqlString + Get + Return m_sCDVIG00 + End Get + Set(ByVal Value As SqlString) + m_sCDVIG00 = Value + End Set + End Property + + + Public Property [sSAVRS00]() As SqlString + Get + Return m_sSAVRS00 + End Get + Set(ByVal Value As SqlString) + m_sSAVRS00 = Value + End Set + End Property + + + Public Property [sTSMUT00]() As SqlString + Get + Return m_sTSMUT00 + End Get + Set(ByVal Value As SqlString) + m_sTSMUT00 = Value + End Set + End Property + + + Public Property [sVDMUTER]() As SqlString + Get + Return m_sVDMUTER + End Get + Set(ByVal Value As SqlString) + m_sVDMUTER = Value + End Set + End Property + + + Public Property [sTXRes00]() As SqlString + Get + Return m_sTXRes00 + End Get + Set(ByVal Value As SqlString) + m_sTXRes00 = Value + End Set + End Property + + + Public Property [bSaldiert]() As SqlBoolean + Get + Return m_bSaldiert + End Get + Set(ByVal Value As SqlBoolean) + m_bSaldiert = Value + End Set + End Property + + + Public Property [iAZEPL00]() As SqlInt32 + Get + Return m_iAZEPL00 + End Get + Set(ByVal Value As SqlInt32) + m_iAZEPL00 = Value + End Set + End Property + + + Public Property [bCDVSA00]() As SqlBoolean + Get + Return m_bCDVSA00 + End Get + Set(ByVal Value As SqlBoolean) + m_bCDVSA00 = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsStatushistory.vb b/edkb08/Datenbank/clsStatushistory.vb new file mode 100644 index 0000000..7d416d9 --- /dev/null +++ b/edkb08/Datenbank/clsStatushistory.vb @@ -0,0 +1,510 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'statushistory' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 25. Mai 2003, 21:40:11 +' // Because the Base Class already implements IDispose, this class doesn't. +' /////////////////////////////////////////////////////////////////////////// +Imports System +Imports System.Data +Imports System.Data.SqlTypes +Imports System.Data.SqlClient + +Namespace edokadb + ' /// + ' /// Purpose: Data Access class for the table 'statushistory'. + ' /// + Public Class clsStatushistory + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_bAktiv As SqlBoolean + Private m_daErstellt_am, m_daMutiert_am As SqlDateTime + Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 + Private m_sDokumentid As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iStatushistorynr
    • + ' ///
  • iStatus
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • iVerantwortlich. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_statushistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsStatushistory::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iStatushistorynr
    • + ' ///
  • iStatus
    • + ' ///
  • iMandantnr. May be SqlInt32.Null
    • + ' ///
  • bAktiv. May be SqlBoolean.Null
    • + ' ///
  • daErstellt_am. May be SqlDateTime.Null
    • + ' ///
  • daMutiert_am. May be SqlDateTime.Null
    • + ' ///
  • iMutierer. May be SqlInt32.Null
    • + ' ///
  • sDokumentid. May be SqlString.Null
    • + ' ///
  • iVerantwortlich. May be SqlInt32.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_statushistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsStatushistory::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iStatushistorynr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + scmCmdToExecute.ExecuteNonQuery() + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_statushistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return True + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsStatushistory::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iStatushistorynr
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iStatushistorynr
    • + ' ///
  • iStatus
    • + ' ///
  • iMandantnr
    • + ' ///
  • bAktiv
    • + ' ///
  • daErstellt_am
    • + ' ///
  • daMutiert_am
    • + ' ///
  • iMutierer
    • + ' ///
  • sDokumentid
    • + ' ///
  • iVerantwortlich
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("statushistory") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_statushistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iStatushistorynr = New SqlInt32(CType(dtToReturn.Rows(0)("statushistorynr"), Integer)) + m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer)) + If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then + m_iMandantnr = SqlInt32.Null + Else + m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) + End If + If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then + m_bAktiv = SqlBoolean.Null + Else + m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) + End If + If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then + m_daErstellt_am = SqlDateTime.Null + Else + m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) + End If + If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then + m_daMutiert_am = SqlDateTime.Null + Else + m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) + End If + If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then + m_iMutierer = SqlInt32.Null + Else + m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) + End If + If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then + m_sDokumentid = SqlString.Null + Else + m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) + End If + If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then + m_iVerantwortlich = SqlInt32.Null + Else + m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) + End If + End If + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsStatushistory::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("statushistory") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) + + If m_bMainConnectionIsCreatedLocal Then + ' // Open connection. + m_scoMainConnection.Open() + Else + If m_cpMainConnectionProvider.bIsTransactionPending Then + scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction + End If + End If + + ' // Execute query. + sdaAdapter.Fill(dtToReturn) + m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value + + If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then + ' // Throw error. + Throw New Exception("Stored Procedure 'pr_statushistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("clsStatushistory::SelectAll::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + +#Region " Class Property Declarations " + + Public Property [iStatushistorynr]() As SqlInt32 + Get + Return m_iStatushistorynr + End Get + Set(ByVal Value As SqlInt32) + Dim iStatushistorynrTmp As SqlInt32 = Value + If iStatushistorynrTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iStatushistorynr", "iStatushistorynr can't be NULL") + End If + m_iStatushistorynr = Value + End Set + End Property + + + Public Property [iStatus]() As SqlInt32 + Get + Return m_iStatus + End Get + Set(ByVal Value As SqlInt32) + Dim iStatusTmp As SqlInt32 = Value + If iStatusTmp.IsNull Then + Throw New ArgumentOutOfRangeException("iStatus", "iStatus can't be NULL") + End If + m_iStatus = Value + End Set + End Property + + + Public Property [iMandantnr]() As SqlInt32 + Get + Return m_iMandantnr + End Get + Set(ByVal Value As SqlInt32) + m_iMandantnr = Value + End Set + End Property + + + Public Property [bAktiv]() As SqlBoolean + Get + Return m_bAktiv + End Get + Set(ByVal Value As SqlBoolean) + m_bAktiv = Value + End Set + End Property + + + Public Property [daErstellt_am]() As SqlDateTime + Get + Return m_daErstellt_am + End Get + Set(ByVal Value As SqlDateTime) + m_daErstellt_am = Value + End Set + End Property + + + Public Property [daMutiert_am]() As SqlDateTime + Get + Return m_daMutiert_am + End Get + Set(ByVal Value As SqlDateTime) + m_daMutiert_am = Value + End Set + End Property + + + Public Property [iMutierer]() As SqlInt32 + Get + Return m_iMutierer + End Get + Set(ByVal Value As SqlInt32) + m_iMutierer = Value + End Set + End Property + + + Public Property [sDokumentid]() As SqlString + Get + Return m_sDokumentid + End Get + Set(ByVal Value As SqlString) + m_sDokumentid = Value + End Set + End Property + + + Public Property [iVerantwortlich]() As SqlInt32 + Get + Return m_iVerantwortlich + End Get + Set(ByVal Value As SqlInt32) + m_iVerantwortlich = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/clsVv.vb b/edkb08/Datenbank/clsVv.vb new file mode 100644 index 0000000..aecdb81 --- /dev/null +++ b/edkb08/Datenbank/clsVv.vb @@ -0,0 +1,528 @@ +' /////////////////////////////////////////////////////////////////////////// +' // Description: Data Access class for the table 'VV' +' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 17. September 2003, 00:12: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 + ' /// + ' /// Purpose: Data Access class for the table 'VV'. + ' /// + Public Class clsVV + Inherits clsDBInteractionBase + +#Region " Class Member Declarations " + + Private m_iNRPRD00, m_iNRVBS00, m_iNRSPR00, m_iNRVVG00, m_iNRPAR00 As SqlInt32 + Private m_sNAVVG00, m_sSAREC00, m_sBEPRDLG, m_sTXRBK00, m_sNEVVG00 As SqlString + +#End Region + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Nothing for now. + End Sub + + + ' /// + ' /// Purpose: Insert method. This method will insert one new row into the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRVVG00
    • + ' ///
  • iNRPAR00. May be SqlInt32.Null
    • + ' ///
  • iNRSPR00. May be SqlInt32.Null
    • + ' ///
  • sBEPRDLG. May be SqlString.Null
    • + ' ///
  • iNRPRD00. May be SqlInt32.Null
    • + ' ///
  • sTXRBK00. May be SqlString.Null
    • + ' ///
  • sNEVVG00. May be SqlString.Null
    • + ' ///
  • sNAVVG00. May be SqlString.Null
    • + ' ///
  • iNRVBS00. May be SqlInt32.Null
    • + ' ///
  • sSAREC00. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Insert() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_VV_Insert]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRVVG00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRSPR00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRSPR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPRDLG", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPRDLG)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPRD00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRPRD00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRBK00", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRBK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNAVVG00", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNAVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRVBS00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRVBS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00)) + 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_VV_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("clsVV::Insert::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Update method. This method will Update one existing row in the database. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRVVG00
    • + ' ///
  • iNRPAR00. May be SqlInt32.Null
    • + ' ///
  • iNRSPR00. May be SqlInt32.Null
    • + ' ///
  • sBEPRDLG. May be SqlString.Null
    • + ' ///
  • iNRPRD00. May be SqlInt32.Null
    • + ' ///
  • sTXRBK00. May be SqlString.Null
    • + ' ///
  • sNEVVG00. May be SqlString.Null
    • + ' ///
  • sNAVVG00. May be SqlString.Null
    • + ' ///
  • iNRVBS00. May be SqlInt32.Null
    • + ' ///
  • sSAREC00. May be SqlString.Null
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Update() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_VV_Update]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRVVG00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRSPR00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRSPR00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPRDLG", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPRDLG)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPRD00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRPRD00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRBK00", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRBK00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sNAVVG00", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNAVVG00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRVBS00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRVBS00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00)) + 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_VV_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("clsVV::Update::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + ' /// + ' /// True if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRVVG00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function Delete() As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_VV_Delete]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRVVG00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRVVG00)) + 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_VV_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("clsVV::Delete::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties needed for this method: + ' ///
    + ' ///
  • iNRVVG00
    • + ' ///
+ ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
  • iNRVVG00
    • + ' ///
  • iNRPAR00
    • + ' ///
  • iNRSPR00
    • + ' ///
  • sBEPRDLG
    • + ' ///
  • iNRPRD00
    • + ' ///
  • sTXRBK00
    • + ' ///
  • sNEVVG00
    • + ' ///
  • sNAVVG00
    • + ' ///
  • iNRVBS00
    • + ' ///
  • sSAREC00
    • + ' ///
+ ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. + ' /// + Overrides Public Function SelectOne() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_VV_SelectOne]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("VV") + Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) + + ' // Use base class' connection object + scmCmdToExecute.Connection = m_scoMainConnection + + Try + scmCmdToExecute.Parameters.Add(new SqlParameter("@iNRVVG00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRVVG00)) + 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_VV_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) + End If + + If dtToReturn.Rows.Count > 0 Then + m_iNRVVG00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRVVG00"), Integer)) + If dtToReturn.Rows(0)("NRPAR00") Is System.DBNull.Value Then + m_iNRPAR00 = SqlInt32.Null + Else + m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer)) + End If + If dtToReturn.Rows(0)("NRSPR00") Is System.DBNull.Value Then + m_iNRSPR00 = SqlInt32.Null + Else + m_iNRSPR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRSPR00"), Integer)) + End If + If dtToReturn.Rows(0)("BEPRDLG") Is System.DBNull.Value Then + m_sBEPRDLG = SqlString.Null + Else + m_sBEPRDLG = New SqlString(CType(dtToReturn.Rows(0)("BEPRDLG"), String)) + End If + If dtToReturn.Rows(0)("NRPRD00") Is System.DBNull.Value Then + m_iNRPRD00 = SqlInt32.Null + Else + m_iNRPRD00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPRD00"), Integer)) + End If + If dtToReturn.Rows(0)("TXRBK00") Is System.DBNull.Value Then + m_sTXRBK00 = SqlString.Null + Else + m_sTXRBK00 = New SqlString(CType(dtToReturn.Rows(0)("TXRBK00"), String)) + End If + If dtToReturn.Rows(0)("NEVVG00") Is System.DBNull.Value Then + m_sNEVVG00 = SqlString.Null + Else + m_sNEVVG00 = New SqlString(CType(dtToReturn.Rows(0)("NEVVG00"), String)) + End If + If dtToReturn.Rows(0)("NAVVG00") Is System.DBNull.Value Then + m_sNAVVG00 = SqlString.Null + Else + m_sNAVVG00 = New SqlString(CType(dtToReturn.Rows(0)("NAVVG00"), String)) + End If + If dtToReturn.Rows(0)("NRVBS00") Is System.DBNull.Value Then + m_iNRVBS00 = SqlInt32.Null + Else + m_iNRVBS00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRVBS00"), Integer)) + End If + If dtToReturn.Rows(0)("SAREC00") Is System.DBNull.Value Then + m_sSAREC00 = SqlString.Null + Else + m_sSAREC00 = New SqlString(CType(dtToReturn.Rows(0)("SAREC00"), 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("clsVV::SelectOne::Error occured.", ex) + Finally + If m_bMainConnectionIsCreatedLocal Then + ' // Close connection. + m_scoMainConnection.Close() + End If + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + ' /// + ' /// Purpose: SelectAll method. This method will Select all rows from the table. + ' /// + ' /// DataTable object if succeeded, otherwise an Exception is thrown. + ' /// + ' /// Properties set after a succesful call of this method: + ' ///
    + ' ///
  • iErrorCode
    • + ' ///
+ ' /// + Overrides Public Function SelectAll() As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.[pr_VV_SelectAll]" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = new DataTable("VV") + 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_VV_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("clsVV::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 [iNRVVG00]() As SqlInt32 + Get + Return m_iNRVVG00 + End Get + Set(ByVal Value As SqlInt32) + Dim iNRVVG00Tmp As SqlInt32 = Value + If iNRVVG00Tmp.IsNull Then + Throw New ArgumentOutOfRangeException("iNRVVG00", "iNRVVG00 can't be NULL") + End If + m_iNRVVG00 = Value + End Set + End Property + + + Public Property [iNRPAR00]() As SqlInt32 + Get + Return m_iNRPAR00 + End Get + Set(ByVal Value As SqlInt32) + m_iNRPAR00 = Value + End Set + End Property + + + Public Property [iNRSPR00]() As SqlInt32 + Get + Return m_iNRSPR00 + End Get + Set(ByVal Value As SqlInt32) + m_iNRSPR00 = Value + End Set + End Property + + + Public Property [sBEPRDLG]() As SqlString + Get + Return m_sBEPRDLG + End Get + Set(ByVal Value As SqlString) + m_sBEPRDLG = Value + End Set + End Property + + + Public Property [iNRPRD00]() As SqlInt32 + Get + Return m_iNRPRD00 + End Get + Set(ByVal Value As SqlInt32) + m_iNRPRD00 = Value + End Set + End Property + + + Public Property [sTXRBK00]() As SqlString + Get + Return m_sTXRBK00 + End Get + Set(ByVal Value As SqlString) + m_sTXRBK00 = 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 [sNAVVG00]() As SqlString + Get + Return m_sNAVVG00 + End Get + Set(ByVal Value As SqlString) + m_sNAVVG00 = Value + End Set + End Property + + + Public Property [iNRVBS00]() As SqlInt32 + Get + Return m_iNRVBS00 + End Get + Set(ByVal Value As SqlInt32) + m_iNRVBS00 = Value + End Set + End Property + + + Public Property [sSAREC00]() As SqlString + Get + Return m_sSAREC00 + End Get + Set(ByVal Value As SqlString) + m_sSAREC00 = Value + End Set + End Property + +#End Region + + End Class +End Namespace diff --git a/edkb08/Datenbank/db_connection.vb b/edkb08/Datenbank/db_connection.vb new file mode 100644 index 0000000..ca748b9 --- /dev/null +++ b/edkb08/Datenbank/db_connection.vb @@ -0,0 +1,43 @@ +Imports System.ComponentModel +Imports Microsoft.VisualBasic + +Namespace edokadb + + Public Class DB_Connection + Shared Sub New() + 'Edoka + oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "edokaconn.cfg") + sConnectionString_edoka = oread.ReadLine + 'sConnectionString_edoka = Crypto.DecryptText(sConnectionString, "HutterundMueller") + 'sConnectionString_edoka = Left(sConnectionString, Len(sConnectionString) - 1) + Globals.sConnectionString_edoka = sConnectionString_edoka + oread.Close() + + 'Journale + oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn.cfg") + sConnectionString_journale = oread.ReadLine + 'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller") + 'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1) + Globals.sConnectionString_journale = sConnectionString_journale + oread.Close() + + + 'Journale fr Mailversand + oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn_Mail.cfg") + sConnectionString_journale_mail = oread.ReadLine + 'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller") + 'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1) + Globals.sConnectionString_journale_mail = sConnectionString_journale_Mail + oread.Close() + + + + Globals.conn_edoka.sConnectionString = sConnectionString_edoka + Globals.conn_journale.sConnectionString = sConnectionString_journale + Globals.conn_journale_Mail.sConnectionString = sConnectionString_journale_Mail + End Sub + + End Class +End Namespace + + diff --git a/edkb08/Datenbank/vssver.scc b/edkb08/Datenbank/vssver.scc new file mode 100644 index 0000000..a75dbc8 Binary files /dev/null and b/edkb08/Datenbank/vssver.scc differ diff --git a/edkb08/Globals.vb b/edkb08/Globals.vb new file mode 100644 index 0000000..96aea44 --- /dev/null +++ b/edkb08/Globals.vb @@ -0,0 +1,134 @@ +'''Globale Variablen und FUnktionen +Module Globals + '''Datentabelle mit den EDOKA-Applikationsdaten + Public Applikationsdaten As DataTable + '''Datensatzzeiger in der Tabelle Applikationsdaten + Public AppldataRow As Integer + + '''Verbindung zur Daten EDOKA + Public sConnectionString_edoka As String + '''Verbindung zur Daten EDOKA_Journale + Public sConnectionString_journale As String + '''Verbindung zur Daten EDOKA_Journale mit dem Mail-User + Public sConnectionString_journale_Mail As String + Public CurrentTS As String + Public BLScan As Boolean = False + Public NoIndexdata As Boolean = False + Public ImportPraefix As String = "EDKIMP" + Public ImportPraefix_Canon_Nr As Integer = 0 + 'Public Canon_Herkunft As String = "IRIS_FORMS" + Public Fehlermeldung As String = "" + Public Function Canon_Herkunft(Input As String) As Boolean + If Input = "IRIS_FORMS" Then + Return True + Exit Function + End If + If Input = "IRIS_FORMS_DMS" Then + Return True + Exit Function + End If + If Input = "IRIS_FORMS_EDK" Then + Return True + Exit Function + End If + If Input = "IRIS_FORMS_LSV" Then + Return True + Exit Function + End If + If Input = "IRIS_FORMS_UVM" Then + Return True + Exit Function + End If + Return False + End Function + + '''Befehlszeilenargumente + Public args As String() = Environment.GetCommandLineArgs() + + '''Connectionprovider fr die Datenbank EDOKA + '''edokadb.clsConnectionProvider + Public conn_edoka As New edokadb.clsConnectionProvider() + '''Connectionprovider fr die Datenbank EDOKA_Journale + '''edokadb.clsConnectionProvider + Public conn_journale As New edokadb.clsConnectionProvider() + + + '''Connectionprovider fr die Datenbank EDOKA_Journale + '''edokadb.clsConnectionProvider + Public conn_journale_Mail As New edokadb.clsConnectionProvider() + + '''Instanz des Objektes DivFnkt + Public DivFnkt As New clsDivFnkt() + + Public xFehler As Integer = 0 + Public Warning As Integer = 0 + Public DokumentID As String + Public ColdDokumentID As String + Public KeyNr As Long + Public Params As New ClsParameters() + Public temp_indexdaten As DataTable + + + Public ofile As System.IO.File + Public oread As System.IO.StreamReader + + '''Hlt die Applikationsdaten fr ein zu importierendes Dokumente + '''fest + Public ApplData As New DataTable() + + '''Ausgabe eines Strings mit vorgestelltem TimeStamp + ''' + Public Sub PrintOut(ByVal s As String) + 'Console.WriteLine(Format(Now, "yyyyMMddHHmmss") + ": " + s) + PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, EventLogEntryType.Information) + End Sub + + Public Sub Printout(ByVal s As String, ByVal LogEntryType As EventLogEntryType) + PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, LogEntryType) + End Sub + + Dim EVLog As New EventLog("Log_EDKB08") + + '''Eintrag ins EventLog von EDKB08 schreiben + ''' + ''' + Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information) +#If CONFIG = "Release" Then 'Release + If Not EventLog.SourceExists("EDKB08") Then + EventLog.CreateEventSource("EDKB08", "EDKB08 Log") + End If + EVLog.Source = "EDKB08 Log" + + EventLog.WriteEntry(EVLog.Source, message, eventmessage) +#Else + Debug.Print(message) + + + +#End If + + End Sub + + + + '''Globaler Verweis zur Klasse CLSJournal + Public Journal As New clsJournal() + + '''Daten fr der Herkunftsapplikation + '''Diese interne Tabelle enthlt die Daten fr die Herkunftsapplikation + '''einer Indexdatei + Public Herkunftsapplikation As DataTable + + '''Interne Variable zur Festhaltung von Fehlern + Public Fehler As Integer = 0 + + + Public Mitarbeiternr As Integer = 0 + + + + +End Module diff --git a/edkb08/Main.vb b/edkb08/Main.vb new file mode 100644 index 0000000..eecd58f --- /dev/null +++ b/edkb08/Main.vb @@ -0,0 +1,281 @@ +Imports System.IO.File +Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.ComponentModel +Imports System +Imports System.IO +Imports System.SystemException + +'''EDKB08 - Hauptprogramm +'''EDKB08 ist ein Importfunktion fr Dokumente, welche durch +'''Fremdanwendungen geliefert und in EDOKA importiert werden sollen. +''' +'''Als Input werden die einzelenen Dokumente sowie eine oderer mehrer Dateien mit +'''den zugehrenden Indexinformationen in ein definiertes Verzeichnis gestellt. +''' +'''EDKB08 berwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung +'''".IND" angeliefert wird, startet der eigentliche Importvorgang. +Module Main + + +#Region "Deklarationen" + '''Variable mit dem Namen des zu berwachenden Verzeichnises + Dim Watch_Directory As String + '''FileSystemWatcher + '''Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis + '''(Watch_Directory) + Dim FileWatch As New FileSystemWatcher() + + '''Varaible zum Zwischenspeichern der Indexdaten einer + '''Indexdaten-Datei + Dim indexdata As DataTable + + Dim WithEvents JournalTimer As New Timers.Timer() + + + + +#End Region + +#Region "Hauptverarbeitung" + '''Steuerroutine fr EDKB08 + '''Diese Routine wird beim Programmstart durchlaufen. Dabei werden die + '''bentigten Parameter ausgelesen und an der Konsole angezeigt. + ''' + '''Nach erfolgreicher Initialisierung werden Aktivitten im vordefinierten + '''Verzeichnis abgewartet. + Public Sub Main() + PrintOut("Start EDKB08") + JournalTimer.Interval = 3600000 + JournalTimer.Enabled = True + + 'Parameter auslesen + If Params.Loadparameters = False Then + PrintOut(Params.Meldung) + PrintOut("Verarbeitung abgebrochen") + Exit Sub + Else + Watch_Directory = Params.Inputverzeichnis + PrintOut(Params.Meldung) + PrintOut("Parameter:") + PrintOut("berwachtes Verzeichnis: " + Params.Inputverzeichnis) + PrintOut("E-Mail OK: " + Params.MailAdresseOK) + PrintOut("E-Mail NOK:" + Params.MailAdresseNOK) + End If + 'Datenbank initialisieren + Dim db_conn As New edokadb.DB_Connection() + + 'Verzeichnis-berwachung initialisieren und starten + If Not Init_Filewatcher() Then + PrintOut("Verarbeitung gestoppt", EventLogEntryType.Error) + End If + If Not Start_Watching() Then + PrintOut("Verarbeitung gestoppt", EventLogEntryType.Error) + Exit Sub + End If + PrintOut("") + PrintOut("Return-Taste bettigen, um EDKB08 zu stoppen") + Console.ReadLine() + PrintOut("EDKB08 gestoppt") + End Sub + + '''Verarbeitung von angelieferten Indexdateien. Die Verarbeitung luft so + '''lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden + '''sind. + '''Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und + '''verarbeitet. + Private Sub Verarbeiten() + Dim looper As Boolean = True + Dim counter As Integer + counter = 0 + While looper = True + counter = counter + 1 + Globals.Journal.Open_Journal() + 'Alle .IND-Dateien im Verzeichnis auslesen + Dim clsindex As New clsIndexData() + Dim di As New IO.DirectoryInfo(Watch_Directory) + Dim diar1 As IO.FileInfo() = di.GetFiles("*.ind") + Dim dra As IO.FileInfo + If diar1.Length = 0 Then + looper = False + clsindex = Nothing + di = Nothing + diar1 = Nothing + Globals.Journal.Delete_Entry() + Exit Sub + End If + + For Each dra In diar1 + Globals.Journal.Insert_Journal("", "", "", dra.FullName, "", "Start der Verarbeitung", "", "") + PrintOut("File-Nr " + counter + ": " + dra.FullName) + clsindex.IndexFileName = dra.FullName + If clsindex.getindexdata Then + indexdata = clsindex.Indexdata + Dim check_and_import As New clsCheckandImport() + check_and_import.IndexData = indexdata + + If check_and_import.Herkunftsapplikationen_auslesen Then + 'Sofern die Herkunftsapplikation erruiert werden konnte, wird die Journaltabelle mit der Applikationsid nachgefhrt + Globals.Journal.Update_Journal() + + 'Verarbeitung der Daten + check_and_import.CheckandImport() + check_and_import = Nothing + End If + End If + Journal.Insert_Journal("", "", "", dra.FullName, "", "Total Index-Datenstze: " + LTrim(Str(indexdata.Rows.Count)), "", "") + Journal.Insert_Journal("", "", "", dra.FullName, "", "Verarbeitung abgeschlossen.", "", "") + Logdatei_Erstellen() + + Next + clsindex = Nothing + di = Nothing + diar1 = Nothing + Globals.Journal.Close_Journal() + End While + End Sub + + '''Journaldatei erstellen und je nach Applikationseinstellungen + '''versenden + '''Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und + '''sendet diese mittels Mail bzw. mittls DTO weiter + Private Sub Logdatei_Erstellen() + Dim filename As String + Try + If Globals.Herkunftsapplikation.Rows(0).Item("log_per_mail") = False And Globals.Herkunftsapplikation.Rows(0).Item("log_mit_dto") = False Then Exit Sub + If Globals.Herkunftsapplikation.Rows(0).Item("log_per_mail") = True And Globals.Herkunftsapplikation.Rows(0).Item("Mail_Periodizitaet") = 0 Then + filename = Journal.Print_Log(Globals.Herkunftsapplikation.Rows(0).Item(0), Globals.Herkunftsapplikation.Rows(0).Item(1), Globals.Herkunftsapplikation.Rows(0).Item("outputformat")) + End If + If Globals.Herkunftsapplikation.Rows(0).Item("log_mit_dto") = True Then + filename = Journal.Print_Log(Globals.Herkunftsapplikation.Rows(0).Item(0), Globals.Herkunftsapplikation.Rows(0).Item(1), Globals.Herkunftsapplikation.Rows(0).Item("outputformat")) + Send_DTO(filename) + End If + Catch + End Try + End Sub + + '''DTO-Versand + ''' + Private Sub Send_DTO(ByVal filename As String) + Try + Dim i As Integer + Dim tw As TextWriter + Dim s As String + s = Herkunftsapplikation.Rows(0).Item(3) + s = s.Replace("%1", filename) + tw = New StreamWriter(New FileStream(Params.TempPfad + "dtotransfer.cmd", FileMode.Create)) + tw.WriteLine(s) + tw.Flush() + tw.Close() + i = Microsoft.VisualBasic.Shell(Params.TempPfad + "dtotransfer.cmd", AppWinStyle.Hide, True) + Catch + End Try + End Sub + + Private Sub Send_Mail(ByVal filename As String, ByVal empfaenger As String) + Try + Dim i As Integer + Dim tw As TextWriter + Dim s As String + s = Herkunftsapplikation.Rows(0).Item(3) + s = s.Replace("%1", filename) + tw = New StreamWriter(New FileStream(Params.TempPfad + "dtotransfer.cmd", FileMode.Create)) + tw.WriteLine(s) + tw.Flush() + tw.Close() + i = Microsoft.VisualBasic.Shell(Params.TempPfad + "dtotransfer.cmd", AppWinStyle.Hide, True) + Catch + End Try + End Sub + +#End Region + +#Region "FileWatcher" + '''Initialisierung des Filewacher-Objektes + '''Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie + '''Dateifilter-Angaben initialisiert. + Private Function Init_Filewatcher() As Boolean + Try + FileWatch.Path = Watch_Directory + FileWatch.IncludeSubdirectories = False + FileWatch.Filter = "*.*" + Return True + Catch ex As Exception + PrintOut("Fehler bei der Initialisierung des Filewacherobjekts auf " + Watch_Directory) + Return False + End Try + End Function + + '''Eventhandler des FileWatching-Objektes aktivieren + Private Function Start_Watching() As Boolean + Try + AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent) + FileWatch.EnableRaisingEvents = True + PrintOut("Event-Handler initialisiert") + Return True + Catch ex As Exception + PrintOut("Fehler bei der Event-Initialisierung") + Return False + End Try + End Function + + '''Aktivitten im Inputverzeichnis verarbeiten + '''Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler + '''gestoppt und die anstehenden Dokumente verarbeitet. + ''' + '''Nach abgeschlossener Verarbeitung wird der Eventhandler wieder + '''eingeschaltet + ''' + ''' + Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs) + If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Then + PrintOut("Neue Datei " + e.FullPath) + FileWatch.EnableRaisingEvents = False + Verarbeiten() + FileWatch.EnableRaisingEvents = True + End If + End Sub + +#End Region + +#Region "Utils" +#End Region + + 'Public Sub JournalTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles JournalTimer.Elapsed + + ' If Now.Hour > 0 And Now.Hour < 1 Then + ' Dim filename As String + ' Dim dt As DataTable + ' Dim i As Integer + ' PrintOut("Start Tgliche Journalerstellung") + ' dt = get_applikationen() + ' For i = 0 To dt.Rows.Count - 1 + ' filename = Journal.Print_Log(dt.Rows(i).Item(0), dt.Rows(i).Item(1), dt.Rows(i).Item(2)) + ' Send_Mail(filename, dt.Rows(i).Item(3)) + ' PrintOut(dt.Rows(i).Item(1) + ": " + "Journal gesendet") + ' Next + ' End If + 'End Sub + + 'Private Function get_applikationen() As DataTable + ' Dim scmCmdToExecute As SqlCommand = New SqlCommand() + ' Dim dtToReturn As DataTable = New DataTable() + ' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + ' scmCmdToExecute.CommandText = "dbo.sp_edoka_import_Journalversand] " + ' scmCmdToExecute.CommandType = CommandType.StoredProcedure + ' scmCmdToExecute.Connection = conn_edoka.scoDBConnection + ' Try + ' sdaAdapter.Fill(dtToReturn) + ' Return dtToReturn + ' Catch ex As Exception + ' PrintOut("Tgliche Journalerstellung fehlgeschlagen. " + ex.Message, EventLogEntryType.Error) + ' Finally + ' scmCmdToExecute.Dispose() + ' sdaAdapter.Dispose() + ' dtToReturn.Dispose() + ' End Try + 'End Function + +End Module + + diff --git a/edkb08/clsCheckandImport.vb b/edkb08/clsCheckandImport.vb new file mode 100644 index 0000000..a895fc5 --- /dev/null +++ b/edkb08/clsCheckandImport.vb @@ -0,0 +1,3333 @@ +Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.IO +Imports System.Threading + +'''Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in +'''EDOKA +'''Mit den Methoden dieser Klasse werden einerseits die angelieferten +'''Indexinformationen auf ihre Vollstndigkeit hin berprft. Im Fehlerfall werden +'''ensprechende Meldungen ausgegeben bzw. journalisiert, im OK-Fall werden die +'''entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist +'''festgehalten ob - Alle Parameter korrekt sein mssen, bevor der Dokumentimport +'''stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden +Public Class clsCheckandImport + +#Region "Deklarationen" + + '''Interne Variable fr das Property IndexData + Dim m_indexdata As DataTable + '''Datentabelle mit den Indexwerten + Property IndexData() As DataTable + Get + Return m_indexdata + End Get + Set(ByVal Value As DataTable) + m_indexdata = Value + End Set + End Property + + + '''Interne temporre Datentabelle + Dim TmpTable As DataTable + + Dim Fnkt As String = "" + Dim BarcodeImport As Boolean = False + + Dim Status_Bereit_Zur_Eingangsarchivierung As Boolean = False + Dim bckstatussequenz As Boolean = False + + Dim AvqSST As New Avaloq.SST '26.02.2014 DRO Initialisierung Avaloq-SST + +#End Region + + '''Prfung der Indexwerte + '''Sofern die Indexwerte vollstndig sind, werden die Dokumente in EDOKA + '''importiert. + ''' + ''' + Public Function CheckandImport() As Boolean + + Dim i As Integer + Fehler = 0 + + Dim hasqr As Boolean = False + Try + hasqr = Me.IndexData.Rows(0).Item("qrcode") <> "" + Catch ex As Exception + hasqr = False + End Try + + '2020-11-10 - QR-Analyse + + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "SP" Or (Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) And hasqr = True) Then + Globals.temp_indexdaten = Me.IndexData + For i = 0 To Me.IndexData.Rows.Count - 1 + + Dim bpnr As String + Dim doktypnr As String + Dim qrcode As String + Dim sendEDK As String + Dim sendAVQ As String + + Try + qrcode = CType(Me.IndexData.Rows(i).Item("qrcode"), String) + Catch ex As Exception + qrcode = "" + + End Try + + Try + bpnr = CType(Me.IndexData.Rows(i).Item("partnernr"), String) + Catch ex As Exception + bpnr = "" + End Try + + Try + doktypnr = CType(Me.IndexData.Rows(i).Item("EDK_DOKTYP"), String) + Catch ex As Exception + doktypnr = "" + End Try + + Try + sendEDK = CType(Me.IndexData.Rows(i).Item("send_edk"), String) + Catch ex As Exception + sendEDK = "" + End Try + + Try + sendAVQ = CType(Me.IndexData.Rows(i).Item("send_avq"), String) + Catch ex As Exception + sendAVQ = "" + End Try + + '20170303 - QRCode-Analyse + Dim qrbp As String = "" + Dim qrpers As String = "" + Dim qrdoktype As String = "" + Dim PersUpdate As String = "" + If qrcode.IndexOf("dms_id:;bp_nr:;attr1:") > -1 Then + qrcode = qrcode.Replace("dms_id:;bp_nr:;attr1:", "") + End If + If qrcode <> "" Then + + Dim elemente As String() = qrcode.Split(";") + For Each element As String In elemente + Dim subelemente As String() = element.Split(":") + Select Case subelemente(0) + Case "bp_nr" + qrbp = subelemente(1) + Case "pers_nr" + qrpers = subelemente(1) + Case "edk_doknr" + qrdoktype = subelemente(1) + End Select + Next + If qrdoktype <> "" Then + Dim inputline As String + FileOpen(22, (DivFnkt.ApplicationPath + "\SP_DoktypPerson.txt"), OpenMode.Input) + While Not EOF(22) + Input(22, inputline) + If inputline = qrdoktype Then + Me.IndexData.Rows(i).Item("partnernr") = qrpers + PersUpdate = " / Person aus QRCode verwendet" + End If + + End While + FileClose(22) + End If + End If + + PrintOut("Applikation: SP - Aus XML - partnernr: " + bpnr + " - edk_doktyp: " + doktypnr + " - qrcode: " + qrcode) + PrintOut("Vor AVQ") + AvqSST.Prepare(bpnr, doktypnr, qrcode, sendEDK, sendAVQ) + PrintOut("Nach AVQ") + If AvqSST.hasErrors = True Then + PrintOut("AVA hat Fehler") + End If + If bpnr = "" Then + '20170303 - QRCode-Analyse + If qrpers <> "" And PersUpdate <> "" Then + Me.IndexData.Rows(i).Item("partnernr") = qrpers + Else + Me.IndexData.Rows(i).Item(1) = AvqSST.BPNr + End If + End If + + PrintOut("Applikation: SP - Aus AVQ-SST - ind-partnernr: " + bpnr + " - avq-partnernr: " + AvqSST.BPNr + " - edk_doktyp: " + AvqSST.edkDokNr) ' + " - Errors: " + AvqSST.hasErrors) + + Save_ImportDaten(i) + + If AvqSST.DeliverToEDK = True Then + Checkdata(True, i, PersUpdate) + Else + Journal.Insert_Journal("", "", "", "", "", "Applikation: SP - Dokument soll nicht in Edoka importiert werden. BP-Nr: " + AvqSST.BPNr, "", "") + End If + + '20201114 Prfung bersteuerung AVQ-Send + 'gaga + Dim uavq As String + If AvqSST.edkDokNr Is Nothing Then + uavq = "EDKB08" + Else + uavq = AvqSST.edkDokNr.ToString + End If + If AvqSST.DeliverToAVQ = True And Uebersteuerung_AVQSend(uavq) = False Then + If AvqSST.hasErrors = False Then + AvqSST.SendData() + Else + Journal.Insert_Journal("", "", "", "", "", "Applikation: SP - konnte nicht korrekt an Avaloq gesendet werden.", "", "") + End If + Else + Journal.Insert_Journal("", "", "", "", "", "Applikation: SP - Dokument-Daten sollen nicht an Avaloq gesendet werden.", "", "") + End If + + Next + + Else + Globals.temp_indexdaten = Me.IndexData + For i = 0 To Me.IndexData.Rows.Count - 1 + Save_ImportDaten(i) + Checkdata(True, i) + Next + End If + + + 'Rel. 4.1 - QS EDKB09-SB-Import + Dim SBNr As String + Try + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + Dim s As String + Dim s1() As String + Dim cdok As New edokadb.clsDokument + Dim sdok As New edokadb.clsEdex_sb_serienbrief + Dim DokBestaetigt As Integer = 0 + Dim DokImportiert As Integer = 0 + Dim tmpdata As New DataTable + + s = Me.IndexData.Rows(0).Item("Dokumentwert2").ToString + SBNr = 0 + If s.IndexOf(";") > 1 Then + s1 = s.Split(";") + SBNr = s1(1).ToString + End If + + sdok.iSerienbriefnr = New SqlInt32(CType(SBNr, Int32)) + sdok.cpMainConnectionProvider = Globals.conn_edoka + sdok.SelectOne() + DokBestaetigt = sdok.iBestaetigt.Value + + For i = 0 To Me.IndexData.Rows.Count - 1 + cdok.sDokumentid = New SqlString(CType(Me.IndexData.Rows(i).Item("dokumentid"), String)) + cdok.cpMainConnectionProvider = Globals.conn_edoka + tmpdata.Rows.Clear() + tmpdata = cdok.SelectOne() + If tmpdata.Rows.Count = 0 Then + Else + DokImportiert = DokImportiert + 1 + End If + Next + + If DokBestaetigt <> DokImportiert Then + Journal.Insert_Journal("", "", "", "", "", "EDKB08: Dok-Import fehlerhaft SBNr " + SBNr.ToString + " Bestaetigt: " + DokBestaetigt.ToString + " Importiert: " + DokImportiert.ToString, "", "") + send_mail("edoka@tkb.ch", "EDKB08 NOK: Import fehlerhaft", "Dok-Import fehlerhaft SBNr " + SBNr.ToString + " Bestaetigt: " + DokBestaetigt.ToString + " Importiert: " + DokImportiert.ToString) + Else + Journal.Insert_Journal("", "", "", "", "", "EDKB08: Dok-Import erfolgreich SBNr " + SBNr.ToString + " Bestaetigt: " + DokBestaetigt.ToString + " Importiert: " + DokImportiert.ToString, "", "") + 'send_mail("edoka@tkb.ch", "EDKB08 OK: Import OK", "Dok-Import erfolgreich SBNr " + SBNr.ToString + " Bestaetigt: " + DokBestaetigt.ToString + " Importiert: " + DokImportiert.ToString) + End If + cdok.Dispose() + sdok.Dispose() + tmpdata.Dispose() + End If + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", "", "EDKB09: SBNr " + SBNr.ToString + " konnte nicht geprft werden.", "", "") + End Try + + End Function + + Public Function Uebersteuerung_AVQSend(ByVal doktypnr As String) As Boolean + '20201113 Prfung bersteuerung AVQ-Send + Dim uebersteuern As Boolean = False + 'PrintOut(DivFnkt.ApplicationPath + "Uebersteuerung_AVQSend.txt") + Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(DivFnkt.ApplicationPath + "Uebersteuerung_AVQSend.txt") + Try + Dim iLine As String + + Do + iLine = reader.ReadLine + 'PrintOut(iLine) + If iLine = doktypnr Then uebersteuern = True + 'PrintOut("After_Read") + Loop Until iLine Is Nothing + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", "", "Prfung auf Uebersteuerung_AVQ-Send fehlerhaft" + ex.Message, "", "") + Finally + reader.Close() + End Try + If uebersteuern Then + PrintOut("bersteuerung AVQ-Send DokTyp-Nr: " + doktypnr.ToString) + Journal.Insert_Journal("", "", "", "", "", "Uebersteuerung_AVQ-Send: " + doktypnr.ToString, "", "") + End If + Return uebersteuern + + End Function + Private Function send_mail(ByVal empfaenger As String, ByVal Subject As String, ByVal Inhalt As String) As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_sendmail" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@email", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Subject)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Inhalt)) + Try + sdaAdapter.Fill(dtToReturn) + If scmCmdToExecute.Parameters("@errorcode").Value <> 0 Then + PrintLog("Mail konnte nicht versandt werden. " + scmCmdToExecute.Parameters("@errorcode").Value, EventLogEntryType.Warning) + Return False + End If + Catch ex As Exception + 'Journal.Insert_Journal("", "", "", filename, "20", "Mail konnte nicht versandt werden." + ex.Message, "", "") + PrintLog("Mail konnte nicht versandt werden." + ex.Message, EventLogEntryType.Warning) + Return False + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + +#Region "Check_Funktionen" + + Public Sub IntSleep(Seconds As Double) + Dim sleeptime As DateTime + sleeptime = DateAdd(DateInterval.Second, Seconds, Now) + While Now < sleeptime + Thread.Sleep(10) + End While + + End Sub + + '''Prft die Indexdaten und lst ggf. den Import des Dokumentes + '''aus. + '''Die Funktion prft die Indexwerte. Sofern die Werte i.O. sind und der + '''Dokumentimport ausgelst werden kann (vgl. Parameter Dokimport) wird das + '''Dokument importiert. Im Fehlerfall wird eine Meldung protokolliert und die + '''Variable Fehler gesetzt. + '''True=Dokument importieren False=Dokument nicht + '''importieren (nur plausibilisieren) + '''Aktuelle Datarow der Tabelle Indexdata + '''True=Verarbeitung i.O. False=Verarbeitung fehlerhaft + '''Stefan Hutter + + Private Function Checkdata(ByVal DokImport As Boolean, ByVal datarow As Integer, Optional PersUpdate As String = "") As Boolean + Globals.BLScan = False + Globals.NoIndexdata = False + 'Prfung Funktion" + If Check_Funktion(UCase(Me.IndexData.Rows(datarow).Item(0))) = False Then + Fehler = 1 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Ungltige Funktion: " + Me.IndexData.Rows(datarow).Item(0), "", "") + Return False + End If + + 'Bei der Funktion "ADD" Partner prfen ggf. neuer EDOKA-Partner erfassen + If Me.Fnkt = "ADD" And Check_Partnerzuordnung(datarow) = False Then + If Me.BarcodeImport = True Then Exit Function + If Check_EDOKA_Partner_Erfassen(datarow) = False Then + Fehler = 7 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Erfassung des EDOKA-Partners ist fehlgeschlagen: " + Me.IndexData.Rows(datarow).Item(5), "", "") + Return False + End If + End If + + + 'Prfung Dokumentdaten fr die Funktionen ADD und REPL + If (Me.Fnkt = "ADD" Or Me.Fnkt = "REPL") And Check_Dokumentdaten(datarow) = False Then + If Not Me.BarcodeImport Then Return False + End If + + 'Prfung, ob entweder die EDOKA-Dokumentid oder ein eindeutiger Dokumentname als Parameter bergeben wurde + + If Me.Fnkt = "UPD" Or Me.Fnkt = "DEL" Or Me.Fnkt = "REPL" Then + 'EDOKA-Dokumentid + If Me.IndexData.Rows(datarow).Item(22) <> "" Then + If Not get_edoka_dokument(1, Me.IndexData.Rows(datarow).Item(22), datarow) Then + If Not Me.BarcodeImport Then Return False + End If + Else + 'Eindeutiger Dokumentname + If Not get_edoka_dokument(2, Me.IndexData.Rows(datarow).Item(12), datarow) Then + Return False + If Not Me.BarcodeImport Then Return False + End If + End If + End If + + 'Dokument importieren, sofern DokImport auf True gesetzt ist + If DokImport = True Then + Globals.Mitarbeiternr = Get_EDOKA_Mitarbeiter(datarow) + + Select Case UCase(Me.IndexData.Rows(datarow).Item(0)).ToString + Case "ADD" + Try + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) And Globals.BLScan = True Then + If Len(Me.IndexData.Rows(datarow).Item(3)) = 16 Then + Dokumentid = "OFFEDK" + Trim(Me.IndexData.Rows(datarow).Item(3)) + Else + 'Barcodekleber-Dokumentid + Try + Dokumentid = get_bcdokumentid(Me.IndexData.Rows(datarow).Item(3)) + Catch + End Try + End If + Dim scandokumentid As String = Dokumentid + Now.ToFileTimeUtc.ToString + blscan_verarbeiten(Dokumentid, scandokumentid, 0, datarow) + Dim dok As New edokadb.clsDokument + dok.cpMainConnectionProvider = conn_edoka + dok.sDokumentid = Dokumentid + dok.SelectOne() + dok.bBl_scan = New SqlBoolean(CType(False, Boolean)) + + Try + Try + conn_edoka.OpenConnection() + Catch + End Try + + + dok.Update() + conn_edoka.CloseConnection(True) + Catch ex As Exception + + End Try + Else + Import_Dokument(datarow) + 'Insert_Note(Dokumentid, "*** Durch EDOKA_Import in EDOKA eingefgt") + 'Anpassungen EBES_LSV + + If Me.BarcodeImport = False Or Me.BarcodeImport = True Then + Insert_Dokumentwerte(datarow) + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), IndexData.Rows(datarow).Item(11), IndexData.Rows(datarow).Item(12), "0", "Dokument erfolgreich importiert" + PersUpdate, Dokumentid, "") + End If + End If + + Me.BarcodeImport = False + Catch ex As Exception + Fehler = -17 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), IndexData.Rows(datarow).Item(11), IndexData.Rows(datarow).Item(12), "-17", "Fehler beim Dokumentimport: " + ex.Message, Dokumentid, "") + End Try + Case "DEL" + Delete_Dokument(datarow) + Case "UPD" + Update_Dokumentwerte(datarow) + Case "REPL" + Replace_Dokument(datarow) + End Select + End If + IntSleep(0.5) + End Function + + Private Function blscan_verarbeiten(ByVal dokumentid As String, ByVal scandokumentid As String, ByVal ersteller As Integer, datarow As Integer) As Integer + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_insert_blscan" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scandokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, scandokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@ersteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ersteller)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@filename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(12))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stapelnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item("STAPELKENNUNG"))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@nreintrag", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Dim nreintrag As Integer = scmCmdToExecute.Parameters("@nreintrag").Value + DivFnkt.Save_blscan_To_DB(nreintrag, Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12)) + Catch ex As Exception + Fehler = 900 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), IndexData.Rows(datarow).Item(11), IndexData.Rows(datarow).Item(12), "-17", "Eintrag BL-Scan konnte nicht erstellt werden: " + ex.Message, dokumentid, "") + Catch + conn_edoka.CloseConnection(True) + End Try + + End Function + '''Importiert ein Dokument nach EDOKA + '''Gltige Werte sind: ADD, UPD, REPL, DEL + '''True = Import erfolgreich$EOL$ + '''False = Import fehlgeschalgen + Private Function Check_Funktion(ByVal Fnkt As String) As Boolean + Me.Fnkt = "" + Me.Fnkt = Fnkt + Select Case UCase(Fnkt) + Case "ADD" + Return True + Case "DEL" + Return True + Case "REPL" + Return True + Case "UPD" + Return True + Case Else + Me.Fnkt = "" + Return False + End Select + End Function + + '''Prfung der Partnerzuordnung + '''Mit der Funktion wird abhngig vom angelieferten Wert die + '''Partnerzuordungen zu einem bestehenden Partner in EDOKA berprft. + ''' + '''Input Partnernummer + '''Direkter Zugriff auf die Tabelle Partner mittels Partnernr + ''' + '''Input VV-Nr: + '''Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die + '''Partnernummer gefunden wird, diese in der Datentabelle nachfhren + ''' + '''Input: Barcode-ID: + '''Zugriff auf die Partnernummer ber die Tabelle Dokument mit der + '''geliefertenen EDOKA-BarcodeID + ''' + '''Input: KST: + '''Zugriff ber die Kostenstelle auf den EDOKA-Partner + '''Aktuelle Datenzeile in der Tabelle Indexdata + '''True=Partnerzuordnung i.O. + '''False=Partnerzuordnung nicht i.O. + '''Checkdata + Private Function Check_Partnerzuordnung(ByVal datarow As Integer) As Boolean + '20200426 Anpassung Vitruv Punkt in Partnernr + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "VITRUV" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "DIMENSIONS" Then + Dim tmppnr As String + tmppnr = Me.IndexData.Rows(datarow).Item(1).ToString + If tmppnr.IndexOf(".") > -1 Then + tmppnr = tmppnr.Replace(".", "") + Me.IndexData.Rows(datarow).Item(1) = tmppnr + End If + End If + 'Zugriff ber Partnernr + '20121009 - Erweiterung abfrage aufgrund neuem UVM-Release (3. AND - ITEM 3 - BarcodeID = "") + Try + If Me.IndexData.Rows(datarow).Item(1) <> "" And Me.IndexData.Rows(datarow).Item(1) <> "91001634" And Me.IndexData.Rows(datarow).Item(3) = "" Then 'MNK 20090820 -> Erweiterung PMS Reports + Dim p As New edokadb.clsPartner() + Try + p.cpMainConnectionProvider = conn_edoka + Try + p.iNRPAR00 = New SqlInt32(CType(Me.IndexData.Rows(datarow).Item(1), Int32)) + Catch ex As Exception + Fehler = 3 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", "", Fehler, "Partnerzuordnung Partner: " + Me.IndexData.Rows(datarow).Item(1) + " in EDOKA nicht vorhanden.", "", "") + Return False + End Try + Me.TmpTable = p.SelectOne() + If TmpTable.Rows.Count = 0 Then + Fehler = 3 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", "", Fehler, "Partnerzuordnung Partner: " + Me.IndexData.Rows(datarow).Item(1) + " in EDOKA nicht vorhanden.", "", "") + Return False + Else + Return True + End If + Catch + Finally + p.Dispose() + End Try + End If + Catch + If Me.IndexData.Rows(datarow).Item(1) <> 0 And Me.IndexData.Rows(datarow).Item(3) = "" Then + Dim p As New edokadb.clsPartner() + Try + p.cpMainConnectionProvider = conn_edoka + p.iNRPAR00 = New SqlInt32(CType(Me.IndexData.Rows(datarow).Item(1), Int32)) + Me.TmpTable = p.SelectOne() + If TmpTable.Rows.Count = 0 Then + Fehler = 3 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", "", Fehler, "Partnerzuordnung Partner: " + Me.IndexData.Rows(datarow).Item(1) + " in EDOKA nicht vorhanden.", "", "") + Return False + Else + Return True + End If + Catch + Finally + p.Dispose() + End Try + End If + + End Try + + 'Zugriff ber VV-Bestand + 'MNK 20090820 - Erweiterung der Logik, damit PMS Reports korrekt verabeitet werden + If Me.IndexData.Rows(datarow).Item(2) <> "" Or Me.IndexData.Rows(datarow).Item(1) = "91001634" Then + Dim v As New edokadb.clsVV() + Dim vvTemp As String + Dim vvTempArr() As String + Dim vv As String + Dim i As Integer + vv = "" + 'VV-Nummer aufbereiten + + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "PMS" Then + vv = "" + vvTemp = "" + vvTemp = Me.IndexData.Rows(datarow).Item(28) + vvTempArr = vvTemp.Split(";") + If vvTempArr.Length = 2 Then + vv = vvTempArr(1) + vv = Replace(vv, ".", "") + End If + Else + + For i = 1 To Microsoft.VisualBasic.Len(IndexData.Rows(datarow).Item(2)) + If Mid(IndexData.Rows(datarow).Item(2), i, 1) = "0" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "1" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "2" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "3" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "4" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "5" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "6" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "7" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "8" Or + Mid(IndexData.Rows(datarow).Item(2), i, 1) = "9" Then + vv = vv + Mid(IndexData.Rows(datarow).Item(2), i, 1) + End If + Next + + End If + While Len(vv) < 12 + vv = "0" + vv + End While + 'While Len(vv) < 16 + 'vv = "0" + vv + 'End While + Try + Dim pnr As Integer + 'MNK 20090820 - Prfung vv + If IsNumeric(vv) Then + pnr = Get_VVPartner(vv) + End If + + 'MNK 20090820 - Prfung ob vv gefunden ansonsten generischen BP belassen + If pnr = 0 And Me.IndexData.Rows(datarow).Item(1) <> "91001634" Then + Fehler = 4 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Partnerzuordnung ber VV-NR: " + Me.IndexData.Rows(datarow).Item(2) + " Keine VV-Beziehung in EDOKA vorhanden.", "", "") + Return False + Else + If pnr = 0 And Me.IndexData.Rows(datarow).Item(1) = "91001634" Then + 'nothing else todo + Return True + Else + Me.IndexData.Rows(datarow).Item(1) = pnr + Return True + End If + End If + Catch + Finally + v.Dispose() + End Try + End If + + 'Zugriff ber BarcodeID + Me.BarcodeImport = False + If Me.IndexData.Rows(datarow).Item(3) <> "" Then Me.BarcodeImport = True + Dim DokID As String = "" + If Me.IndexData.Rows(datarow).Item(3) <> "" Then + If Len(Me.IndexData.Rows(datarow).Item(3)) = 16 Then + DokID = "OFFEDK" + Trim(Me.IndexData.Rows(datarow).Item(3)) + Else + 'Barcodekleber-Dokumentid + Try + DokID = get_bcdokumentid(Me.IndexData.Rows(datarow).Item(3)) + Catch + End Try + End If + Dim d As New edokadb.clsDokument() + Try + d.cpMainConnectionProvider = conn_edoka + d.sDokumentid = New SqlString(CType(DokID, String)) + Me.TmpTable = d.SelectOne + If Me.TmpTable.Rows.Count = 0 Then + Fehler = 5 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Partnerzuordung ber BarcodeID: " + Me.IndexData.Rows(datarow).Item(3) + " Dokument in EDOKA nicht vorhanden.", "", "") + Return False + Else + If Not Check_Dokumentwert(Me.IndexData.Rows(datarow).Item(3), datarow, DokID) Then + '20200526 - Korrektur Dokumentwerte + Try + If korr_coldindex(DokID) = False Then + Fehler = 6 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokument kann nicht importiert werden - keine Dokumentwerte: " + Me.IndexData.Rows(datarow).Item(3) + ".", "", "") + Return False + Else + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokumentwerte wurden hinzugefgt: " + Me.IndexData.Rows(datarow).Item(3) + ".", "", "") + If Not Check_Dokumentwert(Me.IndexData.Rows(datarow).Item(3), datarow, DokID) Then + Fehler = 60 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokument kann nicht importiert werden - keine Dokumentwerte: " + Me.IndexData.Rows(datarow).Item(3) + ".", "", "") + Return False + End If + End If + Catch ex As Exception + Fehler = 61 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Fehler bei Prfung der Dokumentwerte: " + Me.IndexData.Rows(datarow).Item(3) + ".", "", "") + Return False + End Try + + End If + Me.IndexData.Rows(datarow).Item(1) = d.iNrpar00.Value + Me.BarcodeImport = True + Return True + End If + Catch ex As Exception + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Partnerzuordung ber BarcodeID: " + Me.IndexData.Rows(datarow).Item(3) + " Dokument in EDOKA nicht vorhanden." + ex.Message, "", "") + Finally + d.Dispose() + End Try + End If + + If Me.IndexData.Rows(datarow).Item(4) <> "" Then + Fehler = 6 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Partnerzuordnung ber KST ist noch nicht implementiert.", "", "") + Return False + End If + End Function + 'CANON: Prfung auf wieder bearbeitete Dokumente - Indextyp - was ist 4, was ist 6 usw.`? + Private Function Check_Dokumentwert(ByVal barcodenr As String, ByVal datarow As Integer, ByVal DOKUMENTID As String) As Boolean + Globals.NoIndexdata = False + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_coldindexwert" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DOKUMENTID)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@coldindexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 10)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Select Case scmCmdToExecute.Parameters("@wert").Value.ToString + Case "-1" + Globals.NoIndexdata = True + Globals.BLScan = False + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Dim doc As New edokadb.clsDokument + doc.cpMainConnectionProvider = Globals.conn_edoka + doc.sDokumentid = New SqlString(CType(DOKUMENTID, String)) + doc.SelectOne() + If doc.bBl_scan = True Then + Globals.BLScan = True + Return True + + Else + Return False + End If + End If + Fehler = 204 + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(11), "", Me.IndexData.Rows(datarow).Item(12), "204", "Barcodeimport:Dokument kann nicht importiert werden, da keine Indexwerte fr den Import vorhanden sind.", "OFFEDK" + barcodenr, "") + Return False + Case "" + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Dim doc As New edokadb.clsDokument + doc.cpMainConnectionProvider = Globals.conn_edoka + doc.sDokumentid = New SqlString(CType(DOKUMENTID, String)) + doc.SelectOne() + If doc.bBl_scan = True Then + Globals.BLScan = True + End If + Return True + End If + + Return True + Case Else + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Dim doc As New edokadb.clsDokument + doc.cpMainConnectionProvider = Globals.conn_edoka + doc.sDokumentid = New SqlString(CType(DOKUMENTID, String)) + doc.SelectOne() + If doc.bBl_scan = True Then + Globals.BLScan = True + End If + Return True + End If + Fehler = 205 + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(11), "", Me.IndexData.Rows(datarow).Item(12), "205", "Barcodeimport:Ein Dokument wurde bereits importiert oder eingescant.", "OFFEDK" + barcodenr, "") + Return False + End Select + Catch ex As Exception + Printout("clsCheckandImport.Check_Dokumentwert()" + ex.Message, EventLogEntryType.Error) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + + End Function + + Private Function get_bcdokumentid(ByVal BCKNr As Integer) As String + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_get_dokid_BCK" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@bcknr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, BCKNr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokid", SqlDbType.VarChar, 22, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Return scmCmdToExecute.Parameters("@dokid").Value + Catch ex As Exception + PrintOut("clsCheckandImport.get_bcdokumentid()" + ex.Message, EventLogEntryType.Error) + Return "" + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + Private Function korr_coldindex(ByVal dokumentid As String) As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_korrektur_insert_coldindex" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Return True + Catch ex As Exception + Return False + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + Private Function Get_VVPartner(ByVal nevvg00 As String) As Integer + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_get_vvPartner" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@nevvg00", SqlDbType.VarChar, 16, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nevvg00)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Return scmCmdToExecute.Parameters("@nrpar00").Value + Catch ex As Exception + PrintOut("clsCheckandImport.Get_VVParnter()" + ex.Message, EventLogEntryType.Error) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + + End Function + + '''Prft, ob alle Werte fr eine EDOKA_Partner-Erfasssung vorhanden sind. + '''Wenn dies der Fall ist, wird ein neuer EDOKA-Partner erffnet + '''Sofern gengend Informationen fr die Partnererffnung vorhanden sind, + '''wird ein EDOKA-Partner erffnet. Nach dem Insert in der Datenbank wird durch die + '''DB die berprfung auf eine allfllige Partnerzusammenlegung + '''ausgelst. + '''Aktuelle Datenzeile des Import-Programmes + '''True = EDOKA-Partner erffnet + '''False = Daten zur Erffnung des EDOKA-Partners sind + '''unvollstndig + '''Stefan Hutter + '''Checkdata + Private Function Check_EDOKA_Partner_Erfassen(ByVal datarow As Integer) As Boolean + Dim dbkey As New edokadb.clsMyKey_Tabelle() + Dim Partner As New edokadb.clsPartner() + Dim key As Long + + Try + If Me.IndexData.Rows(datarow).Item(5) = "" And _ + Me.IndexData.Rows(datarow).Item(6) = "" And _ + Me.IndexData.Rows(datarow).Item(8) = "" And _ + Me.IndexData.Rows(datarow).Item(9) = "" And _ + Me.IndexData.Rows(datarow).Item(10) = "" Then + Return False + End If + + If Me.IndexData.Rows(datarow).Item(5) = "" Then + Return False + End If + + dbkey.cpMainConnectionProvider = conn_edoka + key = dbkey.get_dbkey("Interessent") + Partner.cpMainConnectionProvider = conn_edoka + + Partner.sBKPAR00 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(5), String)) + Partner.sBEBAN012 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(10), String)) + Partner.sTXADZ012 = New SqlString(CType("", String)) + Partner.sTXADZ022 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(7), String)) + Partner.sTXADZ032 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(6), String)) + Partner.sTXADZ042 = New SqlString(CType("", String)) + Partner.sTXADZ052 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(8), String)) + Partner.sTXADZ062 = New SqlString(CType("", String)) + Partner.sTXADZ072 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(9), String)) + Partner.sTXADZ011 = New SqlString(CType("", String)) + Partner.sTXADZ021 = New SqlString(CType("", String)) + Partner.sBEBAN011 = New SqlString(CType("", String)) + + Partner.sTXADZ011 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(6) + " " + Me.IndexData.Rows(datarow).Item(7), String)) + Partner.sTXADZ021 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(8), String)) + Partner.sTXADZ031 = New SqlString(CType(Me.IndexData.Rows(datarow).Item(9) + " " + Me.IndexData.Rows(datarow).Item(10), String)) + Partner.sTXADZ041 = New SqlString(CType("", String)) + Partner.sTXADZ051 = New SqlString(CType("", String)) + Partner.sTXADZ061 = New SqlString(CType("", String)) + Partner.sTXADZ071 = New SqlString(CType("", String)) + 'Pendenz: Mitarbeiternr der Applikation + Partner.iNRFOG012 = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + Partner.sTSMUT00 = New SqlString(CType(Now, String)) + + Partner.sNRADR00 = New SqlString(CType("", String)) + Partner.iNRPAR00 = New SqlInt32(CType(key, Int32)) + conn_edoka.OpenConnection() + Partner.Insert() + conn_edoka.CloseConnection(True) + Me.IndexData.Rows(datarow).Item(1) = Partner.iNRPAR00.Value + Journal.Insert_Journal(datarow, Partner.iNRPAR00.Value.ToString, "", Me.IndexData.Rows(datarow).Item(12), "0", "EDOKA-Partner erffnet.", "", "") + Return True + Catch ex As Exception + Journal.Insert_Journal(datarow, Partner.iNRPAR00.Value.ToString, "", Me.IndexData.Rows(datarow).Item(12), "0", "EDOKA-Partner nicht erffnet." + ex.Message, "", "") + Return False + Finally + dbkey.Dispose() + Partner.Dispose() + End Try + End Function + + '''Prft die dokumentspezifischen Werte und das Vorhandensein des + '''physischen Dokumentes + '''Die Verarbeitung prft folgende Elemente im Bereich der angelieferten + '''Dokumente: + ''' + ''' + '''Gltiges Dokumentformant (DOC, XLS, TIF, PDF, + '''JPG + ''' + '''Vorhandensein des Dokumentes im + '''Importverzeichnis + ''' + '''Dokumenttyp + '''Zeile in der Tabelle Indexdata + '''True=Dokumentwerte i.O. + '''False=Dokumentwerte nicht i.O. + '''Stefan Hutter + '''Checkdata + Private Function Check_Dokumentdaten(ByVal datarow As Integer) As Boolean + 'Prfung Dateityp + If UCase(Me.IndexData.Rows(datarow).Item(13)) <> "DOC" And _ + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "XLS" And _ + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "PDF" And _ + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "TIF" And _ + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "JPG" And _ + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "" Then + If Not Me.BarcodeImport Then + Fehler = 9 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Ungltiges Dateiformat: " + Me.IndexData.Rows(datarow).Item(13), "", "") + Return False + End If + End If + + 'Prfung physische Datei + If Not File.Exists(Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12)) Then + Fehler = 10 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Datei : " + Me.IndexData.Rows(datarow).Item(12) + " ist nicht vorhanden", "", "") + Return False + End If + + '20050925 - Prfung, wenn Herkunftsapplikation 'EDKB09 ist, dann ist der Doktyp i.O. + If Globals.Herkunftsapplikation.Rows(0).Item(1) <> "EDKB09" Then + 'Prfung Dokumenttyp + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_Check_Dokumenttyp" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(11))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@applid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Herkunftsapplikation.Rows(0).Item(0))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@DoktypIO", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + If scmCmdToExecute.Parameters("@doktypio").Value = 0 Then + If Me.BarcodeImport = False Then + Fehler = 11 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokumenttyp: " + Me.IndexData.Rows(datarow).Item(11) + " ist nicht definiert.", "", "") + Return False + Else + Return True + End If + Else + Return True + End If + Catch ex As Exception + PrintOut("clsCheckandImport.Check_Dokumentdaten()" + ex.Message, EventLogEntryType.Error) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + Else + Return True + End If + + 'Prfung Archivreferenz + If Me.IndexData.Rows(datarow).Item(21) <> "" Then + If Not Check_For_Numeric_Format(Me.IndexData.Rows(datarow).Item(21), True) Then + Fehler = 12 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Archivreferenz: " + Me.IndexData.Rows(datarow).Item(21) + " ist nicht numerisch", "", "") + Return False + End If + End If + End Function + + Private Function Check_For_Numeric_Format(ByVal C_S As String, ByVal allownothing As Boolean) As Boolean + Dim Var_Loop, Var_Len As Integer + If C_S = "" Then + If allownothing = True Then Return True + Return False + End If + Var_Len = Len(C_S) + C_S = LCase(C_S) + For Var_Loop = 1 To Var_Len + If Mid(C_S, Var_Loop, 1) < Chr(48) Or Mid(C_S, Var_Loop, 1) > Chr(57) Then + Return False + End If + Next + Return True + End Function + + '''Notiz zu einem Dokument hinzufgen + '''Fhgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz + '''hinzu + '''Aktuelle Dokumentid + '''Meldung / Notiz + Private Sub Insert_Note(ByVal dokumentid As String, ByVal meldung As String) + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Connection.Open() + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + 'MsgBox(ex.Message) + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Connection.Close() + scmCmdToExecute.Dispose() + End Try + End Sub + +#End Region + +#Region "Herkunftsapplikation" + '''Auslesen der Daten "Herkunftsapplikation" und in der internen Variable + '''Herkunftsapplikationen zwischenspeichern + Public Function Herkunftsapplikationen_auslesen() As Boolean + + Dim ApplFound As Boolean = False + Dim i As Integer + For i = 0 To Me.IndexData.Rows.Count - 1 + If Get_Herkunftsapplikation(i) = True Then + Return True + End If + Next + Fehler = 100 + Journal.Insert_Journal("", "", "", "", Fehler, "Herkunftsapplikation kann nicht zugeordnet werden", "", "") + Return False + End Function + + '''Auslesen der Herkunftsapplikation anhand des Dokumenttyps + '''Aktueller Datensatz aus den Indexdaten + '''"" = Herkunftsapplikation nicht vorhanden$EOL$ + '''"[Bezeichnung] = Herkunftsapplikation vorhanden + '''Herkuftsapplikation_auslesen + Private Function Get_Herkunftsapplikation(ByVal i As Integer) As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_Get_Herkunftsapplikation" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + + 'scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(11))) + 'scmCmdToExecute.Parameters.Add(New SqlParameter("@InputAppl", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(17))) + + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item("Dokumenttypnr"))) + Catch + scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item(11))) + End Try + + scmCmdToExecute.Parameters.Add(New SqlParameter("@InputAppl", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(i).Item("Herkunftsapplikation"))) + + Try + sdaAdapter.Fill(dtToReturn) + If dtToReturn.Rows.Count = 0 Then + Fehler = 110 + Journal.Insert_Journal(i, "", "", "", Fehler, "Herkunftsapplikation: " + Me.IndexData.Rows(i).Item(11) + " ist nicht definiert.", "", "") + Return False + Else + Globals.Herkunftsapplikation = dtToReturn + Return True + End If + Catch ex As Exception + PrintOut("clsCheckandImport.Get_herkunfstapplikation()" + ex.Message, EventLogEntryType.Error) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + + End Function + + +#End Region + +#Region "Import" + + + Dim Dokumentid As String + Dim dokumenttypnr As Integer + '''Importiert ein Dokument nach EDOKA + '''Mit dem Dokumentimport werden folgende Tabellenentrge erstellt: $EOL$ + ''' + ''' + '''$EOL$ $EOL$ Tabelle + '''$EOL$ Beschreibung + ''' + '''$EOL$ $EOL$ Dokument + '''$EOL$ Dokumentbeschreibung + ''' + '''$EOL$ $EOL$ Dokumentstatus + '''$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis + '''zum ersten archivierungs-relevanten Status gesetzt. $EOL$ + ''' + '''$EOL$ + '''Bei der Verarbeitung eines Dokumentes mit Barcodeid, werden die + '''bestehenden Dokumentinformationen in der Tabelle Dokument erweitert und die + '''Tabelle Import_Barcode ergntzt, damit die Batchverarbeitung EDKB02 das Handling + '''fr diese Dokumente korrekt vornehmen kann. + ''' + '''$EOL$ $EOL$ Dokumentcoldindexwert + '''$EOL$ Tabelle mit den COLD-relevanten + '''Indexinformationen + ''' + '''$EOL$ $EOL$ Dokumentwerte + '''$EOL$ Tabelle mit den individuellen + '''Dokumentwerten + ''' + '''$EOL$ $EOL$ Notizen + '''$EOL$ Notiz, dass das Dokument ber die Import-Schnittstelle im + '''EDOKA eingefgt wurde + '''Aktuelle Zeile der Indexdatei + '''True = Import erfolgreich $EOL$ + '''False = Import fehlgeschalgen + Private Function Import_Dokument(ByVal datarow As Integer) As Boolean + + ' Wenn OK, an den Schluss kopieren + 'EDKB09 + 'If IndexData.Rows(datarow).Item("DokumentidBdr") <> "" Then + ' Insert_Bedingte_Retournierung(datarow) + 'End If + + '20200420' + Globals.ImportPraefix = "EDKIMP" + Globals.Fehlermeldung = "" + Status_Bereit_Zur_Eingangsarchivierung = False + + 'Physisches Dokument in die Datenbank laden + If Me.BarcodeImport = True Then + 'Canon + Globals.ImportPraefix = "EDKIMP" + Globals.ImportPraefix_Canon_Nr = 0 + 'Barcodedokument + + If Len(Me.IndexData.Rows(datarow).Item(3)) = 16 Then + Dokumentid = "OFFEDK" + Trim(Me.IndexData.Rows(datarow).Item(3)) + Else + 'Barcodekleber-Dokumentid + Try + Dokumentid = get_bcdokumentid(Me.IndexData.Rows(datarow).Item(3)) + Catch + End Try + End If + + Dim sdokid As String + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Get_Praefix(Dokumentid, datarow) + Globals.CurrentTS = Now.ToFileTime + Globals.CurrentTS = "" + + 'Globals.ImportPraefix = "CAN" + Else + Globals.CurrentTS = "" + End If + sdokid = Dokumentid + Globals.CurrentTS + sdokid = sdokid.Replace("OFFEDK", Globals.ImportPraefix) + If Not Dokument_in_DB_Sichern(sdokid, datarow) Then + Return False + End If + + 'Dokumentid = "OFFEDK" + Me.IndexData.Rows(datarow).Item(3) + Dim dt As New DataTable() + Dim dd As New edokadb.clsDokument() + dd.cpMainConnectionProvider = Globals.conn_edoka + dd.sDokumentid = New SqlString(CType(Dokumentid, String)) + dd.SelectOne() + 'Import BC-Dokument 20050426 + dd.daDatum_eingangsarchivierung = New SqlDateTime(CType(Now, DateTime)) + Try + dd.iStatus_edoka_batch_eingang = New SqlInt32(CType(1, Int32)) + Catch + End Try + Try + conn_edoka.OpenConnection() + Catch + End Try + dd.Update() + Try + conn_edoka.CloseConnection(True) + Catch + End Try + + 'Dokumentid nachfhren + 'Prfung, ob Indextyp 2 vorhanden ist und nachfhren des Wertes der Dokumentid + 'zudem einen Eintrag in der Tabelle insert_fa_bcimport vornehmen, damit eine entsprechende Ausgangsarchivierung + 'des Dokumentes stattfinden kann. + 'in EDKB02 wird das Dokument ausgangsarchiviert und nach dessen Retourmeldung von AGI-COLD als eingangsarchiviert + 'gekennzeichnet und dementsprechend weiter verarbeitet + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 10, sdokid) + If Me.IndexData.Rows(datarow).Item(21) <> "" Then + If IsNumeric(Me.IndexData.Rows(datarow).Item(21)) Then + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 11, Me.IndexData.Rows(datarow).Item(21)) + End If + End If + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 11, Me.IndexData.Rows(datarow).Item("Stapelkennung")) + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 13, Me.IndexData.Rows(datarow).Item("ersteller")) + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 14, Me.IndexData.Rows(datarow).Item("ersteller")) + End If + + + insert_fa_bcimport(Dokumentid, datarow, Me.IndexData.Rows(datarow).Item(13)) + Update_FANummer_Barcodeimport(datarow) + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), "", Me.IndexData.Rows(datarow).Item(12), "0", "BarcodeImport erfolgreich", Dokumentid, "") + + Try + 'Rel. 4.1 Gelschtes oder aufgehobenes Dokument + Dim ds As New edokadb.clsDokument_status + ds.cpMainConnectionProvider = Globals.conn_edoka + ds.iDokument_statusnr = New SqlInt32(CType(dd.iStatusnr.Value, SqlInt32)) + ds.SelectOne() + If dd.bAktiv.Value = False Or ds.iStatus_bezeichnungnr.Value = -3 Then + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), "", Me.IndexData.Rows(datarow).Item(12), "0", "Dokument bereits gelscht/aufgehoben", Dokumentid, "") + '20200508 - Keine Meldung mehr + 'If Globals.Herkunftsapplikation.Rows(0).Item("Reserve_1").ToString <> "" Then + ' send_deleted_mail(Globals.Herkunftsapplikation.Rows(0).Item("Reserve_1").ToString, Dokumentid) + 'End If + End If + ds.Dispose() + Catch ex As Exception + End Try + + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Dim ms As New edokadb.clsMehrfachscann + Dim dbkey As New edokadb.clsMyKey_Tabelle() + Dim key As Long + dbkey.cpMainConnectionProvider = conn_edoka + key = dbkey.get_dbkey("mehrfachscann") + ms.iNreintrag = New SqlInt32(CType(key, Int32)) + ms.daMutationsdatum = New SqlDateTime(CType(Now, DateTime)) + ms.sColddokumentid = New SqlString(CType(sdokid, String)) + ms.sStapelnr = New SqlString(CType(Me.IndexData.Rows(datarow).Item("STAPELKENNUNG"), String)) + ms.iStatus = New SqlInt32(CType(0, Int32)) + ms.daStatusdatum = New SqlDateTime(CType(Now, DateTime)) + ms.iMandantnr = New SqlInt32(CType(1, Int32)) + ms.bAktiv = New SqlBoolean(CType(True, Boolean)) + ms.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) + ms.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) + + ms.iMutierer = New SqlInt32(CType(9999, Int32)) + ms.sDokumentid = New SqlString(CType(Dokumentid, String)) + ms.cpMainConnectionProvider = conn_edoka + Try + conn_edoka.OpenConnection() + Catch ex As Exception + + End Try + ms.Insert() + conn_edoka.CloseConnection(True) + + '20200429 - Prfung auf Null-Value + If dd.bBl_scan.IsNull Then + Return True + End If + + If dd.bBl_scan.Value = True Then + dd.bBldossier = New SqlBoolean(CType(True, Boolean)) + Try + conn_edoka.OpenConnection() + Catch + End Try + dd.Update() + Try + conn_edoka.CloseConnection(True) + Catch + End Try + + End If + End If + + Return True + Else + 'Dokumentid auslesen + ' If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "FinFox" Then + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "FinFox" Then + + Dokumentid = Me.IndexData.Rows(datarow).Item("Dokumentid") + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "FinFox" And Dokumentid = "" Then Dokumentid = Globals.DivFnkt.Generate_Key + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" And Dokumentid = "" Then Dokumentid = Globals.DivFnkt.Generate_Key + Else + Dokumentid = Globals.DivFnkt.Generate_Key + End If + End If + + 'EDOKA-Dokumenttyp auslesen + bckstatussequenz = False + Dim dokumenttyp As New edokadb.clsDokumenttyp() + + Dim hasqr As Boolean = False + Try + hasqr = Me.IndexData.Rows(0).Item("qrcode") <> "" + Catch ex As Exception + hasqr = False + End Try + + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + dokumenttyp.iDokumenttypnr = New SqlInt32(CType(IndexData.Rows(datarow).Item("Dokumenttypnr"), Int32)) + ElseIf Globals.Herkunftsapplikation.Rows(0).Item(1) = "SP" Or (Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) And hasqr) Then + If AvqSST.edkDokTypOvr = True Then + dokumenttyp.iDokumenttypnr = New SqlInt32(CType(AvqSST.edkDokNr, Int32)) + Else + dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Get_EDOKA_Dokumenttypnr(datarow), Int32)) + End If + Else + dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Get_EDOKA_Dokumenttypnr(datarow), Int32)) + End If + + If dokumenttyp.iDokumenttypnr.Value = 0 Then + Exit Function + Else + dokumenttyp.cpMainConnectionProvider = conn_edoka + dokumenttyp.SelectOne() + End If + + If dokumenttyp.bDokument_wird_erstellt.Value = False Then + If dokumenttyp.bDokument_wird_retourniert.Value = True Then + Me.bckstatussequenz = True + End If + End If + + '20060319 - SHU / Spezielles Handling Finfox + If dokumenttyp.bDokument_wird_erstellt.Value = True Then + If dokumenttyp.bDokument_wird_retourniert.Value = True And UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) <> "FINFOX" And UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) <> "EDKB09" Then + If IndexData.Rows(datarow).Item(3) = "" Then Me.bckstatussequenz = True + End If + End If + + + 'Dokument erstellen + Dim dok As New edokadb.clsDokument() + dok.cpMainConnectionProvider = conn_edoka + dok.sDokumentid = New SqlString(CType(Dokumentid, String)) + + '***************************************************************************************************************3 + 'Defaultwerte fr das Dokument + '***************************************************************************************************************3 + dok.bAktiv = New SqlBoolean(True) + dok.bAmsdokument = New SqlBoolean(CType(False, Boolean)) + dok.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean)) + dok.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean)) + dok.iStatus_edoka_batch_ausgang = Nothing + dok.daTermin = New SqlDateTime(CType("01.01.1900", DateTime)) + dok.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean)) + dok.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean)) + dok.bGesperrt = New SqlBoolean(CType(False, Boolean)) + dok.bUnvollstaendig = New SqlBoolean(CType(False, Boolean)) + dok.iBck = New SqlInt32(CType(1, Int32)) + dok.iColdstatus = New SqlInt32(CType(0, Int32)) + dok.iUnterschriftlinks = New SqlInt32(CType(0, Int32)) + dok.iUnterschriftrechts = New SqlInt32(CType(0, Int32)) + dok.iVerantwortlich = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dok.bVertraulich = New SqlBoolean(CType(False, Boolean)) + dok.sZustelladresse = New SqlString(CType("", String)) + dok.sAnredezustelladresse = New SqlString(CType("", String)) + dok.iZustaendiger = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dok.iPostzustellung = New SqlInt32(CType(0, Int32)) + dok.bZustaendig_kube = New SqlBoolean(CType(0, Boolean)) + dok.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32)) + dok.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32)) + dok.sBemerkung = New SqlString(CType("", String)) + dok.sColddokumentid = New SqlString(CType("", String)) + dok.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32)) + dok.sBedRDokumentid = New SqlString(CType("", String)) + + '***************************************************************************************************************3 + 'Werte aus Dokumenttyp + '***************************************************************************************************************3 + dok.iDokumenttypnr = New SqlInt32(CType(dokumenttyp.iDokumenttypnr.Value, Int32)) + dok.bZu_retournieren = New SqlBoolean(CType(dokumenttyp.bZu_retournieren.Value, Boolean)) + dok.iAufbewahrung_elektronisch = New SqlInt32(CType(dokumenttyp.iAufbewahrungsfrist_elektronisch.Value, Int32)) + dok.iAufbewahrung_phaysisch = New SqlInt32(CType(dokumenttyp.iAufbewahrungsfrist_physisch.Value, Int32)) + dok.iBearbeitung_nach_abschluss = New SqlInt32(CType(dokumenttyp.iTage_mutation.Value, Int32)) + dok.iBearbeitungszeit_in_minuten = New SqlInt32(CType(dokumenttyp.iDbearbeitungszeit.Value, Int32)) + dok.iMonierung_in_tagen = New SqlInt32(CType(dokumenttyp.iAnzahl_tage.Value, Int32)) + dok.sBezeichnung = New SqlString(CType(dokumenttyp.sBezeichnung.Value, String)) + + + '***************************************************************************************************************3 + 'Antworttalon mit QRCode + '***************************************************************************************************************3 + hasqr = False + Try + hasqr = Me.IndexData.Rows(0).Item("qrcode") <> "" + Catch ex As Exception + hasqr = False + End Try + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "SP" Or (Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) And hasqr = True) Then + + 'If AvqSST.edkDokTypOvr = True Then + 'dok.iDokumenttypnr = New SqlInt32(CType(AvqSST.edkDokNr, Int32)) 'DRO 03.11.14 + 'dokumenttyp.iDokumenttypnr = New SqlInt32(CType(AvqSST.edkDokNr, Int32)) + 'dokumenttyp.cpMainConnectionProvider = conn_edoka + 'dokumenttyp.SelectOne() + + 'dok.sBezeichnung = dokumenttyp.sBezeichnung.Value + 'End If + If AvqSST.edkDokTypOvr = False Then + dok.sBezeichnung = AvqSST.edkDokBezeichnung + End If + + End If + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "BILAOUT" Then + dok.sBezeichnung = New SqlString(CType(IndexData.Rows(datarow).Item("Bezeichnung"), String)) + End If + '***************************************************************************************************************3 + 'VITRUV + '***************************************************************************************************************3 + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "VITRUV" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "DIMENSIONS" Then + Dim pref As String = "" + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "VITRUV" Then pref = " V" + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "DIMENSIONS" Then pref = " WD" + Dim bez As String + Try + bez = dok.sBezeichnung.Value + pref + IndexData.Rows(datarow).Item("KATASTER").ToString + " " + IndexData.Rows(datarow).Item("Ort").ToString + Catch + bez = dok.sBezeichnung.Value + pref + IndexData.Rows(datarow).Item("Ort").ToString + End Try + + dok.sBezeichnung = New SqlString(CType(bez, String)) + End If + + '***************************************************************************************************************3 + 'LSV + '***************************************************************************************************************3 + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "IRIS_FORMS_LSV" Then + Dim lsvid As String = "" + For i As Integer = 10 To IndexData.Columns.Count - 1 + If Left(IndexData.Rows(datarow).Item(IndexData.Columns(i).ColumnName), 6) = "LSV-ID" Then + lsvid = IndexData.Rows(datarow).Item(IndexData.Columns(i).ColumnName) + If Len(lsvid) > 7 Then lsvid = Right(lsvid, Len(lsvid) - 7) + End If + Next + Dim bez As String + bez = dok.sBezeichnung.Value + " " + lsvid + dok.sBezeichnung = New SqlString(CType(bez, String)) + + 'Status_Bereit_Zur_Eingangsarchivierung = dok.sBezeichnung.Value + IndexData.Rows(datarow).Item("Dokumentwert") + End If + + '***************************************************************************************************************3 + 'EDKB09 + '***************************************************************************************************************3 + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + dok.sBezeichnung = New SqlString(CType(IndexData.Rows(datarow).Item("Bezeichnung"), String)) + End If + + If IndexData.Rows(datarow).Item("BLKunde") = 1 Then + dok.bBl_scan = New SqlBoolean(CType(True, Boolean)) + dok.bBldossier = New SqlBoolean(CType(True, Boolean)) + Else + dok.bBl_scan = New SqlBoolean(CType(False, Boolean)) + dok.bBldossier = New SqlBoolean(CType(False, Boolean)) + End If + + ' If IndexData.Rows(datarow).Item("Dokumentidbdr") <> "" Then + ' dok.sBedRDokumentid = New SqlString(CType(IndexData.Rows(datarow).Item("Dokumentidbdr"), String)) + ' dok.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) + ' End If + End If + + '***************************************************************************************************************3 + 'EDKB14 - Anpassung deutesches Steuerreporting + '***************************************************************************************************************3 + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" Then + If IndexData.Rows(datarow).Item("BLKunde") = "1" Then + dok.bBl_scan = New SqlBoolean(CType(True, Boolean)) + dok.bBldossier = New SqlBoolean(CType(True, Boolean)) + Else + dok.bBl_scan = New SqlBoolean(CType(False, Boolean)) + dok.bBldossier = New SqlBoolean(CType(False, Boolean)) + End If + End If + + 'Canon + + '***************************************************************************************************************3 + 'Werte aus der Schnittstelle bzw. Defaultwerte + '***************************************************************************************************************3 + dok.iNrpar00 = New SqlInt32(CType(Me.IndexData.Rows(datarow).Item(1), Int32)) + If Me.IndexData.Rows(datarow).Item(16) = "" Then + dok.daArchivierungsdatum = New SqlDateTime(CType(Now, DateTime)) + Else + dok.daArchivierungsdatum = New SqlDateTime(CType(Me.IndexData.Rows(datarow).Item(16), DateTime)) + End If + + 'Ersteller und Mutierer + dok.iErsteller = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dok.iMutierer = dok.iErsteller + dok.iMitarbeiternr = dok.iErsteller + + 'Erstellungs- und Mutationsdatum + dok.daMutiertam = New SqlDateTime(CType(Now, DateTime)) + If Me.IndexData.Rows(datarow).Item(16) = "" Then + dok.daErstelltam = New SqlDateTime(CType(Now, DateTime)) + Else + Try + dok.daErstelltam = New SqlDateTime(CType(Me.IndexData.Rows(datarow).Item(16), DateTime)) + Catch + dok.daErstelltam = New SqlDateTime(CType(Now, DateTime)) + End Try + End If + + dok.iMutierertieam = New SqlInt32(CType(0, Int32)) + dok.iErstellerteam = New SqlInt32(CType(0, Int32)) + dok.daErstellungsdatum = New SqlDateTime(CType(dok.daArchivierungsdatum.Value, DateTime)) + dok.sDokumentname = New SqlString(CType("Imp_" + dok.sDokumentid.Value + "." + Me.IndexData.Rows(datarow).Item(13), String)) + dok.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) + conn_edoka.OpenConnection() + dok.Insert() + conn_edoka.CloseConnection(True) + + Dim t As DataTable + Try + t = Cold_Werte(dok.iDokumenttypnr.Value) + dok.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String)) + dok.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String)) + conn_edoka.OpenConnection() + dok.Update() + conn_edoka.CloseConnection(True) + Catch + End Try + + 'FANummerin im EDOKA-Dokumentaktualisieren + Update_FANummer(datarow) + dok.SelectOne() + + 'Cold_index erstellen + If Me.bckstatussequenz = False Then Me.COLD_Index_Sichern(1, Dokumentid) + If dok.bZu_retournieren.Value = True Then + Me.COLD_Index_Sichern(2, Dokumentid) + If Me.IndexData.Rows(datarow).Item(19) <> "" Then Update_DokumentColdIndexwert(Dokumentid, 2, 3, Me.IndexData.Rows(datarow).Item(19)) + End If + + 'VVNummer im COLDIndex aktualisieren, sofern als Indexwert bergeben + If Me.IndexData.Rows(datarow).Item(19) <> "" Then Update_DokumentColdIndexwert(Dokumentid, 1, 3, Me.IndexData.Rows(datarow).Item(19)) + + + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" Then + If IndexData.Rows(datarow).Item("blkunde") = 1 Then + dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, True, 1), Int32)) + Else + dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, True, 0), Int32)) + End If + Else + dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, True, 0), Int32)) + End If + 'Dokumentstatus erstelln und Statushistory_eintragen + 'dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, True), Int32)) + + 'Dokument auf der Datenbank speichern + 'Abhngig vom entsprechenden Status, wird das Flag, bereit zur Ausgangsarchivierung wieder entfernt + If Me.Status_Bereit_Zur_Eingangsarchivierung = False Then + If Not Me.Dokument_in_DB_Sichern(Dokumentid, datarow, False) Then + Return False + End If + Else + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + If Not Dokument_in_DB_Sichern(Globals.ImportPraefix + Right(Me.Dokumentid, 16) + Globals.CurrentTS, datarow, True) Then + + End If + dok.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean)) + insert_fa_bcimport(Dokumentid, datarow, Me.IndexData.Rows(datarow).Item(13)) + Else + + If Not Dokument_in_DB_Sichern(Globals.ImportPraefix + Right(Me.Dokumentid, 16), datarow, True) Then + End If + ' If Globals.Herkunftsapplikation.Rows(0).Item(1) <> "LSV+" Then + dok.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean)) + insert_fa_bcimport(Dokumentid, datarow, Me.IndexData.Rows(datarow).Item(13)) + End If + End If + + conn_edoka.OpenConnection() + dok.Update() + conn_edoka.CloseConnection(True) + + 'EDKB09 + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + If IndexData.Rows(datarow).Item("DokumentidBdr") <> "" Then + Insert_Bedingte_Retournierung(datarow) + End If + End If + End Function + +#Region "Bedingte Retournierung" + 'EDKB09 + Private Sub Insert_Bedingte_Retournierung(ByVal datarow As Integer) + Dim bedrdoktyp As New edokadb.clsDokumenttyp() + Dim bedrdok As New edokadb.clsDokument() + bedrdoktyp.cpMainConnectionProvider = Globals.conn_edoka + bedrdok.cpMainConnectionProvider = Globals.conn_edoka + + 'Dokumenttyp auslesen + bedrdoktyp.iDokumenttypnr = New SqlInt32(CType(IndexData.Rows(datarow).Item("Dokumenttypnr"), Int32)) + bedrdoktyp.SelectOne() + bedrdoktyp.iDokumenttypnr = New SqlInt32(CType(bedrdoktyp.iDoktypbedingteretournierung.Value, Int32)) + bedrdoktyp.SelectOne() + bedrdok.sDokumentid = New SqlString(CType(IndexData.Rows(datarow).Item("Dokumentid"), String)) + bedrdok.SelectOne() + + + bedrdok.sDokumentid = New SqlString(CType(IndexData.Rows(datarow).Item("DokumentidBdr"), String)) + bedrdok.iDokumenttypnr = New SqlInt32(CType(bedrdoktyp.iDokumenttypnr.Value, Int32)) + bedrdok.sDokumentid = New SqlString(CType(IndexData.Rows(datarow).Item("Dokumentidbdr"), String)) + bedrdok.iPostzustellung = New SqlInt32(CType(0, Int32)) + bedrdok.iUnterschriftlinks = New SqlInt32(CType(0, Int32)) + bedrdok.iUnterschriftrechts = New SqlInt32(CType(0, Int32)) + bedrdok.sBezeichnung = New SqlString(CType(bedrdoktyp.sBezeichnung.Value, String)) + bedrdok.sBemerkung = New SqlString(CType("", String)) + bedrdok.bGesperrt = New SqlBoolean(CType(False, Boolean)) + bedrdok.bVertraulich = New SqlBoolean(CType(False, Boolean)) + bedrdok.sBedRDokumentid = New SqlString(CType("", String)) + bedrdok.sDokumentname = New SqlString(CType("", String)) + bedrdok.iBRVernichtungnachTagen = New SqlInt32(CType(bedrdoktyp.iTagebisvernichtungbedingteretournierung.Value, Int32)) + + bedrdok.sBedRDokumentid = New SqlString(CType(IndexData.Rows(datarow).Item("Dokumentidbdr"), String)) + bedrdok.bBedRRetourniert = New SqlBoolean(CType(False, Boolean)) + + Dim t As DataTable + dokumenttypnr = bedrdok.iDokumenttypnr.Value + t = Generic_Select(114) + bedrdok.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String)) + bedrdok.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String)) + bedrdok.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) + Dokumentid = IndexData.Rows(datarow).Item("Dokumentidbdr") + conn_edoka.OpenConnection() + bedrdok.Insert() + conn_edoka.CloseConnection(True) + bedrdok.sDokumentid = New SqlString(CType(Dokumentid, String)) + bedrdok.cpMainConnectionProvider = conn_edoka + bedrdok.SelectOne() + bedrdok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(Dokumentid, True, 0), Int32)) + + conn_edoka.OpenConnection() + bedrdok.Update() + conn_edoka.CloseConnection(True) + Dokumentid = IndexData.Rows(datarow).Item("Dokumentidbdr") + + 'Cold_index erstellen + Me.COLD_Index_Sichern(2, Dokumentid) + 'If bedrdok.bZu_retournieren.Value = True Then + ' Me.COLD_Index_Sichern(2, Dokumentid) + ' If Me.IndexData.Rows(datarow).Item(19) <> "" Then Update_DokumentColdIndexwert(Dokumentid, 2, 3, Me.IndexData.Rows(datarow).Item(19)) + 'End If + + 'VVNummer im COLDIndex aktualisieren, sofern als Indexwert bergeben + If Me.IndexData.Rows(datarow).Item(19) <> "" Then Update_DokumentColdIndexwert(Dokumentid, 1, 3, Me.IndexData.Rows(datarow).Item(19)) + + conn_edoka.OpenConnection() + bedrdok.Update() + conn_edoka.CloseConnection(True) + End Sub + + Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal dokumentid As String, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer + Dim st As New DataTable() + Dim i As Integer + Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now) + Dim MitArchivfunktion As Boolean = False + + If erstellen = True Then + Me.Create_Dokumentstatus(dokumentid) + End If + Me.Dokumentid = dokumentid + st = Me.Get_Dokumentstatus(0) + For i = 0 To st.Rows.Count - 1 + Select Case Integer.Parse(st.Rows(i).Item(2).ToString) + Case 3 + MitArchivfunktion = True + Case 11 + MitArchivfunktion = True + Status_Bereit_Zur_Eingangsarchivierung = True + End Select + Next + + If MitArchivfunktion Then + 'Dokumentstatusreihenfolge mit Ausgangsarchivierung + For i = 0 To st.Rows.Count - 1 + insert_history_status(st.Rows(i).Item(0), dokumentid, Globals.Mitarbeiternr, dt) + dt = DateAdd(DateInterval.Second, 1, dt) + If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then + Return st.Rows(i).Item(0) + Exit Function + End If + Next + Else + 'Dokumentstatusreihenfolge ohne Ausgangsarchivierung + End If + End Function + + Private Function Get_Praefix(ByVal dokumentid As String, ByVal datarow As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_import_check_canonid" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Dim scanuser As String = "" + Try + scanuser = Me.IndexData.Rows(datarow).Item("ersteller") + Catch ex As Exception + scanuser = "" + End Try + Dim Stapelnr As String = "" + Try + Stapelnr = Me.IndexData.Rows(datarow).Item("Stapelkennung") + Catch ex As Exception + Stapelnr = "" + End Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@canonid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) + scmCmdToExecute.Parameters.Add(New SqlParameter("@scanuser", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, scanuser)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@stapelnr", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Stapelnr)) + + scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 225, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) + + + Try + + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + conn_edoka.CloseConnection(True) + Globals.ImportPraefix = scmCmdToExecute.Parameters("@wert").Value + + Catch ex As Exception + Printout("clsCheckandImport.dbo.sp_import_check_canonid: " + ex.Message, EventLogEntryType.Error) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + Private Function Create_Dokumentstatus(ByVal dokumentid As String) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_dokumentberabeigung_status_erstellen" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + If Me.bckstatussequenz = False Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) + End If + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + Private Function Generic_Select(ByVal typ As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Select Case typ + Case 114 + scmCmdToExecute.CommandText = "sp_archiv_getschema_doc" + Case Else + End Select + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + + scmCmdToExecute.Connection = Globals.conn_edoka.scoDBConnection + Try + Select Case typ + Case 114 + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumenttypnr)) + Case Else + End Select + If typ = 1 Then + End If + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + +#End Region + + Private Function insert_fa_bcimport(ByVal dokumentid As String, ByVal datarow As Integer, ByVal dateiformat As String) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_insert_fa_bcimport" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + Try + Dim canonid As String = "" + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + canonid = Globals.ImportPraefix + Right(dokumentid, 16) + Globals.CurrentTS + End If + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dateiname", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(12))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dateiformat", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dateiformat)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@canonid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, canonid)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''FA-Nummer 1-3 in EDOKA ergnzen + '''Setzt fr die Fremdanwendung die Felder + ''' + ''' + '''Feld + '''Beschreibung + ''' + '''FANummer1 + '''Bezeichnung der Applikatoin + ''' + '''FANummer2 + '''Dokumentname + ''' + '''FANummer3 + '''Geschftsfallnummer + '''Aktuelle Zeile der Indexdatei + Private Function Update_FANummer(ByVal datarow As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "sp_edoka_import_update_fanummer" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + Try + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer1", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Herkunftsapplikation.Rows(0).Item(1))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer2", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(12))) + If Me.IndexData.Rows(datarow).Item(18) = "" Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(17) + ": " + Me.IndexData.Rows(datarow).Item(18))) + End If + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''FA-Nummer 3 in EDOKA ergnzen + '''Setzt fr die Fremdanwendung die Felder + ''' + ''' + '''Feld + '''Beschreibung + ''' + '''FANummer3 + '''Geschftsfallnummer + '''Aktuelle Zeile der Indexdatei + Private Function Update_FANummer_Barcodeimport(ByVal datarow As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "sp_edoka_import_update_fanummer" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + Try + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer1", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer2", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(12))) + If Me.IndexData.Rows(datarow).Item(18) = "" Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(17) + ": " + Me.IndexData.Rows(datarow).Item(18))) + End If + ' scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(18))) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''Lst das Importieren des Original-Dokumentes in die Datenbank + '''aus + '''Die Methode lst das Importieren des Origianldokumentes in die + '''EDOKA-Datenbank aus + '''EDOKA-DokumentID + '''Aktuelle Zeile der Indexdaten + '''True=Improt erfolgreich, False=Import fehlgeschlagen + '''clsDivFnkt.Save_To_DB(System.String, + '''System.String) + Private Function Dokument_in_DB_Sichern(ByVal dokumentid As String, ByVal datarow As Integer) As Boolean + If Not DivFnkt.Save_To_DB(dokumentid, Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12), False) Then + Fehler = 115 + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), Me.IndexData.Rows(datarow).Item(13), Me.IndexData.Rows(datarow).Item(12), 115, "Datei konnte nicht in die EDOKA-Datenbank gespeichert werden.", "", "") + Return False + End If + Return True + + End Function + + Private Function Dokument_in_DB_Sichern(ByVal dokumentid As String, ByVal datarow As Integer, ByVal BarcodeDokument As Boolean) As Boolean + If Not DivFnkt.Save_To_DB(dokumentid, Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12), True) Then + Fehler = 115 + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), Me.IndexData.Rows(datarow).Item(13), Me.IndexData.Rows(datarow).Item(12), 115, "Datei konnte nicht in die EDOKA-Datenbank gespeichert werden.", "", "") + Return False + End If + + Return True + + End Function + + '''EDOKA-Dokumenttypnr auslesen + '''Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp + '''aus. + '''Aktuelle Datenzeile der Indexdaten + '''Dokumenttypnr + Private Function Get_EDOKA_Dokumenttypnr(ByVal datarow As Integer) As Integer + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_Get_EDOKA_Dokumenttyp" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@fadokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.IndexData.Rows(datarow).Item(11))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@applid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Herkunftsapplikation.Rows(0).Item(0))) + scmCmdToExecute.Parameters.Add(New SqlParameter("@edokadokumenttyp", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + conn_edoka.CloseConnection(True) + If scmCmdToExecute.Parameters("@edokadokumenttyp").Value = 0 Then + Fehler = 116 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokumenttyp: " + Me.IndexData.Rows(datarow).Item(11) + " ist nicht definiert.", "", "") + Return 0 + Else + Return scmCmdToExecute.Parameters("@edokadokumenttyp").Value + End If + Catch ex As Exception + PrintOut("clsCheckandImport.Get_EDOKA_Dokumenttypnr()" + ex.Message, EventLogEntryType.Error) + Return 0 + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + End Function + + +#Region "ColdIndex und Dokumentwerte" + + '''Auslesen von Coldschema und -Folder + '''Dokumenttypnr des aktuellen Dokumentes + '''Datatable mit den COLD-Werten + Private Function Cold_Werte(ByVal dokumenttypnr As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "sp_archiv_getschema_doc" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + Try + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''Coldindex zum erstellen Dokument erstellen und speichern + '''Standard 1 + '''Dokumentid des aktuellen Dokumentes + '''Datatable + Public Function COLD_Index_Sichern(ByVal indextyp As Integer, ByVal dokumentid As String) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''Dokument Cold Indexwert anpassen + '''Fhrt einen Wert in der Tabelle Dokumentcoldindexwert nach + '''DokumentID des aktuellend Dokumentes + '''1 fr Ausgangsarchivierung + '''2 fr Ausgangsarchivierung + '''Nummer des Indexfeldes + '''Wert + Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + conn_edoka.OpenConnection() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + conn_edoka.CloseConnection(True) + End Try + End Function + + '''Edoka-spezifische Dokumentwerte nachfhren + '''Fhrt folgende Daten in den Dokumentwerten hinzu + '''- Herkunftsapplikation + '''- Archivreferenz + '''- Listen-Empfnger MA/KST/NL + '''- Individuelle Dokumentwerte der Fremdanwendung + '''Aktuelle Zeile der Indexdaten + Private Function Insert_Dokumentwerte(ByVal datarow As Integer) As Boolean + Dim Startindex_Dokumentwerte As Integer = 26 + 'Verfgungsrechte + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "UVM" Then + Insert_Dokumentwerte_UVM(datarow) + Exit Function + End If + 'Herkunftsapplikation + If Me.IndexData.Rows(datarow).Item(17) <> "" Then + Dokumentwert_Sichern("Applikation;" + Me.IndexData.Rows(datarow).Item(17), -90000) + Else + 'Anpassungen EBES-LSV + Dokumentwert_Sichern("Applikation;" + Globals.Herkunftsapplikation.Rows(0).Item(1), -90000) + End If + + 'Archivreferenz + If Me.IndexData.Rows(datarow).Item(21) <> "" Then + + If Not IsNumeric(Me.IndexData.Rows(datarow).Item(21)) Then + Dokumentwert_Sichern("Archivref.;" + Me.IndexData.Rows(datarow).Item(21), -90001) + Else + Me.Update_DokumentColdIndexwert(Dokumentid, 1, 11, Me.IndexData.Rows(datarow).Item(21)) + + End If + End If + 'ListEmpfaengerMA + If Me.IndexData.Rows(datarow).Item(23) <> "" Then + Dokumentwert_Sichern("Empfnger MA;" + Me.IndexData.Rows(datarow).Item(23), -90002) + End If + 'ListEmpfaengerKST + If Me.IndexData.Rows(datarow).Item(24) <> "" Then + Dokumentwert_Sichern("Empfnger KST;" + Me.IndexData.Rows(datarow).Item(24), -90003) + End If + 'ListEmpfaengerNL / FormularID bei FinFox + If UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) = "FINFOX" And Me.IndexData.Rows(datarow).Item(25) <> "" Then + update_dokument_formularnr(Dokumentid, Me.IndexData.Rows(datarow).Item(25)) + 'Dokumentwert_Sichern("Formular-ID;" + Me.IndexData.Rows(datarow).Item(25), -90004) + Else + If Me.IndexData.Rows(datarow).Item(25) <> "" Then + If UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) = "INTRANET" Or UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) = "IRIS_FORMS_LSV" Or UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) = "DIMENSIONS" Then + Startindex_Dokumentwerte = 25 + Else + Dokumentwert_Sichern("Empfnger NL;" + Me.IndexData.Rows(datarow).Item(25), -90004) + End If + + End If + End If + + If Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) Then + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 11, Me.IndexData.Rows(datarow).Item("Stapelkennung")) + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 13, Me.IndexData.Rows(datarow).Item("ersteller")) + Me.Update_DokumentColdIndexwert(Dokumentid, 2, 14, Me.IndexData.Rows(datarow).Item("ersteller")) + ' Me.Update_DokumentColdIndexwert(Dokumentid, 1, 11, Me.IndexData.Rows(datarow).Item("Stapelkennung")) + ' Me.Update_DokumentColdIndexwert(Dokumentid, 1, 13, Me.IndexData.Rows(datarow).Item("ersteller")) + ' Me.Update_DokumentColdIndexwert(Dokumentid, 1, 14, Me.IndexData.Rows(datarow).Item("ersteller")) + + End If + + + + + 'Dokumentwerte + Dim i As Integer + For i = Startindex_Dokumentwerte To Me.IndexData.Columns.Count - 1 + Try + If Me.IndexData.Rows(datarow).Item(i) <> "" Then + Dim s As String + Dim s1 As String + + s = Me.IndexData.Rows(datarow).Item(i) + If s.IndexOf(";") < 1 Then + s1 = Me.IndexData.Columns(i).ColumnName + s1 = s1.Replace("_", " ") + s = Me.IndexData.Columns(i).ColumnName + ";" + Me.IndexData.Rows(datarow).Item(i) + Dokumentwert_Sichern(s, -90005 - (i - 25)) + Else + Dokumentwert_Sichern(Me.IndexData.Rows(datarow).Item(i), -90005 - (i - 25)) + End If + End If + Catch + End Try + Next + End Function + + ' Dokumentwerte fr Verfgungsrechte + Private Function Insert_Dokumentwerte_UVM(ByVal datarow As Integer) As Boolean + 'Verfgungsrechte + Dokumentwert_Sichern("Applikation;" + Globals.Herkunftsapplikation.Rows(0).Item(1), -90000) + + 'Archivreferenz + If Me.IndexData.Rows(datarow).Item(24) <> "" Then + If Not IsNumeric(Me.IndexData.Rows(datarow).Item(24)) Then + Dokumentwert_Sichern("Archivref.;" + Me.IndexData.Rows(datarow).Item(24), -90001) + Else + Me.Update_DokumentColdIndexwert(Dokumentid, 1, 11, Me.IndexData.Rows(datarow).Item(24)) + End If + End If + 'Person-Nr-Kunde + If Me.IndexData.Rows(datarow).Item(21) <> "" Then + Dokumentwert_Sichern("Person_Nr_Kunde;" + Me.IndexData.Rows(datarow).Item(21), -90005) + End If + 'Person-Name_Kunde + If Me.IndexData.Rows(datarow).Item(22) <> "" Then + Dokumentwert_Sichern("Person_Name_Kunde;" + Me.IndexData.Rows(datarow).Item(22), -90006) + End If + 'AVQ_AUTO_EXTL_REF + If Me.IndexData.Rows(datarow).Item(24) <> "" Then + Dokumentwert_Sichern("AVQ_AUTH_EXTL_REF;" + Me.IndexData.Rows(datarow).Item(23), -90007) + End If + + 'ListEmpfaengerMA + If Me.IndexData.Rows(datarow).Item(26) <> "" Then + Dokumentwert_Sichern("Empfnger MA;" + Me.IndexData.Rows(datarow).Item(26), -90002) + End If + 'ListEmpfaengerKST + If Me.IndexData.Rows(datarow).Item(27) <> "" Then + Dokumentwert_Sichern("Empfnger KST;" + Me.IndexData.Rows(datarow).Item(27), -90003) + End If + 'ListEmpfaengerNL + If Me.IndexData.Rows(datarow).Item(28) <> "" Then + Dokumentwert_Sichern("Empfnger NL;" + Me.IndexData.Rows(datarow).Item(28), -90004) + End If + + 'Dokumentwerte + Dim i As Integer + For i = 29 To Me.IndexData.Columns.Count - 1 + Try + If Me.IndexData.Rows(datarow).Item(i) <> "" Then + Dim s As String + Dim s1 As String + + s = Me.IndexData.Rows(datarow).Item(i) + If s.IndexOf(";") < 1 Then + s1 = Me.IndexData.Columns(i).ColumnName + s1 = s1.Replace("_", " ") + s = Me.IndexData.Columns(i).ColumnName + ";" + Me.IndexData.Rows(datarow).Item(i) + Dokumentwert_Sichern(s, -90007 - (i - 28)) + Else + Dokumentwert_Sichern(Me.IndexData.Rows(datarow).Item(i), -90007 - (i - 28)) + End If + End If + Catch + End Try + Next + End Function + + '''Edoka-spezifischer Dokumentwert auf der Datenbank sichern + '''Inhalt + '''Feldnummer + Public Sub Dokumentwert_Sichern(ByVal wert As String, ByVal feldnr As Integer) + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Connection.Open() + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Connection.Close() + scmCmdToExecute.Dispose() + End Try + End Sub + +#End Region + +#Region "Status" + '''Erstellen der Dokumentstatus und eintragen der entsprechenden + '''Statushistory-Eintrge + '''Aktuelle Zeile der Indexdaten + '''Status, welcher im Dokument unter "Statusnr" nachgefhrt + '''wird + '''edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) + '''edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) + '''edkb08.clsCheckandImport.insert_history_status(System.Int32, + '''System.String, System.Int32, System.DateTime) + Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal datarow As Integer, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer + Dim st As New DataTable() + Dim i As Integer + Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now) + Dim MitArchivfunktion As Boolean = False + + If erstellen = True Then + Me.Create_Dokumentstatus(datarow, BLKunde) + + 'DRO 27.01.2015 + Dim hasqr As Boolean = False + Try + hasqr = Me.IndexData.Rows(0).Item("qrcode") <> "" + Catch ex As Exception + hasqr = False + End Try + If Globals.Herkunftsapplikation.Rows(0).Item(1) = "SP" Or (Globals.Canon_Herkunft(Globals.Herkunftsapplikation.Rows(0).Item(1)) And hasqr = True) Then + Create_Dokumentstatus_Uebersteuerung(datarow, BLKunde) + End If + End If + st = Me.Get_Dokumentstatus(datarow) + For i = 0 To st.Rows.Count - 1 + Select Case Integer.Parse(st.Rows(i).Item(2).ToString) + Case 3 + MitArchivfunktion = True + Case 11 + MitArchivfunktion = True + Status_Bereit_Zur_Eingangsarchivierung = True + End Select + Next + + If MitArchivfunktion Then + 'Dokumentstatusreihenfolge mit Ausgangsarchivierung + For i = 0 To st.Rows.Count - 1 + insert_history_status(st.Rows(i).Item(0), Dokumentid, Globals.Mitarbeiternr, dt) + dt = DateAdd(DateInterval.Second, 1, dt) + If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then + Return st.Rows(i).Item(0) + Exit Function + End If + Next + Else + 'Dokumentstatusreihenfolge ohne Ausgangsarchivierung + End If + End Function + + '''Dokumentstatus fr das zu erstellende Dokument generieren + '''Erstellt die Dokumentstatus gem. Statussequenz des + '''Dokumenttyps + '''Aktuelle Zeile der Indexdaten + '''Datatable + Private Function Create_Dokumentstatus(ByVal datarow As Integer, Optional ByVal blkunde As Integer = 0) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_dokumentberabeigung_status_erstellen" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + If Me.bckstatussequenz = False Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) + End If + If blkunde = 0 Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) + End If + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + 'DRO 27.01.2014 hinzugefgt + Private Function Create_Dokumentstatus_Uebersteuerung(ByVal datarow As Integer, Optional ByVal blkunde As Integer = 0) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_dokument_status_import_erstellen" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@statustyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 11)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 9998)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("sp_dokument_status_import_erstellen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + + '''Alle Dokumentstatus eines Dokumentes lesen + '''Diese Funktion liest alle Dokumentstatus eines Dokumentes + '''Aktuelle Ziele der Indexdaten + '''Datatable mit den Dokumentstatus + Private Function Get_Dokumentstatus(ByVal datarow As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_dokumentstatus" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten + '''TG-Nummer + '''Aktuelle Import-Datenzeile + '''Mitarbeiternr des EDOKA-Mitarbeiters entweder anhand der TGNummer oder + '''die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte + '''TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden + '''ist + Private Function Get_EDOKA_Mitarbeiter(ByVal datarow As Integer) As Integer + If Me.IndexData.Rows(datarow).Item(14) = "" Then Return Herkunftsapplikation.Rows(0).Item(2) + + Dim tmptable As DataTable + Dim tmpma As New edokadb.clsMyMitarbeiter() + tmpma.cpMainConnectionProvider = conn_edoka + tmpma.xtgnummer = IndexData.Rows(datarow).Item(14) + tmptable = tmpma.SelectWithTGNummer() + If tmptable.Rows.Count = 0 Then + Return Herkunftsapplikation.Rows(0).Item(2) + Else + Return tmptable.Rows(0).Item(0) + End If + tmpma.Dispose() + tmptable.Dispose() + End Function + + '''Statushistory nachfhren + '''Diese Funktion fgt fr einen Dokumentstatus eines bestimmten Dokuments + '''die Statushistory nach + '''Nummer des Status + '''EDOKA-DokumentID + '''Verantwortlicher Mitarbeiter + '''Timestamp + Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer, ByVal datumzeit As DateTime) + Try + Dim sh As New edokadb.clsStatushistory() + Dim dbkey As New edokadb.clsMyKey_Tabelle() + Dim key As Long + dbkey.cpMainConnectionProvider = conn_edoka + key = dbkey.get_dbkey("statushistory") + sh.cpMainConnectionProvider = conn_edoka + sh.iStatushistorynr = New SqlInt32(CType(key, Int32)) + sh.iStatus = New SqlInt32(CType(statusnr, Int32)) + sh.iMandantnr = New SqlInt32(CType(1, Int32)) + sh.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + sh.bAktiv = New SqlBoolean(True) + sh.daErstellt_am = New SqlDateTime(CType(datumzeit, DateTime)) + sh.daMutiert_am = New SqlDateTime(CType(datumzeit, DateTime)) + sh.sDokumentid = New SqlString(CType(dokumentid, String)) + sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32)) + Try + conn_edoka.OpenConnection() + Catch + End Try + sh.Insert() + Try + conn_edoka.CloseConnection(True) + Catch + End Try + dbkey.Dispose() + sh.Dispose() + Catch ex As Exception + PrintOut("clsCheckandImport.insert_history_status()" + ex.Message, EventLogEntryType.Error) + End Try + + End Sub + +#End Region + +#End Region + +#Region "Delete Dokument" + '''Lschung des Dokumentes, abhngig vom bergabewert (Dokumentid oder + '''Dokumentname) auslsen + '''Abhngig vom bergabeparameter Dokumentid (Indexfeld 23) oder + '''Dateiname, wird das Lschen bzw. Aufheben des Dokumentes ausgelst. + '''Im Falle der bergabe des Dateinamens, ist sicher gestellt, dass ein + '''Dokument nur dann gelscht wird, wenn der Dateiname eindeutig verwendet + '''wurde. + '''Aktuelle Zeile der Indexdaten + '''True=Lschung durchgefhrt + '''False=Lschung nicht durchgefhrt + Private Function Delete_Dokument(ByVal datarow As Integer) As Boolean + 'Lschung des Dokumentes + If Dokument_Loeschen(Me.Dokumentid, datarow) Then Return True Else Return False + End Function + + '''Dokument lschen bzw. aufheben + '''Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es + '''wird berprft, ob das zu lschende Dokumente den Status "Aufgehoben" + '''in der Statussequenz hat. Beim Vorhandensein des Aufhebungsstatus wird das + '''Dokument aufgehoben, ansonsten gelscht resp. inaktiviert. + '''DokumentID des zu lschenden Dokumentes + '''Aktuelle Zeile der Indexdaten + '''True=Lschung erfolgt + '''False=Lschung nicht durchgefhrt + Private Function Dokument_Loeschen(ByVal dokumentid As String, ByVal datarow As Integer) As Boolean + Dim i As Integer + i = ist_archiviert(dokumentid) + If i = 0 Then + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Dokument_delete" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + conn_edoka.OpenConnection() + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschgrund", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "*** Dokument durch EDKB08 gelscht.")) + scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigestatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + conn_edoka.CloseConnection(True) + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", IndexData.Rows(datarow).Item(12), "0", "Dokument gelscht.", dokumentid, "") + End Try + Return True + End If + i = get_status(dokumentid) + Select Case i + Case 0 + Fehler = 201 + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", IndexData.Rows(datarow).Item(12), 201, "Dokument konnte nicht gelscht werden.", dokumentid, "") + Return False + Case -3 + set_aufgehoben(dokumentid) + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", IndexData.Rows(datarow).Item(12), "0", "Dokument aufgehoben.", dokumentid, "") + Case Else + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Dokument_delete" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + conn_edoka.OpenConnection() + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschgrund", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "*** Dokument durch EDKB08 gelscht.")) + If i = -2 Then + scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigestatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Else + scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigestatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) + End If + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + conn_edoka.CloseConnection(True) + Dim dt As DataTable + dt = get_coldindex_and_statusnr(dokumentid, False, False) + insert_coldupdate_status(dt, dokumentid, "Alt") + dt.Dispose() + Journal.Insert_Journal(datarow, IndexData.Rows(datarow).Item(1), "", IndexData.Rows(datarow).Item(12), "0", "Dokument gelscht.", dokumentid, "") + End Try + End Select + End Function + + '''Auselesen des letzten Status in der Seqeunz des zu lschenden + '''Dokumentes + '''Dokumentid des zu lschenden Dokumentes + '''Status_Bezeichnungnr + Private Function get_status(ByVal dokumentid As String) As Integer + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_Get_Status" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@aufheben", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + conn_edoka.CloseConnection(True) + Return scmCmdToExecute.Parameters("@aufheben").Value + Catch ex As Exception + PrintOut("clsCheckandImport.get_status()" + ex.Message, EventLogEntryType.Error) + Return 0 + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + + End Function + + '''Dokument aufheben + '''Dokumentid des aufzuhebenden Dokumentes + Public Sub set_aufgehoben(ByVal dokumentid As String) + Dim dt As DataTable + dt = get_coldindex_and_statusnr(dokumentid, True, False) + insert_coldupdate_status(dt, dokumentid, "Alt") + dt.Dispose() + End Sub + + '''SColdindex und Aufhebungsstatus des eines zu lschenden bzw. + '''aufzuhebenden Dokumentes auslesen + '''Sofern das Dokument aufgehoben wird, wird der Status + '''"Aufgehoben" im Dokument nachgefhrt, indem einerseits einen + '''Statushistory-Eintrag erstellt und der aktuelle Dokumentstatus gesetzt + '''wird. + '''Dokumentid des zu lschenden / aufzuhebenden + '''Dokumentes + '''True=Dokument aufheben + '''False=Dokument nicht aufheben + '''True=Aufgehobenes Dokument reaktivieren + '''False=Keine Dokumentreaktivierung + '''Datentable mit den Dokumentstatus + Public Function get_coldindex_and_statusnr(ByVal dokumentid As String, ByVal aufheben As Boolean, ByVal reaktivieren As Boolean) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim i As Integer + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_get_coldindex_and_aufhebungsstatus" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@reaktivieren", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, reaktivieren)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@aufhebungsstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + sdaAdapter.Fill(dtToReturn) + i = scmCmdToExecute.Parameters.Item("@aufhebungsstatus").Value + If (i <> 0 And aufheben) Or (i <> 0 And reaktivieren) Then + insert_history_status(i, dokumentid, Globals.Mitarbeiternr, Now) + Dim d As New edokadb.clsDokument() + d.cpMainConnectionProvider = conn_edoka + d.sDokumentid = New SqlString(CType(dokumentid, String)) + d.SelectOne() + d.iStatusnr = New SqlInt32(CType(i, Int32)) + conn_edoka.OpenConnection() + d.daMutiertam = New SqlDateTime(CType(Now, DateTime)) + d.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + d.Update() + conn_edoka.CloseConnection(True) + d.Dispose() + End If + Return dtToReturn + Catch ex As Exception + 'MsgBox(ex.Message) + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''AGI-COLD-Dokument-Status ndern + '''Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter + '''"neuerstatus" + '''Datentabelle mit Cold-Index-Werten + '''DokumentID + '''Neuer Status der entsprechenden COLD-Dokumente + + Public Sub insert_coldupdate_status(ByVal dt As DataTable, ByVal dokumentid As String, ByVal neuerstatus As String) + Dim i As Integer + Dim colddokumentid As String + Dim indextyp As Integer + indextyp = 1 + colddokumentid = "" + For i = 0 To dt.Rows.Count - 1 + If dt.Rows(i).Item("indextyp") = indextyp Then + If dt.Rows(i).Item("cold_indexfeldnr") = 10 And dt.Rows(i).Item("wert") <> "" Then colddokumentid = dt.Rows(i).Item("wert") + If colddokumentid <> "" Then + Insert_ColdUpdate(dokumentid, colddokumentid, indextyp, 7, "Alt") + Exit For + End If + End If + Next + + indextyp = 2 + colddokumentid = "" + For i = 0 To dt.Rows.Count - 1 + If dt.Rows(i).Item("indextyp") = indextyp Then + If dt.Rows(i).Item("cold_indexfeldnr") = 10 And dt.Rows(i).Item("wert") <> "" Then colddokumentid = dt.Rows(i).Item("wert") + If colddokumentid <> "" Then + Insert_ColdUpdate(dokumentid, colddokumentid, indextyp, 7, "Alt") + Exit For + End If + End If + Next + + End Sub + 'Alt vor Umstellung COLDIndexwerte + 'Public Function insert_coldupdate_status(ByVal dt As DataTable, ByVal dokumentid As String, ByVal neuerstatus As String) + ' Dim i As Integer + ' Dim colddokumentid As String + ' Dim neuerwert As String + ' Dim indextyp As Integer + ' indextyp = 1 + ' colddokumentid = "" + ' For i = 0 To dt.Rows.Count - 1 + ' If dt.Rows(i).Item("indextyp") = indextyp Then + ' If dt.Rows(i).Item("cold_indexfeldnr") = 10 And dt.Rows(i).Item("wert") <> "" Then colddokumentid = dt.Rows(i).Item("wert") + ' If colddokumentid <> "" Then + ' Insert_ColdUpdate(dokumentid, colddokumentid, indextyp, 7, "Alt") + ' Exit For + ' End If + ' End If + ' Next + + ' indextyp = 2 + ' colddokumentid = "" + ' For i = 0 To dt.Rows.Count - 1 + ' If dt.Rows(i).Item("indextyp") = indextyp Then + ' If dt.Rows(i).Item("cold_indexfeldnr") = 10 And dt.Rows(i).Item("wert") <> "" Then colddokumentid = dt.Rows(i).Item("wert") + ' If colddokumentid <> "" Then + ' Insert_ColdUpdate(dokumentid, colddokumentid, indextyp, 7, "Alt") + ' Exit For + ' End If + ' End If + ' Next + + 'End Function + + '''Tabelle COLD-Update mit Updates ergnzen + '''DokumentID des EDOKA-Dokumentes + '''DokumentID des COLD-Bildes + '''1=Ausgangsarchiviertes Dokumente + '''2=Eingangarchiviertes Dokumente + '''Feldnr des Feldes im Cold-Index + '''Neuer Wert + + Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + conn_edoka.OpenConnection() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + ' MsgBox(ex.Message) + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + conn_edoka.CloseConnection(True) + End Try + End Function + +#End Region + +#Region "Update Dokumentwert" + '''Dokumentwerte eines Dokumentes updaten + '''Aktuelle Zeile der Indexdaten + Private Function Update_Dokumentwerte(ByVal datarow As Integer) As Boolean + dokumentwerte_update(datarow) + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), Me.IndexData.Rows(datarow).Item(11), Me.IndexData.Rows(datarow).Item(12), "0", "Update Dokumentwerte", Dokumentid, "") + End Function + + Private Sub dokumentwerte_update(ByVal datarow As Integer) + Try + Dim dok As New edokadb.clsDokument() + dok.cpMainConnectionProvider = conn_edoka + dok.sDokumentid = New SqlString(CType(Dokumentid, String)) + dok.SelectOne() + 'Archivdatum + If IndexData.Rows(datarow).Item(16) <> "" Then + dok.daArchivierungsdatum = New SqlDateTime(CType(Me.IndexData.Rows(datarow).Item(16), DateTime)) + End If + 'Ersteller + If IndexData.Rows(datarow).Item(14) <> "" Then + dok.iErsteller = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + End If + conn_edoka.OpenConnection() + dok.Update() + conn_edoka.CloseConnection(True) + dok.Dispose() + Update_FANummer(datarow) + + 'VVNummer im COLDIndex aktualisieren, sofern als Indexwert bergeben + If Me.IndexData.Rows(datarow).Item(19) <> "" Then Update_DokumentColdIndexwert(Dokumentid, 1, 3, Me.IndexData.Rows(datarow).Item(19)) + + 'Archivdatum im COLD-Index + If Me.IndexData.Rows(datarow).Item(16) <> "" Then + Update_DokumentColdIndexwert(Dokumentid, 1, 5, IndexData.Rows(datarow).Item(16)) + Update_DokumentColdIndexwert(Dokumentid, 2, 5, IndexData.Rows(datarow).Item(16)) + End If + + 'Herkunftsapplikation + If Me.IndexData.Rows(datarow).Item(17) <> "" Then + Dokumentwert_Sichern("Applikation;" + Me.IndexData.Rows(datarow).Item(17), -90000) + End If + + 'Archivreferenz + If Me.IndexData.Rows(datarow).Item(21) <> "" Then + If IsNumeric(Me.IndexData.Rows(datarow).Item(21)) Then + Me.Update_DokumentColdIndexwert(Dokumentid, 1, 11, Me.IndexData.Rows(datarow).Item(21)) + Else + Dokumentwert_Sichern("Archivref.;" + Me.IndexData.Rows(datarow).Item(21), -90001) + End If + End If + + 'ListEmpfaengerMA + If Me.IndexData.Rows(datarow).Item(23) <> "" Then + Dokumentwert_Sichern("Empfnger MA;" + Me.IndexData.Rows(datarow).Item(23), -90002) + End If + 'ListEmpfaengerKST + If Me.IndexData.Rows(datarow).Item(24) <> "" Then + Dokumentwert_Sichern("Empfnger KST;" + Me.IndexData.Rows(datarow).Item(24), -90003) + End If + 'ListEmpfaengerNL + If UCase(Globals.Herkunftsapplikation.Rows(0).Item(1)) = "FINFOX" And Me.IndexData.Rows(datarow).Item(25) <> "" Then + update_dokument_formularnr(Dokumentid, Me.IndexData.Rows(datarow).Item(25)) + 'Dokumentwert_Sichern("Formular-ID;" + Me.IndexData.Rows(datarow).Item(25), -90004) + Else + + If Me.IndexData.Rows(datarow).Item(25) <> "" Then + Dokumentwert_Sichern("Empfnger NL;" + Me.IndexData.Rows(datarow).Item(25), -90004) + End If + End If + 'Dokumentwerte + Dim i As Integer + For i = 26 To 45 + Try + If Me.IndexData.Rows(datarow).Item(i) <> "" Then + Dokumentwert_Sichern(Me.IndexData.Rows(datarow).Item(i), -90005 - (i - 25)) + End If + Catch + End Try + Next + + + Catch + End Try + + + End Sub +#End Region + +#Region "Replace_Dokument" + Private Function Replace_Dokument(ByVal datarow As Integer) As Integer + 'Prfung, ob bereits eine Dokumentarchivierung stattgefunden hat + Me.ist_archiviert(Dokumentid) + + 'Dokument importieren + If Not DivFnkt.Save_To_DB(Dokumentid, Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12), False) Then + Fehler = 115 + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), Me.IndexData.Rows(datarow).Item(13), Me.IndexData.Rows(datarow).Item(12), 115, "Datei konnte nicht in die EDOKA-Datenbank gespeichert werden.", "", "") + End If + 'Dokumentname im Dokument ndern + Dim d As New edokadb.clsDokument() + d.sDokumentid = New SqlString(CType(Dokumentid, String)) + d.cpMainConnectionProvider = conn_edoka + d.SelectOne() + Try + conn_edoka.CloseConnection(True) + Catch + End Try + d.sDokumentname = New SqlString(CType(Me.IndexData.Rows(datarow).Item(12), String)) + d.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, False), Int32)) + d.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean)) + d.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean)) + d.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean)) + d.sColddokumentid = New SqlString(CType("", String)) + + conn_edoka.OpenConnection() + d.Update() + conn_edoka.CloseConnection(True) + d.Dispose() + + 'sofern eine Archivierung stattgefunden hat, Dokumentwerte kopieren + If DokumentArchiviert Then copy_indexdata(Dokumentid, "Alt") + + 'Dokumentwerte anpassen + Update_Dokumentwerte(datarow) + Journal.Insert_Journal(datarow, Me.IndexData.Rows(datarow).Item(1), Me.IndexData.Rows(datarow).Item(11), Me.IndexData.Rows(datarow).Item(12), "0", "Dokument ersetzt", Dokumentid, "") + End Function + + Dim general_ds As New DataSet() + + Private Sub copy_indexdata(ByVal dokumentid As String, ByVal Status As String) + Dim sda As New SqlDataAdapter("select * from dokumentcoldindexwert where (indextyp=1 or indextyp=2) and dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + Dim sda1 As New SqlDataAdapter("select * from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + Dim sda3 As New SqlDataAdapter("select max(indextyp) from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + Dim ds As New DataSet() + general_ds.Clear() + sda.Fill(ds, "Dokumentcoldindexwert") + sda1.Fill(general_ds, "Dokumentcoldindexwert") + 'Globals.Dokumentcoldindex_Changed = True + sda.Fill(ds, "DokumentcoldindexwertNeu") + sda3.Fill(ds, "Maxwert") + Dim i As Integer + Dim Maxwert As Integer + Maxwert = ds.Tables(2).Rows(0).Item(0) + If Maxwert < 2 Then Maxwert = 2 + Dim i1 As Integer + Dim i2 As Integer + i1 = 0 + i2 = 0 + For i = 0 To ds.Tables(0).Rows.Count - 1 + If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then + If (ds.Tables(0).Rows(i).Item("BESTA00") = "Aktuell" Or ds.Tables(0).Rows(i).Item("BESTA00") = "Alt") Then + If ds.Tables(0).Rows(i).Item("indextyp") = 1 Then i1 = 1 + If ds.Tables(0).Rows(i).Item("indextyp") = 2 Then i2 = 1 + End If + End If + Next + For i = 0 To ds.Tables(0).Rows.Count - 1 + If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then + If i1 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 1 Then + ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 1 + ds.Tables(0).Rows(i).Item("BESTA00") = Status + End If + If i2 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 2 Then + ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 2 + ds.Tables(0).Rows(i).Item("BESTA00") = Status + End If + End If + Next + For i = 0 To ds.Tables(1).Rows.Count - 1 + If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then + If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then + ds.Tables(1).Rows(i).Item("BESTA00") = "" + End If + If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then + ds.Tables(1).Rows(i).Item("BESTA00") = "" + End If + End If + If Not ds.Tables(0).Rows(i).Item("DMSTA01") Is System.DBNull.Value Then + If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then + ds.Tables(1).Rows(i).Item("DMSTA01") = "" + End If + If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then + ds.Tables(1).Rows(i).Item("DMSTA01") = "" + End If + End If + If Not ds.Tables(0).Rows(i).Item("NRDOC00") Is System.DBNull.Value Then + If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then + ds.Tables(1).Rows(i).Item("NRDOC00") = "" + End If + If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then + ds.Tables(1).Rows(i).Item("NRDOC00") = "" + End If + End If + Next + Dim cd As New SqlCommandBuilder(sda) + sda.Update(ds, "Dokumentcoldindexwert") + + DokumentColdIndexWert_Insert(ds.Tables(1), i1, i2) + + sda.Dispose() + sda1.Dispose() + sda3.Dispose() + End Sub + + Private Sub DokumentColdIndexWert_Insert(ByVal dtOrg As DataTable, ByVal i1 As Integer, ByVal i2 As Integer) + 'Coldindexwerte Inserten mit Daten aus neuer Tabellen Struktur + Dim i As Integer + Dim dw As New edokadb.clsDokumentcoldindexwert() + dw.cpMainConnectionProvider = Globals.conn_edoka + + Dim lcnt As Integer + Dim sWert As String + Dim sFieldArray(12) As String + sFieldArray(0) = "NRPAR00" + sFieldArray(1) = "BKPAR00" + sFieldArray(2) = "NAVVG00" + sFieldArray(3) = "BEBEZ00" + sFieldArray(4) = "DMSTA01" + sFieldArray(5) = "BEDAT00" + sFieldArray(6) = "BESTA00" + sFieldArray(7) = "BEORT00" + sFieldArray(8) = "NRDOC00" + sFieldArray(9) = "NRSTA00" + sFieldArray(10) = "BEGSF00" + sFieldArray(11) = "BEUSR00" + sFieldArray(12) = "BERES03" + + For i = 0 To dtOrg.Rows.Count - 1 + If (i1 = 1 And dtOrg.Rows(i).Item("indextyp") = 1) Or _ + (i2 = 1 And dtOrg.Rows(i).Item("indextyp") = 2) Then + dw.iIndextyp = New SqlInt32(CType(dtOrg.Rows(i).Item(1), Int32)) + dw.iMandantnr = New SqlInt32(CType(dtOrg.Rows(i).Item("mandantnr"), Int32)) + dw.bAktiv = New SqlBoolean(CType(dtOrg.Rows(i).Item("aktiv"), Boolean)) + dw.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) + dw.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) + dw.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dw.sDokumentid = New SqlString(CType(dtOrg.Rows(i).Item("dokumentid"), String)) + + For lcnt = 0 To 12 + If Not dtOrg.Rows(i).Item(sFieldArray(lcnt)) Is System.DBNull.Value Then + sWert = CType(dtOrg.Rows(i).Item(sFieldArray(lcnt)), String) + Else + sWert = "" + End If + Select Case sFieldArray(lcnt) + Case sFieldArray(0) + dw.sNRPAR00 = New SqlString(CType(sWert, String)) + Case sFieldArray(1) + dw.sBKPAR00 = New SqlString(CType(sWert, String)) + Case sFieldArray(2) + dw.sNAVVG00 = New SqlString(CType(sWert, String)) + Case sFieldArray(3) + dw.sBEBEZ00 = New SqlString(CType(sWert, String)) + Case sFieldArray(4) + dw.sDMSTA01 = New SqlString(CType(sWert, String)) + Case sFieldArray(5) + dw.sBEDAT00 = New SqlString(CType(sWert, String)) + Case sFieldArray(6) + dw.sBESTA00 = New SqlString(CType(sWert, String)) + Case sFieldArray(7) + dw.sBEORT00 = New SqlString(CType(sWert, String)) + Case sFieldArray(8) + dw.sNRDOC00 = New SqlString(CType(sWert, String)) + Case sFieldArray(9) + dw.sNRSTA00 = New SqlString(CType(sWert, String)) + Case sFieldArray(10) + dw.sBEGSF00 = New SqlString(CType(sWert, String)) + Case sFieldArray(11) + dw.sBEUSR00 = New SqlString(CType(sWert, String)) + Case sFieldArray(12) + dw.sBERES03 = New SqlString(CType(sWert, String)) + End Select + Next + conn_edoka.OpenConnection() + dw.Insert() + conn_edoka.CloseConnection(True) + End If + Next + dw.Dispose() + End Sub + + + 'Private Sub copy_indexdata(ByVal dokumentid As String, ByVal Status As String) + ' Dim sda As New SqlDataAdapter("select * from dokumentcoldindexwert where (indextyp=1 or indextyp=2) and dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + ' Dim sda1 As New SqlDataAdapter("select * from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + ' Dim sda3 As New SqlDataAdapter("select max(indextyp) from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString_edoka) + ' Dim ds As New DataSet() + ' general_ds.Clear() + ' sda.Fill(ds, "Dokumentcoldindexwert") + ' sda1.Fill(general_ds, "Dokumentcoldindexwert") + ' sda.Fill(ds, "DokumentcoldindexwertNeu") + ' sda3.Fill(ds, "Maxwert") + ' Dim i As Integer + ' Dim Maxwert As Integer + ' Maxwert = ds.Tables(2).Rows(0).Item(0) + ' If Maxwert < 2 Then Maxwert = 2 + ' Dim i1 As Integer + ' Dim i2 As Integer + ' i1 = 0 + ' i2 = 0 + ' For i = 0 To ds.Tables(0).Rows.Count - 1 + ' If Not ds.Tables(0).Rows(i).Item("wert") Is System.DBNull.Value Then + ' If ds.Tables(0).Rows(i).Item("cold_indexfeldnr") = 7 And (ds.Tables(0).Rows(i).Item("wert") = "Aktuell" Or ds.Tables(0).Rows(i).Item("wert") = "Alt") Then + ' If ds.Tables(0).Rows(i).Item("indextyp") = 1 Then i1 = 1 + ' If ds.Tables(0).Rows(i).Item("indextyp") = 2 Then i2 = 1 + ' End If + ' End If + ' Next + ' For i = 0 To ds.Tables(0).Rows.Count - 1 + ' If Not ds.Tables(0).Rows(i).Item("wert") Is System.DBNull.Value Then + ' If i1 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 1 Then + ' ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 1 + ' If ds.Tables(0).Rows(i).Item("cold_indexfeldnr") = 7 Then ds.Tables(0).Rows(i).Item("wert") = Status + ' End If + ' If i2 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 2 Then + ' ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 2 + ' If ds.Tables(0).Rows(i).Item("cold_indexfeldnr") = 7 Then ds.Tables(0).Rows(i).Item("wert") = Status + ' End If + ' End If + ' Next + ' For i = 0 To ds.Tables(1).Rows.Count - 1 + ' If Not ds.Tables(0).Rows(i).Item("wert") Is System.DBNull.Value Then + ' If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then + ' If ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 7 Or ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 7 Or ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 10 Then ds.Tables(1).Rows(i).Item("wert") = "" + ' End If + ' If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then + ' If ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 5 Or ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 7 Or ds.Tables(1).Rows(i).Item("cold_indexfeldnr") = 10 Then ds.Tables(1).Rows(i).Item("wert") = "" + ' End If + ' End If + ' Next + ' Dim cd As New SqlCommandBuilder(sda) + ' sda.Update(ds, "Dokumentcoldindexwert") + + ' Dim dw As New edokadb.clsDokumentcoldindexwert() + ' dw.cpMainConnectionProvider = conn_edoka + ' For i = 0 To ds.Tables(1).Rows.Count - 1 + ' If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then + ' dw.iIndextyp = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(1), Int32)) + ' If Not ds.Tables(1).Rows(i).Item(2) Is System.DBNull.Value Then + ' dw.sWert = New SqlString(CType(ds.Tables(1).Rows(i).Item(2), String)) + ' Else + ' dw.sWert = New SqlString(CType("", String)) + ' End If + ' dw.iMandantnr = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(3), Int32)) + ' dw.bAktiv = New SqlBoolean(CType(ds.Tables(1).Rows(i).Item(4), Boolean)) + ' dw.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) + ' dw.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) + ' dw.iMutierer = New SqlInt32(CType(9999, Int32)) + ' dw.sDokumentid = New SqlString(CType(ds.Tables(1).Rows(i).Item(8), String)) + ' dw.iCold_indexfeldnr = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(9), Int32)) + ' conn_edoka.OpenConnection() + ' dw.Insert() + ' conn_edoka.CloseConnection(True) + ' End If + ' If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then + ' dw.iIndextyp = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(1), Int32)) + ' If Not ds.Tables(1).Rows(i).Item(2) Is System.DBNull.Value Then + ' dw.sWert = New SqlString(CType(ds.Tables(1).Rows(i).Item(2), String)) + ' Else + ' dw.sWert = New SqlString(CType("", String)) + ' End If + ' ' dw.sWert = New SqlString(CType(ds.Tables(1).Rows(i).Item(2), String)) + ' dw.iMandantnr = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(3), Int32)) + ' dw.bAktiv = New SqlBoolean(CType(ds.Tables(1).Rows(i).Item(4), Boolean)) + ' dw.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) + ' dw.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) + ' dw.iMutierer = New SqlInt32(CType(9shu*tkb95123, Int32)) + ' dw.sDokumentid = New SqlString(CType(ds.Tables(1).Rows(i).Item(8), String)) + ' dw.iCold_indexfeldnr = New SqlInt32(CType(ds.Tables(1).Rows(i).Item(9), Int32)) + ' conn_edoka.OpenConnection() + ' dw.Insert() + ' conn_edoka.CloseConnection(True) + ' End If + ' Next + ' dw.Dispose() + ' sda.Dispose() + ' sda1.Dispose() + ' sda3.Dispose() + 'End Sub + + + + +#End Region + +#Region "Diverse Funktionen" + + Private Sub update_dokument_formularnr(ByVal dokumentid As String, ByVal formularnr As String) + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim i As Integer + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_update_dokument_formularnr" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@formularnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, formularnr)) + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + conn_edoka.CloseConnection(True) + Finally + scmCmdToExecute.Dispose() + End Try + + End Sub + + Dim DokumentArchiviert As Boolean + '''Prfung, ob das Dokument bereits in AGI-COLD archiviert wurde + '''Dokumentid des zu prfenden Dokumentes + Private Function ist_archiviert(ByVal dokumentid As String) As Integer + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim i As Integer + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_dokument_bereits_archiviert" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@istarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@bdrarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) + sdaAdapter.Fill(dtToReturn) + i = scmCmdToExecute.Parameters.Item("@istarchiviert").Value + ist_archiviert = i + Me.DokumentArchiviert = scmCmdToExecute.Parameters.Item("@istarchiviert").Value + Catch ex As Exception + 'MsgBox(ex.Message) + ' // some error occured. Bubble it to caller and encapsulate Exception object + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + End Function + + '''Prfung des zu lschenden Dokumentes in der EDOKA-Datenbank + '''1=Prfung anhand einer EDOKA_Dokumentid + '''2=Prfung anhand des Dateinamens + '''EDOKA_DokumentID oder Dateiname + '''Aktuelle Zeile der Indexdaten + '''True=Dokument gefunden und es kann gelscht werden + '''False=Dokument nicht gefunden bzw. es kann nicht gelscht werden, da die + '''Suche mittels Dateiname mehrere Treffer ergab + Private Function get_edoka_dokument(ByVal fnkt As Integer, ByVal wert As String, ByVal datarow As Integer) As Boolean + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.SP_Edoka_Import_Get_EDOKA_Dokument" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@edoka_dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) + Try + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + conn_edoka.CloseConnection(True) + If scmCmdToExecute.Parameters("@edoka_dokumentid").Value = "" Then + Fehler = 200 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokument: " + Me.IndexData.Rows(datarow).Item(12) + " konnte in EDOKA nicht gefunden werden.", "", "") + Return False + Else + If scmCmdToExecute.Parameters("@edoka_dokumentid").Value = "-16" Then + Fehler = 201 + Journal.Insert_Journal(datarow, "", "", "", Fehler, "Dokument: " + Me.IndexData.Rows(datarow).Item(12) + " mehrfach in EDOKA vorhanden", "", "") + Return False + Else + Me.Dokumentid = scmCmdToExecute.Parameters("@edoka_dokumentid").Value + Return True + End If + End If + Catch ex As Exception + PrintOut("clsCheckandImport.get_edoka_dokument()" + ex.Message, EventLogEntryType.Error) + Return False + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + dtToReturn.Dispose() + End Try + + End Function + + Private Sub Save_ImportDaten(ByVal datarow As Integer) + Dim ds As New DataSet() + Dim dt As New DataTable() + dt = Me.IndexData.Clone + dt.Rows.Clear() + Dim filename As String = LTrim(Str(Globals.Journal.JournalNr)) + "_" + LTrim(Str(datarow)) + "_Indexdata.xml" + dt.ImportRow(Me.IndexData.Rows(datarow)) + ds.Tables.Add(dt) + ds.WriteXml(Params.TempPfad + filename) + dt.Rows.Clear() + ds.Tables.Clear() + dt.Dispose() + ds.Dispose() + + Dim xmldata As String = "" + Dim s As String = "" + FileOpen(15, Params.TempPfad + filename, OpenMode.Input) + While Not EOF(15) + Input(15, s) + xmldata = xmldata + s + End While + FileClose(15) + Try + File.SetAttributes(Params.TempPfad + filename, FileAttributes.Normal) + Catch + End Try + Try + File.Delete(Params.TempPfad + filename) + Catch + End Try + Try + Dim sqlstatement As String = "Select * from Import_Daten where import_data_nr = -1" + Dim Connection As New SqlConnection() + Dim DA As New SqlDataAdapter(sqlstatement, Globals.sConnectionString_journale) + Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) + + Dim dsDATEN As New DataSet() + Dim fs As New FileStream(Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item("Dateiname"), FileMode.Open, FileAccess.Read) + '20210709 - LSV + 'Dim fs As New FileStream(Params.Inputverzeichnis + Me.IndexData.Rows(datarow).Item(12), FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + Try + fs.Read(mydata, 0, fs.Length) + fs.Close() + Connection.ConnectionString = Globals.sConnectionString_journale + Connection.Open() + DA.Fill(dsDATEN, "docs") + Dim myRow As DataRow + If dsDATEN.Tables(0).Rows.Count = 0 Then + 'Neuer Datensatz speichern + myRow = dsDATEN.Tables(0).NewRow + myRow.Item(1) = Globals.Journal.JournalNr + myRow.Item(2) = datarow + myRow.Item(3) = xmldata + myRow.Item(4) = mydata + myRow.Item(5) = 0 + myRow.Item(7) = 0 + dsDATEN.Tables(0).Rows.Add(myRow) + DA.Update(dsDATEN, "docs") + End If + Catch ex As Exception + PrintOut("clsCheckandImport.Save_ImportDaten()" + ex.Message, EventLogEntryType.Error) + End Try + fs = Nothing + cb = Nothing + dsDATEN = Nothing + DA = Nothing + Connection.Close() + Connection = Nothing + Catch + End Try + End Sub + +#End Region + + Private Sub send_deleted_mail(ByVal empfaenger As String, ByVal dokumentid As String) + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + scmCmdToExecute.CommandText = "dbo.sp_edoka_import_send_deleted_mail" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + scmCmdToExecute.Connection = conn_edoka.scoDBConnection + Try + scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger)) + scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) + conn_edoka.OpenConnection() + scmCmdToExecute.ExecuteNonQuery() + Catch ex As Exception + Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + conn_edoka.CloseConnection(True) + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + + End Sub + + +End Class diff --git a/edkb08/clsDivFnkt.vb b/edkb08/clsDivFnkt.vb new file mode 100644 index 0000000..b6341d0 --- /dev/null +++ b/edkb08/clsDivFnkt.vb @@ -0,0 +1,269 @@ +Imports System.IO +Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.Reflection + +'''Diverse allgemeine Funktionen +'''Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus +'''diversen anderen Klassen genutzt werden.$EOL$ +'''Die Instanzierung der Klasse erfolgt ber das Module Globals.vb +'''Globals.DivFnkt +Public Class clsDivFnkt + '''Generieren der EDOKA-DokumentID + '''Diese Methode generiert eine neue eindeutige, 22-stellige + '''EDOKA-Dokumentid. $EOL$ + '''Die Letzte ziffer ist eine Prfziffer + '''DokumentID fr EDOKA + '''Prfziffer-Berechnung + Public Function Generate_Key() As String + Dim dbkey As New edokadb.clsMyKey_Tabelle() + Dim key As Long + Dim skey As String + Dim s As String + dbkey.cpMainConnectionProvider = conn_edoka + conn_edoka.OpenConnection() + key = dbkey.get_dbkey("dokument") + conn_edoka.CloseConnection(False) + skey = "OFFEDK000" + + s = Str(Year(Now)) + While Microsoft.VisualBasic.Left(s, 1) = " " + s = Microsoft.VisualBasic.Right(s, Len(s) - 1) + End While + skey = skey + s + + s = Str(key) + While Microsoft.VisualBasic.Left(s, 1) = " " + s = Microsoft.VisualBasic.Right(s, Len(s) - 1) + End While + + While Len(s) < 8 + s = "0" + s + End While + skey = skey + s + + s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15)) + While Microsoft.VisualBasic.Left(s, 1) = " " + s = Microsoft.VisualBasic.Right(s, Len(s) - 1) + End While + skey = skey + s + Generate_Key = skey + End Function + + '''Berechnung der Prfziffer nach Modulo9/Rekursiv + '''Dokumentid ohne Prfix + '''DokumentID ohne Prfix (OFFEDK) inkl. Prfziffer + '''EDKB08.clsDivFnkt + Public Function Pruefziffer(ByVal zahl As String) As String + Dim ptab(9, 9) As Integer + Dim pz(9) As Integer + Dim s1, s2, s3 As String + + Dim i1, i2 As Long + + s1 = "0,9,4,6,8,2,7,1,3,5" + s2 = s1 + For i1 = 0 To 9 + For i2 = 0 To 9 + ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1) + Next + s3 = Microsoft.VisualBasic.Left(s1, 1) + s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2) + s1 = s1 + "," + s3 + s2 = s1 + Next + pz(0) = 0 + pz(1) = 9 + pz(2) = 8 + pz(3) = 7 + pz(4) = 6 + pz(5) = 5 + pz(6) = 4 + pz(7) = 3 + pz(8) = 2 + pz(9) = 1 + + Dim i, x, y As Integer + y = 0 + For i = 1 To Len(zahl) + x = Val(Mid(zahl, i, 1)) + y = ptab(x, y) + Next + Pruefziffer = Str(pz(y)) + End Function + + '''Dokumen in der EDOKA-Datenbank speichern + '''Die Funktion speichert ein Dokument des Filesystems in die + '''EDOKA-Datenbank Tabelle DOKS + '''DEDOKA-Dokumentid + '''Origianl-Dokumentname (Fullpath) + '''True=Speichern erfolgreich, False=Speichern fehlgeschalgen + Public Function Save_To_DB(ByVal sDokumentID As String, ByVal sDokumentName As String, ByVal barcodekleberdokument As Boolean) As Boolean + Dim sqlstatement As String = "Select * from doks where dokumentid='" + sDokumentID + "'" + If barcodekleberdokument = True Then + Dim s As String + s = sDokumentID + s = s.Replace("OFFEDK", Globals.ImportPraefix) + sqlstatement = "Select * from doks where dokumentid='" + s + "'" + End If + Try + Dim Connection As New SqlConnection() + ' Dim DA As New SqlDataAdapter("select * from doks where dokumentid='" + sDokumentID + "'", Connection) + Dim DA As New SqlDataAdapter(sqlstatement, Connection) + Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) + Dim ds As New DataSet() + Dim fs As New FileStream(sDokumentName, FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + Try + fs.Read(mydata, 0, fs.Length) + fs.Close() + Connection.ConnectionString = Globals.sConnectionString_edoka + Connection.Open() + DA.Fill(ds, "docs") + Dim myRow As DataRow + If ds.Tables(0).Rows.Count = 0 Then + ' Neues Dokument speichern + myRow = ds.Tables(0).NewRow + myRow.Item(0) = sDokumentID + myRow.Item(1) = mydata + ds.Tables(0).Rows.Add(myRow) + DA.Update(ds, "docs") + Else + 'Bestehendes Dokument sichenr + myRow = ds.Tables(0).Rows(0) + myRow.Item(1) = mydata + DA.Update(ds, "docs") + End If + If Params.DeleteOriginalfiles = 1 Then + Try + File.SetAttributes(sDokumentName, FileAttributes.Normal) + Catch + End Try + Try + File.Delete(sDokumentName) + Catch ex As Exception + PrintOut("clsDivFnkt.Save_To_DB().2" + ex.Message, EventLogEntryType.Error) + End Try + End If + Catch ex As Exception + PrintOut("clsDivFnkt.Save_To_DB().0" + ex.Message, EventLogEntryType.Error) + Return False + End Try + fs = Nothing + cb = Nothing + ds = Nothing + DA = Nothing + + Connection.Close() + Connection = Nothing + Return True + Catch EX As Exception + PrintOut("clsDivFnkt.Save_To_DB().1" + ex.Message, EventLogEntryType.Error) + Return False + End Try + End Function + + 'canon + Public Function Save_blscan_To_DB(ByVal nreintrag As Integer, sdokumentname As String) As Boolean + Dim sqlstatement As String = "Select * from bl_scan where nreintrag=" + nreintrag.ToString + + Try + Dim Connection As New SqlConnection() + ' Dim DA As New SqlDataAdapter("select * from doks where dokumentid='" + sDokumentID + "'", Connection) + Dim DA As New SqlDataAdapter(sqlstatement, Connection) + Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) + Dim ds As New DataSet() + Dim fs As New FileStream(sdokumentname, FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + Try + fs.Read(mydata, 0, fs.Length) + fs.Close() + Connection.ConnectionString = Globals.sConnectionString_edoka + Connection.Open() + DA.Fill(ds, "docs") + Dim myRow As DataRow + If ds.Tables(0).Rows.Count = 0 Then + ' Neues Dokument speichern + myRow = ds.Tables(0).NewRow + myRow.Item(0) = DokumentID + myRow.Item(22) = mydata + ds.Tables(0).Rows.Add(myRow) + DA.Update(ds, "docs") + Else + 'Bestehendes Dokument sichenr + myRow = ds.Tables(0).Rows(0) + myRow.Item(22) = mydata + DA.Update(ds, "docs") + End If + If Params.DeleteOriginalfiles = 1 Then + Try + File.SetAttributes(sdokumentname, FileAttributes.Normal) + Catch + End Try + Try + File.Delete(sdokumentname) + Catch ex As Exception + Printout("clsDivFnkt.Save_blscan_To_DB().2" + ex.Message, EventLogEntryType.Error) + End Try + End If + Catch ex As Exception + Printout("clsDivFnkt.Save_blscan_To_DB().0" + ex.Message, EventLogEntryType.Error) + Return False + End Try + fs = Nothing + cb = Nothing + ds = Nothing + DA = Nothing + + Connection.Close() + Connection = Nothing + Return True + Catch EX As Exception + Printout("clsDivFnkt.Save_blscan_To_DB().1" + EX.Message, EventLogEntryType.Error) + Return False + End Try + End Function + + Public Function Save_Indexdata(ByVal jobid As Integer, ByVal datei As String) As Boolean + Dim sqlstatement As String = "Select * from import_job where import_jobnr = " + LTrim(Str(jobid)) + Dim Connection As New SqlConnection() + Dim DA As New SqlDataAdapter("Select * from import_job where import_jobnr = " + LTrim(Str(jobid)), Connection) + Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) + Dim ds As New DataSet() + Dim fs As New FileStream(datei, FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + Try + fs.Read(mydata, 0, fs.Length) + fs.Close() + Connection.ConnectionString = Globals.sConnectionString_journale + Connection.Open() + DA.Fill(ds, "docs") + Dim myRow As DataRow + 'Bestehendes Dokument sichenr + myRow = ds.Tables(0).Rows(0) + myRow.Item(7) = mydata + DA.Update(ds, "docs") + Catch ex As Exception + PrintOut("clsDivFnkt.Save_Indexdata()" + ex.Message, EventLogEntryType.Error) + Return False + Finally + fs = Nothing + cb = Nothing + ds = Nothing + DA = Nothing + + Connection.Close() + Connection = Nothing + End Try + End Function + + + Public Function ApplicationPath() As String + 'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location) + Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\" + End Function + +End Class + diff --git a/edkb08/clsIndexData.vb b/edkb08/clsIndexData.vb new file mode 100644 index 0000000..cda8af8 --- /dev/null +++ b/edkb08/clsIndexData.vb @@ -0,0 +1,373 @@ +Imports System.IO +Imports System.Data +Imports System.Data.SqlClient +Imports System.Data.SqlTypes + +'''Funktionen fr d4as Einlesen der Indexdaten aus einer XML- oder +'''Textdatei +'''Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als +'''XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert +'''diese im Property IndexData zurck. +'''Stefan Hutter +Public Class clsIndexData + +#Region "Deklarationen" + + '''Interne Variable fr IndexFilenName + Dim m_indexfilename As String + '''Enthlt der Name der Inputdatei mit den Indexdaten (XML oder + '''TXT) + '''Stefan Hutter + Property IndexFileName() As String + Get + Return m_indexfilename + End Get + Set(ByVal Value As String) + m_indexfilename = Value + End Set + End Property + + '''Interne Variable fr IndexData + Dim m_Indexdata As DataTable + '''Datentabelle mit den geladenen Indexwerten + '''Stefan Hutter + Property Indexdata() As DataTable + Get + Return m_Indexdata + End Get + Set(ByVal Value As DataTable) + m_Indexdata = Value + End Set + End Property + + '''Temporre Collection mit den getrennten Indexdaten aus der + '''txt-Input-Datei + '''Stefan Hutter + Dim Splitline As Collection + +#End Region + + + '''Angelieferte Indexdaten auslesen und in die Datentabele Indexdata + '''speichern. Abhngig vom angelieferten Format, XML-Datei einlesen oder + '''Komma-getrennte Textdatei auslesen + '''Stefan Hutter + Public Function getindexdata() As Boolean + Index_Datei_Sichern(Me.IndexFileName) + Try + Dim s As String = "" + FileOpen(1, Me.IndexFileName, OpenMode.Input) + Input(1, s) + FileClose(1) + If UCase(Microsoft.VisualBasic.Left(s, 5)) = " 0 Then Return True + Exit Function + End If + Indexwerte_Einlesen(s) + End While + Catch + tr.Close() + Return False + End Try + Return True + End If + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", 16, "Fehler beim ffnen der Inputdatei " + Me.IndexFileName, "", "") + Finally + Try + FileClose(1) + Catch + End Try + If Params.DeleteOriginalfiles = 0 Then + FileSystem.Rename(Me.IndexFileName, Me.IndexFileName + "." + Format(Now, "yyyyMMddHHmmss")) + Else + Try + File.SetAttributes(Me.IndexFileName, FileAttributes.Normal) + Catch + End Try + Try + File.Move(Me.IndexFileName, Params.sikind + Now.ToString("yyyyMMddHHmmss") + "_" + Path.GetFileName(Me.IndexFileName)) + 'File.Delete(Me.IndexFileName) + Catch + End Try + End If + + End Try + End Function + + Private Sub Index_Datei_Sichern(ByVal filename As String) + Try + Dim sqlstatement As String = "Select * from Import_Job where Import_JobNr = " + LTrim(Str(Journal.JournalNr)) + Dim Connection As New SqlConnection() + Dim DA As New SqlDataAdapter(sqlstatement, Globals.sConnectionString_journale) + Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) + + Dim dsDATEN As New DataSet() + Dim fs As New FileStream(filename, FileMode.Open, FileAccess.Read) + Dim mydata(fs.Length) As Byte + Try + fs.Read(mydata, 0, fs.Length) + fs.Close() + Connection.ConnectionString = Globals.sConnectionString_journale + Connection.Open() + DA.Fill(dsDATEN, "docs") + Dim myRow As DataRow + myRow = dsDATEN.Tables(0).Rows(0) + myRow.Item(7) = mydata + DA.Update(dsDATEN, "docs") + Catch ex As Exception + End Try + fs = Nothing + cb = Nothing + dsDATEN = Nothing + DA = Nothing + Connection.Close() + Connection = Nothing + Catch + End Try + + End Sub + Private Sub map_iris_struktur(ByRef idxds As DataSet) + Dim tmpds As New DataSet + tmpds.ReadXml(System.AppDomain.CurrentDomain.BaseDirectory + "\canonstruktur.xml") + Dim dr As DataRow = tmpds.Tables(0).NewRow + For Each col As DataColumn In tmpds.Tables(0).Columns + dr.Item(col.ColumnName) = "" + Next + For Each col As DataColumn In idxds.Tables(0).Columns + dr.Item(col.ColumnName) = idxds.Tables(0).Rows(0).Item(col.ColumnName) + + Next + tmpds.Tables(0).Rows.Clear() + tmpds.Tables(0).Rows.Add(dr) + idxds.Tables.Clear() + + idxds.Tables.Add(tmpds.Tables(0).Copy) + tmpds.Dispose() + End Sub + + Private Sub map_iris_LSV(ByRef idxds As DataSet) + + Dim tmpds As New DataSet + tmpds.ReadXml(System.AppDomain.CurrentDomain.BaseDirectory + "\edkb08struktur.xml") + tmpds.Tables(0).Columns.Add("DOKUMENTWERT21") + tmpds.Tables(0).Columns.Add("DOKUMENTWERT22") + tmpds.Tables(0).Columns.Add("DOKUMENTWERT23") + tmpds.Tables(0).Columns.Add("DOKUMENTWERT24") + tmpds.Tables(0).Columns.Add("DOKUMENTWERT25") + tmpds.Tables(0).Columns.Add("Stapelkennung") + + Dim dr As DataRow = tmpds.Tables(0).NewRow + For Each col As DataColumn In tmpds.Tables(0).Columns + dr.Item(col.ColumnName) = "" + Next + + For Each col As DataColumn In idxds.Tables(0).Columns + Try + dr.Item(col.ColumnName) = idxds.Tables(0).Rows(0).Item(col.ColumnName) + Catch + End Try + Next + + dr.Item("ersteller") = idxds.Tables(0).Rows(0).Item("Benutzer") + 'dr.Item("DOKUMENTTYPNR") = idxds.Tables(0).Rows(0).Item("Dokumenttyp") + '//dr.Item("DOKUMENTWERT1") = "Scandatum;" + idxds.Tables(0).Rows(0).Item("Scandatum") + 'dr.Item("DOKUMENTWERT2") = "Paginatornummer;" + idxds.Tables(0).Rows(0).Item("Paginatornummer") + 'dr.Item("DOKUMENTWERT3") = "Status;" + idxds.Tables(0).Rows(0).Item("Status") + 'dr.Item("DOKUMENTWERT4") = "IBAN;" + idxds.Tables(0).Rows(0).Item("IBAN") + + + For i As Integer = 11 To 33 + dr.Item("DOKUMENTWERT" + (i - 10).ToString) = idxds.Tables(0).Columns(i).ColumnName + ";" + idxds.Tables(0).Rows(0).Item(i).ToString + Next + + + + tmpds.Tables(0).Rows.Clear() + tmpds.Tables(0).Rows.Add(dr) + idxds.Tables.Clear() + + + idxds.Tables.Add(tmpds.Tables(0).Copy) + tmpds.Dispose() + End Sub + + Private Function parsexml(ByVal istr As String) As String + istr = istr.Replace("&", "&") + Return istr + End Function + + '''XML-Datei als Datatable einlesen + '''Stefan Hutter + ''' + Private Sub xmlinput() + Try + + + Dim idxds As New DataSet() + Try + idxds.ReadXml(Me.IndexFileName) + Catch + FileOpen(21, Me.IndexFileName, OpenMode.Input) + FileOpen(22, Me.IndexFileName + ".tmp", OpenMode.Output) + Dim il As String + Dim ol As String + While Not EOF(21) + Input(21, il) + + ol = parsexml(il) + PrintLine(22, ol) + End While + FileClose(21) + FileClose(22) + File.Delete(Me.IndexFileName) + Rename(Me.IndexFileName + ".tmp", Me.IndexFileName) + idxds.ReadXml(Me.IndexFileName) + End Try + + + Try + If Globals.Canon_Herkunft(idxds.Tables(0).Rows(0).Item("Herkunftsapplikation")) Then + '20210816 - LSV + If idxds.Tables(0).Rows(0).Item("Herkunftsapplikation") = "IRIS_FORMS_LSV" Then + map_iris_LSV(idxds) + Else + + map_iris_struktur(idxds) + End If + + End If + + Catch ex As Exception + + End Try 'canon-Mapping' + 'Anpassungen EBES_LSV + Dim i As Integer + For i = 0 To idxds.Tables.Count - 1 + '-- Canon von >20 auf > 5 gendert + If idxds.Tables(i).Columns.Count > 20 Then + Me.Indexdata = idxds.Tables(i) + Exit For + End If + Next + ' Me.Indexdata = idxds.Tables(0) + Catch ex As Exception + Journal.Insert_Journal("", "", "", Me.IndexFileName, 16, "Fehler beim einlesen der XML-Datei: " + ex.Message, "", "") + End Try + End Sub + + '''Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten + '''Datenstze eingelesen und zugewiesen werden knnen + '''Stefan Hutter + Private Sub Datentabelle_Erstellen() + Try + Dim idxds As New DataSet() + idxds.ReadXml(DivFnkt.ApplicationPath + "TabStruktur_Delimited_Import.xml") + Me.Indexdata = idxds.Tables(0) + Me.Indexdata.Rows(0).Delete() + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", 16, "Fehler beim Erstellen der Initialiseriungstabelle mit der XML-Struktur" + ex.Message, "", "") + End Try + End Sub + + '''Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der + '''Tabelle "Indexdata" speichern + '''Zeile der Inputdatei (Komma-getrennte Werte) + '''Stefan Hutter + Private Sub Indexwerte_Einlesen(ByVal s As String) + Splitline = SplitDelimitedLine(s, ",", """") + Insert_Into_DB(Splitline) + End Sub + + '''Datensatz in der Tabelle "Indexdata" einfgen. Die Anzahl der + '''Spalten in der Tabelle ist abhngig vom Default-XML, welches zur + '''Tabellenerstellung verwendet wird. + ''' + '''Stefan Hutter + Private Sub Insert_Into_DB(ByVal data As Collection) + Dim i As Integer + Try + Dim datacolumns As Integer = Me.Indexdata.Columns.Count + Dim RowVals(datacolumns - 1) As Object + + For i = 0 To datacolumns - 1 + RowVals(i) = "" + Next + For i = 1 To data.Count + RowVals(i - 1) = data.Item(i) + Next + Me.Indexdata.Rows.Add(RowVals) + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", 16, "Fehler beim Einlesen der Indexdaten: RecordNr:" + Str(i) + ": " + ex.Message, "", "") + End Try + End Sub + + '''Splitfunktion + '''Input-Zeile + '''Trennzeichen der einzelnen werte (z.B. Komma, + '''Strichpunkt usw.) + '''Qualiflyer, welcher die Werte umschliesst (z.B. + '''") + '''Stefan Hutter + Private Function SplitDelimitedLine(ByVal CurrentLine As String, ByVal Delimiter As String, ByVal Qualifier As String) As Collection + Try + Dim i As Integer + Dim SplitString As New Collection() + Dim CountDelimiter As Boolean + Dim Total As Integer + Dim Ch As Char + Dim Section As String + CountDelimiter = True + Total = 0 + Section = "" + For i = 1 To Len(CurrentLine) + Ch = Mid(CurrentLine, i, 1) + Select Case Ch + Case Qualifier + If CountDelimiter Then + CountDelimiter = False + Else + CountDelimiter = True + End If + + Case Delimiter + If CountDelimiter Then + 'SplitString.Add(New MySection(Section)) + SplitString.Add(Section) + Section = "" + Total = Total + 1 + End If + Case Else + Section = Section & Ch + End Select + Next + If CountDelimiter Then + 'SplitString.Add(New MySection(Section)) + SplitString.Add(Section) + End If + SplitDelimitedLine = SplitString + Catch ex As Exception + Journal.Insert_Journal("", "", "", "", 16, "Fehler beim Einlesen der Indexdaten: " + ex.Message, "", "") + Dim SplitString As New Collection() + SplitDelimitedLine = SplitString + End Try + End Function + + + +End Class diff --git a/edkb08/clsParameter.vb b/edkb08/clsParameter.vb new file mode 100644 index 0000000..ef70403 --- /dev/null +++ b/edkb08/clsParameter.vb @@ -0,0 +1,335 @@ +Imports System.IO + +'''Klasse zum auselesen der Steuerparameter aus der Datei +'''\bin\parameters.cfg +'''Stefan Hutter +Public Class ClsParameters + +#Region "Deklarationen" + + '''Interne Variable zum Auslesen der Datei + Dim ofile As System.IO.File + '''Interne Variable zum Auslesen der Datei + Dim oread As System.IO.StreamReader + + '''Interne Variable fr das Property Application ID + Dim m_applicationid As String + '''ApplikationsID fr die Journalisierung + Property ApplicationID() As String + Get + Return m_applicationid + End Get + Set(ByVal Value As String) + m_applicationid = Value + End Set + End Property + + '''Interne Variable fr das Property Inputverzeichnis + Dim m_Inputverzeichnis As String + '''Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert + '''sind + Property Inputverzeichnis() As String + Get + Return m_Inputverzeichnis + End Get + Set(ByVal Value As String) + m_Inputverzeichnis = Value + End Set + End Property + + '''Interne Variable fr das Property MailadresseOK + Dim m_MailadresseOK As String + '''EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung + '''ordnungsgemss durchgelaufen ist + Property MailAdresseOK() As String + Get + Return m_MailadresseOK + End Get + Set(ByVal Value As String) + m_MailadresseOK = Value + End Set + End Property + + '''Interne Variable fr das Property MailadresseNOK + Dim m_MailadresseNOK As String + '''Mailadresse, an die im Fehlerfall ein Mail gesendet wird + Property MailAdresseNOK() As String + Get + Return m_MailadresseNOK + End Get + Set(ByVal Value As String) + m_MailadresseNOK = Value + End Set + End Property + + '''Interne Variable fr das Property Meldung + Dim m_meldung As String + '''Allflliger Meldungstext, welcher beim Laden der Parameter generiert + '''wird + Property Meldung() As String + Get + Return m_meldung + End Get + Set(ByVal Value As String) + m_meldung = Value + End Set + End Property + + '''Interne Variable fr das Property Temppfad + Dim m_temppfad As String + '''Pfad fr temporre Dateien + Property TempPfad() As String + Get + Return m_temppfad + End Get + Set(ByVal Value As String) + m_temppfad = Value + End Set + End Property + + '''Interne Variable fr das Property Mailserver + Dim m_mailserver As String + '''SMTP-Mailserver fr den Journalversand + Property Mailserver() As String + Get + Return m_mailserver + End Get + Set(ByVal Value As String) + m_mailserver = Value + End Set + End Property + + Dim m_mailabsender As String + Property Mailabsender() As String + Get + Return m_mailabsender + End Get + Set(ByVal Value As String) + m_mailabsender = Value + End Set + End Property + + '''Interne Variable fr das Property Journaltimer_time + Dim m_journaltimer_time As Integer = 60 * 60 * 1000 + '''Journaltimer-Zeit in Milisekunden + Property JournalTimer_Time() As Integer + Get + Return m_journaltimer_time + End Get + Set(ByVal Value As Integer) + m_journaltimer_time = Value + End Set + End Property + + '''Interne Variable fr das Property DeleteOriginalfiles + Dim m_deleteoriginalfiles As Integer = 0 + '''DeleteOriginalfiles + Property DeleteOriginalfiles() As Integer + Get + Return m_deleteoriginalfiles + End Get + Set(ByVal Value As Integer) + m_deleteoriginalfiles = Value + End Set + End Property + + '''Interne Variable fr das Property GSF Config File Path + Dim m_gsf_ConfigPath As String + '''gsf ConfigPath + Property Prop_gsf_ConfigPath() As String + Get + Return m_gsf_ConfigPath + End Get + Set(ByVal Value As String) + m_gsf_ConfigPath = Value + End Set + End Property + + '''Interne Variable fr das Property GSF Timer Intervall + Dim m_gsf_TimerInterval As Integer = 0 + '''gsf Timer Interval + Property Prop_gsf_TimerInterval() As Integer + Get + Return m_gsf_TimerInterval + End Get + Set(ByVal Value As Integer) + m_gsf_TimerInterval = Value + End Set + End Property + + '''Interne Variable fr das Property GSF DateiEndung + Dim m_gsf_ConfigDateiendung As String + '''gsf DateiEndung + Property Prop_gsf_ConfigDateiendung() As String + Get + Return m_gsf_ConfigDateiendung + End Get + Set(ByVal Value As String) + m_gsf_ConfigDateiendung = Value + End Set + End Property + + Dim m_directorytimer_intervall As Integer + Property DirectoryTimer_Intervall As Integer + Get + Return m_directorytimer_intervall + End Get + Set(value As Integer) + m_directorytimer_intervall = value + End Set + End Property + + Dim m_directoryscanner As String + Property Directoryscanner As String + Get + Return m_directoryscanner + End Get + Set(value As String) + m_directoryscanner = value + End Set + End Property + + Dim m_sikind As String + Property sikind As String + Get + Return m_sikind + End Get + Set(value As String) + m_sikind = value + End Set + End Property + + Dim m_logpath As String = "" + Property Logpath As String + Get + Return m_logpath + End Get + Set(value As String) + m_logpath = value + End Set + End Property + + Dim m_useFileEventRename As Boolean = False + Property UseFileEventRename As Boolean + Get + Return m_useFileEventRename + End Get + Set(value As Boolean) + m_useFileEventRename = value = "True" + End Set + End Property + + Dim m_waitafterfileevent As Integer + Property WaitAfterFileevent As Integer + Get + Return m_waitafterfileevent + End Get + Set(value As Integer) + m_waitafterfileevent = value + End Set + End Property + + Dim m_waitbeforeprocess As Integer + Property WaitBeforeProcess As Integer + Get + Return m_waitbeforeprocess + End Get + Set(value As Integer) + m_waitbeforeprocess = value + End Set + End Property + + Dim m_Wait_before_xmlind_ren As Int16 + Property Wait_before_xmlind_ren As Integer + Get + Return m_Wait_before_xmlind_ren + End Get + Set(value As Integer) + m_Wait_before_xmlind_ren = value + End Set + End Property + + Dim m_Wait_before_readdir As Integer + Property Wait_before_readdir As Integer + Get + Return m_Wait_before_readdir + End Get + Set(value As Integer) + m_Wait_before_readdir = value + End Set + End Property + + Dim m_wait_before_fileproc As Integer + Property Wait_Before_Fileprocess As Integer + Get + Return m_wait_before_fileproc + End Get + Set(value As Integer) + m_wait_before_fileproc = value + End Set + End Property + + Dim m_wait_afger_fileproc As Integer + Property wait_After_Fileprocess As Integer + Get + Return m_wait_afger_fileproc + End Get + Set(value As Integer) + m_wait_afger_fileproc = value + End Set + End Property +#End Region + + '''Laden der Parameterdaten aus parameters.cfg + '''Die Funktion ldt fr die Anwendung die notwendigen Parameter aus der + '''Datei "Parameters.cfg" + '''True im OK-Fall + '''False im Fehlerfall + Public Function Loadparameters() As Boolean + Try + oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "parameters.cfg") + 'oread = ofile.OpenText(args(1) + "parameters.cfg") + Me.ApplicationID = ParamValue(oread.ReadLine) + Me.Inputverzeichnis = ParamValue(oread.ReadLine) + If Right(Me.Inputverzeichnis, 1) <> "\" Then Me.Inputverzeichnis = Me.Inputverzeichnis + "\" + Me.TempPfad = ParamValue(oread.ReadLine) + Me.JournalTimer_Time = ParamValue(oread.ReadLine) * 60 * 1000 + Me.Mailabsender = ParamValue(oread.ReadLine) + Me.Mailserver = ParamValue(oread.ReadLine) + Me.DeleteOriginalfiles = ParamValue(oread.ReadLine) + Me.MailAdresseOK = ParamValue(oread.ReadLine) + Me.MailAdresseNOK = ParamValue(oread.ReadLine) + Me.Prop_gsf_ConfigPath = ParamValue(oread.ReadLine) + Me.Prop_gsf_TimerInterval = ParamValue(oread.ReadLine) * 60 * 1000 + Me.Prop_gsf_ConfigDateiendung = ParamValue(oread.ReadLine) + Me.DirectoryTimer_Intervall = ParamValue(oread.ReadLine) * 60 * 1000 + Me.Directoryscanner = ParamValue(oread.ReadLine) + Me.sikind = ParamValue(oread.ReadLine) + Me.Logpath = ParamValue(oread.ReadLine) + Me.UseFileEventRename = ParamValue(oread.ReadLine) + Me.WaitAfterFileevent = ParamValue(oread.ReadLine) + Me.WaitBeforeProcess = ParamValue(oread.ReadLine) + Me.Wait_before_xmlind_ren = ParamValue(oread.ReadLine) + Me.Wait_Before_Fileprocess = ParamValue(oread.ReadLine) + Me.wait_After_Fileprocess = ParamValue(oread.ReadLine) + oread.Close() + Me.Meldung = "Parameter auslesen i.O." + Return True + Catch ex As Exception + Me.Meldung = ex.Message + Return False + End Try + End Function + + + + '''Parameterbezeichnung und Parameterwert trennen + '''Inputstring mit Parameterbezeichnung und + '''Parameterwert + '''Parameterwert als String + Private Function ParamValue(ByVal sinput As String) As String + Dim splitter As String() + splitter = Split(sinput, "=") + ParamValue = splitter(1) + End Function +End Class diff --git a/edkb08/log_report/Class1.vb b/edkb08/log_report/Class1.vb new file mode 100644 index 0000000..e041d52 --- /dev/null +++ b/edkb08/log_report/Class1.vb @@ -0,0 +1,3 @@ +Public Class Class1 + +End Class diff --git a/edkb08/log_report/Dataset1.xsd.bak b/edkb08/log_report/Dataset1.xsd.bak new file mode 100644 index 0000000..94f05e8 --- /dev/null +++ b/edkb08/log_report/Dataset1.xsd.bak @@ -0,0 +1,15 @@ + + + + + + + + diff --git a/edkb08/log_report/Export.vb b/edkb08/log_report/Export.vb new file mode 100644 index 0000000..0ef41b0 --- /dev/null +++ b/edkb08/log_report/Export.vb @@ -0,0 +1,164 @@ +Imports System +Imports System.Data +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Xml.Xsl +Imports System.Threading +'Imports CrystalDecisions.CrystalReports.Engine +'Imports CrystalDecisions.Shared + +'''Funktionen fr den Export der Journaldaten +Public Class Export + + Dim filename As String + '''Auswertung erstellen und ggf. mittels DTO versenden + '''Datentabelle mit den Auswertungsdaten der Applikation + '''Format der Auswertung (txt, csv, xls, doc, pdf, + '''xml) + Public Function Create_Report(ByVal dt As DataTable, ByVal format As String, ByVal Applikation As String) As String + Try + filename = Params.TempPfad + Applikation + "_" + Microsoft.VisualBasic.Format(Now, "yyyyMMddHHmmss") + "_EDKB08_Log" + Select Case UCase(format) + Case "PDF" + filename = filename + ".pdf" + 'CR_Report(dt, format) 20140204 MNK Ausbau CrystalReport Funktion + Case "XLS" + filename = filename + ".xls" + 'CR_Report(dt, format) 20140204 MNK Ausbau CrystalReport Funktion + Case "DOC" + filename = filename + ".doc" + 'CR_Report(dt, format) 20140204 MNK Ausbau CrystalReport Funktion + Case "CSV" + filename = filename + ".csv" + Extract_CSV(dt) + Case "TXT" + filename = filename + ".txt" + Extract_TXT(dt) + Case "XML" + filename = filename + ".xml" + Dim ds As New DataSet() + ds.Tables.Add(dt.Copy) + ds.WriteXml(filename) + ds.Dispose() + End Select + Return filename + Catch ex As Exception + PrintOut("Fehler Crystal:" + ex.Message, EventLogEntryType.Error) + Return "" + End Try + + End Function + + '''Journaldatei als CSV-Datei erstellen + '''Journaldaten + Private Sub Extract_CSV(ByVal dt As DataTable) + Dim s As String + Dim i As Integer + Dim c As Integer + + Dim tw As TextWriter + tw = New StreamWriter(New FileStream(filename, FileMode.Create)) + s = "" + For i = 0 To dt.Columns.Count - 1 + s = s + dt.Columns(i).ColumnName + ";" + Next + tw.WriteLine(s) + s = "" + For i = 0 To dt.Rows.Count - 1 + For c = 0 To dt.Columns.Count - 1 + Try + s = s + CType(dt.Rows(i).Item(c), String) + ";" + Catch + s = s + "" + End Try + Next + tw.WriteLine(s) + s = "" + Next + tw.Flush() + tw.Close() + End Sub + + '''Journaldatei als TXT-Datei erstellen + '''Journaldaten + Private Sub Extract_TXT(ByVal dt As DataTable) + Dim s As String + Dim i As Integer + Dim c As Integer + + Dim tw As TextWriter + tw = New StreamWriter(New FileStream(filename, FileMode.Create)) + s = "" + For i = 0 To dt.Columns.Count - 1 + s = s + """" + dt.Columns(i).ColumnName + """" + ";" + Next + tw.WriteLine(s) + s = "" + For i = 0 To dt.Rows.Count - 1 + For c = 0 To dt.Columns.Count - 1 + Try + s = s + """" + CType(dt.Rows(i).Item(c), String) + """" + ";" + Catch + s = s + "" + End Try + Next + tw.WriteLine(s) + s = "" + Next + tw.Flush() + tw.Close() + End Sub + + '''Crystal-Report-Druck + '''Datentabelle, welche an Crystal zum Druck bergeben + '''wird + '''Zu Exportierendes Format (XLS, DOC, PDF) + ' Private Sub CR_Report(ByVal dt As DataTable, ByVal format As String) + ' Try + ' Dim CrystalReportDocument As ReportDocument + ' Dim CrystalExportOptions As ExportOptions + ' Dim CrystalDiskFileDestinationOptions As DiskFileDestinationOptions + ' Dim ds As New DataSet() + ' ds.Tables.Add(dt.Copy) + + ' CrystalReportDocument = New ReportDocument() + ' CrystalReportDocument.Load(DivFnkt.ApplicationPath + "Journal1.rpt") + ' CrystalReportDocument.SetDataSource(dt) + + ' CrystalReportDocument.SetDataSource(ds.Tables(0)) + + ' CrystalDiskFileDestinationOptions = New DiskFileDestinationOptions() + ' CrystalDiskFileDestinationOptions.DiskFileName = filename + ' CrystalExportOptions = CrystalReportDocument.ExportOptions + ' With CrystalExportOptions + ' .DestinationOptions = CrystalDiskFileDestinationOptions + ' .ExportDestinationType = ExportDestinationType.DiskFile + ' Select Case UCase(format) + ' Case "PDF" + ' .ExportFormatType = ExportFormatType.PortableDocFormat + ' Case "XLS" + ' .ExportFormatType = ExportFormatType.Excel + ' Case "DOC" + ' .ExportFormatType = ExportFormatType.WordForWindows + ' End Select + ' End With + ' CrystalReportDocument.Export() + ' Try + ' 'sorry for this code (RS 2006-11-14) + ' CrystalReportDocument = Nothing + ' CrystalDiskFileDestinationOptions = Nothing + ' CrystalExportOptions = Nothing + ' Catch ex As Exception + ' PrintOut("Export.CR_Report()" + ex.Message, EventLogEntryType.Error) + ' End Try + 'Catch ex As Exception + ' PrintOut("Aufbereitung Crystal:" + ex.Message, EventLogEntryType.Error) + ' End Try + ' End Sub + + + + + +End Class diff --git a/edkb08/log_report/Journal.xsd b/edkb08/log_report/Journal.xsd new file mode 100644 index 0000000..b7a399f --- /dev/null +++ b/edkb08/log_report/Journal.xsd @@ -0,0 +1,29 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/edkb08/log_report/Journal.xsx b/edkb08/log_report/Journal.xsx new file mode 100644 index 0000000..f93124e --- /dev/null +++ b/edkb08/log_report/Journal.xsx @@ -0,0 +1,5 @@ + + + + + \ No newline at end of file diff --git a/edkb08/log_report/clsJournal.vb b/edkb08/log_report/clsJournal.vb new file mode 100644 index 0000000..f7d5feb --- /dev/null +++ b/edkb08/log_report/clsJournal.vb @@ -0,0 +1,266 @@ +Option Explicit On + +Imports System.Data.SqlClient +Imports System.Data.SqlTypes +Imports System.IO + + +'''Funktionen fr die Journalisierung der einzelnen +'''Verarbeitungsschritte +Public Class clsJournal + +#Region "Deklarationen" + '''Interne Variable fr das Property JournalNr + Dim m_Journalnr As Integer + + '''Property fr die JournalNr + Property JournalNr() As Integer + Get + Return m_Journalnr + End Get + Set(ByVal Value As Integer) + m_Journalnr = Value + End Set + End Property + + + '''Variable fr die Datenbankklasse clsImport_Job + Dim Journal As New edokadb.clsImport_Job() + '''Variable fr die Datenbankklasse clsimport_eintrag + Dim Journaleintrag As New edokadb.clsImport_Eintrag() + + '''Interne Variable fr das halten einer Datentabelle + Dim tmptbl As New DataTable() + +#End Region + +#Region "ffentliche Methoden" + '''ffnet ein neuer Journaleintrag in der Tabelle Import_Job + '''Fr jede Indexdatei wird in der Verarbeitung ein neues Journal mit den + '''entsprechenden Eintrgen erstellt + '''Verarbeiten + Public Function Open_Journal() As Boolean + Try + Journal.cpMainConnectionProvider = Globals.conn_journale + Journal.daStart_TS = New SqlDateTime(CType(Now, DateTime)) + Journal.iFeherhaft = New SqlInt32(CType(0, Int32)) + Journal.iJournal_Ausgeliefert = New SqlInt32(CType(0, Int32)) + Try + Globals.conn_journale.OpenConnection() + Catch + End Try + + Journal.Insert() + Try + Globals.conn_journale.CloseConnection(True) + Catch + End Try + + Me.JournalNr = Journal.iImport_JobNr.Value + Journal.Dispose() + Catch + Try + Globals.conn_journale.CloseConnection(True) + Catch ex As Exception + + End Try + End Try + + End Function + + '''Schliessen des aktuell geffneten Verarbeitungsjournales + '''Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle + '''Import_Job nachgefhrt + '''Verarbeiten + Public Function Close_Journal() As Boolean + Journal.cpMainConnectionProvider = Globals.conn_journale + Journal.iImport_JobNr = New SqlInt32(CType(Me.JournalNr, Int32)) + Journal.SelectOne() + If Fehler <> 0 Then + Journal.iFeherhaft = New SqlInt32(CType(1, Integer)) + End If + Journal.daEnde_TS = New SqlDateTime(CType(Now, DateTime)) + Globals.conn_journale.OpenConnection() + Journal.Update() + Globals.conn_journale.CloseConnection(True) + End Function + + '''Journaleintrag lschen + '''Lscht den Journaleintrag aus der Variabel JournalNr + Public Sub Delete_Entry() + Journal.cpMainConnectionProvider = Globals.conn_journale + Journal.iImport_JobNr = New SqlInt32(CType(Me.JournalNr, Int32)) + Journal.SelectOne() + Journal.daEnde_TS = New SqlDateTime(CType(Now, DateTime)) + Globals.conn_journale.OpenConnection() + Journal.Delete() + Globals.conn_journale.CloseConnection(True) + End Sub + '''Einfgen eines neuen Journaldatensatzes + '''Recordnummer der Indexdaten bzw. "" fr allgemeine + '''Journaleintrte + '''Partnernr oder "" fr allgemeine + '''Eintrge + '''Dateityp der zu importierenden Datei bzw. "" + '''fr allgemeine Eintrge + '''Index-Dateiname oder Dateiname der zu importierenden + '''Datei + '''Status Nr + '''Bezeichnung zur Statusnr + '''Dokumentid des EDOKA-Dokumentes nach dem Import + '''oder "" + '''Fremdschlssel zur Tabelle FA_APPL + '''edkb08.edokadb.clsFA_APPL + Public Sub Insert_Journal(ByVal RecNo As String, ByVal Partnernr As String, ByVal dateityp As String, ByVal dateiname As String, + ByVal Status As String, ByVal Statustext As String, ByVal EDOKA_Dokumentid As String, + ByVal Applikationnr As String) + If Status <> "" And Status <> "0" Then + If Globals.Fehlermeldung <> "" Then Globals.Fehlermeldung = Globals.Fehlermeldung + vbCrLf + Globals.Fehlermeldung = Globals.Fehlermeldung + Statustext + End If + Me.Journaleintrag.cpMainConnectionProvider = Globals.conn_journale + Me.Journaleintrag.sRecordNo = New SqlString(CType(RecNo, String)) + Me.Journaleintrag.sPartnernr = New SqlString(CType(Partnernr, String)) + Me.Journaleintrag.sDateityp = New SqlString(CType(dateityp, String)) + Me.Journaleintrag.sDateiname = New SqlString(CType(dateiname, String)) + Me.Journaleintrag.sStatus = New SqlString(CType(Status, String)) + Me.Journaleintrag.sStatustext = New SqlString(CType(Statustext, String)) + Me.Journaleintrag.sEDOKA_Dokumentid = New SqlString(CType(EDOKA_Dokumentid, String)) + Try + If Globals.Herkunftsapplikation.Rows.Count = 0 Then + Me.Journaleintrag.sApplikationsnr = New SqlString(CType(0, String)) + Else + Me.Journaleintrag.sApplikationsnr = New SqlString(CType(Globals.Herkunftsapplikation.Rows(0).Item(0), String)) + End If + Catch + Me.Journaleintrag.sApplikationsnr = New SqlString(CType(0, String)) + End Try + Me.Journaleintrag.daTS = New SqlDateTime(CType(Now, DateTime)) + Me.Journaleintrag.iImport_JobNr = New SqlInt32(CType(JournalNr, Int32)) + Me.Journaleintrag.sEDOKA_Dokumenttyp = New SqlString(CType("", String)) + If RecNo <> "" Then + Me.Journaleintrag.sIndexdaten = New SqlString(CType(get_indexdata(RecNo), String)) + Else + Me.Journaleintrag.sIndexdaten = New SqlString(CType("", String)) + End If + + Globals.conn_journale.OpenConnection() + Me.Journaleintrag.Insert() + Globals.conn_journale.CloseConnection(True) + + If Status <> "0" And Status <> "" Then + PrintLog(Str(Me.Journaleintrag.iImport_Eintragnr.Value) + " " + Status + " " + Statustext, EventLogEntryType.Error) + Else + PrintLog(Str(Me.Journaleintrag.iImport_Eintragnr.Value) + " " + Status + " " + Statustext, EventLogEntryType.Information) + End If + + End Sub + + Private Function get_indexdata(ByVal Recno As Integer) As String + Try + Dim s As String = "" + Dim i As Integer + For i = 0 To Globals.temp_indexdaten.Columns.Count - 1 + s = s + LTrim(Str(i + 1)) + ": " + Trim(Globals.temp_indexdaten.Rows(Recno).Item(i)) + " " + Next + Return s + Catch + Return "" + End Try + End Function + + '''Ergnzt den Journaleintrag mit der zugehrenden + '''Herkunftsapplikation + '''edkb08.Globals + Public Sub Update_Journal() + Try + Dim j As New edokadb.clsImport_Job() + j.iImport_JobNr = New SqlInt32(CType(Globals.Journal.JournalNr, Int32)) + j.cpMainConnectionProvider = Globals.conn_journale + j.SelectOne() + j.iApplikationNr = New SqlInt32(CType(Globals.Herkunftsapplikation.Rows(0).Item(0), Int32)) + Globals.conn_journale.OpenConnection() + j.Update() + Globals.conn_journale.CloseConnection(True) + Catch ex As Exception + PrintOut("clsJournal:Update_Journal:" + ex.Message + ex.StackTrace, EventLogEntryType.Error) + End Try + End Sub + +#Region "Journal" + + Public Function Print_Log(ByVal Applid As Integer, ByVal Applname As String, ByVal type As String) As String + Dim dt As New DataTable() + dt = Get_Journaldata(Applid) + Dim ds As New DataSet() + ds.Tables.Add(dt) + + Dim x As New Export() + Return x.Create_Report(dt, UCase(type), Globals.Herkunftsapplikation.Rows(0).Item(1)) + End Function + + Public Function Print_Log_Batch(ByVal Applid As Integer, ByVal Applname As String, ByVal type As String) As String + Dim dt As New DataTable() + dt = Get_Journaldata(Applid) + Dim ds As New DataSet() + ds.Tables.Add(dt) + + Dim x As New Export() + Return x.Create_Report(dt, UCase(type), Applname) + End Function + + ' Function table_to_csv(ByVal DT As DataTable) As String + ' Dim zeile As String = "" + ' Dim DR As DataRow + ' Dim DC As DataColumn + + ' ' Spaltenberschriften + ' For Each DC In DT.Columns + ' zeile += IIf(zeile <> "", ";", "").ToString + ' zeile += DC.ColumnName + ' Next + ' table_to_csv += zeile & Chr(13) + + ' ' - Alle Zeillen ausgeben + ' For Each DR In DT.Rows + ' zeile = "" + ' ' Schleife ber alle Spalten + ' For Each DC In DT.Columns + ' zeile += IIf(zeile <> "", ";", "").ToString + ' zeile += DR.Item(DC.ColumnName).ToString + + ' Next + ' table_to_csv += zeile & Chr(13) + ' Next + 'End Function + + Private Function Get_Journaldata(ByVal applid As Integer) As DataTable + Dim scmCmdToExecute As SqlCommand = New SqlCommand() + scmCmdToExecute.CommandText = "import_journal" + scmCmdToExecute.CommandType = CommandType.StoredProcedure + Dim dtToReturn As DataTable = New DataTable() + Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) + Try + scmCmdToExecute.Connection = conn_journale.scoDBConnection + scmCmdToExecute.Parameters.Add(New SqlParameter("@applid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, applid)) + sdaAdapter.Fill(dtToReturn) + Return dtToReturn + Catch ex As Exception + Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) + Finally + scmCmdToExecute.Dispose() + sdaAdapter.Dispose() + End Try + + End Function + +#End Region + + + + +#End Region + + + +End Class diff --git a/edkb08/log_report/vssver.scc b/edkb08/log_report/vssver.scc new file mode 100644 index 0000000..2281927 Binary files /dev/null and b/edkb08/log_report/vssver.scc differ diff --git a/edkb08/vssver.scc b/edkb08/vssver.scc new file mode 100644 index 0000000..677a312 Binary files /dev/null and b/edkb08/vssver.scc differ diff --git a/mssccprj.scc b/mssccprj.scc new file mode 100644 index 0000000..1ffee66 --- /dev/null +++ b/mssccprj.scc @@ -0,0 +1,9 @@ +SCC = This is a Source Code Control file + +[EDKB08ws.sln] +SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0" +SCC_Project_Name = "$/EDKB08ws", IJBAAAAA + +[EDKB08ws.vbproj] +SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0" +SCC_Project_Name = "$/EDKB08ws", IJBAAAAA diff --git a/obj/Baklagernd Korrespondenz Test.pdf b/obj/Baklagernd Korrespondenz Test.pdf new file mode 100644 index 0000000..7abff1b Binary files /dev/null and b/obj/Baklagernd Korrespondenz Test.pdf differ diff --git a/obj/Debug/CoreCompileInputs.cache b/obj/Debug/CoreCompileInputs.cache new file mode 100644 index 0000000..e9c4b67 --- /dev/null +++ b/obj/Debug/CoreCompileInputs.cache @@ -0,0 +1 @@ +e1ce720c2445e9acbf21f1d331f92bf717256eee diff --git a/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/obj/Debug/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..1d7d54e Binary files /dev/null and b/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..9ae2634 Binary files /dev/null and b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/obj/Debug/EDKB08.ProjectInstaller.resources b/obj/Debug/EDKB08.ProjectInstaller.resources new file mode 100644 index 0000000..8b1a44e Binary files /dev/null and b/obj/Debug/EDKB08.ProjectInstaller.resources differ diff --git a/obj/Debug/EDKB08.Service1.resources b/obj/Debug/EDKB08.Service1.resources new file mode 100644 index 0000000..219f58e Binary files /dev/null and b/obj/Debug/EDKB08.Service1.resources differ diff --git a/obj/Debug/EDKB08.exe b/obj/Debug/EDKB08.exe new file mode 100644 index 0000000..025c1b5 Binary files /dev/null and b/obj/Debug/EDKB08.exe differ diff --git a/obj/Debug/EDKB08.pdb b/obj/Debug/EDKB08.pdb new file mode 100644 index 0000000..124da39 Binary files /dev/null and b/obj/Debug/EDKB08.pdb differ diff --git a/obj/Debug/EDKB08.vbproj.AssemblyReference.cache b/obj/Debug/EDKB08.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..f5e894a Binary files /dev/null and b/obj/Debug/EDKB08.vbproj.AssemblyReference.cache differ diff --git a/obj/Debug/EDKB08.vbproj.CopyComplete b/obj/Debug/EDKB08.vbproj.CopyComplete new file mode 100644 index 0000000..e69de29 diff --git a/obj/Debug/EDKB08.vbproj.CoreCompileInputs.cache b/obj/Debug/EDKB08.vbproj.CoreCompileInputs.cache new file mode 100644 index 0000000..e61d9af --- /dev/null +++ b/obj/Debug/EDKB08.vbproj.CoreCompileInputs.cache @@ -0,0 +1 @@ +69c109f207567077d8d1bfe3fc47fb19e9d60598 diff --git a/obj/Debug/EDKB08.vbproj.FileListAbsolute.txt b/obj/Debug/EDKB08.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..7bb15e0 --- /dev/null +++ b/obj/Debug/EDKB08.vbproj.FileListAbsolute.txt @@ -0,0 +1,30 @@ +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.exe.config +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.exe +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.pdb +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.xml +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.dll +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.pdb +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.xml +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.vbprojResolveAssemblyReference.cache +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.ProjectInstaller.resources +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.Service1.resources +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.vbproj.GenerateResource.Cache +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.exe +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.xml +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Debug\EDKB08.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.exe.config +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.dll +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.ProjectInstaller.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.Service1.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.vbproj.GenerateResource.Cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.vbproj.CopyComplete +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.vbproj.CoreCompileInputs.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Debug\EDKB08.vbproj.AssemblyReference.cache diff --git a/obj/Debug/EDKB08.vbproj.GenerateResource.cache b/obj/Debug/EDKB08.vbproj.GenerateResource.cache new file mode 100644 index 0000000..a7235ff Binary files /dev/null and b/obj/Debug/EDKB08.vbproj.GenerateResource.cache differ diff --git a/obj/Debug/EDKB08.xml b/obj/Debug/EDKB08.xml new file mode 100644 index 0000000..a6a2938 --- /dev/null +++ b/obj/Debug/EDKB08.xml @@ -0,0 +1,1226 @@ + + + + +EDKB08 + + + + +Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in +EDOKA +Mit den Methoden dieser Klasse werden einerseits die angelieferten +Indexinformationen auf ihre Vollständigkeit hin überprüft. Im Fehlerfall werden +ensprechende Meldungen ausgegeben bzw. journalisiert, im OK-Fall werden die +entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist +festgehalten ob - Alle Parameter korrekt sein müssen, bevor der Dokumentimport +stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden + + +Interne Variable für das Property IndexData + + +Datentabelle mit den Indexwerten + + +Interne temporöre Datentabelle + + +Prüfung der Indexwerte +Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA +importiert. + + + + +Prüft die Indexdaten und löst ggf. den Import des Dokumentes +aus. +Die Funktion prüft die Indexwerte. Sofern die Werte i.O. sind und der +Dokumentimport ausgelöst werden kann (vgl. Parameter Dokimport) wird das +Dokument importiert. Im Fehlerfall wird eine Meldung protokolliert und die +Variable Fehler gesetzt. +True=Dokument importieren False=Dokument nicht +importieren (nur plausibilisieren) +Aktuelle Datarow der Tabelle Indexdata +True=Verarbeitung i.O. False=Verarbeitung fehlerhaft +Stefan Hutter + + +Importiert ein Dokument nach EDOKA +Gültige Werte sind: ADD, UPD, REPL, DEL +True = Import erfolgreich$EOL$ +False = Import fehlgeschalgen + + +Prüfung der Partnerzuordnung +Mit der Funktion wird abhängig vom angelieferten Wert die +Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft. + +Input Partnernummer +Direkter Zugriff auf die Tabelle Partner mittels Partnernr + +Input VV-Nr: +Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die +Partnernummer gefunden wird, diese in der Datentabelle nachführen + +Input: Barcode-ID: +Zugriff auf die Partnernummer über die Tabelle Dokument mit der +geliefertenen EDOKA-BarcodeID + +Input: KST: +Zugriff über die Kostenstelle auf den EDOKA-Partner +Aktuelle Datenzeile in der Tabelle Indexdata +True=Partnerzuordnung i.O. +False=Partnerzuordnung nicht i.O. +Checkdata + + +Prüft, ob alle Werte für eine EDOKA_Partner-Erfasssung vorhanden sind. +Wenn dies der Fall ist, wird ein neuer EDOKA-Partner eröffnet +Sofern genügend Informationen für die Partnereröffnung vorhanden sind, +wird ein EDOKA-Partner eröffnet. Nach dem Insert in der Datenbank wird durch die +DB die Überprüfung auf eine allfällige Partnerzusammenlegung +ausgelöst. +Aktuelle Datenzeile des Import-Programmes +True = EDOKA-Partner eröffnet +False = Daten zur Eröffnung des EDOKA-Partners sind +unvollständig +Stefan Hutter +Checkdata + + +Prüft die dokumentspezifischen Werte und das Vorhandensein des +physischen Dokumentes +Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten +Dokumente: + + +Gültiges Dokumentformant (DOC, XLS, TIF, PDF, +JPG + +Vorhandensein des Dokumentes im +Importverzeichnis + +Dokumenttyp +Zeile in der Tabelle Indexdata +True=Dokumentwerte i.O. +False=Dokumentwerte nicht i.O. +Stefan Hutter +Checkdata + + +Notiz zu einem Dokument hinzufügen +Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz +hinzu +Aktuelle Dokumentid +Meldung / Notiz + + +Auslesen der Daten "Herkunftsapplikation" und in der internen Variable +Herkunftsapplikationen zwischenspeichern + + +Auslesen der Herkunftsapplikation anhand des Dokumenttyps +Aktueller Datensatz aus den Indexdaten +"" = Herkunftsapplikation nicht vorhanden$EOL$ +"[Bezeichnung] = Herkunftsapplikation vorhanden +Herkuftsapplikation_auslesen + + +Importiert ein Dokument nach EDOKA +Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$ + + +$EOL$ $EOL$ Tabelle +$EOL$ Beschreibung + +$EOL$ $EOL$ Dokument +$EOL$ Dokumentbeschreibung + +$EOL$ $EOL$ Dokumentstatus +$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis +zum ersten archivierungs-relevanten Status gesetzt. $EOL$ + +$EOL$ +Bei der Verarbeitung eines Dokumentes mit Barcodeid, werden die +bestehenden Dokumentinformationen in der Tabelle Dokument erweitert und die +Tabelle Import_Barcode ergäntzt, damit die Batchverarbeitung EDKB02 das Handling +für diese Dokumente korrekt vornehmen kann. + +$EOL$ $EOL$ Dokumentcoldindexwert +$EOL$ Tabelle mit den COLD-relevanten +Indexinformationen + +$EOL$ $EOL$ Dokumentwerte +$EOL$ Tabelle mit den individuellen +Dokumentwerten + +$EOL$ $EOL$ Notizen +$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im +EDOKA eingefügt wurde +Aktuelle Zeile der Indexdatei +True = Import erfolgreich $EOL$ +False = Import fehlgeschalgen + + +FA-Nummer 1-3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer1 +Bezeichnung der Applikatoin + +FANummer2 +Dokumentname + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +FA-Nummer 3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +Löst das Importieren des Original-Dokumentes in die Datenbank +aus +Die Methode löst das Importieren des Origianldokumentes in die +EDOKA-Datenbank aus +EDOKA-DokumentID +Aktuelle Zeile der Indexdaten +True=Improt erfolgreich, False=Import fehlgeschlagen +clsDivFnkt.Save_To_DB(System.String, +System.String) + + +EDOKA-Dokumenttypnr auslesen +Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp +aus. +Aktuelle Datenzeile der Indexdaten +Dokumenttypnr + + +Auslesen von Coldschema und -Folder +Dokumenttypnr des aktuellen Dokumentes +Datatable mit den COLD-Werten + + +Coldindex zum erstellen Dokument erstellen und speichern +Standard 1 +Dokumentid des aktuellen Dokumentes +Datatable + + +Dokument Cold Indexwert anpassen +Führt einen Wert in der Tabelle Dokumentcoldindexwert nach +DokumentID des aktuellend Dokumentes +1 für Ausgangsarchivierung +2 für Ausgangsarchivierung +Nummer des Indexfeldes +Wert + + +Edoka-spezifische Dokumentwerte nachführen +Führt folgende Daten in den Dokumentwerten hinzu +- Herkunftsapplikation +- Archivreferenz +- Listen-Empfänger MA/KST/NL +- Individuelle Dokumentwerte der Fremdanwendung +Aktuelle Zeile der Indexdaten + + +Edoka-spezifischer Dokumentwert auf der Datenbank sichern +Inhalt +Feldnummer + + +Erstellen der Dokumentstatus und eintragen der entsprechenden +Statushistory-Einträge +Aktuelle Zeile der Indexdaten +Status, welcher im Dokument unter "Statusnr" nachgeführt +wird +edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.insert_history_status(System.Int32, +System.String, System.Int32, System.DateTime) + + +Dokumentstatus für das zu erstellende Dokument generieren +Erstellt die Dokumentstatus gem. Statussequenz des +Dokumenttyps +Aktuelle Zeile der Indexdaten +Datatable + + +Alle Dokumentstatus eines Dokumentes lesen +Diese Funktion liest alle Dokumentstatus eines Dokumentes +Aktuelle Ziele der Indexdaten +Datatable mit den Dokumentstatus + + +Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten +TG-Nummer +Aktuelle Import-Datenzeile +Mitarbeiternr des EDOKA-Mitarbeiters entweder anhand der TGNummer oder +die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte +TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden +ist + + +Statushistory nachführen +Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments +die Statushistory nach +Nummer des Status +EDOKA-DokumentID +Verantwortlicher Mitarbeiter +Timestamp + + +Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder +Dokumentname) auslösen +Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder +Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst. +Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein +Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet +wurde. +Aktuelle Zeile der Indexdaten +True=Löschung durchgeführt +False=Löschung nicht durchgeführt + + +Dokument löschen bzw. aufheben +Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es +wird überprüft, ob das zu löschende Dokumente den Status "Aufgehoben" +in der Statussequenz hat. Beim Vorhandensein des Aufhebungsstatus wird das +Dokument aufgehoben, ansonsten gelöscht resp. inaktiviert. +DokumentID des zu löschenden Dokumentes +Aktuelle Zeile der Indexdaten +True=Löschung erfolgt +False=Löschung nicht durchgeführt + + +Auselesen des letzten Status in der Seqeunz des zu löschenden +Dokumentes +Dokumentid des zu löschenden Dokumentes +Status_Bezeichnungnr + + +Dokument aufheben +Dokumentid des aufzuhebenden Dokumentes + + +SColdindex und Aufhebungsstatus des eines zu löschenden bzw. +aufzuhebenden Dokumentes auslesen +Sofern das Dokument aufgehoben wird, wird der Status +"Aufgehoben" im Dokument nachgeführt, indem einerseits einen +Statushistory-Eintrag erstellt und der aktuelle Dokumentstatus gesetzt +wird. +Dokumentid des zu löschenden / aufzuhebenden +Dokumentes +True=Dokument aufheben +False=Dokument nicht aufheben +True=Aufgehobenes Dokument reaktivieren +False=Keine Dokumentreaktivierung +Datentable mit den Dokumentstatus + + +AGI-COLD-Dokument-Status ändern +Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter +"neuerstatus" +Datentabelle mit Cold-Index-Werten +DokumentID +Neuer Status der entsprechenden COLD-Dokumente + + +Tabelle COLD-Update mit Updates ergänzen +DokumentID des EDOKA-Dokumentes +DokumentID des COLD-Bildes +1=Ausgangsarchiviertes Dokumente +2=Eingangarchiviertes Dokumente +Feldnr des Feldes im Cold-Index +Neuer Wert + + +Dokumentwerte eines Dokumentes updaten +Aktuelle Zeile der Indexdaten + + +Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde +Dokumentid des zu prüfenden Dokumentes + + +Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank +1=Prüfung anhand einer EDOKA_Dokumentid +2=Prüfung anhand des Dateinamens +EDOKA_DokumentID oder Dateiname +Aktuelle Zeile der Indexdaten +True=Dokument gefunden und es kann gelöscht werden +False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die +Suche mittels Dateiname mehrere Treffer ergab + + +Diverse allgemeine Funktionen +Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus +diversen anderen Klassen genutzt werden.$EOL$ +Die Instanzierung der Klasse erfolgt über das Module Globals.vb +Globals.DivFnkt + + +Generieren der EDOKA-DokumentID +Diese Methode generiert eine neue eindeutige, 22-stellige +EDOKA-Dokumentid. $EOL$ +Die Letzte ziffer ist eine Prüfziffer +DokumentID für EDOKA +Prüfziffer-Berechnung + + +Berechnung der Prüfziffer nach Modulo9/Rekursiv +Dokumentid ohne Präfix +DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer +EDKB08.clsDivFnkt + + +Dokumen in der EDOKA-Datenbank speichern +Die Funktion speichert ein Dokument des Filesystems in die +EDOKA-Datenbank Tabelle DOKS +DEDOKA-Dokumentid +Origianl-Dokumentname (Fullpath) +True=Speichern erfolgreich, False=Speichern fehlgeschalgen + + +Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder +Textdatei +Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als +XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert +diese im Property IndexData zurück. +Stefan Hutter + + +Interne Variable für IndexFilenName + + +Enthält der Name der Inputdatei mit den Indexdaten (XML oder +TXT) +Stefan Hutter + + +Interne Variable für IndexData + + +Datentabelle mit den geladenen Indexwerten +Stefan Hutter + + +Temporäre Collection mit den getrennten Indexdaten aus der +txt-Input-Datei +Stefan Hutter + + +Angelieferte Indexdaten auslesen und in die Datentabele Indexdata +speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder +Komma-getrennte Textdatei auslesen +Stefan Hutter + + +XML-Datei als Datatable einlesen +Stefan Hutter + + + +Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten +Datensätze eingelesen und zugewiesen werden können +Stefan Hutter + + +Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der +Tabelle "Indexdata" speichern +Zeile der Inputdatei (Komma-getrennte Werte) +Stefan Hutter + + +Datensatz in der Tabelle "Indexdata" einfügen. Die Anzahl der +Spalten in der Tabelle ist abhängig vom Default-XML, welches zur +Tabellenerstellung verwendet wird. + +Stefan Hutter + + +Splitfunktion +Input-Zeile +Trennzeichen der einzelnen werte (z.B. Komma, +Strichpunkt usw.) +Qualiflyer, welcher die Werte umschliesst (z.B. +") +Stefan Hutter + + +Klasse zum auselesen der Steuerparameter aus der Datei +\bin\parameters.cfg +Stefan Hutter + + +Interne Variable zum Auslesen der Datei + + +Interne Variable zum Auslesen der Datei + + +Interne Variable für das Property Application ID + + +ApplikationsID für die Journalisierung + + +Interne Variable für das Property Inputverzeichnis + + +Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert +sind + + +Interne Variable für das Property MailadresseOK + + +EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung +ordnungsgemäss durchgelaufen ist + + +Interne Variable für das Property MailadresseNOK + + +Mailadresse, an die im Fehlerfall ein Mail gesendet wird + + +Interne Variable für das Property Meldung + + +Allfälliger Meldungstext, welcher beim Laden der Parameter generiert +wird + + +Interne Variable für das Property Temppfad + + +Pfad für temporäre Dateien + + +Interne Variable für das Property Mailserver + + +SMTP-Mailserver für den Journalversand + + +Interne Variable für das Property Journaltimer_time + + +Journaltimer-Zeit in Milisekunden + + +Interne Variable für das Property DeleteOriginalfiles + + +DeleteOriginalfiles + + +Interne Variable für das Property GSF Config File Path + + +gsf ConfigPath + + +Interne Variable für das Property GSF Timer Intervall + + +gsf Timer Interval + + +Interne Variable für das Property GSF DateiEndung + + +gsf DateiEndung + + +Laden der Parameterdaten aus parameters.cfg +Die Funktion lädt für die Anwendung die notwendigen Parameter aus der +Datei "Parameters.cfg" +True im OK-Fall +False im Fehlerfall + + +Parameterbezeichnung und Parameterwert trennen +Inputstring mit Parameterbezeichnung und +Parameterwert +Parameterwert als String + + + + Purpose: Data Access class for the table 'edex_sb_serienbrief'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iSerienbriefnr
    • +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • iSerienbriefnr
    • +
  • sBezeichnung
    • +
  • iVerantwortlich
    • +
  • iPostzustellung
    • +
  • daDokumentdatum
    • +
  • iZustaendig
    • +
  • iUnterschriftlinks
    • +
  • iUnterschriftrechts
    • +
  • iTeam
    • +
  • daArchivdatum
    • +
  • daTermin
    • +
  • sBemerkung
    • +
  • daErstellt_am
    • +
  • daMutiert_am
    • +
  • iMutierer
    • +
  • bAktiv
    • +
  • iStatus
    • +
  • iDokumenttypnr
    • +
  • iWindowwidth
    • +
  • iWindowheight
    • +
  • iTreewidth
    • +
  • iFehlerhaft
    • +
  • iInBearbeitung
    • +
  • iErstellt
    • +
  • iGedruckt
    • +
  • iBestaetigt
    • +
  • iAusgeloest
    • +
  • iBldossier
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Data Access class for the table 'Partner'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • sIDMSG00
    • +
  • sDMMSG00
    • +
  • sZTMSG00
    • +
  • sBEPGM00
    • +
  • sCDBNK00
    • +
  • iNRPAR00
    • +
  • sBKPAR00
    • +
  • iNRFOG012
    • +
  • sBEBAN012
    • +
  • sNRFOG022
    • +
  • sBEBAN022
    • +
  • sTXADZ012
    • +
  • sTXADZ022
    • +
  • sTXADZ032
    • +
  • sTXADZ042
    • +
  • sTXADZ052
    • +
  • sTXADZ062
    • +
  • sTXADZ072
    • +
  • sNRPARAD
    • +
  • sNRADR00
    • +
  • sNRFOG011
    • +
  • sBEBAN011
    • +
  • sNRFOG21
    • +
  • sBEBAN21
    • +
  • sTXADZ011
    • +
  • sTXADZ021
    • +
  • sTXADZ031
    • +
  • sTXADZ041
    • +
  • sTXADZ051
    • +
  • sTXADZ061
    • +
  • sTXADZ071
    • +
  • sCDBAL00
    • +
  • sCDVIG00
    • +
  • sSAVRS00
    • +
  • sTSMUT00
    • +
  • sVDMUTER
    • +
  • sTXRes00
    • +
  • bSaldiert
    • +
  • iAZEPL00
    • +
  • bCDVSA00
    • +
  • daValidto
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + +Globale Variablen und FUnktionen + + +Datentabelle mit den EDOKA-Applikationsdaten + + +Datensatzzeiger in der Tabelle Applikationsdaten + + +Verbindung zur Daten EDOKA + + +Verbindung zur Daten EDOKA_Journale + + +Verbindung zur Daten EDOKA_Journale mit dem Mail-User + + +Befehlszeilenargumente + + +Connectionprovider für die Datenbank EDOKA +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Instanz des Objektes DivFnkt + + +Hält die Applikationsdaten für ein zu importierendes Dokumente +fest + + +Ausgabe eines Strings mit vorgestelltem TimeStamp + + + +Eintrag ins EventLog von EDKB08 schreiben + + + + +Globaler Verweis zur Klasse CLSJournal + + +Daten für der Herkunftsapplikation +Diese interne Tabelle enthält die Daten für die Herkunftsapplikation +einer Indexdatei + + +Interne Variable zur Festhaltung von Fehlern + + +Funktionen für die Journalisierung der einzelnen +Verarbeitungsschritte + + +Interne Variable für das Property JournalNr + + +Property für die JournalNr + + +Variable für die Datenbankklasse clsImport_Job + + +Variable für die Datenbankklasse clsimport_eintrag + + +Interne Variable für das halten einer Datentabelle + + +Öffnet ein neuer Journaleintrag in der Tabelle Import_Job +Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den +entsprechenden Einträgen erstellt +Verarbeiten + + +Schliessen des aktuell geöffneten Verarbeitungsjournales +Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle +Import_Job nachgeführt +Verarbeiten + + +Journaleintrag löschen +Löscht den Journaleintrag aus der Variabel JournalNr + + +Einfügen eines neuen Journaldatensatzes +Recordnummer der Indexdaten bzw. "" für allgemeine +Journaleinträte +Partnernr oder "" für allgemeine +Einträge +Dateityp der zu importierenden Datei bzw. "" +für allgemeine Einträge +Index-Dateiname oder Dateiname der zu importierenden +Datei +Status Nr +Bezeichnung zur Statusnr +Dokumentid des EDOKA-Dokumentes nach dem Import +oder "" +Fremdschlüssel zur Tabelle FA_APPL +edkb08.edokadb.clsFA_APPL + + +Ergänzt den Journaleintrag mit der zugehörenden +Herkunftsapplikation +edkb08.Globals + + +Funktionen für den Export der Journaldaten + + +Auswertung erstellen und ggf. mittels DTO versenden +Datentabelle mit den Auswertungsdaten der Applikation +Format der Auswertung (txt, csv, xls, doc, pdf, +xml) + + +Journaldatei als CSV-Datei erstellen +Journaldaten + + +Journaldatei als TXT-Datei erstellen +Journaldaten + + +EDKB08 - Hauptprogramm +EDKB08 ist ein Importfunktion für Dokumente, welche durch +Fremdanwendungen geliefert und in EDOKA importiert werden sollen. + +Als Input werden die einzelenen Dokumente sowie eine oderer mehrer Dateien mit +den zugehörenden Indexinformationen in ein definiertes Verzeichnis gestellt. + +EDKB08 überwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung +".IND" angeliefert wird, startet der eigentliche Importvorgang. + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Steuerroutine für EDKB08 +Diese Routine wird beim Programmstart durchlaufen. Dabei werden die +benötigten Parameter ausgelesen und an der Konsole angezeigt. + +Nach erfolgreicher Initialisierung werden Aktivitäten im vordefinierten +Verzeichnis abgewartet. + + +Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so +lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden +sind. +Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und +verarbeitet. + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + + + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Timer zur Auslösung der täglichen Journalaufbereitung + + +Start des Dienstes EDKB08WS +Beim Start des Dienstes werden neben dem Einlesen der Parameter der +Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung +initialisiert. + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + +Verarbeiten von angelieferten Daten +In dieser Methode werden angelieferte Indexdateien verarbeitet. + +Bevor die Verarbeitung startet, wird der Systemfilewacher +ausgeschaltet. +Die Verarbeitung wird solange durchgeführt, bis alle anstehenden +Indexdaten und Dokumente abgearbeitet sind. +Am Schluss der Verarbeitung wird der Systemfilewacher wieder +gestartet. + + + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Versand von Journaldaten mittels Email + + + + + + + + diff --git a/obj/Release/CoreCompileInputs.cache b/obj/Release/CoreCompileInputs.cache new file mode 100644 index 0000000..7cae02f --- /dev/null +++ b/obj/Release/CoreCompileInputs.cache @@ -0,0 +1 @@ +5950f1e1ed1346311a25e4d09f0eb51cb1f30d7b diff --git a/obj/Release/DesignTimeResolveAssemblyReferences.cache b/obj/Release/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..1d7d54e Binary files /dev/null and b/obj/Release/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..f3da4a6 Binary files /dev/null and b/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/obj/Release/EDKB08.ProjectInstaller.resources b/obj/Release/EDKB08.ProjectInstaller.resources new file mode 100644 index 0000000..8b1a44e Binary files /dev/null and b/obj/Release/EDKB08.ProjectInstaller.resources differ diff --git a/obj/Release/EDKB08.Service1.resources b/obj/Release/EDKB08.Service1.resources new file mode 100644 index 0000000..219f58e Binary files /dev/null and b/obj/Release/EDKB08.Service1.resources differ diff --git a/obj/Release/EDKB08.exe b/obj/Release/EDKB08.exe new file mode 100644 index 0000000..8f074d9 Binary files /dev/null and b/obj/Release/EDKB08.exe differ diff --git a/obj/Release/EDKB08.vbproj.AssemblyReference.cache b/obj/Release/EDKB08.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..bd5d599 Binary files /dev/null and b/obj/Release/EDKB08.vbproj.AssemblyReference.cache differ diff --git a/obj/Release/EDKB08.vbproj.CopyComplete b/obj/Release/EDKB08.vbproj.CopyComplete new file mode 100644 index 0000000..e69de29 diff --git a/obj/Release/EDKB08.vbproj.CoreCompileInputs.cache b/obj/Release/EDKB08.vbproj.CoreCompileInputs.cache new file mode 100644 index 0000000..e61d9af --- /dev/null +++ b/obj/Release/EDKB08.vbproj.CoreCompileInputs.cache @@ -0,0 +1 @@ +69c109f207567077d8d1bfe3fc47fb19e9d60598 diff --git a/obj/Release/EDKB08.vbproj.FileListAbsolute.txt b/obj/Release/EDKB08.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..a07940c --- /dev/null +++ b/obj/Release/EDKB08.vbproj.FileListAbsolute.txt @@ -0,0 +1,26 @@ +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.exe.config +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.exe +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08.xml +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.dll +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.pdb +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\bin\EDKB08_GSF.xml +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.vbprojResolveAssemblyReference.cache +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.ProjectInstaller.resources +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.Service1.resources +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.GenerateResource.Cache +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.exe +D:\EDOKA\EDKB08_Runtime_Prod_20151216\source\EDKB08\EDKB08\obj\Release\EDKB08.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.exe.config +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.dll +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\EDKB08_GSF.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.ProjectInstaller.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.Service1.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.GenerateResource.Cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.CopyComplete +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.CoreCompileInputs.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.AssemblyReference.cache diff --git a/obj/Release/EDKB08.vbproj.GenerateResource.cache b/obj/Release/EDKB08.vbproj.GenerateResource.cache new file mode 100644 index 0000000..a7235ff Binary files /dev/null and b/obj/Release/EDKB08.vbproj.GenerateResource.cache differ diff --git a/obj/Release/EDKB08.xml b/obj/Release/EDKB08.xml new file mode 100644 index 0000000..a6a2938 --- /dev/null +++ b/obj/Release/EDKB08.xml @@ -0,0 +1,1226 @@ + + + + +EDKB08 + + + + +Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in +EDOKA +Mit den Methoden dieser Klasse werden einerseits die angelieferten +Indexinformationen auf ihre Vollständigkeit hin überprüft. Im Fehlerfall werden +ensprechende Meldungen ausgegeben bzw. journalisiert, im OK-Fall werden die +entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist +festgehalten ob - Alle Parameter korrekt sein müssen, bevor der Dokumentimport +stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden + + +Interne Variable für das Property IndexData + + +Datentabelle mit den Indexwerten + + +Interne temporöre Datentabelle + + +Prüfung der Indexwerte +Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA +importiert. + + + + +Prüft die Indexdaten und löst ggf. den Import des Dokumentes +aus. +Die Funktion prüft die Indexwerte. Sofern die Werte i.O. sind und der +Dokumentimport ausgelöst werden kann (vgl. Parameter Dokimport) wird das +Dokument importiert. Im Fehlerfall wird eine Meldung protokolliert und die +Variable Fehler gesetzt. +True=Dokument importieren False=Dokument nicht +importieren (nur plausibilisieren) +Aktuelle Datarow der Tabelle Indexdata +True=Verarbeitung i.O. False=Verarbeitung fehlerhaft +Stefan Hutter + + +Importiert ein Dokument nach EDOKA +Gültige Werte sind: ADD, UPD, REPL, DEL +True = Import erfolgreich$EOL$ +False = Import fehlgeschalgen + + +Prüfung der Partnerzuordnung +Mit der Funktion wird abhängig vom angelieferten Wert die +Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft. + +Input Partnernummer +Direkter Zugriff auf die Tabelle Partner mittels Partnernr + +Input VV-Nr: +Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die +Partnernummer gefunden wird, diese in der Datentabelle nachführen + +Input: Barcode-ID: +Zugriff auf die Partnernummer über die Tabelle Dokument mit der +geliefertenen EDOKA-BarcodeID + +Input: KST: +Zugriff über die Kostenstelle auf den EDOKA-Partner +Aktuelle Datenzeile in der Tabelle Indexdata +True=Partnerzuordnung i.O. +False=Partnerzuordnung nicht i.O. +Checkdata + + +Prüft, ob alle Werte für eine EDOKA_Partner-Erfasssung vorhanden sind. +Wenn dies der Fall ist, wird ein neuer EDOKA-Partner eröffnet +Sofern genügend Informationen für die Partnereröffnung vorhanden sind, +wird ein EDOKA-Partner eröffnet. Nach dem Insert in der Datenbank wird durch die +DB die Überprüfung auf eine allfällige Partnerzusammenlegung +ausgelöst. +Aktuelle Datenzeile des Import-Programmes +True = EDOKA-Partner eröffnet +False = Daten zur Eröffnung des EDOKA-Partners sind +unvollständig +Stefan Hutter +Checkdata + + +Prüft die dokumentspezifischen Werte und das Vorhandensein des +physischen Dokumentes +Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten +Dokumente: + + +Gültiges Dokumentformant (DOC, XLS, TIF, PDF, +JPG + +Vorhandensein des Dokumentes im +Importverzeichnis + +Dokumenttyp +Zeile in der Tabelle Indexdata +True=Dokumentwerte i.O. +False=Dokumentwerte nicht i.O. +Stefan Hutter +Checkdata + + +Notiz zu einem Dokument hinzufügen +Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz +hinzu +Aktuelle Dokumentid +Meldung / Notiz + + +Auslesen der Daten "Herkunftsapplikation" und in der internen Variable +Herkunftsapplikationen zwischenspeichern + + +Auslesen der Herkunftsapplikation anhand des Dokumenttyps +Aktueller Datensatz aus den Indexdaten +"" = Herkunftsapplikation nicht vorhanden$EOL$ +"[Bezeichnung] = Herkunftsapplikation vorhanden +Herkuftsapplikation_auslesen + + +Importiert ein Dokument nach EDOKA +Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$ + + +$EOL$ $EOL$ Tabelle +$EOL$ Beschreibung + +$EOL$ $EOL$ Dokument +$EOL$ Dokumentbeschreibung + +$EOL$ $EOL$ Dokumentstatus +$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis +zum ersten archivierungs-relevanten Status gesetzt. $EOL$ + +$EOL$ +Bei der Verarbeitung eines Dokumentes mit Barcodeid, werden die +bestehenden Dokumentinformationen in der Tabelle Dokument erweitert und die +Tabelle Import_Barcode ergäntzt, damit die Batchverarbeitung EDKB02 das Handling +für diese Dokumente korrekt vornehmen kann. + +$EOL$ $EOL$ Dokumentcoldindexwert +$EOL$ Tabelle mit den COLD-relevanten +Indexinformationen + +$EOL$ $EOL$ Dokumentwerte +$EOL$ Tabelle mit den individuellen +Dokumentwerten + +$EOL$ $EOL$ Notizen +$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im +EDOKA eingefügt wurde +Aktuelle Zeile der Indexdatei +True = Import erfolgreich $EOL$ +False = Import fehlgeschalgen + + +FA-Nummer 1-3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer1 +Bezeichnung der Applikatoin + +FANummer2 +Dokumentname + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +FA-Nummer 3 in EDOKA ergänzen +Setzt für die Fremdanwendung die Felder + + +Feld +Beschreibung + +FANummer3 +Geschäftsfallnummer +Aktuelle Zeile der Indexdatei + + +Löst das Importieren des Original-Dokumentes in die Datenbank +aus +Die Methode löst das Importieren des Origianldokumentes in die +EDOKA-Datenbank aus +EDOKA-DokumentID +Aktuelle Zeile der Indexdaten +True=Improt erfolgreich, False=Import fehlgeschlagen +clsDivFnkt.Save_To_DB(System.String, +System.String) + + +EDOKA-Dokumenttypnr auslesen +Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp +aus. +Aktuelle Datenzeile der Indexdaten +Dokumenttypnr + + +Auslesen von Coldschema und -Folder +Dokumenttypnr des aktuellen Dokumentes +Datatable mit den COLD-Werten + + +Coldindex zum erstellen Dokument erstellen und speichern +Standard 1 +Dokumentid des aktuellen Dokumentes +Datatable + + +Dokument Cold Indexwert anpassen +Führt einen Wert in der Tabelle Dokumentcoldindexwert nach +DokumentID des aktuellend Dokumentes +1 für Ausgangsarchivierung +2 für Ausgangsarchivierung +Nummer des Indexfeldes +Wert + + +Edoka-spezifische Dokumentwerte nachführen +Führt folgende Daten in den Dokumentwerten hinzu +- Herkunftsapplikation +- Archivreferenz +- Listen-Empfänger MA/KST/NL +- Individuelle Dokumentwerte der Fremdanwendung +Aktuelle Zeile der Indexdaten + + +Edoka-spezifischer Dokumentwert auf der Datenbank sichern +Inhalt +Feldnummer + + +Erstellen der Dokumentstatus und eintragen der entsprechenden +Statushistory-Einträge +Aktuelle Zeile der Indexdaten +Status, welcher im Dokument unter "Statusnr" nachgeführt +wird +edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.insert_history_status(System.Int32, +System.String, System.Int32, System.DateTime) + + +Dokumentstatus für das zu erstellende Dokument generieren +Erstellt die Dokumentstatus gem. Statussequenz des +Dokumenttyps +Aktuelle Zeile der Indexdaten +Datatable + + +Alle Dokumentstatus eines Dokumentes lesen +Diese Funktion liest alle Dokumentstatus eines Dokumentes +Aktuelle Ziele der Indexdaten +Datatable mit den Dokumentstatus + + +Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten +TG-Nummer +Aktuelle Import-Datenzeile +Mitarbeiternr des EDOKA-Mitarbeiters entweder anhand der TGNummer oder +die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte +TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden +ist + + +Statushistory nachführen +Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments +die Statushistory nach +Nummer des Status +EDOKA-DokumentID +Verantwortlicher Mitarbeiter +Timestamp + + +Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder +Dokumentname) auslösen +Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder +Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst. +Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein +Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet +wurde. +Aktuelle Zeile der Indexdaten +True=Löschung durchgeführt +False=Löschung nicht durchgeführt + + +Dokument löschen bzw. aufheben +Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es +wird überprüft, ob das zu löschende Dokumente den Status "Aufgehoben" +in der Statussequenz hat. Beim Vorhandensein des Aufhebungsstatus wird das +Dokument aufgehoben, ansonsten gelöscht resp. inaktiviert. +DokumentID des zu löschenden Dokumentes +Aktuelle Zeile der Indexdaten +True=Löschung erfolgt +False=Löschung nicht durchgeführt + + +Auselesen des letzten Status in der Seqeunz des zu löschenden +Dokumentes +Dokumentid des zu löschenden Dokumentes +Status_Bezeichnungnr + + +Dokument aufheben +Dokumentid des aufzuhebenden Dokumentes + + +SColdindex und Aufhebungsstatus des eines zu löschenden bzw. +aufzuhebenden Dokumentes auslesen +Sofern das Dokument aufgehoben wird, wird der Status +"Aufgehoben" im Dokument nachgeführt, indem einerseits einen +Statushistory-Eintrag erstellt und der aktuelle Dokumentstatus gesetzt +wird. +Dokumentid des zu löschenden / aufzuhebenden +Dokumentes +True=Dokument aufheben +False=Dokument nicht aufheben +True=Aufgehobenes Dokument reaktivieren +False=Keine Dokumentreaktivierung +Datentable mit den Dokumentstatus + + +AGI-COLD-Dokument-Status ändern +Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter +"neuerstatus" +Datentabelle mit Cold-Index-Werten +DokumentID +Neuer Status der entsprechenden COLD-Dokumente + + +Tabelle COLD-Update mit Updates ergänzen +DokumentID des EDOKA-Dokumentes +DokumentID des COLD-Bildes +1=Ausgangsarchiviertes Dokumente +2=Eingangarchiviertes Dokumente +Feldnr des Feldes im Cold-Index +Neuer Wert + + +Dokumentwerte eines Dokumentes updaten +Aktuelle Zeile der Indexdaten + + +Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde +Dokumentid des zu prüfenden Dokumentes + + +Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank +1=Prüfung anhand einer EDOKA_Dokumentid +2=Prüfung anhand des Dateinamens +EDOKA_DokumentID oder Dateiname +Aktuelle Zeile der Indexdaten +True=Dokument gefunden und es kann gelöscht werden +False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die +Suche mittels Dateiname mehrere Treffer ergab + + +Diverse allgemeine Funktionen +Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus +diversen anderen Klassen genutzt werden.$EOL$ +Die Instanzierung der Klasse erfolgt über das Module Globals.vb +Globals.DivFnkt + + +Generieren der EDOKA-DokumentID +Diese Methode generiert eine neue eindeutige, 22-stellige +EDOKA-Dokumentid. $EOL$ +Die Letzte ziffer ist eine Prüfziffer +DokumentID für EDOKA +Prüfziffer-Berechnung + + +Berechnung der Prüfziffer nach Modulo9/Rekursiv +Dokumentid ohne Präfix +DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer +EDKB08.clsDivFnkt + + +Dokumen in der EDOKA-Datenbank speichern +Die Funktion speichert ein Dokument des Filesystems in die +EDOKA-Datenbank Tabelle DOKS +DEDOKA-Dokumentid +Origianl-Dokumentname (Fullpath) +True=Speichern erfolgreich, False=Speichern fehlgeschalgen + + +Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder +Textdatei +Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als +XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert +diese im Property IndexData zurück. +Stefan Hutter + + +Interne Variable für IndexFilenName + + +Enthält der Name der Inputdatei mit den Indexdaten (XML oder +TXT) +Stefan Hutter + + +Interne Variable für IndexData + + +Datentabelle mit den geladenen Indexwerten +Stefan Hutter + + +Temporäre Collection mit den getrennten Indexdaten aus der +txt-Input-Datei +Stefan Hutter + + +Angelieferte Indexdaten auslesen und in die Datentabele Indexdata +speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder +Komma-getrennte Textdatei auslesen +Stefan Hutter + + +XML-Datei als Datatable einlesen +Stefan Hutter + + + +Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten +Datensätze eingelesen und zugewiesen werden können +Stefan Hutter + + +Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der +Tabelle "Indexdata" speichern +Zeile der Inputdatei (Komma-getrennte Werte) +Stefan Hutter + + +Datensatz in der Tabelle "Indexdata" einfügen. Die Anzahl der +Spalten in der Tabelle ist abhängig vom Default-XML, welches zur +Tabellenerstellung verwendet wird. + +Stefan Hutter + + +Splitfunktion +Input-Zeile +Trennzeichen der einzelnen werte (z.B. Komma, +Strichpunkt usw.) +Qualiflyer, welcher die Werte umschliesst (z.B. +") +Stefan Hutter + + +Klasse zum auselesen der Steuerparameter aus der Datei +\bin\parameters.cfg +Stefan Hutter + + +Interne Variable zum Auslesen der Datei + + +Interne Variable zum Auslesen der Datei + + +Interne Variable für das Property Application ID + + +ApplikationsID für die Journalisierung + + +Interne Variable für das Property Inputverzeichnis + + +Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert +sind + + +Interne Variable für das Property MailadresseOK + + +EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung +ordnungsgemäss durchgelaufen ist + + +Interne Variable für das Property MailadresseNOK + + +Mailadresse, an die im Fehlerfall ein Mail gesendet wird + + +Interne Variable für das Property Meldung + + +Allfälliger Meldungstext, welcher beim Laden der Parameter generiert +wird + + +Interne Variable für das Property Temppfad + + +Pfad für temporäre Dateien + + +Interne Variable für das Property Mailserver + + +SMTP-Mailserver für den Journalversand + + +Interne Variable für das Property Journaltimer_time + + +Journaltimer-Zeit in Milisekunden + + +Interne Variable für das Property DeleteOriginalfiles + + +DeleteOriginalfiles + + +Interne Variable für das Property GSF Config File Path + + +gsf ConfigPath + + +Interne Variable für das Property GSF Timer Intervall + + +gsf Timer Interval + + +Interne Variable für das Property GSF DateiEndung + + +gsf DateiEndung + + +Laden der Parameterdaten aus parameters.cfg +Die Funktion lädt für die Anwendung die notwendigen Parameter aus der +Datei "Parameters.cfg" +True im OK-Fall +False im Fehlerfall + + +Parameterbezeichnung und Parameterwert trennen +Inputstring mit Parameterbezeichnung und +Parameterwert +Parameterwert als String + + + + Purpose: Data Access class for the table 'edex_sb_serienbrief'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iSerienbriefnr
    • +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
  • sBezeichnung. May be SqlString.Null
    • +
  • iVerantwortlich. May be SqlInt32.Null
    • +
  • iPostzustellung. May be SqlInt32.Null
    • +
  • daDokumentdatum. May be SqlDateTime.Null
    • +
  • iZustaendig. May be SqlInt32.Null
    • +
  • iUnterschriftlinks. May be SqlInt32.Null
    • +
  • iUnterschriftrechts. May be SqlInt32.Null
    • +
  • iTeam. May be SqlInt32.Null
    • +
  • daArchivdatum. May be SqlDateTime.Null
    • +
  • daTermin. May be SqlDateTime.Null
    • +
  • sBemerkung. May be SqlString.Null
    • +
  • daErstellt_am. May be SqlDateTime.Null
    • +
  • daMutiert_am. May be SqlDateTime.Null
    • +
  • iMutierer. May be SqlInt32.Null
    • +
  • bAktiv. May be SqlBoolean.Null
    • +
  • iStatus. May be SqlInt32.Null
    • +
  • iDokumenttypnr. May be SqlInt32.Null
    • +
  • iWindowwidth. May be SqlInt32.Null
    • +
  • iWindowheight. May be SqlInt32.Null
    • +
  • iTreewidth. May be SqlInt32.Null
    • +
  • iFehlerhaft. May be SqlInt32.Null
    • +
  • iInBearbeitung. May be SqlInt32.Null
    • +
  • iErstellt. May be SqlInt32.Null
    • +
  • iGedruckt. May be SqlInt32.Null
    • +
  • iBestaetigt. May be SqlInt32.Null
    • +
  • iAusgeloest. May be SqlInt32.Null
    • +
  • iBldossier. May be SqlInt32.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iSerienbriefnr
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • iSerienbriefnr
    • +
  • sBezeichnung
    • +
  • iVerantwortlich
    • +
  • iPostzustellung
    • +
  • daDokumentdatum
    • +
  • iZustaendig
    • +
  • iUnterschriftlinks
    • +
  • iUnterschriftrechts
    • +
  • iTeam
    • +
  • daArchivdatum
    • +
  • daTermin
    • +
  • sBemerkung
    • +
  • daErstellt_am
    • +
  • daMutiert_am
    • +
  • iMutierer
    • +
  • bAktiv
    • +
  • iStatus
    • +
  • iDokumenttypnr
    • +
  • iWindowwidth
    • +
  • iWindowheight
    • +
  • iTreewidth
    • +
  • iFehlerhaft
    • +
  • iInBearbeitung
    • +
  • iErstellt
    • +
  • iGedruckt
    • +
  • iBestaetigt
    • +
  • iAusgeloest
    • +
  • iBldossier
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Data Access class for the table 'Partner'. + + + + + Purpose: Class constructor. + + + + + Purpose: Insert method. This method will insert one new row into the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Update method. This method will Update one existing row in the database. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • sIDMSG00. May be SqlString.Null
    • +
  • sDMMSG00. May be SqlString.Null
    • +
  • sZTMSG00. May be SqlString.Null
    • +
  • sBEPGM00. May be SqlString.Null
    • +
  • sCDBNK00. May be SqlString.Null
    • +
  • iNRPAR00
    • +
  • sBKPAR00. May be SqlString.Null
    • +
  • iNRFOG012. May be SqlInt32.Null
    • +
  • sBEBAN012. May be SqlString.Null
    • +
  • sNRFOG022. May be SqlString.Null
    • +
  • sBEBAN022. May be SqlString.Null
    • +
  • sTXADZ012. May be SqlString.Null
    • +
  • sTXADZ022. May be SqlString.Null
    • +
  • sTXADZ032. May be SqlString.Null
    • +
  • sTXADZ042. May be SqlString.Null
    • +
  • sTXADZ052. May be SqlString.Null
    • +
  • sTXADZ062. May be SqlString.Null
    • +
  • sTXADZ072. May be SqlString.Null
    • +
  • sNRPARAD. May be SqlString.Null
    • +
  • sNRADR00. May be SqlString.Null
    • +
  • sNRFOG011. May be SqlString.Null
    • +
  • sBEBAN011. May be SqlString.Null
    • +
  • sNRFOG21. May be SqlString.Null
    • +
  • sBEBAN21. May be SqlString.Null
    • +
  • sTXADZ011. May be SqlString.Null
    • +
  • sTXADZ021. May be SqlString.Null
    • +
  • sTXADZ031. May be SqlString.Null
    • +
  • sTXADZ041. May be SqlString.Null
    • +
  • sTXADZ051. May be SqlString.Null
    • +
  • sTXADZ061. May be SqlString.Null
    • +
  • sTXADZ071. May be SqlString.Null
    • +
  • sCDBAL00. May be SqlString.Null
    • +
  • sCDVIG00. May be SqlString.Null
    • +
  • sSAVRS00. May be SqlString.Null
    • +
  • sTSMUT00. May be SqlString.Null
    • +
  • sVDMUTER. May be SqlString.Null
    • +
  • sTXRes00. May be SqlString.Null
    • +
  • bSaldiert
    • +
  • iAZEPL00. May be SqlInt32.Null
    • +
  • bCDVSA00
    • +
  • daValidto. May be SqlDateTime.Null
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. + + True if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + + + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties needed for this method: +
    +
  • iNRPAR00
    • +
+ Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
  • sIDMSG00
    • +
  • sDMMSG00
    • +
  • sZTMSG00
    • +
  • sBEPGM00
    • +
  • sCDBNK00
    • +
  • iNRPAR00
    • +
  • sBKPAR00
    • +
  • iNRFOG012
    • +
  • sBEBAN012
    • +
  • sNRFOG022
    • +
  • sBEBAN022
    • +
  • sTXADZ012
    • +
  • sTXADZ022
    • +
  • sTXADZ032
    • +
  • sTXADZ042
    • +
  • sTXADZ052
    • +
  • sTXADZ062
    • +
  • sTXADZ072
    • +
  • sNRPARAD
    • +
  • sNRADR00
    • +
  • sNRFOG011
    • +
  • sBEBAN011
    • +
  • sNRFOG21
    • +
  • sBEBAN21
    • +
  • sTXADZ011
    • +
  • sTXADZ021
    • +
  • sTXADZ031
    • +
  • sTXADZ041
    • +
  • sTXADZ051
    • +
  • sTXADZ061
    • +
  • sTXADZ071
    • +
  • sCDBAL00
    • +
  • sCDVIG00
    • +
  • sSAVRS00
    • +
  • sTSMUT00
    • +
  • sVDMUTER
    • +
  • sTXRes00
    • +
  • bSaldiert
    • +
  • iAZEPL00
    • +
  • bCDVSA00
    • +
  • daValidto
    • +
+ Will fill all properties corresponding with a field in the table with the value of the row selected. + + + + + Purpose: SelectAll method. This method will Select all rows from the table. + + DataTable object if succeeded, otherwise an Exception is thrown. + + Properties set after a succesful call of this method: +
    +
  • iErrorCode
    • +
+ + + +Globale Variablen und FUnktionen + + +Datentabelle mit den EDOKA-Applikationsdaten + + +Datensatzzeiger in der Tabelle Applikationsdaten + + +Verbindung zur Daten EDOKA + + +Verbindung zur Daten EDOKA_Journale + + +Verbindung zur Daten EDOKA_Journale mit dem Mail-User + + +Befehlszeilenargumente + + +Connectionprovider für die Datenbank EDOKA +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Connectionprovider für die Datenbank EDOKA_Journale +edokadb.clsConnectionProvider + + +Instanz des Objektes DivFnkt + + +Hält die Applikationsdaten für ein zu importierendes Dokumente +fest + + +Ausgabe eines Strings mit vorgestelltem TimeStamp + + + +Eintrag ins EventLog von EDKB08 schreiben + + + + +Globaler Verweis zur Klasse CLSJournal + + +Daten für der Herkunftsapplikation +Diese interne Tabelle enthält die Daten für die Herkunftsapplikation +einer Indexdatei + + +Interne Variable zur Festhaltung von Fehlern + + +Funktionen für die Journalisierung der einzelnen +Verarbeitungsschritte + + +Interne Variable für das Property JournalNr + + +Property für die JournalNr + + +Variable für die Datenbankklasse clsImport_Job + + +Variable für die Datenbankklasse clsimport_eintrag + + +Interne Variable für das halten einer Datentabelle + + +Öffnet ein neuer Journaleintrag in der Tabelle Import_Job +Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den +entsprechenden Einträgen erstellt +Verarbeiten + + +Schliessen des aktuell geöffneten Verarbeitungsjournales +Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle +Import_Job nachgeführt +Verarbeiten + + +Journaleintrag löschen +Löscht den Journaleintrag aus der Variabel JournalNr + + +Einfügen eines neuen Journaldatensatzes +Recordnummer der Indexdaten bzw. "" für allgemeine +Journaleinträte +Partnernr oder "" für allgemeine +Einträge +Dateityp der zu importierenden Datei bzw. "" +für allgemeine Einträge +Index-Dateiname oder Dateiname der zu importierenden +Datei +Status Nr +Bezeichnung zur Statusnr +Dokumentid des EDOKA-Dokumentes nach dem Import +oder "" +Fremdschlüssel zur Tabelle FA_APPL +edkb08.edokadb.clsFA_APPL + + +Ergänzt den Journaleintrag mit der zugehörenden +Herkunftsapplikation +edkb08.Globals + + +Funktionen für den Export der Journaldaten + + +Auswertung erstellen und ggf. mittels DTO versenden +Datentabelle mit den Auswertungsdaten der Applikation +Format der Auswertung (txt, csv, xls, doc, pdf, +xml) + + +Journaldatei als CSV-Datei erstellen +Journaldaten + + +Journaldatei als TXT-Datei erstellen +Journaldaten + + +EDKB08 - Hauptprogramm +EDKB08 ist ein Importfunktion für Dokumente, welche durch +Fremdanwendungen geliefert und in EDOKA importiert werden sollen. + +Als Input werden die einzelenen Dokumente sowie eine oderer mehrer Dateien mit +den zugehörenden Indexinformationen in ein definiertes Verzeichnis gestellt. + +EDKB08 überwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung +".IND" angeliefert wird, startet der eigentliche Importvorgang. + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Steuerroutine für EDKB08 +Diese Routine wird beim Programmstart durchlaufen. Dabei werden die +benötigten Parameter ausgelesen und an der Konsole angezeigt. + +Nach erfolgreicher Initialisierung werden Aktivitäten im vordefinierten +Verzeichnis abgewartet. + + +Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so +lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden +sind. +Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und +verarbeitet. + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + + + + +Variable mit dem Namen des zu überwachenden Verzeichnises + + +FileSystemWatcher +Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis +(Watch_Directory) + + +Varaible zum Zwischenspeichern der Indexdaten einer +Indexdaten-Datei + + +Timer zur Auslösung der täglichen Journalaufbereitung + + +Start des Dienstes EDKB08WS +Beim Start des Dienstes werden neben dem Einlesen der Parameter der +Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung +initialisiert. + + + +Initialisierung des Filewacher-Objektes +Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie +Dateifilter-Angaben initialisiert. + + +Eventhandler des FileWatching-Objektes aktivieren + + +Aktivitäten im Inputverzeichnis verarbeiten +Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler +gestoppt und die anstehenden Dokumente verarbeitet. + +Nach abgeschlossener Verarbeitung wird der Eventhandler wieder +eingeschaltet + + + + +Verarbeiten von angelieferten Daten +In dieser Methode werden angelieferte Indexdateien verarbeitet. + +Bevor die Verarbeitung startet, wird der Systemfilewacher +ausgeschaltet. +Die Verarbeitung wird solange durchgeführt, bis alle anstehenden +Indexdaten und Dokumente abgearbeitet sind. +Am Schluss der Verarbeitung wird der Systemfilewacher wieder +gestartet. + + + + +Journaldatei erstellen und je nach Applikationseinstellungen +versenden +Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und +sendet diese mittels Mail bzw. mittls DTO weiter + + +DTO-Versand + + + +Versand von Journaldaten mittels Email + + + + + + + + diff --git a/obj/XML_Struktur_Import.xml b/obj/XML_Struktur_Import.xml new file mode 100644 index 0000000..fb5f556 --- /dev/null +++ b/obj/XML_Struktur_Import.xml @@ -0,0 +1,50 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/temp.vb b/temp.vb new file mode 100644 index 0000000..739a3b3 --- /dev/null +++ b/temp.vb @@ -0,0 +1,64 @@ +Module temp + + Sub Dokument_erstellen() + + 'Neue Dokumentid lösen + Dim Dokumentid As String = "" + Dokumentid = Globals.DivFnkt.Generate_Key + + + 'Dokumenttyp auslesen + Dim dokumenttyp As New edokadb.clsDokumenttyp() + dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Gewählte_Dokumenttyp_nr)) + + Dim dok As New edokadb.clsDokument() + dok.cpMainConnectionProvider = conn_edoka + dok.sDokumentid = New SqlString(CType(Dokumentid, String)) + + '***************************************************************************************************************3 + 'Defaultwerte für das Dokument + '***************************************************************************************************************3 + dok.bAktiv = New SqlBoolean(True) + dok.bAmsdokument = New SqlBoolean(CType(False, Boolean)) + dok.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean)) + dok.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean)) + dok.iStatus_edoka_batch_ausgang = Nothing + dok.daTermin = New SqlDateTime(CType("01.01.1900", DateTime)) + dok.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean)) + dok.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean)) + dok.bGesperrt = New SqlBoolean(CType(False, Boolean)) + dok.bUnvollstaendig = New SqlBoolean(CType(False, Boolean)) + dok.iBck = New SqlInt32(CType(1, Int32)) + dok.iColdstatus = New SqlInt32(CType(0, Int32)) + dok.iUnterschriftlinks = New SqlInt32(CType(0, Int32)) + dok.iUnterschriftrechts = New SqlInt32(CType(0, Int32)) + dok.iVerantwortlich = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dok.bVertraulich = New SqlBoolean(CType(False, Boolean)) + dok.sZustelladresse = New SqlString(CType("", String)) + dok.sAnredezustelladresse = New SqlString(CType("", String)) + dok.iZustaendiger = New SqlInt32(CType(Globals.Mitarbeiternr, Int32)) + dok.iPostzustellung = New SqlInt32(CType(0, Int32)) + dok.bZustaendig_kube = New SqlBoolean(CType(0, Boolean)) + dok.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32)) + dok.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32)) + dok.sBemerkung = New SqlString(CType("", String)) + dok.sColddokumentid = New SqlString(CType("", String)) + dok.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32)) + dok.sBedRDokumentid = New SqlString(CType("", String)) + + '***************************************************************************************************************3 + 'Werte aus Dokumenttyp + '***************************************************************************************************************3 + dok.iDokumenttypnr = New SqlInt32(CType(dokumenttyp.iDokumenttypnr.Value, Int32)) + dok.bZu_retournieren = New SqlBoolean(CType(dokumenttyp.bZu_retournieren.Value, Boolean)) + dok.iAufbewahrung_elektronisch = New SqlInt32(CType(dokumenttyp.iAufbewahrungsfrist_elektronisch.Value, Int32)) + dok.iAufbewahrung_phaysisch = New SqlInt32(CType(dokumenttyp.iAufbewahrungsfrist_physisch.Value, Int32)) + dok.iBearbeitung_nach_abschluss = New SqlInt32(CType(dokumenttyp.iTage_mutation.Value, Int32)) + dok.iBearbeitungszeit_in_minuten = New SqlInt32(CType(dokumenttyp.iDbearbeitungszeit.Value, Int32)) + dok.iMonierung_in_tagen = New SqlInt32(CType(dokumenttyp.iAnzahl_tage.Value, Int32)) + dok.sBezeichnung = New SqlString(CType(dokumenttyp.sBezeichnung.Value, String)) + + End Sub + + +End Module diff --git a/vssver.scc b/vssver.scc new file mode 100644 index 0000000..14a9c45 Binary files /dev/null and b/vssver.scc differ