Initial commit
This commit is contained in:
BIN
Archiv/EDKB01/.vs/EDKB01/v14/.suo
Normal file
BIN
Archiv/EDKB01/.vs/EDKB01/v14/.suo
Normal file
Binary file not shown.
7
Archiv/EDKB01/.vsdoc
Normal file
7
Archiv/EDKB01/.vsdoc
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
31
Archiv/EDKB01/AssemblyInfo.vb
Normal file
31
Archiv/EDKB01/AssemblyInfo.vb
Normal file
@@ -0,0 +1,31 @@
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgende
|
||||
' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
|
||||
' die mit einer Assembly verknüpft sind, zu bearbeiten.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
|
||||
<Assembly: Guid("802A7333-5246-42F6-BF70-C74AE6A39A4C")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Haupversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revisionsnummer
|
||||
'
|
||||
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
|
||||
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.*")>
|
||||
31
Archiv/EDKB01/Backup/AssemblyInfo.vb
Normal file
31
Archiv/EDKB01/Backup/AssemblyInfo.vb
Normal file
@@ -0,0 +1,31 @@
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgende
|
||||
' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
|
||||
' die mit einer Assembly verknüpft sind, zu bearbeiten.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
|
||||
<Assembly: Guid("802A7333-5246-42F6-BF70-C74AE6A39A4C")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Haupversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revisionsnummer
|
||||
'
|
||||
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
|
||||
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.*")>
|
||||
277
Archiv/EDKB01/Backup/ClsParameters.vb
Normal file
277
Archiv/EDKB01/Backup/ClsParameters.vb
Normal file
@@ -0,0 +1,277 @@
|
||||
Public Class ClsParameters
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim m_applicationid As String
|
||||
Property ApplicationID() As String
|
||||
Get
|
||||
Return m_applicationid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_applicationid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_pathCold As String
|
||||
Property PathColdDateien() As String
|
||||
Get
|
||||
Return m_pathCold
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_pathCold = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_paramfilebin As String
|
||||
Property ParameterFileBin() As String
|
||||
Get
|
||||
Return m_paramfilebin
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_paramfilebin = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_files As String
|
||||
Property Filepfad() As String
|
||||
Get
|
||||
Return m_files
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_files = Value
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Dim m_paramfiletxt As String
|
||||
Property ParameterFileTxt() As String
|
||||
Get
|
||||
Return m_paramfiletxt
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_paramfiletxt = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_filedtostart As String
|
||||
Property FileDtoStart() As String
|
||||
Get
|
||||
Return m_filedtostart
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_filedtostart = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_FileColdReturn As String
|
||||
Property FileColdReturn() As String
|
||||
Get
|
||||
Return m_FileColdReturn
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileColdReturn = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileNeu As String
|
||||
Property FileNeu() As String
|
||||
Get
|
||||
Return m_FileNeu
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileNeu = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileUpdate As String
|
||||
Property FileUpdate() As String
|
||||
Get
|
||||
Return m_FileUpdate
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileUpdate = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileReturnCode As String
|
||||
Property FileReturnCode() As String
|
||||
Get
|
||||
Return m_FileReturnCode
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileReturnCode = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileGeneration As String
|
||||
Property FileGeneration() As String
|
||||
Get
|
||||
Return m_FileGeneration
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileGeneration = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AnzahlGenerationen As String
|
||||
Property AnzahlGenerationen() As String
|
||||
Get
|
||||
Return m_AnzahlGenerationen
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AnzahlGenerationen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Bankname As String
|
||||
Property Bankname() As String
|
||||
Get
|
||||
Return m_Bankname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Bankname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Printerdriver As String
|
||||
Property PrinterDriver() As String
|
||||
Get
|
||||
Return m_Printerdriver
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Printerdriver = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_printtype As String
|
||||
Property Printtype() As String
|
||||
Get
|
||||
Return m_printtype
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_printtype = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PathTif As String
|
||||
Property PathTif() As String
|
||||
Get
|
||||
Return m_PathTif
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PathTif = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AMSDriveLetter As String
|
||||
Property AMSDriveLetter() As String
|
||||
Get
|
||||
Return m_AMSDriveLetter
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AMSDriveLetter = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_amsServer As String
|
||||
Property AMSServer() As String
|
||||
Get
|
||||
Return m_amsServer
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_amsServer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_amsroot As String
|
||||
Property AMSRoot() As String
|
||||
Get
|
||||
Return m_amsroot
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_amsroot = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Schema As String
|
||||
Property Schema() As String
|
||||
Get
|
||||
Return m_Schema
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Schema = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_MailadresseOK As String
|
||||
Property MailAdresseOK() As String
|
||||
Get
|
||||
Return m_MailadresseOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_MailadresseNOK As String
|
||||
Property MailAdresseNOK() As String
|
||||
Get
|
||||
Return m_MailadresseNOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseNOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_pathtemp As String
|
||||
Property PathTemp() As String
|
||||
Get
|
||||
Return m_pathtemp
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_pathtemp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_cmddatei As String
|
||||
Property CMDDatei() As String
|
||||
Get
|
||||
Return m_cmddatei
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_cmddatei = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_copystat As String
|
||||
Property CMDCopyStat() As String
|
||||
Get
|
||||
Return m_copystat
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_copystat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Function Loadparameters() As String
|
||||
Try
|
||||
oread = IO.File.OpenText(args(1) + "parameters.cfg")
|
||||
Me.ApplicationID = ParamValue(oread.ReadLine)
|
||||
Me.Filepfad = ParamValue(oread.ReadLine)
|
||||
Me.MailAdresseOK = ParamValue(oread.ReadLine)
|
||||
Me.MailAdresseNOK = ParamValue(oread.ReadLine)
|
||||
oread.Close()
|
||||
Return ""
|
||||
Catch ex As Exception
|
||||
Return ex.Message
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function ParamValue(ByVal sinput As String) As String
|
||||
Dim splitter() As String
|
||||
splitter = Split(sinput, "=")
|
||||
ParamValue = splitter(1)
|
||||
End Function
|
||||
End Class
|
||||
449
Archiv/EDKB01/Backup/DB/clsApplikation.vb
Normal file
449
Archiv/EDKB01/Backup/DB/clsApplikation.vb
Normal file
@@ -0,0 +1,449 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Applikation'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 15. Juni 2003, 07:59:59
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Applikation'.
|
||||
' /// </summary>
|
||||
Public Class clsApplikation
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daMutiert_am, m_daLastrun, m_daErstellt_am As SqlDateTime
|
||||
Private m_iApplikationnr, m_iMutierer As SqlInt32
|
||||
Private m_sBezeichnung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>daLastrun</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Applikation")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
|
||||
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("lastrun") Is System.DBNull.Value Then
|
||||
m_daLastrun = SqlDateTime.Null
|
||||
Else
|
||||
m_daLastrun = New SqlDateTime(CType(dtToReturn.Rows(0)("lastrun"), Date))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Applikation")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iApplikationnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iApplikationnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iApplikationnrTmp As SqlInt32 = Value
|
||||
If iApplikationnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iApplikationnr", "iApplikationnr can't be NULL")
|
||||
End If
|
||||
m_iApplikationnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daLastrun]() As SqlDateTime
|
||||
Get
|
||||
Return m_daLastrun
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daLastrun = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
289
Archiv/EDKB01/Backup/DB/clsConnectionProvider.vb
Normal file
289
Archiv/EDKB01/Backup/DB/clsConnectionProvider.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 7. Januar 2003, 13:03:43
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Public Overloads Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Protected Overridable Overloads Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = New SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = New ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(ByVal sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End If
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(ByVal sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(ByVal sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(ByVal bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set(ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
202
Archiv/EDKB01/Backup/DB/clsDBInteractionBase.vb
Normal file
202
Archiv/EDKB01/Backup/DB/clsDBInteractionBase.vb
Normal file
@@ -0,0 +1,202 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 7. Januar 2003, 13:03:43
|
||||
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = New SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Public Overloads Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Protected Overridable Overloads Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
520
Archiv/EDKB01/Backup/DB/clsEDEX_BL_Hostdokument.vb
Normal file
520
Archiv/EDKB01/Backup/DB/clsEDEX_BL_Hostdokument.vb
Normal file
@@ -0,0 +1,520 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'EDEX_BL_Hostdokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Freitag, 24. Juni 2005, 08:16:40
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'EDEX_BL_Hostdokument'.
|
||||
' /// </summary>
|
||||
Public Class clsEDEX_BL_Hostdokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_iBl_status, m_iAuslieferung_nr As SqlInt32
|
||||
Private m_sStandamdatum, m_sEx, m_sArchivdatum, m_sVvextern1, m_sVvextern2, m_sRes2, m_sRes3, m_sRes1, m_sDokumenttypnr, m_sLoadid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sReferenzzeile2, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sPartnername_inhaber, m_sValutadatum, m_sDokumentid, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sValutadatum1, m_sValorennr, m_sIsinnr As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sAnzahlseiten. May be SqlString.Null</LI>
|
||||
' /// <LI>sNachvollziehbarkeit. May be SqlString.Null</LI>
|
||||
' /// <LI>sArchivdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iBl_status. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sRes1. May be SqlString.Null</LI>
|
||||
' /// <LI>sRes2. May be SqlString.Null</LI>
|
||||
' /// <LI>sRes3. May be SqlString.Null</LI>
|
||||
' /// <LI>iAuslieferung_nr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
'scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Hostdokument_Insert]"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_edex_bl_EDEX_BL_Hostdokument_Insert]" 'Num Konzept
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ibl_status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBl_status))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes3))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iauslieferung_nr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferung_nr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductID))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetaType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMetaType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrderType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sOrderType))
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsEDEX_BL_Hostdokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Hostdokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("EDEX_BL_Hostdokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsEDEX_BL_Hostdokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMailingProductID As String
|
||||
Public Property [sMailingProductID]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductID
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMailingProductID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMailingProductBezeichnung As String
|
||||
Public Property [sMailingProductBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMailingProductBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMetaType As String
|
||||
Public Property [sMetaType]() As SqlString
|
||||
Get
|
||||
Return m_sMetaType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMetaType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sOrderType As String
|
||||
Public Property [sOrderType]() As SqlString
|
||||
Get
|
||||
Return m_sOrderType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrderType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sTransactnr As String
|
||||
Public Property [sTransactnr]() As SqlString
|
||||
Get
|
||||
Return m_sTransactnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTransactnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iBl_status]() As SqlInt32
|
||||
Get
|
||||
Return m_iBl_status
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iBl_status = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes1]() As SqlString
|
||||
Get
|
||||
Return m_sRes1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes2]() As SqlString
|
||||
Get
|
||||
Return m_sRes2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes3]() As SqlString
|
||||
Get
|
||||
Return m_sRes3
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes3 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuslieferung_nr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuslieferung_nr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuslieferung_nr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
727
Archiv/EDKB01/Backup/DB/clsHost_dokument.vb
Normal file
727
Archiv/EDKB01/Backup/DB/clsHost_dokument.vb
Normal file
@@ -0,0 +1,727 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 30. Juni 2003, 10:32:51
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sNachvollziehbarkeit, m_sDokumentid, m_sAnzahlseiten, m_sDokumenttypnr, m_sLoadid, m_sStandamdatum, m_sVvextern2, m_sEx, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Console.WriteLine(m_sDokumentid.Value & " : " & ex.Message)
|
||||
Throw New Exception("clsHost_dokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller</LI>
|
||||
' /// <LI>sReferenzzeile1</LI>
|
||||
' /// <LI>sReferenzzeile2</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1</LI>
|
||||
' /// <LI>sValorennr</LI>
|
||||
' /// <LI>sIsinnr</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1</LI>
|
||||
' /// <LI>sVvextern2</LI>
|
||||
' /// <LI>sEx</LI>
|
||||
' /// <LI>sStandamdatum</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sLoadid</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_sPartnernr_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnernr_inhaber"), String))
|
||||
If dtToReturn.Rows(0)("partnernr_zusteller") Is System.DBNull.Value Then
|
||||
m_sPartnernr_zusteller = SqlString.Null
|
||||
Else
|
||||
m_sPartnernr_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnernr_zusteller"), String))
|
||||
End If
|
||||
m_sPartnername_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnername_inhaber"), String))
|
||||
If dtToReturn.Rows(0)("partnername_zusteller") Is System.DBNull.Value Then
|
||||
m_sPartnername_zusteller = SqlString.Null
|
||||
Else
|
||||
m_sPartnername_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnername_zusteller"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("referenzzeile1") Is System.DBNull.Value Then
|
||||
m_sReferenzzeile1 = SqlString.Null
|
||||
Else
|
||||
m_sReferenzzeile1 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("referenzzeile2") Is System.DBNull.Value Then
|
||||
m_sReferenzzeile2 = SqlString.Null
|
||||
Else
|
||||
m_sReferenzzeile2 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile2"), String))
|
||||
End If
|
||||
m_sValutadatum = New SqlString(CType(dtToReturn.Rows(0)("valutadatum"), String))
|
||||
If dtToReturn.Rows(0)("valutadatum1") Is System.DBNull.Value Then
|
||||
m_sValutadatum1 = SqlString.Null
|
||||
Else
|
||||
m_sValutadatum1 = New SqlString(CType(dtToReturn.Rows(0)("valutadatum1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("valorennr") Is System.DBNull.Value Then
|
||||
m_sValorennr = SqlString.Null
|
||||
Else
|
||||
m_sValorennr = New SqlString(CType(dtToReturn.Rows(0)("valorennr"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("isinnr") Is System.DBNull.Value Then
|
||||
m_sIsinnr = SqlString.Null
|
||||
Else
|
||||
m_sIsinnr = New SqlString(CType(dtToReturn.Rows(0)("isinnr"), String))
|
||||
End If
|
||||
m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
|
||||
m_sAnzahlseiten = New SqlString(CType(dtToReturn.Rows(0)("anzahlseiten"), String))
|
||||
m_sNachvollziehbarkeit = New SqlString(CType(dtToReturn.Rows(0)("nachvollziehbarkeit"), String))
|
||||
m_sArchivdatum = New SqlString(CType(dtToReturn.Rows(0)("archivdatum"), String))
|
||||
If dtToReturn.Rows(0)("vvextern1") Is System.DBNull.Value Then
|
||||
m_sVvextern1 = SqlString.Null
|
||||
Else
|
||||
m_sVvextern1 = New SqlString(CType(dtToReturn.Rows(0)("vvextern1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("vvextern2") Is System.DBNull.Value Then
|
||||
m_sVvextern2 = SqlString.Null
|
||||
Else
|
||||
m_sVvextern2 = New SqlString(CType(dtToReturn.Rows(0)("vvextern2"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ex") Is System.DBNull.Value Then
|
||||
m_sEx = SqlString.Null
|
||||
Else
|
||||
m_sEx = New SqlString(CType(dtToReturn.Rows(0)("ex"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("standamdatum") Is System.DBNull.Value Then
|
||||
m_sStandamdatum = SqlString.Null
|
||||
Else
|
||||
m_sStandamdatum = New SqlString(CType(dtToReturn.Rows(0)("standamdatum"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then
|
||||
m_sDokumenttypnr = SqlString.Null
|
||||
Else
|
||||
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("loadid") Is System.DBNull.Value Then
|
||||
m_sLoadid = SqlString.Null
|
||||
Else
|
||||
m_sLoadid = New SqlString(CType(dtToReturn.Rows(0)("loadid"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
430
Archiv/EDKB01/Backup/DB/clsHost_dokument_data.vb
Normal file
430
Archiv/EDKB01/Backup/DB/clsHost_dokument_data.vb
Normal file
@@ -0,0 +1,430 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument_data'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
524
Archiv/EDKB01/Backup/DB/clsHost_dokument_import.vb
Normal file
524
Archiv/EDKB01/Backup/DB/clsHost_dokument_import.vb
Normal file
@@ -0,0 +1,524 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument_import'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum, m_sMetatype, m_sOrdertype1, m_sOrdertype2, m_sTransactnr, m_sManr, m_sMailingProduct, m_sMailingProductBezeichnung, m_sBetreffzeile, m_sXomaDocID As SqlString
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
'scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_import_Insert]" 'früher
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_host_dokument_import_Insert]" 'seit Nummerierungkonzept Teil 2
|
||||
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
' Neu auf Mailing-Product! (alt auf DokumentTypNr
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProduct", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProduct))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, ""))
|
||||
'Neue Indexfelder
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBetreffzeile", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sBetreffzeile))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetatype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMetatype))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrdertype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOrdertype1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTransactnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTransactnr.ToSqlInt32))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sManr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sManr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sXomaDocID", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sXomaDocID))
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sMetatype]() As SqlString
|
||||
Get
|
||||
Return m_sMetatype
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMetatype = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sOrdertype1]() As SqlString
|
||||
Get
|
||||
Return m_sOrdertype1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrdertype1 = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sOrdertype2]() As SqlString
|
||||
Get
|
||||
Return m_sOrdertype2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrdertype2 = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sTransactnr]() As SqlString
|
||||
Get
|
||||
Return m_sTransactnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTransactnr = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sManr]() As SqlString
|
||||
Get
|
||||
Return m_sManr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sManr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sMailingProduct]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProduct
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sMailingProduct = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sMailingProductBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sMailingProductBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sBetreffzeile]() As SqlString
|
||||
Get
|
||||
Return m_sBetreffzeile
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sBetreffzeile = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sXomaDocID]() As SqlString
|
||||
Get
|
||||
Return m_sXomaDocID
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sXomaDocID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
451
Archiv/EDKB01/Backup/DB/clsJournal.vb
Normal file
451
Archiv/EDKB01/Backup/DB/clsJournal.vb
Normal file
@@ -0,0 +1,451 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journal'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:24
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journal'.
|
||||
' /// </summary>
|
||||
Public Class clsJournal
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bFehlerhaft As SqlBoolean
|
||||
Private m_daEnde, m_daStart As SqlDateTime
|
||||
Private m_iJournalnr, m_iApplikationnr As SqlInt32
|
||||
Private m_sFehlerbeschreibung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daStart. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iJournalnr = scmCmdToExecute.Parameters.Item("@ijournalnr").Value
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daStart. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>daStart</LI>
|
||||
' /// <LI>daEnde</LI>
|
||||
' /// <LI>bFehlerhaft</LI>
|
||||
' /// <LI>sFehlerbeschreibung</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journal")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
If dtToReturn.Rows(0)("applikationnr") Is System.DBNull.Value Then
|
||||
m_iApplikationnr = SqlInt32.Null
|
||||
Else
|
||||
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("start") Is System.DBNull.Value Then
|
||||
m_daStart = SqlDateTime.Null
|
||||
Else
|
||||
m_daStart = New SqlDateTime(CType(dtToReturn.Rows(0)("start"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ende") Is System.DBNull.Value Then
|
||||
m_daEnde = SqlDateTime.Null
|
||||
Else
|
||||
m_daEnde = New SqlDateTime(CType(dtToReturn.Rows(0)("ende"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("fehlerhaft") Is System.DBNull.Value Then
|
||||
m_bFehlerhaft = SqlBoolean.Null
|
||||
Else
|
||||
m_bFehlerhaft = New SqlBoolean(CType(dtToReturn.Rows(0)("fehlerhaft"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("fehlerbeschreibung") Is System.DBNull.Value Then
|
||||
m_sFehlerbeschreibung = SqlString.Null
|
||||
Else
|
||||
m_sFehlerbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("fehlerbeschreibung"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journal")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournalnrTmp As SqlInt32 = Value
|
||||
If iJournalnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournalnr", "iJournalnr can't be NULL")
|
||||
End If
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iApplikationnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iApplikationnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iApplikationnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daStart]() As SqlDateTime
|
||||
Get
|
||||
Return m_daStart
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daStart = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daEnde]() As SqlDateTime
|
||||
Get
|
||||
Return m_daEnde
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daEnde = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bFehlerhaft]() As SqlBoolean
|
||||
Get
|
||||
Return m_bFehlerhaft
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bFehlerhaft = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sFehlerbeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sFehlerbeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFehlerbeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
437
Archiv/EDKB01/Backup/DB/clsJournaldatei.vb
Normal file
437
Archiv/EDKB01/Backup/DB/clsJournaldatei.vb
Normal file
@@ -0,0 +1,437 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journaldatei'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journaldatei'.
|
||||
' /// </summary>
|
||||
Public Class clsJournaldatei
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_blobDatei As SqlBinary
|
||||
Private m_iJournalnr, m_iJournaldateinr As SqlInt32
|
||||
Private m_sDateiname, m_sBezeichnung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDatei.IsNull Then
|
||||
iLength = m_blobDatei.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDatei.IsNull Then
|
||||
iLength = m_blobDatei.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>blobDatei</LI>
|
||||
' /// <LI>sDateiname</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournaldateinr = New SqlInt32(CType(dtToReturn.Rows(0)("journaldateinr"), Integer))
|
||||
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
|
||||
m_iJournalnr = SqlInt32.Null
|
||||
Else
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datei") Is System.DBNull.Value Then
|
||||
m_blobDatei = SqlBinary.Null
|
||||
Else
|
||||
m_blobDatei = New SqlBinary(CType(dtToReturn.Rows(0)("datei"), Byte()))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then
|
||||
m_sDateiname = SqlString.Null
|
||||
Else
|
||||
m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournaldateinr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournaldateinr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournaldateinrTmp As SqlInt32 = Value
|
||||
If iJournaldateinrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournaldateinr", "iJournaldateinr can't be NULL")
|
||||
End If
|
||||
m_iJournaldateinr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [blobDatei]() As SqlBinary
|
||||
Get
|
||||
Return m_blobDatei
|
||||
End Get
|
||||
Set(ByVal Value As SqlBinary)
|
||||
m_blobDatei = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDateiname]() As SqlString
|
||||
Get
|
||||
Return m_sDateiname
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDateiname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
410
Archiv/EDKB01/Backup/DB/clsJournaleintrag.vb
Normal file
410
Archiv/EDKB01/Backup/DB/clsJournaleintrag.vb
Normal file
@@ -0,0 +1,410 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journaleintrag'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 09:14:59
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journaleintrag'.
|
||||
' /// </summary>
|
||||
Public Class clsJournaleintrag
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daDatumzeit As SqlDateTime
|
||||
Private m_iJournalnr, m_iJournaleintragnr As SqlInt32
|
||||
Private m_sEintrag As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sEintrag. May be SqlString.Null</LI>
|
||||
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sEintrag. May be SqlString.Null</LI>
|
||||
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>sEintrag</LI>
|
||||
' /// <LI>daDatumzeit</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer))
|
||||
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
|
||||
m_iJournalnr = SqlInt32.Null
|
||||
Else
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then
|
||||
m_sEintrag = SqlString.Null
|
||||
Else
|
||||
m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then
|
||||
m_daDatumzeit = SqlDateTime.Null
|
||||
Else
|
||||
m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournaleintragnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournaleintragnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournaleintragnrTmp As SqlInt32 = Value
|
||||
If iJournaleintragnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournaleintragnr", "iJournaleintragnr can't be NULL")
|
||||
End If
|
||||
m_iJournaleintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEintrag]() As SqlString
|
||||
Get
|
||||
Return m_sEintrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEintrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daDatumzeit]() As SqlDateTime
|
||||
Get
|
||||
Return m_daDatumzeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daDatumzeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
234
Archiv/EDKB01/Backup/DB/clsUvm_data.vb
Normal file
234
Archiv/EDKB01/Backup/DB/clsUvm_data.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'uvm_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:12
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'uvm_data'.
|
||||
' /// </summary>
|
||||
Public Class clsUvm_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMERS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("uvm_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMERS00]() As SqlString
|
||||
Get
|
||||
Return m_sDMERS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMERS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
234
Archiv/EDKB01/Backup/DB/clsUvm_import.vb
Normal file
234
Archiv/EDKB01/Backup/DB/clsUvm_import.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'uvm_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:13
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'uvm_import'.
|
||||
' /// </summary>
|
||||
Public Class clsUvm_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMERS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_import_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("uvm_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMERS00]() As SqlString
|
||||
Get
|
||||
Return m_sDMERS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMERS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
427
Archiv/EDKB01/Backup/DB/clsZVBelege_data.vb
Normal file
427
Archiv/EDKB01/Backup/DB/clsZVBelege_data.vb
Normal file
@@ -0,0 +1,427 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'ZVBelege_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'ZVBelege_data'.
|
||||
' /// </summary>
|
||||
Public Class clsZVBelege_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
|
||||
Private m_fBetrag As SqlDouble
|
||||
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00</LI>
|
||||
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRREF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00</LI>
|
||||
' /// <LI>sBESAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
|
||||
' /// <LI>sBTBET00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("ZVBelege_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRDOT00Tmp As SqlString = Value
|
||||
If sNRDOT00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRDOT00", "sNRDOT00 can't be NULL")
|
||||
End If
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBEEAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBEEAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBEEAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDVARC00]() As SqlString
|
||||
Get
|
||||
Return m_sCDVARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDVARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRREF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRREF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRREF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDZAH00]() As SqlString
|
||||
Get
|
||||
Return m_sCDZAH00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDZAH00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPCK00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPCK00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPCK00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRBCL00]() As SqlString
|
||||
Get
|
||||
Return m_sNRBCL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRBCL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG01]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG01
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG01 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRDOC00Tmp As SqlString = Value
|
||||
If sNRDOC00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRDOC00", "sNRDOC00 can't be NULL")
|
||||
End If
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBESAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBESAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBESAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMVAL00]() As SqlString
|
||||
Get
|
||||
Return m_sDMVAL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMVAL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDWAEAI]() As SqlString
|
||||
Get
|
||||
Return m_sCDWAEAI
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDWAEAI = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBTBET00]() As SqlString
|
||||
Get
|
||||
Return m_sBTBET00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBTBET00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG02]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG02
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG02 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG00]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPOS00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPOS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPOS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRAUF00Tmp As SqlString = Value
|
||||
If sNRAUF00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRAUF00", "sNRAUF00 can't be NULL")
|
||||
End If
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInsertTimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInsertTimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInsertTimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daValdat]() As SqlDateTime
|
||||
Get
|
||||
Return m_daValdat
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daValdat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [fBetrag]() As SqlDouble
|
||||
Get
|
||||
Return m_fBetrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlDouble)
|
||||
m_fBetrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
415
Archiv/EDKB01/Backup/DB/clsZvbelege_import.vb
Normal file
415
Archiv/EDKB01/Backup/DB/clsZvbelege_import.vb
Normal file
@@ -0,0 +1,415 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'ZVBelege_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'ZVBelege_import'.
|
||||
' /// </summary>
|
||||
Public Class clsZVBelege_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
|
||||
Private m_fBetrag As SqlDouble
|
||||
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRREF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBESAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
|
||||
' /// <LI>sBTBET00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_import_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("ZVBelege_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBEEAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBEEAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBEEAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDVARC00]() As SqlString
|
||||
Get
|
||||
Return m_sCDVARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDVARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRREF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRREF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRREF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDZAH00]() As SqlString
|
||||
Get
|
||||
Return m_sCDZAH00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDZAH00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPCK00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPCK00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPCK00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRBCL00]() As SqlString
|
||||
Get
|
||||
Return m_sNRBCL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRBCL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG01]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG01
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG01 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBESAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBESAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBESAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMVAL00]() As SqlString
|
||||
Get
|
||||
Return m_sDMVAL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMVAL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDWAEAI]() As SqlString
|
||||
Get
|
||||
Return m_sCDWAEAI
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDWAEAI = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBTBET00]() As SqlString
|
||||
Get
|
||||
Return m_sBTBET00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBTBET00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG02]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG02
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG02 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG00]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPOS00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPOS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPOS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInsertTimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInsertTimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInsertTimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daValdat]() As SqlDateTime
|
||||
Get
|
||||
Return m_daValdat
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daValdat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [fBetrag]() As SqlDouble
|
||||
Get
|
||||
Return m_fBetrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlDouble)
|
||||
m_fBetrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
569
Archiv/EDKB01/Backup/DB/cls_host_dokument.vb
Normal file
569
Archiv/EDKB01/Backup/DB/cls_host_dokument.vb
Normal file
@@ -0,0 +1,569 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table '_host_dokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 2. Februar 2004, 00:58:05
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table '_host_dokument'.
|
||||
' /// </summary>
|
||||
Public Class cls_host_dokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_sDatumbis, m_sDatumvon1, m_sDatumbis1, m_sPartnernr_inhaber, m_sDokumenttypnr, m_sDatumvon As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method using PK field 'partnernr_inhaber'. This method will
|
||||
' /// delete one or more rows from the database, based on the Primary Key field 'partnernr_inhaber'.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Function DeleteWpartnernr_inhaberLogic() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWpartnernr_inhaberLogic]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWpartnernr_inhaberLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::DeleteWpartnernr_inhaberLogic::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method using PK field 'dokumenttypnr'. This method will
|
||||
' /// delete one or more rows from the database, based on the Primary Key field 'dokumenttypnr'.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Function DeleteWdokumenttypnrLogic() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWdokumenttypnrLogic]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::DeleteWdokumenttypnrLogic::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon</LI>
|
||||
' /// <LI>sDatumbis</LI>
|
||||
' /// <LI>sDatumvon1</LI>
|
||||
' /// <LI>sDatumbis1</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_sPartnernr_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnernr_inhaber"), String))
|
||||
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
|
||||
If dtToReturn.Rows(0)("datumvon") Is System.DBNull.Value Then
|
||||
m_sDatumvon = SqlString.Null
|
||||
Else
|
||||
m_sDatumvon = New SqlString(CType(dtToReturn.Rows(0)("datumvon"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumbis") Is System.DBNull.Value Then
|
||||
m_sDatumbis = SqlString.Null
|
||||
Else
|
||||
m_sDatumbis = New SqlString(CType(dtToReturn.Rows(0)("datumbis"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumvon1") Is System.DBNull.Value Then
|
||||
m_sDatumvon1 = SqlString.Null
|
||||
Else
|
||||
m_sDatumvon1 = New SqlString(CType(dtToReturn.Rows(0)("datumvon1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumbis1") Is System.DBNull.Value Then
|
||||
m_sDatumbis1 = SqlString.Null
|
||||
Else
|
||||
m_sDatumbis1 = New SqlString(CType(dtToReturn.Rows(0)("datumbis1"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumenttypnrTmp As SqlString = Value
|
||||
If sDokumenttypnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumenttypnr", "sDokumenttypnr can't be NULL")
|
||||
End If
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumvon]() As SqlString
|
||||
Get
|
||||
Return m_sDatumvon
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumvon = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumbis]() As SqlString
|
||||
Get
|
||||
Return m_sDatumbis
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumbis = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumvon1]() As SqlString
|
||||
Get
|
||||
Return m_sDatumvon1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumvon1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumbis1]() As SqlString
|
||||
Get
|
||||
Return m_sDatumbis1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumbis1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
54
Archiv/EDKB01/Backup/DB/db_connection.vb
Normal file
54
Archiv/EDKB01/Backup/DB/db_connection.vb
Normal file
@@ -0,0 +1,54 @@
|
||||
Namespace EDOKA
|
||||
Public Class DB_Connection
|
||||
Shared Sub New()
|
||||
Try
|
||||
'Edoka
|
||||
oread = IO.File.OpenText(args(1) + "edokaconn.cfg")
|
||||
sConnectionString_edoka = oread.ReadLine
|
||||
Globals.sConnectionString_edoka = sConnectionString_edoka
|
||||
Console.WriteLine("EDOKA_HOST Connected")
|
||||
oread.Close()
|
||||
|
||||
'ZV
|
||||
oread = IO.File.OpenText(args(1) + "edokazvconn.cfg")
|
||||
sConnectionString_ZV = oread.ReadLine
|
||||
Globals.sConnectionString_ZV = sConnectionString_ZV
|
||||
Console.WriteLine("EDOKA_ZV Connected")
|
||||
oread.Close()
|
||||
|
||||
'UVM
|
||||
oread = IO.File.OpenText(args(1) + "edokauvmconn.cfg")
|
||||
sConnectionstring_UVM = oread.ReadLine
|
||||
Globals.sConnectionstring_UVM = sConnectionstring_UVM
|
||||
Console.WriteLine("EDOKA_UVM Connected")
|
||||
oread.Close()
|
||||
|
||||
'Banklagernd
|
||||
oread = IO.File.OpenText(args(1) + "edokablconn.cfg")
|
||||
sConnectionstring_BL = oread.ReadLine
|
||||
Globals.sConnectionstring_BL = sConnectionstring_BL
|
||||
Console.WriteLine("EDOKA-Banklagernd Connected")
|
||||
oread.Close()
|
||||
|
||||
|
||||
'Journale
|
||||
oread = IO.File.OpenText(args(1) + "journaleconn.cfg")
|
||||
sConnectionString_journale = oread.ReadLine
|
||||
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||
Globals.sConnectionString_journale = sConnectionString_journale
|
||||
Console.WriteLine("EDOKA_Journale Connected")
|
||||
oread.Close()
|
||||
|
||||
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
|
||||
Globals.conn_journale.sConnectionString = sConnectionString_journale
|
||||
Globals.conn_ams.sConnectionString = sConnectionString_ams
|
||||
Globals.conn_zv.sConnectionString = sConnectionString_ZV
|
||||
Globals.conn_uvm.sConnectionString = sConnectionstring_UVM
|
||||
Globals.conn_bl.sConnectionString = sConnectionstring_BL
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
37
Archiv/EDKB01/Backup/EDKB01.sln
Normal file
37
Archiv/EDKB01/Backup/EDKB01.sln
Normal file
@@ -0,0 +1,37 @@
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB01", "EDKB01.vbproj", "{84538FD7-A88E-4278-956E-458AB627BE48}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BMSDll", "..\BMS\BMSDll\BMSDll.vbproj", "{A3645B42-5328-4197-92A6-3124FE38AD0C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Common", "..\BMS\Common\Common.vbproj", "{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DataAccess", "..\BMS\DataAccess\DataAccess.vbproj", "{21B54F51-D2B2-459E-895C-540AD4A8704F}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{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
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
Archiv/EDKB01/Backup/EDKB01.v12.suo
Normal file
BIN
Archiv/EDKB01/Backup/EDKB01.v12.suo
Normal file
Binary file not shown.
200
Archiv/EDKB01/Backup/EDKB01.vbproj
Normal file
200
Archiv/EDKB01/Backup/EDKB01.vbproj
Normal file
@@ -0,0 +1,200 @@
|
||||
<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>{84538FD7-A88E-4278-956E-458AB627BE48}</ProjectGuid>
|
||||
<SccProjectName>
|
||||
</SccProjectName>
|
||||
<SccLocalPath>
|
||||
</SccLocalPath>
|
||||
<SccAuxPath>
|
||||
</SccAuxPath>
|
||||
<SccProvider>
|
||||
</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>EDKB01</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Exe</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>EDKB01</RootNamespace>
|
||||
<StartupObject>EDKB01.Module1</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Console</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.1.0.%2a</ApplicationVersion>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB01.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>EDKB01.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="BMS, Version=1.0.3008.13873, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<Reference Include="Common, Version=1.0.3008.13890, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<Reference Include="DataAccess, Version=1.0.3008.13899, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<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="clsLog.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ClsParameters.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsApplikation.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsConnectionProvider.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsDBInteractionBase.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsEDEX_BL_Hostdokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournal.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournaldatei.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournaleintrag.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsUvm_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsUvm_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsZVBelege_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsZvbelege_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\cls_host_dokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\db_connection.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module1.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="MyObjects\Globals.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<VisualStudio>
|
||||
<UserProperties VBdocman_templatePath="chm.vbdt" VBdocman_templateFolder="c:\programme\vbdocmannet\Templates" VBdocman_outputPath="C:\edoka\batch\EDKB01\VBdoc\" VBdocman_pageFooterText="Generated by VBdocman .NET" VBdocman_titlePageText="" VBdocman_autoInsertEOL="1" VBdocman_wordWrapLength="80" VBdocman_autoUpdateParams="0" VBdocman_customVar3="" VBdocman_customVar2="" VBdocman_customVar1="" VBdocman_hxcompPath="" VBdocman_xmlCommentLinePrefix="'''" VBdocman_commentStyleProduce="2" VBdocman_commentStyleRecognize="3" VBdocman_unbreakSourceLines="0" VBdocman_insertSourceGlobal="1" VBdocman_addingMode="0" VBdocman_indentMode="0" VBdocman_showFormsSeparate="0" VBdocman_conditionalConstants="" VBdocman_useConditionalCompilation="0" VBdocman_comWriteDescription="-1" VBdocman_comContextID="0" VBdocman_comDeclare="-1" VBdocman_comEventDecl="0" VBdocman_comAttribute="0" VBdocman_comInterface="-1" VBdocman_comDelegate="-1" VBdocman_comStructure="-1" VBdocman_comEnumeration="-1" VBdocman_comConstant="-1" VBdocman_comVariable="-1" VBdocman_comEvent="-1" VBdocman_comProperty="-1" VBdocman_comForm="-1" VBdocman_comObject="-1" VBdocman_comStdModule="-1" VBdocman_comMethod="-1" VBdocman_comProtectedFriend="-1" VBdocman_comProtected="-1" VBdocman_comFriend="-1" VBdocman_comPrivate="-1" VBdocman_comPublic="-1" VBdocman_comNonCommented="-1" VBdocman_user5Label="User Field 5" VBdocman_user4Label="User Field 4" VBdocman_user3Label="User Field 3" VBdocman_user2Label="User Field 2" VBdocman_user1Label="User Field 1" VBdocman_user5Default="" VBdocman_user4Default="" VBdocman_user3Default="" VBdocman_user2Default="" VBdocman_user1Default="" VBdocman_user5Name="user5" VBdocman_user4Name="user4" VBdocman_user3Name="user3" VBdocman_user2Name="user2" VBdocman_user1Name="user1" VBdocman_addUser5="0" VBdocman_addUser4="0" VBdocman_addUser3="0" VBdocman_addUser2="0" VBdocman_addUser1="0" VBdocman_addIncludeSource="0" VBdocman_addVersion="0" VBdocman_addRevision="0" VBdocman_addAuthor="0" VBdocman_addException="0" VBdocman_addExample="0" VBdocman_addSame="0" VBdocman_addRem="-1" VBdocman_addDescription="-1" VBdocman_addReturn="-1" VBdocman_addParam="-1" VBdocman_addSee="0" />
|
||||
</VisualStudio>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
23
Archiv/EDKB01/Backup/EDKB01.vbproj.user
Normal file
23
Archiv/EDKB01/Backup/EDKB01.vbproj.user
Normal file
@@ -0,0 +1,23 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ProjectView>ShowAllFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>E:\Software-Projekte\EDOKA\Batches\EDKB01\bin\ HOST</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>C:\EDOKA\EDKB01\EDKB01\obj\Debug\ HOST</StartArguments>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
1519
Archiv/EDKB01/Backup/Module1.vb
Normal file
1519
Archiv/EDKB01/Backup/Module1.vb
Normal file
File diff suppressed because it is too large
Load Diff
41
Archiv/EDKB01/Backup/MyObjects/Globals.vb
Normal file
41
Archiv/EDKB01/Backup/MyObjects/Globals.vb
Normal file
@@ -0,0 +1,41 @@
|
||||
'*
|
||||
' Modul Globals
|
||||
'
|
||||
' Dieses Modul beinhaltet Public Objekte und Variablen, welche während der gesamten
|
||||
' Luafzeit von EDOKA benötigt werden
|
||||
'
|
||||
' Autor: Stefan Hutter
|
||||
' Datum: 2.12.2002
|
||||
'*
|
||||
Module Globals
|
||||
'Datenbankvariablen
|
||||
Public Applikationsdaten As DataTable
|
||||
Public AppldataRow As Integer
|
||||
|
||||
Public sConnectionString_edoka As String
|
||||
Public sConnectionString_journale As String
|
||||
Public sConnectionString_ams As String
|
||||
Public sConnectionString_ZV As String
|
||||
Public sConnectionstring_UVM As String
|
||||
Public sConnectionstring_BL As String
|
||||
|
||||
Public args As String() = Environment.GetCommandLineArgs()
|
||||
|
||||
Public conn_edoka As New edokadb.clsConnectionProvider()
|
||||
Public conn_journale As New edokadb.clsConnectionProvider()
|
||||
Public conn_ams As New edokadb.clsConnectionProvider()
|
||||
Public conn_uvm As New edokadb.clsConnectionProvider()
|
||||
Public conn_zv As New edokadb.clsConnectionProvider
|
||||
Public conn_bl As New edokadb.clsConnectionProvider
|
||||
|
||||
Public xFehler As Integer = 0
|
||||
Public Warning As Integer = 0
|
||||
Public DokumentID As String
|
||||
Public ColdDokumentID As String
|
||||
Public KeyNr As Long
|
||||
Public Params As New ClsParameters()
|
||||
|
||||
Public ofile As System.IO.File
|
||||
Public oread As System.IO.StreamReader
|
||||
|
||||
End Module
|
||||
53
Archiv/EDKB01/Backup/clsLog.vb
Normal file
53
Archiv/EDKB01/Backup/clsLog.vb
Normal file
@@ -0,0 +1,53 @@
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Public Class clsLog
|
||||
Dim m_journalid As Long
|
||||
Dim m_applikationid As Long
|
||||
|
||||
Dim clsapplikation As New edokadb.clsApplikation()
|
||||
Dim clsjournal As New edokadb.clsJournal()
|
||||
Dim clsjournaleintrag As New edokadb.clsJournaleintrag()
|
||||
|
||||
Public Sub Startlog(ByVal ApplicationID As Integer)
|
||||
clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
|
||||
clsapplikation.cpMainConnectionProvider = conn_journale
|
||||
clsapplikation.SelectOne()
|
||||
Me.m_applikationid = clsapplikation.iApplikationnr.Value
|
||||
|
||||
clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
|
||||
clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
|
||||
clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
|
||||
clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
|
||||
clsjournal.cpMainConnectionProvider = conn_journale
|
||||
conn_journale.OpenConnection()
|
||||
clsjournal.Insert()
|
||||
Me.m_journalid = clsjournal.iJournalnr.Value
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Public Sub InsertJournale(ByVal Message As String)
|
||||
clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
|
||||
clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
|
||||
clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
|
||||
clsjournaleintrag.cpMainConnectionProvider = conn_journale
|
||||
Console.WriteLine(Message)
|
||||
conn_journale.OpenConnection()
|
||||
clsjournaleintrag.Insert()
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Public Sub StopLog(ByVal applicationid As Integer)
|
||||
clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
|
||||
clsapplikation.cpMainConnectionProvider = conn_journale
|
||||
clsapplikation.SelectOne()
|
||||
clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
|
||||
conn_journale.OpenConnection()
|
||||
clsapplikation.Update()
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
277
Archiv/EDKB01/ClsParameters.vb
Normal file
277
Archiv/EDKB01/ClsParameters.vb
Normal file
@@ -0,0 +1,277 @@
|
||||
Public Class ClsParameters
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim m_applicationid As String
|
||||
Property ApplicationID() As String
|
||||
Get
|
||||
Return m_applicationid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_applicationid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_pathCold As String
|
||||
Property PathColdDateien() As String
|
||||
Get
|
||||
Return m_pathCold
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_pathCold = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_paramfilebin As String
|
||||
Property ParameterFileBin() As String
|
||||
Get
|
||||
Return m_paramfilebin
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_paramfilebin = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_files As String
|
||||
Property Filepfad() As String
|
||||
Get
|
||||
Return m_files
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_files = Value
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Dim m_paramfiletxt As String
|
||||
Property ParameterFileTxt() As String
|
||||
Get
|
||||
Return m_paramfiletxt
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_paramfiletxt = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_filedtostart As String
|
||||
Property FileDtoStart() As String
|
||||
Get
|
||||
Return m_filedtostart
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_filedtostart = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_FileColdReturn As String
|
||||
Property FileColdReturn() As String
|
||||
Get
|
||||
Return m_FileColdReturn
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileColdReturn = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileNeu As String
|
||||
Property FileNeu() As String
|
||||
Get
|
||||
Return m_FileNeu
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileNeu = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileUpdate As String
|
||||
Property FileUpdate() As String
|
||||
Get
|
||||
Return m_FileUpdate
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileUpdate = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileReturnCode As String
|
||||
Property FileReturnCode() As String
|
||||
Get
|
||||
Return m_FileReturnCode
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileReturnCode = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_FileGeneration As String
|
||||
Property FileGeneration() As String
|
||||
Get
|
||||
Return m_FileGeneration
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_FileGeneration = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AnzahlGenerationen As String
|
||||
Property AnzahlGenerationen() As String
|
||||
Get
|
||||
Return m_AnzahlGenerationen
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AnzahlGenerationen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Bankname As String
|
||||
Property Bankname() As String
|
||||
Get
|
||||
Return m_Bankname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Bankname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Printerdriver As String
|
||||
Property PrinterDriver() As String
|
||||
Get
|
||||
Return m_Printerdriver
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Printerdriver = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_printtype As String
|
||||
Property Printtype() As String
|
||||
Get
|
||||
Return m_printtype
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_printtype = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PathTif As String
|
||||
Property PathTif() As String
|
||||
Get
|
||||
Return m_PathTif
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PathTif = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AMSDriveLetter As String
|
||||
Property AMSDriveLetter() As String
|
||||
Get
|
||||
Return m_AMSDriveLetter
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AMSDriveLetter = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_amsServer As String
|
||||
Property AMSServer() As String
|
||||
Get
|
||||
Return m_amsServer
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_amsServer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_amsroot As String
|
||||
Property AMSRoot() As String
|
||||
Get
|
||||
Return m_amsroot
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_amsroot = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Schema As String
|
||||
Property Schema() As String
|
||||
Get
|
||||
Return m_Schema
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Schema = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_MailadresseOK As String
|
||||
Property MailAdresseOK() As String
|
||||
Get
|
||||
Return m_MailadresseOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_MailadresseNOK As String
|
||||
Property MailAdresseNOK() As String
|
||||
Get
|
||||
Return m_MailadresseNOK
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_MailadresseNOK = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_pathtemp As String
|
||||
Property PathTemp() As String
|
||||
Get
|
||||
Return m_pathtemp
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_pathtemp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_cmddatei As String
|
||||
Property CMDDatei() As String
|
||||
Get
|
||||
Return m_cmddatei
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_cmddatei = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_copystat As String
|
||||
Property CMDCopyStat() As String
|
||||
Get
|
||||
Return m_copystat
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_copystat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Function Loadparameters() As String
|
||||
Try
|
||||
oread = IO.File.OpenText(args(1) + "parameters.cfg")
|
||||
Me.ApplicationID = ParamValue(oread.ReadLine)
|
||||
Me.Filepfad = ParamValue(oread.ReadLine)
|
||||
Me.MailAdresseOK = ParamValue(oread.ReadLine)
|
||||
Me.MailAdresseNOK = ParamValue(oread.ReadLine)
|
||||
oread.Close()
|
||||
Return ""
|
||||
Catch ex As Exception
|
||||
Return ex.Message
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function ParamValue(ByVal sinput As String) As String
|
||||
Dim splitter() As String
|
||||
splitter = Split(sinput, "=")
|
||||
ParamValue = splitter(1)
|
||||
End Function
|
||||
End Class
|
||||
449
Archiv/EDKB01/DB/clsApplikation.vb
Normal file
449
Archiv/EDKB01/DB/clsApplikation.vb
Normal file
@@ -0,0 +1,449 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Applikation'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 15. Juni 2003, 07:59:59
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Applikation'.
|
||||
' /// </summary>
|
||||
Public Class clsApplikation
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daMutiert_am, m_daLastrun, m_daErstellt_am As SqlDateTime
|
||||
Private m_iApplikationnr, m_iMutierer As SqlInt32
|
||||
Private m_sBezeichnung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daLastrun. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dalastrun", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLastrun))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>daLastrun</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Applikation")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
|
||||
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("lastrun") Is System.DBNull.Value Then
|
||||
m_daLastrun = SqlDateTime.Null
|
||||
Else
|
||||
m_daLastrun = New SqlDateTime(CType(dtToReturn.Rows(0)("lastrun"), Date))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Applikation")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Applikation_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsApplikation::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iApplikationnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iApplikationnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iApplikationnrTmp As SqlInt32 = Value
|
||||
If iApplikationnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iApplikationnr", "iApplikationnr can't be NULL")
|
||||
End If
|
||||
m_iApplikationnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daLastrun]() As SqlDateTime
|
||||
Get
|
||||
Return m_daLastrun
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daLastrun = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
289
Archiv/EDKB01/DB/clsConnectionProvider.vb
Normal file
289
Archiv/EDKB01/DB/clsConnectionProvider.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 7. Januar 2003, 13:03:43
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Public Overloads Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Protected Overridable Overloads Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = New SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = New ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(ByVal sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End If
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(ByVal sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(ByVal sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(ByVal bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set(ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
202
Archiv/EDKB01/DB/clsDBInteractionBase.vb
Normal file
202
Archiv/EDKB01/DB/clsDBInteractionBase.vb
Normal file
@@ -0,0 +1,202 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 7. Januar 2003, 13:03:43
|
||||
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = New SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Public Overloads Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Protected Overridable Overloads Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
520
Archiv/EDKB01/DB/clsEDEX_BL_Hostdokument.vb
Normal file
520
Archiv/EDKB01/DB/clsEDEX_BL_Hostdokument.vb
Normal file
@@ -0,0 +1,520 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'EDEX_BL_Hostdokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Freitag, 24. Juni 2005, 08:16:40
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'EDEX_BL_Hostdokument'.
|
||||
' /// </summary>
|
||||
Public Class clsEDEX_BL_Hostdokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_iBl_status, m_iAuslieferung_nr As SqlInt32
|
||||
Private m_sStandamdatum, m_sEx, m_sArchivdatum, m_sVvextern1, m_sVvextern2, m_sRes2, m_sRes3, m_sRes1, m_sDokumenttypnr, m_sLoadid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sReferenzzeile2, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sPartnername_inhaber, m_sValutadatum, m_sDokumentid, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sValutadatum1, m_sValorennr, m_sIsinnr As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid. May be SqlString.Null</LI>
|
||||
' /// <LI>sAnzahlseiten. May be SqlString.Null</LI>
|
||||
' /// <LI>sNachvollziehbarkeit. May be SqlString.Null</LI>
|
||||
' /// <LI>sArchivdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iBl_status. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sRes1. May be SqlString.Null</LI>
|
||||
' /// <LI>sRes2. May be SqlString.Null</LI>
|
||||
' /// <LI>sRes3. May be SqlString.Null</LI>
|
||||
' /// <LI>iAuslieferung_nr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
'scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Hostdokument_Insert]"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_edex_bl_EDEX_BL_Hostdokument_Insert]" 'Num Konzept
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ibl_status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBl_status))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sres3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRes3))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iauslieferung_nr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferung_nr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductID", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductID))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetaType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sMetaType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrderType", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_sOrderType))
|
||||
|
||||
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsEDEX_BL_Hostdokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Hostdokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("EDEX_BL_Hostdokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_edex_bl_EDEX_BL_Hostdokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsEDEX_BL_Hostdokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMailingProductID As String
|
||||
Public Property [sMailingProductID]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductID
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMailingProductID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMailingProductBezeichnung As String
|
||||
Public Property [sMailingProductBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMailingProductBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sMetaType As String
|
||||
Public Property [sMetaType]() As SqlString
|
||||
Get
|
||||
Return m_sMetaType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMetaType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sOrderType As String
|
||||
Public Property [sOrderType]() As SqlString
|
||||
Get
|
||||
Return m_sOrderType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrderType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sTransactnr As String
|
||||
Public Property [sTransactnr]() As SqlString
|
||||
Get
|
||||
Return m_sTransactnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTransactnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iBl_status]() As SqlInt32
|
||||
Get
|
||||
Return m_iBl_status
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iBl_status = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes1]() As SqlString
|
||||
Get
|
||||
Return m_sRes1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes2]() As SqlString
|
||||
Get
|
||||
Return m_sRes2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sRes3]() As SqlString
|
||||
Get
|
||||
Return m_sRes3
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sRes3 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuslieferung_nr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuslieferung_nr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuslieferung_nr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
727
Archiv/EDKB01/DB/clsHost_dokument.vb
Normal file
727
Archiv/EDKB01/DB/clsHost_dokument.vb
Normal file
@@ -0,0 +1,727 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 30. Juni 2003, 10:32:51
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sNachvollziehbarkeit, m_sDokumentid, m_sAnzahlseiten, m_sDokumenttypnr, m_sLoadid, m_sStandamdatum, m_sVvextern2, m_sEx, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Console.WriteLine(m_sDokumentid.Value & " : " & ex.Message)
|
||||
Throw New Exception("clsHost_dokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller</LI>
|
||||
' /// <LI>sReferenzzeile1</LI>
|
||||
' /// <LI>sReferenzzeile2</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1</LI>
|
||||
' /// <LI>sValorennr</LI>
|
||||
' /// <LI>sIsinnr</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1</LI>
|
||||
' /// <LI>sVvextern2</LI>
|
||||
' /// <LI>sEx</LI>
|
||||
' /// <LI>sStandamdatum</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sLoadid</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_sPartnernr_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnernr_inhaber"), String))
|
||||
If dtToReturn.Rows(0)("partnernr_zusteller") Is System.DBNull.Value Then
|
||||
m_sPartnernr_zusteller = SqlString.Null
|
||||
Else
|
||||
m_sPartnernr_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnernr_zusteller"), String))
|
||||
End If
|
||||
m_sPartnername_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnername_inhaber"), String))
|
||||
If dtToReturn.Rows(0)("partnername_zusteller") Is System.DBNull.Value Then
|
||||
m_sPartnername_zusteller = SqlString.Null
|
||||
Else
|
||||
m_sPartnername_zusteller = New SqlString(CType(dtToReturn.Rows(0)("partnername_zusteller"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("referenzzeile1") Is System.DBNull.Value Then
|
||||
m_sReferenzzeile1 = SqlString.Null
|
||||
Else
|
||||
m_sReferenzzeile1 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("referenzzeile2") Is System.DBNull.Value Then
|
||||
m_sReferenzzeile2 = SqlString.Null
|
||||
Else
|
||||
m_sReferenzzeile2 = New SqlString(CType(dtToReturn.Rows(0)("referenzzeile2"), String))
|
||||
End If
|
||||
m_sValutadatum = New SqlString(CType(dtToReturn.Rows(0)("valutadatum"), String))
|
||||
If dtToReturn.Rows(0)("valutadatum1") Is System.DBNull.Value Then
|
||||
m_sValutadatum1 = SqlString.Null
|
||||
Else
|
||||
m_sValutadatum1 = New SqlString(CType(dtToReturn.Rows(0)("valutadatum1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("valorennr") Is System.DBNull.Value Then
|
||||
m_sValorennr = SqlString.Null
|
||||
Else
|
||||
m_sValorennr = New SqlString(CType(dtToReturn.Rows(0)("valorennr"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("isinnr") Is System.DBNull.Value Then
|
||||
m_sIsinnr = SqlString.Null
|
||||
Else
|
||||
m_sIsinnr = New SqlString(CType(dtToReturn.Rows(0)("isinnr"), String))
|
||||
End If
|
||||
m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
|
||||
m_sAnzahlseiten = New SqlString(CType(dtToReturn.Rows(0)("anzahlseiten"), String))
|
||||
m_sNachvollziehbarkeit = New SqlString(CType(dtToReturn.Rows(0)("nachvollziehbarkeit"), String))
|
||||
m_sArchivdatum = New SqlString(CType(dtToReturn.Rows(0)("archivdatum"), String))
|
||||
If dtToReturn.Rows(0)("vvextern1") Is System.DBNull.Value Then
|
||||
m_sVvextern1 = SqlString.Null
|
||||
Else
|
||||
m_sVvextern1 = New SqlString(CType(dtToReturn.Rows(0)("vvextern1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("vvextern2") Is System.DBNull.Value Then
|
||||
m_sVvextern2 = SqlString.Null
|
||||
Else
|
||||
m_sVvextern2 = New SqlString(CType(dtToReturn.Rows(0)("vvextern2"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ex") Is System.DBNull.Value Then
|
||||
m_sEx = SqlString.Null
|
||||
Else
|
||||
m_sEx = New SqlString(CType(dtToReturn.Rows(0)("ex"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("standamdatum") Is System.DBNull.Value Then
|
||||
m_sStandamdatum = SqlString.Null
|
||||
Else
|
||||
m_sStandamdatum = New SqlString(CType(dtToReturn.Rows(0)("standamdatum"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then
|
||||
m_sDokumenttypnr = SqlString.Null
|
||||
Else
|
||||
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("loadid") Is System.DBNull.Value Then
|
||||
m_sLoadid = SqlString.Null
|
||||
Else
|
||||
m_sLoadid = New SqlString(CType(dtToReturn.Rows(0)("loadid"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
430
Archiv/EDKB01/DB/clsHost_dokument_data.vb
Normal file
430
Archiv/EDKB01/DB/clsHost_dokument_data.vb
Normal file
@@ -0,0 +1,430 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument_data'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
524
Archiv/EDKB01/DB/clsHost_dokument_import.vb
Normal file
524
Archiv/EDKB01/DB/clsHost_dokument_import.vb
Normal file
@@ -0,0 +1,524 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'host_dokument_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 13. Juli 2004, 00:23:21
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'host_dokument_import'.
|
||||
' /// </summary>
|
||||
Public Class clsHost_dokument_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sArchivdatum, m_sVvextern1, m_sAnzahlseiten, m_sNachvollziehbarkeit, m_sVvextern2, m_sDokumenttypnr, m_sLoadid, m_sEx, m_sStandamdatum, m_sDokumentid, m_sPartnername_zusteller, m_sReferenzzeile1, m_sPartnername_inhaber, m_sPartnernr_inhaber, m_sPartnernr_zusteller, m_sValorennr, m_sIsinnr, m_sValutadatum1, m_sReferenzzeile2, m_sValutadatum, m_sMetatype, m_sOrdertype1, m_sOrdertype2, m_sTransactnr, m_sManr, m_sMailingProduct, m_sMailingProductBezeichnung, m_sBetreffzeile, m_sXomaDocID As SqlString
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sPartnernr_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sPartnername_inhaber</LI>
|
||||
' /// <LI>sPartnername_zusteller. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile1. May be SqlString.Null</LI>
|
||||
' /// <LI>sReferenzzeile2. May be SqlString.Null</LI>
|
||||
' /// <LI>sValutadatum</LI>
|
||||
' /// <LI>sValutadatum1. May be SqlString.Null</LI>
|
||||
' /// <LI>sValorennr. May be SqlString.Null</LI>
|
||||
' /// <LI>sIsinnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumentid</LI>
|
||||
' /// <LI>sAnzahlseiten</LI>
|
||||
' /// <LI>sNachvollziehbarkeit</LI>
|
||||
' /// <LI>sArchivdatum</LI>
|
||||
' /// <LI>sVvextern1. May be SqlString.Null</LI>
|
||||
' /// <LI>sVvextern2. May be SqlString.Null</LI>
|
||||
' /// <LI>sEx. May be SqlString.Null</LI>
|
||||
' /// <LI>sStandamdatum. May be SqlString.Null</LI>
|
||||
' /// <LI>sDokumenttypnr. May be SqlString.Null</LI>
|
||||
' /// <LI>sLoadid. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
'scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_import_Insert]" 'früher
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_host_dokument_import_Insert]" 'seit Nummerierungkonzept Teil 2
|
||||
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnername_zusteller", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPartnername_zusteller))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sreferenzzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReferenzzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalutadatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValutadatum1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svalorennr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sValorennr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sisinnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIsinnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sanzahlseiten", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sAnzahlseiten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@snachvollziehbarkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNachvollziehbarkeit))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sArchivdatum))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@svvextern2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvextern2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEx))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sstandamdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStandamdatum))
|
||||
' Neu auf Mailing-Product! (alt auf DokumentTypNr
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProduct", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProduct))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sloadid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoadid))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, ""))
|
||||
'Neue Indexfelder
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMailingProductBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailingProductBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBetreffzeile", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sBetreffzeile))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMetatype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMetatype))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOrdertype", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOrdertype1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTransactnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTransactnr.ToSqlInt32))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sManr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sManr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sXomaDocID", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sXomaDocID))
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_host_dokument_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("host_dokument_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_host_dokument_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsHost_dokument_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnernr_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnernr_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnername_inhaberTmp As SqlString = Value
|
||||
If sPartnername_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnername_inhaber", "sPartnername_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnername_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sPartnername_zusteller]() As SqlString
|
||||
Get
|
||||
Return m_sPartnername_zusteller
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sPartnername_zusteller = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReferenzzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sReferenzzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReferenzzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sValutadatumTmp As SqlString = Value
|
||||
If sValutadatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sValutadatum", "sValutadatum can't be NULL")
|
||||
End If
|
||||
m_sValutadatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValutadatum1]() As SqlString
|
||||
Get
|
||||
Return m_sValutadatum1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValutadatum1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sValorennr]() As SqlString
|
||||
Get
|
||||
Return m_sValorennr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sValorennr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sIsinnr]() As SqlString
|
||||
Get
|
||||
Return m_sIsinnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sIsinnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumentid]() As SqlString
|
||||
Get
|
||||
Return m_sDokumentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumentidTmp As SqlString = Value
|
||||
If sDokumentidTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL")
|
||||
End If
|
||||
m_sDokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAnzahlseiten]() As SqlString
|
||||
Get
|
||||
Return m_sAnzahlseiten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sAnzahlseitenTmp As SqlString = Value
|
||||
If sAnzahlseitenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sAnzahlseiten", "sAnzahlseiten can't be NULL")
|
||||
End If
|
||||
m_sAnzahlseiten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNachvollziehbarkeit]() As SqlString
|
||||
Get
|
||||
Return m_sNachvollziehbarkeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNachvollziehbarkeitTmp As SqlString = Value
|
||||
If sNachvollziehbarkeitTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNachvollziehbarkeit", "sNachvollziehbarkeit can't be NULL")
|
||||
End If
|
||||
m_sNachvollziehbarkeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sArchivdatum]() As SqlString
|
||||
Get
|
||||
Return m_sArchivdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sArchivdatumTmp As SqlString = Value
|
||||
If sArchivdatumTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sArchivdatum", "sArchivdatum can't be NULL")
|
||||
End If
|
||||
m_sArchivdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern1]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVvextern2]() As SqlString
|
||||
Get
|
||||
Return m_sVvextern2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVvextern2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEx]() As SqlString
|
||||
Get
|
||||
Return m_sEx
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEx = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sStandamdatum]() As SqlString
|
||||
Get
|
||||
Return m_sStandamdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sStandamdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sLoadid]() As SqlString
|
||||
Get
|
||||
Return m_sLoadid
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sLoadid = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sMetatype]() As SqlString
|
||||
Get
|
||||
Return m_sMetatype
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sMetatype = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sOrdertype1]() As SqlString
|
||||
Get
|
||||
Return m_sOrdertype1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrdertype1 = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sOrdertype2]() As SqlString
|
||||
Get
|
||||
Return m_sOrdertype2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOrdertype2 = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sTransactnr]() As SqlString
|
||||
Get
|
||||
Return m_sTransactnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTransactnr = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property [sManr]() As SqlString
|
||||
Get
|
||||
Return m_sManr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sManr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sMailingProduct]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProduct
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sMailingProduct = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sMailingProductBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sMailingProductBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sMailingProductBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sBetreffzeile]() As SqlString
|
||||
Get
|
||||
Return m_sBetreffzeile
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sBetreffzeile = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sXomaDocID]() As SqlString
|
||||
Get
|
||||
Return m_sXomaDocID
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
|
||||
m_sXomaDocID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
451
Archiv/EDKB01/DB/clsJournal.vb
Normal file
451
Archiv/EDKB01/DB/clsJournal.vb
Normal file
@@ -0,0 +1,451 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journal'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:24
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journal'.
|
||||
' /// </summary>
|
||||
Public Class clsJournal
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bFehlerhaft As SqlBoolean
|
||||
Private m_daEnde, m_daStart As SqlDateTime
|
||||
Private m_iJournalnr, m_iApplikationnr As SqlInt32
|
||||
Private m_sFehlerbeschreibung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daStart. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iJournalnr = scmCmdToExecute.Parameters.Item("@ijournalnr").Value
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iApplikationnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>daStart. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daEnde. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>bFehlerhaft. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>sFehlerbeschreibung. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dastart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daStart))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daende", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daEnde))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfehlerhaft", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFehlerhaft))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sfehlerbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFehlerbeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>iApplikationnr</LI>
|
||||
' /// <LI>daStart</LI>
|
||||
' /// <LI>daEnde</LI>
|
||||
' /// <LI>bFehlerhaft</LI>
|
||||
' /// <LI>sFehlerbeschreibung</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journal")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
If dtToReturn.Rows(0)("applikationnr") Is System.DBNull.Value Then
|
||||
m_iApplikationnr = SqlInt32.Null
|
||||
Else
|
||||
m_iApplikationnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("start") Is System.DBNull.Value Then
|
||||
m_daStart = SqlDateTime.Null
|
||||
Else
|
||||
m_daStart = New SqlDateTime(CType(dtToReturn.Rows(0)("start"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ende") Is System.DBNull.Value Then
|
||||
m_daEnde = SqlDateTime.Null
|
||||
Else
|
||||
m_daEnde = New SqlDateTime(CType(dtToReturn.Rows(0)("ende"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("fehlerhaft") Is System.DBNull.Value Then
|
||||
m_bFehlerhaft = SqlBoolean.Null
|
||||
Else
|
||||
m_bFehlerhaft = New SqlBoolean(CType(dtToReturn.Rows(0)("fehlerhaft"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("fehlerbeschreibung") Is System.DBNull.Value Then
|
||||
m_sFehlerbeschreibung = SqlString.Null
|
||||
Else
|
||||
m_sFehlerbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("fehlerbeschreibung"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journal_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journal")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journal_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournal::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournalnrTmp As SqlInt32 = Value
|
||||
If iJournalnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournalnr", "iJournalnr can't be NULL")
|
||||
End If
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iApplikationnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iApplikationnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iApplikationnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daStart]() As SqlDateTime
|
||||
Get
|
||||
Return m_daStart
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daStart = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daEnde]() As SqlDateTime
|
||||
Get
|
||||
Return m_daEnde
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daEnde = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bFehlerhaft]() As SqlBoolean
|
||||
Get
|
||||
Return m_bFehlerhaft
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bFehlerhaft = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sFehlerbeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sFehlerbeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFehlerbeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
437
Archiv/EDKB01/DB/clsJournaldatei.vb
Normal file
437
Archiv/EDKB01/DB/clsJournaldatei.vb
Normal file
@@ -0,0 +1,437 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journaldatei'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journaldatei'.
|
||||
' /// </summary>
|
||||
Public Class clsJournaldatei
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_blobDatei As SqlBinary
|
||||
Private m_iJournalnr, m_iJournaldateinr As SqlInt32
|
||||
Private m_sDateiname, m_sBezeichnung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDatei.IsNull Then
|
||||
iLength = m_blobDatei.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
' /// <LI>blobDatei. May be SqlBinary.Null</LI>
|
||||
' /// <LI>sDateiname. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDatei.IsNull Then
|
||||
iLength = m_blobDatei.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobdatei", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDatei))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournaldateinr</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>sBezeichnung</LI>
|
||||
' /// <LI>blobDatei</LI>
|
||||
' /// <LI>sDateiname</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaldateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaldateinr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournaldateinr = New SqlInt32(CType(dtToReturn.Rows(0)("journaldateinr"), Integer))
|
||||
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
|
||||
m_iJournalnr = SqlInt32.Null
|
||||
Else
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datei") Is System.DBNull.Value Then
|
||||
m_blobDatei = SqlBinary.Null
|
||||
Else
|
||||
m_blobDatei = New SqlBinary(CType(dtToReturn.Rows(0)("datei"), Byte()))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then
|
||||
m_sDateiname = SqlString.Null
|
||||
Else
|
||||
m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaldatei_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaldatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaldatei_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaldatei::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournaldateinr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournaldateinr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournaldateinrTmp As SqlInt32 = Value
|
||||
If iJournaldateinrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournaldateinr", "iJournaldateinr can't be NULL")
|
||||
End If
|
||||
m_iJournaldateinr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [blobDatei]() As SqlBinary
|
||||
Get
|
||||
Return m_blobDatei
|
||||
End Get
|
||||
Set(ByVal Value As SqlBinary)
|
||||
m_blobDatei = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDateiname]() As SqlString
|
||||
Get
|
||||
Return m_sDateiname
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDateiname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
410
Archiv/EDKB01/DB/clsJournaleintrag.vb
Normal file
410
Archiv/EDKB01/DB/clsJournaleintrag.vb
Normal file
@@ -0,0 +1,410 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Journaleintrag'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 09:14:59
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Journaleintrag'.
|
||||
' /// </summary>
|
||||
Public Class clsJournaleintrag
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daDatumzeit As SqlDateTime
|
||||
Private m_iJournalnr, m_iJournaleintragnr As SqlInt32
|
||||
Private m_sEintrag As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sEintrag. May be SqlString.Null</LI>
|
||||
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iJournalnr. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sEintrag. May be SqlString.Null</LI>
|
||||
' /// <LI>daDatumzeit. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iJournaleintragnr</LI>
|
||||
' /// <LI>iJournalnr</LI>
|
||||
' /// <LI>sEintrag</LI>
|
||||
' /// <LI>daDatumzeit</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer))
|
||||
If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
|
||||
m_iJournalnr = SqlInt32.Null
|
||||
Else
|
||||
m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then
|
||||
m_sEintrag = SqlString.Null
|
||||
Else
|
||||
m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then
|
||||
m_daDatumzeit = SqlDateTime.Null
|
||||
Else
|
||||
m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsJournaleintrag::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iJournaleintragnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournaleintragnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iJournaleintragnrTmp As SqlInt32 = Value
|
||||
If iJournaleintragnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iJournaleintragnr", "iJournaleintragnr can't be NULL")
|
||||
End If
|
||||
m_iJournaleintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iJournalnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iJournalnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iJournalnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sEintrag]() As SqlString
|
||||
Get
|
||||
Return m_sEintrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sEintrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daDatumzeit]() As SqlDateTime
|
||||
Get
|
||||
Return m_daDatumzeit
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daDatumzeit = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
234
Archiv/EDKB01/DB/clsUvm_data.vb
Normal file
234
Archiv/EDKB01/DB/clsUvm_data.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'uvm_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:12
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'uvm_data'.
|
||||
' /// </summary>
|
||||
Public Class clsUvm_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMERS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("uvm_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMERS00]() As SqlString
|
||||
Get
|
||||
Return m_sDMERS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMERS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
234
Archiv/EDKB01/DB/clsUvm_import.vb
Normal file
234
Archiv/EDKB01/DB/clsUvm_import.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'uvm_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 27. Juli 2004, 20:30:13
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'uvm_import'.
|
||||
' /// </summary>
|
||||
Public Class clsUvm_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInserttimestamp As SqlDateTime
|
||||
Private m_sDMERS00, m_sDMARC00, m_sNRAUF00, m_sNRDOT00, m_sNRDOC00, m_sNRPAR00 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMERS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInserttimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_import_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMERS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMERS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dainserttimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInserttimestamp))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_uvm_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("uvm_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_uvm_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsUvm_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMERS00]() As SqlString
|
||||
Get
|
||||
Return m_sDMERS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMERS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInserttimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInserttimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInserttimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
427
Archiv/EDKB01/DB/clsZVBelege_data.vb
Normal file
427
Archiv/EDKB01/DB/clsZVBelege_data.vb
Normal file
@@ -0,0 +1,427 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'ZVBelege_data'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'ZVBelege_data'.
|
||||
' /// </summary>
|
||||
Public Class clsZVBelege_data
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
|
||||
Private m_fBetrag As SqlDouble
|
||||
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00</LI>
|
||||
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRREF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00</LI>
|
||||
' /// <LI>sBESAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
|
||||
' /// <LI>sBTBET00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_data_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_data::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_data_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("ZVBelege_data")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_data_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_data::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRDOT00Tmp As SqlString = Value
|
||||
If sNRDOT00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRDOT00", "sNRDOT00 can't be NULL")
|
||||
End If
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBEEAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBEEAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBEEAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDVARC00]() As SqlString
|
||||
Get
|
||||
Return m_sCDVARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDVARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRREF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRREF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRREF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDZAH00]() As SqlString
|
||||
Get
|
||||
Return m_sCDZAH00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDZAH00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPCK00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPCK00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPCK00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRBCL00]() As SqlString
|
||||
Get
|
||||
Return m_sNRBCL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRBCL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG01]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG01
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG01 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRDOC00Tmp As SqlString = Value
|
||||
If sNRDOC00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRDOC00", "sNRDOC00 can't be NULL")
|
||||
End If
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBESAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBESAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBESAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMVAL00]() As SqlString
|
||||
Get
|
||||
Return m_sDMVAL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMVAL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDWAEAI]() As SqlString
|
||||
Get
|
||||
Return m_sCDWAEAI
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDWAEAI = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBTBET00]() As SqlString
|
||||
Get
|
||||
Return m_sBTBET00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBTBET00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG02]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG02
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG02 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG00]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPOS00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPOS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPOS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sNRAUF00Tmp As SqlString = Value
|
||||
If sNRAUF00Tmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sNRAUF00", "sNRAUF00 can't be NULL")
|
||||
End If
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInsertTimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInsertTimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInsertTimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daValdat]() As SqlDateTime
|
||||
Get
|
||||
Return m_daValdat
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daValdat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [fBetrag]() As SqlDouble
|
||||
Get
|
||||
Return m_fBetrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlDouble)
|
||||
m_fBetrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
415
Archiv/EDKB01/DB/clsZvbelege_import.vb
Normal file
415
Archiv/EDKB01/DB/clsZvbelege_import.vb
Normal file
@@ -0,0 +1,415 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'ZVBelege_import'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 28. August 2004, 09:27:01
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'ZVBelege_import'.
|
||||
' /// </summary>
|
||||
Public Class clsZVBelege_import
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daInsertTimestamp, m_daValdat As SqlDateTime
|
||||
Private m_fBetrag As SqlDouble
|
||||
Private m_sNRPAR00, m_sNEVVG02, m_sCDWAEAI, m_sBTBET00, m_sNRAUF00, m_sDMARC00, m_sNEVVG00, m_sNRPOS00, m_sNRREF00, m_sCDZAH00, m_sCDVARC00, m_sNRDOT00, m_sBEEAD00, m_sNRPCK00, m_sBESAD00, m_sDMVAL00, m_sNRDOC00, m_sNRBCL00, m_sNEVVG01 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sNRDOT00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBEEAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDVARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRREF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDZAH00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPCK00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRBCL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG01. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRDOC00. May be SqlString.Null</LI>
|
||||
' /// <LI>sBESAD00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMVAL00. May be SqlString.Null</LI>
|
||||
' /// <LI>sCDWAEAI. May be SqlString.Null</LI>
|
||||
' /// <LI>sBTBET00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPAR00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG02. May be SqlString.Null</LI>
|
||||
' /// <LI>sNEVVG00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRPOS00. May be SqlString.Null</LI>
|
||||
' /// <LI>sNRAUF00. May be SqlString.Null</LI>
|
||||
' /// <LI>sDMARC00. May be SqlString.Null</LI>
|
||||
' /// <LI>daInsertTimestamp. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daValdat. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>fBetrag. May be SqlDouble.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_import_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOT00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOT00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEEAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEEAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRREF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRREF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDZAH00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDZAH00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPCK00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPCK00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRBCL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRBCL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG01", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG01))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRDOC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRDOC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESAD00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESAD00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMVAL00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMVAL00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDWAEAI", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDWAEAI))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBTBET00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBTBET00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPAR00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG02", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG02))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNEVVG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNEVVG00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPOS00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPOS00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRAUF00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRAUF00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMARC00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMARC00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daInsertTimestamp", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daInsertTimestamp))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@davaldat", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daValdat))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fbetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_import::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_ZVBelege_import_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("ZVBelege_import")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_ZVBelege_import_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsZVBelege_import::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sNRDOT00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOT00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOT00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBEEAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBEEAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBEEAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDVARC00]() As SqlString
|
||||
Get
|
||||
Return m_sCDVARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDVARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRREF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRREF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRREF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDZAH00]() As SqlString
|
||||
Get
|
||||
Return m_sCDZAH00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDZAH00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPCK00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPCK00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPCK00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRBCL00]() As SqlString
|
||||
Get
|
||||
Return m_sNRBCL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRBCL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG01]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG01
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG01 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRDOC00]() As SqlString
|
||||
Get
|
||||
Return m_sNRDOC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRDOC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBESAD00]() As SqlString
|
||||
Get
|
||||
Return m_sBESAD00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBESAD00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMVAL00]() As SqlString
|
||||
Get
|
||||
Return m_sDMVAL00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMVAL00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sCDWAEAI]() As SqlString
|
||||
Get
|
||||
Return m_sCDWAEAI
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sCDWAEAI = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBTBET00]() As SqlString
|
||||
Get
|
||||
Return m_sBTBET00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBTBET00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPAR00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPAR00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPAR00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG02]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG02
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG02 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNEVVG00]() As SqlString
|
||||
Get
|
||||
Return m_sNEVVG00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNEVVG00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRPOS00]() As SqlString
|
||||
Get
|
||||
Return m_sNRPOS00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRPOS00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNRAUF00]() As SqlString
|
||||
Get
|
||||
Return m_sNRAUF00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNRAUF00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDMARC00]() As SqlString
|
||||
Get
|
||||
Return m_sDMARC00
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDMARC00 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daInsertTimestamp]() As SqlDateTime
|
||||
Get
|
||||
Return m_daInsertTimestamp
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daInsertTimestamp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daValdat]() As SqlDateTime
|
||||
Get
|
||||
Return m_daValdat
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daValdat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [fBetrag]() As SqlDouble
|
||||
Get
|
||||
Return m_fBetrag
|
||||
End Get
|
||||
Set(ByVal Value As SqlDouble)
|
||||
m_fBetrag = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
569
Archiv/EDKB01/DB/cls_host_dokument.vb
Normal file
569
Archiv/EDKB01/DB/cls_host_dokument.vb
Normal file
@@ -0,0 +1,569 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table '_host_dokument'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 2. Februar 2004, 00:58:05
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table '_host_dokument'.
|
||||
' /// </summary>
|
||||
Public Class cls_host_dokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_sDatumbis, m_sDatumvon1, m_sDatumbis1, m_sPartnernr_inhaber, m_sDokumenttypnr, m_sDatumvon As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumvon1. May be SqlString.Null</LI>
|
||||
' /// <LI>sDatumbis1. May be SqlString.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumvon1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumvon1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatumbis1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatumbis1))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method using PK field 'partnernr_inhaber'. This method will
|
||||
' /// delete one or more rows from the database, based on the Primary Key field 'partnernr_inhaber'.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Function DeleteWpartnernr_inhaberLogic() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWpartnernr_inhaberLogic]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWpartnernr_inhaberLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::DeleteWpartnernr_inhaberLogic::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method using PK field 'dokumenttypnr'. This method will
|
||||
' /// delete one or more rows from the database, based on the Primary Key field 'dokumenttypnr'.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Function DeleteWdokumenttypnrLogic() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_DeleteWdokumenttypnrLogic]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, false, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 255, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, Integer))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_DeleteWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::DeleteWdokumenttypnrLogic::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>sPartnernr_inhaber</LI>
|
||||
' /// <LI>sDokumenttypnr</LI>
|
||||
' /// <LI>sDatumvon</LI>
|
||||
' /// <LI>sDatumbis</LI>
|
||||
' /// <LI>sDatumvon1</LI>
|
||||
' /// <LI>sDatumbis1</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@spartnernr_inhaber", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sPartnernr_inhaber))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumenttypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_sPartnernr_inhaber = New SqlString(CType(dtToReturn.Rows(0)("partnernr_inhaber"), String))
|
||||
m_sDokumenttypnr = New SqlString(CType(dtToReturn.Rows(0)("dokumenttypnr"), String))
|
||||
If dtToReturn.Rows(0)("datumvon") Is System.DBNull.Value Then
|
||||
m_sDatumvon = SqlString.Null
|
||||
Else
|
||||
m_sDatumvon = New SqlString(CType(dtToReturn.Rows(0)("datumvon"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumbis") Is System.DBNull.Value Then
|
||||
m_sDatumbis = SqlString.Null
|
||||
Else
|
||||
m_sDatumbis = New SqlString(CType(dtToReturn.Rows(0)("datumbis"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumvon1") Is System.DBNull.Value Then
|
||||
m_sDatumvon1 = SqlString.Null
|
||||
Else
|
||||
m_sDatumvon1 = New SqlString(CType(dtToReturn.Rows(0)("datumvon1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("datumbis1") Is System.DBNull.Value Then
|
||||
m_sDatumbis1 = SqlString.Null
|
||||
Else
|
||||
m_sDatumbis1 = New SqlString(CType(dtToReturn.Rows(0)("datumbis1"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr__host_dokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("_host_dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr__host_dokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("cls_host_dokument::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [sPartnernr_inhaber]() As SqlString
|
||||
Get
|
||||
Return m_sPartnernr_inhaber
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sPartnernr_inhaberTmp As SqlString = Value
|
||||
If sPartnernr_inhaberTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sPartnernr_inhaber", "sPartnernr_inhaber can't be NULL")
|
||||
End If
|
||||
m_sPartnernr_inhaber = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDokumenttypnr]() As SqlString
|
||||
Get
|
||||
Return m_sDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sDokumenttypnrTmp As SqlString = Value
|
||||
If sDokumenttypnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sDokumenttypnr", "sDokumenttypnr can't be NULL")
|
||||
End If
|
||||
m_sDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumvon]() As SqlString
|
||||
Get
|
||||
Return m_sDatumvon
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumvon = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumbis]() As SqlString
|
||||
Get
|
||||
Return m_sDatumbis
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumbis = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumvon1]() As SqlString
|
||||
Get
|
||||
Return m_sDatumvon1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumvon1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDatumbis1]() As SqlString
|
||||
Get
|
||||
Return m_sDatumbis1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDatumbis1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
54
Archiv/EDKB01/DB/db_connection.vb
Normal file
54
Archiv/EDKB01/DB/db_connection.vb
Normal file
@@ -0,0 +1,54 @@
|
||||
Namespace EDOKA
|
||||
Public Class DB_Connection
|
||||
Shared Sub New()
|
||||
Try
|
||||
'Edoka
|
||||
oread = IO.File.OpenText(args(1) + "edokaconn.cfg")
|
||||
sConnectionString_edoka = oread.ReadLine
|
||||
Globals.sConnectionString_edoka = sConnectionString_edoka
|
||||
Console.WriteLine("EDOKA_HOST Connected")
|
||||
oread.Close()
|
||||
|
||||
'ZV
|
||||
oread = IO.File.OpenText(args(1) + "edokazvconn.cfg")
|
||||
sConnectionString_ZV = oread.ReadLine
|
||||
Globals.sConnectionString_ZV = sConnectionString_ZV
|
||||
Console.WriteLine("EDOKA_ZV Connected")
|
||||
oread.Close()
|
||||
|
||||
'UVM
|
||||
oread = IO.File.OpenText(args(1) + "edokauvmconn.cfg")
|
||||
sConnectionstring_UVM = oread.ReadLine
|
||||
Globals.sConnectionstring_UVM = sConnectionstring_UVM
|
||||
Console.WriteLine("EDOKA_UVM Connected")
|
||||
oread.Close()
|
||||
|
||||
'Banklagernd
|
||||
oread = IO.File.OpenText(args(1) + "edokablconn.cfg")
|
||||
sConnectionstring_BL = oread.ReadLine
|
||||
Globals.sConnectionstring_BL = sConnectionstring_BL
|
||||
Console.WriteLine("EDOKA-Banklagernd Connected")
|
||||
oread.Close()
|
||||
|
||||
|
||||
'Journale
|
||||
oread = IO.File.OpenText(args(1) + "journaleconn.cfg")
|
||||
sConnectionString_journale = oread.ReadLine
|
||||
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||
Globals.sConnectionString_journale = sConnectionString_journale
|
||||
Console.WriteLine("EDOKA_Journale Connected")
|
||||
oread.Close()
|
||||
|
||||
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
|
||||
Globals.conn_journale.sConnectionString = sConnectionString_journale
|
||||
Globals.conn_ams.sConnectionString = sConnectionString_ams
|
||||
Globals.conn_zv.sConnectionString = sConnectionString_ZV
|
||||
Globals.conn_uvm.sConnectionString = sConnectionstring_UVM
|
||||
Globals.conn_bl.sConnectionString = sConnectionstring_BL
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
BIN
Archiv/EDKB01/DB/vssver.scc
Normal file
BIN
Archiv/EDKB01/DB/vssver.scc
Normal file
Binary file not shown.
1
Archiv/EDKB01/EDKB01.jmconfig
Normal file
1
Archiv/EDKB01/EDKB01.jmconfig
Normal file
@@ -0,0 +1 @@
|
||||
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>
|
||||
47
Archiv/EDKB01/EDKB01.sln
Normal file
47
Archiv/EDKB01/EDKB01.sln
Normal file
@@ -0,0 +1,47 @@
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2013
|
||||
VisualStudioVersion = 12.0.30501.0
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB01", "EDKB01.vbproj", "{84538FD7-A88E-4278-956E-458AB627BE48}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BMSDll", "..\BMS\BMSDll\BMSDll.vbproj", "{A3645B42-5328-4197-92A6-3124FE38AD0C}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Common", "..\BMS\Common\Common.vbproj", "{A1E2756A-4E32-40BB-B449-9BDA1C15DE84}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DataAccess", "..\BMS\DataAccess\DataAccess.vbproj", "{21B54F51-D2B2-459E-895C-540AD4A8704F}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(TeamFoundationVersionControl) = preSolution
|
||||
SccNumberOfProjects = 2
|
||||
SccEnterpriseProvider = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C}
|
||||
SccTeamFoundationServer = http://shu00:8080/tfs/defaultcollection
|
||||
SccLocalPath0 = .
|
||||
SccProjectUniqueName1 = EDKB01.vbproj
|
||||
SccLocalPath1 = .
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{84538FD7-A88E-4278-956E-458AB627BE48}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{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
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
7
Archiv/EDKB01/EDKB01.sln.vsdoc
Normal file
7
Archiv/EDKB01/EDKB01.sln.vsdoc
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
BIN
Archiv/EDKB01/EDKB01.suo
Normal file
BIN
Archiv/EDKB01/EDKB01.suo
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/EDKB01.v12.suo
Normal file
BIN
Archiv/EDKB01/EDKB01.v12.suo
Normal file
Binary file not shown.
200
Archiv/EDKB01/EDKB01.vbproj
Normal file
200
Archiv/EDKB01/EDKB01.vbproj
Normal file
@@ -0,0 +1,200 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{84538FD7-A88E-4278-956E-458AB627BE48}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>EDKB01</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Exe</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>EDKB01</RootNamespace>
|
||||
<StartupObject>EDKB01.Module1</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Console</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.1.0.%2a</ApplicationVersion>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<OldToolsVersion>2.0</OldToolsVersion>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB01.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,42353,42354,42355</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB01.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,42353,42354,42355</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="BMS, Version=1.0.3008.13873, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<Reference Include="Common, Version=1.0.3008.13890, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<Reference Include="DataAccess, Version=1.0.3008.13899, Culture=neutral, processorArchitecture=MSIL" />
|
||||
<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="clsLog.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ClsParameters.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsApplikation.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsConnectionProvider.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsDBInteractionBase.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsEDEX_BL_Hostdokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsHost_dokument_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournal.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournaldatei.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsJournaleintrag.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsUvm_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsUvm_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsZVBelege_data.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\clsZvbelege_import.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\cls_host_dokument.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DB\db_connection.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module1.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="MyObjects\Globals.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<VisualStudio>
|
||||
<UserProperties VBdocman_addSee="0" VBdocman_addParam="-1" VBdocman_addReturn="-1" VBdocman_addDescription="-1" VBdocman_addRem="-1" VBdocman_addSame="0" VBdocman_addExample="0" VBdocman_addException="0" VBdocman_addAuthor="0" VBdocman_addRevision="0" VBdocman_addVersion="0" VBdocman_addIncludeSource="0" VBdocman_addUser1="0" VBdocman_addUser2="0" VBdocman_addUser3="0" VBdocman_addUser4="0" VBdocman_addUser5="0" VBdocman_user1Name="user1" VBdocman_user2Name="user2" VBdocman_user3Name="user3" VBdocman_user4Name="user4" VBdocman_user5Name="user5" VBdocman_user1Default="" VBdocman_user2Default="" VBdocman_user3Default="" VBdocman_user4Default="" VBdocman_user5Default="" VBdocman_user1Label="User Field 1" VBdocman_user2Label="User Field 2" VBdocman_user3Label="User Field 3" VBdocman_user4Label="User Field 4" VBdocman_user5Label="User Field 5" VBdocman_comNonCommented="-1" VBdocman_comPublic="-1" VBdocman_comPrivate="-1" VBdocman_comFriend="-1" VBdocman_comProtected="-1" VBdocman_comProtectedFriend="-1" VBdocman_comMethod="-1" VBdocman_comStdModule="-1" VBdocman_comObject="-1" VBdocman_comForm="-1" VBdocman_comProperty="-1" VBdocman_comEvent="-1" VBdocman_comVariable="-1" VBdocman_comConstant="-1" VBdocman_comEnumeration="-1" VBdocman_comStructure="-1" VBdocman_comDelegate="-1" VBdocman_comInterface="-1" VBdocman_comAttribute="0" VBdocman_comEventDecl="0" VBdocman_comDeclare="-1" VBdocman_comContextID="0" VBdocman_comWriteDescription="-1" VBdocman_useConditionalCompilation="0" VBdocman_conditionalConstants="" VBdocman_showFormsSeparate="0" VBdocman_indentMode="0" VBdocman_addingMode="0" VBdocman_insertSourceGlobal="1" VBdocman_unbreakSourceLines="0" VBdocman_commentStyleRecognize="3" VBdocman_commentStyleProduce="2" VBdocman_xmlCommentLinePrefix="'''" VBdocman_hxcompPath="" VBdocman_customVar1="" VBdocman_customVar2="" VBdocman_customVar3="" VBdocman_autoUpdateParams="0" VBdocman_wordWrapLength="80" VBdocman_autoInsertEOL="1" VBdocman_titlePageText="" VBdocman_pageFooterText="Generated by VBdocman .NET" VBdocman_outputPath="C:\edoka\batch\EDKB01\VBdoc\" VBdocman_templateFolder="c:\programme\vbdocmannet\Templates" VBdocman_templatePath="chm.vbdt" />
|
||||
</VisualStudio>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
23
Archiv/EDKB01/EDKB01.vbproj.user
Normal file
23
Archiv/EDKB01/EDKB01.vbproj.user
Normal file
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ProjectView>ShowAllFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>E:\Software-Projekte\EDOKA\Batches\EDKB01\bin\ HOST</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>C:\EDOKA\EDKB01\EDKB01\obj\Debug\ HOST</StartArguments>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
10
Archiv/EDKB01/EDKB01.vbproj.vspscc
Normal file
10
Archiv/EDKB01/EDKB01.vbproj.vspscc
Normal file
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
7
Archiv/EDKB01/EDKB01.vsdoc
Normal file
7
Archiv/EDKB01/EDKB01.vsdoc
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
10
Archiv/EDKB01/EDKB01.vssscc
Normal file
10
Archiv/EDKB01/EDKB01.vssscc
Normal file
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT"
|
||||
}
|
||||
BIN
Archiv/EDKB01/EDKB01.zip
Normal file
BIN
Archiv/EDKB01/EDKB01.zip
Normal file
Binary file not shown.
1519
Archiv/EDKB01/Module1.vb
Normal file
1519
Archiv/EDKB01/Module1.vb
Normal file
File diff suppressed because it is too large
Load Diff
41
Archiv/EDKB01/MyObjects/Globals.vb
Normal file
41
Archiv/EDKB01/MyObjects/Globals.vb
Normal file
@@ -0,0 +1,41 @@
|
||||
'*
|
||||
' Modul Globals
|
||||
'
|
||||
' Dieses Modul beinhaltet Public Objekte und Variablen, welche während der gesamten
|
||||
' Luafzeit von EDOKA benötigt werden
|
||||
'
|
||||
' Autor: Stefan Hutter
|
||||
' Datum: 2.12.2002
|
||||
'*
|
||||
Module Globals
|
||||
'Datenbankvariablen
|
||||
Public Applikationsdaten As DataTable
|
||||
Public AppldataRow As Integer
|
||||
|
||||
Public sConnectionString_edoka As String
|
||||
Public sConnectionString_journale As String
|
||||
Public sConnectionString_ams As String
|
||||
Public sConnectionString_ZV As String
|
||||
Public sConnectionstring_UVM As String
|
||||
Public sConnectionstring_BL As String
|
||||
|
||||
Public args As String() = Environment.GetCommandLineArgs()
|
||||
|
||||
Public conn_edoka As New edokadb.clsConnectionProvider()
|
||||
Public conn_journale As New edokadb.clsConnectionProvider()
|
||||
Public conn_ams As New edokadb.clsConnectionProvider()
|
||||
Public conn_uvm As New edokadb.clsConnectionProvider()
|
||||
Public conn_zv As New edokadb.clsConnectionProvider
|
||||
Public conn_bl As New edokadb.clsConnectionProvider
|
||||
|
||||
Public xFehler As Integer = 0
|
||||
Public Warning As Integer = 0
|
||||
Public DokumentID As String
|
||||
Public ColdDokumentID As String
|
||||
Public KeyNr As Long
|
||||
Public Params As New ClsParameters()
|
||||
|
||||
Public ofile As System.IO.File
|
||||
Public oread As System.IO.StreamReader
|
||||
|
||||
End Module
|
||||
BIN
Archiv/EDKB01/MyObjects/vssver.scc
Normal file
BIN
Archiv/EDKB01/MyObjects/vssver.scc
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/UpgradeLog.htm
Normal file
BIN
Archiv/EDKB01/UpgradeLog.htm
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/BMS.dll
Normal file
BIN
Archiv/EDKB01/bin/BMS.dll
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/BMS.pdb
Normal file
BIN
Archiv/EDKB01/bin/BMS.pdb
Normal file
Binary file not shown.
11
Archiv/EDKB01/bin/BMS.xml
Normal file
11
Archiv/EDKB01/bin/BMS.xml
Normal file
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
BMS
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
BIN
Archiv/EDKB01/bin/Common.dll
Normal file
BIN
Archiv/EDKB01/bin/Common.dll
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/Common.pdb
Normal file
BIN
Archiv/EDKB01/bin/Common.pdb
Normal file
Binary file not shown.
22
Archiv/EDKB01/bin/Common.xml
Normal file
22
Archiv/EDKB01/bin/Common.xml
Normal file
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Common
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:Common.Settings.GetSettingValue(System.String)">
|
||||
<summary>Gets the first matching value of a property</summary>
|
||||
<param name="propertyName"></param>
|
||||
<returns></returns>
|
||||
</member><member name="M:Common.Settings.SetSettingsValue(System.String,System.String)">
|
||||
<summary>Sets the first matching value of a property</summary>
|
||||
<param name="xpath"></param>
|
||||
<param name="value"></param>
|
||||
</member><member name="M:Common.Settings.GetDecryptedDSN">
|
||||
<summary>Return the descripted dsn string</summary>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
4
Archiv/EDKB01/bin/Copy of Start_HOST.cmd
Normal file
4
Archiv/EDKB01/bin/Copy of Start_HOST.cmd
Normal file
@@ -0,0 +1,4 @@
|
||||
C:\Progra~1\edoka\EDKB01\edkb01.exe C:\Progra~1\edoka\EDKB01\ HOST
|
||||
|
||||
pause
|
||||
|
||||
BIN
Archiv/EDKB01/bin/DataAccess.dll
Normal file
BIN
Archiv/EDKB01/bin/DataAccess.dll
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/DataAccess.pdb
Normal file
BIN
Archiv/EDKB01/bin/DataAccess.pdb
Normal file
Binary file not shown.
11
Archiv/EDKB01/bin/DataAccess.xml
Normal file
11
Archiv/EDKB01/bin/DataAccess.xml
Normal file
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
DataAccess
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
BIN
Archiv/EDKB01/bin/EDKB01.exe
Normal file
BIN
Archiv/EDKB01/bin/EDKB01.exe
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/EDKB01.pdb
Normal file
BIN
Archiv/EDKB01/bin/EDKB01.pdb
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/bin/EDKB01.vshost.exe
Normal file
BIN
Archiv/EDKB01/bin/EDKB01.vshost.exe
Normal file
Binary file not shown.
11
Archiv/EDKB01/bin/EDKB01.vshost.exe.manifest
Normal file
11
Archiv/EDKB01/bin/EDKB01.vshost.exe.manifest
Normal file
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
179
Archiv/EDKB01/bin/EDKB01.xml
Normal file
179
Archiv/EDKB01/bin/EDKB01.xml
Normal file
@@ -0,0 +1,179 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB01
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:EDKB01.Module1.Verarbeiten">
|
||||
<summary>Die Verarbeitung unterscheidet grundsätzlich zwei Verarbeitungstypen$EOL$
|
||||
- INITIALLOAD$EOL$
|
||||
- Tagesbetrieb
|
||||
</summary>
|
||||
<remarks>
|
||||
<b>Initialload</b>$EOL$
|
||||
Bei der Initialload-Verarbeitung werden Alle Dateien aus dem Verzeichnis, welches als
|
||||
4-ter Parameter beim Programmaufruf angegeben wurde ausgelesn und verarbeitet.$EOL$$EOL$
|
||||
<b>Tagesbetrieb</b>$EOL$
|
||||
Beim Tagesbetrieb werden die gelieferten Dateien ausgelesn und in den entsprechenden
|
||||
Datenbanken eingefügt.$EOL$
|
||||
Zusätzlich werden allfällige Dokumente, welche gelöscht werden müssen, aus den
|
||||
entsprechenden Datenbanken gelöscht. Die zu löschenden Datensätze werden in den
|
||||
Dateien *.del von AGI-COLD geliefert.
|
||||
</remarks>
|
||||
<returns></returns>
|
||||
</member><member name="M:EDKB01.Module1.Check_OK_File(System.Int32)">
|
||||
<summary>Prüfung der Datenanlieferung von AGI-COLD</summary>
|
||||
<remarks>Abhängig von der Verarbeitungsart (HSOT,ZV, UVM) wird in der Datei
|
||||
HOSTINDEX.OK folgendes geprüft:$EOL$
|
||||
Zeile 1: 0 = Datenlieferung OK, ungleich 0 Datenlieferung nicht OK und
|
||||
Programmabgruch$EOL$
|
||||
Zeile 2: Anzahl angelieferte Dokumentinformationen für HSOT$EOL$
|
||||
Zeile 3: Anzahl angelieferte Dokumentinformationen für ZV$EOL$
|
||||
Zeile 4: Anzahl angelieferte Dokumentinformationen für UVM</remarks>
|
||||
<param name="verarbeitunsgart">Bestimmt die Verabeitungsart</param>
|
||||
<set param="verarbeitunsgart" const="" value="HOST">HOST-Verarbeitung</set>
|
||||
<set param="verarbeitunsgart" const="" value="ZV">ZV-Verarbeitung</set>
|
||||
<set param="verarbeitunsgart" const="" value="UVM">UVM-Verarbeitung</set>
|
||||
<returns>True=Prüfung OK$EOL$
|
||||
False=Prüfung nicht OK</returns>
|
||||
</member><member name="M:EDKB01.Module1.initialload_verarbeiten(System.Int32)">
|
||||
<summary>Verarbeitung von Initialloads$EOL$
|
||||
</summary>
|
||||
<remarks>Je nach Verarbeitungsart wird die entsprechende Datenbankverbindung
|
||||
geöffnet und anschliessend alle Dateien gem. Kommandozeilen-Parameter 4
|
||||
sequentiell abgearbeitet.$EOL$
|
||||
$EOL$
|
||||
Das Einfügung in die entsprechende Datenbank (HOST, ZV, UVM) wird mit den
|
||||
Methoden insert_data_host, insert_data_uvm oder insert_data_zv.$EOL$
|
||||
$EOL$
|
||||
$EOL$
|
||||
Nach 10000 verarbeiteten Datensätzen wird ein Journaleintrag über den
|
||||
Fortschritt der Verarbeitung geschrieben.$EOL$
|
||||
</remarks>
|
||||
<param name="verarbeitungsart"></param>
|
||||
<set param="verarbeitungsart" const="" value="HOST">HOST-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="ZV">ZV-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="UVM">UVM-Verarbeitung</set>
|
||||
</member><member name="M:EDKB01.Module1.Daten_Import(System.Int32)">
|
||||
<summary>Angelieferte Daten verarbeiten$EOL$
|
||||
</summary>
|
||||
<remarks>Je nach Verarbeitungsart wird die entsprechende Datenbankverbindung
|
||||
geöffnet und anschliessend die Dateien abhängig von der Verarbeitungsart
|
||||
abgearbeitet:$EOL$
|
||||
$EOL$
|
||||
Die Input-Dateien sind:$EOL$
|
||||
HOST: Hostindex.txt$EOL$
|
||||
ZV. ZVIndex.txt$EOL$
|
||||
UVM: UVMIndex.txt$EOL$
|
||||
$EOL$
|
||||
Das Einfügung in die entsprechende Datenbank (HOST, ZV, UVM) wird mit den
|
||||
Methoden insert_data_host, insert_data_uvm oder insert_data_zv.$EOL$
|
||||
$EOL$
|
||||
$EOL$
|
||||
Nach 10000 verarbeiteten Datensätzen wird ein Journaleintrag über den
|
||||
Fortschritt der Verarbeitung geschrieben.$EOL$
|
||||
</remarks>
|
||||
<param name="verarbeitungsart"></param>
|
||||
<set param="verarbeitungsart" const="" value="HOST">HOST-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="ZV">ZV-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="UVM">UVM-Verarbeitung</set>
|
||||
</member><member name="M:EDKB01.Module1.Delete_Daten(System.Int32)">
|
||||
<summary>Daten aus den Datenbanken löschen$EOL$
|
||||
</summary>
|
||||
<remarks>Je nach Verarbeitungsart wird die entsprechende Datenbankverbindung
|
||||
geöffnet und anschliessend die Dateien abhängig von der Verarbeitungsart
|
||||
abgearbeitet:$EOL$
|
||||
$EOL$
|
||||
Die Input-Dateien sind:$EOL$
|
||||
HOST: Hostindex.del$EOL$
|
||||
ZV. ZVIndex.del$EOL$
|
||||
UVM: UVMIndex.del$EOL$
|
||||
$EOL$
|
||||
Das löschen der Daten erfolgt mittels den Methoden$EOL$
|
||||
delete_data_host, delete_data_zv oder delete_data_uvm</remarks>
|
||||
<param name="verarbeitungsart"></param>
|
||||
<set param="verarbeitungsart" const="" value="HOST">HOST-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="ZV">ZV-Verarbeitung</set>
|
||||
<set param="verarbeitungsart" const="" value="UVM">UVM-Verarbeitung</set>
|
||||
</member><member name="M:EDKB01.Module1.insert_data_host(System.String)">
|
||||
<summary>Daten in die Tabelle EDOKA_HOST.dbo.host_dokument_Import
|
||||
einfügen</summary>
|
||||
<remarks>Die zu verarbeitende Zeile (Parameter s) wird mittels Trennzeichen "}"
|
||||
aufgesplittet, damit die einzelnen Attributwerte ausgelesen werden können.$EOL$
|
||||
$EOL$
|
||||
Anschliessend werden die Werte den einzelenen Datenbankfeldern zugewiesen und
|
||||
der Datensatz in die Datenbank eingefügt.</remarks>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB01.Module1.update_hostdokument">
|
||||
<summary>Nachführen der Tabelle EDOKA_HOST.dbo._HOSTdokument</summary>
|
||||
<remarks>Diese Funktion ergänzt die Tabelle EDOKA_HOST.dbo._HOSTDokument mit den
|
||||
zuvor eingefügten Daten.$EOL$
|
||||
$EOL$
|
||||
Ist in der Tabelle bereits ein Datensatz vorhanden (Partnernr_Inhaber,
|
||||
Dokumenttypnr), werden nunr die Datumsfelder (Valuta-Min/Max und
|
||||
Archivdatum-Min/Max) ergänzt.$EOL$
|
||||
$EOL$
|
||||
Ist noch kein Datensatz für den Partner und Dokumenttyp vorhanden, wird ein
|
||||
neuer Datensatz erstellt.</remarks>
|
||||
</member><member name="M:EDKB01.Module1.delete_data_host(System.String)">
|
||||
<summary>Löschen eines Datensatzes aus der Tabelle
|
||||
EODKA_HOST.dbo.Host_Dokument_Data</summary>
|
||||
<remarks>Diese Methode löscht einen Datensatz aus dem
|
||||
HOST-Datenbestand.</remarks>
|
||||
<param name="s"></param>
|
||||
<set param="s" const="" value="S">Dokumentid</set>
|
||||
</member><member name="M:EDKB01.Module1.insert_data_zv(System.String)">
|
||||
<summary>Daten in die Tabelle EDOKA_ZV.dbo.ZVBelege_Import einfügen</summary>
|
||||
<remarks>Die zu verarbeitende Zeile (Parameter s) wird mittels Trennzeichen "}"
|
||||
aufgesplittet, damit die einzelnen Attributwerte ausgelesen werden können.$EOL$
|
||||
$EOL$
|
||||
Anschliessend werden die Werte den einzelenen Datenbankfeldern zugewiesen und
|
||||
der Datensatz in die Datenbank eingefügt.</remarks>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB01.Module1.get_nrpar00_from_vv(System.String)">
|
||||
<summary>Partnernr für ZV-Belege aus dem EDOKA-Bestand auslesen</summary>
|
||||
<remarks>Im angelieferten ZV-Bestand sind keine Partnernr-vorhanden. Dazu muss
|
||||
mit der angelieferten VVNr auf die Tabelle EDOKA.dbo.vv zugegriffen werden,
|
||||
damit die Partnernr ausgelesen und dem Dokument zugewiesen werden kann.$EOL$
|
||||
$EOL$
|
||||
</remarks>
|
||||
<param name="vvnr"></param>
|
||||
<set param="vvnr" const="" value="VV-Nr">VVNr des Datensatzes</set>
|
||||
</member><member name="M:EDKB01.Module1.delete_data_zv(System.String)">
|
||||
<summary>Löschen eines Datensatzes aus der Tabelle
|
||||
EODKA_ZV.dbo.zvbelege_data</summary>
|
||||
<remarks>Diese Methode löscht einen Datensatz aus dem ZV-Bestand</remarks>
|
||||
<param name="s"></param>
|
||||
<set param="s" const="" value="S">Dokumentid</set>
|
||||
</member><member name="M:EDKB01.Module1.insert_data_uvm(System.String)">
|
||||
<summary>Daten in die Tabelle EDOKA_UVM.dbo.UVMBelege_Import einfügen</summary>
|
||||
<remarks>Die zu verarbeitende Zeile (Parameter s) wird mittels Trennzeichen "}"
|
||||
aufgesplittet, damit die einzelnen Attributwerte ausgelesen werden können.$EOL$
|
||||
$EOL$
|
||||
Anschliessend werden die Werte den einzelenen Datenbankfeldern zugewiesen und
|
||||
der Datensatz in die Datenbank eingefügt.</remarks>
|
||||
<param name="s"></param>
|
||||
</member><member name="M:EDKB01.Module1.delete_data_uvm(System.String)">
|
||||
<summary>Löschen eines Datensatzes aus der Tabelle
|
||||
EODKA_UVM.dbo.uvmbelege_data</summary>
|
||||
<remarks>Diese Methode löscht einen Datensatz aus dem UVM-Bestand</remarks>
|
||||
<param name="s"></param>
|
||||
<set param="s" const="" value="S">Dokumentid</set>
|
||||
</member><member name="T:EDKB01.Module1">
|
||||
<summary>
|
||||
Steuermodul für EDKB01
|
||||
</summary>
|
||||
<remarks>
|
||||
Das Module1 ist das Steuermodul für die gesamte EDKB01-Verabeitung.
|
||||
Folgende Parameter werden als Kommandozeilen-Parameter übergeben:
|
||||
1: Verzeichnis in dem die Datei Parameters.cfg gespeichert ist
|
||||
2: Verarbeitungsart (HOST, ZV oder UVM)
|
||||
3: INITIALLOAD (Nur im Falle einer Initialload-Verarbeitung)
|
||||
4: Verzeichnis in dem die Initialload-Dateien für die Entsprechende Verarbeitung (vgl. Parameter 2) gespeichert sind$EOL$
|
||||
(Nur im Falle einer Initialload-Verarbeitung)
|
||||
</remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
22
Archiv/EDKB01/bin/Error.txt
Normal file
22
Archiv/EDKB01/bin/Error.txt
Normal file
@@ -0,0 +1,22 @@
|
||||
Fehler: 27.03.2008 07:24:40
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 27.03.2008 07:30:25
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 27.03.2008 07:32:38
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 27.03.2008 07:35:24
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 27.03.2008 07:38:12
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 27.03.2008 07:39:16
|
||||
Fehlertext:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
|
||||
Fehler: 31.01.2010 19:19:08
|
||||
Fehlertext:BMS-Connection / XML: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
|
||||
Fehler: 31.01.2010 19:20:40
|
||||
Fehlertext:BMS-Connection / XML: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
|
||||
Fehler: 31.01.2010 19:21:05
|
||||
Fehlertext:BMS-Connection / XML: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
|
||||
Fehler: 31.01.2010 19:22:33
|
||||
Fehlertext:BMS-Connection / XML: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
|
||||
Fehler: 19.02.2015 20:59:03
|
||||
Fehlertext:BMS-Connection / XML: Die Quelle wurde nicht gefunden, aber einige oder alle Ereignisprotokolle konnten nicht durchsucht werden. Protokolle, auf die kein Zugriff möglich war: Security.
|
||||
6
Archiv/EDKB01/bin/HOSTIndex.ok
Normal file
6
Archiv/EDKB01/bin/HOSTIndex.ok
Normal file
@@ -0,0 +1,6 @@
|
||||
0
|
||||
2
|
||||
0
|
||||
0
|
||||
0
|
||||
0
|
||||
2
Archiv/EDKB01/bin/HOSTIndex.txt
Normal file
2
Archiv/EDKB01/bin/HOSTIndex.txt
Normal file
@@ -0,0 +1,2 @@
|
||||
{acc_bs_day_xml }{Kontoauszug Business täglich }{ 1120712}{ 11207120001}{ 232042746300}{ 11207121001}{Roth Bernadette }{Bernadette Roth }{29.08.2008}{29.08.2008}{ }{O }{ 707768}{ 1}{BatchPrint | B1_POST }{ }{ }{ 0}{#MLG }{Kontoauszug per 28.08.2008 }{OARC00013755-000163-000000000474306}{29.08.2008 03:45:03}{6306-9-0-13748FAA-14121-14121}
|
||||
{acc_bs_day_xml }{Kontoauszug Business täglich }{ 1120712}{ 411207120001}{ 232042746300}{ 11207121001}{Roth Bernadette }{Bernadette Roth }{29.08.2008}{29.08.2008}{ }{O }{ 707768}{ 1}{BatchPrint | B1_POST }{ }{ }{ 0}{#MLG }{Kontoauszug per 28.08.2008 }{OARC00013755-000163-000000000474306}{29.08.2008 03:45:03}{6306-9-0-13748FAA-14121-14121}
|
||||
BIN
Archiv/EDKB01/bin/ZpCryptography.dll
Normal file
BIN
Archiv/EDKB01/bin/ZpCryptography.dll
Normal file
Binary file not shown.
21477
Archiv/EDKB01/bin/blindex.txt
Normal file
21477
Archiv/EDKB01/bin/blindex.txt
Normal file
File diff suppressed because it is too large
Load Diff
1
Archiv/EDKB01/bin/bms_conn.cfg
Normal file
1
Archiv/EDKB01/bin/bms_conn.cfg
Normal file
@@ -0,0 +1 @@
|
||||
¹µÈ¦rȽ¹¿¸ª‰¿Çx…½³»É·¥¹u¨À¦¾·¼‘–’¥¾©¿È®¿ÀeŸÉÆ®ÆÎn»»´‰’¦¾»ºË´ÄÀÁ¸®É®»ºe»¬’ĦµÀ³¸mȮƱ‚†xŽŠºÅºÀd¶¹‚¿€Â©ÈÇ˴Ĺ‹nÀ½º~…€
|
||||
46
Archiv/EDKB01/bin/bms_settings.xml
Normal file
46
Archiv/EDKB01/bin/bms_settings.xml
Normal file
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<config>
|
||||
<!-- The maximum duration a start job can take before a starter error occures -->
|
||||
<MaximumStartDuration>1</MaximumStartDuration>
|
||||
|
||||
<!-- Check interval in minutes for starter -->
|
||||
<StartJobInterval>1</StartJobInterval>
|
||||
|
||||
<!-- Check interval in minutes for watcher -->
|
||||
<WatchJobInterval>1</WatchJobInterval>
|
||||
|
||||
<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxStarterNotifications>2</MaxStarterNotifications>
|
||||
|
||||
<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
|
||||
<MaxWatcherNotifications>3</MaxWatcherNotifications>
|
||||
|
||||
<!-- Name of the system event log where service should write his entries -->
|
||||
<EventLogName>EDKB10</EventLogName>
|
||||
|
||||
<!-- The target where messages should be written to.
|
||||
Valid log targets are:
|
||||
- 1: System EventLog
|
||||
- 2: Database EventLog table
|
||||
-->
|
||||
<LogTarget>1</LogTarget>
|
||||
|
||||
<!-- Mail Server to send eMails from BMS -->
|
||||
<MailServer>administrator@test24.ch</MailServer>
|
||||
|
||||
<!-- Mail sender name -->
|
||||
<MailFrom>administrator@test24.ch</MailFrom>
|
||||
|
||||
<!-- Mail Server authentication method.
|
||||
Valid methods are:
|
||||
- 0: Anonymous
|
||||
- 1: Basic Authentication (clear text authentication!)
|
||||
-->
|
||||
<MailServerAuth>
|
||||
<Method>0</Method>
|
||||
<UserName>mailUser</UserName>
|
||||
<Password>mailPassword</Password>
|
||||
</MailServerAuth>
|
||||
</config>
|
||||
</root>
|
||||
1
Archiv/EDKB01/bin/edokaBLconn.cfg
Normal file
1
Archiv/EDKB01/bin/edokaBLconn.cfg
Normal file
@@ -0,0 +1 @@
|
||||
Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Password=*shu29
|
||||
1
Archiv/EDKB01/bin/edokaconn.cfg
Normal file
1
Archiv/EDKB01/bin/edokaconn.cfg
Normal file
@@ -0,0 +1 @@
|
||||
Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29
|
||||
1
Archiv/EDKB01/bin/edokauvmconn.cfg
Normal file
1
Archiv/EDKB01/bin/edokauvmconn.cfg
Normal file
@@ -0,0 +1 @@
|
||||
Data Source=TGCEDOKADB01.TGCORP.CH\NM02,1435;Initial Catalog=edoka_uvm;Persist Security Info=True;User ID=tgedoka;Password=$tgedoka33c
|
||||
3
Archiv/EDKB01/bin/edokazvconn.cfg
Normal file
3
Archiv/EDKB01/bin/edokazvconn.cfg
Normal file
@@ -0,0 +1,3 @@
|
||||
Data Source=TGCEDOKADB01.TGCORP.CH\NM02,1435;Initial Catalog=edoka_zv;Persist Security Info=True;User ID=tgedoka;Password=$tgedoka33c
|
||||
|
||||
|
||||
3
Archiv/EDKB01/bin/journaleconn.cfg
Normal file
3
Archiv/EDKB01/bin/journaleconn.cfg
Normal file
@@ -0,0 +1,3 @@
|
||||
Data Source=shu00;Initial Catalog=edoka_journale;Persist Security Info=True;User ID=sa;Password=*shu29
|
||||
|
||||
|
||||
4
Archiv/EDKB01/bin/parameters.cfg
Normal file
4
Archiv/EDKB01/bin/parameters.cfg
Normal file
@@ -0,0 +1,4 @@
|
||||
Applikation-ID =3
|
||||
Filepfad =D:\EDOKA\EDKB01\
|
||||
Mailadresse_OK =manuel.niederkofler@tkb.ch
|
||||
Mailadresse_NOK =manuel.niederkofler@tkb.ch
|
||||
4
Archiv/EDKB01/bin/parameters.cfg.bak
Normal file
4
Archiv/EDKB01/bin/parameters.cfg.bak
Normal file
@@ -0,0 +1,4 @@
|
||||
Applikation-ID =3
|
||||
Filepfad =D:\EDOKA\EDKB01\
|
||||
Mailadresse_OK =banking.servermanagement@swisscom.com
|
||||
Mailadresse_NOK =banking.servermanagement@swisscom.com
|
||||
53
Archiv/EDKB01/clsLog.vb
Normal file
53
Archiv/EDKB01/clsLog.vb
Normal file
@@ -0,0 +1,53 @@
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Public Class clsLog
|
||||
Dim m_journalid As Long
|
||||
Dim m_applikationid As Long
|
||||
|
||||
Dim clsapplikation As New edokadb.clsApplikation()
|
||||
Dim clsjournal As New edokadb.clsJournal()
|
||||
Dim clsjournaleintrag As New edokadb.clsJournaleintrag()
|
||||
|
||||
Public Sub Startlog(ByVal ApplicationID As Integer)
|
||||
clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
|
||||
clsapplikation.cpMainConnectionProvider = conn_journale
|
||||
clsapplikation.SelectOne()
|
||||
Me.m_applikationid = clsapplikation.iApplikationnr.Value
|
||||
|
||||
clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
|
||||
clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
|
||||
clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
|
||||
clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
|
||||
clsjournal.cpMainConnectionProvider = conn_journale
|
||||
conn_journale.OpenConnection()
|
||||
clsjournal.Insert()
|
||||
Me.m_journalid = clsjournal.iJournalnr.Value
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Public Sub InsertJournale(ByVal Message As String)
|
||||
clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
|
||||
clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
|
||||
clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
|
||||
clsjournaleintrag.cpMainConnectionProvider = conn_journale
|
||||
Console.WriteLine(Message)
|
||||
conn_journale.OpenConnection()
|
||||
clsjournaleintrag.Insert()
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Public Sub StopLog(ByVal applicationid As Integer)
|
||||
clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
|
||||
clsapplikation.cpMainConnectionProvider = conn_journale
|
||||
clsapplikation.SelectOne()
|
||||
clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
|
||||
conn_journale.OpenConnection()
|
||||
clsapplikation.Update()
|
||||
conn_journale.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
6494
Archiv/EDKB01/hostindex_NEU.txt
Normal file
6494
Archiv/EDKB01/hostindex_NEU.txt
Normal file
File diff suppressed because it is too large
Load Diff
198
Archiv/EDKB01/hostindex_alt.txt
Normal file
198
Archiv/EDKB01/hostindex_alt.txt
Normal file
@@ -0,0 +1,198 @@
|
||||
{FP1136}{WG Abr Ertrag}{001168624}{001168624}{0000170100117806}{0000174494233708}{Cornelia Andreani-Huber, Pailly}{ANDREANI CORNELIA -HUBER, PAILLY}{AN 97068418 09.06.2008}{SN 87517717 09.06.2008}{20080609}{20080609}{ }{853180}{O}{0009200806090000000180000000010001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001168624}{001168624}{0000170100117806}{0000174494233708}{Cornelia Andreani-Huber, Pailly}{ANDREANI CORNELIA -HUBER, PAILLY}{AN 66323019 09.06.2008}{SN 44163019 09.06.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000180000000020001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001167986}{001168261}{0000160100491600}{0000162000533907}{Agnes Amann, Kreuzlingen}{AMANN PAUL, KREUZLINGEN}{AN 37704620 09.06.2008}{SN 11998120 09.06.2008}{20080609}{20080609}{ }{1463678}{O}{0009200806090000000180000000030001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001245339}{001245339}{0000150100393509}{0000154410152400}{Fritz Stucki sen.}{STUCKI FRITZ SEN., KREUZLINGEN}{AN 37571207 09.06.2008}{SN 78377320 09.06.2008}{20080609}{20080609}{ }{1463677}{O}{0009200806090000000180000000040001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001202153}{001202153}{0000100100433807}{0000102044145902}{Elsa Herzer-Fehr, Weinfelden}{HERZER ELSA -FEHR, WEINFELDEN}{AN 45532820 09.06.2008}{SN 77671920 09.06.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000180000000050001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263956}{001263956}{0000160100738708}{0000162000025004}{Bruno Zollinger, Kreuzlingen}{ZOLLINGER BRUNO, KREUZLINGEN}{AN 30472221 09.06.2008}{SN 35946420 09.06.2008}{20080609}{20080609}{ }{104252}{O}{0009200806090000000180000000060001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001203094}{001203094}{0000130100331805}{0000134404838801}{Gertrud K. Hinnen-Wittwer}{HINNEN GERTRUD -WITTWER, WILEN(GOTT}{AN 59457621 09.06.2008}{SN 59876211 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000070001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001196883}{001196883}{0000100136290103}{0000102044189602}{Bertha Gross-Frei, Sonterswil}{GROSS BERTHA -FREI, SONTERSWIL}{AN 71124021 09.06.2008}{SN 70929421 09.06.2008}{20080609}{20080609}{ }{26240}{O}{0009200806090000000180000000080001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001202227}{001202227}{0000150100768704}{0000152000221907}{Heinz Herzog-Osterwalder}{HERZOG HEINZ -OSTERWALDER, ISLIKON}{AN 57209421 09.06.2008}{SN 35434321 09.06.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000180000000090001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 88383421 09.06.2008}{SN 35434321 09.06.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000180000000100001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 88383421 09.06.2008}{SN 35434321 09.06.2008}{20080609}{20080609}{ }{853183}{K}{0009200806090000000180000000100002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001202565}{001202565}{0000150101240809}{0000152047988203}{Verena Herzog-Osterwalder}{HERZOG VERENA -OSTERWALDER, ISLIKON}{AN 87823221 09.06.2008}{SN 35434321 09.06.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000180000000110001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001145354}{001145354}{0000130100253709}{0000132000884904}{Erben Franz Bucher, Wil SG}{BUCHER FRANZ, WILSG}{AN 74656721 09.06.2008}{SN 57624621 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000120001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001176236}{001176236}{0000100100523109}{0000102043062402}{Hans Bosshard, Mettlen}{BOSSHARD HANS, METTLEN}{AN 93020921 09.06.2008}{SN 57624621 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000130001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001012097}{001012097}{0000180100031606}{0000182042896804}{Marie Rüdisühli, Sirnach}{RUDISUHLI/ MARIE, SIRNACH}{AN 63735922 09.06.2008}{SN 57624621 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000140001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001005432}{001005432}{0000150100975307}{0000152002320708}{Anton Lindenmann, Wil SG}{LINDENMANN ANTON, WILSG}{AN 72453922 09.06.2008}{SN 45332022 09.06.2008}{20080609}{20080609}{ }{26240}{O}{0009200806090000000180000000150001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001214715}{001214715}{0000170100158101}{0000174403810807}{Trudy Kreis, Romanshorn}{KREIS TRUDY -SIDLER, ROMANSHORN}{AN 29776922 09.06.2008}{SN 24972230 09.06.2008}{20080609}{20080609}{ }{26242}{O}{0009200806090000000180000000160001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001196617}{001196617}{0000180136179004}{0000182000604307}{Margrith Greuter, Eschlikon TG}{GREUTER MARGRITH, ESCHLIKONTG}{AN 14383522 09.06.2008}{SN 96125922 09.06.2008}{20080609}{20080609}{ }{26241}{O}{0009200806090000000180000000170001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001250231}{001250231}{0000160100508610}{0000162046504809}{Rosmarie Schneider}{SCHNEIDER ROSMARIE, SCHERZINGEN}{AN 97088622 09.06.2008}{SN 96125922 09.06.2008}{20080609}{20080609}{ }{26241}{O}{0009200806090000000180000000180001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001245339}{001245339}{0000150100393509}{0000154410152400}{Fritz Stucki sen.}{STUCKI FRITZ SEN., KREUZLINGEN}{AN 75146228 09.06.2008}{SN 96125922 09.06.2008}{20080609}{20080609}{ }{26241}{O}{0009200806090000000180000000190001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001407933}{001407933}{0000220136061507}{0000222042756108}{Otto Hotz, Homburg}{HOTZ OTTO, HOMBURG}{AN 57642322 09.06.2008}{SN 43440422 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000200001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001217075}{001217075}{0000180136151700}{0000182000262701}{Lattmann u. Co. AG, Sirnach}{LATTMANN U. CO. AG, SIRNACH}{AN 88590122 09.06.2008}{SN 43440422 09.06.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000180000000210001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001219272}{001219272}{0000100101060709}{0000104408783104}{Bertha Looser-Schrepfer}{LOOSER BERTHA -SCHREPFER, ISTIGHOFE}{AN 95156323 09.06.2008}{SN 63960923 09.06.2008}{20080609}{20080609}{ }{992686}{O}{0009200806090000000180000000220001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001083811}{001083811}{0000190136088501}{0000192000628410}{Hans Forster, Fruthwilen}{FORSTER HANS, FRUTHWILEN}{AN 32743825 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{O}{0009200806090000000180000000230001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001184270}{001464232}{0000120100044401}{0000124494021201}{Marta Dubs, Herisau}{WALTER CHRISTINE, HERISAU}{AN 93021625 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{O}{0009200806090000000180000000240001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001184270}{001184270}{0000120100044401}{0000124494021201}{Marta Dubs, Herisau}{DUBS MARTA, HERISAU}{AN 93021625 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{K}{0009200806090000000180000000240002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 82898825 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{O}{0009200806090000000180000000250001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 82898825 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{K}{0009200806090000000180000000250002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001255098}{001255098}{0000160100541201}{0000164494215304}{Arthur Tuchschmid, Kreuzlingen}{TUCHSCHMID ARTHUR, KREUZLINGEN}{AN 61848525 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{O}{0009200806090000000180000000260001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001263700}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{ZINGG ARMIN, ROTHENHAUSEN}{AN 22846725 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{O}{0009200806090000000180000000270001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001194521}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{GESER HANS, ROMANSHORN1}{AN 22846725 09.06.2008}{SN 13498725 09.06.2008}{20080609}{20080607}{ }{853180}{K}{0009200806090000000180000000270002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 47172026 09.06.2008}{SN 87365225 09.06.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000180000000280001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 47172026 09.06.2008}{SN 87365225 09.06.2008}{20080609}{20080607}{ }{1463677}{K}{0009200806090000000180000000280002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001255098}{001255098}{0000160100541201}{0000164494215304}{Arthur Tuchschmid, Kreuzlingen}{TUCHSCHMID ARTHUR, KREUZLINGEN}{AN 56715261 09.06.2008}{SN 87365225 09.06.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000180000000290001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001263700}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{ZINGG ARMIN, ROTHENHAUSEN}{AN 48438326 09.06.2008}{SN 87365225 09.06.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000180000000300001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001194521}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{GESER HANS, ROMANSHORN1}{AN 48438326 09.06.2008}{SN 87365225 09.06.2008}{20080609}{20080607}{ }{1463677}{K}{0009200806090000000180000000300002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001019554}{001019554}{0000220136076009}{0000222000530401}{Walter Zürcher, Bonau}{ZURCHER/ WALTER, BONAU}{AN 89995262 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{O}{0009200806090000000180000000310001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001118653}{001118653}{0000220136076303}{0000222000307304}{Ursula Sel, Müllheim Dorf}{SEL URSULA, MULLHEIMDORF/}{AN 79510326 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{O}{0009200806090000000180000000320001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001291941}{001291941}{0000220100140700}{0000222000608907}{Brigitte Lötscher, Illnau}{LOTSCHER/ BRIGITTE, ILLNAU}{AN 40526526 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{O}{0009200806090000000180000000330001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001291941}{001376072}{0000220100140700}{0000222000608907}{Brigitte Lötscher, Illnau}{SWISS ALLTRADE AG, AMRISWIL}{AN 40526526 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{K}{0009200806090000000180000000330002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 44230326 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{O}{0009200806090000000180000000340001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 44230326 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{K}{0009200806090000000180000000340002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001263700}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{ZINGG ARMIN, ROTHENHAUSEN}{AN 85609526 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{O}{0009200806090000000180000000350001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263700}{001194521}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{GESER HANS, ROMANSHORN1}{AN 85609526 09.06.2008}{SN 92334326 09.06.2008}{20080609}{20080607}{ }{853183}{K}{0009200806090000000180000000350002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001400219}{001400219}{0000100136256101}{0000102043555906}{Renate Beerli, Wil SG 1}{BEERLI RENATE, WILSG1}{AN 63437226 09.06.2008}{SN 40560626 09.06.2008}{20080609}{20080607}{ }{1463679}{O}{0009200806090000000180000000360001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001400219}{001376072}{0000100136256101}{0000102043555906}{Renate Beerli, Wil SG 1}{SWISS ALLTRADE AG, AMRISWIL}{AN 63437226 09.06.2008}{SN 40560626 09.06.2008}{20080609}{20080607}{ }{1463679}{K}{0009200806090000000180000000360002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001220618}{001220618}{0000190136078701}{0000194402293405}{Theresia Maier, Eschenz}{MAIER THERESIA, ESCHENZ}{AN 95168326 09.06.2008}{SN 79991226 09.06.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000180000000370001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 97440926 09.06.2008}{SN 79991226 09.06.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000180000000380001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 97440926 09.06.2008}{SN 79991226 09.06.2008}{20080609}{20080607}{ }{676281}{K}{0009200806090000000180000000380002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001235078}{001235078}{0000110100105210}{0000114402848106}{Walter Rimle-Kähli}{RIMLE WALTER -KAHLI/, MUOLEN}{AN 59443726 09.06.2008}{SN 39999326 09.06.2008}{20080609}{20080607}{ }{26245}{O}{0009200806090000000180000000390001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001233150}{001233189}{0000230100007104}{0000234401802607}{Erben Hans Ramp-Vollenweider}{RAMP RUTH -VOLLENWEIDER, KRADOLF}{AN 36594426 09.06.2008}{SN 39999326 09.06.2008}{20080609}{20080607}{ }{26245}{O}{0009200806090000000180000000400001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001006203}{001006203}{0000150100743204}{0000154413121909}{Emilie Gehring-Gasser}{GEHRING EMILIE -GASSER, DIEPOLDSAU}{AN 54341527 09.06.2008}{SN 38016227 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000410001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001174683}{001174683}{0000160101015002}{0000164407724900}{Rosmarie Bitsche, Kreuzlingen}{BITSCHE ROSMARIE, KREUZLINGEN}{AN 22706427 09.06.2008}{SN 38016227 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000420001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001249737}{001249737}{0000210100054000}{0000212042594105}{Tony Schmid, Mannenbach}{SCHMID TONY, MANNENBACHSALENSTEIN}{AN 26353127 09.06.2008}{SN 38016227 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000430001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001256510}{001256510}{0000180100037305}{0000184402334309}{Albert Vogel, Au ZH}{VOGEL ALBERT, AUZH}{AN 93542527 09.06.2008}{SN 79194327 09.06.2008}{20080609}{20080607}{ }{26248}{O}{0009200806090000000180000000440001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001259279}{001259279}{0000150136762306}{0000152047023602}{Rosmarie Weibel-Bachmann}{WEIBEL ROSMARIE -BACHMANN, ELLIKONA}{AN 31534027 09.06.2008}{SN 11572127 09.06.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000180000000450001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001198164}{001198164}{0000100136081604}{0000104405779010}{Erich Güttinger, Weinfelden}{GUTTINGER/ ERICH, WEINFELDEN}{AN 40631927 09.06.2008}{SN 11572127 09.06.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000180000000460001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001185825}{001185825}{0000180100189209}{0000182000530606}{Fritz Ehrbar -jun-}{EHRBAR FRITZ JUN., WILENB.WIL}{AN 75498527 09.06.2008}{SN 24130527 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000470001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001303415}{001303415}{0000150136805305}{0000152047202908}{Bruno Fischer, Frauenfeld}{FISCHER BRUNO, FRAUENFELD}{AN 39542327 09.06.2008}{SN 97972327 09.06.2008}{20080609}{20080607}{ }{26241}{O}{0009200806090000000180000000480001}{1}{VSM:EB0 |SPE:I |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001038928}{001038928}{0000110100383109}{0000114404301308}{Louis Meier-Schmid, Amriswil}{MEIER LOUIS -SCHMID, AMRISWIL}{AN 85187279 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000490001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001218322}{001218322}{0000120136030306}{0000122042954204}{Ruth Leumann, Arbon}{LEUMANN RUTH, ARBON}{AN 83369280 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000500001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001268859}{001459230}{0000140136606603}{0000142000084206}{Guggemusig Rhyalge Diessenhof.}{KOGL/ SABRINA, WILLISDORF}{AN 61217028 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000510001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001261795}{001261795}{0000100100996804}{0000102043133602}{Heidi Wolfer-Tuchschmid}{WOLFER HEIDI -TUCHSCHMID, WEINFELDE}{AN 53615428 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000520001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001028508}{001028508}{0000180136071305}{0000184403021407}{Pia Sennhauser-Wirth}{SENNHAUSER PIA -WIRTH, ZURICH/}{AN 38409728 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000530001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001277800}{001277800}{0000110136211810}{0000112000517409}{Martin Gantenbein, Salmsach}{GANTENBEIN MARTIN, SALMSACH}{AN 90591028 09.06.2008}{SN 91505127 09.06.2008}{20080609}{20080607}{ }{26240}{O}{0009200806090000000180000000540001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001192318}{001192318}{0000160100636000}{0000162047388301}{Gertrud Füllemann-Kaiser}{FULLEMANN/ GERTRUD -KAISER, KREUZLI}{AN 96496828 09.06.2008}{SN 64379228 09.06.2008}{20080609}{20080607}{ }{26241}{O}{0009200806090000000180000000550001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001122621}{001122621}{0000220136047301}{0000222000316009}{Pierre Burkhardt, Müllheim Dorf}{BURKHARDT PIERRE, MULLHEIMDORF/}{AN 55184528 09.06.2008}{SN 36031928 09.06.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000180000000560001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001247948}{001247948}{0000180136116200}{0000182000073007}{Paul Scherrer, Oberwangen TG}{SCHERRER PAUL, OBERWANGENTG}{AN 94413328 09.06.2008}{SN 68069128 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000570001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001263758}{001263758}{0000130100194608}{0000132000306900}{Fritz Zingg, Bischofszell}{ZINGG FRITZ, BISCHOFSZELL}{AN 24942028 09.06.2008}{SN 48549287 09.06.2008}{20080609}{20080607}{ }{1421931}{O}{0009200806090000000180000000580001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001252704}{001252766}{0000150100598201}{0000152002392903}{Erben Adolf Tanner}{TANNER HANNA -ROHNER, FRAUENFELD}{AN 24729628 09.06.2008}{SN 48549287 09.06.2008}{20080609}{20080607}{ }{1421931}{O}{0009200806090000000180000000590001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001255516}{001255516}{0000110136016206}{0000112001367807}{Elisa Ueltschi, Dozwil}{UELTSCHI ELISA -ALTHAUS, DOZWIL}{AN 95018928 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000600001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001079856}{001079856}{0000170136755002}{0000174433095605}{Karin Nobel-Spitzli, Uttwil}{NOBEL KARIN -SPITZLI, UTTWIL}{AN 58598228 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000610001}{1}{VSM:EB0 |SPE:I |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001342728}{001342728}{0000110136234205}{0000112042579503}{Stefano und/oder Gerda Fama}{STEFANO UND/ODER GERDA FAMA}{AN 18255429 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000620001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001217006}{001217006}{0000160137174301}{0000164404865807}{Werner Lang-Hotz, Kreuzlingen}{LANG WERNER -HOTZ, KREUZLINGEN}{AN 73687229 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000630001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001255099}{001255099}{0000160136811501}{0000164405436906}{Alice Tuchschmid, Kreuzlingen}{TUCHSCHMID ALICE, KREUZLINGEN}{AN 31451729 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000640001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001032426}{001032426}{0000130100227502}{0000132046223004}{Elisabeth Bleichenbacher}{BLEICHENBACHER ELISABETH, SITTERDOR}{AN 22200029 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000650001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001209350}{001209350}{0000170136770510}{0000174402996606}{Arnold Kappeler, Romanshorn}{KAPPELER ARNOLD, ROMANSHORN}{AN 77195029 09.06.2008}{SN 72809928 09.06.2008}{20080609}{20080607}{ }{1421927}{O}{0009200806090000000180000000660001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001226201}{001226201}{0000150101117903}{0000152046901000}{Fritz Müller-Buff, Frauenfeld}{MULLER/ FRITZ -BUFF, FRAUENFELD}{AN 30254529 09.06.2008}{SN 13361229 09.06.2008}{20080609}{20080607}{ }{26242}{O}{0009200806090000000180000000670001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001457649}{001457649}{0000100136465101}{0000102044325802}{Gisela Roth, Münchenstein}{ROTH GISELA, MUNCHENSTEIN/}{AN 21444294 09.06.2008}{SN 13361229 09.06.2008}{20080609}{20080607}{ }{26242}{O}{0009200806090000000180000000680001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001157886}{001157886}{0000150136670106}{0000154433951005}{Arnold Rohr, Bachenbülach}{ROHR ARNOLD, BACHENBULACH/}{AN 64882829 09.06.2008}{SN 13361229 09.06.2008}{20080609}{20080607}{ }{26242}{O}{0009200806090000000180000000690001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001255099}{001255099}{0000160136811501}{0000164405436906}{Alice Tuchschmid, Kreuzlingen}{TUCHSCHMID ALICE, KREUZLINGEN}{AN 21970129 09.06.2008}{SN 13361229 09.06.2008}{20080609}{20080607}{ }{26242}{O}{0009200806090000000180000000700001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001209350}{001209350}{0000170136770510}{0000174402996606}{Arnold Kappeler, Romanshorn}{KAPPELER ARNOLD, ROMANSHORN}{AN 46580029 09.06.2008}{SN 13361229 09.06.2008}{20080609}{20080607}{ }{26242}{O}{0009200806090000000180000000710001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001262385}{001262385}{0000150100199501}{0000154404092209}{Elise Wyler, Kefikon}{WYLER ELISE, KEFIKON}{AN 92844929 09.06.2008}{SN 77601529 09.06.2008}{20080609}{20080608}{ }{1463678}{O}{0009200806090000000180000000720001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001278067}{001278067}{0000150100916208}{0000154413534103}{Margrith Kopieczek-Boesch}{KOPIECZEK MARGRITH -BOESCH, DUSSNAN}{AN 86510429 09.06.2008}{SN 72442629 09.06.2008}{20080609}{20080608}{ }{853183}{O}{0009200806090000000180000000730001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001218382}{001218382}{0000120136134801}{0000124430879510}{Johanna Ley-Fahm, Arbon}{LEY JOHANNA -FAHM, ARBON}{AN 48975030 09.06.2008}{SN 86857429 09.06.2008}{20080609}{20080608}{ }{853180}{O}{0009200806090000000180000000740001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001264658}{001264629}{0000150101050401}{0000152000418107}{Walter Zurbuchen, Frauenfeld}{ZURBUCHEN SAMUEL, FRAUENFELD}{AN 21864630 09.06.2008}{SN 19707301 09.06.2008}{20080609}{20080608}{ }{715909}{O}{0009200806090000000180000000750001}{1}{VSM:EB0 |SPE:I |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001264658}{001264658}{0000150101050401}{0000152000418107}{Walter Zurbuchen, Frauenfeld}{ZURBUCHEN WALTER, FRAUENFELD}{AN 21864630 09.06.2008}{SN 19707301 09.06.2008}{20080609}{20080608}{ }{715909}{K}{0009200806090000000180000000750002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001196197}{001418589}{0000170100317709}{0000174403394200}{Margrith Graf-Rohner}{GRAF STEFAN, LUZERN}{AN 42873030 09.06.2008}{SN 27889730 09.06.2008}{20080609}{20080608}{ }{26245}{O}{0009200806090000000180000000760001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001203434}{001203434}{0000170100249402}{0000174494177304}{Bettina Hofmann, Romanshorn}{HOFMANN BETTINA, ROMANSHORN}{AN 99039730 09.06.2008}{SN 27889730 09.06.2008}{20080609}{20080608}{ }{26245}{O}{0009200806090000000180000000770001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001203434}{001261935}{0000170100249402}{0000174494177304}{Bettina Hofmann, Romanshorn}{WUST/ ERIKA, KESSWIL}{AN 99039730 09.06.2008}{SN 27889730 09.06.2008}{20080609}{20080608}{ }{26245}{K}{0009200806090000000180000000770002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001203933}{001203933}{0000200100110510}{0000202000894203}{Kurt Hohl-Tischhauser, Aadorf}{HOHL KURT -TISCHHAUSER, AADORF}{AN 43176830 09.06.2008}{SN 95532130 09.06.2008}{20080609}{20080608}{ }{26244}{O}{0009200806090000000180000000780001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001207181}{001207181}{0000170136504710}{0000174400905406}{Irma Imlig, Romanshorn}{IMLIG IRMA, ROMANSHORN}{AN 16492530 09.06.2008}{SN 13005305 09.06.2008}{20080609}{20080608}{ }{853183}{O}{0009200806090000000180000000790001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001207181}{001282849}{0000170136504710}{0000174400905406}{Irma Imlig, Romanshorn}{AMTSVORMUNDSCHAFT, ROMANSHORN}{AN 16492530 09.06.2008}{SN 13005305 09.06.2008}{20080609}{20080608}{ }{853183}{K}{0009200806090000000180000000790002}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001147329}{001147329}{0000170136571103}{0000172002024205}{Barbara Knopf-Bänziger}{KNOPF BARBARA -BANZIGER/, NEUKIRCH(}{AN 48663730 09.06.2008}{SN 25336430 09.06.2008}{20080609}{20080608}{ }{26248}{O}{0009200806090000000180000000800001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001287076}{001287076}{0000130136567905}{0000132046264301}{Margrit Tanner, Bischofszell}{TANNER MARGRIT, BISCHOFSZELL}{AN 73556930 09.06.2008}{SN 55259030 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000810001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001437991}{001437991}{0000100136392201}{0000102044041004}{Lotti Siegrist, Kawasaki-Shi}{SIEGRIST LOTTI, KAWASAKISHI}{AN 46918230 09.06.2008}{SN 55259030 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000820001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001243646}{001243646}{0000110100291508}{0000112000490109}{Marie Stehle, Hefenhofen}{STEHLE MARIE, HEFENHOFEN}{AN 11720530 09.06.2008}{SN 55259030 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000830001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001010565}{001454395}{0000180136038104}{0000184403254104}{Emil Stadelmann}{ZUMSTEG URSULA -STADELMANN, RIEHEN}{AN 99777310 09.06.2008}{SN 98819330 09.06.2008}{20080609}{20080608}{ }{853183}{O}{0009200806090000000180000000840001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001224320}{001224320}{0000150100259708}{0000154494248008}{Heidi Minder}{MINDER HEIDI, FELBENWELLHAUSEN}{AN 12001931 09.06.2008}{SN 95544031 09.06.2008}{20080609}{20080608}{ }{992686}{O}{0009200806090000000180000000850001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001111097}{001111097}{0000210136004007}{0000212000731603}{Anna Keller-Bodenmann, Kreuzlingen}{KELLER ANNA -BODENMANN, KREUZLINGEN}{AN 57981531 09.06.2008}{SN 95544031 09.06.2008}{20080609}{20080608}{ }{992686}{O}{0009200806090000000180000000860001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001237836}{001330548}{0000200100016301}{0000204400703105}{Emma Rutishauser, Aadorf}{AMTSVORMUNDSCHAFT MATZINGEN}{AN 57659531 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000870001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001241053}{001241053}{0000150100786604}{0000152000734510}{Theodor Soltermann, Frauenfeld}{SOLTERMANN THEODOR, FRAUENFELD}{AN 21284831 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000880001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001196850}{001196850}{0000100101053900}{0000104471288608}{Silvana Grivel-Boriero}{GRIVEL SILVANA -BORIERO, WUPPENAU}{AN 81167131 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000890001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001111097}{001111097}{0000210136004007}{0000212000731603}{Anna Keller-Bodenmann, Kreuzlingen}{KELLER ANNA -BODENMANN, KREUZLINGEN}{AN 28065631 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000900001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001211156}{001211156}{0000160136557308}{0000164406839403}{Paula Kempter-Hälg}{KEMPTER PAULA -HALG/, KREUZLINGEN}{AN 90078631 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000910001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001364559}{001364559}{0000100136057402}{0000102043534503}{Fritz u/o Ella Obrist}{FRITZ U/O ELLA OBRIST, WEINFELDEN}{AN 47812431 09.06.2008}{SN 42891331 09.06.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000180000000920001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001075732}{001075732}{0000170100475708}{0000172046561601}{Silvia Blattner-Vetterli}{BLATTNER SILVIA -VETTERLI, ROMANSHO}{AN 17536231 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000930001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001189165}{001189165}{0000170100002808}{0000172046623606}{Adolf Fischer, Romanshorn}{FISCHER ADOLF, ROMANSHORN}{AN 94995331 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000940001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001335768}{001335768}{0000140100283406}{0000142046235901}{Anneliese Merk, Diessenhofen}{MERK ANNELIESE, DIESSENHOFEN}{AN 57996331 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000950001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001111097}{001111097}{0000210136004007}{0000212000731603}{Anna Keller-Bodenmann, Kreuzlingen}{KELLER ANNA -BODENMANN, KREUZLINGEN}{AN 65209731 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000960001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001211156}{001211156}{0000160136557308}{0000164406839403}{Paula Kempter-Hälg}{KEMPTER PAULA -HALG/, KREUZLINGEN}{AN 56824631 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000970001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001373983}{001373983}{0000220136042610}{0000222042696206}{Ernst Huber, Dettighofen}{HUBER ERNST, DETTIGHOFEN}{AN 84107931 09.06.2008}{SN 47270316 09.06.2008}{20080609}{20080608}{ }{26240}{O}{0009200806090000000180000000980001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001180347}{001180347}{0000100136421706}{0000102000901506}{Werner Burgermeister}{BURGERMEISTER WERNER, WEINFELDEN}{AN 70259232 09.06.2008}{SN 56162332 09.06.2008}{20080609}{20080608}{ }{26241}{O}{0009200806090000000180000000990001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001111097}{001111097}{0000210136004007}{0000212000731603}{Anna Keller-Bodenmann, Kreuzlingen}{KELLER ANNA -BODENMANN, KREUZLINGEN}{AN 30434532 09.06.2008}{SN 56162332 09.06.2008}{20080609}{20080608}{ }{26241}{O}{0009200806090000000180000001000001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001187896}{001187896}{0000150100470706}{0000152000543900}{Urs Fankhauser, Frauenfeld}{FANKHAUSER URS, FRAUENFELD}{AN 29207932 09.06.2008}{SN 14971132 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001010001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001418166}{001418166}{0000130136582204}{0000132046311804}{Angela Fontanive, Tägerwilen}{FONTANIVE ANGELA, TAGERWILEN/}{AN 27688032 09.06.2008}{SN 11637332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001020001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001200849}{001200849}{0000130100266402}{0000134404739008}{Lydia Hautle-Oettli, Arnegg}{HAUTLE LYDIA -OETTLI, ARNEGG}{AN 31246732 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001030001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001169163}{001169163}{0000100100692809}{0000104409852609}{Liselotte Arbenz, Zürich}{ARBENZ LISELOTTE, ZURICH/}{AN 79651732 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001040001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001010565}{001454395}{0000180136038104}{0000184403254104}{Emil Stadelmann}{ZUMSTEG URSULA -STADELMANN, RIEHEN}{AN 30308232 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001050001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001218876}{001218876}{0000230136000907}{0000234494145602}{Christa Lock-Hodel}{LOCK CHRISTA -HODEL, SCHONENBERGAND}{AN 61183932 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001060001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001204418}{001204418}{0000200100009601}{0000204400261602}{Paul Höppli, Zürich}{HOPPLI/ PAUL, ZURICH/}{AN 18349732 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001070001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001085589}{001085589}{0000140100182904}{0000144494039408}{Annemarie Monhart-Vögeli}{MONHART ANNEMARIE -VOGELI/, SCHLATT}{AN 15811032 09.06.2008}{SN 18701332 09.06.2008}{20080609}{20080608}{ }{26242}{O}{0009200806090000000180000001080001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001193170}{001193170}{0000180136170804}{0000182000031203}{Agnes Garatti-Kaiser}{GARATTI AGNES -KAISER, BICHELSEE}{AN 83023332 09.06.2008}{SN 65482132 09.06.2008}{20080609}{20080608}{ }{1421931}{O}{0009200806090000000180000001090001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001014106}{001014106}{0000180136170706}{0000184402699103}{Berta Röthlisberger}{ROTHLISBERGER/ BERTA, FISCHINGEN}{AN 39817132 09.06.2008}{SN 65482132 09.06.2008}{20080609}{20080608}{ }{1421931}{O}{0009200806090000000180000001100001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001262994}{001262994}{0000160137174007}{0000162000762801}{Josef Zecchinel-Ackermann}{ZECCHINEL JOSEF -ACKERMANN, KREUZLI}{AN 83178732 09.06.2008}{SN 65482132 09.06.2008}{20080609}{20080608}{ }{1421931}{O}{0009200806090000000180000001110001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001202376}{001202376}{0000150100114101}{0000152002715405}{Maria Hertrich-Iseli}{HERTRICH MARIA -ISELI, FRAUENFELD}{AN 58626932 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001120001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001311339}{001311339}{0000120136250800}{0000124406865609}{Laura Krieg, Arbon}{KRIEG LAURA, ARBON}{AN 65864330 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001130001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001029166}{001029166}{0000200136020705}{0000202042766207}{Hugo Leutenegger}{LEUTENEGGER HUGO, GUNTERSHAUSENB.AA}{AN 54323033 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001140001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001252253}{001252253}{0000160100131508}{0000162004791104}{Gottfried Schweizer}{SCHWEIZER GOTTFRIED, KREUZLINGEN}{AN 99249331 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001150001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001234453}{001234453}{0000150101213605}{0000152000873808}{Hans Ribi-Baur, Frauenfeld}{RIBI HANS -BAUR, FRAUENFELD}{AN 60501133 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001160001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001201930}{001201930}{0000160137174606}{0000164494275901}{Pius Hengartner, Kronbühl}{HENGARTNER PIUS, KRONBUHL/}{AN 24761933 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001170001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1136}{WG Abr Ertrag}{001035767}{001035767}{0000200100225508}{0000202042668707}{Anneliese Hartmann, Winterthur}{HARTMANN ANNELIESE, WINTERTHUR}{AN 35967133 09.06.2008}{SN 44125232 09.06.2008}{20080609}{20080608}{ }{1421927}{O}{0009200806090000000180000001180001}{1}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001245339}{001245339}{0000150100393509}{0000154410152400}{Fritz Stucki sen.}{STUCKI FRITZ SEN., KREUZLINGEN}{AN 17334035 09.06.2008}{SN 37744917 26.05.2008}{20080609}{20080609}{ }{1463677}{O}{0009200806090000000190000000010001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001202153}{001202153}{0000100100433807}{0000102044145902}{Elsa Herzer-Fehr, Weinfelden}{HERZER ELSA -FEHR, WEINFELDEN}{AN 82932736 09.06.2008}{SN 77981017 26.05.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000190000000020001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001202227}{001202227}{0000150100768704}{0000152000221907}{Heinz Herzog-Osterwalder}{HERZOG HEINZ -OSTERWALDER, ISLIKON}{AN 42166036 09.06.2008}{SN 15435171 26.05.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000190000000030001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 39271336 09.06.2008}{SN 15435171 26.05.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000190000000040001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 39271336 09.06.2008}{SN 15435171 26.05.2008}{20080609}{20080609}{ }{853183}{K}{0009200806090000000190000000040002}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001202565}{001202565}{0000150101240809}{0000152047988203}{Verena Herzog-Osterwalder}{HERZOG VERENA -OSTERWALDER, ISLIKON}{AN 97004336 09.06.2008}{SN 15435171 26.05.2008}{20080609}{20080609}{ }{853183}{O}{0009200806090000000190000000050001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001407933}{001407933}{0000220136061507}{0000222042756108}{Otto Hotz, Homburg}{HOTZ OTTO, HOMBURG}{AN 39194436 09.06.2008}{SN 54779917 26.05.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000190000000060001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001217075}{001217075}{0000180136151700}{0000182000262701}{Lattmann u. Co. AG, Sirnach}{LATTMANN U. CO. AG, SIRNACH}{AN 51228536 09.06.2008}{SN 54779917 26.05.2008}{20080609}{20080609}{ }{676281}{O}{0009200806090000000190000000070001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001277757}{001277757}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{THURGAUER GEBAUDEVERSICHERUNG}{AN 85783336 09.06.2008}{SN 30434616 26.05.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000190000000080001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001277757}{001194521}{0000100136432906}{0000102044217402}{Thurgauer Gebäudeversicherung}{GESER HANS, ROMANSHORN1}{AN 85783336 09.06.2008}{SN 30434616 26.05.2008}{20080609}{20080607}{ }{1463677}{K}{0009200806090000000190000000080002}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001255098}{001255098}{0000160100541201}{0000164494215304}{Arthur Tuchschmid, Kreuzlingen}{TUCHSCHMID ARTHUR, KREUZLINGEN}{AN 30963136 09.06.2008}{SN 30434616 26.05.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000190000000090001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001263700}{001263700}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{ZINGG ARMIN, ROTHENHAUSEN}{AN 65998636 09.06.2008}{SN 30434616 26.05.2008}{20080609}{20080607}{ }{1463677}{O}{0009200806090000000190000000100001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001263700}{001194521}{0000100136209504}{0000102044090401}{Armin Zingg, Rothenhausen}{GESER HANS, ROMANSHORN1}{AN 65998636 09.06.2008}{SN 30434616 26.05.2008}{20080609}{20080607}{ }{1463677}{K}{0009200806090000000190000000100002}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001256510}{001256510}{0000180100037305}{0000184402334309}{Albert Vogel, Au ZH}{VOGEL ALBERT, AUZH}{AN 64400370 09.06.2008}{SN 51792816 26.05.2008}{20080609}{20080607}{ }{26248}{O}{0009200806090000000190000000110001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001122621}{001122621}{0000220136047301}{0000222000316009}{Pierre Burkhardt, Müllheim Dorf}{BURKHARDT PIERRE, MULLHEIMDORF/}{AN 88721137 09.06.2008}{SN 89809216 26.05.2008}{20080609}{20080607}{ }{676281}{O}{0009200806090000000190000000120001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001264658}{001264629}{0000150101050401}{0000152000418107}{Walter Zurbuchen, Frauenfeld}{ZURBUCHEN SAMUEL, FRAUENFELD}{AN 14985637 09.06.2008}{SN 76523116 26.05.2008}{20080609}{20080608}{ }{715909}{O}{0009200806090000000190000000130001}{1}{VSM:EB0 |SPE:I |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001264658}{001264658}{0000150101050401}{0000152000418107}{Walter Zurbuchen, Frauenfeld}{ZURBUCHEN WALTER, FRAUENFELD}{AN 14985637 09.06.2008}{SN 76523116 26.05.2008}{20080609}{20080608}{ }{715909}{K}{0009200806090000000190000000130002}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001207181}{001207181}{0000170136504710}{0000174400905406}{Irma Imlig, Romanshorn}{IMLIG IRMA, ROMANSHORN}{AN 66106373 09.06.2008}{SN 20588116 26.05.2008}{20080609}{20080608}{ }{853183}{O}{0009200806090000000190000000140001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001207181}{001282849}{0000170136504710}{0000174400905406}{Irma Imlig, Romanshorn}{AMTSVORMUNDSCHAFT, ROMANSHORN}{AN 66106373 09.06.2008}{SN 20588116 26.05.2008}{20080609}{20080608}{ }{853183}{K}{0009200806090000000190000000140002}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001147329}{001147329}{0000170136571103}{0000172002024205}{Barbara Knopf-Bänziger}{KNOPF BARBARA -BANZIGER/, NEUKIRCH(}{AN 85858737 09.06.2008}{SN 52370616 26.05.2008}{20080609}{20080608}{ }{26248}{O}{0009200806090000000190000000150001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001010565}{001454395}{0000180136038104}{0000184403254104}{Emil Stadelmann}{ZUMSTEG URSULA -STADELMANN, RIEHEN}{AN 60036637 09.06.2008}{SN 78239316 26.05.2008}{20080609}{20080608}{ }{853183}{O}{0009200806090000000190000000160001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001237836}{001330548}{0000200100016301}{0000204400703105}{Emma Rutishauser, Aadorf}{AMTSVORMUNDSCHAFT MATZINGEN}{AN 23443537 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000170001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001241053}{001241053}{0000150100786604}{0000152000734510}{Theodor Soltermann, Frauenfeld}{SOLTERMANN THEODOR, FRAUENFELD}{AN 53505437 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000180001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001196850}{001196850}{0000100101053900}{0000104471288608}{Silvana Grivel-Boriero}{GRIVEL SILVANA -BORIERO, WUPPENAU}{AN 96204437 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000190001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001111097}{001111097}{0000210136004007}{0000212000731603}{Anna Keller-Bodenmann, Kreuzlingen}{KELLER ANNA -BODENMANN, KREUZLINGEN}{AN 32169337 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000200001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001211156}{001211156}{0000160136557308}{0000164406839403}{Paula Kempter-Hälg}{KEMPTER PAULA -HALG/, KREUZLINGEN}{AN 14901737 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000210001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1137}{WG Abr LiqAussch}{001364559}{001364559}{0000100136057402}{0000102043534503}{Fritz u/o Ella Obrist}{FRITZ U/O ELLA OBRIST, WEINFELDEN}{AN 48292737 09.06.2008}{SN 38947169 26.05.2008}{20080609}{20080608}{ }{676281}{O}{0009200806090000000190000000220001}{1}{VSM:P00 |SPE:A |V-N:00 |V-P:00 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001106756}{001106756}{0000100100664401}{0000102000497107}{Anton u/o Hilde Krucker}{ANTON U/O HILDE KRUCKER}{}{}{20080609}{20080609}{ }{715909}{O}{0009200806090000000300000000010001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001169329}{001169329}{0000140100317700}{0000142046282106}{Andreas Arni-Hafner}{ARNI ANDREAS -HAFNER, DIESSENHOFEN}{}{}{20080609}{20080609}{ }{715909}{O}{0009200806090000000300000000020001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001269597}{001269597}{0000120136115403}{0000122042959701}{Doris Müller-Wildi, Arbon}{MULLER/ DORIS -WILDI, ARBON}{}{}{20080609}{20080609}{ }{715909}{O}{0009200806090000000300000000030001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001204760}{001204760}{0000150100123710}{0000154494526203}{Elisabeth Hotz, Frauenfeld}{HOTZ ELISABETH, FRAUENFELD}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000040001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001222954}{001222954}{0000150101203707}{0000154433184100}{Thomas Meier, Islikon}{MEIER THOMAS, ISLIKON}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000050001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001025980}{001025980}{0000150136847403}{0000152047281400}{Irene Pitton-Keller}{PITTON IRENE -KELLER, FRAUENFELD}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000060001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001177876}{001177876}{0000130100251105}{0000132046334003}{Martha Brüschweiler-Kaderli}{BRUSCHWEILER/ MARTHA -KADERLI, ZIHL}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000070001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001436571}{001436571}{0000100136388405}{0000102044022902}{Victorina Pletscher, Brügg BE}{PLETSCHER VICTORINA, BRUGGBE/}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000080001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001231009}{001231009}{0000160136624509}{0000162046984703}{Guerino Pederiva, Kreuzlingen}{PEDERIVA GUERINO, KREUZLINGEN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000090001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001252409}{001252409}{0000100136220403}{0000102044578905}{SNB, Bern}{SNB, BERN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000100001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001252409}{001000015}{0000100136220403}{0000102044578905}{SNB, Bern}{GESAMTBANK}{}{}{20080609}{20080609}{ }{676281}{K}{0009200806090000000300000000100002}{2}{VSM:P00 |SPE:L |V-N:Z9 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001165536}{001165536}{0000100100912009}{0000102044141609}{Liseli Ammann-Mast, Ostermundigen}{AMMANN LISELI -MAST, OSTERMUNDIGEN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000110001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001192477}{001192477}{0000160101296208}{0000162001249502}{Leo Furrer, Kreuzlingen}{FURRER LEO, KREUZLINGEN}{}{}{20080609}{20080609}{ }{1463677}{O}{0009200806090000000300000000120001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001296814}{001000008}{0000170136634508}{0000172002188502}{Irène Cop}{NL ROMANSHORN}{}{}{20080609}{20080609}{ }{26565}{O}{0009200806090000000300000000130001}{2}{VSM:EB1 |SPE:I |V-N:XB |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001223982}{001223982}{0000140100053907}{0000144400458709}{Verena Meyer-Lustenberger}{MEYER VERENA -LUSTENBERGER, NEUHAUS}{}{}{20080609}{20080609}{ }{853183}{O}{0009200806090000000300000000140001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001045953}{001441481}{0000170100433403}{0000172046705603}{Hedwig Kugler-Wolfender, Romanshorn}{GRIEDER ELISABETH, RORSCHACHERBERG}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000150001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001025123}{001025123}{0000150136607505}{0000154409355204}{Hedwig Lenz, Zürich}{LENZ HEDWIG, ZURICH/}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000160001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001201136}{001201136}{0000150100052510}{0000154412266607}{Fritz Hebeisen, Hugelshofen}{HEBEISEN FRITZ, HUGELSHOFEN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000170001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001254871}{001254871}{0000150100448607}{0000152047072803}{Lina Truniger, Frauenfeld}{TRUNIGER LINA, FRAUENFELD}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000180001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001165960}{001165960}{0000150136666201}{0000154413724206}{R. Bertschi u/o Erben A. Bertschi}{R. BERTSCHI UND ERBEN A. BERTSCHI}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000190001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001256938}{001256938}{0000100100225401}{0000102044562001}{Vontobel AG, Zürich}{VONTOBEL, ZURICH}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000200001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001256938}{001000015}{0000100100225401}{0000102044562001}{Vontobel AG, Zürich}{GESAMTBANK}{}{}{20080609}{20080609}{ }{676281}{K}{0009200806090000000300000000200002}{2}{VSM:P00 |SPE:L |V-N:Z9 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001213034}{001213034}{0000190100222709}{0000192000192610}{Hans Kohli, Kreuzlingen}{KOHLI HANS, KREUZLINGEN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000210001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001348967}{001348967}{0000100101051405}{0000102042732603}{Interplastic AG, Diessenhofen}{INTERPLASTIC AG, DIESSENHOFEN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000220001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001348967}{001194521}{0000100101051405}{0000102042732603}{Interplastic AG, Diessenhofen}{GESER HANS, ROMANSHORN1}{}{}{20080609}{20080609}{ }{676281}{K}{0009200806090000000300000000220002}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001164207}{001164207}{0000110136212600}{0000112043128801}{Felix Granwehr, Amriswil}{GRANWEHR FELIX, AMRISWIL}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000230001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001243543}{001243543}{0000150136973409}{0000152046521306}{Judith Steck, Frauenfeld}{STECK JUDITH, FRAUENFELD}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000240001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001245779}{001245779}{0000170100555907}{0000172000382304}{Werner Sturzenegger}{STURZENEGGER WERNER, ROMANSHORN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000250001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001282145}{001282145}{0000110136003600}{0000114430211203}{Theresa Fuchs-Innerwinkler}{FUCHS THERESA -INNERWINKLER, AMRISW}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000260001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001352165}{001352165}{0000100136016203}{0000102042886109}{Tilsiter Switzerl. GmbH}{TILSITER SWITZERLAND GMBH}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000270001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001221697}{001221697}{0000170100075107}{0000174405513409}{Claudia Mattle, Romanshorn}{MATTLE CLAUDIA, ROMANSHORN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000280001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001215399}{001215399}{0000190100184706}{0000194402829505}{Anna Kull-Wörrle}{KULL ANNA -WORRLE/}{}{}{20080609}{20080609}{ }{853183}{O}{0009200806090000000300000000290001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001036368}{001036368}{0000200100140705}{0000202042567301}{Helene Graf-Geiger, Aadorf}{GRAF HELENE -GEIGER, AADORF}{}{}{20080609}{20080609}{ }{771298}{O}{0009200806090000000300000000300001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001259169}{001259259}{0000150100584010}{0000154411862606}{Lotty Weigle, Frauenfeld}{WEIGLE ROLF, FRAUENFELD}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000310001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001062106}{001062106}{0000220100172900}{0000222000331103}{Alfons Goldinger, Müllheim Dorf}{GOLDINGER ALFONS, MULLHEIMDORF/}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000320001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001185318}{001185318}{0000160136597107}{0000162001110404}{Margrith Egger, Landschlacht}{EGGER MARGRITH, LANDSCHLACHT}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000330001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001283286}{001283286}{0000200100263302}{0000162000418001}{Rudolf Zahnd, Sirnach}{ZAHND RUDOLF, SIRNACH}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000340001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001001002}{001001002}{0000190100246210}{0000192042721201}{Rosa Maria Egger}{EGGER ROSA -HAGEN, STECKBORN}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000350001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
{FP1106}{WG Wi-Anlage-Off}{001299635}{001299635}{0000160137104307}{0000162050010903}{Rosmarie Leuch, Landschlacht}{LEUCH ROSMARIE, LANDSCHLACHT}{}{}{20080609}{20080609}{ }{676281}{O}{0009200806090000000300000000360001}{2}{VSM:P00 |SPE:A |V-N:01 |V-P:01 |USR: |PRN:}{09.06.2008 10:35:14}{5937-5-0-3509FAA-14040-14040}
|
||||
9
Archiv/EDKB01/mssccprj.scc
Normal file
9
Archiv/EDKB01/mssccprj.scc
Normal file
@@ -0,0 +1,9 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[EDKB01.sln]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/EDKB01", APBAAAAA
|
||||
|
||||
[EDKB01.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/EDKB01", APBAAAAA
|
||||
2
Archiv/EDKB01/obj/Debug/20080829100206_hostindex.txt
Normal file
2
Archiv/EDKB01/obj/Debug/20080829100206_hostindex.txt
Normal file
@@ -0,0 +1,2 @@
|
||||
{inpay }{Gutschriftsanzeige }{ 1024679}{ 0}{ 192000226708}{ 10246791001}{Stotzer Peter }{Peter Stotzer }{28.08.2008}{28.08.2008}{ }{O }{ 680957}{ 1}{BatchPrint | B1_POST }{SETTLE }{RMO }{ 32508153}{#MLG }{Gutschrift }{OARC00013182-004118-000000000454388}{28.08.2008 04:00:03}{6306-9-0-13175FAA-14120-14120}
|
||||
{acc_bs_day_xml }{Kontoauszug Business täglich }{ 1120712}{ 11207120001}{ 232042746300}{ 11207121001}{Roth Bernadette }{Bernadette Roth }{29.08.2008}{29.08.2008}{ }{O }{ 707768}{ 1}{BatchPrint | B1_POST }{ }{ }{ 0}{#MLG }{Kontoauszug per 28.08.2008 }{OARC00013755-000163-000000000474306}{29.08.2008 03:45:03}{6306-9-0-13748FAA-14121-14121}
|
||||
BIN
Archiv/EDKB01/obj/Debug/BMS.dll
Normal file
BIN
Archiv/EDKB01/obj/Debug/BMS.dll
Normal file
Binary file not shown.
BIN
Archiv/EDKB01/obj/Debug/Common.dll
Normal file
BIN
Archiv/EDKB01/obj/Debug/Common.dll
Normal file
Binary file not shown.
4
Archiv/EDKB01/obj/Debug/Copy of Start_HOST.cmd
Normal file
4
Archiv/EDKB01/obj/Debug/Copy of Start_HOST.cmd
Normal file
@@ -0,0 +1,4 @@
|
||||
C:\Progra~1\edoka\EDKB01\edkb01.exe C:\Progra~1\edoka\EDKB01\ HOST
|
||||
|
||||
pause
|
||||
|
||||
BIN
Archiv/EDKB01/obj/Debug/DataAccess.dll
Normal file
BIN
Archiv/EDKB01/obj/Debug/DataAccess.dll
Normal file
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user