Initial commit
This commit is contained in:
31
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/AssemblyInfo.vb
Normal file
31
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/AssemblyInfo.vb
Normal file
@@ -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 verknüpft sind, zu bearbeiten.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
|
||||
<Assembly: Guid("5E6C2977-CE7D-4219-82AD-A164F97D2A74")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Haupversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revisionsnummer
|
||||
'
|
||||
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
|
||||
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
|
||||
|
||||
<Assembly: AssemblyVersion("2.0.*")>
|
||||
47
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.sln
Normal file
47
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.sln
Normal file
@@ -0,0 +1,47 @@
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08ws", "EDKB08ws.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
|
||||
Global
|
||||
GlobalSection(SourceCodeControl) = preSolution
|
||||
SccNumberOfProjects = 4
|
||||
SccLocalPath0 = .
|
||||
CanCheckoutShared = false
|
||||
SccProjectUniqueName1 = EDKB08ws.vbproj
|
||||
SccLocalPath1 = .
|
||||
CanCheckoutShared = false
|
||||
SccProjectUniqueName2 = ..\\EDKB08_GSF\\EDKB08_GSF.vbproj
|
||||
SccProjectName2 = \u0022$/EDKB08_GSF/EDKB08_GSF\u0022,\u0020FTAAAAAA
|
||||
SccLocalPath2 = ..\\EDKB08_GSF
|
||||
CanCheckoutShared = false
|
||||
SccProjectUniqueName3 = ..\\EDKB08_GSF_Tester\\EDKB08_GSF_Tester.vbproj
|
||||
SccProjectName3 = \u0022$/EDKB08_GSF/EDKB08_GSF_Tester\u0022,\u0020HTAAAAAA
|
||||
SccLocalPath3 = ..\\EDKB08_GSF_Tester
|
||||
CanCheckoutShared = false
|
||||
EndGlobalSection
|
||||
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
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.suo
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.suo
Normal file
Binary file not shown.
274
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.vbproj
Normal file
274
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.vbproj
Normal file
@@ -0,0 +1,274 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{1607A887-77A7-475C-BDCC-81B033A314AD}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>EDKB08WS</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>EDKB08WS</RootNamespace>
|
||||
<StartupObject>EDKB08WS.Service1</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08WS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08WS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Accessibility">
|
||||
<Name>Accessibility</Name>
|
||||
</Reference>
|
||||
<Reference Include="CrystalDecisions.CrystalReports.Engine, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, processorArchitecture=MSIL" />
|
||||
<Reference Include="CrystalDecisions.Enterprise.Framework, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />
|
||||
<Reference Include="CrystalDecisions.Enterprise.InfoStore, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />
|
||||
<Reference Include="CrystalDecisions.ReportSource, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, processorArchitecture=MSIL" />
|
||||
<Reference Include="CrystalDecisions.Shared, Version=10.2.3600.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, processorArchitecture=MSIL" />
|
||||
<Reference Include="EDKB08_GSF, Version=1.0.2827.24227, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\D\EDOKA\EDKB08\EDKB08_GSF.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Configuration.Install">
|
||||
<Name>System.Configuration.Install</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Drawing">
|
||||
<Name>System.Drawing</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Runtime.Serialization.Formatters.Soap">
|
||||
<Name>System.Runtime.Serialization.Formatters.Soap</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.ServiceProcess">
|
||||
<Name>System.ServiceProcess</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Web">
|
||||
<Name>System.Web</Name>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms">
|
||||
<Name>system.windows.forms</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsCheckandImport.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsDivFnkt.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsIndexData.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsParameter.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsConnectionProvider.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsDBInteractionBase.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsDokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsDokumentcoldindexwert.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsDokumenttyp.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsDokument_status.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsFA_APPL.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsFA_BCImport.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsFA_Dokumenttyp.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsKey_tabelle.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsMitarbeiter.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsMyKey_Tabelle.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsMyMitarbeiter.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsPartner.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsStatushistory.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\clsVv.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\db_connection.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Daten.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Eintrag.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Job.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Globals.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\log_report\clsJournal.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\log_report\Export.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\log_report\Journal1.vb">
|
||||
<DependentUpon>Journal1.rpt</DependentUpon>
|
||||
<SubType>Component</SubType>
|
||||
<DesignTime>True</DesignTime>
|
||||
<AutoGen>True</AutoGen>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\Main.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ProjectInstaller.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Service1.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<EmbeddedResource Include="edkb08\log_report\Journal1.rpt">
|
||||
<Generator>CrystalDecisions.VSDesigner.CodeGen.ReportCodeGenerator</Generator>
|
||||
<LastGenOutput>Journal1.vb</LastGenOutput>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="ProjectInstaller.resx">
|
||||
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Service1.resx">
|
||||
<DependentUpon>Service1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<None Include="edkb08\log_report\Dataset1.xsd.bak" />
|
||||
<None Include="edkb08\log_report\Journal.xsx">
|
||||
<DependentUpon>Journal.xsd</DependentUpon>
|
||||
</None>
|
||||
<Content Include="edkb08\log_report\Journal.xsd" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Service Include="{967B4E0D-AD0C-4609-AB67-0FA40C0206D8}" />
|
||||
<Service Include="{CF845C55-C321-4742-B673-E6212D061ED9}" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,17 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ReferencePath>C:\Programme\Gemeinsame Dateien\Business Objects\2.7\Managed\</ReferencePath>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -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"
|
||||
}
|
||||
10
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.vssscc
Normal file
10
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/EDKB08ws.vssscc
Normal file
@@ -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"
|
||||
}
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ServiceProcessInstaller1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceProcessInstaller1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ServiceInstaller1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceInstaller1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>188, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>ProjectInstaller</value>
|
||||
</data>
|
||||
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,60 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.Configuration.Install
|
||||
|
||||
<RunInstaller(True)> Public Class ProjectInstaller
|
||||
Inherits System.Configuration.Install.Installer
|
||||
|
||||
#Region " Vom Component Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
'Installer überschreibt den Löschvorgang 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
|
||||
|
||||
' Für Komponenten-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> 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
|
||||
187
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/Service1.resx
Normal file
187
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/Service1.resx
Normal file
@@ -0,0 +1,187 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ServiceIcon.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ServiceIcon.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ServiceIcon.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>126, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
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==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>Service1</value>
|
||||
</data>
|
||||
</root>
|
||||
751
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/Service1.vb
Normal file
751
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/Service1.vb
Normal file
@@ -0,0 +1,751 @@
|
||||
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
|
||||
|
||||
'''<summary></summary>
|
||||
Public Class Service1
|
||||
Inherits System.ServiceProcess.ServiceBase
|
||||
|
||||
#Region " Vom Component Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf wird vom Komponenten-Designer benötigt.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungscode hinter dem InitializeComponent()-Aufruf ein
|
||||
|
||||
End Sub
|
||||
|
||||
'UserService überschreibt den Löschvorgang 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 für den Vorgang
|
||||
<MTAThread()> _
|
||||
Shared Sub Main()
|
||||
|
||||
|
||||
'#If Debug Then
|
||||
' Dim service As New Service1()
|
||||
' service.Run(Service1)
|
||||
' service.StartService()
|
||||
' System.Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
|
||||
'#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
|
||||
|
||||
' Für Komponenten-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
' HINWEIS: Die folgende Prozedur wird vom Komponenten-Designer benötigt.
|
||||
' 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> 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
|
||||
'''<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
Dim Watch_Directory As String
|
||||
'''<summary>FileSystemWatcher</summary>
|
||||
'''<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
'''(Watch_Directory)</remarks>
|
||||
Dim FileWatch As New FileSystemWatcher()
|
||||
|
||||
'''<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
'''Indexdaten-Datei</summary>
|
||||
Dim indexdata As DataTable
|
||||
|
||||
'''<summary>Timer zur Auslösung der täglichen Journalaufbereitung</summary>
|
||||
Dim WithEvents JournalTimer As New Timers.Timer()
|
||||
|
||||
'Anpassungen GSF
|
||||
Dim WithEvents GSF_Timer As New Timers.Timer()
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Hauptverarbeitung"
|
||||
|
||||
'''<summary>Start des Dienstes EDKB08WS</summary>
|
||||
'''<remarks>Beim Start des Dienstes werden neben dem Einlesen der Parameter der
|
||||
'''Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung
|
||||
'''initialisiert.</remarks>
|
||||
'''<param name="args"></param>
|
||||
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
|
||||
GSF_Timer.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
|
||||
JournalTimer.Enabled = True
|
||||
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"
|
||||
|
||||
'''<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
'''<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
'''Dateifilter-Angaben initialisiert.</remarks>
|
||||
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
|
||||
|
||||
'''<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
Private Function Start_Watching() As Boolean
|
||||
Try
|
||||
AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent)
|
||||
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
|
||||
'''<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
'''<remarks>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</remarks>
|
||||
'''<param name="source"></param>
|
||||
'''<param name="e"></param>
|
||||
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" Then
|
||||
FileWatch.EnableRaisingEvents = False
|
||||
EventStopped = True
|
||||
PrintOut("Neue Datei " + e.FullPath)
|
||||
'ServiceIcon.Text = "Working..."
|
||||
Verarbeiten()
|
||||
' ServiceThread = New Thread(AddressOf Verarbeiten)
|
||||
' ServiceThread.Start()
|
||||
FileWatch.EnableRaisingEvents = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Verarbeitung"
|
||||
|
||||
'''<summary>Verarbeiten von angelieferten Daten</summary>
|
||||
'''<remarks>In dieser Methode werden angelieferte Indexdateien verarbeitet.
|
||||
'''<para></para>
|
||||
'''<para>Bevor die Verarbeitung startet, wird der Systemfilewacher
|
||||
'''ausgeschaltet.</para>
|
||||
'''<para>Die Verarbeitung wird solange durchgeführt, bis alle anstehenden
|
||||
'''Indexdaten und Dokumente abgearbeitet sind.</para>
|
||||
'''<para>Am Schluss der Verarbeitung wird der Systemfilewacher wieder
|
||||
'''gestartet.</para></remarks>
|
||||
Private Sub Verarbeiten()
|
||||
Dim gsffilename As String = ""
|
||||
Try
|
||||
PrintOut("Bei Verarbeiten() zuerst 5000ms warten", EventLogEntryType.Information)
|
||||
Thread.Sleep(5000)
|
||||
|
||||
'Dim bmp As New Bitmap(Me.ImageList1.Images(0))
|
||||
'ServiceIcon.Icon = Icon.FromHandle(bmp.GetHicon())
|
||||
Dim looper As Boolean = True
|
||||
While looper = True
|
||||
'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()
|
||||
'Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
|
||||
'ServiceIcon.Icon = Icon.FromHandle(bmp1.GetHicon())
|
||||
'ServiceIcon.Text = "Waiting..."
|
||||
EventStopped = False
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
For Each dra In diar1
|
||||
gsffilename = dra.Name.Substring(0, dra.Name.IndexOf("."))
|
||||
Globals.Journal.Open_Journal()
|
||||
Globals.Journal.Insert_Journal("", "", "", dra.FullName, "", "Start der Verarbeitung", "", "")
|
||||
DivFnkt.Save_Indexdata(Journal.JournalNr, 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 = False And indexdata.Rows(0).Item(17) = "" Then
|
||||
Journal.Insert_Journal("", "", "", dra.FullName, "16", "Zuordnung zur Herkunftsapplikation fehlt.", "", "")
|
||||
Else
|
||||
If check_and_import.Herkunftsapplikationen_auslesen Then
|
||||
'Sofern die Herkunftsapplikation erruiert werden konnte, wird die Journaltabelle mit der Applikationsid nachgeführt
|
||||
Globals.Journal.Update_Journal()
|
||||
|
||||
'Verarbeitung der Daten
|
||||
check_and_import.CheckandImport()
|
||||
check_and_import = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Journal.Insert_Journal("", "", "", dra.FullName, "", "Total Index-Datensätze: " + LTrim(Str(indexdata.Rows.Count)), "", "")
|
||||
Journal.Insert_Journal("", "", "", dra.FullName, "", "Verarbeitung abgeschlossen.", "", "")
|
||||
Logdatei_Erstellen()
|
||||
Globals.Journal.Close_Journal()
|
||||
'Anpassungen EBES-LSV
|
||||
If GSF = True Then
|
||||
If Fehler <> 0 Then
|
||||
OBJ_GSF.Set_DokStatus(dra.Name.Substring(0, dra.Name.IndexOf(".")), EDKB08_GSF.Common.Enum_DokStatus.OK)
|
||||
Else
|
||||
OBJ_GSF.Set_DokStatus(dra.Name.Substring(0, dra.Name.IndexOf(".")), EDKB08_GSF.Common.Enum_DokStatus.OK)
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
clsindex = Nothing
|
||||
di = Nothing
|
||||
diar1 = Nothing
|
||||
End While
|
||||
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
|
||||
|
||||
'''<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
'''versenden</summary>
|
||||
'''<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
'''sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
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
|
||||
|
||||
|
||||
'''<summary>DTO-Versand</summary>
|
||||
'''<param name="filename"></param>
|
||||
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
|
||||
|
||||
'''<summary>Versand von Journaldaten mittels Email</summary>
|
||||
'''<param name="filename"></param>
|
||||
'''<param name="empfaenger"></param>
|
||||
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
|
||||
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
|
||||
restartjob.Dispose()
|
||||
restartdok.Dispose()
|
||||
|
||||
If Now.Hour > 0 And Now.Hour < 1 Then
|
||||
Dim filename As String
|
||||
Dim dt As DataTable
|
||||
PrintOut("Start Tägliche 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
|
||||
|
||||
'''<summary></summary>
|
||||
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("Tägliche 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
|
||||
Verarbeiten()
|
||||
GSF = False
|
||||
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
|
||||
|
||||
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 = True
|
||||
End Sub
|
||||
|
||||
Sub GSF_logging(ByVal logeintrag As String, ByVal itype As Integer) Handles OBJ_GSF.LogToBMS
|
||||
PrintOut(logeintrag + " " + itype.ToString)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
67
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/UpgradeLog.XML
Normal file
67
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/UpgradeLog.XML
Normal file
@@ -0,0 +1,67 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type='text/xsl' href='_UpgradeReport_Files/UpgradeReport.xslt'?><UpgradeLog>
|
||||
<Properties><Property Name="Solution" Value="EDKB08ws">
|
||||
</Property><Property Name="Projektmappendatei" Value="C:\DATA\EDKB08ws\EDKB08ws.sln">
|
||||
</Property><Property Name="Date" Value="Freitag, 28. September 2007">
|
||||
</Property><Property Name="Time" Value="10:50">
|
||||
</Property></Properties><Event ErrorLevel="0" Project="" Source="EDKB08ws.sln" Description="Datei wurde erfolgreich als "C:\DATA\EDKB08ws_sik\Backup\EDKB08ws.sln" gesichert">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="EDKB08ws.vbproj" Description="Projektdatei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08ws.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\clsCheckandImport.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\clsCheckandImport.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\clsDivFnkt.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\clsDivFnkt.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\clsIndexData.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\clsIndexData.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\clsParameter.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\clsParameter.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsConnectionProvider.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsConnectionProvider.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsDBInteractionBase.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsDBInteractionBase.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsDokument.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsDokument.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsDokumentcoldindexwert.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsDokumentcoldindexwert.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsDokumenttyp.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsDokumenttyp.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsDokument_status.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsDokument_status.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsFA_APPL.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsFA_APPL.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsFA_BCImport.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsFA_BCImport.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsFA_Dokumenttyp.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsFA_Dokumenttyp.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsKey_tabelle.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsKey_tabelle.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsMitarbeiter.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsMitarbeiter.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsMyKey_Tabelle.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsMyKey_Tabelle.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsMyMitarbeiter.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsMyMitarbeiter.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsPartner.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsPartner.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsStatushistory.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsStatushistory.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\clsVv.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\clsVv.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\db_connection.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\db_connection.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\Journale\clsImport_Daten.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\Journale\clsImport_Daten.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\Journale\clsImport_Eintrag.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\Journale\clsImport_Eintrag.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Datenbank\Journale\clsImport_Job.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Datenbank\Journale\clsImport_Job.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Globals.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Globals.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\clsJournal.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\clsJournal.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Export.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Export.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Journal1.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Journal1.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\Main.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\Main.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="ProjectInstaller.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\ProjectInstaller.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="Service1.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\Service1.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Dataset1.xsd.bak" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Dataset1.xsd.bak">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Journal.xsx" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Journal.xsx">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Journal.xsd" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Journal.xsd">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="edkb08\log_report\Journal1.rpt" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\edkb08\log_report\Journal1.rpt">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="ProjectInstaller.resx" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\ProjectInstaller.resx">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="Service1.resx" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\Service1.resx">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="EDKB08ws.vbproj" Description="Projekt erfolgreich konvertiert">
|
||||
</Event><Event ErrorLevel="3" Project="EDKB08ws" Source="EDKB08ws.vbproj" Description="Converted">
|
||||
</Event><Event ErrorLevel="1" Project="EDKB08_GSF" Source="..\EDKB08_GSF\EDKB08_GSF.vbproj" Description="Warnung: Die Sicherungskopie der Projektdatei wird in einem relativen Pfad erstellt, der vom relativen Pfad der ursprünglichen Projektmappe abweicht. Der Unterschied in der Ordnerhierarchie kann zu Problemen beim Öffnen oder Erstellen der gesicherten Projektm">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\EDKB08_GSF.vbproj" Description="Projektdatei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF\EDKB08_GSF.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\Common.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF\Common.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\DivFnk.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF\DivFnk.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\WordChange.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF\WordChange.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\EDKB08_GSF.vbproj" Description="Projekt erfolgreich konvertiert">
|
||||
</Event><Event ErrorLevel="3" Project="EDKB08_GSF" Source="..\EDKB08_GSF\EDKB08_GSF.vbproj" Description="Converted">
|
||||
</Event><Event ErrorLevel="1" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Warnung: Die Sicherungskopie der Projektdatei wird in einem relativen Pfad erstellt, der vom relativen Pfad der ursprünglichen Projektmappe abweicht. Der Unterschied in der Ordnerhierarchie kann zu Problemen beim Öffnen oder Erstellen der gesicherten Projektm">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Projektdatei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF_Tester\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\ModMain.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08ws_sik\Backup\EDKB08_GSF_Tester\ModMain.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Projekt erfolgreich konvertiert">
|
||||
</Event><Event ErrorLevel="3" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Converted">
|
||||
</Event><Event ErrorLevel="0" Project="" Source="EDKB08ws.sln" Description="Die Projektmappe wurde erfolgreich konvertiert.">
|
||||
</Event><Event ErrorLevel="3" Project="" Source="EDKB08ws.sln" Description="Converted">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08ws" Source="EDKB08ws.vbproj" Description="Überprüfung abgeschlossen: Aktualisierung von Projektdateien nicht erforderlich.">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="..\EDKB08_GSF\EDKB08_GSF.vbproj" Description="Überprüfung abgeschlossen: Aktualisierung von Projektdateien nicht erforderlich.">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Überprüfung abgeschlossen: Aktualisierung von Projektdateien nicht erforderlich.">
|
||||
</Event></UpgradeLog>
|
||||
@@ -0,0 +1,207 @@
|
||||
BODY
|
||||
{
|
||||
BACKGROUND-COLOR: white;
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-LEFT: 0px;
|
||||
MARGIN-TOP: 0px
|
||||
}
|
||||
P
|
||||
{
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 70%;
|
||||
LINE-HEIGHT: 12pt;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 10px
|
||||
}
|
||||
.note
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
COLOR: #336699;
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-LEFT: 0px;
|
||||
MARGIN-TOP: 0px;
|
||||
PADDING-RIGHT: 10px
|
||||
}
|
||||
.infotable
|
||||
{
|
||||
BACKGROUND-COLOR: #f0f0e0;
|
||||
BORDER-BOTTOM: #ffffff 0px solid;
|
||||
BORDER-COLLAPSE: collapse;
|
||||
BORDER-LEFT: #ffffff 0px solid;
|
||||
BORDER-RIGHT: #ffffff 0px solid;
|
||||
BORDER-TOP: #ffffff 0px solid;
|
||||
FONT-SIZE: 70%;
|
||||
MARGIN-LEFT: 10px
|
||||
}
|
||||
.issuetable
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffe8;
|
||||
BORDER-COLLAPSE: collapse;
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-BOTTOM: 10px;
|
||||
MARGIN-LEFT: 13px;
|
||||
MARGIN-TOP: 0px
|
||||
}
|
||||
.issuetitle
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px;
|
||||
COLOR: #003366;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.header
|
||||
{
|
||||
BACKGROUND-COLOR: #cecf9c;
|
||||
BORDER-BOTTOM: #ffffff 1px solid;
|
||||
BORDER-LEFT: #ffffff 1px solid;
|
||||
BORDER-RIGHT: #ffffff 1px solid;
|
||||
BORDER-TOP: #ffffff 1px solid;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: bold
|
||||
}
|
||||
.issuehdr
|
||||
{
|
||||
BACKGROUND-COLOR: #E0EBF5;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px solid;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.issuenone
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: 0px;
|
||||
BORDER-LEFT: 0px;
|
||||
BORDER-RIGHT: 0px;
|
||||
BORDER-TOP: 0px;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.content
|
||||
{
|
||||
BACKGROUND-COLOR: #e7e7ce;
|
||||
BORDER-BOTTOM: #ffffff 1px solid;
|
||||
BORDER-LEFT: #ffffff 1px solid;
|
||||
BORDER-RIGHT: #ffffff 1px solid;
|
||||
BORDER-TOP: #ffffff 1px solid;
|
||||
PADDING-LEFT: 3px
|
||||
}
|
||||
.issuecontent
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px solid;
|
||||
PADDING-LEFT: 3px
|
||||
}
|
||||
A:link
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
TEXT-DECORATION: underline
|
||||
}
|
||||
A:visited
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
}
|
||||
A:active
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
}
|
||||
A:hover
|
||||
{
|
||||
COLOR: #cc3300;
|
||||
TEXT-DECORATION: underline
|
||||
}
|
||||
H1
|
||||
{
|
||||
BACKGROUND-COLOR: #003366;
|
||||
BORDER-BOTTOM: #336699 6px solid;
|
||||
COLOR: #ffffff;
|
||||
FONT-SIZE: 130%;
|
||||
FONT-WEIGHT: normal;
|
||||
MARGIN: 0em 0em 0em -20px;
|
||||
PADDING-BOTTOM: 8px;
|
||||
PADDING-LEFT: 30px;
|
||||
PADDING-TOP: 16px
|
||||
}
|
||||
H2
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 80%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: 3px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 20px;
|
||||
PADDING-LEFT: 0px
|
||||
}
|
||||
H3
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 80%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: -5px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 20px
|
||||
}
|
||||
H4
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-TOP: 15px;
|
||||
PADDING-BOTTOM: 0px
|
||||
}
|
||||
UL
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
LIST-STYLE: square;
|
||||
MARGIN-BOTTOM: 0pt;
|
||||
MARGIN-TOP: 0pt
|
||||
}
|
||||
OL
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
LIST-STYLE: square;
|
||||
MARGIN-BOTTOM: 0pt;
|
||||
MARGIN-TOP: 0pt
|
||||
}
|
||||
LI
|
||||
{
|
||||
LIST-STYLE: square;
|
||||
MARGIN-LEFT: 0px
|
||||
}
|
||||
.expandable
|
||||
{
|
||||
CURSOR: hand
|
||||
}
|
||||
.expanded
|
||||
{
|
||||
color: black
|
||||
}
|
||||
.collapsed
|
||||
{
|
||||
DISPLAY: none
|
||||
}
|
||||
.foot
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #cecf9c 1px solid;
|
||||
BORDER-TOP: #cecf9c 2px solid
|
||||
}
|
||||
.settings
|
||||
{
|
||||
MARGIN-LEFT: 25PX;
|
||||
}
|
||||
.help
|
||||
{
|
||||
TEXT-ALIGN: right;
|
||||
margin-right: 10px;
|
||||
}
|
||||
@@ -0,0 +1,232 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt">
|
||||
|
||||
<xsl:key name="ProjectKey" match="Event" use="@Project"/>
|
||||
|
||||
<xsl:template match="Events" mode="createProjects">
|
||||
<projects>
|
||||
<xsl:for-each select="Event">
|
||||
<!--xsl:sort select="@Project" order="descending"/-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Project != @Project)">
|
||||
|
||||
<xsl:variable name="ProjectName" select="@Project"/>
|
||||
|
||||
<project>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Project"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:if test="@Project=''">
|
||||
<xsl:attribute name="solution">
|
||||
<xsl:value-of select="@Solution"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)">
|
||||
<!--xsl:sort select="@Source" /-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Source != @Source)">
|
||||
|
||||
<source>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:variable name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)[ @Source = $Source ]">
|
||||
|
||||
<event>
|
||||
<xsl:attribute name="error-level">
|
||||
<xsl:value-of select="@ErrorLevel"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="description">
|
||||
<xsl:value-of select="@Description"/>
|
||||
</xsl:attribute>
|
||||
</event>
|
||||
</xsl:for-each>
|
||||
</source>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
</project>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</projects>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="projects">
|
||||
<xsl:for-each select="project">
|
||||
<xsl:sort select="@Name" order="ascending"/>
|
||||
<h2>
|
||||
<xsl:if test="@solution">Projektmappe: <xsl:value-of select="@solution"/></xsl:if>
|
||||
<xsl:if test="not(@solution)">Projekt: <xsl:value-of select="@name"/>
|
||||
<xsl:for-each select="source">
|
||||
<xsl:variable name="Hyperlink" select="@name"/>
|
||||
<xsl:for-each select="event[@error-level='4']">
|
||||
<A class="note"><xsl:attribute name="HREF"><xsl:value-of select="$Hyperlink"/></xsl:attribute><xsl:value-of select="@description"/></A>
|
||||
</xsl:for-each>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
</h2>
|
||||
|
||||
<table cellpadding="2" cellspacing="0" width="98%" border="1" bordercolor="white" class="infotable">
|
||||
<tr>
|
||||
<td nowrap="1" class="header" _locID="Filename">Dateiname</td>
|
||||
<td nowrap="1" class="header" _locID="Status">Status</td>
|
||||
<td nowrap="1" class="header" _locID="Errors">Fehler</td>
|
||||
<td nowrap="1" class="header" _locID="Warnings">Warnungen</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="source">
|
||||
<xsl:sort select="@name" order="ascending"/>
|
||||
<xsl:variable name="source-id" select="generate-id(.)"/>
|
||||
|
||||
<xsl:if test="count(event)!=count(event[@error-level='4'])">
|
||||
|
||||
<tr class="row">
|
||||
<td class="content">
|
||||
<A HREF="javascript:"><xsl:attribute name="onClick">javascript:document.images['<xsl:value-of select="$source-id"/>'].click()</xsl:attribute><IMG border="0" alt="expand/collapse section" class="expandable" height="11" onclick="changepic()" src="_UpgradeReport_Files/UpgradeReport_Plus.gif" width="9"><xsl:attribute name="name"><xsl:value-of select="$source-id"/></xsl:attribute><xsl:attribute name="child">src<xsl:value-of select="$source-id"/></xsl:attribute></IMG></A> <xsl:value-of select="@name"/>
|
||||
</td>
|
||||
<td class="content">
|
||||
<xsl:if test="count(event[@error-level='3'])=1">
|
||||
<xsl:for-each select="event[@error-level='3']">
|
||||
<xsl:if test="@description='Converted'">Konvertiert</xsl:if>
|
||||
<xsl:if test="@description!='Converted'"><xsl:value-of select="@description"/></xsl:if>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
<xsl:if test="count(event[@error-level='3'])!=1 and count(event[@error-level='3' and @description='Converted'])!=0">Konvertiert
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='2'])"/></td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
|
||||
<tr class="collapsed" bgcolor="#ffffff">
|
||||
<xsl:attribute name="id">src<xsl:value-of select="$source-id"/></xsl:attribute>
|
||||
|
||||
<td colspan="7">
|
||||
<table width="97%" border="1" bordercolor="#dcdcdc" rules="cols" class="issuetable">
|
||||
<tr>
|
||||
<td colspan="7" class="issuetitle" _locID="ConversionIssues">Konvertierungsprobleme - <xsl:value-of select="@name"/>:</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="event[@error-level!='3']">
|
||||
<xsl:if test="@error-level!='4'">
|
||||
<tr>
|
||||
<td class="issuenone" style="border-bottom:solid 1 lightgray">
|
||||
<xsl:value-of select="@description"/>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
<tr valign="top">
|
||||
<td class="foot">
|
||||
<xsl:if test="count(source)!=1">
|
||||
<xsl:value-of select="count(source)"/> Dateien
|
||||
</xsl:if>
|
||||
<xsl:if test="count(source)=1">
|
||||
1 Datei
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="foot">
|
||||
Konvertiert: <xsl:value-of select="count(source/event[@error-level='3' and @description='Converted'])"/><BR/>
|
||||
Nicht konvertiert <xsl:value-of select="count(source) - count(source/event[@error-level='3' and @description='Converted'])"/>
|
||||
</td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='2'])"/></td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
</table>
|
||||
</xsl:for-each>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="Property">
|
||||
<xsl:if test="@Name!='Date' and @Name!='Time' and @Name!='LogNumber' and @Name!='Solution'">
|
||||
<tr><td nowrap="1"><b><xsl:value-of select="@Name"/>: </b><xsl:value-of select="@Value"/></td></tr>
|
||||
</xsl:if>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="UpgradeLog">
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8"/>
|
||||
<link rel="stylesheet" href="_UpgradeReport_Files\UpgradeReport.css"/>
|
||||
<title>Konvertierungsbericht
|
||||
<xsl:if test="Properties/Property[@Name='LogNumber']">
|
||||
<xsl:value-of select="Properties/Property[@Name='LogNumber']/@Value"/>
|
||||
</xsl:if>
|
||||
</title>
|
||||
<script language="javascript">
|
||||
function outliner () {
|
||||
oMe = window.event.srcElement
|
||||
//get child element
|
||||
var child = document.all[event.srcElement.getAttribute("child",false)];
|
||||
//if child element exists, expand or collapse it.
|
||||
if (null != child)
|
||||
child.className = child.className == "collapsed" ? "expanded" : "collapsed";
|
||||
}
|
||||
|
||||
function changepic() {
|
||||
uMe = window.event.srcElement;
|
||||
var check = uMe.src.toLowerCase();
|
||||
if (check.lastIndexOf("upgradereport_plus.gif") != -1)
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Minus.gif"
|
||||
}
|
||||
else
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Plus.gif"
|
||||
}
|
||||
}
|
||||
</script>
|
||||
</head>
|
||||
<body topmargin="0" leftmargin="0" rightmargin="0" onclick="outliner();">
|
||||
<h1 _locID="ConversionReport">Konvertierungsbericht - <xsl:value-of select="Properties/Property[@Name='Solution']/@Value"/></h1>
|
||||
|
||||
<p><span class="note">
|
||||
<b>Konvertierungsdauer:</b> <xsl:value-of select="Properties/Property[@Name='Date']/@Value"/> <xsl:value-of select="Properties/Property[@Name='Time']/@Value"/><br/>
|
||||
</span></p>
|
||||
|
||||
<xsl:variable name="SortedEvents">
|
||||
<Events>
|
||||
<xsl:for-each select="Event">
|
||||
<xsl:sort select="@Project" order="ascending"/>
|
||||
<xsl:sort select="@Source" order="ascending"/>
|
||||
<xsl:sort select="@ErrorLevel" order="ascending"/>
|
||||
<Event>
|
||||
<xsl:attribute name="Project"><xsl:value-of select="@Project"/> </xsl:attribute>
|
||||
<xsl:attribute name="Solution"><xsl:value-of select="/UpgradeLog/Properties/Property[@Name='Solution']/@Value"/> </xsl:attribute>
|
||||
<xsl:attribute name="Source"><xsl:value-of select="@Source"/> </xsl:attribute>
|
||||
<xsl:attribute name="ErrorLevel"><xsl:value-of select="@ErrorLevel"/> </xsl:attribute>
|
||||
<xsl:attribute name="Description"><xsl:value-of select="@Description"/> </xsl:attribute>
|
||||
</Event>
|
||||
</xsl:for-each>
|
||||
</Events>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:variable name="Projects">
|
||||
<xsl:apply-templates select="msxsl:node-set($SortedEvents)/*" mode="createProjects"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:apply-templates select="msxsl:node-set($Projects)/*"/>
|
||||
|
||||
<p></p><p>
|
||||
<table class="note">
|
||||
<tr>
|
||||
<td nowrap="1">
|
||||
<b>Konvertierungseinstellungen</b>
|
||||
</td>
|
||||
</tr>
|
||||
<xsl:apply-templates select="Properties"/>
|
||||
</table></p>
|
||||
</body>
|
||||
</html>
|
||||
</xsl:template>
|
||||
</xsl:stylesheet>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 69 B |
Binary file not shown.
|
After Width: | Height: | Size: 71 B |
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08WS.exe
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08WS.exe
Normal file
Binary file not shown.
Binary file not shown.
698
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08WS.xml
Normal file
698
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08WS.xml
Normal file
@@ -0,0 +1,698 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08WS
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="F:EDKB08WS.Service1.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Service1.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.JournalTimer">
|
||||
<summary>Timer zur Auslösung der täglichen Journalaufbereitung</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnStart(System.String[])">
|
||||
<summary>Start des Dienstes EDKB08WS</summary>
|
||||
<remarks>Beim Start des Dienstes werden neben dem Einlesen der Parameter der
|
||||
Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung
|
||||
initialisiert.</remarks>
|
||||
<param name="args"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Verarbeiten">
|
||||
<summary>Verarbeiten von angelieferten Daten</summary>
|
||||
<remarks>In dieser Methode werden angelieferte Indexdateien verarbeitet.
|
||||
<para></para>
|
||||
<para>Bevor die Verarbeitung startet, wird der Systemfilewacher
|
||||
ausgeschaltet.</para>
|
||||
<para>Die Verarbeitung wird solange durchgeführt, bis alle anstehenden
|
||||
Indexdaten und Dokumente abgearbeitet sind.</para>
|
||||
<para>Am Schluss der Verarbeitung wird der Systemfilewacher wieder
|
||||
gestartet.</para></remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_Mail(System.String,System.String)">
|
||||
<summary>Versand von Journaldaten mittels Email</summary>
|
||||
<param name="filename"></param>
|
||||
<param name="empfaenger"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.get_applikationen">
|
||||
<summary></summary>
|
||||
</member><member name="T:EDKB08WS.Service1">
|
||||
<summary></summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.m_Journalnr">
|
||||
<summary>Interne Variable für das Property JournalNr</summary>
|
||||
</member><member name="P:EDKB08WS.clsJournal.JournalNr">
|
||||
<summary>Property für die JournalNr</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journal">
|
||||
<summary>Variable für die Datenbankklasse clsImport_Job</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journaleintrag">
|
||||
<summary>Variable für die Datenbankklasse clsimport_eintrag</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.tmptbl">
|
||||
<summary>Interne Variable für das halten einer Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Open_Journal">
|
||||
<summary>Öffnet ein neuer Journaleintrag in der Tabelle Import_Job</summary>
|
||||
<remarks>Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den
|
||||
entsprechenden Einträgen erstellt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Close_Journal">
|
||||
<summary>Schliessen des aktuell geöffneten Verarbeitungsjournales</summary>
|
||||
<remarks>Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle
|
||||
Import_Job nachgeführt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Delete_Entry">
|
||||
<summary>Journaleintrag löschen</summary>
|
||||
<remarks>Löscht den Journaleintrag aus der Variabel JournalNr</remarks>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Insert_Journal(System.String,System.String,System.String,System.String,System.String,System.String,System.String,System.String)">
|
||||
<summary>Einfügen eines neuen Journaldatensatzes</summary>
|
||||
<param name="RecNo">Recordnummer der Indexdaten bzw. "" für allgemeine
|
||||
Journaleinträte</param>
|
||||
<param name="Partnernr">Partnernr oder "" für allgemeine
|
||||
Einträge</param>
|
||||
<param name="dateityp">Dateityp der zu importierenden Datei bzw. ""
|
||||
für allgemeine Einträge</param>
|
||||
<param name="dateiname">Index-Dateiname oder Dateiname der zu importierenden
|
||||
Datei</param>
|
||||
<param name="Status">Status Nr</param>
|
||||
<param name="Statustext">Bezeichnung zur Statusnr</param>
|
||||
<param name="EDOKA_Dokumentid">Dokumentid des EDOKA-Dokumentes nach dem Import
|
||||
oder ""</param>
|
||||
<param name="Applikationnr">Fremdschlüssel zur Tabelle FA_APPL</param>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsFA_APPL">edkb08.edokadb.clsFA_APPL</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Update_Journal">
|
||||
<summary>Ergänzt den Journaleintrag mit der zugehörenden
|
||||
Herkunftsapplikation</summary>
|
||||
<seealso cref="F:EDKB08WS.Globals.Herkunftsapplikation">edkb08.Globals</seealso>
|
||||
</member><member name="T:EDKB08WS.clsJournal">
|
||||
<summary>Funktionen für die Journalisierung der einzelnen
|
||||
Verarbeitungsschritte</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Applikationsdaten">
|
||||
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.AppldataRow">
|
||||
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_edoka">
|
||||
<summary>Verbindung zur Daten EDOKA</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale_Mail">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.args">
|
||||
<summary>Befehlszeilenargumente</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_edoka">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale_Mail">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.DivFnkt">
|
||||
<summary>Instanz des Objektes DivFnkt</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.ApplData">
|
||||
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
|
||||
fest</summary>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintOut(System.String)">
|
||||
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintLog(System.String,System.Diagnostics.EventLogEntryType)">
|
||||
<summary>Eintrag ins EventLog von EDKB08 schreiben</summary>
|
||||
<param name="message"></param>
|
||||
<param name="eventmessage"></param>
|
||||
</member><member name="F:EDKB08WS.Globals.Journal">
|
||||
<summary>Globaler Verweis zur Klasse CLSJournal</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Herkunftsapplikation">
|
||||
<summary>Daten für der Herkunftsapplikation</summary>
|
||||
<remarks>Diese interne Tabelle enthält die Daten für die Herkunftsapplikation
|
||||
einer Indexdatei</remarks>
|
||||
</member><member name="F:EDKB08WS.Globals.Fehler">
|
||||
<summary>Interne Variable zur Festhaltung von Fehlern</summary>
|
||||
</member><member name="T:EDKB08WS.Globals">
|
||||
<summary>Globale Variablen und FUnktionen</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.m_indexdata">
|
||||
<summary>Interne Variable für das Property IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsCheckandImport.IndexData">
|
||||
<summary>Datentabelle mit den Indexwerten</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.TmpTable">
|
||||
<summary>Interne temporöre Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.CheckandImport">
|
||||
<summary>Prüfung der Indexwerte
|
||||
Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA
|
||||
importiert.
|
||||
</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">
|
||||
<summary>Prüft die Indexdaten und löst ggf. den Import des Dokumentes
|
||||
aus.</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="DokImport">True=Dokument importieren False=Dokument nicht
|
||||
importieren (nur plausibilisieren)</param>
|
||||
<param name="datarow">Aktuelle Datarow der Tabelle Indexdata</param>
|
||||
<returns>True=Verarbeitung i.O. False=Verarbeitung fehlerhaft</returns>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Funktion(System.String)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<param name="Fnkt">Gültige Werte sind: ADD, UPD, REPL, DEL</param>
|
||||
<returns>True = Import erfolgreich$EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Partnerzuordnung(System.Int32)">
|
||||
<summary>Prüfung der Partnerzuordnung</summary>
|
||||
<remarks>Mit der Funktion wird abhängig vom angelieferten Wert die
|
||||
Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft.
|
||||
<para></para>
|
||||
<para>Input Partnernummer</para>
|
||||
<para>Direkter Zugriff auf die Tabelle Partner mittels Partnernr</para>
|
||||
<para></para>
|
||||
<para>Input VV-Nr: </para>
|
||||
<para>Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die</para>
|
||||
<para>Partnernummer gefunden wird, diese in der Datentabelle nachführen</para>
|
||||
<para></para>
|
||||
<para>Input: Barcode-ID:</para>
|
||||
<para>Zugriff auf die Partnernummer über die Tabelle Dokument mit der
|
||||
geliefertenen EDOKA-BarcodeID</para>
|
||||
<para></para>
|
||||
<para>Input: KST:</para>
|
||||
<para>Zugriff über die Kostenstelle auf den EDOKA-Partner</para></remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Partnerzuordnung i.O.
|
||||
<para>False=Partnerzuordnung nicht i.O.</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_EDOKA_Partner_Erfassen(System.Int32)">
|
||||
<summary>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</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile des Import-Programmes</param>
|
||||
<returns>True = EDOKA-Partner eröffnet
|
||||
<para>False = Daten zur Eröffnung des EDOKA-Partners sind
|
||||
unvollständig</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Dokumentdaten(System.Int32)">
|
||||
<summary>Prüft die dokumentspezifischen Werte und das Vorhandensein des
|
||||
physischen Dokumentes</summary>
|
||||
<remarks>Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten
|
||||
Dokumente:
|
||||
<list type="bullet">
|
||||
<item>
|
||||
<description>Gültiges Dokumentformant (DOC, XLS, TIF, PDF,
|
||||
JPG</description></item>
|
||||
<item>
|
||||
<description>Vorhandensein des Dokumentes im
|
||||
Importverzeichnis</description></item>
|
||||
<item>
|
||||
<description>Dokumenttyp</description></item></list></remarks>
|
||||
<param name="datarow">Zeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Dokumentwerte i.O.
|
||||
<para>False=Dokumentwerte nicht i.O.</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Note(System.String,System.String)">
|
||||
<summary>Notiz zu einem Dokument hinzufügen</summary>
|
||||
<remarks>Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz
|
||||
hinzu</remarks>
|
||||
<param name="dokumentid">Aktuelle Dokumentid</param>
|
||||
<param name="meldung">Meldung / Notiz</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">
|
||||
<summary>Auslesen der Daten "Herkunftsapplikation" und in der internen Variable
|
||||
Herkunftsapplikationen zwischenspeichern</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Herkunftsapplikation(System.Int32)">
|
||||
<summary>Auslesen der Herkunftsapplikation anhand des Dokumenttyps</summary>
|
||||
<param name="i">Aktueller Datensatz aus den Indexdaten</param>
|
||||
<returns>"" = Herkunftsapplikation nicht vorhanden$EOL$
|
||||
<para>"[Bezeichnung] = Herkunftsapplikation vorhanden</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">Herkuftsapplikation_auslesen</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Import_Dokument(System.Int32)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<remarks>Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>$EOL$ $EOL$ Tabelle</term>
|
||||
<description>$EOL$ Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokument</term>
|
||||
<description>$EOL$ Dokumentbeschreibung</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentstatus</term>
|
||||
<description>$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis
|
||||
zum ersten archivierungs-relevanten Status gesetzt. $EOL$
|
||||
<para></para>
|
||||
<para>$EOL$ </para>
|
||||
<para>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.</para></description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentcoldindexwert</term>
|
||||
<description>$EOL$ Tabelle mit den COLD-relevanten
|
||||
Indexinformationen</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentwerte</term>
|
||||
<description>$EOL$ Tabelle mit den individuellen
|
||||
Dokumentwerten</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Notizen</term>
|
||||
<description>$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im
|
||||
EDOKA eingefügt wurde</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
<returns>True = Import erfolgreich $EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer(System.Int32)">
|
||||
<summary>FA-Nummer 1-3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer1</term>
|
||||
<description>Bezeichnung der Applikatoin</description></item>
|
||||
<item>
|
||||
<term>FANummer2</term>
|
||||
<description>Dokumentname</description></item>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer_Barcodeimport(System.Int32)">
|
||||
<summary>FA-Nummer 3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_in_DB_Sichern(System.String,System.Int32)">
|
||||
<summary>Löst das Importieren des Original-Dokumentes in die Datenbank
|
||||
aus</summary>
|
||||
<remarks>Die Methode löst das Importieren des Origianldokumentes in die
|
||||
EDOKA-Datenbank aus</remarks>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Improt erfolgreich, False=Import fehlgeschlagen</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">clsDivFnkt.Save_To_DB(System.String,
|
||||
System.String)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Dokumenttypnr(System.Int32)">
|
||||
<summary>EDOKA-Dokumenttypnr auslesen</summary>
|
||||
<remarks>Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp
|
||||
aus.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile der Indexdaten</param>
|
||||
<returns>Dokumenttypnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Cold_Werte(System.Int32)">
|
||||
<summary>Auslesen von Coldschema und -Folder</summary>
|
||||
<param name="dokumenttypnr">Dokumenttypnr des aktuellen Dokumentes</param>
|
||||
<returns>Datatable mit den COLD-Werten</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.COLD_Index_Sichern(System.Int32,System.String)">
|
||||
<summary>Coldindex zum erstellen Dokument erstellen und speichern</summary>
|
||||
<param name="indextyp">Standard 1</param>
|
||||
<param name="dokumentid">Dokumentid des aktuellen Dokumentes</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_DokumentColdIndexwert(System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Dokument Cold Indexwert anpassen</summary>
|
||||
<remarks>Führt einen Wert in der Tabelle Dokumentcoldindexwert nach</remarks>
|
||||
<param name="dokumentid">DokumentID des aktuellend Dokumentes</param>
|
||||
<param name="Indextyp">1 für Ausgangsarchivierung
|
||||
<para>2 für Ausgangsarchivierung</para></param>
|
||||
<param name="indexfeld">Nummer des Indexfeldes</param>
|
||||
<param name="wert">Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Dokumentwerte(System.Int32)">
|
||||
<summary>Edoka-spezifische Dokumentwerte nachführen</summary>
|
||||
<remarks>Führt folgende Daten in den Dokumentwerten hinzu
|
||||
<para>- Herkunftsapplikation</para>
|
||||
<para>- Archivreferenz</para>
|
||||
<para>- Listen-Empfänger MA/KST/NL</para>
|
||||
<para>- Individuelle Dokumentwerte der Fremdanwendung</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentwert_Sichern(System.String,System.Int32)">
|
||||
<summary>Edoka-spezifischer Dokumentwert auf der Datenbank sichern</summary>
|
||||
<param name="wert">Inhalt</param>
|
||||
<param name="feldnr">Feldnummer</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentstatus_erstellen_und_Status_Setzen(System.Int32,System.Boolean,System.Int32)">
|
||||
<summary>Erstellen der Dokumentstatus und eintragen der entsprechenden
|
||||
Statushistory-Einträge</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Status, welcher im Dokument unter "Statusnr" nachgeführt
|
||||
wird</returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.String)">edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">edkb08.clsCheckandImport.insert_history_status(System.Int32,
|
||||
System.String, System.Int32, System.DateTime)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.Int32,System.Int32)">
|
||||
<summary>Dokumentstatus für das zu erstellende Dokument generieren</summary>
|
||||
<remarks>Erstellt die Dokumentstatus gem. Statussequenz des
|
||||
Dokumenttyps</remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">
|
||||
<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
|
||||
<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
|
||||
<param name="datarow">Aktuelle Ziele der Indexdaten</param>
|
||||
<returns>Datatable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Mitarbeiter(System.Int32)">
|
||||
<summary>Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten
|
||||
TG-Nummer</summary>
|
||||
<param name="datarow">Aktuelle Import-Datenzeile</param>
|
||||
<returns>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</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">
|
||||
<summary>Statushistory nachführen</summary>
|
||||
<remarks>Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments
|
||||
die Statushistory nach</remarks>
|
||||
<param name="statusnr">Nummer des Status</param>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="Verantwortlicher">Verantwortlicher Mitarbeiter</param>
|
||||
<param name="datumzeit">Timestamp</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Delete_Dokument(System.Int32)">
|
||||
<summary>Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder
|
||||
Dokumentname) auslösen</summary>
|
||||
<remarks>Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder
|
||||
Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst.
|
||||
<para>Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein
|
||||
Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet
|
||||
wurde.</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung durchgeführt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_Loeschen(System.String,System.Int32)">
|
||||
<summary>Dokument löschen bzw. aufheben</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">DokumentID des zu löschenden Dokumentes</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung erfolgt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_status(System.String)">
|
||||
<summary>Auselesen des letzten Status in der Seqeunz des zu löschenden
|
||||
Dokumentes</summary>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden Dokumentes</param>
|
||||
<returns>Status_Bezeichnungnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.set_aufgehoben(System.String)">
|
||||
<summary>Dokument aufheben</summary>
|
||||
<param name="dokumentid">Dokumentid des aufzuhebenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_coldindex_and_statusnr(System.String,System.Boolean,System.Boolean)">
|
||||
<summary>SColdindex und Aufhebungsstatus des eines zu löschenden bzw.
|
||||
aufzuhebenden Dokumentes auslesen</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden / aufzuhebenden
|
||||
Dokumentes</param>
|
||||
<param name="aufheben">True=Dokument aufheben
|
||||
<para>False=Dokument nicht aufheben</para></param>
|
||||
<param name="reaktivieren">True=Aufgehobenes Dokument reaktivieren
|
||||
<para>False=Keine Dokumentreaktivierung</para></param>
|
||||
<returns>Datentable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_coldupdate_status(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>AGI-COLD-Dokument-Status ändern</summary>
|
||||
<remarks>Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter
|
||||
"neuerstatus"</remarks>
|
||||
<param name="dt">Datentabelle mit Cold-Index-Werten</param>
|
||||
<param name="dokumentid">DokumentID</param>
|
||||
<param name="neuerstatus">Neuer Status der entsprechenden COLD-Dokumente</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_ColdUpdate(System.String,System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Tabelle COLD-Update mit Updates ergänzen</summary>
|
||||
<param name="dokumentid">DokumentID des EDOKA-Dokumentes</param>
|
||||
<param name="colddokumentid">DokumentID des COLD-Bildes</param>
|
||||
<param name="indextyp">1=Ausgangsarchiviertes Dokumente
|
||||
<para>2=Eingangarchiviertes Dokumente</para></param>
|
||||
<param name="feldnr">Feldnr des Feldes im Cold-Index</param>
|
||||
<param name="wert">Neuer Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_Dokumentwerte(System.Int32)">
|
||||
<summary>Dokumentwerte eines Dokumentes updaten</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.ist_archiviert(System.String)">
|
||||
<summary>Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde</summary>
|
||||
<param name="dokumentid">Dokumentid des zu prüfenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_edoka_dokument(System.Int32,System.String,System.Int32)">
|
||||
<summary>Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank</summary>
|
||||
<param name="fnkt">1=Prüfung anhand einer EDOKA_Dokumentid
|
||||
<para>2=Prüfung anhand des Dateinamens</para></param>
|
||||
<param name="wert">EDOKA_DokumentID oder Dateiname</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Dokument gefunden und es kann gelöscht werden
|
||||
<para>False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die
|
||||
Suche mittels Dateiname mehrere Treffer ergab</para></returns>
|
||||
</member><member name="T:EDKB08WS.clsCheckandImport">
|
||||
<summary>Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in
|
||||
EDOKA</summary>
|
||||
<remarks>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</remarks>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Generate_Key">
|
||||
<summary>Generieren der EDOKA-DokumentID</summary>
|
||||
<remarks>Diese Methode generiert eine neue eindeutige, 22-stellige
|
||||
EDOKA-Dokumentid. $EOL$
|
||||
<para>Die Letzte ziffer ist eine Prüfziffer</para></remarks>
|
||||
<returns>DokumentID für EDOKA</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">Prüfziffer-Berechnung</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">
|
||||
<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
|
||||
<param name="zahl">Dokumentid ohne Präfix</param>
|
||||
<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Generate_Key">EDKB08.clsDivFnkt</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">
|
||||
<summary>Dokumen in der EDOKA-Datenbank speichern</summary>
|
||||
<remarks>Die Funktion speichert ein Dokument des Filesystems in die
|
||||
EDOKA-Datenbank Tabelle DOKS</remarks>
|
||||
<param name="sDokumentID">DEDOKA-Dokumentid</param>
|
||||
<param name="sDokumentName">Origianl-Dokumentname (Fullpath)</param>
|
||||
<returns>True=Speichern erfolgreich, False=Speichern fehlgeschalgen</returns>
|
||||
</member><member name="T:EDKB08WS.clsDivFnkt">
|
||||
<summary>Diverse allgemeine Funktionen</summary>
|
||||
<remarks>Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus
|
||||
diversen anderen Klassen genutzt werden.$EOL$
|
||||
<para>Die Instanzierung der Klasse erfolgt über das Module <see cref="T:EDKB08WS.Globals">Globals.vb</see></para></remarks>
|
||||
<seealso cref="F:EDKB08WS.Globals.DivFnkt">Globals.DivFnkt</seealso>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.ofile">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.oread">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_applicationid">
|
||||
<summary>Interne Variable für das Property Application ID</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.ApplicationID">
|
||||
<summary>ApplikationsID für die Journalisierung</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_Inputverzeichnis">
|
||||
<summary>Interne Variable für das Property Inputverzeichnis</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Inputverzeichnis">
|
||||
<summary>Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert
|
||||
sind</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseOK">
|
||||
<summary>Interne Variable für das Property MailadresseOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseOK">
|
||||
<summary>EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung
|
||||
ordnungsgemäss durchgelaufen ist</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseNOK">
|
||||
<summary>Interne Variable für das Property MailadresseNOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseNOK">
|
||||
<summary>Mailadresse, an die im Fehlerfall ein Mail gesendet wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_meldung">
|
||||
<summary>Interne Variable für das Property Meldung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Meldung">
|
||||
<summary>Allfälliger Meldungstext, welcher beim Laden der Parameter generiert
|
||||
wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_temppfad">
|
||||
<summary>Interne Variable für das Property Temppfad</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.TempPfad">
|
||||
<summary>Pfad für temporäre Dateien</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_mailserver">
|
||||
<summary>Interne Variable für das Property Mailserver</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Mailserver">
|
||||
<summary>SMTP-Mailserver für den Journalversand</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_journaltimer_time">
|
||||
<summary>Interne Variable für das Property Journaltimer_time</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.JournalTimer_Time">
|
||||
<summary>Journaltimer-Zeit in Milisekunden</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_deleteoriginalfiles">
|
||||
<summary>Interne Variable für das Property DeleteOriginalfiles</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.DeleteOriginalfiles">
|
||||
<summary>DeleteOriginalfiles</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigPath">
|
||||
<summary>Interne Variable für das Property GSF Config File Path</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigPath">
|
||||
<summary>gsf ConfigPath</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_TimerInterval">
|
||||
<summary>Interne Variable für das Property GSF Timer Intervall</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_TimerInterval">
|
||||
<summary>gsf Timer Interval</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigDateiendung">
|
||||
<summary>Interne Variable für das Property GSF DateiEndung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigDateiendung">
|
||||
<summary>gsf DateiEndung</summary>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.Loadparameters">
|
||||
<summary>Laden der Parameterdaten aus parameters.cfg</summary>
|
||||
<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
|
||||
Datei "Parameters.cfg"</remarks>
|
||||
<returns>True im OK-Fall
|
||||
False im Fehlerfall</returns>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.ParamValue(System.String)">
|
||||
<summary>Parameterbezeichnung und Parameterwert trennen</summary>
|
||||
<param name="sinput">Inputstring mit Parameterbezeichnung und
|
||||
Parameterwert</param>
|
||||
<returns>Parameterwert als String</returns>
|
||||
</member><member name="T:EDKB08WS.ClsParameters">
|
||||
<summary>Klasse zum auselesen der Steuerparameter aus der Datei
|
||||
\bin\parameters.cfg</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_indexfilename">
|
||||
<summary>Interne Variable für IndexFilenName</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.IndexFileName">
|
||||
<summary>Enthält der Name der Inputdatei mit den Indexdaten (XML oder
|
||||
TXT)</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_Indexdata">
|
||||
<summary>Interne Variable für IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.Indexdata">
|
||||
<summary>Datentabelle mit den geladenen Indexwerten</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.Splitline">
|
||||
<summary>Temporäre Collection mit den getrennten Indexdaten aus der
|
||||
txt-Input-Datei</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.getindexdata">
|
||||
<summary>Angelieferte Indexdaten auslesen und in die Datentabele Indexdata
|
||||
speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder
|
||||
Komma-getrennte Textdatei auslesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.xmlinput">
|
||||
<summary>XML-Datei als Datatable einlesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Datentabelle_Erstellen">
|
||||
<summary>Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
|
||||
Datensätze eingelesen und zugewiesen werden können</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Indexwerte_Einlesen(System.String)">
|
||||
<summary>Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der
|
||||
Tabelle "Indexdata" speichern</summary>
|
||||
<param name="s">Zeile der Inputdatei (Komma-getrennte Werte)</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Insert_Into_DB(Microsoft.VisualBasic.Collection)">
|
||||
<summary>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.</summary>
|
||||
<param name="data"></param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.SplitDelimitedLine(System.String,System.String,System.String)">
|
||||
<summary>Splitfunktion</summary>
|
||||
<param name="CurrentLine">Input-Zeile</param>
|
||||
<param name="Delimiter">Trennzeichen der einzelnen werte (z.B. Komma,
|
||||
Strichpunkt usw.)</param>
|
||||
<param name="Qualifier">Qualiflyer, welcher die Werte umschliesst (z.B.
|
||||
")</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="T:EDKB08WS.clsIndexData">
|
||||
<summary>Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder
|
||||
Textdatei</summary>
|
||||
<remarks>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.</remarks>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.Export.Create_Report(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>Auswertung erstellen und ggf. mittels DTO versenden</summary>
|
||||
<param name="dt">Datentabelle mit den Auswertungsdaten der Applikation</param>
|
||||
<param name="format">Format der Auswertung (txt, csv, xls, doc, pdf,
|
||||
xml)</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_CSV(System.Data.DataTable)">
|
||||
<summary>Journaldatei als CSV-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_TXT(System.Data.DataTable)">
|
||||
<summary>Journaldatei als TXT-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.CR_Report(System.Data.DataTable,System.String)">
|
||||
<summary>Crystal-Report-Druck</summary>
|
||||
<param name="dt">Datentabelle, welche an Crystal zum Druck übergeben
|
||||
wird</param>
|
||||
<param name="format">Zu Exportierendes Format (XLS, DOC, PDF)</param>
|
||||
</member><member name="T:EDKB08WS.Export">
|
||||
<summary>Funktionen für den Export der Journaldaten</summary>
|
||||
</member><member name="F:EDKB08WS.Main.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Main.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Main.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="M:EDKB08WS.Main.Main">
|
||||
<summary>Steuerroutine für EDKB08</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Verarbeiten">
|
||||
<summary>Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so
|
||||
lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden
|
||||
sind.</summary>
|
||||
<remarks>Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und
|
||||
verarbeitet.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Main.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Main.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="T:EDKB08WS.Main">
|
||||
<summary>EDKB08 - Hauptprogramm</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08_GSF.dll
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/EDKB08_GSF.dll
Normal file
Binary file not shown.
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/Journal1.rpd
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/Journal1.rpd
Normal file
Binary file not shown.
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/Journal1.rpt
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/Journal1.rpt
Normal file
Binary file not shown.
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/System.Web.dll
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/bin/System.Web.dll
Normal file
Binary file not shown.
@@ -0,0 +1,21 @@
|
||||
Assembly c:\data\edkb08ws\bin\edkb08ws.exe wird installiert.
|
||||
Betroffene Parameter:
|
||||
logtoconsole =
|
||||
assemblypath = c:\data\edkb08ws\bin\edkb08ws.exe
|
||||
logfile = c:\data\edkb08ws\bin\edkb08ws.InstallLog
|
||||
Dienst EDKB08WS wird installiert...
|
||||
Dienst EDKB08WS wurde installiert.
|
||||
Die EventLog-Quelle EDKB08WS im Protokoll Application wird erstellt...
|
||||
Assembly c:\data\edkb08ws\bin\edkb08ws.exe wird ausgeführt.
|
||||
Betroffene Parameter:
|
||||
logtoconsole =
|
||||
assemblypath = c:\data\edkb08ws\bin\edkb08ws.exe
|
||||
logfile = c:\data\edkb08ws\bin\edkb08ws.InstallLog
|
||||
Assembly c:\data\edkb08ws\bin\edkb08ws.exe wird deinstalliert.
|
||||
Betroffene Parameter:
|
||||
logtoconsole =
|
||||
assemblypath = c:\data\edkb08ws\bin\edkb08ws.exe
|
||||
logfile = c:\data\edkb08ws\bin\edkb08ws.InstallLog
|
||||
Die EventLog-Quelle EDKB08WS wird entfernt.
|
||||
Der Dienst EDKB08WS wird vom System entfernt...
|
||||
Dienst EDKB08WS wurde vom System entfernt.
|
||||
@@ -0,0 +1 @@
|
||||
Data Source=Server02;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=tgedoka;Password=$tgedoka11
|
||||
@@ -0,0 +1 @@
|
||||
data source=server02;initial catalog=edoka_journale;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11
|
||||
@@ -0,0 +1 @@
|
||||
data source=server02;initial catalog=edoka_journale;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11
|
||||
@@ -0,0 +1,12 @@
|
||||
Applikation-ID =10
|
||||
Filepfad =C:\D\edoka\edkb08
|
||||
Temppfad =C:\D\edoka\edkb08
|
||||
Journaltimer in Minuten =30
|
||||
Mail-Absender =administrator@test24.ch
|
||||
SMTP-Server =
|
||||
DeleteOriginalfiles =0
|
||||
Mailadresse_OK =administrator@test24.ch
|
||||
Mailadresse_NOK =administrator@test24.ch
|
||||
GSF_ConfigFiles =C:\D\edoka\edkb08
|
||||
GSF_Timer in Minuten =60
|
||||
GSF_Conf_Dateiendung =xml
|
||||
@@ -0,0 +1,12 @@
|
||||
Applikation-ID =8
|
||||
Filepfad =c:\edokatemp\import\
|
||||
Temppfad =c:\edokatemp\import\
|
||||
Journaltimer in Minuten =1
|
||||
Mail-Absender =administrator@test24.ch
|
||||
SMTP-Server =
|
||||
DeleteOriginalfiles =1
|
||||
Mailadresse_OK =tgtester13@test.agi.ch
|
||||
Mailadresse_NOK =tgtester13@test.agi.ch
|
||||
GSF_ConfigFiles =c:\edoka\edkb08ws\bin\gsf\
|
||||
GSF_Timer in Minuten =1
|
||||
GSF_Conf_Dateiendung =xml
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Import_Daten'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Data_Nr</LI>
|
||||
' /// <LI>iImport_Jobnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDatenformat. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDaten. May be SqlBinary.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Data_Nr</LI>
|
||||
' /// <LI>iImport_Jobnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDatenformat. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDaten. May be SqlBinary.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Data_Nr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Data_Nr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iImport_Data_Nr</LI>
|
||||
' /// <LI>iImport_Jobnr</LI>
|
||||
' /// <LI>sDatenformat</LI>
|
||||
' /// <LI>blobDaten</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Import_Eintrag'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_JobNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daTS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>sRecordNo. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnernr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateityp. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// <LI>sStatus. May be SqlString.Null</LI>
|
||||
' /// <LI>sStatustext. May be SqlString.Null</LI>
|
||||
' /// <LI>sEDOKA_Dokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sEDOKA_Dokumenttyp. May be SqlString.Null</LI>
|
||||
' /// <LI>sApplikationsnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIndexdaten. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Eintragnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Eintragnr</LI>
|
||||
' /// <LI>iImport_JobNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daTS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>sRecordNo. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnernr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateityp. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// <LI>sStatus. May be SqlString.Null</LI>
|
||||
' /// <LI>sStatustext. May be SqlString.Null</LI>
|
||||
' /// <LI>sEDOKA_Dokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sEDOKA_Dokumenttyp. May be SqlString.Null</LI>
|
||||
' /// <LI>sApplikationsnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIndexdaten. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Eintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_Eintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iImport_Eintragnr</LI>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// <LI>daTS</LI>
|
||||
' /// <LI>sRecordNo</LI>
|
||||
' /// <LI>sPartnernr</LI>
|
||||
' /// <LI>sDateityp</LI>
|
||||
' /// <LI>sDateiname</LI>
|
||||
' /// <LI>sStatus</LI>
|
||||
' /// <LI>sStatustext</LI>
|
||||
' /// <LI>sEDOKA_Dokumentid</LI>
|
||||
' /// <LI>sEDOKA_Dokumenttyp</LI>
|
||||
' /// <LI>sApplikationsnr</LI>
|
||||
' /// <LI>sIndexdaten</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Import_Job'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>daStart_TS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde_TS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iFeherhaft. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iApplikationNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iJournal_Ausgeliefert. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daJournal_Datum. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// <LI>daStart_TS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde_TS. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iFeherhaft. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iApplikationNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iJournal_Ausgeliefert. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daJournal_Datum. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iImport_JobNr</LI>
|
||||
' /// <LI>daStart_TS</LI>
|
||||
' /// <LI>daEnde_TS</LI>
|
||||
' /// <LI>iFeherhaft</LI>
|
||||
' /// <LI>iApplikationNr</LI>
|
||||
' /// <LI>iJournal_Ausgeliefert</LI>
|
||||
' /// <LI>daJournal_Datum</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
Binary file not shown.
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = new SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = new ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End if
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set (ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = new SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set (ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'dokument_status'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumenitid. May be SqlString.Null</LI>
|
||||
' /// <LI>iStatus_bezeichnungnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>sReihenfolge. May be SqlString.Null</LI>
|
||||
' /// <LI>bFolgestatus_durch_anderen_verantwortlichen. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bDokument_bearbeitung_moeglich. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iErledigung_ab. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bDokument_ausgangsarchivierung. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bDokument_bearbeitung_abgeschlossen. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iDokument_statusnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iDokument_statusnr</LI>
|
||||
' /// <LI>sDokumenitid. May be SqlString.Null</LI>
|
||||
' /// <LI>iStatus_bezeichnungnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>sReihenfolge. May be SqlString.Null</LI>
|
||||
' /// <LI>bFolgestatus_durch_anderen_verantwortlichen. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bDokument_bearbeitung_moeglich. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iErledigung_ab. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bDokument_ausgangsarchivierung. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bDokument_bearbeitung_abgeschlossen. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iDokument_statusnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iDokument_statusnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iDokument_statusnr</LI>
|
||||
' /// <LI>sDokumenitid</LI>
|
||||
' /// <LI>iStatus_bezeichnungnr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>sReihenfolge</LI>
|
||||
' /// <LI>bFolgestatus_durch_anderen_verantwortlichen</LI>
|
||||
' /// <LI>bDokument_bearbeitung_moeglich</LI>
|
||||
' /// <LI>iErledigung_ab</LI>
|
||||
' /// <LI>bDokument_ausgangsarchivierung</LI>
|
||||
' /// <LI>bDokument_bearbeitung_abgeschlossen</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'dokumentcoldindexwert'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iIndextyp. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBKPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNAVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEBEZ00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMSTA01. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEDAT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBESTA00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEORT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRSTA00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEGSF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEUSR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBERES03. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iColdindexwertnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iColdindexwertnr</LI>
|
||||
' /// <LI>iIndextyp. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBKPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNAVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEBEZ00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMSTA01. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEDAT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBESTA00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEORT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRSTA00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEGSF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEUSR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBERES03. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iColdindexwertnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iColdindexwertnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iColdindexwertnr</LI>
|
||||
' /// <LI>iIndextyp</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sNRPAR00</LI>
|
||||
' /// <LI>sBKPAR00</LI>
|
||||
' /// <LI>sNAVVG00</LI>
|
||||
' /// <LI>sBEBEZ00</LI>
|
||||
' /// <LI>sDMSTA01</LI>
|
||||
' /// <LI>sBEDAT00</LI>
|
||||
' /// <LI>sBESTA00</LI>
|
||||
' /// <LI>sBEORT00</LI>
|
||||
' /// <LI>sNRDOC00</LI>
|
||||
' /// <LI>sNRSTA00</LI>
|
||||
' /// <LI>sBEGSF00</LI>
|
||||
' /// <LI>sBEUSR00</LI>
|
||||
' /// <LI>sBERES03</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'FA_APPL'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>iEDOKA_Mitarbeiter. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDTO_Parameter. May be SqlString.Null</LI>
|
||||
' /// <LI>sReserve_1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReserve_2. May be SqlString.Null</LI>
|
||||
' /// <LI>sInputverzeichnis. May be SqlString.Null</LI>
|
||||
' /// <LI>bLog_Per_Mail. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bLog_In_DB. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bLog_Mit_DTO. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sMail_Empfaneger. May be SqlString.Null</LI>
|
||||
' /// <LI>iMail_Periodizitaet. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iVerarbeitungsart. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sOutputFormat. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>iEDOKA_Mitarbeiter. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDTO_Parameter. May be SqlString.Null</LI>
|
||||
' /// <LI>sReserve_1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReserve_2. May be SqlString.Null</LI>
|
||||
' /// <LI>sInputverzeichnis. May be SqlString.Null</LI>
|
||||
' /// <LI>bLog_Per_Mail. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bLog_In_DB. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bLog_Mit_DTO. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sMail_Empfaneger. May be SqlString.Null</LI>
|
||||
' /// <LI>iMail_Periodizitaet. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iVerarbeitungsart. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sOutputFormat. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>iEDOKA_Mitarbeiter</LI>
|
||||
' /// <LI>sDTO_Parameter</LI>
|
||||
' /// <LI>sReserve_1</LI>
|
||||
' /// <LI>sReserve_2</LI>
|
||||
' /// <LI>sInputverzeichnis</LI>
|
||||
' /// <LI>bLog_Per_Mail</LI>
|
||||
' /// <LI>bLog_In_DB</LI>
|
||||
' /// <LI>bLog_Mit_DTO</LI>
|
||||
' /// <LI>sMail_Empfaneger</LI>
|
||||
' /// <LI>iMail_Periodizitaet</LI>
|
||||
' /// <LI>iVerarbeitungsart</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// <LI>sOutputFormat</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'FA_BCImport'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// <LI>iStatus. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sDateiformat. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iFabcimportnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iFabcimportnr</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// <LI>iStatus. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sDateiformat. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iFabcimportnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iFabcimportnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iFabcimportnr</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sDateiname</LI>
|
||||
' /// <LI>iStatus</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>sDateiformat</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'FA_Dokumenttyp'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sFA_Dokumenttyp. May be SqlString.Null</LI>
|
||||
' /// <LI>iEDOKA_Dokumenttyp. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iAktiv. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>iApplNr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sFA_Dokumenttyp. May be SqlString.Null</LI>
|
||||
' /// <LI>iEDOKA_Dokumenttyp. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iAktiv. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>iApplNr</LI>
|
||||
' /// <LI>sFA_Dokumenttyp</LI>
|
||||
' /// <LI>iEDOKA_Dokumenttyp</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>iAktiv</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -0,0 +1,490 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'key_tabelle'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 7. Dezember 2002, 22:50:12
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'key_tabelle'.
|
||||
' /// </summary>
|
||||
Public Class clsKey_tabelle
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||
Private m_sBeschreibung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iKeynr</LI>
|
||||
' /// <LI>sBeschreibung</LI>
|
||||
' /// <LI>iKey_wert</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iKeynr</LI>
|
||||
' /// <LI>sBeschreibung</LI>
|
||||
' /// <LI>iKey_wert</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iKeynr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iKeynr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iKeynr</LI>
|
||||
' /// <LI>sBeschreibung</LI>
|
||||
' /// <LI>iKey_wert</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'mitarbeiter'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iMitarbeiternr</LI>
|
||||
' /// <LI>sVorname. May be SqlString.Null</LI>
|
||||
' /// <LI>sName. May be SqlString.Null</LI>
|
||||
' /// <LI>sKurzzeichen. May be SqlString.Null</LI>
|
||||
' /// <LI>sAnrede. May be SqlString.Null</LI>
|
||||
' /// <LI>sTgnummer. May be SqlString.Null</LI>
|
||||
' /// <LI>sEmail. May be SqlString.Null</LI>
|
||||
' /// <LI>sFax. May be SqlString.Null</LI>
|
||||
' /// <LI>sTelefon. May be SqlString.Null</LI>
|
||||
' /// <LI>sUnterschrift_text. May be SqlString.Null</LI>
|
||||
' /// <LI>iFunktionnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iSprache. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iFuermandant</LI>
|
||||
' /// <LI>bShowtip</LI>
|
||||
' /// <LI>iPartnernr</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bMailempfang. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bEdokaMesasge. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFunktion. May be SqlString.Null</LI>
|
||||
' /// <LI>bMailDirektVersenden. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sRang. May be SqlString.Null</LI>
|
||||
' /// <LI>bMailDokumentrueckgang. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iKlassifizierung. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bEdoka_mail. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bJournalisierung. May be SqlBoolean.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iMitarbeiternr</LI>
|
||||
' /// <LI>sVorname. May be SqlString.Null</LI>
|
||||
' /// <LI>sName. May be SqlString.Null</LI>
|
||||
' /// <LI>sKurzzeichen. May be SqlString.Null</LI>
|
||||
' /// <LI>sAnrede. May be SqlString.Null</LI>
|
||||
' /// <LI>sTgnummer. May be SqlString.Null</LI>
|
||||
' /// <LI>sEmail. May be SqlString.Null</LI>
|
||||
' /// <LI>sFax. May be SqlString.Null</LI>
|
||||
' /// <LI>sTelefon. May be SqlString.Null</LI>
|
||||
' /// <LI>sUnterschrift_text. May be SqlString.Null</LI>
|
||||
' /// <LI>iFunktionnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iSprache. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iFuermandant</LI>
|
||||
' /// <LI>bShowtip</LI>
|
||||
' /// <LI>iPartnernr</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bMailempfang. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bEdokaMesasge. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFunktion. May be SqlString.Null</LI>
|
||||
' /// <LI>bMailDirektVersenden. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sRang. May be SqlString.Null</LI>
|
||||
' /// <LI>bMailDokumentrueckgang. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iKlassifizierung. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bEdoka_mail. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bJournalisierung. May be SqlBoolean.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iMitarbeiternr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iMitarbeiternr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iMitarbeiternr</LI>
|
||||
' /// <LI>sVorname</LI>
|
||||
' /// <LI>sName</LI>
|
||||
' /// <LI>sKurzzeichen</LI>
|
||||
' /// <LI>sAnrede</LI>
|
||||
' /// <LI>sTgnummer</LI>
|
||||
' /// <LI>sEmail</LI>
|
||||
' /// <LI>sFax</LI>
|
||||
' /// <LI>sTelefon</LI>
|
||||
' /// <LI>sUnterschrift_text</LI>
|
||||
' /// <LI>iFunktionnr</LI>
|
||||
' /// <LI>iSprache</LI>
|
||||
' /// <LI>iFuermandant</LI>
|
||||
' /// <LI>bShowtip</LI>
|
||||
' /// <LI>iPartnernr</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>bMailempfang</LI>
|
||||
' /// <LI>bEdokaMesasge</LI>
|
||||
' /// <LI>sFunktion</LI>
|
||||
' /// <LI>bMailDirektVersenden</LI>
|
||||
' /// <LI>sRang</LI>
|
||||
' /// <LI>bMailDokumentrueckgang</LI>
|
||||
' /// <LI>iKlassifizierung</LI>
|
||||
' /// <LI>bEdoka_mail</LI>
|
||||
' /// <LI>bJournalisierung</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
@@ -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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,510 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'statushistory'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 25. Mai 2003, 21:40:11
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'statushistory'.
|
||||
' /// </summary>
|
||||
Public Class clsStatushistory
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32
|
||||
Private m_sDokumentid As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iStatushistorynr</LI>
|
||||
' /// <LI>iStatus</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>iVerantwortlich. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iStatushistorynr</LI>
|
||||
' /// <LI>iStatus</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>iVerantwortlich. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iStatushistorynr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iStatushistorynr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iStatushistorynr</LI>
|
||||
' /// <LI>iStatus</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>iVerantwortlich</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("statushistory")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = 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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'VV'.
|
||||
' /// </summary>
|
||||
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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iNRVVG00</LI>
|
||||
' /// <LI>iNRPAR00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iNRSPR00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBEPRDLG. May be SqlString.Null</LI>
|
||||
' /// <LI>iNRPRD00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTXRBK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNAVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>iNRVBS00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sSAREC00. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iNRVVG00</LI>
|
||||
' /// <LI>iNRPAR00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iNRSPR00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBEPRDLG. May be SqlString.Null</LI>
|
||||
' /// <LI>iNRPRD00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTXRBK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNAVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>iNRVBS00. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sSAREC00. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iNRVVG00</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iNRVVG00</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iNRVVG00</LI>
|
||||
' /// <LI>iNRPAR00</LI>
|
||||
' /// <LI>iNRSPR00</LI>
|
||||
' /// <LI>sBEPRDLG</LI>
|
||||
' /// <LI>iNRPRD00</LI>
|
||||
' /// <LI>sTXRBK00</LI>
|
||||
' /// <LI>sNEVVG00</LI>
|
||||
' /// <LI>sNAVVG00</LI>
|
||||
' /// <LI>iNRVBS00</LI>
|
||||
' /// <LI>sSAREC00</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_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
|
||||
@@ -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 für 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
|
||||
|
||||
|
||||
Binary file not shown.
@@ -0,0 +1,95 @@
|
||||
'''<summary>Globale Variablen und FUnktionen</summary>
|
||||
Module Globals
|
||||
'''<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
|
||||
Public Applikationsdaten As DataTable
|
||||
'''<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
|
||||
Public AppldataRow As Integer
|
||||
|
||||
'''<summary>Verbindung zur Daten EDOKA</summary>
|
||||
Public sConnectionString_edoka As String
|
||||
'''<summary>Verbindung zur Daten EDOKA_Journale</summary>
|
||||
Public sConnectionString_journale As String
|
||||
'''<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
|
||||
Public sConnectionString_journale_Mail As String
|
||||
|
||||
|
||||
'''<summary>Befehlszeilenargumente</summary>
|
||||
Public args As String() = Environment.GetCommandLineArgs()
|
||||
|
||||
'''<summary>Connectionprovider für die Datenbank EDOKA</summary>
|
||||
'''<seealso
|
||||
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
Public conn_edoka As New edokadb.clsConnectionProvider()
|
||||
'''<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
'''<seealso
|
||||
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
Public conn_journale As New edokadb.clsConnectionProvider()
|
||||
|
||||
|
||||
'''<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
'''<seealso
|
||||
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
Public conn_journale_Mail As New edokadb.clsConnectionProvider()
|
||||
|
||||
'''<summary>Instanz des Objektes DivFnkt</summary>
|
||||
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
|
||||
|
||||
'''<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
|
||||
'''fest</summary>
|
||||
Public ApplData As New DataTable()
|
||||
|
||||
'''<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
|
||||
'''<param name="s"></param>
|
||||
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")
|
||||
|
||||
'''<summary>Eintrag ins EventLog von EDKB08 schreiben</summary>
|
||||
'''<param name="message"></param>
|
||||
'''<param name="eventmessage"></param>
|
||||
Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
|
||||
If Not EventLog.SourceExists("EDKB08") Then
|
||||
EventLog.CreateEventSource("EDKB08", "EDKB08 Log")
|
||||
End If
|
||||
EVLog.Source = "EDKB08 Log"
|
||||
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
||||
End Sub
|
||||
|
||||
|
||||
'''<summary>Globaler Verweis zur Klasse CLSJournal</summary>
|
||||
Public Journal As New clsJournal()
|
||||
|
||||
'''<summary>Daten für der Herkunftsapplikation</summary>
|
||||
'''<remarks>Diese interne Tabelle enthält die Daten für die Herkunftsapplikation
|
||||
'''einer Indexdatei</remarks>
|
||||
Public Herkunftsapplikation As DataTable
|
||||
|
||||
'''<summary>Interne Variable zur Festhaltung von Fehlern</summary>
|
||||
Public Fehler As Integer = 0
|
||||
|
||||
|
||||
Public Mitarbeiternr As Integer = 0
|
||||
|
||||
|
||||
|
||||
|
||||
End Module
|
||||
278
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/Main.vb
Normal file
278
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/Main.vb
Normal file
@@ -0,0 +1,278 @@
|
||||
Imports System.IO.File
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.ComponentModel
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.SystemException
|
||||
|
||||
'''<summary>EDKB08 - Hauptprogramm</summary>
|
||||
'''<remarks>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.</remarks>
|
||||
Module Main
|
||||
|
||||
|
||||
#Region "Deklarationen"
|
||||
'''<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
Dim Watch_Directory As String
|
||||
'''<summary>FileSystemWatcher</summary>
|
||||
'''<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
'''(Watch_Directory)</remarks>
|
||||
Dim FileWatch As New FileSystemWatcher()
|
||||
|
||||
'''<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
'''Indexdaten-Datei</summary>
|
||||
Dim indexdata As DataTable
|
||||
|
||||
Dim WithEvents JournalTimer As New Timers.Timer()
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Hauptverarbeitung"
|
||||
'''<summary>Steuerroutine für EDKB08</summary>
|
||||
'''<remarks>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.</remarks>
|
||||
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 betätigen, um EDKB08 zu stoppen")
|
||||
Console.ReadLine()
|
||||
PrintOut("EDKB08 gestoppt")
|
||||
End Sub
|
||||
|
||||
'''<summary>Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so
|
||||
'''lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden
|
||||
'''sind.</summary>
|
||||
'''<remarks>Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und
|
||||
'''verarbeitet.</remarks>
|
||||
Private Sub Verarbeiten()
|
||||
Dim looper As Boolean = True
|
||||
While looper = True
|
||||
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", "", "")
|
||||
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 nachgeführt
|
||||
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-Datensätze: " + 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
|
||||
|
||||
'''<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
'''versenden</summary>
|
||||
'''<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
'''sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
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
|
||||
|
||||
'''<summary>DTO-Versand</summary>
|
||||
'''<param name="filename"></param>
|
||||
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"
|
||||
'''<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
'''<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
'''Dateifilter-Angaben initialisiert.</remarks>
|
||||
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
|
||||
|
||||
'''<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
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
|
||||
|
||||
'''<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
'''<remarks>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</remarks>
|
||||
'''<param name="source"></param>
|
||||
'''<param name="e"></param>
|
||||
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 Tägliche 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("Tägliche Journalerstellung fehlgeschlagen. " + ex.Message, EventLogEntryType.Error)
|
||||
' Finally
|
||||
' scmCmdToExecute.Dispose()
|
||||
' sdaAdapter.Dispose()
|
||||
' dtToReturn.Dispose()
|
||||
' End Try
|
||||
'End Function
|
||||
|
||||
End Module
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
208
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/clsDivFnkt.vb
Normal file
208
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/clsDivFnkt.vb
Normal file
@@ -0,0 +1,208 @@
|
||||
Imports System.IO
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Reflection
|
||||
|
||||
'''<summary>Diverse allgemeine Funktionen</summary>
|
||||
'''<remarks>Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus
|
||||
'''diversen anderen Klassen genutzt werden.$EOL$
|
||||
'''<para>Die Instanzierung der Klasse erfolgt über das Module <see
|
||||
'''cref="Globals">Globals.vb</see></para></remarks>
|
||||
'''<seealso cref="Globals.DivFnkt">Globals.DivFnkt</seealso>
|
||||
Public Class clsDivFnkt
|
||||
'''<summary>Generieren der EDOKA-DokumentID</summary>
|
||||
'''<remarks>Diese Methode generiert eine neue eindeutige, 22-stellige
|
||||
'''EDOKA-Dokumentid. $EOL$
|
||||
'''<para>Die Letzte ziffer ist eine Prüfziffer</para></remarks>
|
||||
'''<returns>DokumentID für EDOKA</returns>
|
||||
'''<seealso
|
||||
'''cref="clsDivFnkt.Pruefziffer">Prüfziffer-Berechnung</seealso>
|
||||
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
|
||||
|
||||
'''<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
|
||||
'''<param name="zahl">Dokumentid ohne Präfix</param>
|
||||
'''<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
|
||||
'''<seealso cref="clsDivFnkt.Generate_Key">EDKB08.clsDivFnkt</seealso>
|
||||
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
|
||||
|
||||
'''<summary>Dokumen in der EDOKA-Datenbank speichern</summary>
|
||||
'''<remarks>Die Funktion speichert ein Dokument des Filesystems in die
|
||||
'''EDOKA-Datenbank Tabelle DOKS</remarks>
|
||||
'''<param name="sDokumentID">DEDOKA-Dokumentid</param>
|
||||
'''<param name="sDokumentName">Origianl-Dokumentname (Fullpath)</param>
|
||||
'''<returns>True=Speichern erfolgreich, False=Speichern fehlgeschalgen</returns>
|
||||
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", "EDKIMP")
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
@@ -0,0 +1,265 @@
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
'''<summary>Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder
|
||||
'''Textdatei</summary>
|
||||
'''<remarks>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.</remarks>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Public Class clsIndexData
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
'''<summary>Interne Variable für IndexFilenName</summary>
|
||||
Dim m_indexfilename As String
|
||||
'''<summary>Enthält der Name der Inputdatei mit den Indexdaten (XML oder
|
||||
'''TXT)</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Property IndexFileName() As String
|
||||
Get
|
||||
Return m_indexfilename
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_indexfilename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für IndexData</summary>
|
||||
Dim m_Indexdata As DataTable
|
||||
'''<summary>Datentabelle mit den geladenen Indexwerten</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Property Indexdata() As DataTable
|
||||
Get
|
||||
Return m_Indexdata
|
||||
End Get
|
||||
Set(ByVal Value As DataTable)
|
||||
m_Indexdata = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Temporäre Collection mit den getrennten Indexdaten aus der
|
||||
'''txt-Input-Datei</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Dim Splitline As Collection
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
'''<summary>Angelieferte Indexdaten auslesen und in die Datentabele Indexdata
|
||||
'''speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder
|
||||
'''Komma-getrennte Textdatei auslesen</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
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)) = "<?XML" Then
|
||||
'XML-Datenstrom verarbeiten
|
||||
xmlinput()
|
||||
Return True
|
||||
Else
|
||||
'Komma-Delimited-Datenstrom verarbeiten
|
||||
Datentabelle_Erstellen()
|
||||
Dim tr As TextReader
|
||||
Dim hasdata As Boolean = True
|
||||
tr = File.OpenText(Me.IndexFileName)
|
||||
Try
|
||||
While hasdata
|
||||
s = tr.ReadLine
|
||||
If s = "" Or s = Nothing Then
|
||||
tr.Close()
|
||||
FileSystem.Rename(Me.IndexFileName, Me.IndexFileName + "." + Format(Now, "yyyyMMddHHmmss"))
|
||||
If Me.Indexdata.Rows.Count > 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
|
||||
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.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
|
||||
|
||||
'''<summary>XML-Datei als Datatable einlesen</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Private Sub xmlinput()
|
||||
Try
|
||||
Dim idxds As New DataSet()
|
||||
idxds.ReadXml(Me.IndexFileName)
|
||||
|
||||
'Anpassungen EBES_LSV
|
||||
Dim i As Integer
|
||||
For i = 0 To idxds.Tables.Count - 1
|
||||
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
|
||||
|
||||
'''<summary>Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
|
||||
'''Datensätze eingelesen und zugewiesen werden können</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
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
|
||||
|
||||
'''<summary>Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der
|
||||
'''Tabelle "Indexdata" speichern</summary>
|
||||
'''<param name="s">Zeile der Inputdatei (Komma-getrennte Werte)</param>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Private Sub Indexwerte_Einlesen(ByVal s As String)
|
||||
Splitline = SplitDelimitedLine(s, ",", """")
|
||||
Insert_Into_DB(Splitline)
|
||||
End Sub
|
||||
|
||||
'''<summary>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.</summary>
|
||||
'''<param name="data"></param>
|
||||
'''<author>Stefan Hutter</author>
|
||||
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
|
||||
|
||||
'''<summary>Splitfunktion</summary>
|
||||
'''<param name="CurrentLine">Input-Zeile</param>
|
||||
'''<param name="Delimiter">Trennzeichen der einzelnen werte (z.B. Komma,
|
||||
'''Strichpunkt usw.)</param>
|
||||
'''<param name="Qualifier">Qualiflyer, welcher die Werte umschliesst (z.B.
|
||||
'''")</param>
|
||||
'''<author>Stefan Hutter</author>
|
||||
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
|
||||
@@ -0,0 +1,216 @@
|
||||
Imports System.IO
|
||||
|
||||
'''<summary>Klasse zum auselesen der Steuerparameter aus der Datei
|
||||
'''\bin\parameters.cfg</summary>
|
||||
'''<author>Stefan Hutter</author>
|
||||
Public Class ClsParameters
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
'''<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
Dim ofile As System.IO.File
|
||||
'''<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
Dim oread As System.IO.StreamReader
|
||||
|
||||
'''<summary>Interne Variable für das Property Application ID</summary>
|
||||
Dim m_applicationid As String
|
||||
'''<summary>ApplikationsID für die Journalisierung</summary>
|
||||
Property ApplicationID() As String
|
||||
Get
|
||||
Return m_applicationid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_applicationid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property Inputverzeichnis</summary>
|
||||
Dim m_Inputverzeichnis As String
|
||||
'''<summary>Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert
|
||||
'''sind</summary>
|
||||
Property Inputverzeichnis() As String
|
||||
Get
|
||||
Return m_Inputverzeichnis
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Inputverzeichnis = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property MailadresseOK</summary>
|
||||
Dim m_MailadresseOK As String
|
||||
'''<summary>EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung
|
||||
'''ordnungsgemäss durchgelaufen ist</summary>
|
||||
Property MailAdresseOK() As String
|
||||
Get
|
||||
Return m_MailadresseOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property MailadresseNOK</summary>
|
||||
Dim m_MailadresseNOK As String
|
||||
'''<summary>Mailadresse, an die im Fehlerfall ein Mail gesendet wird</summary>
|
||||
Property MailAdresseNOK() As String
|
||||
Get
|
||||
Return m_MailadresseNOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseNOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property Meldung</summary>
|
||||
Dim m_meldung As String
|
||||
'''<summary>Allfälliger Meldungstext, welcher beim Laden der Parameter generiert
|
||||
'''wird</summary>
|
||||
Property Meldung() As String
|
||||
Get
|
||||
Return m_meldung
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_meldung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property Temppfad</summary>
|
||||
Dim m_temppfad As String
|
||||
'''<summary>Pfad für temporäre Dateien</summary>
|
||||
Property TempPfad() As String
|
||||
Get
|
||||
Return m_temppfad
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_temppfad = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property Mailserver</summary>
|
||||
Dim m_mailserver As String
|
||||
'''<summary>SMTP-Mailserver für den Journalversand</summary>
|
||||
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
|
||||
|
||||
'''<summary>Interne Variable für das Property Journaltimer_time</summary>
|
||||
Dim m_journaltimer_time As Integer = 60 * 60 * 1000
|
||||
'''<summary>Journaltimer-Zeit in Milisekunden</summary>
|
||||
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
|
||||
|
||||
'''<summary>Interne Variable für das Property DeleteOriginalfiles</summary>
|
||||
Dim m_deleteoriginalfiles As Integer = 0
|
||||
'''<summary>DeleteOriginalfiles</summary>
|
||||
Property DeleteOriginalfiles() As Integer
|
||||
Get
|
||||
Return m_deleteoriginalfiles
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_deleteoriginalfiles = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>Interne Variable für das Property GSF Config File Path</summary>
|
||||
Dim m_gsf_ConfigPath As String
|
||||
'''<summary>gsf ConfigPath</summary>
|
||||
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
|
||||
|
||||
'''<summary>Interne Variable für das Property GSF Timer Intervall</summary>
|
||||
Dim m_gsf_TimerInterval As Integer = 0
|
||||
'''<summary>gsf Timer Interval</summary>
|
||||
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
|
||||
|
||||
'''<summary>Interne Variable für das Property GSF DateiEndung</summary>
|
||||
Dim m_gsf_ConfigDateiendung As String
|
||||
'''<summary>gsf DateiEndung</summary>
|
||||
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
|
||||
|
||||
#End Region
|
||||
|
||||
'''<summary>Laden der Parameterdaten aus parameters.cfg</summary>
|
||||
'''<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
|
||||
'''Datei "Parameters.cfg"</remarks>
|
||||
'''<returns>True im OK-Fall
|
||||
'''False im Fehlerfall</returns>
|
||||
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)
|
||||
oread.Close()
|
||||
Me.Meldung = "Parameter auslesen i.O."
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Me.Meldung = ex.Message
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'''<summary>Parameterbezeichnung und Parameterwert trennen</summary>
|
||||
'''<param name="sinput">Inputstring mit Parameterbezeichnung und
|
||||
'''Parameterwert</param>
|
||||
'''<returns>Parameterwert als String</returns>
|
||||
Private Function ParamValue(ByVal sinput As String) As String
|
||||
Dim splitter As String()
|
||||
splitter = Split(sinput, "=")
|
||||
ParamValue = splitter(1)
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,15 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<xs:schema id="Dataset1"
|
||||
targetNamespace="http://tempuri.org/Dataset1.xsd"
|
||||
elementFormDefault="qualified"
|
||||
attributeFormDefault="qualified"
|
||||
xmlns="http://tempuri.org/Dataset1.xsd"
|
||||
xmlns:mstns="http://tempuri.org/Dataset1.xsd"
|
||||
xmlns:xs="http://www.w3.org/2001/XMLSchema"
|
||||
xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xs:element name="Dataset1" msdata:IsDataSet="true">
|
||||
<xs:complexType>
|
||||
<xs:choice maxOccurs="unbounded"></xs:choice>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
@@ -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
|
||||
|
||||
'''<summary>Funktionen für den Export der Journaldaten</summary>
|
||||
Public Class Export
|
||||
|
||||
Dim filename As String
|
||||
'''<summary>Auswertung erstellen und ggf. mittels DTO versenden</summary>
|
||||
'''<param name="dt">Datentabelle mit den Auswertungsdaten der Applikation</param>
|
||||
'''<param name="format">Format der Auswertung (txt, csv, xls, doc, pdf,
|
||||
'''xml)</param>
|
||||
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)
|
||||
Case "XLS"
|
||||
filename = filename + ".xls"
|
||||
CR_Report(dt, format)
|
||||
Case "DOC"
|
||||
filename = filename + ".doc"
|
||||
CR_Report(dt, format)
|
||||
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
|
||||
|
||||
'''<summary>Journaldatei als CSV-Datei erstellen</summary>
|
||||
'''<param name="dt">Journaldaten</param>
|
||||
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
|
||||
|
||||
'''<summary>Journaldatei als TXT-Datei erstellen</summary>
|
||||
'''<param name="dt">Journaldaten</param>
|
||||
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
|
||||
|
||||
'''<summary>Crystal-Report-Druck</summary>
|
||||
'''<param name="dt">Datentabelle, welche an Crystal zum Druck übergeben
|
||||
'''wird</param>
|
||||
'''<param name="format">Zu Exportierendes Format (XLS, DOC, PDF)</param>
|
||||
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
|
||||
@@ -0,0 +1,29 @@
|
||||
<?xml version="1.0" standalone="yes" ?>
|
||||
<xs:schema id="NewDataSet" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:Locale="de-CH">
|
||||
<xs:complexType>
|
||||
<xs:choice maxOccurs="unbounded">
|
||||
<xs:element name="Table1">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Import_JobNr" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="Start_TS" type="xs:dateTime" minOccurs="0" />
|
||||
<xs:element name="Import_Eintragnr" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="TS" type="xs:dateTime" minOccurs="0" />
|
||||
<xs:element name="RecordNo" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Partnernr" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Dateityp" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Dateiname" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Status" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Statustext" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="EDOKA_Dokumentid" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Journal_Ausgeliefert" type="xs:int" minOccurs="0" />
|
||||
<xs:element name="Appl" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Indexdaten" type="xs:string" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:choice>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
@@ -0,0 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--Diese Datei wird automatisch vom XML-Schema-Designer generiert. Sie enthält Layoutinformationen für Komponenten auf der Designeroberfläche.-->
|
||||
<XSDDesignerLayout layoutVersion="1" viewPortLeft="0" viewPortTop="0">
|
||||
<Table1_XmlElement left="635" top="635" width="5292" height="2963" selected="0" zOrder="0" index="0" />
|
||||
</XSDDesignerLayout>
|
||||
Binary file not shown.
@@ -0,0 +1,173 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.42
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
|
||||
Imports CrystalDecisions.CrystalReports.Engine
|
||||
Imports CrystalDecisions.ReportSource
|
||||
Imports CrystalDecisions.Shared
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class Journal1
|
||||
Inherits ReportClass
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
End Sub
|
||||
|
||||
Public Overrides Property ResourceName() As String
|
||||
Get
|
||||
Return "Journal1.rpt"
|
||||
End Get
|
||||
Set
|
||||
'Do nothing
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section1() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(0)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section2() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(1)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section6() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(2)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section3() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(3)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section8() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(4)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section9() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(5)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section7() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(6)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section4() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(7)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public ReadOnly Property Section5() As CrystalDecisions.CrystalReports.Engine.Section
|
||||
Get
|
||||
Return Me.ReportDefinition.Sections(8)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
<System.Drawing.ToolboxBitmapAttribute(GetType(CrystalDecisions.[Shared].ExportOptions), "report.bmp")> _
|
||||
Public Class CachedJournal1
|
||||
Inherits Component
|
||||
Implements ICachedReport
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
End Sub
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public Overridable Property IsCacheable() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.IsCacheable
|
||||
Get
|
||||
Return true
|
||||
End Get
|
||||
Set
|
||||
'
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public Overridable Property ShareDBLogonInfo() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.ShareDBLogonInfo
|
||||
Get
|
||||
Return false
|
||||
End Get
|
||||
Set
|
||||
'
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(false), _
|
||||
DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
Public Overridable Property CacheTimeOut() As System.TimeSpan Implements CrystalDecisions.ReportSource.ICachedReport.CacheTimeOut
|
||||
Get
|
||||
Return CachedReportConstants.DEFAULT_TIMEOUT
|
||||
End Get
|
||||
Set
|
||||
'
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Overridable Function CreateReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument Implements CrystalDecisions.ReportSource.ICachedReport.CreateReport
|
||||
Dim rpt As Journal1 = New Journal1
|
||||
rpt.Site = Me.Site
|
||||
Return rpt
|
||||
End Function
|
||||
|
||||
Public Overridable Function GetCustomizedCacheKey(ByVal request As RequestContext) As String Implements CrystalDecisions.ReportSource.ICachedReport.GetCustomizedCacheKey
|
||||
Dim key As [String] = Nothing
|
||||
'// The following is the code used to generate the default
|
||||
'// cache key for caching report jobs in the ASP.NET Cache.
|
||||
'// Feel free to modify this code to suit your needs.
|
||||
'// Returning key == null causes the default cache key to
|
||||
'// be generated.
|
||||
'
|
||||
'key = RequestContext.BuildCompleteCacheKey(
|
||||
' request,
|
||||
' null, // sReportFilename
|
||||
' this.GetType(),
|
||||
' this.ShareDBLogonInfo );
|
||||
Return key
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,244 @@
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.IO
|
||||
|
||||
|
||||
'''<summary>Funktionen für die Journalisierung der einzelnen
|
||||
'''Verarbeitungsschritte</summary>
|
||||
Public Class clsJournal
|
||||
|
||||
#Region "Deklarationen"
|
||||
'''<summary>Interne Variable für das Property JournalNr</summary>
|
||||
Dim m_Journalnr As Integer
|
||||
|
||||
'''<summary>Property für die JournalNr</summary>
|
||||
Property JournalNr() As Integer
|
||||
Get
|
||||
Return m_Journalnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Journalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
'''<summary>Variable für die Datenbankklasse clsImport_Job</summary>
|
||||
Dim Journal As New edokadb.clsImport_Job()
|
||||
'''<summary>Variable für die Datenbankklasse clsimport_eintrag</summary>
|
||||
Dim Journaleintrag As New edokadb.clsImport_Eintrag()
|
||||
|
||||
'''<summary>Interne Variable für das halten einer Datentabelle</summary>
|
||||
Dim tmptbl As New DataTable()
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "öffentliche Methoden"
|
||||
'''<summary>Öffnet ein neuer Journaleintrag in der Tabelle Import_Job</summary>
|
||||
'''<remarks>Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den
|
||||
'''entsprechenden Einträgen erstellt</remarks>
|
||||
'''<seealso cref="Main.Verarbeiten">Verarbeiten</seealso>
|
||||
Public Function Open_Journal() As Boolean
|
||||
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))
|
||||
Globals.conn_journale.OpenConnection()
|
||||
Journal.Insert()
|
||||
Globals.conn_journale.CloseConnection(True)
|
||||
Me.JournalNr = Journal.iImport_JobNr.Value
|
||||
Journal.Dispose()
|
||||
End Function
|
||||
|
||||
'''<summary>Schliessen des aktuell geöffneten Verarbeitungsjournales</summary>
|
||||
'''<remarks>Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle
|
||||
'''Import_Job nachgeführt</remarks>
|
||||
'''<seealso cref="Main.Verarbeiten">Verarbeiten</seealso>
|
||||
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
|
||||
|
||||
'''<summary>Journaleintrag löschen</summary>
|
||||
'''<remarks>Löscht den Journaleintrag aus der Variabel JournalNr</remarks>
|
||||
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
|
||||
'''<summary>Einfügen eines neuen Journaldatensatzes</summary>
|
||||
'''<param name="RecNo">Recordnummer der Indexdaten bzw. "" für allgemeine
|
||||
'''Journaleinträte</param>
|
||||
'''<param name="Partnernr">Partnernr oder "" für allgemeine
|
||||
'''Einträge</param>
|
||||
'''<param name="dateityp">Dateityp der zu importierenden Datei bzw. ""
|
||||
'''für allgemeine Einträge</param>
|
||||
'''<param name="dateiname">Index-Dateiname oder Dateiname der zu importierenden
|
||||
'''Datei</param>
|
||||
'''<param name="Status">Status Nr</param>
|
||||
'''<param name="Statustext">Bezeichnung zur Statusnr</param>
|
||||
'''<param name="EDOKA_Dokumentid">Dokumentid des EDOKA-Dokumentes nach dem Import
|
||||
'''oder ""</param>
|
||||
'''<param name="Applikationnr">Fremdschlüssel zur Tabelle FA_APPL</param>
|
||||
'''<seealso cref="edokadb.clsFA_APPL">edkb08.edokadb.clsFA_APPL</seealso>
|
||||
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)
|
||||
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
|
||||
|
||||
'''<summary>Ergänzt den Journaleintrag mit der zugehörenden
|
||||
'''Herkunftsapplikation</summary>
|
||||
'''<seealso cref="Globals.Herkunftsapplikation">edkb08.Globals</seealso>
|
||||
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
|
||||
|
||||
' ' Spaltenüberschriften
|
||||
' 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
|
||||
Binary file not shown.
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/vssver.scc
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/edkb08/vssver.scc
Normal file
Binary file not shown.
9
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/mssccprj.scc
Normal file
9
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/mssccprj.scc
Normal file
@@ -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
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,698 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08WS
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="F:EDKB08WS.Service1.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Service1.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.JournalTimer">
|
||||
<summary>Timer zur Auslösung der täglichen Journalaufbereitung</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnStart(System.String[])">
|
||||
<summary>Start des Dienstes EDKB08WS</summary>
|
||||
<remarks>Beim Start des Dienstes werden neben dem Einlesen der Parameter der
|
||||
Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung
|
||||
initialisiert.</remarks>
|
||||
<param name="args"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Verarbeiten">
|
||||
<summary>Verarbeiten von angelieferten Daten</summary>
|
||||
<remarks>In dieser Methode werden angelieferte Indexdateien verarbeitet.
|
||||
<para></para>
|
||||
<para>Bevor die Verarbeitung startet, wird der Systemfilewacher
|
||||
ausgeschaltet.</para>
|
||||
<para>Die Verarbeitung wird solange durchgeführt, bis alle anstehenden
|
||||
Indexdaten und Dokumente abgearbeitet sind.</para>
|
||||
<para>Am Schluss der Verarbeitung wird der Systemfilewacher wieder
|
||||
gestartet.</para></remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_Mail(System.String,System.String)">
|
||||
<summary>Versand von Journaldaten mittels Email</summary>
|
||||
<param name="filename"></param>
|
||||
<param name="empfaenger"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.get_applikationen">
|
||||
<summary></summary>
|
||||
</member><member name="T:EDKB08WS.Service1">
|
||||
<summary></summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.m_Journalnr">
|
||||
<summary>Interne Variable für das Property JournalNr</summary>
|
||||
</member><member name="P:EDKB08WS.clsJournal.JournalNr">
|
||||
<summary>Property für die JournalNr</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journal">
|
||||
<summary>Variable für die Datenbankklasse clsImport_Job</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journaleintrag">
|
||||
<summary>Variable für die Datenbankklasse clsimport_eintrag</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.tmptbl">
|
||||
<summary>Interne Variable für das halten einer Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Open_Journal">
|
||||
<summary>Öffnet ein neuer Journaleintrag in der Tabelle Import_Job</summary>
|
||||
<remarks>Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den
|
||||
entsprechenden Einträgen erstellt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Close_Journal">
|
||||
<summary>Schliessen des aktuell geöffneten Verarbeitungsjournales</summary>
|
||||
<remarks>Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle
|
||||
Import_Job nachgeführt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Delete_Entry">
|
||||
<summary>Journaleintrag löschen</summary>
|
||||
<remarks>Löscht den Journaleintrag aus der Variabel JournalNr</remarks>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Insert_Journal(System.String,System.String,System.String,System.String,System.String,System.String,System.String,System.String)">
|
||||
<summary>Einfügen eines neuen Journaldatensatzes</summary>
|
||||
<param name="RecNo">Recordnummer der Indexdaten bzw. "" für allgemeine
|
||||
Journaleinträte</param>
|
||||
<param name="Partnernr">Partnernr oder "" für allgemeine
|
||||
Einträge</param>
|
||||
<param name="dateityp">Dateityp der zu importierenden Datei bzw. ""
|
||||
für allgemeine Einträge</param>
|
||||
<param name="dateiname">Index-Dateiname oder Dateiname der zu importierenden
|
||||
Datei</param>
|
||||
<param name="Status">Status Nr</param>
|
||||
<param name="Statustext">Bezeichnung zur Statusnr</param>
|
||||
<param name="EDOKA_Dokumentid">Dokumentid des EDOKA-Dokumentes nach dem Import
|
||||
oder ""</param>
|
||||
<param name="Applikationnr">Fremdschlüssel zur Tabelle FA_APPL</param>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsFA_APPL">edkb08.edokadb.clsFA_APPL</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Update_Journal">
|
||||
<summary>Ergänzt den Journaleintrag mit der zugehörenden
|
||||
Herkunftsapplikation</summary>
|
||||
<seealso cref="F:EDKB08WS.Globals.Herkunftsapplikation">edkb08.Globals</seealso>
|
||||
</member><member name="T:EDKB08WS.clsJournal">
|
||||
<summary>Funktionen für die Journalisierung der einzelnen
|
||||
Verarbeitungsschritte</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Applikationsdaten">
|
||||
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.AppldataRow">
|
||||
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_edoka">
|
||||
<summary>Verbindung zur Daten EDOKA</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale_Mail">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.args">
|
||||
<summary>Befehlszeilenargumente</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_edoka">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale_Mail">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.DivFnkt">
|
||||
<summary>Instanz des Objektes DivFnkt</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.ApplData">
|
||||
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
|
||||
fest</summary>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintOut(System.String)">
|
||||
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintLog(System.String,System.Diagnostics.EventLogEntryType)">
|
||||
<summary>Eintrag ins EventLog von EDKB08 schreiben</summary>
|
||||
<param name="message"></param>
|
||||
<param name="eventmessage"></param>
|
||||
</member><member name="F:EDKB08WS.Globals.Journal">
|
||||
<summary>Globaler Verweis zur Klasse CLSJournal</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Herkunftsapplikation">
|
||||
<summary>Daten für der Herkunftsapplikation</summary>
|
||||
<remarks>Diese interne Tabelle enthält die Daten für die Herkunftsapplikation
|
||||
einer Indexdatei</remarks>
|
||||
</member><member name="F:EDKB08WS.Globals.Fehler">
|
||||
<summary>Interne Variable zur Festhaltung von Fehlern</summary>
|
||||
</member><member name="T:EDKB08WS.Globals">
|
||||
<summary>Globale Variablen und FUnktionen</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.m_indexdata">
|
||||
<summary>Interne Variable für das Property IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsCheckandImport.IndexData">
|
||||
<summary>Datentabelle mit den Indexwerten</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.TmpTable">
|
||||
<summary>Interne temporöre Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.CheckandImport">
|
||||
<summary>Prüfung der Indexwerte
|
||||
Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA
|
||||
importiert.
|
||||
</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">
|
||||
<summary>Prüft die Indexdaten und löst ggf. den Import des Dokumentes
|
||||
aus.</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="DokImport">True=Dokument importieren False=Dokument nicht
|
||||
importieren (nur plausibilisieren)</param>
|
||||
<param name="datarow">Aktuelle Datarow der Tabelle Indexdata</param>
|
||||
<returns>True=Verarbeitung i.O. False=Verarbeitung fehlerhaft</returns>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Funktion(System.String)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<param name="Fnkt">Gültige Werte sind: ADD, UPD, REPL, DEL</param>
|
||||
<returns>True = Import erfolgreich$EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Partnerzuordnung(System.Int32)">
|
||||
<summary>Prüfung der Partnerzuordnung</summary>
|
||||
<remarks>Mit der Funktion wird abhängig vom angelieferten Wert die
|
||||
Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft.
|
||||
<para></para>
|
||||
<para>Input Partnernummer</para>
|
||||
<para>Direkter Zugriff auf die Tabelle Partner mittels Partnernr</para>
|
||||
<para></para>
|
||||
<para>Input VV-Nr: </para>
|
||||
<para>Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die</para>
|
||||
<para>Partnernummer gefunden wird, diese in der Datentabelle nachführen</para>
|
||||
<para></para>
|
||||
<para>Input: Barcode-ID:</para>
|
||||
<para>Zugriff auf die Partnernummer über die Tabelle Dokument mit der
|
||||
geliefertenen EDOKA-BarcodeID</para>
|
||||
<para></para>
|
||||
<para>Input: KST:</para>
|
||||
<para>Zugriff über die Kostenstelle auf den EDOKA-Partner</para></remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Partnerzuordnung i.O.
|
||||
<para>False=Partnerzuordnung nicht i.O.</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_EDOKA_Partner_Erfassen(System.Int32)">
|
||||
<summary>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</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile des Import-Programmes</param>
|
||||
<returns>True = EDOKA-Partner eröffnet
|
||||
<para>False = Daten zur Eröffnung des EDOKA-Partners sind
|
||||
unvollständig</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Dokumentdaten(System.Int32)">
|
||||
<summary>Prüft die dokumentspezifischen Werte und das Vorhandensein des
|
||||
physischen Dokumentes</summary>
|
||||
<remarks>Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten
|
||||
Dokumente:
|
||||
<list type="bullet">
|
||||
<item>
|
||||
<description>Gültiges Dokumentformant (DOC, XLS, TIF, PDF,
|
||||
JPG</description></item>
|
||||
<item>
|
||||
<description>Vorhandensein des Dokumentes im
|
||||
Importverzeichnis</description></item>
|
||||
<item>
|
||||
<description>Dokumenttyp</description></item></list></remarks>
|
||||
<param name="datarow">Zeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Dokumentwerte i.O.
|
||||
<para>False=Dokumentwerte nicht i.O.</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Note(System.String,System.String)">
|
||||
<summary>Notiz zu einem Dokument hinzufügen</summary>
|
||||
<remarks>Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz
|
||||
hinzu</remarks>
|
||||
<param name="dokumentid">Aktuelle Dokumentid</param>
|
||||
<param name="meldung">Meldung / Notiz</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">
|
||||
<summary>Auslesen der Daten "Herkunftsapplikation" und in der internen Variable
|
||||
Herkunftsapplikationen zwischenspeichern</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Herkunftsapplikation(System.Int32)">
|
||||
<summary>Auslesen der Herkunftsapplikation anhand des Dokumenttyps</summary>
|
||||
<param name="i">Aktueller Datensatz aus den Indexdaten</param>
|
||||
<returns>"" = Herkunftsapplikation nicht vorhanden$EOL$
|
||||
<para>"[Bezeichnung] = Herkunftsapplikation vorhanden</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">Herkuftsapplikation_auslesen</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Import_Dokument(System.Int32)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<remarks>Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>$EOL$ $EOL$ Tabelle</term>
|
||||
<description>$EOL$ Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokument</term>
|
||||
<description>$EOL$ Dokumentbeschreibung</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentstatus</term>
|
||||
<description>$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis
|
||||
zum ersten archivierungs-relevanten Status gesetzt. $EOL$
|
||||
<para></para>
|
||||
<para>$EOL$ </para>
|
||||
<para>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.</para></description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentcoldindexwert</term>
|
||||
<description>$EOL$ Tabelle mit den COLD-relevanten
|
||||
Indexinformationen</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentwerte</term>
|
||||
<description>$EOL$ Tabelle mit den individuellen
|
||||
Dokumentwerten</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Notizen</term>
|
||||
<description>$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im
|
||||
EDOKA eingefügt wurde</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
<returns>True = Import erfolgreich $EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer(System.Int32)">
|
||||
<summary>FA-Nummer 1-3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer1</term>
|
||||
<description>Bezeichnung der Applikatoin</description></item>
|
||||
<item>
|
||||
<term>FANummer2</term>
|
||||
<description>Dokumentname</description></item>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer_Barcodeimport(System.Int32)">
|
||||
<summary>FA-Nummer 3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_in_DB_Sichern(System.String,System.Int32)">
|
||||
<summary>Löst das Importieren des Original-Dokumentes in die Datenbank
|
||||
aus</summary>
|
||||
<remarks>Die Methode löst das Importieren des Origianldokumentes in die
|
||||
EDOKA-Datenbank aus</remarks>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Improt erfolgreich, False=Import fehlgeschlagen</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">clsDivFnkt.Save_To_DB(System.String,
|
||||
System.String)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Dokumenttypnr(System.Int32)">
|
||||
<summary>EDOKA-Dokumenttypnr auslesen</summary>
|
||||
<remarks>Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp
|
||||
aus.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile der Indexdaten</param>
|
||||
<returns>Dokumenttypnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Cold_Werte(System.Int32)">
|
||||
<summary>Auslesen von Coldschema und -Folder</summary>
|
||||
<param name="dokumenttypnr">Dokumenttypnr des aktuellen Dokumentes</param>
|
||||
<returns>Datatable mit den COLD-Werten</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.COLD_Index_Sichern(System.Int32,System.String)">
|
||||
<summary>Coldindex zum erstellen Dokument erstellen und speichern</summary>
|
||||
<param name="indextyp">Standard 1</param>
|
||||
<param name="dokumentid">Dokumentid des aktuellen Dokumentes</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_DokumentColdIndexwert(System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Dokument Cold Indexwert anpassen</summary>
|
||||
<remarks>Führt einen Wert in der Tabelle Dokumentcoldindexwert nach</remarks>
|
||||
<param name="dokumentid">DokumentID des aktuellend Dokumentes</param>
|
||||
<param name="Indextyp">1 für Ausgangsarchivierung
|
||||
<para>2 für Ausgangsarchivierung</para></param>
|
||||
<param name="indexfeld">Nummer des Indexfeldes</param>
|
||||
<param name="wert">Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Dokumentwerte(System.Int32)">
|
||||
<summary>Edoka-spezifische Dokumentwerte nachführen</summary>
|
||||
<remarks>Führt folgende Daten in den Dokumentwerten hinzu
|
||||
<para>- Herkunftsapplikation</para>
|
||||
<para>- Archivreferenz</para>
|
||||
<para>- Listen-Empfänger MA/KST/NL</para>
|
||||
<para>- Individuelle Dokumentwerte der Fremdanwendung</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentwert_Sichern(System.String,System.Int32)">
|
||||
<summary>Edoka-spezifischer Dokumentwert auf der Datenbank sichern</summary>
|
||||
<param name="wert">Inhalt</param>
|
||||
<param name="feldnr">Feldnummer</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentstatus_erstellen_und_Status_Setzen(System.Int32,System.Boolean,System.Int32)">
|
||||
<summary>Erstellen der Dokumentstatus und eintragen der entsprechenden
|
||||
Statushistory-Einträge</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Status, welcher im Dokument unter "Statusnr" nachgeführt
|
||||
wird</returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.String)">edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">edkb08.clsCheckandImport.insert_history_status(System.Int32,
|
||||
System.String, System.Int32, System.DateTime)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.Int32,System.Int32)">
|
||||
<summary>Dokumentstatus für das zu erstellende Dokument generieren</summary>
|
||||
<remarks>Erstellt die Dokumentstatus gem. Statussequenz des
|
||||
Dokumenttyps</remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">
|
||||
<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
|
||||
<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
|
||||
<param name="datarow">Aktuelle Ziele der Indexdaten</param>
|
||||
<returns>Datatable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Mitarbeiter(System.Int32)">
|
||||
<summary>Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten
|
||||
TG-Nummer</summary>
|
||||
<param name="datarow">Aktuelle Import-Datenzeile</param>
|
||||
<returns>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</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">
|
||||
<summary>Statushistory nachführen</summary>
|
||||
<remarks>Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments
|
||||
die Statushistory nach</remarks>
|
||||
<param name="statusnr">Nummer des Status</param>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="Verantwortlicher">Verantwortlicher Mitarbeiter</param>
|
||||
<param name="datumzeit">Timestamp</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Delete_Dokument(System.Int32)">
|
||||
<summary>Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder
|
||||
Dokumentname) auslösen</summary>
|
||||
<remarks>Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder
|
||||
Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst.
|
||||
<para>Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein
|
||||
Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet
|
||||
wurde.</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung durchgeführt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_Loeschen(System.String,System.Int32)">
|
||||
<summary>Dokument löschen bzw. aufheben</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">DokumentID des zu löschenden Dokumentes</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung erfolgt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_status(System.String)">
|
||||
<summary>Auselesen des letzten Status in der Seqeunz des zu löschenden
|
||||
Dokumentes</summary>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden Dokumentes</param>
|
||||
<returns>Status_Bezeichnungnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.set_aufgehoben(System.String)">
|
||||
<summary>Dokument aufheben</summary>
|
||||
<param name="dokumentid">Dokumentid des aufzuhebenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_coldindex_and_statusnr(System.String,System.Boolean,System.Boolean)">
|
||||
<summary>SColdindex und Aufhebungsstatus des eines zu löschenden bzw.
|
||||
aufzuhebenden Dokumentes auslesen</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden / aufzuhebenden
|
||||
Dokumentes</param>
|
||||
<param name="aufheben">True=Dokument aufheben
|
||||
<para>False=Dokument nicht aufheben</para></param>
|
||||
<param name="reaktivieren">True=Aufgehobenes Dokument reaktivieren
|
||||
<para>False=Keine Dokumentreaktivierung</para></param>
|
||||
<returns>Datentable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_coldupdate_status(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>AGI-COLD-Dokument-Status ändern</summary>
|
||||
<remarks>Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter
|
||||
"neuerstatus"</remarks>
|
||||
<param name="dt">Datentabelle mit Cold-Index-Werten</param>
|
||||
<param name="dokumentid">DokumentID</param>
|
||||
<param name="neuerstatus">Neuer Status der entsprechenden COLD-Dokumente</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_ColdUpdate(System.String,System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Tabelle COLD-Update mit Updates ergänzen</summary>
|
||||
<param name="dokumentid">DokumentID des EDOKA-Dokumentes</param>
|
||||
<param name="colddokumentid">DokumentID des COLD-Bildes</param>
|
||||
<param name="indextyp">1=Ausgangsarchiviertes Dokumente
|
||||
<para>2=Eingangarchiviertes Dokumente</para></param>
|
||||
<param name="feldnr">Feldnr des Feldes im Cold-Index</param>
|
||||
<param name="wert">Neuer Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_Dokumentwerte(System.Int32)">
|
||||
<summary>Dokumentwerte eines Dokumentes updaten</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.ist_archiviert(System.String)">
|
||||
<summary>Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde</summary>
|
||||
<param name="dokumentid">Dokumentid des zu prüfenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_edoka_dokument(System.Int32,System.String,System.Int32)">
|
||||
<summary>Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank</summary>
|
||||
<param name="fnkt">1=Prüfung anhand einer EDOKA_Dokumentid
|
||||
<para>2=Prüfung anhand des Dateinamens</para></param>
|
||||
<param name="wert">EDOKA_DokumentID oder Dateiname</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Dokument gefunden und es kann gelöscht werden
|
||||
<para>False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die
|
||||
Suche mittels Dateiname mehrere Treffer ergab</para></returns>
|
||||
</member><member name="T:EDKB08WS.clsCheckandImport">
|
||||
<summary>Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in
|
||||
EDOKA</summary>
|
||||
<remarks>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</remarks>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Generate_Key">
|
||||
<summary>Generieren der EDOKA-DokumentID</summary>
|
||||
<remarks>Diese Methode generiert eine neue eindeutige, 22-stellige
|
||||
EDOKA-Dokumentid. $EOL$
|
||||
<para>Die Letzte ziffer ist eine Prüfziffer</para></remarks>
|
||||
<returns>DokumentID für EDOKA</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">Prüfziffer-Berechnung</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">
|
||||
<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
|
||||
<param name="zahl">Dokumentid ohne Präfix</param>
|
||||
<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Generate_Key">EDKB08.clsDivFnkt</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">
|
||||
<summary>Dokumen in der EDOKA-Datenbank speichern</summary>
|
||||
<remarks>Die Funktion speichert ein Dokument des Filesystems in die
|
||||
EDOKA-Datenbank Tabelle DOKS</remarks>
|
||||
<param name="sDokumentID">DEDOKA-Dokumentid</param>
|
||||
<param name="sDokumentName">Origianl-Dokumentname (Fullpath)</param>
|
||||
<returns>True=Speichern erfolgreich, False=Speichern fehlgeschalgen</returns>
|
||||
</member><member name="T:EDKB08WS.clsDivFnkt">
|
||||
<summary>Diverse allgemeine Funktionen</summary>
|
||||
<remarks>Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus
|
||||
diversen anderen Klassen genutzt werden.$EOL$
|
||||
<para>Die Instanzierung der Klasse erfolgt über das Module <see cref="T:EDKB08WS.Globals">Globals.vb</see></para></remarks>
|
||||
<seealso cref="F:EDKB08WS.Globals.DivFnkt">Globals.DivFnkt</seealso>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.ofile">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.oread">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_applicationid">
|
||||
<summary>Interne Variable für das Property Application ID</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.ApplicationID">
|
||||
<summary>ApplikationsID für die Journalisierung</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_Inputverzeichnis">
|
||||
<summary>Interne Variable für das Property Inputverzeichnis</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Inputverzeichnis">
|
||||
<summary>Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert
|
||||
sind</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseOK">
|
||||
<summary>Interne Variable für das Property MailadresseOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseOK">
|
||||
<summary>EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung
|
||||
ordnungsgemäss durchgelaufen ist</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseNOK">
|
||||
<summary>Interne Variable für das Property MailadresseNOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseNOK">
|
||||
<summary>Mailadresse, an die im Fehlerfall ein Mail gesendet wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_meldung">
|
||||
<summary>Interne Variable für das Property Meldung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Meldung">
|
||||
<summary>Allfälliger Meldungstext, welcher beim Laden der Parameter generiert
|
||||
wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_temppfad">
|
||||
<summary>Interne Variable für das Property Temppfad</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.TempPfad">
|
||||
<summary>Pfad für temporäre Dateien</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_mailserver">
|
||||
<summary>Interne Variable für das Property Mailserver</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Mailserver">
|
||||
<summary>SMTP-Mailserver für den Journalversand</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_journaltimer_time">
|
||||
<summary>Interne Variable für das Property Journaltimer_time</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.JournalTimer_Time">
|
||||
<summary>Journaltimer-Zeit in Milisekunden</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_deleteoriginalfiles">
|
||||
<summary>Interne Variable für das Property DeleteOriginalfiles</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.DeleteOriginalfiles">
|
||||
<summary>DeleteOriginalfiles</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigPath">
|
||||
<summary>Interne Variable für das Property GSF Config File Path</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigPath">
|
||||
<summary>gsf ConfigPath</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_TimerInterval">
|
||||
<summary>Interne Variable für das Property GSF Timer Intervall</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_TimerInterval">
|
||||
<summary>gsf Timer Interval</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigDateiendung">
|
||||
<summary>Interne Variable für das Property GSF DateiEndung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigDateiendung">
|
||||
<summary>gsf DateiEndung</summary>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.Loadparameters">
|
||||
<summary>Laden der Parameterdaten aus parameters.cfg</summary>
|
||||
<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
|
||||
Datei "Parameters.cfg"</remarks>
|
||||
<returns>True im OK-Fall
|
||||
False im Fehlerfall</returns>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.ParamValue(System.String)">
|
||||
<summary>Parameterbezeichnung und Parameterwert trennen</summary>
|
||||
<param name="sinput">Inputstring mit Parameterbezeichnung und
|
||||
Parameterwert</param>
|
||||
<returns>Parameterwert als String</returns>
|
||||
</member><member name="T:EDKB08WS.ClsParameters">
|
||||
<summary>Klasse zum auselesen der Steuerparameter aus der Datei
|
||||
\bin\parameters.cfg</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_indexfilename">
|
||||
<summary>Interne Variable für IndexFilenName</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.IndexFileName">
|
||||
<summary>Enthält der Name der Inputdatei mit den Indexdaten (XML oder
|
||||
TXT)</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_Indexdata">
|
||||
<summary>Interne Variable für IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.Indexdata">
|
||||
<summary>Datentabelle mit den geladenen Indexwerten</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.Splitline">
|
||||
<summary>Temporäre Collection mit den getrennten Indexdaten aus der
|
||||
txt-Input-Datei</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.getindexdata">
|
||||
<summary>Angelieferte Indexdaten auslesen und in die Datentabele Indexdata
|
||||
speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder
|
||||
Komma-getrennte Textdatei auslesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.xmlinput">
|
||||
<summary>XML-Datei als Datatable einlesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Datentabelle_Erstellen">
|
||||
<summary>Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
|
||||
Datensätze eingelesen und zugewiesen werden können</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Indexwerte_Einlesen(System.String)">
|
||||
<summary>Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der
|
||||
Tabelle "Indexdata" speichern</summary>
|
||||
<param name="s">Zeile der Inputdatei (Komma-getrennte Werte)</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Insert_Into_DB(Microsoft.VisualBasic.Collection)">
|
||||
<summary>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.</summary>
|
||||
<param name="data"></param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.SplitDelimitedLine(System.String,System.String,System.String)">
|
||||
<summary>Splitfunktion</summary>
|
||||
<param name="CurrentLine">Input-Zeile</param>
|
||||
<param name="Delimiter">Trennzeichen der einzelnen werte (z.B. Komma,
|
||||
Strichpunkt usw.)</param>
|
||||
<param name="Qualifier">Qualiflyer, welcher die Werte umschliesst (z.B.
|
||||
")</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="T:EDKB08WS.clsIndexData">
|
||||
<summary>Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder
|
||||
Textdatei</summary>
|
||||
<remarks>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.</remarks>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.Export.Create_Report(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>Auswertung erstellen und ggf. mittels DTO versenden</summary>
|
||||
<param name="dt">Datentabelle mit den Auswertungsdaten der Applikation</param>
|
||||
<param name="format">Format der Auswertung (txt, csv, xls, doc, pdf,
|
||||
xml)</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_CSV(System.Data.DataTable)">
|
||||
<summary>Journaldatei als CSV-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_TXT(System.Data.DataTable)">
|
||||
<summary>Journaldatei als TXT-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.CR_Report(System.Data.DataTable,System.String)">
|
||||
<summary>Crystal-Report-Druck</summary>
|
||||
<param name="dt">Datentabelle, welche an Crystal zum Druck übergeben
|
||||
wird</param>
|
||||
<param name="format">Zu Exportierendes Format (XLS, DOC, PDF)</param>
|
||||
</member><member name="T:EDKB08WS.Export">
|
||||
<summary>Funktionen für den Export der Journaldaten</summary>
|
||||
</member><member name="F:EDKB08WS.Main.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Main.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Main.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="M:EDKB08WS.Main.Main">
|
||||
<summary>Steuerroutine für EDKB08</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Verarbeiten">
|
||||
<summary>Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so
|
||||
lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden
|
||||
sind.</summary>
|
||||
<remarks>Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und
|
||||
verarbeitet.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Main.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Main.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="T:EDKB08WS.Main">
|
||||
<summary>EDKB08 - Hauptprogramm</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,19 @@
|
||||
bin\EDKB08WS.exe
|
||||
bin\EDKB08WS.xml
|
||||
bin\EDKB08_GSF.dll
|
||||
bin\System.Web.dll
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\EDKB08WS.Journal1.rpt
|
||||
obj\Release\EDKB08WS.ProjectInstaller.resources
|
||||
obj\Release\EDKB08WS.Service1.resources
|
||||
obj\Release\EDKB08ws.vbproj.GenerateResource.Cache
|
||||
obj\Release\EDKB08WS.exe
|
||||
obj\Release\EDKB08WS.xml
|
||||
obj\Debug\ResolveAssemblyReference.cache
|
||||
obj\Debug\EDKB08WS.Journal1.rpt
|
||||
obj\Debug\EDKB08WS.ProjectInstaller.resources
|
||||
obj\Debug\EDKB08WS.Service1.resources
|
||||
obj\Debug\EDKB08ws.vbproj.GenerateResource.Cache
|
||||
obj\Debug\EDKB08WS.exe
|
||||
obj\Debug\EDKB08WS.xml
|
||||
obj\Debug\EDKB08WS.pdb
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,698 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08WS
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="F:EDKB08WS.Service1.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Service1.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="F:EDKB08WS.Service1.JournalTimer">
|
||||
<summary>Timer zur Auslösung der täglichen Journalaufbereitung</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnStart(System.String[])">
|
||||
<summary>Start des Dienstes EDKB08WS</summary>
|
||||
<remarks>Beim Start des Dienstes werden neben dem Einlesen der Parameter der
|
||||
Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung
|
||||
initialisiert.</remarks>
|
||||
<param name="args"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Service1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Verarbeiten">
|
||||
<summary>Verarbeiten von angelieferten Daten</summary>
|
||||
<remarks>In dieser Methode werden angelieferte Indexdateien verarbeitet.
|
||||
<para></para>
|
||||
<para>Bevor die Verarbeitung startet, wird der Systemfilewacher
|
||||
ausgeschaltet.</para>
|
||||
<para>Die Verarbeitung wird solange durchgeführt, bis alle anstehenden
|
||||
Indexdaten und Dokumente abgearbeitet sind.</para>
|
||||
<para>Am Schluss der Verarbeitung wird der Systemfilewacher wieder
|
||||
gestartet.</para></remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.Send_Mail(System.String,System.String)">
|
||||
<summary>Versand von Journaldaten mittels Email</summary>
|
||||
<param name="filename"></param>
|
||||
<param name="empfaenger"></param>
|
||||
</member><member name="M:EDKB08WS.Service1.get_applikationen">
|
||||
<summary></summary>
|
||||
</member><member name="T:EDKB08WS.Service1">
|
||||
<summary></summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.m_Journalnr">
|
||||
<summary>Interne Variable für das Property JournalNr</summary>
|
||||
</member><member name="P:EDKB08WS.clsJournal.JournalNr">
|
||||
<summary>Property für die JournalNr</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journal">
|
||||
<summary>Variable für die Datenbankklasse clsImport_Job</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.Journaleintrag">
|
||||
<summary>Variable für die Datenbankklasse clsimport_eintrag</summary>
|
||||
</member><member name="F:EDKB08WS.clsJournal.tmptbl">
|
||||
<summary>Interne Variable für das halten einer Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Open_Journal">
|
||||
<summary>Öffnet ein neuer Journaleintrag in der Tabelle Import_Job</summary>
|
||||
<remarks>Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den
|
||||
entsprechenden Einträgen erstellt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Close_Journal">
|
||||
<summary>Schliessen des aktuell geöffneten Verarbeitungsjournales</summary>
|
||||
<remarks>Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle
|
||||
Import_Job nachgeführt</remarks>
|
||||
<seealso cref="M:EDKB08WS.Main.Verarbeiten">Verarbeiten</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Delete_Entry">
|
||||
<summary>Journaleintrag löschen</summary>
|
||||
<remarks>Löscht den Journaleintrag aus der Variabel JournalNr</remarks>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Insert_Journal(System.String,System.String,System.String,System.String,System.String,System.String,System.String,System.String)">
|
||||
<summary>Einfügen eines neuen Journaldatensatzes</summary>
|
||||
<param name="RecNo">Recordnummer der Indexdaten bzw. "" für allgemeine
|
||||
Journaleinträte</param>
|
||||
<param name="Partnernr">Partnernr oder "" für allgemeine
|
||||
Einträge</param>
|
||||
<param name="dateityp">Dateityp der zu importierenden Datei bzw. ""
|
||||
für allgemeine Einträge</param>
|
||||
<param name="dateiname">Index-Dateiname oder Dateiname der zu importierenden
|
||||
Datei</param>
|
||||
<param name="Status">Status Nr</param>
|
||||
<param name="Statustext">Bezeichnung zur Statusnr</param>
|
||||
<param name="EDOKA_Dokumentid">Dokumentid des EDOKA-Dokumentes nach dem Import
|
||||
oder ""</param>
|
||||
<param name="Applikationnr">Fremdschlüssel zur Tabelle FA_APPL</param>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsFA_APPL">edkb08.edokadb.clsFA_APPL</seealso>
|
||||
</member><member name="M:EDKB08WS.clsJournal.Update_Journal">
|
||||
<summary>Ergänzt den Journaleintrag mit der zugehörenden
|
||||
Herkunftsapplikation</summary>
|
||||
<seealso cref="F:EDKB08WS.Globals.Herkunftsapplikation">edkb08.Globals</seealso>
|
||||
</member><member name="T:EDKB08WS.clsJournal">
|
||||
<summary>Funktionen für die Journalisierung der einzelnen
|
||||
Verarbeitungsschritte</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Applikationsdaten">
|
||||
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.AppldataRow">
|
||||
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_edoka">
|
||||
<summary>Verbindung zur Daten EDOKA</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.sConnectionString_journale_Mail">
|
||||
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.args">
|
||||
<summary>Befehlszeilenargumente</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_edoka">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.conn_journale_Mail">
|
||||
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
||||
<seealso cref="T:EDKB08WS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
||||
</member><member name="F:EDKB08WS.Globals.DivFnkt">
|
||||
<summary>Instanz des Objektes DivFnkt</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.ApplData">
|
||||
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
|
||||
fest</summary>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintOut(System.String)">
|
||||
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB08WS.Globals.PrintLog(System.String,System.Diagnostics.EventLogEntryType)">
|
||||
<summary>Eintrag ins EventLog von EDKB08 schreiben</summary>
|
||||
<param name="message"></param>
|
||||
<param name="eventmessage"></param>
|
||||
</member><member name="F:EDKB08WS.Globals.Journal">
|
||||
<summary>Globaler Verweis zur Klasse CLSJournal</summary>
|
||||
</member><member name="F:EDKB08WS.Globals.Herkunftsapplikation">
|
||||
<summary>Daten für der Herkunftsapplikation</summary>
|
||||
<remarks>Diese interne Tabelle enthält die Daten für die Herkunftsapplikation
|
||||
einer Indexdatei</remarks>
|
||||
</member><member name="F:EDKB08WS.Globals.Fehler">
|
||||
<summary>Interne Variable zur Festhaltung von Fehlern</summary>
|
||||
</member><member name="T:EDKB08WS.Globals">
|
||||
<summary>Globale Variablen und FUnktionen</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.m_indexdata">
|
||||
<summary>Interne Variable für das Property IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsCheckandImport.IndexData">
|
||||
<summary>Datentabelle mit den Indexwerten</summary>
|
||||
</member><member name="F:EDKB08WS.clsCheckandImport.TmpTable">
|
||||
<summary>Interne temporöre Datentabelle</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.CheckandImport">
|
||||
<summary>Prüfung der Indexwerte
|
||||
Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA
|
||||
importiert.
|
||||
</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">
|
||||
<summary>Prüft die Indexdaten und löst ggf. den Import des Dokumentes
|
||||
aus.</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="DokImport">True=Dokument importieren False=Dokument nicht
|
||||
importieren (nur plausibilisieren)</param>
|
||||
<param name="datarow">Aktuelle Datarow der Tabelle Indexdata</param>
|
||||
<returns>True=Verarbeitung i.O. False=Verarbeitung fehlerhaft</returns>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Funktion(System.String)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<param name="Fnkt">Gültige Werte sind: ADD, UPD, REPL, DEL</param>
|
||||
<returns>True = Import erfolgreich$EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Partnerzuordnung(System.Int32)">
|
||||
<summary>Prüfung der Partnerzuordnung</summary>
|
||||
<remarks>Mit der Funktion wird abhängig vom angelieferten Wert die
|
||||
Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft.
|
||||
<para></para>
|
||||
<para>Input Partnernummer</para>
|
||||
<para>Direkter Zugriff auf die Tabelle Partner mittels Partnernr</para>
|
||||
<para></para>
|
||||
<para>Input VV-Nr: </para>
|
||||
<para>Umformatierung der VV-Nr und Zugriff auf den VV-Bestand. Sofern die</para>
|
||||
<para>Partnernummer gefunden wird, diese in der Datentabelle nachführen</para>
|
||||
<para></para>
|
||||
<para>Input: Barcode-ID:</para>
|
||||
<para>Zugriff auf die Partnernummer über die Tabelle Dokument mit der
|
||||
geliefertenen EDOKA-BarcodeID</para>
|
||||
<para></para>
|
||||
<para>Input: KST:</para>
|
||||
<para>Zugriff über die Kostenstelle auf den EDOKA-Partner</para></remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Partnerzuordnung i.O.
|
||||
<para>False=Partnerzuordnung nicht i.O.</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_EDOKA_Partner_Erfassen(System.Int32)">
|
||||
<summary>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</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile des Import-Programmes</param>
|
||||
<returns>True = EDOKA-Partner eröffnet
|
||||
<para>False = Daten zur Eröffnung des EDOKA-Partners sind
|
||||
unvollständig</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Check_Dokumentdaten(System.Int32)">
|
||||
<summary>Prüft die dokumentspezifischen Werte und das Vorhandensein des
|
||||
physischen Dokumentes</summary>
|
||||
<remarks>Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten
|
||||
Dokumente:
|
||||
<list type="bullet">
|
||||
<item>
|
||||
<description>Gültiges Dokumentformant (DOC, XLS, TIF, PDF,
|
||||
JPG</description></item>
|
||||
<item>
|
||||
<description>Vorhandensein des Dokumentes im
|
||||
Importverzeichnis</description></item>
|
||||
<item>
|
||||
<description>Dokumenttyp</description></item></list></remarks>
|
||||
<param name="datarow">Zeile in der Tabelle Indexdata</param>
|
||||
<returns>True=Dokumentwerte i.O.
|
||||
<para>False=Dokumentwerte nicht i.O.</para></returns>
|
||||
<author>Stefan Hutter</author>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Checkdata(System.Boolean,System.Int32)">Checkdata</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Note(System.String,System.String)">
|
||||
<summary>Notiz zu einem Dokument hinzufügen</summary>
|
||||
<remarks>Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz
|
||||
hinzu</remarks>
|
||||
<param name="dokumentid">Aktuelle Dokumentid</param>
|
||||
<param name="meldung">Meldung / Notiz</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">
|
||||
<summary>Auslesen der Daten "Herkunftsapplikation" und in der internen Variable
|
||||
Herkunftsapplikationen zwischenspeichern</summary>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Herkunftsapplikation(System.Int32)">
|
||||
<summary>Auslesen der Herkunftsapplikation anhand des Dokumenttyps</summary>
|
||||
<param name="i">Aktueller Datensatz aus den Indexdaten</param>
|
||||
<returns>"" = Herkunftsapplikation nicht vorhanden$EOL$
|
||||
<para>"[Bezeichnung] = Herkunftsapplikation vorhanden</para></returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Herkunftsapplikationen_auslesen">Herkuftsapplikation_auslesen</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Import_Dokument(System.Int32)">
|
||||
<summary>Importiert ein Dokument nach EDOKA</summary>
|
||||
<remarks>Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>$EOL$ $EOL$ Tabelle</term>
|
||||
<description>$EOL$ Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokument</term>
|
||||
<description>$EOL$ Dokumentbeschreibung</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentstatus</term>
|
||||
<description>$EOL$ Statussequenz des Dokumentes. Dabei werden alle Status bis
|
||||
zum ersten archivierungs-relevanten Status gesetzt. $EOL$
|
||||
<para></para>
|
||||
<para>$EOL$ </para>
|
||||
<para>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.</para></description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentcoldindexwert</term>
|
||||
<description>$EOL$ Tabelle mit den COLD-relevanten
|
||||
Indexinformationen</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Dokumentwerte</term>
|
||||
<description>$EOL$ Tabelle mit den individuellen
|
||||
Dokumentwerten</description></item>
|
||||
<item>
|
||||
<term>$EOL$ $EOL$ Notizen</term>
|
||||
<description>$EOL$ Notiz, dass das Dokument über die Import-Schnittstelle im
|
||||
EDOKA eingefügt wurde</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
<returns>True = Import erfolgreich $EOL$
|
||||
<para>False = Import fehlgeschalgen</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer(System.Int32)">
|
||||
<summary>FA-Nummer 1-3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer1</term>
|
||||
<description>Bezeichnung der Applikatoin</description></item>
|
||||
<item>
|
||||
<term>FANummer2</term>
|
||||
<description>Dokumentname</description></item>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_FANummer_Barcodeimport(System.Int32)">
|
||||
<summary>FA-Nummer 3 in EDOKA ergänzen</summary>
|
||||
<remarks>Setzt für die Fremdanwendung die Felder
|
||||
<list type="table">
|
||||
<listheader>
|
||||
<term>Feld</term>
|
||||
<description>Beschreibung</description></listheader>
|
||||
<item>
|
||||
<term>FANummer3</term>
|
||||
<description>Geschäftsfallnummer</description></item></list></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdatei</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_in_DB_Sichern(System.String,System.Int32)">
|
||||
<summary>Löst das Importieren des Original-Dokumentes in die Datenbank
|
||||
aus</summary>
|
||||
<remarks>Die Methode löst das Importieren des Origianldokumentes in die
|
||||
EDOKA-Datenbank aus</remarks>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Improt erfolgreich, False=Import fehlgeschlagen</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">clsDivFnkt.Save_To_DB(System.String,
|
||||
System.String)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Dokumenttypnr(System.Int32)">
|
||||
<summary>EDOKA-Dokumenttypnr auslesen</summary>
|
||||
<remarks>Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp
|
||||
aus.</remarks>
|
||||
<param name="datarow">Aktuelle Datenzeile der Indexdaten</param>
|
||||
<returns>Dokumenttypnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Cold_Werte(System.Int32)">
|
||||
<summary>Auslesen von Coldschema und -Folder</summary>
|
||||
<param name="dokumenttypnr">Dokumenttypnr des aktuellen Dokumentes</param>
|
||||
<returns>Datatable mit den COLD-Werten</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.COLD_Index_Sichern(System.Int32,System.String)">
|
||||
<summary>Coldindex zum erstellen Dokument erstellen und speichern</summary>
|
||||
<param name="indextyp">Standard 1</param>
|
||||
<param name="dokumentid">Dokumentid des aktuellen Dokumentes</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_DokumentColdIndexwert(System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Dokument Cold Indexwert anpassen</summary>
|
||||
<remarks>Führt einen Wert in der Tabelle Dokumentcoldindexwert nach</remarks>
|
||||
<param name="dokumentid">DokumentID des aktuellend Dokumentes</param>
|
||||
<param name="Indextyp">1 für Ausgangsarchivierung
|
||||
<para>2 für Ausgangsarchivierung</para></param>
|
||||
<param name="indexfeld">Nummer des Indexfeldes</param>
|
||||
<param name="wert">Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_Dokumentwerte(System.Int32)">
|
||||
<summary>Edoka-spezifische Dokumentwerte nachführen</summary>
|
||||
<remarks>Führt folgende Daten in den Dokumentwerten hinzu
|
||||
<para>- Herkunftsapplikation</para>
|
||||
<para>- Archivreferenz</para>
|
||||
<para>- Listen-Empfänger MA/KST/NL</para>
|
||||
<para>- Individuelle Dokumentwerte der Fremdanwendung</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentwert_Sichern(System.String,System.Int32)">
|
||||
<summary>Edoka-spezifischer Dokumentwert auf der Datenbank sichern</summary>
|
||||
<param name="wert">Inhalt</param>
|
||||
<param name="feldnr">Feldnummer</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokumentstatus_erstellen_und_Status_Setzen(System.Int32,System.Boolean,System.Int32)">
|
||||
<summary>Erstellen der Dokumentstatus und eintragen der entsprechenden
|
||||
Statushistory-Einträge</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Status, welcher im Dokument unter "Statusnr" nachgeführt
|
||||
wird</returns>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.String)">edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32)</seealso>
|
||||
<seealso cref="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">edkb08.clsCheckandImport.insert_history_status(System.Int32,
|
||||
System.String, System.Int32, System.DateTime)</seealso>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Create_Dokumentstatus(System.Int32,System.Int32)">
|
||||
<summary>Dokumentstatus für das zu erstellende Dokument generieren</summary>
|
||||
<remarks>Erstellt die Dokumentstatus gem. Statussequenz des
|
||||
Dokumenttyps</remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>Datatable</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">
|
||||
<summary>Alle Dokumentstatus eines Dokumentes lesen</summary>
|
||||
<remarks>Diese Funktion liest alle Dokumentstatus eines Dokumentes</remarks>
|
||||
<param name="datarow">Aktuelle Ziele der Indexdaten</param>
|
||||
<returns>Datatable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Get_EDOKA_Mitarbeiter(System.Int32)">
|
||||
<summary>Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten
|
||||
TG-Nummer</summary>
|
||||
<param name="datarow">Aktuelle Import-Datenzeile</param>
|
||||
<returns>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</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_history_status(System.Int32,System.String,System.Int32,System.DateTime)">
|
||||
<summary>Statushistory nachführen</summary>
|
||||
<remarks>Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments
|
||||
die Statushistory nach</remarks>
|
||||
<param name="statusnr">Nummer des Status</param>
|
||||
<param name="dokumentid">EDOKA-DokumentID</param>
|
||||
<param name="Verantwortlicher">Verantwortlicher Mitarbeiter</param>
|
||||
<param name="datumzeit">Timestamp</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Delete_Dokument(System.Int32)">
|
||||
<summary>Löschung des Dokumentes, abhängig vom Übergabewert (Dokumentid oder
|
||||
Dokumentname) auslösen</summary>
|
||||
<remarks>Abhängig vom Übergabeparameter Dokumentid (Indexfeld 23) oder
|
||||
Dateiname, wird das Löschen bzw. Aufheben des Dokumentes ausgelöst.
|
||||
<para>Im Falle der Übergabe des Dateinamens, ist sicher gestellt, dass ein
|
||||
Dokument nur dann gelöscht wird, wenn der Dateiname eindeutig verwendet
|
||||
wurde.</para></remarks>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung durchgeführt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Dokument_Loeschen(System.String,System.Int32)">
|
||||
<summary>Dokument löschen bzw. aufheben</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">DokumentID des zu löschenden Dokumentes</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Löschung erfolgt
|
||||
<para>False=Löschung nicht durchgeführt</para></returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_status(System.String)">
|
||||
<summary>Auselesen des letzten Status in der Seqeunz des zu löschenden
|
||||
Dokumentes</summary>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden Dokumentes</param>
|
||||
<returns>Status_Bezeichnungnr</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.set_aufgehoben(System.String)">
|
||||
<summary>Dokument aufheben</summary>
|
||||
<param name="dokumentid">Dokumentid des aufzuhebenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_coldindex_and_statusnr(System.String,System.Boolean,System.Boolean)">
|
||||
<summary>SColdindex und Aufhebungsstatus des eines zu löschenden bzw.
|
||||
aufzuhebenden Dokumentes auslesen</summary>
|
||||
<remarks>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.</remarks>
|
||||
<param name="dokumentid">Dokumentid des zu löschenden / aufzuhebenden
|
||||
Dokumentes</param>
|
||||
<param name="aufheben">True=Dokument aufheben
|
||||
<para>False=Dokument nicht aufheben</para></param>
|
||||
<param name="reaktivieren">True=Aufgehobenes Dokument reaktivieren
|
||||
<para>False=Keine Dokumentreaktivierung</para></param>
|
||||
<returns>Datentable mit den Dokumentstatus</returns>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.insert_coldupdate_status(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>AGI-COLD-Dokument-Status ändern</summary>
|
||||
<remarks>Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter
|
||||
"neuerstatus"</remarks>
|
||||
<param name="dt">Datentabelle mit Cold-Index-Werten</param>
|
||||
<param name="dokumentid">DokumentID</param>
|
||||
<param name="neuerstatus">Neuer Status der entsprechenden COLD-Dokumente</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Insert_ColdUpdate(System.String,System.String,System.Int32,System.Int32,System.String)">
|
||||
<summary>Tabelle COLD-Update mit Updates ergänzen</summary>
|
||||
<param name="dokumentid">DokumentID des EDOKA-Dokumentes</param>
|
||||
<param name="colddokumentid">DokumentID des COLD-Bildes</param>
|
||||
<param name="indextyp">1=Ausgangsarchiviertes Dokumente
|
||||
<para>2=Eingangarchiviertes Dokumente</para></param>
|
||||
<param name="feldnr">Feldnr des Feldes im Cold-Index</param>
|
||||
<param name="wert">Neuer Wert</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.Update_Dokumentwerte(System.Int32)">
|
||||
<summary>Dokumentwerte eines Dokumentes updaten</summary>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.ist_archiviert(System.String)">
|
||||
<summary>Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde</summary>
|
||||
<param name="dokumentid">Dokumentid des zu prüfenden Dokumentes</param>
|
||||
</member><member name="M:EDKB08WS.clsCheckandImport.get_edoka_dokument(System.Int32,System.String,System.Int32)">
|
||||
<summary>Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank</summary>
|
||||
<param name="fnkt">1=Prüfung anhand einer EDOKA_Dokumentid
|
||||
<para>2=Prüfung anhand des Dateinamens</para></param>
|
||||
<param name="wert">EDOKA_DokumentID oder Dateiname</param>
|
||||
<param name="datarow">Aktuelle Zeile der Indexdaten</param>
|
||||
<returns>True=Dokument gefunden und es kann gelöscht werden
|
||||
<para>False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die
|
||||
Suche mittels Dateiname mehrere Treffer ergab</para></returns>
|
||||
</member><member name="T:EDKB08WS.clsCheckandImport">
|
||||
<summary>Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in
|
||||
EDOKA</summary>
|
||||
<remarks>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</remarks>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Generate_Key">
|
||||
<summary>Generieren der EDOKA-DokumentID</summary>
|
||||
<remarks>Diese Methode generiert eine neue eindeutige, 22-stellige
|
||||
EDOKA-Dokumentid. $EOL$
|
||||
<para>Die Letzte ziffer ist eine Prüfziffer</para></remarks>
|
||||
<returns>DokumentID für EDOKA</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">Prüfziffer-Berechnung</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Pruefziffer(System.String)">
|
||||
<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
|
||||
<param name="zahl">Dokumentid ohne Präfix</param>
|
||||
<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
|
||||
<seealso cref="M:EDKB08WS.clsDivFnkt.Generate_Key">EDKB08.clsDivFnkt</seealso>
|
||||
</member><member name="M:EDKB08WS.clsDivFnkt.Save_To_DB(System.String,System.String,System.Boolean)">
|
||||
<summary>Dokumen in der EDOKA-Datenbank speichern</summary>
|
||||
<remarks>Die Funktion speichert ein Dokument des Filesystems in die
|
||||
EDOKA-Datenbank Tabelle DOKS</remarks>
|
||||
<param name="sDokumentID">DEDOKA-Dokumentid</param>
|
||||
<param name="sDokumentName">Origianl-Dokumentname (Fullpath)</param>
|
||||
<returns>True=Speichern erfolgreich, False=Speichern fehlgeschalgen</returns>
|
||||
</member><member name="T:EDKB08WS.clsDivFnkt">
|
||||
<summary>Diverse allgemeine Funktionen</summary>
|
||||
<remarks>Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus
|
||||
diversen anderen Klassen genutzt werden.$EOL$
|
||||
<para>Die Instanzierung der Klasse erfolgt über das Module <see cref="T:EDKB08WS.Globals">Globals.vb</see></para></remarks>
|
||||
<seealso cref="F:EDKB08WS.Globals.DivFnkt">Globals.DivFnkt</seealso>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.ofile">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.oread">
|
||||
<summary>Interne Variable zum Auslesen der Datei</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_applicationid">
|
||||
<summary>Interne Variable für das Property Application ID</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.ApplicationID">
|
||||
<summary>ApplikationsID für die Journalisierung</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_Inputverzeichnis">
|
||||
<summary>Interne Variable für das Property Inputverzeichnis</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Inputverzeichnis">
|
||||
<summary>Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert
|
||||
sind</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseOK">
|
||||
<summary>Interne Variable für das Property MailadresseOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseOK">
|
||||
<summary>EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung
|
||||
ordnungsgemäss durchgelaufen ist</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_MailadresseNOK">
|
||||
<summary>Interne Variable für das Property MailadresseNOK</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.MailAdresseNOK">
|
||||
<summary>Mailadresse, an die im Fehlerfall ein Mail gesendet wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_meldung">
|
||||
<summary>Interne Variable für das Property Meldung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Meldung">
|
||||
<summary>Allfälliger Meldungstext, welcher beim Laden der Parameter generiert
|
||||
wird</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_temppfad">
|
||||
<summary>Interne Variable für das Property Temppfad</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.TempPfad">
|
||||
<summary>Pfad für temporäre Dateien</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_mailserver">
|
||||
<summary>Interne Variable für das Property Mailserver</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Mailserver">
|
||||
<summary>SMTP-Mailserver für den Journalversand</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_journaltimer_time">
|
||||
<summary>Interne Variable für das Property Journaltimer_time</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.JournalTimer_Time">
|
||||
<summary>Journaltimer-Zeit in Milisekunden</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_deleteoriginalfiles">
|
||||
<summary>Interne Variable für das Property DeleteOriginalfiles</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.DeleteOriginalfiles">
|
||||
<summary>DeleteOriginalfiles</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigPath">
|
||||
<summary>Interne Variable für das Property GSF Config File Path</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigPath">
|
||||
<summary>gsf ConfigPath</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_TimerInterval">
|
||||
<summary>Interne Variable für das Property GSF Timer Intervall</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_TimerInterval">
|
||||
<summary>gsf Timer Interval</summary>
|
||||
</member><member name="F:EDKB08WS.ClsParameters.m_gsf_ConfigDateiendung">
|
||||
<summary>Interne Variable für das Property GSF DateiEndung</summary>
|
||||
</member><member name="P:EDKB08WS.ClsParameters.Prop_gsf_ConfigDateiendung">
|
||||
<summary>gsf DateiEndung</summary>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.Loadparameters">
|
||||
<summary>Laden der Parameterdaten aus parameters.cfg</summary>
|
||||
<remarks>Die Funktion lädt für die Anwendung die notwendigen Parameter aus der
|
||||
Datei "Parameters.cfg"</remarks>
|
||||
<returns>True im OK-Fall
|
||||
False im Fehlerfall</returns>
|
||||
</member><member name="M:EDKB08WS.ClsParameters.ParamValue(System.String)">
|
||||
<summary>Parameterbezeichnung und Parameterwert trennen</summary>
|
||||
<param name="sinput">Inputstring mit Parameterbezeichnung und
|
||||
Parameterwert</param>
|
||||
<returns>Parameterwert als String</returns>
|
||||
</member><member name="T:EDKB08WS.ClsParameters">
|
||||
<summary>Klasse zum auselesen der Steuerparameter aus der Datei
|
||||
\bin\parameters.cfg</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_indexfilename">
|
||||
<summary>Interne Variable für IndexFilenName</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.IndexFileName">
|
||||
<summary>Enthält der Name der Inputdatei mit den Indexdaten (XML oder
|
||||
TXT)</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.m_Indexdata">
|
||||
<summary>Interne Variable für IndexData</summary>
|
||||
</member><member name="P:EDKB08WS.clsIndexData.Indexdata">
|
||||
<summary>Datentabelle mit den geladenen Indexwerten</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="F:EDKB08WS.clsIndexData.Splitline">
|
||||
<summary>Temporäre Collection mit den getrennten Indexdaten aus der
|
||||
txt-Input-Datei</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.getindexdata">
|
||||
<summary>Angelieferte Indexdaten auslesen und in die Datentabele Indexdata
|
||||
speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder
|
||||
Komma-getrennte Textdatei auslesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.xmlinput">
|
||||
<summary>XML-Datei als Datatable einlesen</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Datentabelle_Erstellen">
|
||||
<summary>Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten
|
||||
Datensätze eingelesen und zugewiesen werden können</summary>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Indexwerte_Einlesen(System.String)">
|
||||
<summary>Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der
|
||||
Tabelle "Indexdata" speichern</summary>
|
||||
<param name="s">Zeile der Inputdatei (Komma-getrennte Werte)</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.Insert_Into_DB(Microsoft.VisualBasic.Collection)">
|
||||
<summary>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.</summary>
|
||||
<param name="data"></param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.clsIndexData.SplitDelimitedLine(System.String,System.String,System.String)">
|
||||
<summary>Splitfunktion</summary>
|
||||
<param name="CurrentLine">Input-Zeile</param>
|
||||
<param name="Delimiter">Trennzeichen der einzelnen werte (z.B. Komma,
|
||||
Strichpunkt usw.)</param>
|
||||
<param name="Qualifier">Qualiflyer, welcher die Werte umschliesst (z.B.
|
||||
")</param>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="T:EDKB08WS.clsIndexData">
|
||||
<summary>Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder
|
||||
Textdatei</summary>
|
||||
<remarks>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.</remarks>
|
||||
<author>Stefan Hutter</author>
|
||||
</member><member name="M:EDKB08WS.Export.Create_Report(System.Data.DataTable,System.String,System.String)">
|
||||
<summary>Auswertung erstellen und ggf. mittels DTO versenden</summary>
|
||||
<param name="dt">Datentabelle mit den Auswertungsdaten der Applikation</param>
|
||||
<param name="format">Format der Auswertung (txt, csv, xls, doc, pdf,
|
||||
xml)</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_CSV(System.Data.DataTable)">
|
||||
<summary>Journaldatei als CSV-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.Extract_TXT(System.Data.DataTable)">
|
||||
<summary>Journaldatei als TXT-Datei erstellen</summary>
|
||||
<param name="dt">Journaldaten</param>
|
||||
</member><member name="M:EDKB08WS.Export.CR_Report(System.Data.DataTable,System.String)">
|
||||
<summary>Crystal-Report-Druck</summary>
|
||||
<param name="dt">Datentabelle, welche an Crystal zum Druck übergeben
|
||||
wird</param>
|
||||
<param name="format">Zu Exportierendes Format (XLS, DOC, PDF)</param>
|
||||
</member><member name="T:EDKB08WS.Export">
|
||||
<summary>Funktionen für den Export der Journaldaten</summary>
|
||||
</member><member name="F:EDKB08WS.Main.Watch_Directory">
|
||||
<summary>Variable mit dem Namen des zu überwachenden Verzeichnises</summary>
|
||||
</member><member name="F:EDKB08WS.Main.FileWatch">
|
||||
<summary>FileSystemWatcher</summary>
|
||||
<remarks>Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis
|
||||
(Watch_Directory)</remarks>
|
||||
</member><member name="F:EDKB08WS.Main.indexdata">
|
||||
<summary>Varaible zum Zwischenspeichern der Indexdaten einer
|
||||
Indexdaten-Datei</summary>
|
||||
</member><member name="M:EDKB08WS.Main.Main">
|
||||
<summary>Steuerroutine für EDKB08</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Verarbeiten">
|
||||
<summary>Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so
|
||||
lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden
|
||||
sind.</summary>
|
||||
<remarks>Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und
|
||||
verarbeitet.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Logdatei_Erstellen">
|
||||
<summary>Journaldatei erstellen und je nach Applikationseinstellungen
|
||||
versenden</summary>
|
||||
<remarks>Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und
|
||||
sendet diese mittels Mail bzw. mittls DTO weiter</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Send_DTO(System.String)">
|
||||
<summary>DTO-Versand</summary>
|
||||
<param name="filename"></param>
|
||||
</member><member name="M:EDKB08WS.Main.Init_Filewatcher">
|
||||
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||
Dateifilter-Angaben initialisiert.</remarks>
|
||||
</member><member name="M:EDKB08WS.Main.Start_Watching">
|
||||
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||
</member><member name="M:EDKB08WS.Main.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||
<remarks>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</remarks>
|
||||
<param name="source"></param>
|
||||
<param name="e"></param>
|
||||
</member><member name="T:EDKB08WS.Main">
|
||||
<summary>EDKB08 - Hauptprogramm</summary>
|
||||
<remarks>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.</remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Binary file not shown.
12
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/parameters.cfg
Normal file
12
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/parameters.cfg
Normal file
@@ -0,0 +1,12 @@
|
||||
Applikation-ID =10
|
||||
Filepfad =C:\D\edoka\edkb08
|
||||
Temppfad =C:\D\edoka\edkb08
|
||||
Journaltimer in Minuten =60
|
||||
Mail-Absender =administrator@test24.ch
|
||||
SMTP-Server =
|
||||
DeleteOriginalfiles =1
|
||||
Mailadresse_OK =administrator@test24.ch
|
||||
Mailadresse_NOK =administrator@test24.ch
|
||||
GSF_ConfigFiles =C:\D\edoka\edkb08
|
||||
GSF_Timer in Minuten =15
|
||||
GSF_Conf_Dateiendung =xml
|
||||
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/vssver.scc
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08WS/2.0/EDKB08ws/vssver.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user