Initial commit
This commit is contained in:
32
EDKB10/BMS/BMSDll/Backup/AssemblyInfo.vb
Normal file
32
EDKB10/BMS/BMSDll/Backup/AssemblyInfo.vb
Normal file
@@ -0,0 +1,32 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("BMS Logging DLL")>
|
||||
<Assembly: AssemblyDescription("Writes journal entries to BMS database journal")>
|
||||
<Assembly: AssemblyCompany("Zubler & Partner")>
|
||||
<Assembly: AssemblyProduct("BMS Logging DLL")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("2BBEB51D-23B1-4418-A844-9471B78A910B")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("2.0.*")>
|
||||
38
EDKB10/BMS/BMSDll/Backup/BMSDll.sln
Normal file
38
EDKB10/BMS/BMSDll/Backup/BMSDll.sln
Normal file
@@ -0,0 +1,38 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BMSDll", "BMSDll.vbproj", "{A3645B42-5328-4197-92A6-3124FE38AD0C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Common", "..\Common\Common.vbproj", "{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DataAccess", "..\DataAccess\DataAccess.vbproj", "{21B54F51-D2B2-459E-895C-540AD4A8704F}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ZpCryptography", "..\ZpCryptography\ZpCryptography.vbproj", "{290C31E0-49C7-4E85-A39F-CA496BE678B6}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{A3645B42-5328-4197-92A6-3124FE38AD0C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{A3645B42-5328-4197-92A6-3124FE38AD0C}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{A3645B42-5328-4197-92A6-3124FE38AD0C}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{A3645B42-5328-4197-92A6-3124FE38AD0C}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{21B54F51-D2B2-459E-895C-540AD4A8704F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{21B54F51-D2B2-459E-895C-540AD4A8704F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{21B54F51-D2B2-459E-895C-540AD4A8704F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{21B54F51-D2B2-459E-895C-540AD4A8704F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{290C31E0-49C7-4E85-A39F-CA496BE678B6}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
EDKB10/BMS/BMSDll/Backup/BMSDll.v12.suo
Normal file
BIN
EDKB10/BMS/BMSDll/Backup/BMSDll.v12.suo
Normal file
Binary file not shown.
126
EDKB10/BMS/BMSDll/Backup/BMSDll.vbproj
Normal file
126
EDKB10/BMS/BMSDll/Backup/BMSDll.vbproj
Normal file
@@ -0,0 +1,126 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{A3645B42-5328-4197-92A6-3124FE38AD0C}</ProjectGuid>
|
||||
<SccProjectName>
|
||||
</SccProjectName>
|
||||
<SccLocalPath>
|
||||
</SccLocalPath>
|
||||
<SccAuxPath>
|
||||
</SccAuxPath>
|
||||
<SccProvider>
|
||||
</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>BMS</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Library</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>bms</RootNamespace>
|
||||
<StartupObject>
|
||||
</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Windows</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>BMS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>BMS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Logging.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\Common\Common.vbproj">
|
||||
<Project>{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}</Project>
|
||||
<Name>Common</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\DataAccess\DataAccess.vbproj">
|
||||
<Project>{21B54F51-D2B2-459E-895C-540AD4A8704F}</Project>
|
||||
<Name>DataAccess</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
58
EDKB10/BMS/BMSDll/Backup/BMSDll.vbproj.user
Normal file
58
EDKB10/BMS/BMSDll/Backup/BMSDll.vbproj.user
Normal file
@@ -0,0 +1,58 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>
|
||||
</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>false</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
183
EDKB10/BMS/BMSDll/Backup/Logging.vb
Normal file
183
EDKB10/BMS/BMSDll/Backup/Logging.vb
Normal file
@@ -0,0 +1,183 @@
|
||||
|
||||
#Region "Includes"
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports Common.Common
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
#End Region
|
||||
|
||||
'Class used 4 common Logging
|
||||
<ClassInterface(ClassInterfaceType.AutoDual)> _
|
||||
Public Class Logging
|
||||
|
||||
#Region "Members"
|
||||
|
||||
Dim m_JournalId As Integer
|
||||
Dim m_JobId As Integer
|
||||
Dim m_ProgrammId As Integer
|
||||
Dim m_DbConnection As SqlConnection
|
||||
Dim m_Common As Common.Common
|
||||
Dim m_JobTyp As JobType
|
||||
Dim m_IsNachLetzterAusfuerung As Boolean
|
||||
Dim m_RunJob As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Constructor"
|
||||
|
||||
'Gets a new JournalId for a new logging instance
|
||||
'TODO: jobtype muss nicht bekannt sein, wenn ein tool als start UND watch läuft...
|
||||
'Wird aber benötigt, um LastRunEnde auf Job zu setzen. Dies wiederum wird in GetFailedStartJobs
|
||||
'verwendet um zu überprüfen, ob der JOB(und ebe nicht das programm) gestartet wurde
|
||||
Public Sub New(ByVal programId As Integer, ByVal jobType As JobType)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
|
||||
m_ProgrammId = programId
|
||||
m_Common = New Common.Common
|
||||
|
||||
m_DbConnection = New SqlConnection(m_Common.DSN)
|
||||
m_DbConnection.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = m_DbConnection
|
||||
sqlCom.CommandText = "CreateJournal"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", m_ProgrammId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobTypId", jobType))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(ds)
|
||||
|
||||
'One table and one row are required
|
||||
If ds.Tables.Count > 0 Then
|
||||
If ds.Tables(0).Rows.Count > 0 Then
|
||||
m_JournalId = ds.Tables(0).Rows(0).Item("JournalId")
|
||||
m_JobId = ds.Tables(0).Rows(0).Item("JobId")
|
||||
m_IsNachLetzterAusfuerung = ds.Tables(0).Rows(0).Item("NachLetzterAusfuerung")
|
||||
m_RunJob = ds.Tables(0).Rows(0)("RunJob")
|
||||
Else
|
||||
Throw New Exception("Neues Journal konnte nicht erzeugt werden oder zugehöriger Job wurde nicht gefunden")
|
||||
End If
|
||||
Else
|
||||
Throw New Exception("Neues Journal konnte nicht erzeugt werden oder zugehöriger Job wurde nicht gefunden")
|
||||
End If
|
||||
|
||||
If jobType = jobType.WatchJob Then
|
||||
'needed for validating correct start and maximal durations
|
||||
DataAccess.Job.SetJobLastRun(m_Common.DSN, m_JobId, LastRun.Start)
|
||||
m_Common.Log(Common.Common.DLL_DISPLAY_NAME, "DLL Library setted LastRunStart to " + DateTime.Now.ToString("G") + " for JobId " + m_JobId.ToString)
|
||||
End If
|
||||
|
||||
|
||||
m_DbConnection.Close()
|
||||
|
||||
Catch ex As Exception
|
||||
If m_DbConnection.State = ConnectionState.Open Then
|
||||
m_DbConnection.Close()
|
||||
End If
|
||||
WriteEventLog(ex.Source, ex.Message, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Public Methods"
|
||||
|
||||
'Note: This Sub is necessary, because VB cannot handle constructors with parameters
|
||||
'so we have to do all the "constuctor" stuff in a method...
|
||||
'Public Sub InitLogging(ByVal programId As Integer, ByVal jobTyp As Integer)
|
||||
'End Sub
|
||||
|
||||
'Writes a message with a journalEntryType to the journal
|
||||
Public Sub Log(ByVal message As String, ByVal journalEintragTyp As JournalEntryType)
|
||||
Try
|
||||
WriteJournalEntry(message, CType(journalEintragTyp, JournalEntryType))
|
||||
|
||||
'in an error case, service should do something
|
||||
If journalEintragTyp = JournalEntryType.Error Then
|
||||
Dim ds As New DataSet
|
||||
DataAccess.Job.GetNotifications(m_Common, m_ProgrammId, ds)
|
||||
DataAccess.Job.SendNotification(m_Common, m_ProgrammId, ds, message, m_JobId, JobType.WatchJob)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
WriteEventLog(ex.Source, ex.Message, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Writes a message to the journal
|
||||
Public Sub Log(ByVal message As String)
|
||||
Try
|
||||
Log(message, JournalEntryType.Information)
|
||||
Catch ex As Exception
|
||||
WriteEventLog(ex.Source, ex.Message, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Writes to journal, that the program has started
|
||||
Public Sub Start()
|
||||
Try
|
||||
DataAccess.Job.SetIsRunning(m_Common.DSN, m_ProgrammId, True)
|
||||
WriteJournalEntry("Start", JournalEntryType.Information)
|
||||
Catch ex As Exception
|
||||
DataAccess.Job.SetIsRunning(m_Common.DSN, m_ProgrammId, False)
|
||||
WriteEventLog(ex.Source, ex.Message, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Writes to journal, that the program has ended
|
||||
Public Sub Ende()
|
||||
Try
|
||||
DataAccess.Job.SetIsRunning(m_Common.DSN, m_ProgrammId, False)
|
||||
DataAccess.Job.SetJobLastRun(m_Common.DSN, m_JobId, LastRun.End)
|
||||
|
||||
'calc next start time JUST if its a "NachLetzterAusfuerung" Job
|
||||
If m_IsNachLetzterAusfuerung Then
|
||||
DataAccess.Job.SetNextExecDateTime(m_Common.DSN, m_JobId)
|
||||
End If
|
||||
WriteJournalEntry("Ende", JournalEntryType.Information)
|
||||
Catch ex As Exception
|
||||
WriteEventLog(ex.Source, ex.Message, EventLogEntryType.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Private Methods"
|
||||
|
||||
'Writes an nice formatted error message to windows eventlog
|
||||
Private Sub WriteEventLog(ByVal source As String, ByVal errorMessage As String, ByVal eventLogType As EventLogEntryType)
|
||||
m_Common.Log(source, "Quelle: " & source & Environment.NewLine & "Meldung: " & errorMessage, eventLogType)
|
||||
End Sub
|
||||
|
||||
'Writes an entry to the BMS journal
|
||||
Private Sub WriteJournalEntry(ByVal message As String, ByVal journalEntryType As JournalEntryType)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
m_DbConnection.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = m_DbConnection
|
||||
sqlCom.CommandText = "CreateJournalEntry"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JournalId", m_JournalId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@EintragDesc", message))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JournalEintragTypId", CInt(journalEntryType)))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
m_DbConnection.Close()
|
||||
Catch
|
||||
If m_DbConnection.State = ConnectionState.Open Then
|
||||
m_DbConnection.Close()
|
||||
End If
|
||||
Throw
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user