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

Initial commit

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

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

Binary file not shown.

0
EDKB16WS/.vs/EDKB16WS/v16/Server/sqlite3/db.lock Normal file
View File

BIN
EDKB16WS/.vs/EDKB16WS/v16/Server/sqlite3/storage.ide Normal file
View File

Binary file not shown.

25
EDKB16WS/EDKB16WS.sln Normal file
View File

@@ -0,0 +1,25 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29728.190
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB16WS", "EDKB16WS\EDKB16WS.vbproj", "{8037E310-5678-4D08-B899-B93B11334D87}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8037E310-5678-4D08-B899-B93B11334D87}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8037E310-5678-4D08-B899-B93B11334D87}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8037E310-5678-4D08-B899-B93B11334D87}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8037E310-5678-4D08-B899-B93B11334D87}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {41D0894F-CB68-4600-97C7-5E41BA0F8675}
EndGlobalSection
EndGlobal

39
EDKB16WS/EDKB16WS/App.config Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="EDKB16ws.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<EDKB16ws.My.MySettings>
<setting name="ConnectionString_EDOKA" serializeAs="String">
<value>data source=shu00;initial catalog=edoka;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="Check_Timerintervall" serializeAs="String">
<value>20000</value>
</setting>
<setting name="DebugMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="ConnectionString_AVQ" serializeAs="String">
<value>Data Source=TATG11.TGKB;User ID=tkb$i_edoka; Password=Edoka1234$1; Integrated Security=no;</value>
</setting>
<setting name="ConnectionString_EDOKAJournale" serializeAs="String">
<value>data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="MailEmpfaenger" serializeAs="String">
<value>stefan.hutter@tkb.ch</value>
</setting>
<setting name="DebugFile" serializeAs="String">
<value>k:\edoka\edkb16.log</value>
</setting>
<setting name="UseORetvalue" serializeAs="String">
<value>True</value>
</setting>
</EDKB16ws.My.MySettings>
</userSettings>
</configuration>

145
EDKB16WS/EDKB16WS/EDKB16WS.vbproj Normal file
View File

@@ -0,0 +1,145 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8037E310-5678-4D08-B899-B93B11334D87}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Sub Main</StartupObject>
<RootNamespace>EDKB16ws</RootNamespace>
<AssemblyName>EDKB16ws</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EDKB16ws.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EDKB16ws.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Data.OracleClient">
<Private>True</Private>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Globals.vb" />
<Compile Include="Klassen\clsApplikation.vb" />
<Compile Include="Klassen\clsAvq.vb" />
<Compile Include="Klassen\clsConnectionProvider.vb" />
<Compile Include="Klassen\clsDB.vb" />
<Compile Include="Klassen\clsDBInteractionBase.vb" />
<Compile Include="Klassen\clsDivFnkt.vb" />
<Compile Include="Klassen\clsJournal.vb" />
<Compile Include="Klassen\clsJournaleintrag.vb" />
<Compile Include="Klassen\clsLog.vb" />
<Compile Include="Klassen\db_connection.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.Designer.vb">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Service1.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Service1.Designer.vb">
<DependentUpon>Service1.vb</DependentUpon>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Service1.resx">
<DependentUpon>Service1.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config">
<SubType>Designer</SubType>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

90
EDKB16WS/EDKB16WS/Globals.vb Normal file
View File

@@ -0,0 +1,90 @@
Imports System.IO
Imports System.Reflection
'''<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
Public appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
'''<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
Public sConnectionstring_Avaloq As String
Public MailBody 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 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 CONFIG = "Release" Then
' If Not EventLog.SourceExists("EDKB08") Then
' EventLog.CreateEventSource("EDKB08", "EDKB08 Log")
' End If
' EVLog.Source = "EDKB08 Log"
' EventLog.WriteEntry(EVLog.Source, message, eventmessage)
#Else
#End If
End Sub
End Module

449
EDKB16WS/EDKB16WS/Klassen/clsApplikation.vb Normal file
View File

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

261
EDKB16WS/EDKB16WS/Klassen/clsAvq.vb Normal file
View File

@@ -0,0 +1,261 @@
Imports System
Imports System.Data
Imports System.Data.OracleClient
Namespace Avaloq
Public Class SST
Const queryString As String = "k.tkb$out_dsp_in#.edoka#trigger_prc"
Const queryStringGetValues As String = "k.tkb$out_dsp_in#.edoka_get_values"
Const queryStringOpenSession As String = "k.session#.open_session"
Const queryStringCloseSession As String = "k.session#.close_session"
Const avqOracleUser As String = "TKB$I_EDOKA"
Const avqSecUserId As Integer = 34
Const avqBuId As Integer = 1
Const edkFaDokTyp As String = "1688"
'Const edkDokBezeichnungKey As String = "edk_bez"
'Const edkDokBezeichnungDflt As String = "Antworttalon"
Dim connStrg As String
Private _hasErrors As Boolean
Private _dlvEDK As Boolean
Private _dlvAVQ As Boolean
Private _edkDokNr As String
Private _edkDokTypOvr As Boolean
Private _edkDokBezeichnung As String
Private _qrcode As String
Private _bpnr As String
Private m_Obj_nr As String
Private m_Obj_Type_id As Integer
Private m_Trig_Obj_id As String
Private m_Dok_Typ_id As String
Private m_Dok_Status_ID As Integer
Private m_Script_ID As Integer
Private m_Instructions As String
Private m_err_desc As String
Dim clslog As New clsLog
Public Sub New()
'connStrg = My.Settings.Avaloq_Connection
connStrg = Globals.sConnectionstring_Avaloq
End Sub
Public ReadOnly Property hasErrors() As Boolean
Get
Return _hasErrors
End Get
End Property
Public Property obj_nr As Long
Get
Return m_Obj_nr
End Get
Set(value As Long)
m_Obj_nr = value
End Set
End Property
Public Property Obj_Type_ID As Integer
Get
Return m_Obj_Type_id
End Get
Set(value As Integer)
m_Obj_Type_id = value
End Set
End Property
Public Property Trig_Obj_ID As String
Get
Return m_Trig_Obj_id
End Get
Set(value As String)
m_Trig_Obj_id = value
End Set
End Property
Public Property Dok_typ_id As Integer
Get
Return m_Dok_Typ_id
End Get
Set(value As Integer)
m_Dok_Typ_id = value
End Set
End Property
Public Property Dok_Status_ID
Get
Return m_Dok_Status_ID
End Get
Set(value)
m_Dok_Status_ID = value
End Set
End Property
Public Property Script_ID As Integer
Get
Return m_Script_ID
End Get
Set(value As Integer)
m_Script_ID = value
End Set
End Property
Public Property Instructions As String
Get
Return m_Instructions
End Get
Set(value As String)
m_Instructions = value
End Set
End Property
Public Property Error_Description As String
Get
Return m_err_desc
End Get
Set(value As String)
m_err_desc = value
End Set
End Property
Public Sub SendData()
Me.Error_Description = ""
_hasErrors = True
clslog.Writelog("Avaloq-Aufruf OpenSession: ")
clslog.Writelog("- avqSecUserID" + avqSecUserId.ToString)
clslog.Writelog("- avqOracleUser" + avqOracleUser)
clslog.Writelog("- avqBUID" + avqBuId.ToString)
Dim dataReader As OracleDataReader
Dim connectionSession As New OracleConnection
connectionSession.ConnectionString = connStrg
Dim command As OracleCommand = connectionSession.CreateCommand()
command.Parameters.Clear()
command.CommandText = queryStringOpenSession
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(New OracleParameter("i_sec_user_id", OracleType.Int32)).Value = avqSecUserId
command.Parameters.Add(New OracleParameter("i_oracle_user", OracleType.VarChar)).Value = avqOracleUser
command.Parameters.Add(New OracleParameter("i_bu_id", OracleType.Int32)).Value = avqBuId
Try
connectionSession.Open()
command.ExecuteReader()
Catch ex As Exception
clslog.Writelog("- OpenSession Failed: " + ex.Message, 1)
If connectionSession.State = ConnectionState.Closed Then
connectionSession.Open()
command.ExecuteReader()
End If
End Try
clslog.Writelog("Avaloq edoka#trigger_prc ")
command.Parameters.Clear()
command.CommandText = queryString
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(New OracleParameter("i_obj_nr", OracleType.Number)).Value = Me.obj_nr
command.Parameters.Add(New OracleParameter("i_obj_type_id", OracleType.Number)).Value = Me.Obj_Type_ID
command.Parameters.Add(New OracleParameter("i_trig_obj_id", OracleType.VarChar, 22)).Value = Me.Trig_Obj_ID
command.Parameters.Add(New OracleParameter("i_dok_typ_id", OracleType.Number)).Value = Me.Dok_typ_id
command.Parameters.Add(New OracleParameter("i_dok_status_id", OracleType.Number)).Value = Me.Dok_Status_ID
command.Parameters.Add(New OracleParameter("i_script_id", OracleType.Number)).Value = Me.Script_ID
command.Parameters.Add(New OracleParameter("i_instructions", OracleType.VarChar)).Value = Me.Instructions
command.Parameters.Add(New OracleParameter("o_ret_val", OracleType.Char, 4000)).Direction = ParameterDirection.Output
If My.Settings.UseORetvalue = "True" Then
command.Parameters.Add(New OracleParameter("o_err_desc", OracleType.VarChar, 1024)).Direction = ParameterDirection.Output
End If
clslog.Writelog("- " + command.Parameters(0).ParameterName + ": " + command.Parameters(0).Value.ToString)
clslog.Writelog("- " + command.Parameters(1).ParameterName + ": " + command.Parameters(1).Value.ToString)
clslog.Writelog("- " + command.Parameters(2).ParameterName + ": " + command.Parameters(2).Value.ToString)
clslog.Writelog("- " + command.Parameters(3).ParameterName + ": " + command.Parameters(3).Value.ToString)
clslog.Writelog("- " + command.Parameters(4).ParameterName + ": " + command.Parameters(4).Value.ToString)
clslog.Writelog("- " + command.Parameters(5).ParameterName + ": " + command.Parameters(5).Value.ToString)
clslog.Writelog("- " + command.Parameters(6).ParameterName + ": " + command.Parameters(6).Value.ToString)
clslog.Writelog("- " + command.Parameters(7).ParameterName + ": " + command.Parameters(6).Value.ToString)
clslog.Writelog("-")
clslog.Writelog("- Open")
Try
If connectionSession.State = ConnectionState.Open Then
Else
connectionSession.Open()
End If
clslog.Writelog("Execute Reader")
dataReader = command.ExecuteReader()
dataReader.Read()
clslog.Writelog("Execute Reader - Result: " + Trim(command.Parameters.Item(7).Value.ToString))
'clslog.Writelog("Return-Len: " + Str(Len(command.Parameters.Item(7).Value.ToString)))
Dim result As String = Trim(command.Parameters.Item(7).Value)
If result = "OK" Then
_hasErrors = False
Else
_hasErrors = True
If My.Settings.UseORetvalue = "True" Then
Me.Error_Description = command.Parameters.Item(8).Value
End If
End If
connectionSession = Nothing
dataReader = Nothing
command = Nothing
Catch ex As Exception
clslog.Writelog("avq Send_data failed: " + ex.Message, 1)
Console.WriteLine(ex.Message)
If connectionSession.State = ConnectionState.Open Then
command.Parameters.Clear()
command.CommandText = "k.session#.close_session"
command.CommandType = CommandType.StoredProcedure
Try
dataReader = command.ExecuteReader()
clslog.Writelog("Close Avaloq-Connections usw. ")
dataReader.Close()
dataReader.Dispose()
connectionSession.Close()
connectionSession.Dispose()
'ACHTUNG
dataReader.Read()
dataReader.Close()
dataReader.Dispose()
Catch ex1 As Exception
End Try
command.Dispose()
connectionSession.Close()
connectionSession.Dispose()
Console.WriteLine(connectionSession.State)
End If
End Try
End Sub
End Class
End Namespace

289
EDKB16WS/EDKB16WS/Klassen/clsConnectionProvider.vb Normal file
View File

@@ -0,0 +1,289 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Connection Provider class for Database connection sharing
' // Generated by LLBLGen v1.2.1045.38210 Final on: 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

136
EDKB16WS/EDKB16WS/Klassen/clsDB.vb Normal file
View File

@@ -0,0 +1,136 @@
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsDB
Public EDOKA_Data As New DataTable
Public AVQ_Data As New DataTable
Dim clslog As New clsLog
Public Sub Get_Edoka_data()
EDOKA_Data.Rows.Clear()
AVQ_Data.Rows.Clear()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
'Dim conn As New SqlConnection(My.Settings.EDOKA_Connection)
Dim conn As New SqlConnection(Globals.sConnectionString_edoka)
Dim i As Integer
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "sp_avaloq_document_docm"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokument_docmnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
sdaAdapter.Fill(EDOKA_Data)
Catch ex As Exception
clslog.Writelog("SP_Avaloq_Dokument_Docm 1: " + ex.Message, 1)
Throw New Exception("sp_avaloq_dokument_docm::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Sub
Public Function Get_AVQ_Data(ByVal dokument_docmnr As Integer, ByVal Dokumentid As String) As Boolean
AVQ_Data.Rows.Clear()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
'Dim conn As New SqlConnection(My.Settings.EDOKA_Connection)
Dim conn As New SqlConnection(Globals.sConnectionString_edoka)
Dim i As Integer
scmCmdToExecute.CommandText = "sp_avaloq_docm"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokument_docmnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokument_docmnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@oreturn", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sdaAdapter.Fill(AVQ_Data)
If scmCmdToExecute.Parameters("@oreturn").Value.ToString <> "" Then
MailBody = MailBody + vbCrLf + "Dokument_docmnr: " + dokument_docmnr.ToString + " Dokumentid:" + Dokumentid + " Fehler:" + scmCmdToExecute.Parameters("@oreturn").Value.ToString
clslog.Writelog("SP_Avaloq_Docm: " + "Dokument_docmnr: " + dokument_docmnr.ToString + " Dokumentid:" + Dokumentid + " Fehler:" + scmCmdToExecute.Parameters("@oreturn").Value.ToString, 1)
Return False
End If
Return True
Catch ex As Exception
clslog.Writelog("sp_avaloq_docm: " + ex.Message, 1)
Throw New Exception("Get_AVQ_Data::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
End Try
End Function
Public Sub Set_Status(ByVal dokument_docmnr As Integer, ByVal Status As Integer)
AVQ_Data.Rows.Clear()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
'Dim conn As New SqlConnection(My.Settings.EDOKA_Connection)
Dim conn As New SqlConnection(Globals.sConnectionString_edoka)
Dim i As Integer
scmCmdToExecute.CommandText = "sp_avaloq_document_docm"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokument_docmnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokument_docmnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Status))
conn.Open()
scmCmdToExecute.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
clslog.Writelog("sp_avaloq_docm 2: " + ex.Message, 1)
Throw New Exception("sp_avaloq_dokument_docm::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
End Try
End Sub
Public Function Sendmail(ByVal email As String, ByVal msg As Integer, ByVal counter As Integer) As Boolean
'Mails im Fehler- bzw. im OK-Fall versenden
Dim meldung As String = ""
Dim betreff As String = ""
Select Case msg
' Case 0
' betreff = "EDKB16 - Return 0: EDOKA/DOCM-Generierung durchgeführt / " + Format(Now, "yyyyMMddHHmmss")
' meldung = "Die Verarbeitung EDKB16 wurde ordnungsgemäss durchgeführt:" + vbCrLf + vbCrLf + _
' "Anzahl korrekt verarbeitet: " + counter.ToString + vbCrLf + vbCrLf + _
' "Dieses Mail wurde durch den Job EDKB16 ausgelöst" + vbCrLf + _
' "------------------------------------------------"
Case 1
betreff = "EDKB16 - Return 16: Fehler bei der Verarbeitung EDKB16 / " + Format(Now, "yyyyMMddHHmmss")
meldung = "Die Verarbeitung EDKB16 wurde nicht ordnungsgemäss durchgeführt:" + vbCrLf + vbCrLf + _
"Anzahl korrekt verarbeitet: " + counter.ToString + vbCrLf + vbCrLf + _
MailBody + vbCrLf + vbCrLf + _
"Dieses Mail wurde durch den Job EDKB16 ausgelöst" + vbCrLf + _
"------------------------------------------------"
End Select
Dim scmCmdToExecute As SqlCommand = New SqlCommand
scmCmdToExecute.CommandText = "dbo.SP_SendMail"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable
scmCmdToExecute.Parameters.Add(New SqlParameter("@email", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, email))
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung))
scmCmdToExecute.Connection = conn_edoka.scoDBConnection
Try
conn_edoka.OpenConnection()
Catch
End Try
Sendmail = True
Try
scmCmdToExecute.ExecuteNonQuery()
Catch ex As Exception
Sendmail = False
Finally
scmCmdToExecute.Dispose()
conn_edoka.CloseConnection(True)
End Try
End Function
End Class

202
EDKB16WS/EDKB16WS/Klassen/clsDBInteractionBase.vb Normal file
View File

@@ -0,0 +1,202 @@
' //////////////////////////////////////////////////////////////////////////////////////////
' // Description: Base class for Database Interaction.
' // Generated by LLBLGen v1.2.1045.38210 Final on: 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

28
EDKB16WS/EDKB16WS/Klassen/clsDivFnkt.vb Normal file
View File

@@ -0,0 +1,28 @@
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 ApplicationPath() As String
'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
End Class

451
EDKB16WS/EDKB16WS/Klassen/clsJournal.vb Normal file
View File

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

410
EDKB16WS/EDKB16WS/Klassen/clsJournaleintrag.vb Normal file
View File

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

75
EDKB16WS/EDKB16WS/Klassen/clsLog.vb Normal file
View File

@@ -0,0 +1,75 @@
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class clsLog
Dim m_journalid As Long
Dim m_applikationid As Long
Dim clsapplikation As New edokadb.clsApplikation()
Dim clsjournal As New edokadb.clsJournal()
Dim clsjournaleintrag As New edokadb.clsJournaleintrag()
Public Sub Startlog(ByVal ApplicationID As Integer)
clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
clsapplikation.cpMainConnectionProvider = conn_journale
clsapplikation.SelectOne()
Me.m_applikationid = clsapplikation.iApplikationnr.Value
clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
clsjournal.cpMainConnectionProvider = conn_journale
conn_journale.OpenConnection()
clsjournal.Insert()
Me.m_journalid = clsjournal.iJournalnr.Value
conn_journale.CloseConnection(True)
End Sub
Public Sub InsertJournale(ByVal Message As String)
clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
clsjournaleintrag.cpMainConnectionProvider = conn_journale
Console.WriteLine(Message)
conn_journale.OpenConnection()
clsjournaleintrag.Insert()
conn_journale.CloseConnection(True)
End Sub
Public Sub StopLog(ByVal applicationid As Integer)
clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
clsapplikation.cpMainConnectionProvider = conn_journale
clsapplikation.SelectOne()
clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
conn_journale.OpenConnection()
clsapplikation.Update()
conn_journale.CloseConnection(True)
End Sub
Public Sub Writelog(ByVal Inhalt As String, Optional level As Integer = 0)
If My.Settings.DebugMode = "True" Then
FileOpen(99, My.Settings.DebugFile, OpenMode.Append)
WriteLine(99, Now.ToString + Chr(9) + Inhalt)
FileClose(99)
End If
If My.Settings.DebugMode <> "True" Then
Select Case level
Case 1
FileOpen(99, My.Settings.DebugFile, OpenMode.Append)
WriteLine(99, Now.ToString + Chr(9) + Inhalt)
FileClose(99)
Case 2
FileOpen(99, My.Settings.DebugFile, OpenMode.Append)
WriteLine(99, Now.ToString + Chr(9) + Inhalt)
FileClose(99)
End Select
End If
End Sub
End Class

41
EDKB16WS/EDKB16WS/Klassen/db_connection.vb Normal file
View File

@@ -0,0 +1,41 @@
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Public Class DB_Connection
Shared Sub New()
Try
'Edoka
oread = IO.File.OpenText(appPath + "edokaconn.cfg")
sConnectionString_edoka = oread.ReadLine
Globals.sConnectionString_edoka = sConnectionString_edoka
oread.Close()
'Journale
oread = IO.File.OpenText(appPath + "journaleconn.cfg")
sConnectionString_journale = oread.ReadLine
Globals.sConnectionString_journale = sConnectionString_journale
oread.Close()
'Journale
oread = IO.File.OpenText(appPath + "avqconn.cfg")
sConnectionstring_Avaloq = oread.ReadLine
Globals.sConnectionstring_Avaloq = sConnectionstring_Avaloq
oread.Close()
''tgdata
'oread = IO.File.OpenText(appPath + "tgdataconn.cfg")
'sConnectionString_tgdata = oread.ReadLine
'Globals.sConnectionString_tgdata = sConnectionString_tgdata
'oread.Close()
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
Globals.conn_journale.sConnectionString = sConnectionString_journale
'Globals.conn_tgdata.sConnectionString = sConnectionString_tgdata
Catch ex As Exception
End Try
End Sub
End Class

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

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
EDKB16WS/EDKB16WS/My Project/Application.myapp Normal file
View File

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

35
EDKB16WS/EDKB16WS/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EDKB16ws")>
<Assembly: AssemblyDescription("EDKB16ws")>
<Assembly: AssemblyCompany("Stefan Hutter Unternehmensberatung")>
<Assembly: AssemblyProduct("EDKB16ws")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(True)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("45455624-4f7f-4559-81b9-a4932580512f")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

63
EDKB16WS/EDKB16WS/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EDKB16ws.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
EDKB16WS/EDKB16WS/My Project/Resources.resx Normal file
View File

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

173
EDKB16WS/EDKB16WS/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,173 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.4.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka;workstation id=;packet size=4096;user id="& _
"sa;password=*shu29")> _
Public Property ConnectionString_EDOKA() As String
Get
Return CType(Me("ConnectionString_EDOKA"),String)
End Get
Set
Me("ConnectionString_EDOKA") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("20000")> _
Public Property Check_Timerintervall() As String
Get
Return CType(Me("Check_Timerintervall"),String)
End Get
Set
Me("Check_Timerintervall") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DebugMode() As String
Get
Return CType(Me("DebugMode"),String)
End Get
Set
Me("DebugMode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=TATG11.TGKB;User ID=tkb$i_edoka; Password=Edoka1234$1; Integrated Sec"& _
"urity=no;")> _
Public Property ConnectionString_AVQ() As String
Get
Return CType(Me("ConnectionString_AVQ"),String)
End Get
Set
Me("ConnectionString_AVQ") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist"& _
" security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"& _
"")> _
Public Property ConnectionString_EDOKAJournale() As String
Get
Return CType(Me("ConnectionString_EDOKAJournale"),String)
End Get
Set
Me("ConnectionString_EDOKAJournale") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("stefan.hutter@tkb.ch")> _
Public Property MailEmpfaenger() As String
Get
Return CType(Me("MailEmpfaenger"),String)
End Get
Set
Me("MailEmpfaenger") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\edkb16.log")> _
Public Property DebugFile() As String
Get
Return CType(Me("DebugFile"),String)
End Get
Set
Me("DebugFile") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property UseORetvalue() As String
Get
Return CType(Me("UseORetvalue"),String)
End Get
Set
Me("UseORetvalue") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EDKB16ws.My.MySettings
Get
Return Global.EDKB16ws.My.MySettings.Default
End Get
End Property
End Module
End Namespace

30
EDKB16WS/EDKB16WS/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,30 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ConnectionString_EDOKA" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=edoka;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="Check_Timerintervall" Type="System.String" Scope="User">
<Value Profile="(Default)">20000</Value>
</Setting>
<Setting Name="DebugMode" Type="System.String" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="ConnectionString_AVQ" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=TATG11.TGKB;User ID=tkb$i_edoka; Password=Edoka1234$1; Integrated Security=no;</Value>
</Setting>
<Setting Name="ConnectionString_EDOKAJournale" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="MailEmpfaenger" Type="System.String" Scope="User">
<Value Profile="(Default)">stefan.hutter@tkb.ch</Value>
</Setting>
<Setting Name="DebugFile" Type="System.String" Scope="User">
<Value Profile="(Default)">k:\edoka\edkb16.log</Value>
</Setting>
<Setting Name="UseORetvalue" Type="System.String" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
</Settings>
</SettingsFile>

47
EDKB16WS/EDKB16WS/ProjectInstaller.Designer.vb generated Normal file
View File

@@ -0,0 +1,47 @@
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
Inherits System.Configuration.Install.Installer
'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<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.Description = "EDKB16ws"
Me.ServiceInstaller1.DisplayName = "EDKB16ws"
Me.ServiceInstaller1.ServiceName = "EDKB16ws"
'
'ProjectInstaller
'
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
End Sub
Friend WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller
Friend WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller
End Class

124
EDKB16WS/EDKB16WS/ProjectInstaller.resx Normal file
View File

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

16
EDKB16WS/EDKB16WS/ProjectInstaller.vb Normal file
View File

@@ -0,0 +1,16 @@
Imports System.ComponentModel
Imports System.Configuration.Install
Public Class ProjectInstaller
Public Sub New()
MyBase.New()
'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
InitializeComponent()
'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
End Sub
End Class

36
EDKB16WS/EDKB16WS/Service1.Designer.vb generated Normal file
View File

@@ -0,0 +1,36 @@
Imports System.ServiceProcess
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class EDKB19
Inherits System.ServiceProcess.ServiceBase
'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
' Das Bearbeiten ist mit dem Komponenten-Designer möglich.
' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
'
'EDKB18
'
Me.ServiceName = "EDKB19"
End Sub
End Class

123
EDKB16WS/EDKB16WS/Service1.resx Normal file
View File

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

138
EDKB16WS/EDKB16WS/Service1.vb Normal file
View File

@@ -0,0 +1,138 @@
Imports System.IO
Imports System.Timers
Imports System
Imports System.ServiceProcess
Public Class EDKB19
Dim clslog As New clsLog
Dim db As New clsDB
Dim JobReturn As Integer = 0
Dim Counter_Correct As Integer = 0
Dim WithEvents CheckTimer As New Timers.Timer()
Dim WithEvents CheckTimerIntervall As New Timers.Timer
Dim timerstopped As Boolean = False
Dim IsDebug As Boolean
Protected Overrides Sub OnStart(ByVal args() As String)
Globals.sConnectionstring_Avaloq = My.Settings.ConnectionString_AVQ
Globals.sConnectionString_edoka = My.Settings.ConnectionString_EDOKA
Globals.sConnectionString_journale = My.Settings.ConnectionString_EDOKAJournale
CheckTimer.Interval = My.Settings.Check_Timerintervall
conn_journale.sConnectionString = Globals.sConnectionString_journale
conn_edoka.sConnectionString = Globals.sConnectionString_edoka
clslog.Writelog("Start EDKB16WS", 1)
clslog.Writelog("EDOKA-Connection: " + Globals.sConnectionString_edoka, 1)
clslog.Writelog("Journale-Connection: " + Globals.sConnectionString_journale, 1)
clslog.Writelog("Avaloq-Connection:" + Globals.sConnectionstring_Avaloq, 1)
clslog.Writelog("Intervall in MS:" + CheckTimer.Interval.ToString, 1)
clslog.Writelog("Debug:" + My.Settings.DebugMode, 1)
clslog.Writelog("----", 1)
CheckTimer.Start()
IsDebug = UCase(My.Settings.DebugMode) = "TRUE"
clslog.Writelog("Open Journal", 1)
clslog.Startlog(16)
clslog.InsertJournale("Start EDKB16")
End Sub
Protected Overrides Sub OnStop()
clslog.Writelog("Stop EDKB16WS", 1)
clslog.StopLog(16)
clslog.Writelog("Ende", 1)
End Sub
Shared Sub Main()
#If CONFIG = "Release" Then
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB19()}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
#Else
Dim myServ As New EDKB19
myServ.OnStart({""})
While (True)
System.Threading.Thread.Sleep(2000)
End While
#End If
End Sub
Private Sub CheckTimer_Elapsed(sender As Object, e As ElapsedEventArgs) Handles CheckTimer.Elapsed
If IsDebug Then PrintOut("Verarbeitung")
Verarbeiten("")
End Sub
Private Sub Verarbeiten(Optional ExpressUser As String = "")
CheckTimer.Stop()
timerstopped = True
Counter_Correct = 0
JobReturn = 0
MailBody = ""
clslog.Writelog("Get Pendenten Dokument_Docm")
Get_Open_Datarows()
clslog.Writelog("Mail Versand")
If MailBody <> "" Then db.Sendmail(My.Settings.MailEmpfaenger, JobReturn, Counter_Correct)
CheckTimer.Start()
End Sub
Public Sub Get_Open_Datarows()
clslog.Writelog("Get_EDOKA_Data")
db.Get_Edoka_data()
For Each r As DataRow In db.EDOKA_Data.Rows
clslog.Writelog("Status 1 setzen: " + r.Item("dokument_docmnr").ToString + " / " + r.Item("dokumentid").ToString)
db.Set_Status(r.Item(0), 1)
clslog.Writelog("EDOKA-Daten für AVQ-SST auselesen")
If db.Get_AVQ_Data(r.Item("dokument_docmnr"), r.Item("dokumentid")) = True Then
clslog.Writelog("Anzahl Datensätze: " + db.AVQ_Data.Rows.Count.ToString)
clslog.Writelog("----")
If Generate_Docm(db.AVQ_Data.Rows(0)) = True Then
db.Set_Status(r.Item(0), 2)
Counter_Correct = Counter_Correct + 1
End If
End If
Next
End Sub
Public Function Generate_Docm(r As DataRow) As Boolean
clslog.Writelog("Avaloq-SST befüllen")
Dim clsavq As New Avaloq.SST
clsavq.obj_nr = r("@i_obj_nr")
clsavq.Obj_Type_ID = r("@i_obj_type_id")
clsavq.Trig_Obj_ID = r("@i_trig_obj_id")
clsavq.Dok_Status_ID = r("@i_dok_status_id")
clsavq.Dok_typ_id = r("@i_dok_typ_id")
clsavq.Script_ID = r("@i_script_id")
clsavq.Instructions = r("@i_instructions")
clsavq.SendData()
Dim callParams As String
callParams = r("@i_obj_nr").ToString + " / " + r("@i_obj_type_id").ToString + " / " + r("@i_trig_obj_id")
callParams = callParams + "/ " + r("@i_dok_status_id").ToString + " / " + r("@i_script_id").ToString + " / " + r("@i_instructions").ToString
If clsavq.hasErrors = True Then
clslog.InsertJournale("Errror AVQ Send_Data: + Call_Params: " + callParams + " AVQ-Error: " + clsavq.Error_Description)
JobReturn = 1
clslog.Writelog("Errror AVQ Send_Data: Call_Params: " + callParams + " AVQ-Error: " + clsavq.Error_Description, 1)
MailBody = MailBody + vbCrLf + "-" + "Errror AVQ Send_Data: + Call_Params: " + callParams + " AVQ-Error: " + clsavq.Error_Description
Return False
Else
clslog.InsertJournale("Send_Data OK: Call_Params: " + callParams)
clslog.Writelog("Send_Data OK: Call_Params: " + callParams, 1)
Return True
End If
End Function
End Class

BIN
EDKB16WS/EDKB16WS/bin/Debug/EDKB16ws.exe Normal file
View File

Binary file not shown.

39
EDKB16WS/EDKB16WS/bin/Debug/EDKB16ws.exe.config Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="EDKB16ws.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<EDKB16ws.My.MySettings>
<setting name="ConnectionString_EDOKA" serializeAs="String">
<value>data source=shu00;initial catalog=edoka;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="Check_Timerintervall" serializeAs="String">
<value>20000</value>
</setting>
<setting name="DebugMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="ConnectionString_AVQ" serializeAs="String">
<value>Data Source=TATG11.TGKB;User ID=tkb$i_edoka; Password=Edoka1234$1; Integrated Security=no;</value>
</setting>
<setting name="ConnectionString_EDOKAJournale" serializeAs="String">
<value>data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="MailEmpfaenger" serializeAs="String">
<value>stefan.hutter@tkb.ch</value>
</setting>
<setting name="DebugFile" serializeAs="String">
<value>k:\edoka\edkb16.log</value>
</setting>
<setting name="UseORetvalue" serializeAs="String">
<value>True</value>
</setting>
</EDKB16ws.My.MySettings>
</userSettings>
</configuration>

BIN
EDKB16WS/EDKB16WS/bin/Debug/EDKB16ws.pdb Normal file
View File

Binary file not shown.

95
EDKB16WS/EDKB16WS/bin/Debug/EDKB16ws.xml Normal file
View File

@@ -0,0 +1,95 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB16ws
</name>
</assembly>
<members>
<member name="T:EDKB16ws.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="T:EDKB16ws.Globals">
<summary>Globale Variablen und FUnktionen</summary>
</member>
<member name="F:EDKB16ws.Globals.Applikationsdaten">
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.AppldataRow">
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_edoka">
<summary>Verbindung zur Daten EDOKA</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale">
<summary>Verbindung zur Daten EDOKA_Journale</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale_Mail">
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
</member>
<member name="F:EDKB16ws.Globals.args">
<summary>Befehlszeilenargumente</summary>
</member>
<member name="F:EDKB16ws.Globals.conn_edoka">
<summary>Connectionprovider für die Datenbank EDOKA</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale_Mail">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.DivFnkt">
<summary>Instanz des Objektes DivFnkt</summary>
</member>
<member name="F:EDKB16ws.Globals.ApplData">
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
fest</summary>
</member>
<member name="M:EDKB16ws.Globals.PrintOut(System.String)">
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
<param name="s"></param>
</member>
<member name="M:EDKB16ws.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="T:EDKB16ws.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:EDKB16ws.Globals">Globals.vb</see></para></remarks>
<seealso cref="F:EDKB16ws.Globals.DivFnkt">Globals.DivFnkt</seealso>
</member>
<member name="M:EDKB16ws.clsDivFnkt.ApplicationPath">
<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>
</member>
</members>
</doc>

65
EDKB16WS/EDKB16WS/bin/Debug/InstallUtil.InstallLog Normal file
View File

@@ -0,0 +1,65 @@
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Die Commitphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.InvalidOperationException: Die Diensteinstallation in der ausführbaren Datei E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe wurde vom Benutzer abgebrochen.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.

BIN
EDKB16WS/EDKB16WS/bin/Debug/System.Data.OracleClient.dll Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/bin/Debug/System.Net.Http.dll Normal file
View File

Binary file not shown.

2007
EDKB16WS/EDKB16WS/bin/Debug/System.Net.Http.xml Normal file
View File

File diff suppressed because it is too large Load Diff

3
EDKB16WS/EDKB16WS/bin/Debug/install.bat Normal file
View File

@@ -0,0 +1,3 @@
C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe
pause

2
EDKB16WS/EDKB16WS/bin/Debug/install_U.bat Normal file
View File

@@ -0,0 +1,2 @@
C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil /u E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\edkb18.exe
pause

BIN
EDKB16WS/EDKB16WS/bin/Release/EDKB16ws.exe Normal file
View File

Binary file not shown.

39
EDKB16WS/EDKB16WS/bin/Release/EDKB16ws.exe.config Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="EDKB16ws.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<EDKB16ws.My.MySettings>
<setting name="ConnectionString_EDOKA" serializeAs="String">
<value>data source=shu00;initial catalog=edoka;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="Check_Timerintervall" serializeAs="String">
<value>20000</value>
</setting>
<setting name="DebugMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="ConnectionString_AVQ" serializeAs="String">
<value>Data Source=TATG11.TGKB;User ID=tkb$i_edoka; Password=Edoka1234$1; Integrated Security=no;</value>
</setting>
<setting name="ConnectionString_EDOKAJournale" serializeAs="String">
<value>data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="MailEmpfaenger" serializeAs="String">
<value>stefan.hutter@tkb.ch</value>
</setting>
<setting name="DebugFile" serializeAs="String">
<value>k:\edoka\edkb16.log</value>
</setting>
<setting name="UseORetvalue" serializeAs="String">
<value>True</value>
</setting>
</EDKB16ws.My.MySettings>
</userSettings>
</configuration>

BIN
EDKB16WS/EDKB16WS/bin/Release/EDKB16ws.pdb Normal file
View File

Binary file not shown.

95
EDKB16WS/EDKB16WS/bin/Release/EDKB16ws.xml Normal file
View File

@@ -0,0 +1,95 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB16ws
</name>
</assembly>
<members>
<member name="T:EDKB16ws.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="T:EDKB16ws.Globals">
<summary>Globale Variablen und FUnktionen</summary>
</member>
<member name="F:EDKB16ws.Globals.Applikationsdaten">
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.AppldataRow">
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_edoka">
<summary>Verbindung zur Daten EDOKA</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale">
<summary>Verbindung zur Daten EDOKA_Journale</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale_Mail">
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
</member>
<member name="F:EDKB16ws.Globals.args">
<summary>Befehlszeilenargumente</summary>
</member>
<member name="F:EDKB16ws.Globals.conn_edoka">
<summary>Connectionprovider für die Datenbank EDOKA</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale_Mail">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.DivFnkt">
<summary>Instanz des Objektes DivFnkt</summary>
</member>
<member name="F:EDKB16ws.Globals.ApplData">
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
fest</summary>
</member>
<member name="M:EDKB16ws.Globals.PrintOut(System.String)">
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
<param name="s"></param>
</member>
<member name="M:EDKB16ws.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="T:EDKB16ws.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:EDKB16ws.Globals">Globals.vb</see></para></remarks>
<seealso cref="F:EDKB16ws.Globals.DivFnkt">Globals.DivFnkt</seealso>
</member>
<member name="M:EDKB16ws.clsDivFnkt.ApplicationPath">
<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>
</member>
</members>
</doc>

75
EDKB16WS/EDKB16WS/bin/Release/InstallUtil.InstallLog Normal file
View File

@@ -0,0 +1,75 @@
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Release\edkb18.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Eine transaktive Installation wird ausgeführt.
Die Installationsphase wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.InstallLog.
Während der Installationsphase ist eine Ausnahme aufgetreten.
System.Security.SecurityException: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
Die Rollbackphase der Installation wird gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.InstallLog.
Die Rollbackphase wurde erfolgreich abgeschlossen.
Die transaktive Installation ist abgeschlossen.
Die Deinstallation wurde gestartet.
Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe.
Die Datei befindet sich in E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.InstallLog.
Die Deinstallation ist abgeschlossen.

BIN
EDKB16WS/EDKB16WS/bin/Release/System.Data.OracleClient.dll Normal file
View File

Binary file not shown.

3
EDKB16WS/EDKB16WS/bin/Release/install.bat Normal file
View File

@@ -0,0 +1,3 @@
C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe
pause

2
EDKB16WS/EDKB16WS/bin/Release/install_U.bat Normal file
View File

@@ -0,0 +1,2 @@
C:\Windows\Microsoft.NET\Framework\v4.0.30319\installutil /u E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Release\edkb19.exe
pause

1
EDKB16WS/EDKB16WS/obj/Debug/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
23cb022a4e9a122339cea12c07884148c19a5cb4

BIN
EDKB16WS/EDKB16WS/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

0
EDKB16WS/EDKB16WS/obj/Debug/EDKB16WS.vbproj.CopyComplete Normal file
View File

13
EDKB16WS/EDKB16WS/obj/Debug/EDKB16WS.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,13 @@
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Debug\EDKB16ws.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Debug\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Debug\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Debug\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Debug\System.Data.OracleClient.dll
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.EDKB19.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16WS.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16WS.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Debug\EDKB16ws.pdb

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16WS.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.EDKB19.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.ProjectInstaller.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.exe Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.pdb Normal file
View File

Binary file not shown.

95
EDKB16WS/EDKB16WS/obj/Debug/EDKB16ws.xml Normal file
View File

@@ -0,0 +1,95 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB16ws
</name>
</assembly>
<members>
<member name="T:EDKB16ws.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="T:EDKB16ws.Globals">
<summary>Globale Variablen und FUnktionen</summary>
</member>
<member name="F:EDKB16ws.Globals.Applikationsdaten">
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.AppldataRow">
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_edoka">
<summary>Verbindung zur Daten EDOKA</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale">
<summary>Verbindung zur Daten EDOKA_Journale</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale_Mail">
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
</member>
<member name="F:EDKB16ws.Globals.args">
<summary>Befehlszeilenargumente</summary>
</member>
<member name="F:EDKB16ws.Globals.conn_edoka">
<summary>Connectionprovider für die Datenbank EDOKA</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale_Mail">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.DivFnkt">
<summary>Instanz des Objektes DivFnkt</summary>
</member>
<member name="F:EDKB16ws.Globals.ApplData">
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
fest</summary>
</member>
<member name="M:EDKB16ws.Globals.PrintOut(System.String)">
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
<param name="s"></param>
</member>
<member name="M:EDKB16ws.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="T:EDKB16ws.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:EDKB16ws.Globals">Globals.vb</see></para></remarks>
<seealso cref="F:EDKB16ws.Globals.DivFnkt">Globals.DivFnkt</seealso>
</member>
<member name="M:EDKB16ws.clsDivFnkt.ApplicationPath">
<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>
</member>
</members>
</doc>

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.EDKB18.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.ProjectInstaller.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.exe Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.pdb Normal file
View File

Binary file not shown.

0
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.vbproj.CopyComplete Normal file
View File

1
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
aefe5ebd5c793d4546fe24933577c46859620cf6

16
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,16 @@
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.EDKB18.resources
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\EDKB18.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\EDKB18.exe
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\EDKB18.pdb
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\EDKB18.xml
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.exe
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.xml
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.pdb
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\System.Net.Http.dll
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\bin\Debug\System.Net.Http.xml
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\EDOKA\batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbproj.CopyComplete

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

26
EDKB16WS/EDKB16WS/obj/Debug/EDKB18.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB18
</name>
</assembly>
<members>
<member name="T:EDKB18.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB18.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB18.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.EDKB19.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.ProjectInstaller.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.exe Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.pdb Normal file
View File

Binary file not shown.

0
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbproj.CopyComplete Normal file
View File

1
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
0d05a48a1db59b54662dff627692598bcdbff63e

31
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,31 @@
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.EDKB19.resources
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\EDKB19.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\EDKB19.exe
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\EDKB19.pdb
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\EDKB19.xml
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\System.Net.Http.dll
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\bin\Debug\System.Net.Http.xml
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.exe
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.xml
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.pdb
E:\Software-Projekte\EDOKA\batch\EDKB19\EDKB18\obj\Debug\EDKB19.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\EDKB16ws.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\System.Net.Http.dll
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Debug\System.Net.Http.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB19.vbprojAssemblyReference.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.EDKB19.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB19.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB19.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Debug\EDKB16ws.pdb

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

26
EDKB16WS/EDKB16WS/obj/Debug/EDKB19.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB19
</name>
</assembly>
<members>
<member name="T:EDKB19.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB19.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB19.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

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

Binary file not shown.

1
EDKB16WS/EDKB16WS/obj/Release/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
23cb022a4e9a122339cea12c07884148c19a5cb4

BIN
EDKB16WS/EDKB16WS/obj/Release/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

0
EDKB16WS/EDKB16WS/obj/Release/EDKB16WS.vbproj.CopyComplete Normal file
View File

28
EDKB16WS/EDKB16WS/obj/Release/EDKB16WS.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,28 @@
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\EDKB16ws.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\System.Net.Http.dll
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\bin\Release\System.Net.Http.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16WS.vbprojAssemblyReference.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.EDKB19.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16WS.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16WS.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB18\obj\Release\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Release\EDKB16ws.exe.config
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Release\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Release\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Release\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.Resources.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.ProjectInstaller.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.EDKB19.resources
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16WS.vbproj.GenerateResource.cache
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16WS.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.exe
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.xml
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\obj\Release\EDKB16ws.pdb
E:\Software-Projekte\EDOKA\batch\EDKB16WS\EDKB16WS\bin\Release\System.Data.OracleClient.dll

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16WS.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.EDKB19.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.ProjectInstaller.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.exe Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.pdb Normal file
View File

Binary file not shown.

95
EDKB16WS/EDKB16WS/obj/Release/EDKB16ws.xml Normal file
View File

@@ -0,0 +1,95 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDKB16ws
</name>
</assembly>
<members>
<member name="T:EDKB16ws.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:EDKB16ws.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="T:EDKB16ws.Globals">
<summary>Globale Variablen und FUnktionen</summary>
</member>
<member name="F:EDKB16ws.Globals.Applikationsdaten">
<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.AppldataRow">
<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_edoka">
<summary>Verbindung zur Daten EDOKA</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale">
<summary>Verbindung zur Daten EDOKA_Journale</summary>
</member>
<member name="F:EDKB16ws.Globals.sConnectionString_journale_Mail">
<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
</member>
<member name="F:EDKB16ws.Globals.args">
<summary>Befehlszeilenargumente</summary>
</member>
<member name="F:EDKB16ws.Globals.conn_edoka">
<summary>Connectionprovider für die Datenbank EDOKA</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.conn_journale_Mail">
<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
<seealso
cref="T:EDKB16ws.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
</member>
<member name="F:EDKB16ws.Globals.DivFnkt">
<summary>Instanz des Objektes DivFnkt</summary>
</member>
<member name="F:EDKB16ws.Globals.ApplData">
<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
fest</summary>
</member>
<member name="M:EDKB16ws.Globals.PrintOut(System.String)">
<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
<param name="s"></param>
</member>
<member name="M:EDKB16ws.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="T:EDKB16ws.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:EDKB16ws.Globals">Globals.vb</see></para></remarks>
<seealso cref="F:EDKB16ws.Globals.DivFnkt">Globals.DivFnkt</seealso>
</member>
<member name="M:EDKB16ws.clsDivFnkt.ApplicationPath">
<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>
</member>
</members>
</doc>

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB18.EDKB18.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB18.ProjectInstaller.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB18.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDKB16WS/EDKB16WS/obj/Release/EDKB18.exe Normal file
View File

Binary file not shown.

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