Update Version 1.2
This commit is contained in:
590
SW/20211125/_FRReporting/DB/clsAuswertung.vb
Normal file
590
SW/20211125/_FRReporting/DB/clsAuswertung.vb
Normal file
@@ -0,0 +1,590 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Auswertung'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 18: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 DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'Auswertung'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertung
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv, m_bExcel_Report, m_bReport As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iAuswertungNr, m_iMutierer As SqlInt32
|
||||
Private m_sSQLType, m_sBeschreibung, m_sConnectionstring_Subreport, m_sFilename, m_sBezeichnung, m_sSQL 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>iAuswertungNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>bReport. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>bExcel_Report. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sSQL. May be SqlString.Null</LI>
|
||||
''' <LI>sSQLType. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sConnectionstring_Subreport. 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_Auswertung_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertung_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("clsAuswertung::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>iAuswertungNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>bReport. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>bExcel_Report. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sSQL. May be SqlString.Null</LI>
|
||||
''' <LI>sSQLType. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sConnectionstring_Subreport. 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_Auswertung_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReport))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bExcel_Report", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bExcel_Report))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQL", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQL))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sConnectionstring_Subreport", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sConnectionstring_Subreport))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertung_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("clsAuswertung::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>iAuswertungNr</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_Auswertung_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertung_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("clsAuswertung::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>iAuswertungNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungNr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>bReport</LI>
|
||||
''' <LI>sFilename</LI>
|
||||
''' <LI>bExcel_Report</LI>
|
||||
''' <LI>sSQL</LI>
|
||||
''' <LI>sSQLType</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>sConnectionstring_Subreport</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_Auswertung_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Auswertung")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungNr"), 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)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Report") Is System.DBNull.Value Then
|
||||
m_bReport = SqlBoolean.Null
|
||||
Else
|
||||
m_bReport = New SqlBoolean(CType(dtToReturn.Rows(0)("Report"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Filename") Is System.DBNull.Value Then
|
||||
m_sFilename = SqlString.Null
|
||||
Else
|
||||
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Excel_Report") Is System.DBNull.Value Then
|
||||
m_bExcel_Report = SqlBoolean.Null
|
||||
Else
|
||||
m_bExcel_Report = New SqlBoolean(CType(dtToReturn.Rows(0)("Excel_Report"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SQL") Is System.DBNull.Value Then
|
||||
m_sSQL = SqlString.Null
|
||||
Else
|
||||
m_sSQL = New SqlString(CType(dtToReturn.Rows(0)("SQL"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SQLType") Is System.DBNull.Value Then
|
||||
m_sSQLType = SqlString.Null
|
||||
Else
|
||||
m_sSQLType = New SqlString(CType(dtToReturn.Rows(0)("SQLType"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||
m_sBeschreibung = SqlString.Null
|
||||
Else
|
||||
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Connectionstring_Subreport") Is System.DBNull.Value Then
|
||||
m_sConnectionstring_Subreport = SqlString.Null
|
||||
Else
|
||||
m_sConnectionstring_Subreport = New SqlString(CType(dtToReturn.Rows(0)("Connectionstring_Subreport"), 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("clsAuswertung::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_Auswertung_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Auswertung")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertung_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("clsAuswertung::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 [iAuswertungNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungNrTmp As SqlInt32 = Value
|
||||
If iAuswertungNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungNr", "iAuswertungNr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungNr = 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 [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bReport]() As SqlBoolean
|
||||
Get
|
||||
Return m_bReport
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bReport = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sFilename]() As SqlString
|
||||
Get
|
||||
Return m_sFilename
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFilename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bExcel_Report]() As SqlBoolean
|
||||
Get
|
||||
Return m_bExcel_Report
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bExcel_Report = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSQL]() As SqlString
|
||||
Get
|
||||
Return m_sSQL
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSQL = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSQLType]() As SqlString
|
||||
Get
|
||||
Return m_sSQLType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSQLType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sBeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sConnectionstring_Subreport]() As SqlString
|
||||
Get
|
||||
Return m_sConnectionstring_Subreport
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sConnectionstring_Subreport = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
510
SW/20211125/_FRReporting/DB/clsAuswertungAuswertungParameter.vb
Normal file
510
SW/20211125/_FRReporting/DB/clsAuswertungAuswertungParameter.vb
Normal file
@@ -0,0 +1,510 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'AuswertungAuswertungParameter'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'AuswertungAuswertungParameter'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertungAuswertungParameter
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iReihenfolge, m_iAuswertungnr, m_iAuswertungAuswertungparameternr, m_iAuswertungparameternr As SqlInt32
|
||||
Private m_sDBfeldname 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>iAuswertungAuswertungparameternr</LI>
|
||||
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungparameternr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sDBfeldname. May be SqlString.Null</LI>
|
||||
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDBfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDBfeldname))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_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("clsAuswertungAuswertungParameter::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>iAuswertungAuswertungparameternr</LI>
|
||||
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungparameternr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sDBfeldname. May be SqlString.Null</LI>
|
||||
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDBfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDBfeldname))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_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("clsAuswertungAuswertungParameter::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>iAuswertungAuswertungparameternr</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_AuswertungAuswertungParameter_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_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("clsAuswertungAuswertungParameter::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>iAuswertungAuswertungparameternr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungAuswertungparameternr</LI>
|
||||
''' <LI>iAuswertungnr</LI>
|
||||
''' <LI>iAuswertungparameternr</LI>
|
||||
''' <LI>sDBfeldname</LI>
|
||||
''' <LI>iReihenfolge</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungAuswertungParameter_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungAuswertungParameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungAuswertungparameternr"), Integer))
|
||||
If dtToReturn.Rows(0)("Auswertungnr") Is System.DBNull.Value Then
|
||||
m_iAuswertungnr = SqlInt32.Null
|
||||
Else
|
||||
m_iAuswertungnr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Auswertungparameternr") Is System.DBNull.Value Then
|
||||
m_iAuswertungparameternr = SqlInt32.Null
|
||||
Else
|
||||
m_iAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungparameternr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("DBfeldname") Is System.DBNull.Value Then
|
||||
m_sDBfeldname = SqlString.Null
|
||||
Else
|
||||
m_sDBfeldname = New SqlString(CType(dtToReturn.Rows(0)("DBfeldname"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||
m_iReihenfolge = SqlInt32.Null
|
||||
Else
|
||||
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungAuswertungParameter::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_AuswertungAuswertungParameter_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungAuswertungParameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungAuswertungParameter_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("clsAuswertungAuswertungParameter::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 [iAuswertungAuswertungparameternr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungAuswertungparameternr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungAuswertungparameternrTmp As SqlInt32 = Value
|
||||
If iAuswertungAuswertungparameternrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungAuswertungparameternr", "iAuswertungAuswertungparameternr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungAuswertungparameternr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuswertungnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuswertungnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuswertungparameternr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungparameternr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuswertungparameternr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDBfeldname]() As SqlString
|
||||
Get
|
||||
Return m_sDBfeldname
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDBfeldname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iReihenfolge]() As SqlInt32
|
||||
Get
|
||||
Return m_iReihenfolge
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iReihenfolge = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
470
SW/20211125/_FRReporting/DB/clsAuswertungGruppe.vb
Normal file
470
SW/20211125/_FRReporting/DB/clsAuswertungGruppe.vb
Normal file
@@ -0,0 +1,470 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'AuswertungGruppe'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'AuswertungGruppe'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertungGruppe
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iParentid, m_iMutierer, m_iAuswertungGruppeNr 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>iAuswertungGruppeNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>iParentid. 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_AuswertungGruppe_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_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("clsAuswertungGruppe::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>iAuswertungGruppeNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>iParentid. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_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("clsAuswertungGruppe::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>iAuswertungGruppeNr</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_AuswertungGruppe_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_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("clsAuswertungGruppe::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>iAuswertungGruppeNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungGruppeNr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>iParentid</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_AuswertungGruppe_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungGruppeNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeNr"), 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)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Parentid") Is System.DBNull.Value Then
|
||||
m_iParentid = SqlInt32.Null
|
||||
Else
|
||||
m_iParentid = New SqlInt32(CType(dtToReturn.Rows(0)("Parentid"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::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_AuswertungGruppe_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_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("clsAuswertungGruppe::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 [iAuswertungGruppeNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungGruppeNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungGruppeNrTmp As SqlInt32 = Value
|
||||
If iAuswertungGruppeNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungGruppeNr", "iAuswertungGruppeNr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungGruppeNr = 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 [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iParentid]() As SqlInt32
|
||||
Get
|
||||
Return m_iParentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iParentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
469
SW/20211125/_FRReporting/DB/clsAuswertungGruppeAuswertung.vb
Normal file
469
SW/20211125/_FRReporting/DB/clsAuswertungGruppeAuswertung.vb
Normal file
@@ -0,0 +1,469 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'AuswertungGruppeAuswertung'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'AuswertungGruppeAuswertung'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertungGruppeAuswertung
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstllt_am As SqlDateTime
|
||||
Private m_iMutierer, m_iAuswertungGruppeNr, m_iAuswertungNr, m_iAuswertungGruppeAuswertungNr As SqlInt32
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Class constructor.
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iAuswertungGruppeAuswertungNr</LI>
|
||||
''' <LI>iAuswertungGruppeNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstllt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstllt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstllt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_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("clsAuswertungGruppeAuswertung::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>iAuswertungGruppeAuswertungNr</LI>
|
||||
''' <LI>iAuswertungGruppeNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstllt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstllt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstllt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_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("clsAuswertungGruppeAuswertung::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>iAuswertungGruppeAuswertungNr</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_AuswertungGruppeAuswertung_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_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("clsAuswertungGruppeAuswertung::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>iAuswertungGruppeAuswertungNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungGruppeAuswertungNr</LI>
|
||||
''' <LI>iAuswertungGruppeNr</LI>
|
||||
''' <LI>iAuswertungNr</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstllt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppeAuswertung_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppeAuswertung")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungGruppeAuswertungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeAuswertungNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungGruppeAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeAuswertungNr"), Integer))
|
||||
If dtToReturn.Rows(0)("AuswertungGruppeNr") Is System.DBNull.Value Then
|
||||
m_iAuswertungGruppeNr = SqlInt32.Null
|
||||
Else
|
||||
m_iAuswertungGruppeNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeNr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("AuswertungNr") Is System.DBNull.Value Then
|
||||
m_iAuswertungNr = SqlInt32.Null
|
||||
Else
|
||||
m_iAuswertungNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungNr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstllt_am") Is System.DBNull.Value Then
|
||||
m_daErstllt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstllt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstllt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppeAuswertung::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_AuswertungGruppeAuswertung_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppeAuswertung")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppeAuswertung_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("clsAuswertungGruppeAuswertung::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 [iAuswertungGruppeAuswertungNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungGruppeAuswertungNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungGruppeAuswertungNrTmp As SqlInt32 = Value
|
||||
If iAuswertungGruppeAuswertungNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungGruppeAuswertungNr", "iAuswertungGruppeAuswertungNr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungGruppeAuswertungNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuswertungGruppeNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungGruppeNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuswertungGruppeNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuswertungNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuswertungNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstllt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstllt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstllt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
478
SW/20211125/_FRReporting/DB/clsAuswertungRptDatei.vb
Normal file
478
SW/20211125/_FRReporting/DB/clsAuswertungRptDatei.vb
Normal file
@@ -0,0 +1,478 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'AuswertungRptDatei'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'AuswertungRptDatei'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertungRptDatei
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_blobReportfile As SqlBinary
|
||||
Private m_iMutierer, m_iAuswertungDateiNr As SqlInt32
|
||||
Private m_sFilename, m_sReportname 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>iAuswertungDateiNr</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>sReportname. May be SqlString.Null</LI>
|
||||
''' <LI>blobReportfile. May be SqlBinary.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sReportname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReportname))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobReportfile.IsNull Then
|
||||
iLength = m_blobReportfile.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobReportfile", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobReportfile))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_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("clsAuswertungRptDatei::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>iAuswertungDateiNr</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>sReportname. May be SqlString.Null</LI>
|
||||
''' <LI>blobReportfile. May be SqlBinary.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sReportname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReportname))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobReportfile.IsNull Then
|
||||
iLength = m_blobReportfile.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobReportfile", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobReportfile))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_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("clsAuswertungRptDatei::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>iAuswertungDateiNr</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_AuswertungRptDatei_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_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("clsAuswertungRptDatei::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>iAuswertungDateiNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungDateiNr</LI>
|
||||
''' <LI>sFilename</LI>
|
||||
''' <LI>sReportname</LI>
|
||||
''' <LI>blobReportfile</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungRptDatei_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungRptDatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungDateiNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungDateiNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungDateiNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungDateiNr"), Integer))
|
||||
If dtToReturn.Rows(0)("Filename") Is System.DBNull.Value Then
|
||||
m_sFilename = SqlString.Null
|
||||
Else
|
||||
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reportname") Is System.DBNull.Value Then
|
||||
m_sReportname = SqlString.Null
|
||||
Else
|
||||
m_sReportname = New SqlString(CType(dtToReturn.Rows(0)("Reportname"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reportfile") Is System.DBNull.Value Then
|
||||
m_blobReportfile = SqlBinary.Null
|
||||
Else
|
||||
m_blobReportfile = New SqlBinary(CType(dtToReturn.Rows(0)("Reportfile"), Byte()))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungRptDatei::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_AuswertungRptDatei_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungRptDatei")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungRptDatei_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("clsAuswertungRptDatei::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 [iAuswertungDateiNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungDateiNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungDateiNrTmp As SqlInt32 = Value
|
||||
If iAuswertungDateiNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungDateiNr", "iAuswertungDateiNr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungDateiNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sFilename]() As SqlString
|
||||
Get
|
||||
Return m_sFilename
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFilename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sReportname]() As SqlString
|
||||
Get
|
||||
Return m_sReportname
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sReportname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [blobReportfile]() As SqlBinary
|
||||
Get
|
||||
Return m_blobReportfile
|
||||
End Get
|
||||
Set(ByVal Value As SqlBinary)
|
||||
m_blobReportfile = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
550
SW/20211125/_FRReporting/DB/clsAuswertungsparameter.vb
Normal file
550
SW/20211125/_FRReporting/DB/clsAuswertungsparameter.vb
Normal file
@@ -0,0 +1,550 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Auswertungsparameter'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'Auswertungsparameter'.
|
||||
''' </summary>
|
||||
Public Class clsAuswertungsparameter
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iAuswertungparameternr As SqlInt32
|
||||
Private m_sBezeichnung, m_sParamName, m_sOperator, m_sWert, m_sFeldbezug, m_sParamType 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>iAuswertungparameternr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sOperator. May be SqlString.Null</LI>
|
||||
''' <LI>sFeldbezug. May be SqlString.Null</LI>
|
||||
''' <LI>sWert. May be SqlString.Null</LI>
|
||||
''' <LI>sParamName. May be SqlString.Null</LI>
|
||||
''' <LI>sParamType. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOperator", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOperator))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFeldbezug", SqlDbType.VarChar, 200, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldbezug))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sWert", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sWert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamName))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_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("clsAuswertungsparameter::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>iAuswertungparameternr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sOperator. May be SqlString.Null</LI>
|
||||
''' <LI>sFeldbezug. May be SqlString.Null</LI>
|
||||
''' <LI>sWert. May be SqlString.Null</LI>
|
||||
''' <LI>sParamName. May be SqlString.Null</LI>
|
||||
''' <LI>sParamType. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOperator", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOperator))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFeldbezug", SqlDbType.VarChar, 200, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldbezug))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sWert", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sWert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamName))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParamType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParamType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_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("clsAuswertungsparameter::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>iAuswertungparameternr</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_Auswertungsparameter_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_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("clsAuswertungsparameter::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>iAuswertungparameternr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iAuswertungparameternr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>sOperator</LI>
|
||||
''' <LI>sFeldbezug</LI>
|
||||
''' <LI>sWert</LI>
|
||||
''' <LI>sParamName</LI>
|
||||
''' <LI>sParamType</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Auswertungsparameter_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Auswertungsparameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungparameternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungparameternr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungparameternr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungparameternr"), 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)("Operator") Is System.DBNull.Value Then
|
||||
m_sOperator = SqlString.Null
|
||||
Else
|
||||
m_sOperator = New SqlString(CType(dtToReturn.Rows(0)("Operator"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Feldbezug") Is System.DBNull.Value Then
|
||||
m_sFeldbezug = SqlString.Null
|
||||
Else
|
||||
m_sFeldbezug = New SqlString(CType(dtToReturn.Rows(0)("Feldbezug"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Wert") Is System.DBNull.Value Then
|
||||
m_sWert = SqlString.Null
|
||||
Else
|
||||
m_sWert = New SqlString(CType(dtToReturn.Rows(0)("Wert"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ParamName") Is System.DBNull.Value Then
|
||||
m_sParamName = SqlString.Null
|
||||
Else
|
||||
m_sParamName = New SqlString(CType(dtToReturn.Rows(0)("ParamName"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ParamType") Is System.DBNull.Value Then
|
||||
m_sParamType = SqlString.Null
|
||||
Else
|
||||
m_sParamType = New SqlString(CType(dtToReturn.Rows(0)("ParamType"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungsparameter::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_Auswertungsparameter_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Auswertungsparameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Auswertungsparameter_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("clsAuswertungsparameter::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 [iAuswertungparameternr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungparameternr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungparameternrTmp As SqlInt32 = Value
|
||||
If iAuswertungparameternrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungparameternr", "iAuswertungparameternr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungparameternr = 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 [sOperator]() As SqlString
|
||||
Get
|
||||
Return m_sOperator
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOperator = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sFeldbezug]() As SqlString
|
||||
Get
|
||||
Return m_sFeldbezug
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFeldbezug = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sWert]() As SqlString
|
||||
Get
|
||||
Return m_sWert
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sWert = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sParamName]() As SqlString
|
||||
Get
|
||||
Return m_sParamName
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sParamName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sParamType]() As SqlString
|
||||
Get
|
||||
Return m_sParamType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sParamType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
289
SW/20211125/_FRReporting/DB/clsConnectionProvider.vb
Normal file
289
SW/20211125/_FRReporting/DB/clsConnectionProvider.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace DB
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = new SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = new ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End if
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set (ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
208
SW/20211125/_FRReporting/DB/clsDBInteractionBase.vb
Normal file
208
SW/20211125/_FRReporting/DB/clsDBInteractionBase.vb
Normal file
@@ -0,0 +1,208 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:15:46
|
||||
' // 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 DB
|
||||
' /// <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_iRowsAffected As Integer
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = new SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set (ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
Public Readonly Property iRowsAffected() As Integer
|
||||
Get
|
||||
Return m_iRowsAffected
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
491
SW/20211125/_FRReporting/DB/clsKey_tabelle.vb
Normal file
491
SW/20211125/_FRReporting/DB/clsKey_tabelle.vb
Normal file
@@ -0,0 +1,491 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'key_tabelle'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02: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 DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'key_tabelle'.
|
||||
''' </summary>
|
||||
Public Class clsKey_tabelle
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||
Private m_sBeschreibung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Class constructor.
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
''' </summary>
|
||||
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||
m_iMandantnr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
''' </summary>
|
||||
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iKeynr]() As SqlInt32
|
||||
Get
|
||||
Return m_iKeynr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iKeynrTmp As SqlInt32 = Value
|
||||
If iKeynrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||
End If
|
||||
m_iKeynr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sBeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sBeschreibungTmp As SqlString = Value
|
||||
If sBeschreibungTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||
End If
|
||||
m_sBeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iKey_wert]() As SqlInt32
|
||||
Get
|
||||
Return m_iKey_wert
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iKey_wertTmp As SqlInt32 = Value
|
||||
If iKey_wertTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||
End If
|
||||
m_iKey_wert = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMandantnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,510 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 2. März 2013, 14:18:33
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'Mitarbeiter_Auswertungsparameter'.
|
||||
''' </summary>
|
||||
Public Class clsMitarbeiter_Auswertungsparameter
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bParamPrint As SqlBoolean
|
||||
Private m_iAuswertungnr, m_iMitarbeiter_AuswertungsparameterNr, m_iMitarbeiternr As SqlInt32
|
||||
Private m_sTitelzeile2, m_sSQLWhere, m_sBeschreibung, m_sParameterdaten, m_sTitelzeile1 As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Class constructor.
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sParameterdaten. May be SqlString.Null</LI>
|
||||
''' <LI>sTitelzeile1. May be SqlString.Null</LI>
|
||||
''' <LI>sTitelzeile2. May be SqlString.Null</LI>
|
||||
''' <LI>bParamPrint. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sSQLWhere. May be SqlString.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParameterdaten", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParameterdaten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bParamPrint", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bParamPrint))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLWhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLWhere))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iMitarbeiter_AuswertungsparameterNr").Value, SqlInt32))
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMitarbeiter_Auswertungsparameter::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>iMitarbeiter_AuswertungsparameterNr</LI>
|
||||
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iAuswertungnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sParameterdaten. May be SqlString.Null</LI>
|
||||
''' <LI>sTitelzeile1. May be SqlString.Null</LI>
|
||||
''' <LI>sTitelzeile2. May be SqlString.Null</LI>
|
||||
''' <LI>bParamPrint. May be SqlBoolean.Null</LI>
|
||||
''' <LI>sSQLWhere. 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_Mitarbeiter_Auswertungsparameter_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sParameterdaten", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sParameterdaten))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile1))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitelzeile2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitelzeile2))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bParamPrint", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bParamPrint))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSQLWhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSQLWhere))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMitarbeiter_Auswertungsparameter::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>iMitarbeiter_AuswertungsparameterNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMitarbeiter_Auswertungsparameter::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>iMitarbeiter_AuswertungsparameterNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iMitarbeiter_AuswertungsparameterNr</LI>
|
||||
''' <LI>iMitarbeiternr</LI>
|
||||
''' <LI>iAuswertungnr</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>sParameterdaten</LI>
|
||||
''' <LI>sTitelzeile1</LI>
|
||||
''' <LI>sTitelzeile2</LI>
|
||||
''' <LI>bParamPrint</LI>
|
||||
''' <LI>sSQLWhere</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Mitarbeiter_Auswertungsparameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMitarbeiter_AuswertungsparameterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_AuswertungsparameterNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(dtToReturn.Rows(0)("Mitarbeiter_AuswertungsparameterNr"), Integer))
|
||||
If dtToReturn.Rows(0)("Mitarbeiternr") Is System.DBNull.Value Then
|
||||
m_iMitarbeiternr = SqlInt32.Null
|
||||
Else
|
||||
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("Mitarbeiternr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Auswertungnr") Is System.DBNull.Value Then
|
||||
m_iAuswertungnr = SqlInt32.Null
|
||||
Else
|
||||
m_iAuswertungnr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswertungnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||
m_sBeschreibung = SqlString.Null
|
||||
Else
|
||||
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Parameterdaten") Is System.DBNull.Value Then
|
||||
m_sParameterdaten = SqlString.Null
|
||||
Else
|
||||
m_sParameterdaten = New SqlString(CType(dtToReturn.Rows(0)("Parameterdaten"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Titelzeile1") Is System.DBNull.Value Then
|
||||
m_sTitelzeile1 = SqlString.Null
|
||||
Else
|
||||
m_sTitelzeile1 = New SqlString(CType(dtToReturn.Rows(0)("Titelzeile1"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Titelzeile2") Is System.DBNull.Value Then
|
||||
m_sTitelzeile2 = SqlString.Null
|
||||
Else
|
||||
m_sTitelzeile2 = New SqlString(CType(dtToReturn.Rows(0)("Titelzeile2"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("ParamPrint") Is System.DBNull.Value Then
|
||||
m_bParamPrint = SqlBoolean.Null
|
||||
Else
|
||||
m_bParamPrint = New SqlBoolean(CType(dtToReturn.Rows(0)("ParamPrint"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SQLWhere") Is System.DBNull.Value Then
|
||||
m_sSQLWhere = SqlString.Null
|
||||
Else
|
||||
m_sSQLWhere = New SqlString(CType(dtToReturn.Rows(0)("SQLWhere"), 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("clsMitarbeiter_Auswertungsparameter::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
''' </summary>
|
||||
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_Mitarbeiter_Auswertungsparameter_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Mitarbeiter_Auswertungsparameter")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_Mitarbeiter_Auswertungsparameter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMitarbeiter_Auswertungsparameter::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 [iMitarbeiter_AuswertungsparameterNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMitarbeiter_AuswertungsparameterNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iMitarbeiter_AuswertungsparameterNrTmp As SqlInt32 = Value
|
||||
If iMitarbeiter_AuswertungsparameterNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iMitarbeiter_AuswertungsparameterNr", "iMitarbeiter_AuswertungsparameterNr can't be NULL")
|
||||
End If
|
||||
m_iMitarbeiter_AuswertungsparameterNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMitarbeiternr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMitarbeiternr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMitarbeiternr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iAuswertungnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iAuswertungnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sBeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sParameterdaten]() As SqlString
|
||||
Get
|
||||
Return m_sParameterdaten
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sParameterdaten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTitelzeile1]() As SqlString
|
||||
Get
|
||||
Return m_sTitelzeile1
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTitelzeile1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTitelzeile2]() As SqlString
|
||||
Get
|
||||
Return m_sTitelzeile2
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTitelzeile2 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bParamPrint]() As SqlBoolean
|
||||
Get
|
||||
Return m_bParamPrint
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bParamPrint = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSQLWhere]() As SqlString
|
||||
Get
|
||||
Return m_sSQLWhere
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSQLWhere = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
570
SW/20211125/_FRReporting/DB/clsSecurityObject.vb
Normal file
570
SW/20211125/_FRReporting/DB/clsSecurityObject.vb
Normal file
@@ -0,0 +1,570 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'SecurityObject'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||
' // 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 DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'SecurityObject'.
|
||||
''' </summary>
|
||||
Public Class clsSecurityObject
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iLevel, m_iMutierer, m_iMandantnr, m_iSecurityObjectNr As SqlInt32
|
||||
Private m_sSecurityForm, m_sSecurityObjectDescriotion, m_sSecurityObjectItem, m_sSecurityObject, m_sSecurityObjectType 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>iSecurityObjectNr</LI>
|
||||
''' <LI>sSecurityForm. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObject. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
|
||||
''' <LI>iLevel. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>iMandantnr. 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_SecurityObject_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_SecurityObject_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("clsSecurityObject::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>iSecurityObjectNr</LI>
|
||||
''' <LI>sSecurityForm. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObject. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
|
||||
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
|
||||
''' <LI>iLevel. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_SecurityObject_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("clsSecurityObject::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>iSecurityObjectNr</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_SecurityObject_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||
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.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_SecurityObject_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("clsSecurityObject::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>iSecurityObjectNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iSecurityObjectNr</LI>
|
||||
''' <LI>sSecurityForm</LI>
|
||||
''' <LI>sSecurityObjectType</LI>
|
||||
''' <LI>sSecurityObject</LI>
|
||||
''' <LI>sSecurityObjectItem</LI>
|
||||
''' <LI>sSecurityObjectDescriotion</LI>
|
||||
''' <LI>iLevel</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>iMandantnr</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_SecurityObject_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_SecurityObject_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iSecurityObjectNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityObjectNr"), Integer))
|
||||
If dtToReturn.Rows(0)("SecurityForm") Is System.DBNull.Value Then
|
||||
m_sSecurityForm = SqlString.Null
|
||||
Else
|
||||
m_sSecurityForm = New SqlString(CType(dtToReturn.Rows(0)("SecurityForm"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SecurityObjectType") Is System.DBNull.Value Then
|
||||
m_sSecurityObjectType = SqlString.Null
|
||||
Else
|
||||
m_sSecurityObjectType = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectType"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SecurityObject") Is System.DBNull.Value Then
|
||||
m_sSecurityObject = SqlString.Null
|
||||
Else
|
||||
m_sSecurityObject = New SqlString(CType(dtToReturn.Rows(0)("SecurityObject"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SecurityObjectItem") Is System.DBNull.Value Then
|
||||
m_sSecurityObjectItem = SqlString.Null
|
||||
Else
|
||||
m_sSecurityObjectItem = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectItem"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SecurityObjectDescriotion") Is System.DBNull.Value Then
|
||||
m_sSecurityObjectDescriotion = SqlString.Null
|
||||
Else
|
||||
m_sSecurityObjectDescriotion = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectDescriotion"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Level") Is System.DBNull.Value Then
|
||||
m_iLevel = SqlInt32.Null
|
||||
Else
|
||||
m_iLevel = New SqlInt32(CType(dtToReturn.Rows(0)("Level"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mandantnr") Is System.DBNull.Value Then
|
||||
m_iMandantnr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("Mandantnr"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSecurityObject::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_SecurityObject_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_SecurityObject_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("clsSecurityObject::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 [iSecurityObjectNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iSecurityObjectNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iSecurityObjectNrTmp As SqlInt32 = Value
|
||||
If iSecurityObjectNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iSecurityObjectNr", "iSecurityObjectNr can't be NULL")
|
||||
End If
|
||||
m_iSecurityObjectNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSecurityForm]() As SqlString
|
||||
Get
|
||||
Return m_sSecurityForm
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSecurityForm = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSecurityObjectType]() As SqlString
|
||||
Get
|
||||
Return m_sSecurityObjectType
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSecurityObjectType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSecurityObject]() As SqlString
|
||||
Get
|
||||
Return m_sSecurityObject
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSecurityObject = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSecurityObjectItem]() As SqlString
|
||||
Get
|
||||
Return m_sSecurityObjectItem
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSecurityObjectItem = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSecurityObjectDescriotion]() As SqlString
|
||||
Get
|
||||
Return m_sSecurityObjectDescriotion
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSecurityObjectDescriotion = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iLevel]() As SqlInt32
|
||||
Get
|
||||
Return m_iLevel
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iLevel = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMandantnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
880
SW/20211125/_FRReporting/Formulare/FrmReportSelect.designer.vb
generated
Normal file
880
SW/20211125/_FRReporting/Formulare/FrmReportSelect.designer.vb
generated
Normal file
@@ -0,0 +1,880 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class FrmReportSelect
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmReportSelect))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsbtnReportDesign = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnSetSecurityObject = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.TreeAuswertungen = New System.Windows.Forms.TreeView()
|
||||
Me.TreeContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.AlleKnotenSchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AlleKnotenÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GrpAuswertung = New System.Windows.Forms.GroupBox()
|
||||
Me.GrpParameter = New System.Windows.Forms.GroupBox()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.btnEditSQL = New System.Windows.Forms.Button()
|
||||
Me.btnDeleteSavedParam = New System.Windows.Forms.Button()
|
||||
Me.ComboboxMAParameter = New System.Windows.Forms.ComboBox()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel6 = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel5 = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel4 = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel3 = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel2 = New System.Windows.Forms.Button()
|
||||
Me.BtnParamDel1 = New System.Windows.Forms.Button()
|
||||
Me.BtnInitParam = New System.Windows.Forms.Button()
|
||||
Me.cbandor6 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam7 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbvalue7 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop7 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbandor5 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam6 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbvalue6 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop6 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbandor4 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbandor3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbandor2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbandor1 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam5 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam4 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbparam1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cbvalue5 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop5 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbvalue4 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop4 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbvalue3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbvalue2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop2 = New System.Windows.Forms.ComboBox()
|
||||
Me.lblTitelWert = New System.Windows.Forms.Label()
|
||||
Me.lblTitelOperator = New System.Windows.Forms.Label()
|
||||
Me.lblParamTitel = New System.Windows.Forms.Label()
|
||||
Me.cbvalue1 = New System.Windows.Forms.ComboBox()
|
||||
Me.cbop1 = New System.Windows.Forms.ComboBox()
|
||||
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.grpBeschreibung = New System.Windows.Forms.GroupBox()
|
||||
Me.txtbeschreibung = New System.Windows.Forms.TextBox()
|
||||
Me.grpdb = New System.Windows.Forms.GroupBox()
|
||||
Me.btnAufbereitenCSV = New System.Windows.Forms.Button()
|
||||
Me.grpcr = New System.Windows.Forms.GroupBox()
|
||||
Me.checkboxprintparam = New System.Windows.Forms.CheckBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtTitel2 = New System.Windows.Forms.TextBox()
|
||||
Me.txtTitel1 = New System.Windows.Forms.TextBox()
|
||||
Me.BtnAufbereitenCR = New System.Windows.Forms.Button()
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.TreeContextMenuStrip1.SuspendLayout()
|
||||
Me.GrpAuswertung.SuspendLayout()
|
||||
Me.GrpParameter.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.grpBeschreibung.SuspendLayout()
|
||||
Me.grpdb.SuspendLayout()
|
||||
Me.grpcr.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.AllowMerge = False
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(732, 24)
|
||||
Me.MenuStrip1.TabIndex = 4
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.tsbtnReportDesign, Me.TSBtnSetSecurityObject})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(732, 25)
|
||||
Me.ToolStrip1.TabIndex = 3
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.AutoSize = False
|
||||
Me.ToolStripSeparator1.ForeColor = System.Drawing.SystemColors.Control
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'tsbtnReportDesign
|
||||
'
|
||||
Me.tsbtnReportDesign.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnReportDesign.Image = CType(resources.GetObject("tsbtnReportDesign.Image"), System.Drawing.Image)
|
||||
Me.tsbtnReportDesign.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnReportDesign.Name = "tsbtnReportDesign"
|
||||
Me.tsbtnReportDesign.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnReportDesign.Text = "ToolStripButton1"
|
||||
'
|
||||
'TSBtnSetSecurityObject
|
||||
'
|
||||
Me.TSBtnSetSecurityObject.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnSetSecurityObject.Image = CType(resources.GetObject("TSBtnSetSecurityObject.Image"), System.Drawing.Image)
|
||||
Me.TSBtnSetSecurityObject.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnSetSecurityObject.Name = "TSBtnSetSecurityObject"
|
||||
Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnSetSecurityObject.Text = "SecurityObjekte generieren"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "ReportFolder.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "Report.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "BOOK02.GIF")
|
||||
Me.ImageList1.Images.SetKeyName(3, "rpt.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "CR.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "Text.ico")
|
||||
Me.ImageList1.Images.SetKeyName(6, "README.GIF")
|
||||
'
|
||||
'TreeAuswertungen
|
||||
'
|
||||
Me.TreeAuswertungen.ContextMenuStrip = Me.TreeContextMenuStrip1
|
||||
Me.TreeAuswertungen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TreeAuswertungen.HideSelection = False
|
||||
Me.TreeAuswertungen.HotTracking = True
|
||||
Me.TreeAuswertungen.ImageIndex = 0
|
||||
Me.TreeAuswertungen.ImageList = Me.ImageList1
|
||||
Me.TreeAuswertungen.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TreeAuswertungen.Name = "TreeAuswertungen"
|
||||
Me.TreeAuswertungen.SelectedImageIndex = 0
|
||||
Me.TreeAuswertungen.Size = New System.Drawing.Size(286, 533)
|
||||
Me.TreeAuswertungen.TabIndex = 0
|
||||
'
|
||||
'TreeContextMenuStrip1
|
||||
'
|
||||
Me.TreeContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleKnotenSchliessenToolStripMenuItem, Me.AlleKnotenÖffnenToolStripMenuItem})
|
||||
Me.TreeContextMenuStrip1.Name = "TreeContextMenuStrip1"
|
||||
Me.TreeContextMenuStrip1.Size = New System.Drawing.Size(192, 48)
|
||||
'
|
||||
'AlleKnotenSchliessenToolStripMenuItem
|
||||
'
|
||||
Me.AlleKnotenSchliessenToolStripMenuItem.Name = "AlleKnotenSchliessenToolStripMenuItem"
|
||||
Me.AlleKnotenSchliessenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
|
||||
Me.AlleKnotenSchliessenToolStripMenuItem.Text = "Alle Knoten schliessen"
|
||||
'
|
||||
'AlleKnotenÖffnenToolStripMenuItem
|
||||
'
|
||||
Me.AlleKnotenÖffnenToolStripMenuItem.Name = "AlleKnotenÖffnenToolStripMenuItem"
|
||||
Me.AlleKnotenÖffnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
|
||||
Me.AlleKnotenÖffnenToolStripMenuItem.Text = "Alle Knoten öffnen"
|
||||
'
|
||||
'GrpAuswertung
|
||||
'
|
||||
Me.GrpAuswertung.Controls.Add(Me.TreeAuswertungen)
|
||||
Me.GrpAuswertung.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GrpAuswertung.Location = New System.Drawing.Point(0, 49)
|
||||
Me.GrpAuswertung.Name = "GrpAuswertung"
|
||||
Me.GrpAuswertung.Size = New System.Drawing.Size(292, 552)
|
||||
Me.GrpAuswertung.TabIndex = 0
|
||||
Me.GrpAuswertung.TabStop = False
|
||||
Me.GrpAuswertung.Text = "Auswertungen"
|
||||
'
|
||||
'GrpParameter
|
||||
'
|
||||
Me.GrpParameter.Controls.Add(Me.PictureBox1)
|
||||
Me.GrpParameter.Controls.Add(Me.btnEditSQL)
|
||||
Me.GrpParameter.Controls.Add(Me.btnDeleteSavedParam)
|
||||
Me.GrpParameter.Controls.Add(Me.ComboboxMAParameter)
|
||||
Me.GrpParameter.Controls.Add(Me.btnSave)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel6)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel5)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel4)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel3)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel2)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnParamDel1)
|
||||
Me.GrpParameter.Controls.Add(Me.BtnInitParam)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor6)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam7)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue7)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop7)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor5)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam6)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue6)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop6)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor4)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor3)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor2)
|
||||
Me.GrpParameter.Controls.Add(Me.cbandor1)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam5)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam4)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam3)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam2)
|
||||
Me.GrpParameter.Controls.Add(Me.cbparam1)
|
||||
Me.GrpParameter.Controls.Add(Me.Label6)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue5)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop5)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue4)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop4)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue3)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop3)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue2)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop2)
|
||||
Me.GrpParameter.Controls.Add(Me.lblTitelWert)
|
||||
Me.GrpParameter.Controls.Add(Me.lblTitelOperator)
|
||||
Me.GrpParameter.Controls.Add(Me.lblParamTitel)
|
||||
Me.GrpParameter.Controls.Add(Me.cbvalue1)
|
||||
Me.GrpParameter.Controls.Add(Me.cbop1)
|
||||
Me.GrpParameter.Location = New System.Drawing.Point(295, 129)
|
||||
Me.GrpParameter.Name = "GrpParameter"
|
||||
Me.GrpParameter.Size = New System.Drawing.Size(425, 301)
|
||||
Me.GrpParameter.TabIndex = 1
|
||||
Me.GrpParameter.TabStop = False
|
||||
Me.GrpParameter.Text = "Parameter"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(360, 65)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(39, 36)
|
||||
Me.PictureBox1.TabIndex = 48
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'btnEditSQL
|
||||
'
|
||||
Me.btnEditSQL.Image = CType(resources.GetObject("btnEditSQL.Image"), System.Drawing.Image)
|
||||
Me.btnEditSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnEditSQL.Location = New System.Drawing.Point(398, 72)
|
||||
Me.btnEditSQL.Name = "btnEditSQL"
|
||||
Me.btnEditSQL.Size = New System.Drawing.Size(24, 29)
|
||||
Me.btnEditSQL.TabIndex = 28
|
||||
Me.btnEditSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnEditSQL.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDeleteSavedParam
|
||||
'
|
||||
Me.btnDeleteSavedParam.Image = CType(resources.GetObject("btnDeleteSavedParam.Image"), System.Drawing.Image)
|
||||
Me.btnDeleteSavedParam.Location = New System.Drawing.Point(399, 21)
|
||||
Me.btnDeleteSavedParam.Name = "btnDeleteSavedParam"
|
||||
Me.btnDeleteSavedParam.Size = New System.Drawing.Size(19, 21)
|
||||
Me.btnDeleteSavedParam.TabIndex = 47
|
||||
Me.btnDeleteSavedParam.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ComboboxMAParameter
|
||||
'
|
||||
Me.ComboboxMAParameter.FormattingEnabled = True
|
||||
Me.ComboboxMAParameter.Location = New System.Drawing.Point(96, 21)
|
||||
Me.ComboboxMAParameter.Name = "ComboboxMAParameter"
|
||||
Me.ComboboxMAParameter.Size = New System.Drawing.Size(303, 21)
|
||||
Me.ComboboxMAParameter.TabIndex = 46
|
||||
Me.ComboboxMAParameter.Visible = False
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(15, 19)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 45
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel6
|
||||
'
|
||||
Me.BtnParamDel6.Image = CType(resources.GetObject("BtnParamDel6.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel6.Location = New System.Drawing.Point(399, 270)
|
||||
Me.BtnParamDel6.Name = "BtnParamDel6"
|
||||
Me.BtnParamDel6.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel6.TabIndex = 44
|
||||
Me.BtnParamDel6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel5
|
||||
'
|
||||
Me.BtnParamDel5.Image = CType(resources.GetObject("BtnParamDel5.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel5.Location = New System.Drawing.Point(399, 244)
|
||||
Me.BtnParamDel5.Name = "BtnParamDel5"
|
||||
Me.BtnParamDel5.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel5.TabIndex = 43
|
||||
Me.BtnParamDel5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel4
|
||||
'
|
||||
Me.BtnParamDel4.Image = CType(resources.GetObject("BtnParamDel4.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel4.Location = New System.Drawing.Point(399, 216)
|
||||
Me.BtnParamDel4.Name = "BtnParamDel4"
|
||||
Me.BtnParamDel4.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel4.TabIndex = 42
|
||||
Me.BtnParamDel4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel3
|
||||
'
|
||||
Me.BtnParamDel3.Image = CType(resources.GetObject("BtnParamDel3.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel3.Location = New System.Drawing.Point(399, 189)
|
||||
Me.BtnParamDel3.Name = "BtnParamDel3"
|
||||
Me.BtnParamDel3.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel3.TabIndex = 41
|
||||
Me.BtnParamDel3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel2
|
||||
'
|
||||
Me.BtnParamDel2.Image = CType(resources.GetObject("BtnParamDel2.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel2.Location = New System.Drawing.Point(399, 163)
|
||||
Me.BtnParamDel2.Name = "BtnParamDel2"
|
||||
Me.BtnParamDel2.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel2.TabIndex = 40
|
||||
Me.BtnParamDel2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnParamDel1
|
||||
'
|
||||
Me.BtnParamDel1.Image = CType(resources.GetObject("BtnParamDel1.Image"), System.Drawing.Image)
|
||||
Me.BtnParamDel1.Location = New System.Drawing.Point(399, 136)
|
||||
Me.BtnParamDel1.Name = "BtnParamDel1"
|
||||
Me.BtnParamDel1.Size = New System.Drawing.Size(19, 21)
|
||||
Me.BtnParamDel1.TabIndex = 39
|
||||
Me.BtnParamDel1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnInitParam
|
||||
'
|
||||
Me.BtnInitParam.Location = New System.Drawing.Point(15, 48)
|
||||
Me.BtnInitParam.Name = "BtnInitParam"
|
||||
Me.BtnInitParam.Size = New System.Drawing.Size(75, 23)
|
||||
Me.BtnInitParam.TabIndex = 29
|
||||
Me.BtnInitParam.Text = "Initialisieren"
|
||||
Me.BtnInitParam.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbandor6
|
||||
'
|
||||
Me.cbandor6.FormattingEnabled = True
|
||||
Me.cbandor6.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor6.Location = New System.Drawing.Point(15, 271)
|
||||
Me.cbandor6.Name = "cbandor6"
|
||||
Me.cbandor6.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor6.TabIndex = 23
|
||||
'
|
||||
'cbparam7
|
||||
'
|
||||
Me.cbparam7.FormattingEnabled = True
|
||||
Me.cbparam7.Location = New System.Drawing.Point(79, 271)
|
||||
Me.cbparam7.Name = "cbparam7"
|
||||
Me.cbparam7.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam7.TabIndex = 24
|
||||
'
|
||||
'cbvalue7
|
||||
'
|
||||
Me.cbvalue7.FormattingEnabled = True
|
||||
Me.cbvalue7.Location = New System.Drawing.Point(271, 271)
|
||||
Me.cbvalue7.Name = "cbvalue7"
|
||||
Me.cbvalue7.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue7.TabIndex = 26
|
||||
'
|
||||
'cbop7
|
||||
'
|
||||
Me.cbop7.FormattingEnabled = True
|
||||
Me.cbop7.Location = New System.Drawing.Point(214, 271)
|
||||
Me.cbop7.Name = "cbop7"
|
||||
Me.cbop7.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop7.TabIndex = 25
|
||||
'
|
||||
'cbandor5
|
||||
'
|
||||
Me.cbandor5.FormattingEnabled = True
|
||||
Me.cbandor5.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor5.Location = New System.Drawing.Point(15, 244)
|
||||
Me.cbandor5.Name = "cbandor5"
|
||||
Me.cbandor5.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor5.TabIndex = 19
|
||||
'
|
||||
'cbparam6
|
||||
'
|
||||
Me.cbparam6.FormattingEnabled = True
|
||||
Me.cbparam6.Location = New System.Drawing.Point(79, 244)
|
||||
Me.cbparam6.Name = "cbparam6"
|
||||
Me.cbparam6.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam6.TabIndex = 20
|
||||
'
|
||||
'cbvalue6
|
||||
'
|
||||
Me.cbvalue6.FormattingEnabled = True
|
||||
Me.cbvalue6.Location = New System.Drawing.Point(271, 244)
|
||||
Me.cbvalue6.Name = "cbvalue6"
|
||||
Me.cbvalue6.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue6.TabIndex = 22
|
||||
'
|
||||
'cbop6
|
||||
'
|
||||
Me.cbop6.FormattingEnabled = True
|
||||
Me.cbop6.Location = New System.Drawing.Point(214, 244)
|
||||
Me.cbop6.Name = "cbop6"
|
||||
Me.cbop6.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop6.TabIndex = 21
|
||||
'
|
||||
'cbandor4
|
||||
'
|
||||
Me.cbandor4.FormattingEnabled = True
|
||||
Me.cbandor4.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor4.Location = New System.Drawing.Point(15, 217)
|
||||
Me.cbandor4.Name = "cbandor4"
|
||||
Me.cbandor4.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor4.TabIndex = 15
|
||||
'
|
||||
'cbandor3
|
||||
'
|
||||
Me.cbandor3.FormattingEnabled = True
|
||||
Me.cbandor3.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor3.Location = New System.Drawing.Point(15, 190)
|
||||
Me.cbandor3.Name = "cbandor3"
|
||||
Me.cbandor3.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor3.TabIndex = 11
|
||||
'
|
||||
'cbandor2
|
||||
'
|
||||
Me.cbandor2.FormattingEnabled = True
|
||||
Me.cbandor2.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor2.Location = New System.Drawing.Point(15, 163)
|
||||
Me.cbandor2.Name = "cbandor2"
|
||||
Me.cbandor2.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor2.TabIndex = 7
|
||||
'
|
||||
'cbandor1
|
||||
'
|
||||
Me.cbandor1.FormattingEnabled = True
|
||||
Me.cbandor1.Items.AddRange(New Object() {"und", "oder"})
|
||||
Me.cbandor1.Location = New System.Drawing.Point(15, 136)
|
||||
Me.cbandor1.Name = "cbandor1"
|
||||
Me.cbandor1.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbandor1.TabIndex = 3
|
||||
'
|
||||
'cbparam5
|
||||
'
|
||||
Me.cbparam5.FormattingEnabled = True
|
||||
Me.cbparam5.Location = New System.Drawing.Point(79, 217)
|
||||
Me.cbparam5.Name = "cbparam5"
|
||||
Me.cbparam5.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam5.TabIndex = 16
|
||||
'
|
||||
'cbparam4
|
||||
'
|
||||
Me.cbparam4.FormattingEnabled = True
|
||||
Me.cbparam4.Location = New System.Drawing.Point(79, 190)
|
||||
Me.cbparam4.Name = "cbparam4"
|
||||
Me.cbparam4.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam4.TabIndex = 12
|
||||
'
|
||||
'cbparam3
|
||||
'
|
||||
Me.cbparam3.FormattingEnabled = True
|
||||
Me.cbparam3.Location = New System.Drawing.Point(79, 163)
|
||||
Me.cbparam3.Name = "cbparam3"
|
||||
Me.cbparam3.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam3.TabIndex = 8
|
||||
'
|
||||
'cbparam2
|
||||
'
|
||||
Me.cbparam2.FormattingEnabled = True
|
||||
Me.cbparam2.Location = New System.Drawing.Point(79, 136)
|
||||
Me.cbparam2.Name = "cbparam2"
|
||||
Me.cbparam2.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam2.TabIndex = 4
|
||||
'
|
||||
'cbparam1
|
||||
'
|
||||
Me.cbparam1.FormattingEnabled = True
|
||||
Me.cbparam1.Location = New System.Drawing.Point(79, 106)
|
||||
Me.cbparam1.Name = "cbparam1"
|
||||
Me.cbparam1.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbparam1.TabIndex = 0
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 88)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(59, 13)
|
||||
Me.Label6.TabIndex = 38
|
||||
Me.Label6.Text = "und/oder"
|
||||
'
|
||||
'cbvalue5
|
||||
'
|
||||
Me.cbvalue5.FormattingEnabled = True
|
||||
Me.cbvalue5.Location = New System.Drawing.Point(271, 217)
|
||||
Me.cbvalue5.Name = "cbvalue5"
|
||||
Me.cbvalue5.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue5.TabIndex = 18
|
||||
'
|
||||
'cbop5
|
||||
'
|
||||
Me.cbop5.FormattingEnabled = True
|
||||
Me.cbop5.Location = New System.Drawing.Point(214, 217)
|
||||
Me.cbop5.Name = "cbop5"
|
||||
Me.cbop5.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop5.TabIndex = 17
|
||||
'
|
||||
'cbvalue4
|
||||
'
|
||||
Me.cbvalue4.FormattingEnabled = True
|
||||
Me.cbvalue4.Location = New System.Drawing.Point(271, 190)
|
||||
Me.cbvalue4.Name = "cbvalue4"
|
||||
Me.cbvalue4.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue4.TabIndex = 14
|
||||
'
|
||||
'cbop4
|
||||
'
|
||||
Me.cbop4.FormattingEnabled = True
|
||||
Me.cbop4.Location = New System.Drawing.Point(213, 190)
|
||||
Me.cbop4.Name = "cbop4"
|
||||
Me.cbop4.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop4.TabIndex = 13
|
||||
'
|
||||
'cbvalue3
|
||||
'
|
||||
Me.cbvalue3.FormattingEnabled = True
|
||||
Me.cbvalue3.Location = New System.Drawing.Point(271, 163)
|
||||
Me.cbvalue3.Name = "cbvalue3"
|
||||
Me.cbvalue3.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue3.TabIndex = 10
|
||||
'
|
||||
'cbop3
|
||||
'
|
||||
Me.cbop3.FormattingEnabled = True
|
||||
Me.cbop3.Location = New System.Drawing.Point(213, 163)
|
||||
Me.cbop3.Name = "cbop3"
|
||||
Me.cbop3.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop3.TabIndex = 9
|
||||
'
|
||||
'cbvalue2
|
||||
'
|
||||
Me.cbvalue2.FormattingEnabled = True
|
||||
Me.cbvalue2.Location = New System.Drawing.Point(271, 136)
|
||||
Me.cbvalue2.Name = "cbvalue2"
|
||||
Me.cbvalue2.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue2.TabIndex = 6
|
||||
'
|
||||
'cbop2
|
||||
'
|
||||
Me.cbop2.FormattingEnabled = True
|
||||
Me.cbop2.Location = New System.Drawing.Point(213, 136)
|
||||
Me.cbop2.Name = "cbop2"
|
||||
Me.cbop2.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop2.TabIndex = 5
|
||||
'
|
||||
'lblTitelWert
|
||||
'
|
||||
Me.lblTitelWert.AutoSize = True
|
||||
Me.lblTitelWert.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTitelWert.Location = New System.Drawing.Point(272, 88)
|
||||
Me.lblTitelWert.Name = "lblTitelWert"
|
||||
Me.lblTitelWert.Size = New System.Drawing.Size(34, 13)
|
||||
Me.lblTitelWert.TabIndex = 28
|
||||
Me.lblTitelWert.Text = "Wert"
|
||||
'
|
||||
'lblTitelOperator
|
||||
'
|
||||
Me.lblTitelOperator.AutoSize = True
|
||||
Me.lblTitelOperator.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTitelOperator.Location = New System.Drawing.Point(210, 88)
|
||||
Me.lblTitelOperator.Name = "lblTitelOperator"
|
||||
Me.lblTitelOperator.Size = New System.Drawing.Size(56, 13)
|
||||
Me.lblTitelOperator.TabIndex = 27
|
||||
Me.lblTitelOperator.Text = "Operator"
|
||||
'
|
||||
'lblParamTitel
|
||||
'
|
||||
Me.lblParamTitel.AutoSize = True
|
||||
Me.lblParamTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblParamTitel.Location = New System.Drawing.Point(77, 88)
|
||||
Me.lblParamTitel.Name = "lblParamTitel"
|
||||
Me.lblParamTitel.Size = New System.Drawing.Size(64, 13)
|
||||
Me.lblParamTitel.TabIndex = 26
|
||||
Me.lblParamTitel.Text = "Parameter"
|
||||
'
|
||||
'cbvalue1
|
||||
'
|
||||
Me.cbvalue1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
|
||||
Me.cbvalue1.FormatString = "N2"
|
||||
Me.cbvalue1.FormattingEnabled = True
|
||||
Me.cbvalue1.Location = New System.Drawing.Point(271, 106)
|
||||
Me.cbvalue1.Name = "cbvalue1"
|
||||
Me.cbvalue1.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbvalue1.TabIndex = 2
|
||||
'
|
||||
'cbop1
|
||||
'
|
||||
Me.cbop1.FormattingEnabled = True
|
||||
Me.cbop1.Location = New System.Drawing.Point(213, 106)
|
||||
Me.cbop1.Name = "cbop1"
|
||||
Me.cbop1.Size = New System.Drawing.Size(52, 21)
|
||||
Me.cbop1.TabIndex = 1
|
||||
'
|
||||
'ImageList2
|
||||
'
|
||||
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'grpBeschreibung
|
||||
'
|
||||
Me.grpBeschreibung.Controls.Add(Me.txtbeschreibung)
|
||||
Me.grpBeschreibung.Location = New System.Drawing.Point(295, 49)
|
||||
Me.grpBeschreibung.Name = "grpBeschreibung"
|
||||
Me.grpBeschreibung.Size = New System.Drawing.Size(425, 74)
|
||||
Me.grpBeschreibung.TabIndex = 29
|
||||
Me.grpBeschreibung.TabStop = False
|
||||
Me.grpBeschreibung.Text = "Beschreibung"
|
||||
'
|
||||
'txtbeschreibung
|
||||
'
|
||||
Me.txtbeschreibung.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtbeschreibung.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.txtbeschreibung.Location = New System.Drawing.Point(3, 16)
|
||||
Me.txtbeschreibung.Multiline = True
|
||||
Me.txtbeschreibung.Name = "txtbeschreibung"
|
||||
Me.txtbeschreibung.ReadOnly = True
|
||||
Me.txtbeschreibung.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
Me.txtbeschreibung.Size = New System.Drawing.Size(415, 55)
|
||||
Me.txtbeschreibung.TabIndex = 0
|
||||
'
|
||||
'grpdb
|
||||
'
|
||||
Me.grpdb.Controls.Add(Me.btnAufbereitenCSV)
|
||||
Me.grpdb.Location = New System.Drawing.Point(295, 436)
|
||||
Me.grpdb.Name = "grpdb"
|
||||
Me.grpdb.Size = New System.Drawing.Size(422, 54)
|
||||
Me.grpdb.TabIndex = 30
|
||||
Me.grpdb.TabStop = False
|
||||
Me.grpdb.Text = "Resultat als Datentabelle"
|
||||
'
|
||||
'btnAufbereitenCSV
|
||||
'
|
||||
Me.btnAufbereitenCSV.Image = CType(resources.GetObject("btnAufbereitenCSV.Image"), System.Drawing.Image)
|
||||
Me.btnAufbereitenCSV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnAufbereitenCSV.Location = New System.Drawing.Point(6, 19)
|
||||
Me.btnAufbereitenCSV.Name = "btnAufbereitenCSV"
|
||||
Me.btnAufbereitenCSV.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnAufbereitenCSV.TabIndex = 27
|
||||
Me.btnAufbereitenCSV.Text = "Tabelle"
|
||||
Me.btnAufbereitenCSV.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnAufbereitenCSV.UseVisualStyleBackColor = True
|
||||
'
|
||||
'grpcr
|
||||
'
|
||||
Me.grpcr.Controls.Add(Me.checkboxprintparam)
|
||||
Me.grpcr.Controls.Add(Me.Label2)
|
||||
Me.grpcr.Controls.Add(Me.Label1)
|
||||
Me.grpcr.Controls.Add(Me.txtTitel2)
|
||||
Me.grpcr.Controls.Add(Me.txtTitel1)
|
||||
Me.grpcr.Controls.Add(Me.BtnAufbereitenCR)
|
||||
Me.grpcr.Location = New System.Drawing.Point(295, 496)
|
||||
Me.grpcr.Name = "grpcr"
|
||||
Me.grpcr.Size = New System.Drawing.Size(422, 102)
|
||||
Me.grpcr.TabIndex = 31
|
||||
Me.grpcr.TabStop = False
|
||||
Me.grpcr.Text = "Resultat als Crystal-Report"
|
||||
'
|
||||
'checkboxprintparam
|
||||
'
|
||||
Me.checkboxprintparam.AutoSize = True
|
||||
Me.checkboxprintparam.Location = New System.Drawing.Point(297, 76)
|
||||
Me.checkboxprintparam.Name = "checkboxprintparam"
|
||||
Me.checkboxprintparam.Size = New System.Drawing.Size(116, 17)
|
||||
Me.checkboxprintparam.TabIndex = 33
|
||||
Me.checkboxprintparam.Text = "Parameter drucken"
|
||||
Me.checkboxprintparam.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(8, 48)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(46, 13)
|
||||
Me.Label2.TabIndex = 32
|
||||
Me.Label2.Text = "Titel Z2:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 22)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(46, 13)
|
||||
Me.Label1.TabIndex = 31
|
||||
Me.Label1.Text = "Titel Z1:"
|
||||
'
|
||||
'txtTitel2
|
||||
'
|
||||
Me.txtTitel2.Location = New System.Drawing.Point(60, 45)
|
||||
Me.txtTitel2.Name = "txtTitel2"
|
||||
Me.txtTitel2.Size = New System.Drawing.Size(353, 20)
|
||||
Me.txtTitel2.TabIndex = 30
|
||||
'
|
||||
'txtTitel1
|
||||
'
|
||||
Me.txtTitel1.Location = New System.Drawing.Point(60, 19)
|
||||
Me.txtTitel1.Name = "txtTitel1"
|
||||
Me.txtTitel1.Size = New System.Drawing.Size(353, 20)
|
||||
Me.txtTitel1.TabIndex = 29
|
||||
'
|
||||
'BtnAufbereitenCR
|
||||
'
|
||||
Me.BtnAufbereitenCR.Image = CType(resources.GetObject("BtnAufbereitenCR.Image"), System.Drawing.Image)
|
||||
Me.BtnAufbereitenCR.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.BtnAufbereitenCR.Location = New System.Drawing.Point(6, 73)
|
||||
Me.BtnAufbereitenCR.Name = "BtnAufbereitenCR"
|
||||
Me.BtnAufbereitenCR.Size = New System.Drawing.Size(87, 23)
|
||||
Me.BtnAufbereitenCR.TabIndex = 28
|
||||
Me.BtnAufbereitenCR.Text = "Bericht"
|
||||
Me.BtnAufbereitenCR.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.BtnAufbereitenCR.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FrmReportSelect
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(732, 601)
|
||||
Me.Controls.Add(Me.grpBeschreibung)
|
||||
Me.Controls.Add(Me.grpcr)
|
||||
Me.Controls.Add(Me.grpdb)
|
||||
Me.Controls.Add(Me.GrpAuswertung)
|
||||
Me.Controls.Add(Me.GrpParameter)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "FrmReportSelect"
|
||||
Me.Text = "Report-Auswahl"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.TreeContextMenuStrip1.ResumeLayout(False)
|
||||
Me.GrpAuswertung.ResumeLayout(False)
|
||||
Me.GrpParameter.ResumeLayout(False)
|
||||
Me.GrpParameter.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.grpBeschreibung.ResumeLayout(False)
|
||||
Me.grpBeschreibung.PerformLayout()
|
||||
Me.grpdb.ResumeLayout(False)
|
||||
Me.grpcr.ResumeLayout(False)
|
||||
Me.grpcr.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents btnAufbereitenCSV As System.Windows.Forms.Button
|
||||
Friend WithEvents TreeAuswertungen As System.Windows.Forms.TreeView
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents GrpAuswertung As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GrpParameter As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbandor6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbvalue7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop7 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbandor5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbvalue6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop6 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbandor4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbandor3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbandor2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbandor1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbparam1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbvalue5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop5 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbvalue4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbvalue3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbvalue2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents lblTitelWert As System.Windows.Forms.Label
|
||||
Friend WithEvents lblTitelOperator As System.Windows.Forms.Label
|
||||
Friend WithEvents lblParamTitel As System.Windows.Forms.Label
|
||||
Friend WithEvents cbvalue1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cbop1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents BtnAufbereitenCR As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnInitParam As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel6 As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel5 As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel4 As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel3 As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel2 As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnParamDel1 As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents btnSave As System.Windows.Forms.Button
|
||||
Friend WithEvents ComboboxMAParameter As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents btnDeleteSavedParam As System.Windows.Forms.Button
|
||||
Friend WithEvents grpBeschreibung As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents txtbeschreibung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TreeContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents AlleKnotenSchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents AlleKnotenÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents grpdb As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents grpcr As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtTitel2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtTitel1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents checkboxprintparam As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
|
||||
Friend WithEvents btnEditSQL As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents tsbtnReportDesign As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnSetSecurityObject As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
599
SW/20211125/_FRReporting/Formulare/FrmReportSelect.resx
Normal file
599
SW/20211125/_FRReporting/Formulare/FrmReportSelect.resx
Normal file
@@ -0,0 +1,599 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>126, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsbtnReportDesign.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMYSURBVDhPbVHrTxNZHJ1/wS8uwUQjMRqJS6KY+A6yLCDB
|
||||
3USyYuIrPmIwhsAq0V1QYgQ/+QHNonV9LDN9UGOhglVGKihoa3nYWgWEbltaShVru0iLBYeWzvHe6SQb
|
||||
jCc5uSfn8eV3mW9xQteVUvN6+vzVkc8WzjEboKx/G31Ra58+d1z/YrFc+z4qX4ZLbjiin1nXDOqGorhg
|
||||
n5Z4mWiOeH8PzkSqrJFDcn0hTvWGq8gY56wRVFhCuP4mBMOAQ6LCHkSFOYhqWwT1A1NiRe/USXmWxGHe
|
||||
k3XJOpkos0yhtu8j/COdmPc/g6DLgdCcL2n/cAdqLO9RbvmEi28m548Z/RvkOcOUmT+ZaXDaFED43zaI
|
||||
sShEUYTQlAvhXqGkqRd2PERF9zucJN1S82SnNM6u1Swr7QqI+zo/wmw3QZwJQpybRtTRAr7PAr6/h+hW
|
||||
yaOZydqNvR0fUNIVSGRd0qUwuTe7dx14GkIx78cXhx6J4GvEnXr80eFC0aMJFLV/QGXXGOIOHRITPZgd
|
||||
vovfDB7QTS7XU8BksX2Hfn0UwEGjH3OPSyBoNyPYew35ejcK+YDEgvs+hPoUUkY7B9o8oJvtDf17mPV1
|
||||
xl9yHkygsNWLmP0a4nYF5gaVKL7vRI5hAjTb89BLPBZx6xXEbPUoaCYZ8TcqTD8za8pu/bClZSyxudmH
|
||||
VzYjxLiARGQM7oF2VD8fR7XJD/egUfJoZrPy2KTzYEvL+9iPfzYukg65Vudry2zy4yjvQmyUT179yxSE
|
||||
1iIIhmJJU49mRwzDWNc0jsy7Pr00plh55XlGutonpGu9OGMcwIyLRyLsJd+YR75xp6Spd5p/hfTGUaSr
|
||||
3bOrFP2r5HkSyznn/jTWOZ+m9mDbnRHUP7HgyVONxL86zdjaOIQ01SiWsd74CpVrtzxbiCyVbcdSbmQ8
|
||||
lfMglXUjtcGZJNXEW865vNkq609yfSGUSuVqtVpd9Y+6UVV2u+2/vJsmMfPGS8J+MZ/oUrY91KDWKEnn
|
||||
rFarzZBn/4Nl2RQS7iIs12g0NeStI+9lSllT73fa4ThuSXLFMF8BIdZvSBF1G4YAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnSetSecurityObject.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKwSURBVDhPvY5bTFJxHMdPUtaLOXso21yrrVnpecppN5sP
|
||||
bc5Zq/lgtZpTJ9NuamjcDDveQAPT44UjKGiDTAVBCkuNCKvh1EPTFFkqiOb9wQ1XD139BeyYo8t667P9
|
||||
H77/7++zfZH/ShQnPJbTffN1hDRiC/Xli0ql8rcMDaWQJFlrMBhL2trawrwFhvidbo4OiuKHpjFN9NX4
|
||||
psjg47oDAd5uHYPBEDhqHSP7+/s/GV6YXur13c52TccXiaThwkF+CHrnTcYSNpLkwizJa9zB88vn1CeM
|
||||
SAyymdIRZGCAxE0m07JWqw31ZPcaGlEnbRSK7rnCLu8JC8+gSWPFAc+zyL2fDzNpsn3JfreRRITmlT0Y
|
||||
jcapdq2uiIpe2Gx2IJPJPQkAmwSMtLiY0oAUnnWba38mspU62UCt1jllssZCKv5kVCONnO5R9813KUEg
|
||||
SHh8lLmj3mf6OgQhEQuF1UuZmdh2TyaVFbsdz1T3nUb190WdFObVNTBJYB/pCVEhXuFXuFz+LharYJWR
|
||||
zcAnnrZwnE80H5b0clhoF8NcSyXMKu/CTGMJDFeyH1DK78hF/CarvhmWuxSwoCFAxMiAsusp8L5JADMN
|
||||
heCsy4e3Zey13vz0Y5SyQWctFmx7RHxb7JDAvKoa5prLoTorFeKjj8AozganOA8cVSyYKGdAb15qC6X5
|
||||
MiIvrZ97WAGzijKYkRfDtBSDuIhwUN64CPaKXBgrpX/t49GrOjmXgijFF7Mod6cVx1zT9QXuuTyYquGA
|
||||
vfIWjAuzYRBL7+5lJR2iTv8OKczJcbhFB86ESfdcS9GV8Vec1DNU/W9UWKK/pfjau2HsqsvMS8v1ZKr6
|
||||
M3a7HTWbzaher0cVCgVKEAQqLeKdxfO5pzCMj3oeny9CRTiOEjIZ2tqqQXtMJtRms6ErKyvoDz9cWXKw
|
||||
2Nd7AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>229, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAQ
|
||||
DwAAAk1TRnQBSQFMAgEBBwEAAYQBAAGEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEABP8B9AHzCv8LAALP
|
||||
BAAB8wwAAfAB7BAAA/8B8QFVAU8B9wnvCQABzwHdAs8DAAHsDf8B7QHxEAAC/wEIAVUBlwFVAU8BkQG1
|
||||
AQcBCQQZAesHAAHPA90CzwMAAewN/wHtAfEQAAH/AZgBVQGXAZgCVQFPAXIB8AH0A/8B4gHrBQABzwTd
|
||||
A88DAAHsDf8B7QHxEAABmAF3AZcCmASXAQgE/wHiAesDAAHPBN0BzwEAAd0CzwMAAewB/woAARQB/wHt
|
||||
AfEQAAH/AZ4BCAHzAfQBlwGdAYsBpgGGAc8D/wHiAesBAAHPBN0BzwEAAd0BAAHdAs8DAAHsAf8KAAEU
|
||||
Af8B7QHxEAAC/wIIAfQClwGYAbQCpgHPAv8B4gHrAQAD3QMAAt0BAAHdAs8DAAHsAf8KAAEUAf8B7QHx
|
||||
EAAD/wEIAcIBVQGXAvQDpgL/AeIB6wEAAd0BAAPdAQABzwHdAQADzwMAAewB/woAARQB/wHtAfEQAAT/
|
||||
AQgBnQHzAfQB3QKmAYsC/wHiAesBAAHdAQAC3QEAAt0BzwLdAs8DAAHsDf8B7QHxEAAE/wEZA/MCpgGL
|
||||
A/QB4gHrAQAB3QEAAc8C3QHPA90B/wEAAdYDAAHsDf8B7QHxEAAE/wEZAfMBCQGmAYsBtQL0AvMBGQFt
|
||||
AQAB3QEAAd0BzwLdAdYCFALWBAAB7A3/Ae0B8RAABP8BtAHPAbQBCQPzAfEDkgESAQAB3QHPA90B/wTW
|
||||
Ac8EAAHsDf8B7QHxEAAD/wIJBvMB8AL/AfQBBwEAA90B/wEUAdYB3QPWARQEAAHsDf8B7QHxEAAE/wEZ
|
||||
BvMB8AH/AfMB8AH/AQAB3QH/ARQB1gHdARQJAAHsDf8B7QHxEAAE/wEZBv8D8wL/AgAB1gHdARQLAAHs
|
||||
ARIB/wEOAf8B6wHxAbwB7AH/ARAB/wEUAf8BQwHxEAAQ/xEAAewB7QEAAfIBAAH0AQAB7wESAUMBBwEA
|
||||
Af8B8BMAAXkBMQFLDQAB8wvsAfMKAAHwAW0B8gQAAf8BtQS7CbUBkgIAAVkEegExAUsJAAGuBRkFCQHd
|
||||
AfEKAAEBAfAC7wMAAf8BtQEZAfMCTQEZAq0BGQGXAU8BuwHdAbUBkgIAAXoBwwd6AVgGAAGuBhkB3QMJ
|
||||
Ad0B8QcAA20BCwEQAe8B8gFtAgAB/wG1AfQBGQJNARkBsgGsARkBlwEuAbsB3QG1AZICAAGaARsIoAFY
|
||||
BQABrgcZAd0CCQHdAfEGAAHtARABAAHsAesCAAHsAwAB/wG1AvQCGgHzAtMBGQGXAVUBuwHdAbUBkgIA
|
||||
AZoBMQWgAnoCoAFLBAABrgkZAQkB3QHxBQAB9AETAbwB/wFtAQ4B9AH/ARQBbQHzAeoB/wG7BPQBGQLz
|
||||
ARkBeAFWAQgBGQG7AZICAAGaAXoBwwSgAtwBoAHDATEEAAGuChkB3QHxBQAB7AFtAv8BAAEHAfMB8QH/
|
||||
AewBFAH0Af8BBwX0A/MEGQEJAZICAAGaAXoBGwHDAqAB3AIJAbwCwwFLAwABtAoZAQkB8QQAAfIBFAHy
|
||||
Af8B9AFtAvQBBwHwAf8BBwH0Af8BBwHzAW0CFAFtAfMB6wIUARIB8AEZAQkBkgIAAZoEegFSAf8B3AIZ
|
||||
AvYBMQMAAbQB9AkZAQkB8QQAAUMB7AL/AgAB8wH3Af8BBwG8ARQBAAH/AQcC/wb0ARkC8wEZAQkBkgIA
|
||||
BKAB7wEZAbsBWAEaAf8B9AH/AfYDAAG0AvQIGQHWAfEDAAEHARID/wHsAf8C8gEHAfMB8AHzAQAB/wG8
|
||||
AfQB6wISAesB8wHsAhIBbQHxAfMBCQGSAgADoAGZAQkE3AEJARkBCQQAAbUD9AcZAdYB8QIAAf8BFAHv
|
||||
Af8B9AHwAfMB/wEHAfAC8gGSAgAB/wG8BP8H9AEZAQkBkgIAAfYCoAHcARkC3AEJBBkBtQMAAbUE9AYZ
|
||||
AdYB8QIAAeoBEwP/AfAB/wH3Af8BvAEHAfcB/wIAAf8BvAH0AewCbQHsAfQB7QJtAesB8gH0AQkBkgMA
|
||||
ATEBuwP0BBkB9AG1BAABtQH/BfQEGQHWAfEDAAHyAW0B9AHtAW0B8QH/Ae0C/wHvAwAB/wHwB/8D9AHz
|
||||
AfEBuwGSBQABCQL/AfQCGQH/AbUFAAEJAv8F9AEZAd0C1gHyBAAB8gFtAfIBAAHsAQcB9AEHAe0EAAH/
|
||||
AfAB/wHtBesB7AHyAfEBrgHqAWYB7wYAAfQC/wEZAf8BtQYAAQkD/wX0AdwB1AHsAf8JAAHvAewC8QQA
|
||||
Af8B8Qn/AfIBvAH3AfQB/wcAAf8B1AH/AbUHAAHcBf8D9AEZAe0B/wsAAfIB6wUAAf8B8QT/AvQD8wHw
|
||||
AewD/xIAAdwECQG7A7UBvBQAEP8BQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/wMA
|
||||
Af8BxwG/AfwEAAH/AQcGAAH8AQcGAAHwAQcGAAHAAQcGAAGAAQcGAAGAAQcGAAGAAQcGAAGAAQcGAAGA
|
||||
AQcGAAGAAQcGAAGAAQ8GAAGAAQ8GAAGBAT8GAAGHAf8GAAHfAf8BgAEBAgABxwH/AcABAQH/AY8CAAHA
|
||||
AX8BwAEBAf8BhwIAAcABDwHAAQEB/AEDAgABwAEHAcABAQH4ASUCAAHAAQMBwAEBAfADAAHAAQMBwAEB
|
||||
AfABgAIAAcABAQHAAQEB4AMAAcABAQHAAQEB4QGBAgABwAEBAcABAQHAAQECAAHAAQMBwAEBAYABAwIA
|
||||
AcABAQHAAQEBgAEDAgAB4AEDAcABAQHAAQcCAAH4AQcBwAEBAeIBDwIAAfwBDwHAAQEB/wEPAgAB/gEf
|
||||
AcABAwH/AZ8CAAL/AcABDwL/AgAL
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="TreeContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>442, 17</value>
|
||||
</metadata>
|
||||
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAB3NJREFUWEfd
|
||||
VgtQVdcVlY8gpgQkGNQgDFhrGVBC0dGMGjCgBIjamIBgKXH4FFp4iIrKx8dPEQgqGoHEWEAEy0cooEgK
|
||||
IgRQRMkkfCpQiFFRxEBoRKHI762u83ixn5gZbTUz7ZpZc+89956999ln73XPlP9nKCmuPyqUyVmktYnJ
|
||||
a568mijGfjTMd3OLqpVIjg4FBWVi9uyfpnNMZ/LVI4iAnlt2HIKD/zARHJyNHTtOYvnyd3o5Zk9qkNNJ
|
||||
CzMzax9eF5HPJTNr/PyS/iaVFkIqLcbWrRlwdPS7YWRknr5kyVtZbm57uyWSVBgZvVrKb40npzw7aCxa
|
||||
ZBUplf5xIjT0FDZtioKn5wHs2pWLsLBibNuWhS1bjkMiSYO7e9yYmtq0cM6ZNjn1ySBS9hPyBXIqKfZR
|
||||
PFuQa8nQ0NDcfpH+efOWwNLyLfj5HcPHH7fg/ferEBpayADSERCQxsAOYe5c02rOmUP+IFQV/A6mUml6
|
||||
nrNzQM6KFWtj+WxtaWnrER6e+01MzJmJhIRKxMdXYMGC12BgsJBBLMaaNb9FenoHurrGERdXhsDAE9iw
|
||||
YZd4L1NRmZpBG/9eoHKIlRm5uEh2Tp2qLuH9fHLahg2++0+f7sKpU51ITCzDjBlzOszNrWoOHjxPx2U4
|
||||
fLiOKz4idy740kv6Mh0d/YdSaTlGR4Hs7Cvw8UmCtvasUSUlpXzaFJn7XjcoGRgYWyYnF9U0N8uwf3/h
|
||||
hIaGZgXHA8PCjl0vKbmNgoJriIrKho7OK7Jlyxy+TUysYorLceTIJfj6HpI7nzPn5+CcS2Ket/eRgcFB
|
||||
IC2tDq6ukWK8iNQnH9uKahERh+M6O4GWFuCLLyZw9Gg5Kip6ZXV1Y6iqGkRpaR+dVcHQ0FSmpqbRZGa2
|
||||
ciIwMAUREQXMxDlWuAXmz1/GAPXvLF/uUpuZ+fV4be0A35cwgAioqqpn0o/2pLvvQ0T1q7q6O6PXrgGC
|
||||
FRU3ueIsxMQUIDW1AadPd6Ok5GvubSPWr/cdiYrKQ0pKHXbuTOM+l3Ofj3F8BwstiU4rkJTUgj17yvk+
|
||||
h52QCSen0AF19en+9PODHbAqN7d84NYtcKUFsLf3REhIJpKTLyI390tmYQgXLgyhuLib+/olM3SZAVxi
|
||||
DdQgODiT9XGBmahCZORZuePo6E84fooBZMsDCAzMwOuvb2qnHyFGjzCDtCLX+/tvz+/tBftYgjfe+DVb
|
||||
5ygnpiI8vIDOPkNl5SDa24Hr10eRl/cVs9IoDyAo6PfYt+8s9u49y2x9wqBz8Pbb27F4sSM2btwtV0YR
|
||||
gIfHAVGgf6EvUYRyqLi7e/n19QGXL98YuXlzQJacnI0VK5z5cRxcXMLJCFbwB/I2O39+EN3dwNgY0NTU
|
||||
jxMn2uDlFQsbGzduwZ8YQAlXX8Tg3aGmNl1IcT5rpdrGxmNECBOd3+PYVlJIsxwz4uOTSu/eBe7cAfr7
|
||||
waht6TSMKwjC6tXeWLnSjVvhz1Vmo75+CCMjkGN4eAwZGW3MVhhmzpw74ejoMxISIlaaynabPUjbXqQm
|
||||
+YqSkvJOtm4x739Hvkg+gsG5c5/9+fZtoKcHqK1thYWFHQOQws7Ol8Gsg7HxYrbWApmpqfV4c/ODSe8K
|
||||
FBR0cptSoK7+Qjdt7aF2nDE0NOtQVlZJ5rOe3MMkRNG9rLj+C8Sf6pcmJuaVFRWfT2RllbFIXBQB+MDc
|
||||
3E7e21Sur/hdYlNTG5P/DxQWdrIG6ilCieMODl71Wlozd/O7VaSQ2cf2+uMgdP4X+fmVt7OzK2Fru5k/
|
||||
jL1Yt24ra2ETFi60gaambt/Spauqh4cfyhS+5cjIuMpWu4RDhz6lcJ1n0B5DtOVCqgjDT4N5MTHJ7fX1
|
||||
PdxzZ/j7J2Pz5lhWsJQCEs2/Wh5aWx8q3E6ip2eQXdCMgwer5ExIOAczMysZbYk+f6r/va6Tk0/CxYv9
|
||||
o6LFnJ23sO3y2EonyWzExpYx1d0YGFB4VqCs7IZ89ZGR+ThwoJJtWAotLb1vaG/1pNkng7Krq8SjoWFk
|
||||
/MqVETQ2TvCH0wpv7ziKSzV7v4GF1oXm5nE8/KcEtLX9latvYa2EiAL8lnbO6OkZFqqoqAbzXhTbE0NZ
|
||||
W1t3Y2lp18iFCw9QU3OfnTBM41e48iKu/Baqq4fR0QHcvw+24DiD7KMUX5Urn67u3AnakJJC37XIR/39
|
||||
NDAMCIivy8lpZtvZwdr6HSreA5SX32M2rlF8RFD3GFwv5biThdeKjz5qoLqJfp81wvlOk2b+c6jq6Lzs
|
||||
oKmpk6M4KES6um7rKSm5y59PD7fgFh1fx8mTnXLp/fDDy9yeT+WVz6KDoufFSem/gjj9iDQK5dKTSBLq
|
||||
c3La6VSstg5vvunJY7bxwNKl9neFc1EfovDefXc7eGbI4Rxd8pnBMDo6pz0zswXHjzfyHPeB+L+Pc1zs
|
||||
9Zq1a39zNSGhnDLtPsaM1YgxUpwTnxl0bW1dU957b3f/vn1FMisrZ5mGxoufc/xVUmTKXl//Z8d5FRU/
|
||||
j3zmZ3whoULHhaQGkVGKezVSQAQhKv675+cKIanC0RPr+v8Qpkz5O987bdQ6XKoXAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnEditSQL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAh5JREFUOE99
|
||||
kEtrE1EAha8QS0FKac1GK21NFqUIump+hRTdZiMYly7c+QBx6UqKLoTZCJI0j0mqRV2oGKEkBanVFrOI
|
||||
NO04zTSTV2easSbNa+Z479waq0l64Nvce76TmyFHMu10OufcbrfAcLlcwuTkeeHs2DlheOS0QO8v8Vrv
|
||||
DHm93lJZ28MfCiUNUlbF8moKoVdx+Hy+Mu31HZmJRmP4kc11kCibsoLU9y0kPn+DWijTkRt9RzzR2AIU
|
||||
tdjF9k6ejkjI5gp0WMWty9frF8lYijpTXOWxB9izu9mFrOSxISlY9S9hefA20uQ+zpDhxUPXDh2IYVev
|
||||
9OVDYgUfn7zBV8c9CKeuYZA4Hhy6djwi/QaVn/s9+SWHIa/cpK/I4uXTRTx6+BjM4SqPRxRj2K/Wuqjt
|
||||
iDDXBmBKJ7C1dAcZ+mH9gWD3QESMonZQ/4e6GqPySVgbBM3kBVQrCqq1A4QjYvcAO6w3Gh2ahQWY6wOw
|
||||
0gS15BQUaR2GYdh3PQdCYRHNVsumpcXtZ1spAiPpwpdP75DJbKJK/xK7Z13mcJXHEwxF0G63bapyhA44
|
||||
oCXG8fZ1AOl0Go1Gs3PPuszhKo9nPhiGaZrQNQ3ba3G8n7+LF+Iz5FTVPj8K6zKHqzwzz/0BWJYFXdfp
|
||||
czMoFov0Vxv22f+wLnO4yjM0e+VqKZcvQdszjiWXL4J1mcPVv5keGR2dG5+YEI6DdViXK4T8BtyTRSrq
|
||||
309CAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnDeleteSavedParam.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnParamDel1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEwAXAIEAAP8AAHCAkL+/vwAAACH/C05FVFNDQVBFMi4wAwEBAAAh+QQBAAACACwAAAAAEwAX
|
||||
AAAIagAFCBxIsKBBAAgRGhSQsGBCAAEcIgwQkeDDigwnUpQ4caBGjBYTRhQJMuREkiVNolzo8eJGli01
|
||||
wlSZcuHDjjNv4oQp8iJPjT5tfsy4MybFikFDHqVp8mVMiEqdPsV4tGZVkFILXp05MyAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>336, 17</value>
|
||||
</metadata>
|
||||
<data name="btnAufbereitenCSV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAArtJREFUOE+F
|
||||
k2tIU2Ecxk+5NedlurnNKctNw6GNLDFRS8xiSmpIVh+szAtrGKYoaQmBfVEMo5QunyQspC8S2U2yLENS
|
||||
0EpnkZcKU0sLL7ntaG5ruvN0znFw7IYPPPDy/n/P874f3pf4Q2La0jXMMH8pnKfxGpAdU1Ahehm25IsR
|
||||
d1IEXbEHkmgz6wh6j5nJaYZhmcxKlBZfLeyq+STBMzsPrYt83JsXoMksRON3T9RPiXDlqy8ufJagclSK
|
||||
sx/lyOxWg8m44gShy+VZOhzr8epnIt7ai9BrLUb3QglekKfQbi7F47kyPJw5g+apctSNZiDbqMKmDC+L
|
||||
K04Q6YZ1ZKuVDzs1g7Vkd87gcK8aqgxv0hUniNTj68lm0p0emjBtM+HiYAOufriOycVJTCxO4Bq9vjTU
|
||||
gFmbmWUOdIdAuV/EFSTr3chbc56wOc2gKArl/ecQ9USLE30HoX+dgpinm1EzVMvegGH2doYiIN2HK9iT
|
||||
xyPrp0WwLptXoGUrCvpTkWMMwtFeFaqGDXBSy+yMYRKeh0G2T8wV7Mrlk5cnffFjaaWAuUXzdClOv1eg
|
||||
eDAQfeRtdp8Rw0S3aSFO8+MK4rMF5PlxPywsWVjIOH8TVWNSVI+pUTEiR814CEyOUXbGMNpHEfBOkXIF
|
||||
sVkCsmJEhnmHBRP2HtR9CUYt7QlbD1pmS1BNl9/4thtLlJ1lgu9HQpgs4wqijriTZcMKWBwke8pqOZxW
|
||||
dJgr0W6qwKT9Jcso7myHIEnOFWzNdLcUDQTinXnIFfu/3piG4dMUAzedP/eQpGH8LoNRiUM9GqR1RkHX
|
||||
EY2E9hjEtsUhsnUntC3xCH2QANXdRIibdmBDYywIlQf3lGmFy7YJBiIKxZS20A+aAhmC8+VQGhTw1wdA
|
||||
khcI7xwlhFkbwcsMogiN9++faZUktP/1hVebYVwiiF+DdQhv93f/NQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BtnAufbereitenCR.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAbZJREFUOE99
|
||||
z8FqGkEYB3DfILc8Qa55j76C4KGXXortIWmTg7f0klJIIL1sJLQXhVJMmu4GN3VN1Fl3A0Wd3QRsum0W
|
||||
FAUV10fIv9+3bBPCqAM/GPb7z39mU/9XFEUHs9lMLjKdTmUmk3mZxNVFBZJgmWw2e59Op+eX8A1T/yui
|
||||
6sZCe+82sfV28z6Xy6klk8lEDsrbuHu/uhRnxuPxn+TY4xqNRnL4y0avebQUZyirFgyHQ0nAtEob7dsQ
|
||||
wd87tP2b2GAwiGcJtaDf70sC9kIr49Txcfs7QMu7jvV6vXiWUAvCMJQEptPB648n2DrU8bPj4cyqP7Aa
|
||||
DjhD1IIgCCRBpd4k9lwXwgVniFrQ7XYlgXd9A9PtxM/2/Kd8mnGGqAW+70sC9mz3GJ9NBw3nCt9MK+Z5
|
||||
XjxLqAWtVksSlM4Fnn/4glcHJVyKJk7K1gOjcgHOELXAdV1JUGvQ/9YEqnVB+6fqQoAzRC0QQkjbtqGf
|
||||
W/hOT57H+FEFZyj7WKBp2kqhUFjXdb1ommZI+mSyAM9CwzBKxWJxPZ/Pr6To8BrJkDdkh+yRfXJEPiV4
|
||||
z994xhnO0pnC2j+Ia2ryPbNY9wAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>623, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAgAMDAQAAEABABoBgAAhgAAACAgEAABAAQA6AIAAO4GAAAYGBAAAQAEAOgBAADWCQAAEBAQAAEA
|
||||
BAAoAQAAvgsAADAwAAABAAgAqA4AAOYMAAAgIAAAAQAIAKgIAACOGwAAGBgAAAEACADIBgAANiQAABAQ
|
||||
AAABAAgAaAUAAP4qAAAoAAAAMAAAAGAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////AAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMwAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAADPzMzAAAAAAAAAAAAAAAAAAAAAAAAAAAzP7i4MzMAAAAAAAAAAAAAAAAAAAAAAA
|
||||
A4P4uLi4uDMzAAAAAAAAAAAAAAAAAAAAA7P7i4uLi4uLMzMAAAAAAAAAAAAAAAAAA4P4uLi4uLi4uLgz
|
||||
MwAAAAAAAAAAAAAAP7g/i4uLi4uLi4uLi4MzMAAAAAAAAAAAP4s/uLi4uLi4uLi4uLi4szAAAAAAAAAA
|
||||
P7g/i4uLi4uLi4uLi4uLh4AAAAAAAAAAP4s/uLi4uLi4uLi4uLi4t7cAAAAAAAAAP7iz+4uLi4uLi4uL
|
||||
i4uLh/gAAAAAAAAAP4uD+Li4uLi4uLi4uLi4t79wAAAAAAAAP7iz+4uLi4uLi4uLi4uLh/uAAAAAAAAA
|
||||
P4uLP7i4uLi4uLi4uLi4t7+3AAAAAAAAP7i4P4uLi4uLi4uLi4uLh/v4AAAAAAAAP4uLP7i4uLi4uLi4
|
||||
d7i4t7+/AAAAAAAAP7i4P4uLi4uLi4uHiHuLh/v7cAAAAAAAP4uLP7i4uLi4uLh4iIe4t7+/gAAAAAAA
|
||||
P7i4s/uLi4uLi4eIiIh7h/v79wAAAAAAP4uLiz///7i4uHiIiIiHt7+/uAAAAAAAP7i4uLMzM///94iI
|
||||
iIiId/v7+3AAAAAAP4uLi4uLizMzP4iIiIiIh7+/v4AAAAAAP7i4uLi4uLi3g/+IiIiIiHv7+4cAAAAA
|
||||
P4uLi4uLi4t4/z///4iIiIe/v7gAAAAAP7i4uLi4uLeP+IMzM///iIh7+/gAAAAAP4uLi4uLi3j/j4j4
|
||||
jzMz///4//8AAAAAP7i4uLi4t4//iPiPiPiPMzMzMzMAAAAAP4uLi4uLeP+I+I+I+I+I////gAAAAAAA
|
||||
P7i4uLi3j/j4j4j4j4j4j///+AAAAAAAP/uLi4t4//iPiPiPiPiP/////4AAAAAAA/i4uLeP//+I+I+I
|
||||
+I+I/////4AAAAAAA/+Li3j////4j4j4j4j4j///+AAAAAAAAD+4t4//////iPiPiPiP////8AAAAAAA
|
||||
ADP/9///////+I+I+I+Ij//4AAAAAAAAAAAzN4///////4j4j4j///+AAAAAAAAAAAAAAHj///////iP
|
||||
iPiP//gAAAAAAAAAAAAAAAeP//////+I+I///4AAAAAAAAAAAAAAAAB4///////4j///+AAAAAAAAAAA
|
||||
AAAAAAAHj///////iP//gAAAAAAAAAAAAAAAAAAAeP////j////4AAAAAAAAAAAAAAAAAAAAB4///4CP
|
||||
//+AAAAAAAAAAAAAAAAAAAAAAHj/+AgI//gAAAAAAAAAAAAAAAAAAAAAAAePh/+Aj4AAAAAAAAAAAAAA
|
||||
AAAAAAAAAAB4f//4CAAAAAAAAAAAAAAAAAAAAAAAAAAHd3d3cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAP///////wAA/n//////AAD8B/////8AAPwAf////wAA+AAD////AAD4AAA///8AAPgA
|
||||
AAP//wAA+AAAAB//AADwAAAAB/8AAPAAAAAD/wAA8AAAAAP/AADwAAAAAf8AAPAAAAAB/wAA8AAAAAD/
|
||||
AADwAAAAAP8AAPAAAAAAfwAA8AAAAAB/AADwAAAAAH8AAPAAAAAAPwAA8AAAAAA/AADwAAAAAB8AAPAA
|
||||
AAAAHwAA8AAAAAAPAADwAAAAAA8AAPAAAAAABwAA8AAAAAAHAADwAAAAAAcAAPAAAAAABwAA8AAAAAAH
|
||||
AADwAAAAAD8AAPAAAAAAHwAA8AAAAAAPAAD4AAAAAA8AAPgAAAAAHwAA/AAAAAA/AAD8AAAAAH8AAP8A
|
||||
AAAA/wAA//AAAAH/AAD/+AAAA/8AAP/8AAAH/wAA//4AAA//AAD//wAAH/8AAP//gAA//wAA///AAH//
|
||||
AAD//+AA//8AAP//8AH//wAA///4A///AAD///////8AACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAAAAAAD/
|
||||
/wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzMzMAAAAAAA
|
||||
AAAAAAAAAAM/uLMzMAAAAAAAAAAAAAADP4uLi4szMwAAAAAAAAAAAz+4uLi4uLizMwAAAAAAAAM/+4uL
|
||||
i4uLi4uDAAAAAAAD8/i4uLi4uLi4t3AAAAAAA/P7i4uLi4uLi4fwAAAAAAPz+Li4uLi4uLi3twAAAAAD
|
||||
8/uLi4uLi4uLh/sAAAAAA/P4uLi4uLh4uLe/cAAAAAP7P4uLi4uHh4uH+/AAAAAD+LP4uLi4eIh4t7+3
|
||||
AAAAA/uD+4uLh4iIh4f7+wAAAAP4s///uHiIiIh3v79wAAAD+4szM///+IiIh/v78AAAA/i4uLgzMz//
|
||||
//d/v7cAAAP4uLiwj/jzMzM/h//3AAAD+4uLCP+I+I+I8zMzMwAAA/i4sI/4+I+I+I//gAAAAAP7iwj/
|
||||
+I+I+I+I//gAAAAAOLCP//+I+I+I//+AAAAAAD+Hj///+I+I+I/4AAAAAAAD/3j///+I+I//gAAAAAAA
|
||||
ADM3j///+I//+AAAAAAAAAAAAHj//////4AAAAAAAAAAAAAHj/+I//gAAAAAAAAAAAAAAHj4AI+AAAAA
|
||||
AAAAAAAAAAAHgPgIAAAAAAAAAAAAAAAAAH//gAAAAAAAAAAAAAAAAAAHd3AAAAAAAAD/////+H///+AH
|
||||
///gAD//4AAD/+AAAP/gAAB/4AAAP+AAAD/gAAAf4AAAH+AAAA/gAAAP4AAAB+AAAAfgAAAD4AAAA+AA
|
||||
AAHgAAAB4AAAA+AAAA/gAAAH8AAAD/AAAB/4AAA//AAAf//AAP//4AH///AD///4B////A////4f/ygA
|
||||
AAAYAAAAMAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAgIAAgAAAAIAA
|
||||
gACAgAAAgICAAMDAwAAAAP8AAAAAAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAADMzAAAA
|
||||
AAAAAAAAA/+4szMAAAAAAAAAAz+Li4uDMzAAAAAAAz+4uLi4uLMzAAAAAz+Li4uLi4uHAAAAA/P4uLi4
|
||||
uLi3cAAAA/P7i4uLh4uH8AAAA/P4uLi4eHi3twAAA/s/i4uHiIeH+wAAA/g/+Lh4iIh3vzAAA/uDP///
|
||||
iIiH+7AAA/i4szMz////f7MAA/uLgP/4MzMz//8AA/i4D/+I+I+IczMAA/uA//j4j4j/+HAAA/8P/4iP
|
||||
iPj/+AAAADD///+I+I//gAAAAAB////4j//4AAAAAAAH////iP/wAAAAAAAAf//wj/8AAAAAAAAAB49/
|
||||
CPAAAAAAAAAAAHf/8AAAAAAAAAAAAAd3dwAAAAAAw////8A///+AAf//gAA//4AAH/+AAB//gAAP/4AA
|
||||
D/+AAAf/gAAH/4AAA/+AAAP/gAAB/4AAAf+AAAP/gAAD/4AAB//AAA//8AAf//gAP//8AH///gD///8B
|
||||
////g///KAAAABAAAAAgAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACA
|
||||
gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAAAAAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAA
|
||||
AAAAAAAAAzMzMzMzMzA/P7i4uLi4MD8/i4uLi4swPz+4uLi4uDA/P4uLi4uLMD8/uLi4uLgwPz//////
|
||||
/zA/MzMzMzMzAD+4f/////cAP4t/iIj/9wAD/3////AAAAAzf4iI9/gAAAB////3gAAAAHd3d3dwAP//
|
||||
///AAf//gAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAB//8AAf//AAH//4AB///AAf//8AP///AH
|
||||
//8oAAAAMAAAAGAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA//v/AHNx
|
||||
cwDWmpwAvY6MAP/z7wCUjowA/+/nAM6ehADvupwA1qaMAJyCcwDWspwA99O9AP/r3gD3vpQA57KMAPfb
|
||||
xgD/484A/+fWAPfPrQD/17UA/9u9AO/PtQD/x5QA//PnAP/37wD/+/cA/8uUAP/PnAD/06UA/9etAO/L
|
||||
pQD/27UA/9+9AM62nAD/48YA/+fOAPfjzgD/69YA/+/eAP/DewD/x4QA/7ZaAP/TnAD3z5wA/9elAPfT
|
||||
pQD/pikA/9ulAO/XtQD/58YA/9+tAP/jrQD/9+cA/+e1AP/vzgD/670A/++9AP/31gD/98YA1tO9AP//
|
||||
9wDO18YAvcu1AMbjzgDv+/cApa6tAK3r5wCc+/cAtd/eAJT//wCc//8Apf//AK3//wC9//8Axv//AM7/
|
||||
/wDW//8A3v//AOf//wDv//8A9///AJT7/wCc+/8Atfv/AK3b3gCM9/8AlPf/AIzz/wCl9/8AnOfvAHPn
|
||||
9wCE7/8AnPP/AIS+xgCUx84Aa9vvAITr/wCM6/8AtfP/AOf7/wBCpr0AhOf/AM7v9wAYrtYAOYacAFrP
|
||||
7wBj1/cAWq7GAHvj/wB7z+cAUnmEALXv/wAAns4AAJbGAAiezgAIirUAEKbWABCSvQAhst4AIZ7GACmy
|
||||
3gAprtYAMbbeADGu1gA5vucAMaLGAEq63gBSy+8Aa9v/AHPf/wB73/8AjNfvAJTT5wCc2+8AzvP/AACa
|
||||
zgAAksYACKLWAAiWxgAIjr0AEKLWABCezgAQfaUAGKreABim1gAhptYAGHmcACGizgAhlr0AIYqtADG2
|
||||
5wBCw+8AKXmUAEK23gBKw+8AQqrOAFrP9wBSut4Aa9f/AGvT9wBjvt4Ac9v/AKXn/wCl2+8A7/v/ABii
|
||||
1gAhqt4AKbLnADGy5wBCvu8AUsf3AGPT/wBavucAQn2UAHPX/wBzx+cAhNv/AIzT7wCc4/8Avef3ANbz
|
||||
/wBCuu8ASr7vAFLD9wBax/cAY8//AGvT/wBz0/8Ac8/3AHvX/wCc2/cAY8v/AGvP/wCE1/8AlNv/AJTX
|
||||
9wCc3/8Ard/3AOf3/wBry/8A3vP/AP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJycnJycAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi6GnlIt3nJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAi5UBpsOumpOLj5acnJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAi4tqiqKioqKioLmqdIySnJycAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi7m1AaWlpaWl
|
||||
paWlpa+efHiLnJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8R/AaaFhYWFhYWFhYWFhYWirpqT
|
||||
i5ycnJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8upAXOFhYWFhYWFhYWFhYWFhYWGhqCAenScnJycAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAi8Gqt7iGhoaGhoaGhoaGhoaGhoaGhoaGhoZum3yQnAAAAAAAAAAAAAAAAAAA
|
||||
AAAAi8WsswFpcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCjbZwAAAAAAAAAAAAAAAAAAACLi7StlQFmaWlp
|
||||
aWlpaWlpaWlpaWlpaWlpaWlpaWlponWcAAAAAAAAAAAAAAAAAACLi7S6jWq4ZGRkZGRkZGRkZGRkZGRk
|
||||
ZGRkZGRkZGRkvX6cAAAAAAAAAAAAAAAAAACLqsa6qnEBX19fX19fX19fX19fX19fX19kZF9fX19fvV6O
|
||||
nAAAAAAAAAAAAAAAAACLqsatmn8BZltbW1tbW1tbW1tbW1tbW1uysltbW1tbvUxrnAAAAAAAAAAAAAAA
|
||||
AACLqsi6uo3MUFtbW1tbW1tbW1tbW1tbW4a/v3BbW1tbvUxjeZwAAAAAAAAAAAAAAACLqsi7u6uHAVpa
|
||||
WlpaWlpaWlpaWlpacLI/IrJfWlpavVdXeJwAAAAAAAAAAAAAAACLfsi7u7qdAUxVVVVVVVVVVVVVVVVb
|
||||
hUEfH0GGWlVVvU1Ng5mcAAAAAAAAAAAAAACLsMa8vLyNqFBKSkpKSkpKSkpKSltwQR8uLh9YaUlKvU1N
|
||||
V3acAAAAAAAAAAAAAACLsMjDw8OriVRKSkpKSkpKSkpKVWlIHzAzMy4vXVtKvU5OToKZnAAAAAAAAAAA
|
||||
AACLsMi9vb27ggFOS0tLS0tLS0tKX0gfMzY2NjYuMWVWvU9PT2Z1nAAAAAAAAAAAAACLsKa+vr6+jWoB
|
||||
U1FOTUxMTExbRh8zNzc3Nzc3Hz9bvVBQUFCdbJwAAAAAAAAAAACLcbaysrKynnizt6gBAQFUU09XIzY5
|
||||
Nzc5OTk5Nx9DvVFRUVGmjpwAAAAAAAAAAACLx7aFhYWFhaKtfJORnXGJagEBAT07MB85Ozs7OzcfiFFR
|
||||
UVFRfbGcAAAAAAAAAACLx6ZwcHBwcHBwcHBwhIOalZh/agE6Ox8uPDw8PDw2L0RSUlJSh3mcAAAAAAAA
|
||||
AACLwqZpaWlpaWlpaWlpabLABhIin2oBNTsfMD4+Pj4+MCFTU1NTU5RynAAAAAAAAACLyaZfX19fX19f
|
||||
X19fhrJFEh8jP5dqAQEcGz09PT4+PjAkVFRUVHGZnAAAAAAAAACLuGBbW1tbW1tbW1tkhUUMHyQjIyV7
|
||||
nYJxibeoAQEBQDgnQAEBAaiRnAAAAAAAAACLuFxVVVVVVVVVVVtwRQwfIyYfISMfNEJFYW9okZ2kcclq
|
||||
AQEBAQGznAAAAAAAAACLzExKSkpKSkpKVWRiCh4jJCEjHyMhHyQgHyQfIChBYmGfgZWds4eCnAAAAAAA
|
||||
AACLykxKSkpKSkpJX4gKHiEnIx8kIR8kIB8mHyAkHyEnJycmIBIIBAAAAAAAAAAAAACLZ01KSkpKSkpZ
|
||||
XQoaISkgJCEfJiAfJh8gJh8jIx8kKSkpJB8SDQQAAAAAAAAAAACLx2dKSkpKSlVdChEgKSkhHyYgHycf
|
||||
ICYfISQfJCQpKSkpKSMfCgYAAAAAAAAAAAAAi8pOSkpKSkclESApKiopICAnHyAnHyMkHyQjHycqKioq
|
||||
KioSCwYAAAAAAAAAAAAAi3FTSkpKRyURHyoqKioqKR8hJx8jJB8mIx8nICAqKioqKg8LBgAAAAAAAAAA
|
||||
AAAAAIuoAQFSQRIhKRsbGxsbGycfIyYfJiMfJyAfKR8hGxsbEwsGAAAAAAAAAAAAAAAAAACLi4uLiw4V
|
||||
GxsbGxsbGxskHycjHykgHykfICkgGxsVCwYAAAAAAAAAAAAAAAAAAAAAAAAAAAALGxwcHBwcHBwcIx8p
|
||||
IB8qHyApHyQcHBsLBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxwcHBwcHBwcHCEfKh8hKh8kJyocBwsF
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxkdHR0dHR0dHRsfISofJCkfGx0dGQUAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAsoHR0dHR0dHR0qHyQpHycqHR0PBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAALEAEBAQEBAQEBJx8pJCYBARUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxwBAQEBAQEB
|
||||
ASQfGwEBCQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYDAQEBAQMQAQEkAQEcDAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACsYAQEBARctHAEBAQMMAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAArFAEBJDIyMgMBAQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAKyoQLS0tLSwBDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACssKysr
|
||||
KywsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAP///////3d3/B//////d3f4Af////93d/gAH////3d3+AAB////d3f4AAAf//93d/gA
|
||||
AAH//3d3+AAAAB//d3f4AAAAD/93d/gAAAAH/3d38AAAAAP/d3fwAAAAA/93d/AAAAAB/3d38AAAAAH/
|
||||
d3fwAAAAAP93d/AAAAAA/3d38AAAAAB/d3fwAAAAAH93d/AAAAAAP3d38AAAAAA/d3fwAAAAAB93d/AA
|
||||
AAAAH3d38AAAAAAPd3fwAAAAAA93d/AAAAAAB3d38AAAAAAHd3fwAAAAAAd3d/AAAAAAB3d38AAAAAAH
|
||||
d3fwAAAAAD93d/AAAAAAH3d38AAAAAAfd3f4AAAAAB93d/gAAAAAP3d3/AAAAAB/d3f+AAAAAP93d//4
|
||||
AAAB/3d3//wAAAP/d3f//AAAB/93d//+AAAP/3d3//8AAB//d3f//4AAP/93d///wAB//3d3///AAP//
|
||||
d3f//+AB//93d///8AP//3d3///4B///d3f///////93dygAAAAgAAAAQAAAAAEACAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAD/+/8Ac3FzANaanAC9jowA//PvAJSOjAD/7+cAzp6EAO+6
|
||||
nADWpowAnIJzANaynAD3070A/+veAPe+lADnsowA99vGAP/jzgD/59YA98+tAP/XtQD/270A78+1AP/H
|
||||
lAD/8+cA//fvAP/79wD/y5QA/8+cAP/TpQD/160A78ulAP/btQD/370AzracAP/jxgD/584A9+POAP/r
|
||||
1gD/794A/8N7AP/HhAD/tloA/9OcAPfPnAD/16UA99OlAP+mKQD/26UA79e1AP/nxgD/360A/+OtAP/3
|
||||
5wD/57UA/+/OAP/rvQD/770A//fWAP/3xgDW070A///3AM7XxgC9y7UAxuPOAO/79wClrq0ArevnAJz7
|
||||
9wC1394AlP//AJz//wCl//8Arf//AL3//wDG//8Azv//ANb//wDe//8A5///AO///wD3//8AlPv/AJz7
|
||||
/wC1+/8ArdveAIz3/wCU9/8AjPP/AKX3/wCc5+8Ac+f3AITv/wCc8/8AhL7GAJTHzgBr2+8AhOv/AIzr
|
||||
/wC18/8A5/v/AEKmvQCE5/8Azu/3ABiu1gA5hpwAWs/vAGPX9wBarsYAe+P/AHvP5wBSeYQAte//AACe
|
||||
zgAAlsYACJ7OAAiKtQAQptYAEJK9ACGy3gAhnsYAKbLeACmu1gAxtt4AMa7WADm+5wAxosYASrreAFLL
|
||||
7wBr2/8Ac9//AHvf/wCM1+8AlNPnAJzb7wDO8/8AAJrOAACSxgAIotYACJbGAAiOvQAQotYAEJ7OABB9
|
||||
pQAYqt4AGKbWACGm1gAYeZwAIaLOACGWvQAhiq0AMbbnAELD7wApeZQAQrbeAErD7wBCqs4AWs/3AFK6
|
||||
3gBr1/8Aa9P3AGO+3gBz2/8Apef/AKXb7wDv+/8AGKLWACGq3gApsucAMbLnAEK+7wBSx/cAY9P/AFq+
|
||||
5wBCfZQAc9f/AHPH5wCE2/8AjNPvAJzj/wC95/cA1vP/AEK67wBKvu8AUsP3AFrH9wBjz/8Aa9P/AHPT
|
||||
/wBzz/cAe9f/AJzb9wBjy/8Aa8//AITX/wCU2/8AlNf3AJzf/wCt3/cA5/f/AGvL/wDe8/8A////AAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnJycnAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIuCd5mcnJycnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAi8qi
|
||||
oLl6kZmcnJycnAAAAAAAAAAAAAAAAAAAAAAAAACLAcGlpaWlr56aeHecnJycnAAAAAAAAAAAAAAAAAAA
|
||||
i67Jc4aGhoaGhoaGpaCAqneZnJycAAAAAAAAAAAAAACLxaG4cHBwcHBwcHBwcHBwcG6efJGcAAAAAAAA
|
||||
AAAAAIvBqgFlZGRkZGRkZGRkZGRkZGRkhI+cAAAAAAAAAAAAi8F6t2ZfX19fX19fX19fX2lfX1+igJwA
|
||||
AAAAAAAAAACLxbmzUFtbW1tbW1tbW1twvmRbW6Jad5wAAAAAAAAAAIvGu6wBWlpaWlpaWlpaZLU/tFla
|
||||
sld9nAAAAAAAAAAAi8WummpXSUlJSUlJSVuHMR8/aUmlTWWZnAAAAAAAAACLxsOus1FKSkpKSkpVZTEw
|
||||
Mx9DWqVPT2ucAAAAAAAAAIu0xMSdAU9XTExMS1sWMzY2Nh9GhU9Ph5ycAAAAAAAAi8aioq6hycwBU1JP
|
||||
KDY5Nzk5NyCHUVFRl5wAAAAAAACLtoaGhqWggHyws7XMODYfOTw8NxlSUlKznJwAAAAAAIu2aWlpaWlp
|
||||
abJFJW9qGyQgPD4+NyRTU1F5nAAAAAAAi2BbW1tbW1uGRRIhGWiJt0QBQBw4GAlUVLOcnAAAAACLXFVV
|
||||
VVVVZGISISMgIEJFYW9hpHHJtx0DqJmcAAAAAItMSkpKSlliESEkICAhICEfIR8mKENhb2h1mJwAAAAA
|
||||
i1dKSkpVXQwgJCEgISAhHyMfIx8pKSYfDQQAAAAAAACLZ0pKSkYOICkpICMfIx8kHyMgJykpKjsOBgAA
|
||||
AAAAAIu3T1dcDB8pKiopHyQfJB8jICEhKioqDgYAAAAAAAAAAIuJt0MZKhsbGxsnHyQfGCAjISAnGzQG
|
||||
AAAAAAAAAAAAAIuLiy0THBwcHBwmICMhISEhJhwoBgAAAAAAAAAAAAAAAAAAAC0QHR0dHR0kISEjISYc
|
||||
EAwAAAAAAAAAAAAAAAAAAAAAAC0cHR0dHR0hIyAmHRwKAAAAAAAAAAAAAAAAAAAAAAAALQ8BAQEBAR0f
|
||||
JhwdCgAAAAAAAAAAAAAAAAAAAAAAAAAALRMBAQEHAxwcAQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAALRAB
|
||||
BzIrAVQKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALQksLSstCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAALS0tLS0AAAAAAAAAAAAAAAAAAP/////w////4A///+AA///gAA//wAAB/8AAAP/AAAB/wAAAf8AA
|
||||
AD/AAAA/wAAAH8AAAB/AAAAPwAAAD8AAAAfAAAAHwAAAA8AAAAPAAAADwAAAD8AAAA/AAAAf4AAAP/AA
|
||||
AH//AAD//4AB//+AA///wAf//+AP///wH///+D//KAAAABgAAAAwAAAAAQAIAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAD///8AAAAAAP/7/wBzcXMA1pqcAL2OjAD/8+8AlI6MAP/v5wDOnoQA77qcANam
|
||||
jACcgnMA1rKcAPfTvQD/694A976UAOeyjAD328YA/+POAP/n1gD3z60A/9e1AP/bvQDvz7UA/8eUAP/z
|
||||
5wD/9+8A//v3AP/LlAD/z5wA/9OlAP/XrQDvy6UA/9u1AP/fvQDOtpwA/+PGAP/nzgD3484A/+vWAP/v
|
||||
3gD/w3sA/8eEAP+2WgD/05wA98+cAP/XpQD306UA/6YpAP/bpQDv17UA/+fGAP/frQD/460A//fnAP/n
|
||||
tQD/784A/+u9AP/vvQD/99YA//fGANbTvQD///cAztfGAL3LtQDG484A7/v3AKWurQCt6+cAnPv3ALXf
|
||||
3gCU//8AnP//AKX//wCt//8Avf//AMb//wDO//8A1v//AN7//wDn//8A7///APf//wCU+/8AnPv/ALX7
|
||||
/wCt294AjPf/AJT3/wCM8/8Apff/AJzn7wBz5/cAhO//AJzz/wCEvsYAlMfOAGvb7wCE6/8AjOv/ALXz
|
||||
/wDn+/8AQqa9AITn/wDO7/cAGK7WADmGnABaz+8AY9f3AFquxgB74/8Ae8/nAFJ5hAC17/8AAJ7OAACW
|
||||
xgAIns4ACIq1ABCm1gAQkr0AIbLeACGexgApst4AKa7WADG23gAxrtYAOb7nADGixgBKut4AUsvvAGvb
|
||||
/wBz3/8Ae9//AIzX7wCU0+cAnNvvAM7z/wAAms4AAJLGAAii1gAIlsYACI69ABCi1gAQns4AEH2lABiq
|
||||
3gAYptYAIabWABh5nAAhos4AIZa9ACGKrQAxtucAQsPvACl5lABCtt4ASsPvAEKqzgBaz/cAUrreAGvX
|
||||
/wBr0/cAY77eAHPb/wCl5/8ApdvvAO/7/wAYotYAIareACmy5wAxsucAQr7vAFLH9wBj0/8AWr7nAEJ9
|
||||
lABz1/8Ac8fnAITb/wCM0+8AnOP/AL3n9wDW8/8AQrrvAEq+7wBSw/cAWsf3AGPP/wBr0/8Ac9P/AHPP
|
||||
9wB71/8AnNv3AGPL/wBrz/8AhNf/AJTb/wCU1/cAnN//AK3f9wDn9/8Aa8v/AN7z/wD///8AAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAJycnJwAAAAAAAAAAAAAAAAAAAAAAAAAAItsmJicnJycAAAAAAAAAAAAAAAA
|
||||
AAAAAIuKoJ5+mJmYnJycnAAAAAAAAAAAAAAAAIu3aYaGpaKguXuBe5ycnJwAAAAAAAAAi7mJpoVwcHBw
|
||||
aXCFbp5/mZmcAAAAAAAAi7qkTnBkZGRkZGRkW2VbcHucAAAAAAAAi8Ost1plW2VbZVtbhV9bZG6YnAAA
|
||||
AAAAi6OaiUxZWVlZWVpwiIdZZGCYnAAAAAAAi8C7s09JSUlJSVlYHz9ZX0xxmJwAAAAAi8W9uopXS0pK
|
||||
SacxMy5BXmZNs5wAAAAAi7SyoLO3ilBQTSE3OTkzWGZSs5mcAAAAi8iGcK9tbcBxpzgzMzw8McxTiqSc
|
||||
AAAAi1xkZGRbX68GQojMKDo9PiQcA6SYnAAAi1dZWlpZcCUgIT9iYoiJWGrMRGpsnAAAi01JSkpbRR8k
|
||||
ISEwIBkiQ1hFb2hiAAAAi09JSklCHzUhISEhISEhNSk1EgQAAAAAi4lOS0EvKSokNSE1FzUhJyoqCgQA
|
||||
AAAAAIuJpyUpHBsbIzUjNSMhJAclCgAAAAAAAACLi4sYHRwcGyM1IzUkHBkKAAAAAAAAAAAAAAAtFQEd
|
||||
ARsjHCQcKAoAAAAAAAAAAAAAAAAALQlAAQEqIxwbCgAAAAAAAAAAAAAAAAAAAC0DQCcqHB0KAAAAAAAA
|
||||
AAAAAAAAAAAAAAAtJy0tOAoAAAAAAAAAAAAAAAAAAAAAAAAALS0tLQAAAAAAAAAAAADD//8AwD//AMAD
|
||||
/wDAAD8AgAAfAIAAHwCAAA8AgAAPAIAABwCAAAcAgAADAIAAAwCAAAEAgAABAIAAAwCAAAcAgAAHAMAA
|
||||
DwDgAB8A/AA/AP4AfwD/AP8A/4H/AP/D/wAoAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAP///wAAAAAA//v/AHNxcwDWmpwAvY6MAP/z7wCUjowA/+/nAM6ehADvupwA1qaMAJyC
|
||||
cwDWspwA99O9AP/r3gD3vpQA57KMAPfbxgD/484A/+fWAPfPrQD/17UA/9u9AO/PtQD/x5QA//PnAP/3
|
||||
7wD/+/cA/8uUAP/PnAD/06UA/9etAO/LpQD/27UA/9+9AM62nAD/48YA/+fOAPfjzgD/69YA/+/eAP/D
|
||||
ewD/x4QA/7ZaAP/TnAD3z5wA/9elAPfTpQD/pikA/9ulAO/XtQD/58YA/9+tAP/jrQD/9+cA/+e1AP/v
|
||||
zgD/670A/++9AP/31gD/98YA1tO9AP//9wDO18YAvcu1AMbjzgDv+/cApa6tAK3r5wCc+/cAtd/eAJT/
|
||||
/wCc//8Apf//AK3//wC9//8Axv//AM7//wDW//8A3v//AOf//wDv//8A9///AJT7/wCc+/8Atfv/AK3b
|
||||
3gCM9/8AlPf/AIzz/wCl9/8AnOfvAHPn9wCE7/8AnPP/AIS+xgCUx84Aa9vvAITr/wCM6/8AtfP/AOf7
|
||||
/wBCpr0AhOf/AM7v9wAYrtYAOYacAFrP7wBj1/cAWq7GAHvj/wB7z+cAUnmEALXv/wAAns4AAJbGAAie
|
||||
zgAIirUAEKbWABCSvQAhst4AIZ7GACmy3gAprtYAMbbeADGu1gA5vucAMaLGAEq63gBSy+8Aa9v/AHPf
|
||||
/wB73/8AjNfvAJTT5wCc2+8AzvP/AACazgAAksYACKLWAAiWxgAIjr0AEKLWABCezgAQfaUAGKreABim
|
||||
1gAhptYAGHmcACGizgAhlr0AIYqtADG25wBCw+8AKXmUAEK23gBKw+8AQqrOAFrP9wBSut4Aa9f/AGvT
|
||||
9wBjvt4Ac9v/AKXn/wCl2+8A7/v/ABii1gAhqt4AKbLnADGy5wBCvu8AUsf3AGPT/wBavucAQn2UAHPX
|
||||
/wBzx+cAhNv/AIzT7wCc4/8Avef3ANbz/wBCuu8ASr7vAFLD9wBax/cAY8//AGvT/wBz0/8Ac8/3AHvX
|
||||
/wCc2/cAY8v/AGvP/wCE1/8AlNv/AJTX9wCc3/8Ard/3AOf3/wBry/8A3vP/AP///wAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaWlpaWlpaWlpaWlpYAAJmSgYGBgYGBgYGBgYF7loHD
|
||||
eVahoaGhoaGhoaGmgZaBw5hgPz8/Pz8/Pz8/P4GWgcOYYD8QEBAQEBAQED+BloHDgVY/EBAQEBAQEBA/
|
||||
gZaBvoFWPxAhISEhISEQP4GWgYaBAxUBAwEDAQEBARWBloFpgWgNJSUlJSUlJSUNgQCBWllaDSobGxsb
|
||||
GxsbDQAAgQNKSg04IyMjIyMjHA0AAACBAwMNHR0dHR0dJycNAAAAAIGBDVQjIyMjATIyMgAAAAAAAA0c
|
||||
HR0dHR0tLQAAAAAAAAANDQ0NDQ0NLQAAAAD//wAAwAEAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAQAAAAMAAAADAACAAwAAwAMAAPAHAADwDwAA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
1161
SW/20211125/_FRReporting/Formulare/FrmReportSelect.vb
Normal file
1161
SW/20211125/_FRReporting/Formulare/FrmReportSelect.vb
Normal file
File diff suppressed because it is too large
Load Diff
181
SW/20211125/_FRReporting/Formulare/frmAuswertung.designer.vb
generated
Normal file
181
SW/20211125/_FRReporting/Formulare/frmAuswertung.designer.vb
generated
Normal file
@@ -0,0 +1,181 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmAuswertung
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertung))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnPrint = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnExcelExport = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.SpalteLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.AllowMerge = False
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(834, 24)
|
||||
Me.MenuStrip1.TabIndex = 3
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnExcelExport, Me.TSBtnPrint, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(834, 25)
|
||||
Me.ToolStrip1.TabIndex = 4
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'TSBtnPrint
|
||||
'
|
||||
Me.TSBtnPrint.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnPrint.Image = CType(resources.GetObject("TSBtnPrint.Image"), System.Drawing.Image)
|
||||
Me.TSBtnPrint.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnPrint.Name = "TSBtnPrint"
|
||||
Me.TSBtnPrint.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnPrint.Text = "Drucken"
|
||||
Me.TSBtnPrint.Visible = False
|
||||
'
|
||||
'TSBtnExcelExport
|
||||
'
|
||||
Me.TSBtnExcelExport.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnExcelExport.Image = CType(resources.GetObject("TSBtnExcelExport.Image"), System.Drawing.Image)
|
||||
Me.TSBtnExcelExport.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnExcelExport.Name = "TSBtnExcelExport"
|
||||
Me.TSBtnExcelExport.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnExcelExport.Text = "Export"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "Als Excel-Datei speichern"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(0, 49)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.ScrollTips = True
|
||||
Me.C1Daten.Size = New System.Drawing.Size(834, 395)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 6
|
||||
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpalteLöschenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(151, 26)
|
||||
'
|
||||
'SpalteLöschenToolStripMenuItem
|
||||
'
|
||||
Me.SpalteLöschenToolStripMenuItem.Name = "SpalteLöschenToolStripMenuItem"
|
||||
Me.SpalteLöschenToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
|
||||
Me.SpalteLöschenToolStripMenuItem.Text = "&Spalte löschen"
|
||||
'
|
||||
'frmAuswertung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(834, 444)
|
||||
Me.Controls.Add(Me.C1Daten)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmAuswertung"
|
||||
Me.Text = "Auswertung"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents TSBtnPrint As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnExcelExport As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents SpalteLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
941
SW/20211125/_FRReporting/Formulare/frmAuswertung.resx
Normal file
941
SW/20211125/_FRReporting/Formulare/frmAuswertung.resx
Normal file
@@ -0,0 +1,941 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>229, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnExcelExport.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABBaSURBVGhDrVp7dFXVmb+v3HvzfpBEwM44Ol1dqx0rUtHR
|
||||
iMgSREjAtGUcsXnfPIlRRGg7C2ZkoJYqOkyXtbNmrU4fqJCAY2sVCA+XTrvsGhYIOoWEynswBAhJ7vu8
|
||||
7r35ze/bNwkJJkwk/eO3zjn37LPP9/v2t7/vt/e5tlc/qMXK1mK0vFWK5dsfRcvWR/HU1iVY3rYYTdsX
|
||||
4unW+Vixbd6E8PQ1aGkbH0+2fh5X78/HM1sXYuXrJVixtZj3FqG5rRhNYlPbo2gUvPUwXj3kg02Mz3vc
|
||||
hqxqO9KrbciuIiptyOC5x2dHis89cVS7huES1LrHhy8FzhrXVfB65P2UOjvcdTYebXDVj4b8lkUbW7bN
|
||||
ha2prQQZNNpOY53NDjgabXA08JpHeyOv6/iiCULajoS9fhJosCs7BE4aLXAMQs6zfTY8uX2BEFiivC0N
|
||||
bS122Jbz2OCETYyodykvTBQptVfhEvBF40EZxWdGYnQbO+Gkt2kDR8dTy5Gtc8AlhIg02rx8RzFsT7eW
|
||||
quFwNNFwGu/0OZFTm4OCykLkVxUiqyYPmb4bQ8YkkF5bgMy6qciqnYaMmkKk+3LgrPXQuXbYWxzwcgQa
|
||||
31wM24ptpSrm1QjUO5BZnYkf7luPnUd/jd2ftGPPH393Q2gndh+9cbQffQ97ju0l9mDnsXexaf8LKCjP
|
||||
Q6rMFZJIrbGhSQg0b1+iJq/EvIRNYdVN2NX5G4SsK9CiQRiGcUPQJwlD1xV0U0Mg5sfeznbc8sTNSK1g
|
||||
SDFS0kmgeYcQ2LEInhrGvkxYxlxeZQH2dexTxlumDi0WHYQ2fB6NRRCJhxGORxEiwrwXIaJWEpql86jz
|
||||
vjaMCNtFh/tKnoelHwVeDz4r/ai+TBOaEYdmJtDLZ9/t3I/c8qlwNno5cW3wco6pObCi7WGk1CSziKSn
|
||||
TMb83qO/J3tDGaqzM8MyYFrmIOgVMUIZriMYMxG0LIRNCxFCMwg9xmOM7XjkMwKd7QwB+9JjhBhrhWlo
|
||||
lB5nnwbb6PKs9GEOk7CMBPuPYHfnbuRX5is7bY2c4LS16U0SeEYRcKsbkklk8g0RCCfCCA1EECaiiaTR
|
||||
Bo0XmINeC5NQiMcQXxjkb0MIqTYREg7T2EiS8ADvEf4BhgWPYd5TJNSRI8FjOCYIIcR3R00DMRIIDRIo
|
||||
+KIEQokICdA4eRmhMRRMGhujZ+L0tMU2usGQIcSTEhIhIhiPIBAPkWiYHg8xZJIEIgn2RQQGSDo+9Cwd
|
||||
YZJALMjnAzwKeM4QnTSBaJwTyRpgHDIUOPy6hBKHN67FMRAZQDwqJBhWWvJ3mXxRTryoPMvzCEMnRCO0
|
||||
mMVnLdVn3IrBiophMZhRhhmfjxocZSOoiOg8N3UNOp01eQI0Jh4d4Hmcw03v0StBDq3Ep8bOxeNBDrea
|
||||
oMwWUU1nzMaRMAYQ0wYQNOMckTjnUkI5Ic45YUUiGNCjJMH5RTIROik0wLAhgoYfFknHIhZHmu+fLAGd
|
||||
Wcikl8P0ysngSfwx8D/4KPgRcRiHg5/gUPAIz3kMHMGnvN9n9atYjmo0UCajRQIMtzDDpd/yozvShe7o
|
||||
OZyPnsD/aqdxRv8Mp/RzOKGf4vEkzkZOw2/2KeM1S5wy2RGQCWYE0BPrxtJ1pSh8LA/ZT2Qis4z4Tja8
|
||||
ZRnwlmcia1kebiv/a6x5Yy26jPOM/z6GQIihEIbFeXRF78aBcx9i8dpizFwxE7d/9+u4ffUdmLnqHty5
|
||||
+i7M+O4M3LV6Ju5tvht7Onahz+xFhHNv0gQ0yQZGH7oTXZjZNAsFNdPxtXUzqEMyKQAzqVFSKQKdLPF8
|
||||
tsqLKWX5eHH/Szgf70Y/CWiM6b5YDw72HMB93/9bpJalwlPvgb2WmoaywMt+XHx3SpMLnsoUFHwnDy/8
|
||||
ehP8NDj4xUYgWQfcLA6jRoBZRFLblUQfStc9hr+o+TJ+dnYLHvrXBciuyIW3Ko2q00nl6ICNz7p9HtxU
|
||||
NR0v738VZ81LuBzrxSc9RzH/nxYgrSKDlZ7tlGQhalk8Sd7WRPDaQxu+1vJVHLx8BAHOvQiTxuQJ0At6
|
||||
3EIvY/tg10E8vGoeZq28Cz8/8wss+OkilvV0eOs5CiKwWB2d9GxqZRoKy6ZjffuPcKDnEB783kPIqcin
|
||||
galJ40WyCAGqTZvId1Z/b3Uqbqu/FW93vs1w7WVRZAZjkZw0AckQUUmhPAaMK+i8fBjfXFOMou8X4d/+
|
||||
9DM88gpJVHqV5BWjHE3suJHhUO1Bri8fX332b5BVlQtnlYQJlaQYrzQXjRcylO8pdamYVvElvPbha7gS
|
||||
v8KQDal0HZloGl3BJaMQcIjevpaApEsrAZMkDMazRu8cv/IxStcswT2r7sfPO3+JRT9eiHTGv5trB7uQ
|
||||
YOd2GuhqZJ9cadnZr/I2ySVHQO47qGnkfSRaXYCXdm5GX9zPd1A6iMNY3SOs/CMJ7OrchfyKKRxl9scR
|
||||
l/VG4/ZFSQKy/JMXfZ6ACC8az3RosvOoEYafGaazrwOPP/cE5q6ai9dPbMEjm+chrdIDT4ObspyGisHq
|
||||
SIOHwkbQxDlAye6geHRXuRhaeVi943s4b3UpWRKX+sE6Irrp+gS44FEEFv4/BCgJJHykkkZZkIIkEeSo
|
||||
9Jl+nOk/Dd/zVZi78gG0nn4D8zY9BG8FMwuzjJNx7WxIhtVV0PM03smlayqXjDnlGah/pZ75/xT8CT+L
|
||||
JmsHC59JROm0cGL0HLghAmGmQvFEOGFQhMXo/TjnAn+nhokwVs8GTqHupRrMYTi9cfp1PLx5PlLL0+Dm
|
||||
HFCxyjhNIhk2Dk5yLxfs3nIXijfOx2k+H2CBC5lBCj9RujLaCVW55Z0TInC9SSxiLjhCzIUlpFhVRReF
|
||||
ZbERjqErfBGV/16FO9fdiS0ciUc2FGMKQ8NZzUU5PZ0ic0HCiUTcjWlIZf2Y9ew38EnvIZXlNFZ7XXQR
|
||||
DTW1BAzqI4vXsv4YcxKz5kw4C4mkFfkrxkepInW+0BAJrVFwJTjU1C0d/k8x7+V59LobM9fOwm8+ewez
|
||||
nytCej2zE2GvllTJEWDKdDekwVORhqbWRhwzP8Y58wzOECfN0zhlnMV5swuXjR4E9QA11BdSo2MTEEk7
|
||||
ZLxBj8RZEyIRVlgSCeghnPCfRskPSuDm85I+Myqzce8/3I+2rlbMev4b8LDQSY73sG+HhFGDkyPiQTpJ
|
||||
3FJ3M/6q7i8xvXEaCp8swE3NhbjVdys2796M/kS/Eo5/FgKykBGvW8zNMYZPhOm0n4XtT70nUfr8N5FB
|
||||
Y1KkmjIuU6vTkFdWgPvWFeG1C79C0ctz4V7mQdpQmmU7OzNRCuM41edWxFV4NXNNvtxOeZKO9W9vQG+s
|
||||
H1GuGSZNIMJhlEVMVBOdzgUJFyd98V4c9R/F0g2PUdClc3Jykg6mSRfj08NJnFWejbs33I0tMhLP3YM8
|
||||
Cj5vhWxWMY1KKqXRMqFVQZPtHCHAMCuoKsDLv93MSsx3qUQh8pwTmiO++/iNEGAaDVFKWwydKL3QT03U
|
||||
EepAycbFyC7PUZ5UKVIMIRxMnVIQPTVe1oU0zFpfhDfOb8WcdfchtyKLWolzgil2VI0gJEN5KlNxx/IZ
|
||||
ON53nAWNqVuK2eQJSCGT9QC9wZE4EzmHv9v4GDKqs5J5nt5zUJSJonQwJOwi7JjrpRK7+VsmXzj7n+eg
|
||||
9cwWzN3wACt2Jt9D7cTslKzOJEAiomRva/yy0kIXrQvMcKwLsk6eGIGklJAbnytksmPAKizF60TwDJa9
|
||||
WIbccqZIMb6FL2fYpLCqeqr4bDX7YFgM7V26fPSqLx3ZVdl48AdF+NWp/0DRD2fT2HQ42F5EnDwvZL3U
|
||||
U7evugP7L3yAS4lLikCYcy3KkRACQ3NA7UqoOjBIYMeglJCXj6WFZBg1Vt9L8X7U/LQB6eX0PL0snlPq
|
||||
k8OfQk8OQfYznSNgf5IgwTQa+OALs/FqxyuY/tQ0vtylnCDrAhlBJ+GgDV9ZNQPvfLofAZOZTgnJq5P4
|
||||
upV4PAKy+SQPd9ErX6+7M7kGYBxLWvTINni9aB/PMOzUQsPgvRRfCtcMFGxMr/llubjtqVuQ3ZBBIccw
|
||||
k3kgISSQDeVmOqAxC1+q+wreobf7BxhGkyUgezRSUC4melC5yYe5ax5C0drZKPrHIszm8f619/P8Olj7
|
||||
AOasmcM1wRw8sFqeuRdT6wvgrROSko1kziRDUYi4SDy9OhdL/+Xv0TPQ+wUISD5mCryWgOzKaZQMAcbj
|
||||
Ja4HzpsXWT27eezGBeMSevSL6NO6R+DCMHp53aVfZjtBNz7jWrkzfAzF6xdiyrJcZC7LRtbjechamo70
|
||||
b7MuPO6GZ6kXN5VNxYyq23E5cVERGDUHuDAangNCQOZAMguNvSaWdDagDSiZKyIrQrElW4hRSl5Do+zV
|
||||
ZV/HGhNqi1BPKMh1lHUkGPMzTXbi4JWPcKj3CA5f/hhHLhzAR12/x393vY8/dP8O/3X2PRw++wdW4n61
|
||||
dWPx+Qmk0XG2VfhggkbGabBlUmjRGzo7NCi6rCgJ8TpAmT0WgsxeYrwINFOjytTEIdRRZoQKNIwA5UlQ
|
||||
9BVHN8YCaSSC/L1fqVP5TZMiOnECY9cB2ZUwKCd0kRSyt8mQkg0uQXIvM6IK3FiQe0E+J3MoTAOjhDgk
|
||||
FA2qDbMAc3wgzhGkkXFKdFPIMWn4WThj/D2gyU5dkoAKoePtY2/uPrutmNlCqijTGXNyBteye469B1Pk
|
||||
MkPIiAU5FwQkEpPd6iRk39OiUXGmvCHEuEYYgsVr2RvSCF0cIV6mZw2OgMlwUnuidIhIFFPnb6w5Jhfy
|
||||
ptozpQN4DMtqkAucAN+18/g+5FVOU9lNpId8hlIEVm1drLbV5eOe5PiM2qnY27GPzKUGyPBR+1PI/TkQ
|
||||
iXOpOARZU4zRZghBWQXKepxrgxDJt3fu5zrjZhbAawg8s22QgEpNLmT5hMDeZLzGBjiZBBxGIiiQ+B4H
|
||||
Q+2G24+6P/j8ID7XVjCifYSI0fsDumwq+7G/Yw+mlk2jzpLaQ1uHQuiptmJ1IeXfXeNiHi7Azo53OWz9
|
||||
VJ6ysGZMc0iHIdfjYWS7sdoanEujIL+NwIi2QZk7hMaJ7Y9f4Bz4LQrV/pJLeV+crgg0t5WoT5cO/uD2
|
||||
OZFel4cX923kPNhNIvvw/rF2fMDzieB9hV3DGKvNEK5tK9dX77ejne9u73wP++j5XRR5P/pgI7Lqcuho
|
||||
52C02NAghUz+UjBEQL7DOuo8kK+B8kEtp2IacqrzJ4zsqimjMFabkRjVvnp0++yqaSrmp7KwieczfNRh
|
||||
sjkm0bLcwYJGAm2KQKn6bCkLExFn8nXey7SaWsFy3+RlypK0xeo3EYhKHYmx2ozE9drKHhMlh8hyCW3Z
|
||||
gxXp7WihEGS2VCMgBJpIIEVuDBJQH7uZkdzMtbL8c1HfyxfzCUF23EZgzDbDuKbtqPbUSUrgJW0R++To
|
||||
4LJTlGsqyXjkQ3crCdT/ZzEyyqnJy2xIq0nekM/4GTXJb7HyN4QbRSaRXpXEWPevhzS+WyDfsOVajmKX
|
||||
HDPZX94yJ1ZuLYFt04E6NLYtwPK3StHw1rfge7MUtTseRf2OEjTsKFbH8bGYWDIuGt5cjDr2IZDzsfsY
|
||||
D9fvu2lbCX7yoQ//B4xxLcfzFcCVAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIESURBVDhPrZI/bxNBEMXnI/BR+AiUlNdBeVVEeWXKaxLR
|
||||
RDoJRUKI4gQUqdBFKYgQSCslkYxsiU0IxMHG3iSYc/wnPkxD95iZ80JsE0RxI/3s9d695zezSz+mE1QJ
|
||||
Tb9PUCU0La5QJVRMRriJ45MuMmP/yaKGiqsh/sbxpy6Ojs6wVD8B1y+Q7VoEYYx2uzOno8l4gEXyb7kK
|
||||
pIqigKlZRfayzMA2HcIoxr2V9SUtjUd9LPKmfqop5oqTsTes+5Nu6+XrJS2Nh7y4Rsc5pJxCSkzn0vHM
|
||||
rOV0D2I1TB5nSNJsTk+jQQ7PXq2hZqbm1FBS+WSOPxynS7eMmsVJqu/K+roHDS97EPbr77Hx7BW/ZFUk
|
||||
30lqWJghilOeWaLiIIx0fpIsepjqnvcQaND/CkHEhSS6oeSZJJVDklHEbBauln/iPQS6zM8hxDwPvVs8
|
||||
K2lFEsieCKM40YR+dsH9qNzj33d47T0EynsOgrS2dLKzknTy7BZIoZRmI4hw+26oeg/1LjoQ1jZ39H4t
|
||||
lh4IH4ZplobZzDCQdEFp6D0EujhrQdjefYvNJzucZJZIjHht2SizfLqmUCOPtCpmK6vrqvfQefczhIOD
|
||||
PaxtvIDheybz+x/EsNGoq95D7ssJPPu1d9pKeT3KKyJJFG7Pt+h59PT5b62HOq2PqBJqn35AlVCreYjq
|
||||
OMQvjpZMWrGxmEkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAD5CSURBVHhe7X0FQBXL9z9goqJidwcgiAq2Pp/dYnd397MV
|
||||
u7u7u1BUTARFEFvRZ7eomKCE+eb8z2d293K53iuo4Hv/35fxfd7u7F12Z+fzOefMbMyYxaf4FJ/iU3yK
|
||||
T/EpPsWn+BSf4lN8ik+xl3Ix6jAGMuYyNsQjRkBdoc5Qd6jD/2+SOSMHYxjDn/GW8ZUh4vFT+MJAHaIu
|
||||
hzJQt6jj/1xCoewZqxgRDFKBi9DW4/O/nkfdLmbYMf4zQrBijGe8YcT2BcfnjedR16hz1P2/mmwZcE//
|
||||
ML4tsLmZME9sTgnTJyZLxxRkVdFapKpoTakrppZIUym1SFspFQHpK6eiDJVTioyVU1KmKikpcxUrylLF
|
||||
SmStakXZqqaQyFE1hchZLTkBuasnpzzVkwkG5WPkr5GMCtSwFAVrWJJNTUuyZdjVTCoK1UpK9gyHWkmo
|
||||
cO0kwrF2EipSOzEVrSMhiilLuY1/E7wPOTDwN/y3wo6XtjWTymPysQWfg89lKc+ZVz0/ypJLKZfgMlJ2
|
||||
tbxcdsHXIK8F18TXJvga5bWmU65bpOGltVofXDciJddPsqJWss647gTXYWR9Rq1f1Lkfw4bxr6Q/Gc8Y
|
||||
KFQUmFtaiCRFUwrrPrlEljmFRK5NRUTezUVE/i2OwnZrYVFom4MovM1eFN1eSDjtsBMldtqK0rtsRdnd
|
||||
NuKP3QVFRbcCovKe/KLa3nyihns+UXtfXlFvfx5Rf39u0ehALtHUI6docTCHaHUou2h7OLvocCSb6HQ0
|
||||
q+h6NIvocSyz6OWZSfT1yiQGeGcUg05kEENOpBfDfdKJkT5pxZhTaYSrL8MPsBZjT1vLpdzGv406lVaM
|
||||
4H2HnkwvBvPfDuRj9PPKKHrzMXvysbsdyyI687k68jnbHc4mWnMZWh7KIZodzCkae+QSDQ7kFi5c1jr7
|
||||
8oia7nlFdb6GKnvzy2uq4FZQlOPrK73LRpTka3beaSfroPB2e2HPdYK6KbClsMi32VHk5jrLynWXhusQ
|
||||
dYk6NVbXDHAALn5rqsJ4zUABIhVqYSaSlEtD1lNsKeOWYpR1YzGRfWdRys3Iu6sISQG4FaZCexyo8F57
|
||||
kgJwt6MS++yo9H5bkgLwKEgVPQpQ5UP5SQrgcD6qfSQv1Tuah+pz5TbyzEVNPXNSi+M5SArAOzt1OJGN
|
||||
Op3MSlIAPpmp16nM1M8vE0kB+GegIWfS0/Cz6UgK4FxaGnc+LU28kIZA/JSL1jSJ18cjDwHw7yN436H8
|
||||
N1IApzPKY/X2zUQ9PVkAPlmoM5+rI59TCoDP39IrBzU7npOkAI7lJhcuax0usxQAl78KX0vFgwVICuCA
|
||||
DV+rDZXk65UCcC8k68Ke60QKYLcj5WPk3lmEcmwsKrLtKEaZthajNFynXLeC6ziyviPrH1yAk9+SijCe
|
||||
MvQLQBbsslL8lV+k3eRM6bc5U6btTvECiCUBZOa6zMB1mm6Ns7D6K7+sa8P6ZzxhODLiNFkzAhhRCpDA
|
||||
xoqs5juS9driIu3W4kYFgIsqvIPd/r5C5LyfST/ApO9mt+9hQ38cZNIPMenuBUTVI/mpxhEm/Wheqnsg
|
||||
j3DxzE0Nj+emxl65qNmhnKKldw5qfSI7tTvJxB/LJjr7ZKVup7JQD98s1Nsrs+h7OhP1Z9IGnWHifTKI
|
||||
YefS08hz6Wg0kw63P/5iGpp0yZqmMMafSS2mX0lNUy9b02TOu55OI8bx72N435Hn09HwU+nFkLMsBD7W
|
||||
AH8Wgncm0ZvF0NM3M3Xnc3bx5FDgk43ac1nacJlaHs4hmnvnpCZc1kZc5voeuUW9Y3mo9rG8VONoPqq2
|
||||
L7+ofJjFwNf6x6GCVM7NRpT2sKWSB2ypONdJsZ2FhKO7PeU3JYB1ziLNluJkNc9R1rlW/3oAN+AoztIs
|
||||
Bk6qg4WNlUg+t5hIuaaEkAJYV1ykX+8sMm9wEn/stxE9/LOKKbetxbpnycT2l0nE9ldJxA4dEoudKna9
|
||||
VrBbhdvrRDrseaNgrw4JhbuKfW8V7FdxQIcEwgMITiAOqjikg4U4rCEkcl37XdsffyuPwdCOq51Hnhfn
|
||||
1ysLyoXyaeXdo3cN2nVp1wlo1456QH2gblBHqKvJt6xl3ZXnOszChpRhvZOQAuA6TsV1jTpH3RvywQBH
|
||||
cZKKM0IZOsWZO1rtSjwwX0DSFc4BVpuKB6RkZNrgdMVur11Aw9M5A6Y9SBOwNyRxgFeE+RX/r2YBwOmv
|
||||
5gE+n82vYJvPF15XcZzzwInPFgGAZ4RFwOFwiyuHwpX1Y4xDjP1hyjasAx5hFgH73llcwdKDt7vz0j3E
|
||||
ImB3SOIr7nxu9zAgCeeTXNkVnOTKzpAkARq2vk1K24KT0o4QS4ltby1p02tL2sLYGmxJmzm/+Y0lrX2V
|
||||
gtYwlgamEKtfWtEqxkrGwsdWYsULK1rOWBZkRfMepRRLglLSkucpaTFj9oNUYuGzVLTwaSpawJhxP5WY
|
||||
9zQ1zQtMTXMZU+9ai9lPrGkWY+Zja5p4J43Ab/j7TW+S0d7gRML7UwIuUzJqeSYXZd9cTHqAVFtKkNXm
|
||||
kpR0WlFhnjmpvgeAAMCRMyNWU0LGNgZOoJwssQVZdMoZkGSmIyVfX4JScYGysauC1Q+8mpmW80XsC01M
|
||||
Xh8syCvcTPh9NSfA96sFeYZbiKNhFuLEFwuS+GxBh0LZAhnH+YKBox8S0r7ghOJQWEI6wuuHGQfDE5Hb
|
||||
20Rif2giOhCeWML9fWKCBe19n4T2hiahPbxkomkLW9KukKS0611S2vmOiX2ZVGx4kVRsZaK3hiRjgpPR
|
||||
hpcKNr9NTpsYG14np9VByWnNyxS07nUKWssA0XMCrWn2kzQ0mQma+TgNTX+clqY94rbE7TRiysO0NJkx
|
||||
6QGHmJtpxYT76Wg8Y9y99OR6Pb1wvZuextzNQKPuZKCRVzOIEbcz0nDGsFsZaWhARjHkZiYazBh0IxMN
|
||||
vMQ9l+uZqT+j399ZqO/FLAL7QUSHIhLRuueWoqpXAbJWBZBsdSmReISd5ELlReMHXIGzWEsOjPcMnQDM
|
||||
K2akxHOKBCRdrRQm754i1MAnL427nlbseZeEfL+Y05l/zMjvsxl5hZmLU5w/xWT7MED+YSbb63MCAkC4
|
||||
xzt2tYxjHxNK8nHBe+B2meyDvO7B5O8PS0w72XXuZdLdmWwQvpvPJclmojWyYckbgizFNrbibSrZ64KS
|
||||
iTXPkwlY1sY3TDYDZAOSbLbw1Uz8sqds0c8VC1/xIiUtDUolyZ/FmMQC0Mifyhh7K43QyJ8IAdxIKzTy
|
||||
x0IAf6cXOvIZI1gAOvJvZaIhVzIKHfk3MtOAS5mFjnxGnwtZRK9rWanX1axy2xT2GKiXflezUBpua0EA
|
||||
STaUJouKGQwFAK7AWaylyQwcXIFlApFgSjGReEXpgOTrS1I+tyLU1KsUzTxXmTZdLCb2XLOjvddsae/f
|
||||
tuR21Y52XHIQHnec6OSLSnQ6uAadfFlLAKdDatPpdwxeer+sLQDf4DrkG1yXfN7WJc+guuLEa16X+Xp0
|
||||
gnH0eT3h9boeeb9xIS+G5ysXOvTMRXi+qk+er+vTMV4eeeFCBwJdBJZHXtanwwz3Jy7C7VE9sfthDVp7
|
||||
pTQtO1eMFvkVlVh8ppjE0nPFac21CrTqUT5axiJY+iwlLQxMJS0f5E9gix/PgOWDfNebQFoFN9IJ1+sa
|
||||
2PJB/rX0YtS1DEJaPshnix8Gq2fiJfmXM4lBDGn5IP9iZtGPrR6WL8m/kFX0PK+g+7lsotvZbHK/9Szu
|
||||
cXxOa25vJVlVWiScXEyYJfnmPgE4i5WUiKG1/HFgMiudjhKuK01J1xQPyMFxqfWpnGKuX22xastcmj57
|
||||
JI0Z35dGj+1NYyf0o/GTB9GUGcNp+ZrZdOLsUQq4e5FuPAigWw+v0q1H1+j2ExWPFdx58jfjehTcDbxO
|
||||
957eiCF438C/6R4fRy7xtwwc+9r9S3Ti3DFavGoGTZg6lFwnDpIYM2EgjZ00iKbOGkUbdy1ggdSixU9S
|
||||
0iLGvMCUHJ8Vtw/yYfma2wfxsHzN7YN8afma2wf5sHzN7TP50vI1tw/yYfma2wf5sHxYPUOSfzUbdQ/I
|
||||
Rt0YXVkAXa5kp66MVeytIDKrLSUlF+bMiY4fBeAM3P1yysbAEz3dCcz7FKREG8pQ9i1FAlqczkWruAG0
|
||||
9VxpGj9xJHXv2o1aNGtOLZo2o04dOlKvnr1o8KDBNGfufPK7cJUePHtNz169p6A3YRT0moGlEbx8a4hw
|
||||
ehkcTq+Dw+h1SDi9MYLgdxEU8j4S70I/6BD8LpzPF0LnL/9Ns+fOo0EDB1HvXr0Zvag3l7EPLwf2H0BT
|
||||
p4+nxb6V2AOw+2cs4sZbzGM+W/8vxnyNfLh9afka+Ux6lzPZRefL2anT5RzU5Uo22QhtfS4Xc8ECYE40
|
||||
flSAM3D3y8mFoR1UmFklIvNZTlTAvQjVP5E3YMGT1OTFMXz7maI0+K/ekvz69VzIpU5dasnrXTp1pn59
|
||||
+9HM2XPJ/9Lf9OTlO3oV8oFev/vIy+iB/d5EwQd68/4jvWUEM0LCPunwTsX78E8UGvGZwvSA/BsWyMWA
|
||||
GzRz1hzq16efFGv3rl116NWjJ412HUpzvctzqz6VjP9owZuO+eniLOZLy4fb18hndGIBgPyOl3JQe0Zn
|
||||
zqN3UsDdkSyYEzOrhPoCAMDdL6fBDBxYQbZkwmJpaTGJrWHug5QBB8MSycbe1tNFaODAnor1M5o2bkKt
|
||||
W7Skzh07Ud8+fVUB3KBAFsDT16H0KOg9PQx6Rw+ev5NLY3jwPEQusa8xPH7xngUVFYGMp+xhnvE5NMCj
|
||||
QDjwHBcggJmzZZm6denK6KJDz+7daeTov2iOVzm2/lTcHePuG7cBfjXmS8v/yZgv3T6IZ3T0V9DeP4do
|
||||
dzqHaOuXQ+6LMiRgTsBNFK4U7n45zWZEegD71FRwvyOd5K6bZzj34T9x9+6LGW3xVQTQiklv07KVFEGb
|
||||
Vq2jCODM5ZsU+CpUEncn8C3H/jcKAo2At9968lquY9/v4e7T4Ci49ywqHr0IUcKHvgB696GunbtEQY9u
|
||||
igBmeZaTrh/WP58FEPOYn/4HY37mGMV8ze1L8tny213MQW0v5qQ2fjlF6ws5ZdnACXMD0vU9ALj75TSP
|
||||
ESmAommoZ0BWafU+EWYB3mFmwpv7+eu9i4iBA3tIATRp2IgaM7COdkAfrmwpgCs32SI5ngdH0DO2SkNL
|
||||
1QAPofz2np7rbce6IWDdL5jc7+EV2gZhHDa4HXDx6g2awQLow/Ef4UkfCAkjRg2mGUfL0vzHqWgeY9aj
|
||||
lD/dz5et/ViK+dLtw/I18pn4Vr45RavzuagD/9bmfE4yK5LGUADg7pdTFAEkcU5F614lJ39VAL7cz/fj
|
||||
Pv7mU0Vo0OBe1LF9B2rbuo1Eh3btpAfQBHAu4JYkRMbnD1/kUllXoOW1beHAxy+8/CLzEZ++fIMPjI+f
|
||||
v0bBpy9f6fPXfyQ+qduwXzA3DNEGgADQ8EPZgC6dsOwow8CIUYNopmdZWvQsNS1kzGUv8F+J+dLtq+TD
|
||||
8lv55hItWQAtGH2uZSHmJs4EoMUUkbV8MuEenFB4hZuLk1IAyh2+Tb6ONGiQUqkQgQZULFraM7jhdS7g
|
||||
JjfsIpgMlaAvTJARYPsX9ffPXwWvC7n/l3943QBf9cD/kVDxD/8PwHGAjyyAt+wJEAKmz5glG3zwTpHo
|
||||
wGGgMw0bOTCKAJY+y0p7nzcXwB4Vbozdz4AWEruethA7VeyQaCm2A4EtxTYVW58o2MLY/KSVxKbHQEux
|
||||
+H5lbkNkl3E/upgv3T4sH+SfyiVaMJqdyi3QIMxc7ps2QOx7AIeqCZlwM/Jl0k9EyPv68g7fRvYAaAOg
|
||||
MkF8h3btJbDeq2dPtjpFAGiJwyI10kDOV5UsXV7vN43kfwyW34MUjCokzSvAg7wKCaNzl69zV28m9eje
|
||||
g8umlFEDxDt0eH+acawsx//UNJ+x8WUZEuq/Dx8+cCkj/8VenssqXtOlkCli7iN7DgGGMT+nXszPRXD7
|
||||
sPzmIP9cbmp6Nje159CQs0JSkB4nHkAngHJ1FPJBuicL4MRHFsInC1rvEykA/UqFAHqytU2fMZvOswDe
|
||||
shsGIZplaoRrxEZu11/nfZD/R9kXS82DaJDeA64eYA8TwaEDQKgB3oV/pKC3oXSGu6JTprEAuvWIUk5A
|
||||
CmDYAJrnWYPWPC9Iqxm7X9YhLYEwdVWmuMiHi1vk/rYGNwSzfhPzpeWr5Ldg4mH5IL/J2TyM3JS/UuK4
|
||||
F0BZFgDIPwkBcC/g6HtzcTTUQqw8XkQM4EYgCG/ftp0OqFhY27Tps6T7xQ2b0Aj006MB2gQflHX065W+
|
||||
fSSQf8cNOw3Bocp9gTfvcZ/gAwsN9xqACB3QqIQAJk+dwQ2+7lHKCUC8Q4YOok3eg+nEm/4S599PU+mJ
|
||||
HYLVVZlM5T+JZ7TzjYNsAxiN+SAflu8DAeShxmfyUCNGFg7PelzFqgC0mAIByCd5R5h0eACvjxbkzR5g
|
||||
7UlH6tdfqdR2bdrqgHx37l5NZQGcZfcLKwx6Gya7ZvefB/8a1G6e7P4FKtB1DRlalxL5R0Eh9ORlCPlf
|
||||
vEaTp0yT9wBQPjRWtbJ2YPEOGzqUTvofovdfHqoIlMT8bjwN3yMm38kgY75s7asxX7p9WD6T3+RkbtH4
|
||||
ZB7R6EQe0ZCR6Xe0AeAB8PjW+3MCwjN6KQBe1xeA1gvQKrcbd6/gdmF9sMJnb0LpIROi31fXJxVL/d++
|
||||
h7tPDe8LgHCFeNxH0O4lPHwewiIIlrejJ02eRl31BKAB3mrokKF05swZaZFIgqO0lkCMuipTXOa/ilA6
|
||||
+KaU7AYai/nS8kE+W35D/7zUgKEKIE48gE4AZVgAIByPcY+FWwQc/6isrzlRmPr2i6xU3AQCsI7KhtuF
|
||||
9QW+eidvyrwIDqPn7AkAeIQgzkuo69pvhsD9AwWhOjxlUQGBwCsFTxiPX76jxy8U4C7hQxaW74UAmjh5
|
||||
KnXp3CUK+SgrxDvkryH/CQEgXQztJt8HMIz5OrcPy1fJdzmdlzKWS/57BKA9w8ebOcciWAgfEtAqr8LU
|
||||
p08XaqeR37KVAl5HZU+aMp1OswDghtEV1GL1G24UIl4DWI8OhnH9FbcpNOAeQ5BEpJieQySvQ6Uo4F1O
|
||||
nQ+gCZOmUudOXXQi1crbnsULAfifPs2NTu6pMP7hBqeWYpvg6PJX3g8XUx+mpeZ6MR8NPi3mw+1r5Nc7
|
||||
nS9OBaDFFFGmtpk4+F55eeMQXsMKUdaXHiksevfuTG25MvEMQAeu2M6dOtNEdru+7H4fc+wHSS9ZBBDC
|
||||
SyYuxsDf6eHFWyabSVaIVj3D6zDlTqIG1SPAG9zhcHHibACNmziFOnXsLMumX1aId8jgv8jP15c+ffok
|
||||
8fnzZ0nMv4HLLAA8gtbFfIZ+zG/gnUe4eOcV9bwUZCwrBaCP2PcApWubk+enhIQ3dyCAo/AAvL6SPUCv
|
||||
Xp1kpbZs3kKHVoxOHTpJAficw+PgYEkMyAJpGoGG0H5TiIUVK7eG9SHJVR8AaVBcPsd7Azxg93+b2wMn
|
||||
zlymseMnyQaffjkBeILBAwdJDwDXD/ybHuDiuxHy8bOpmA/ypfX75aM6vuwBFAHEiQeIIgAQjvf0pAB4
|
||||
qQmgZ8+O8v6/9kQQwCPhju070nh2u7C+u0/f0CO2RgmQhThtBPhN2edbMjWgIfmAG3YPsGSCAaUx+Zbu
|
||||
MdBA1ICG4Y1Hr8jr9CVyHTeR2nODT7+cAMQ7aMBAFoC/SsG/2wa4wAKY/CCd7Ocbi/nS8lXya5/K//sE
|
||||
oLykmYgOhlgEHIlQ3uFbcTyqAJo3bSZfCsF6+3YdaOyEyeTtf5lb5a/oVuBrus5kXHv48hv8rcLYb1Hw
|
||||
4CVdffBCwf0XFGAEV+4F0eW7Qbx8wfsr8PS9SKNdJ1C7tu1lGbVyYokwoAjgtErBvyuA8yEjxUQWgLGY
|
||||
rwlAIT8f1WIBZIhDAWgxRZSqbS6fBeCVZQgAb+0Cy44Vph49OkiXr1WoFACjPVc23C6s7zqTB9Iu3H5O
|
||||
5249+2mcvfn0G5y5YYhA8r8eKH+7dPc5BbAgjrEARo0Zz72VdiYF4Ofrp2sEAiDm38BZFgAeQJmK+XU8
|
||||
84najFrH8omax/ILVQD6iH0PwAKQb+zKN3VZAO5vWQyMBQcdRPfu7aXLb96kaRSgsjUB/A3LZeu8xJZ5
|
||||
8c7z7+KCwbpxPNPh/G2I46kRPJPHuMIiOOZ7gUaOHsddv7bflBPixWthp3xO6RqBX758Ue0x9i08uvyZ
|
||||
4JHyfQP9mI/Wvs7tg3y2/Jo++amGT4E49QCRAqhlrntNGx9geISxGHh96TEHggBgSXgbSB9tuHU9ZuwE
|
||||
8vS7yOQHSRFce8AhIBpclfsZuHsDBPDx9HH53nN2+8+lxX8DFskRn/M0YtQ4at2qzTflRLjq37ef7AX8
|
||||
FxqB/m9HycfNxmM+u31YviQ/P1U/WYDSl/kNAijJAgD58qMMTQAsiKXH7Klbt3bUjC2pSaPGUYDW9Zgx
|
||||
4+goWx+sUIvR8ATXmDRtCejH8KiISjRwhSEJ14ck+lvvcIG9w3n2BIdOnqfhI8coL64YlBPi7denL532
|
||||
81MpwGPlf+jTV/YGjHfh78VHXmr4kfynf778sAD8WAB418BUzIfb18ivJgWQIs4EoMUUCEDsfptI7HqT
|
||||
WEAAB1gAEMSSo/bUtatiVY3VN4I0tGrRikZwpR88cZbO3XzCRARKXDAC7bfv4mYgH0fBWT7eN7jxhOP/
|
||||
E47/j6Pg9N+PaP9xfxoybKS09sYNGkYpJ8SLV8XgAbR0//1DqnWomajBqHawuajq0UJUPtBCVGT8ub+l
|
||||
qLCvlSjv3kqUdW8tyuxpLUoxSri1Ec6724piu9qKorvaCced7cS8gG1G4/z34PtmtBhxNaPJmF/jaH5R
|
||||
/WgBUe1IAVGFkU4RgD5i3wOUYA+AL3T2MSCAfe8T0b7QRLTosD116dJGWlIjrlgNqOTmTZpRr979adm6
|
||||
bbRt3zHaceA47VSxy8OLdh/0Zpwgt0PASYk9hwEfBUd8aC9w9JRcYpubDthf+dvdjF18nF18PGDH/uO0
|
||||
nc+xbZ8nbXU/Rlv2HqWlazZTj559pFAb1Y8sI4BteFXslI+PrgF4I+Qm5XMvQnn2FqVc24qKHHuKUTa3
|
||||
YpRltxNl2uwsMux0pnQ7ilOa7cUp9foSIuXWkpRiS0lKtrkUJcWnWxtLU03PAfT+c/gPe4BTLAC8YWQ8
|
||||
5rPlg3y2/ConCkqoAogTDxBFACAfn2XtDbYI2PVa8QZz9tuLTp1bS0tqWL+BDo0kULlNqWu3ntSn3yAa
|
||||
MGgIDRw8jAYxhgwdTkOHj2KMYdfsKuPzSMYobqihtT5qzAQaxd22MWMn0thxk2gM9+FH87qE60RlH+zL
|
||||
wN/iGMNGjOHjjabBQ0fQoCEj+HzDqN/AIXzuwbIMEGlDFy4foFdGbMerYidPnKCPnz5K/P32b7LZ70gF
|
||||
9jlSvh1FhBTCnqIkhbC1mJBC2OVMUggbiwsIwXpbCZJCWFtSOB9oSU/CgiShPyqAk69Hi6E3M5mM+dLy
|
||||
VfIre/9GAciPMAH0At6zNwhNTAsO2VOnTq1kRaJiG7jUpwb19OHC1tZIVjLE0Iy9AmJuy2YtqCWHCISJ
|
||||
Vi3x/KA1teUGmv6DGrTYAfnYFo+bNRg8zUNbozX/PYDjteBjA7Jhyu69aSO2ei4DyiLLZ1DGxvxb7x69
|
||||
ZC9AawTeZA9QyKMw2R0oTDa7HIUUgkmP4BTFI9hsryWuvL2l0vnjAjjxaoz460ZmeZMnMuYX0MV8uH2N
|
||||
/IreNpT2d7QBinMbYNvrJGLrqyRCJwD2CAsOF6KOHVtKAehXaiS40nVQtzEBmhXqwHnFIg3B7pqhuWst
|
||||
bwrasRQYK0fUbfXrskD573p170m+p06pFBDdDrlFjnschIObgyi0u7CwZRSEEHY6CukRthcVUgjsDbJt
|
||||
YY+wxUkgNGTbUlrsvX/UaGyPKbxZAIMuZf425jNAfuXDBSUqMv48VFCoAtBH7HuA4jUtyO19UtrN2Bmc
|
||||
OED7Unc+e4COHVvICkdl/hzqfQem9jXc/jNQjgWh9ezWXXoALd1+f4ucuH1TlK9PCsHDQXoEW/YIUgiG
|
||||
HoG9Qa49JWj5nU0U8SHihyzeMH/85Rj5GrmpmC/JZ8v/08uGKjDi0gNEEQDIl59iv0oc4BaSmNxCktBc
|
||||
D3vq0KGFtCZ8FvbTYCJMwtj+sQh4ih5du3Eb4KSuEXj73Q0qcdSOnI8UIid3eyGFcNCBpBDgESAEbiPk
|
||||
V9sIed2L0ZgrU7nbpzxFVLmU6Ufzni9cBV4h17l9g5gvLV8l/4/jtpSm9G8QgDMLQPsOHwLY+pLDAWP6
|
||||
3kKiXfvm0pLq1a7z82AiAGMERQejx/sBQLzdu3QlL6/jukbgzeBrVOaYLZViEZTYV0hACMW+4xHan+5O
|
||||
oV/CJIG/KoBjLAB8OGIq5sPtK+TbUPk4FoAWUyAAgdE2Nr6wxLg2AbvY+nezIOawB2jXrplJAdStVTsK
|
||||
sA2kae43CurVk9YYBfUN8kYgY7kKeAzDMkQH/D0+DkEvQGsE3gm5QeUP2oiyHraizAFbUWq/nSixz044
|
||||
sxiKwSPstRdaG6Hukfoi8N1To/H8Z3AkyFX0Pp9V1883jPkVuFx/MMp72IhyXD5VAPqIGw+A8XS2Y1wd
|
||||
KQClPTDnoD21ZQGAVEOygTo1a+kAktEbwL13tNzxEgla9Hglq2O79vIjDe1zra4MkALL1EF+zat+2atu
|
||||
w7d92B+vduM4uNGDRqYmBJShds2aVLsGg5coh2EZUS58HHLy5EnVBonuhd7kGFuQKsDKIARPWyqt8wgs
|
||||
BNUjVPOuRJdeXvolizfMH2YB9AzIZjLmS/LZ8stxmcp62pH17woBIB9Dr2xhAexUx+GZ7VGI2rRpolQ0
|
||||
KtkE6tauLV++HDN6DM2dM5cWLljAWEiLFi6ixYsW05LFS2jpkiW0bOkyieXLltGKZctpxXJDrFCW+I33
|
||||
WS73X0pL+e/nzJ4txyRAKKlSqTJV+rMiVfyjAv1Z/g+qUL68XK9RtRrVqlEjStkgFAgIbQAtQQCVufIr
|
||||
sdv98xBbnHS3NlzhLAR4BBZCeU8n8n7h+cuEG+YPPncV3a8oAvg25nM5YPmSfIjyNwnAiQWgjbsDAWx/
|
||||
m5S2ByelGfvtqHXrxtK6alavbhSocJe6dWnIX3/Rli1byNvbm3x8fH4OJ/VxUge474MHD7K45khCy5Uu
|
||||
Q2VKlqLSJUpSqeIlqKRzcbmsUrES1ahWLUr56tSqJb8N8DzuSZ++fJKNwHvvb8j4W/VEAbbAAkIKgT2C
|
||||
JAAu+Lg9bX20ToaL2BaABwugKwvg25hvK2M+3D4sH+SXkgKwijMBaDEFAhDrgizlgEtbXiUN2BiE9kBS
|
||||
MdnNTrRq1YhqVa8hrcsY8Bti9ZjRo2nPnj2SSF9fXzrF/e5vCFaB37DPj+D48ePSOzRp1IgqVfhTsfxy
|
||||
5al82XJSDBAAtlevUjVK+eAF8EHrVo/NFPj+CX349IHuBF+lWuiDM9D/rqrG4kpwx4dsxfSrriL8Q7jR
|
||||
GP6r2P/MVX7zZyrml2UPJL0Qt0tKMlQB6CMOPEANC9r8FkOrwQMkDcCIXNuDLWn6Pjtq0aKBrMhqlasY
|
||||
RY1q1eUNGrh/Nzc3STDi7ZEjR+jAgQM67Nu3T2L//v3k6en5wyKAAFauWEHNmjSRlg6ypRDY9ZcrU1Z6
|
||||
A4SBqhwe9MtXk8vXunUrGrV1KB19foDCuTV/P/S67las9vRN8wgjznURYV9CVXv9dYs3zO976io6Xspu
|
||||
IuarIYgtvyTaI0cLUepScecBdAIoViOBJB9DrW3WBMBtgun7bKl58/rSqlCxxoDf0EIfPWq0FADIh7tG
|
||||
zB41YoT8KGPYkCH0F8dvjOEzgretX7dehgpjRBsCQjnBIQCCWsbtgmaNm8jzVuY2AAQA0jUvAK8AceiX
|
||||
D+Jt3rIpNV9ZjyZfH07X3l2i26FXqD4exfrlpbrH8wl5T55F0ONiXQoKfRarhBvm3VkA+OhT5/Z1MV91
|
||||
+7B8Jh7kF+fG6G8TgDbO3iYWwFYWANoE09xtqWnTeroKNwb8hobZqBEjpQBA7O5du6hvnz6y9wALBCAU
|
||||
NN4gllkzZ9KxY8dMegEtfIB4HA8eA15k0aJFMgSY8gB/sBCwTb988AJNmjeiOkvKUyv/6rTy/lzye32Y
|
||||
GvrnoQYM+UYOC6HtuTL0IOxmrBNumN8b6CraXchpMubD7WvkOx+xp1RxKAAtpoiiNRKIlU+TixUMCGDz
|
||||
a0va/CYZTXazpcaN68qKhKUZA8hAwwzW7rZ7tyRs+7Zt8jNtxGgQA6Ch5ly0GFVkgiZNnCgtWieAU766
|
||||
0AHgGF5eXpL4o0eP0uHDh8l9716aP28eNW7YUCcAnL8CWz0EUIrPgSW8gGH5mjRrSHUWl6NqXg7U81wT
|
||||
WnpnPGnv4+O9vBY+DuLks/1GY3Zsw+2JqxwL4JuYf0CJ+SX2FRLFcXPKHaOu2wtVAPqIfQ/AAqD1r5XR
|
||||
Nde9TBqw9pmlWMsNwnHbbUSjRnUUS+OKNQaIA/3vEcOGScsHcVu5N9C+bVsqz4SAeKB4MScqWthRWumE
|
||||
8ePp8KFDsrWPe/RYGhIOHOJ9PDw8ZLsBx549axY1atBAJ0gI7A9GWe4VQABYYptWNuyDfRs3bUB1F5al
|
||||
KkcLUn0vJ+p0pjI1P5dLvpvf3Ce/OBi0Xrb4kUCSXFFTbOd3swDwXaDO7etivur2QT5bvnxWwUj5O0IA
|
||||
BKANrQoBYCBjeIBJuwtSgwa1pJUhzhoDKhoufijH+Z07dsrGGgSAm0DorpVwcpbkOxUpSsUci0jCxo0d
|
||||
J1069pXwPC49gka4bDgy6fu50QjLR+9i69atNH3aNBlCQCyOg/NL98/xHyIrW6q0FB1+wz5aOGjYxIXq
|
||||
LSlD1bwLUE3uf7v42ijf5jGW3nYVeEVMS7FNuGF+52NX0YLFZyrmS8tn4nEjqsghh98jgCLVE0jyV+sL
|
||||
gBuFE1kA9evXlBUN69IAYlHxACyuOje0cB9g586d5HVc8QD4JKsME+LEbh8A+dID8P6uY1xpLxML0jXi
|
||||
0XCEpe9zdyd3gH9HmwLH3LFjB23csJFDxySqy+FGdv9wfi4HzoEuIISGhiDKh/Jq1g80aFyPBVBaPn3D
|
||||
M/j6vnnl9/kz7rSn4PDXsUpwdPkdj1xFM/Y8pmI+3L5GviMEUPI3tAFYAGJJYAqx+ImVWPciacBGFsAm
|
||||
bhBO2FWA6tWrrrvxEgVc8QCIQEPrr8GD2QPskBa9ZfNmeSsYsb8YW35RJr+IQ2EqbO8gCRo1chTt5vYC
|
||||
SNdcPLqI0tqZdLQl4PJBPCx/Mx9vzeo10nPgvoPhjSCQj/YF1uEN8Du8luYF6jesSy5LSspuHxp8jf1z
|
||||
0ZgrNcWL0CdG43RcYjsLAGMAaP18w5iP5xBF5LMIe1F4j4NQBaCPuPEAGC8fWB1kSetfJmMkp7HbC1Cd
|
||||
OlWla9Uac4bAb+gJQAA7tm8nT27db9ywgVq1aCEJgdVL8gvZk4NdIUnciOHDJbmSdLZ2fdIhou18nG0q
|
||||
8Rv4WOvWraPly5fLriZ6Eziv1rbQyIeHwTrOKUMBewG0N9BLcGlQm+ovLkkup/JSI7/c1PJsLnoYHhAj
|
||||
i43t/FYWQCPufRiL+dLyQT5bfmE8nmZYxaEH0AnAURUAhlJf9cySVj9PxkhOrlvzU+1alXVWZggQAEIh
|
||||
gEEDB8pbwWi8rVmzRt6wQdy3t7WjQja2ZFvQhuxsbOSx8Lk29gXpcPEgHJaObZs2bdKRvnbtWlq9ejWt
|
||||
XLmSFi9eTMNZOOhKao1KrW0BkTk6OEgh4DdNmABEUM+lFjVcVIIan8pDLfxyUZuzOcjz9QLdoE4qNzLF
|
||||
dX7LQ1fR8HRekzHfEQJQybf3KMwCSPk7BJBQkr9cFcBatn6MGzhup+IBUKmoXEOAABAKN4uPLzas3yAb
|
||||
brhli9vD9nZ2lC9PHsoL5M5N+fPmJWf+m4EDBkiCNfeuWfr69et1pK9auYpWrFghLX/p0qU0d+5c+TAI
|
||||
bl1rU2jtCngYRw4vEAPKpYkTZYNAa9etTk2WOUnLx+CL7S/koJG389DNsNh/2BNdfvMDV4GbUPoxH619
|
||||
LebD7Wvk452EuBSAFlOEY7WEYsHjlGL+o5RixdNkigC4VzCdC9C6TSNZiYbkA5oA0NDq17evJA8tdtyy
|
||||
xWPhksWLU2G2TAcmx6FQISrCZMElwwPAS2zcuFGSDiC/apVK+rLl8qnhkiVLpOUvXLiQZs6cSQP69ZeN
|
||||
SGnxfEwJDi2FObQgxEAQEIG+EFC+mrWrUPMVReXQbBihC7dihwRkFBNulBJBofeMxuq4wkYWQF2vfLqY
|
||||
X0yL+QxJvpuDsFffVbRjpCghBaCP2PcAhaslpGVBykway58q06ugV7Dkai4avrgC1atfVVakZnUaUNGo
|
||||
ZHgAjBy6atVqGcc3MKHjx42TdwMxmBTGE8KzfSwH9O9PM6bPkGRrpAOapS9ezKQvUkhfsGABzZ8/Xz4F
|
||||
nDp1qjwHGpEgG6FFgsMLQgzW4QkgDg0oI0RarUZFarncURLfgdHpcnYadlsZ/nX5/dbiq/h93wpuuO8q
|
||||
vwQyjPk6tw/y2fDsDjiSLUMVQJx4gCgCAPkYSXsZC2BVUApa9SIFrQyyorkXs1PfKX9Q1RplpVXpLI+B
|
||||
CocI0C3DuIGwXDQE4drRENQIRgwHuQAsHPmVK1bK5//YBkvHbV6F8AU0bx6Tzi5/DhMPwPonTZok5ylA
|
||||
fAfhdmhTFCxItgUUIA9h6JcPgAgqV61ALZc6UGe+lk6MriwCkD/iTkYadS2T8Hozi4R6LyC2CTfMr783
|
||||
Vn4IonP7sHy9mC8tXyUf3y78NgGA/MWMpSyA5U9T0PJnKWgZY/HjVDTVLzu161lVdq9QqahorbJRwdje
|
||||
pXNnms/Ewfrh0rVG3BoZz1fKBzkaJOELmXCQPXeeJHn2rNk0a9YsmjljBk2fPl1i2tRpNG0ag61//Ljx
|
||||
cuRvhJVI4guQTf78Elh34DaHVjYN8ASVKpenlosdqMv57NSZ0f1iNjkOMICh4Cfcy0N3wr0kQbFNuGF+
|
||||
LQsA9yNMxXy4fY38gvuLUPI4FIAWU4QDtwHmPEwlZj9IJZY+tZKWv/KFAky2NO8aV9is5uTCrWm4/GJw
|
||||
r3ouFi1t3PmbNGGi8iYQWzPeCoL7njePCZ7N5M4EuTPZ/U9ndz6NJk+eIp8JTBg/gcaNY4wdT+O5nz/O
|
||||
dSyNZeiWHErGjR1LI0eMkGMUlylVigrbo0tpFwVoBxRlj6QrG8OJy1eyuDPVcKlAbdbYE97E6cbocTmL
|
||||
JH70tfRiNAaHZky77Sxehj00GrdjE2vujpXvIJiK+ba7Cgt8rFJwp6PIv7OIUAWgj9j3ACwA3UDKiwMV
|
||||
AaBbiFm2MFXcwgdpaY6vIw2a0Ihat25OjRu5UKOGLrxsIPv7eG9v+LBh0lUvZMteJGM4XPpC6dIlpFuf
|
||||
J+P5bBYE7utDEJq1AzO5bQAPgO04FiC9Ai+nTpkinzfg5Y7m3MXEU0E8GGrUsD41aFCPGjZAmerLMjVu
|
||||
3ICaMJo3a0xtuzSlDgtKUFfv3NTjalbqzuh1LQuNvpuBxmBYeCbfVR0pfOPzphQaERKrFm+YX313nKhy
|
||||
soCun2/vVjhKzJfks+Xn31eE8jHi0gNEEQDIx0DKiwJT0grpAXiJKdYggCcpaTGmWTvpRBN2/EHDN5Sm
|
||||
4Wtq0ewtf9HufVvp2NGjuuf7Z8+e0+H06dMMfzV/lvz9z5Cfn5/c7u/vL4dtQR5PBbFEHtvxu5+fr1zH
|
||||
+H5Y4thexz3lQyQ8J8At4w07V9K4dQOpw9Lq1HZpJWq3tCJ1WfYn9VxRgXqv/oP6rK1I/bdWpD4+BajX
|
||||
FW0I96zU+1pmGoOh4QF1gohx99PT+PsZ6PDz8UJrDyDFtgBW3hkn8D6iqZgvLV8lP697UUr2OwRgXzWh
|
||||
JB8zYC5kASx7ZsVg8hmLn6Yk7iIqs208Sc3r1jTjXlqacbMo7Xs6mV6GP9SGXZPAugbkP378GGVbRESE
|
||||
0W3a8G0A1iMiwqNsw9/ob8My8N09cnu4jAZcqkJt/AtQ2zO5qPu57NTvUlbqH5CFkZX6MfF9L2WhPrzs
|
||||
w/nejD4BmaXFy/kBWAAK+eqkEbdyiNvhR+RNIqToCP3R/Irb4+VbwKZiPty+Rn4eCKD4b5gvwL5qIjH9
|
||||
Xmox7Z61wKwaC9ji5z9SMPdhSprNmKVi6r3UNOtuAVrzsDEdD1pOr8ICJTkxBVdI1PzHD/Qi9B49fn9B
|
||||
Dxfp4bsL9IiX+jDc9uDdeTr1YjPNvNmGelwoQD0uZqWBlzPRX1cy0WDGQA28bYCK/sgHZJLE63BDA+YN
|
||||
Sium33EQL8LuGI3hv4plLIAKh2xMxnz5JZL6fWJuhqUiAH3EhQdIRHMDreV0qlPuWgvMqGlqXj1MerTm
|
||||
4XRVz79uESdezuDjp6MpOAfDVZ3FSwOmdJn0MB1NepCOMLqWnOKFlxp0M36wFcOiR3FMR3xXYjxDL8Yb
|
||||
s3j8vXYs7fhYbglqSl+E9Gq/dH2G+aW3Jsh3AE3FfEk+W35ufJe4txipAogTD6ATQCEWgDKXrnW0c+li
|
||||
5ovVD35dAHgB40aYG026k00RmArM5CXX9QQgz61CI0gDLBbkTXuYmy6+20BTbhUXsnEHsiXh6XUxHtAE
|
||||
g3mCFAEZHE8KDudOTyeDp3J5f+1jUMP8kpsT5IcopmK+tHyV/Jx7fqMAYjqXbif/7GLV/Rnq5fxchSC+
|
||||
Bn48R/OfFJTHx3k06ASgwqRHYGiETX6Qkc6/XyOPf/3tEe7XZ5Xkx9Ti4V2UY0YKDpjxKBtdfbtHlldL
|
||||
P3O96qpMi29MEHgXwFTMh9vXyM/OSPo72gAsADH5bkzm0k0rOvjnEAtvTDQa32KKV2EPxIL7JeXxowME
|
||||
EAVaWfTg/my4iNB7j//Qs/GR8d1IjJcwchwFUc83+54jtwduRyn/rwB1h/cAlJivjEcg3f4OJebjc/Sc
|
||||
jOwYm4ChCkAfse8B7KokivFcuu1P5xDLf8EDvIt4JTYHuUSxeG3dVN60R0hHmx63EZ/+Ub7cRcL5Pv0T
|
||||
Tluet+LyKi7f0OKx1LwI8pHHU46vfz6cH+X9zMfUji9X1PSj+QXXJ4oSRwqZjPmSfHWEkqxuTnHqAaII
|
||||
wFTMRwXpz6vX1i+nWHZvpno5P1YBX8RHcnvaN1rCjeX1CUH5gLXPqtKb8ECj5wv+8pi7rcVNxPh0kYSr
|
||||
ApDH1I6vnivy/OnIO3g8/SN+fFg4w/z865OE0+FCJmO+tHyVfAxRE5fTxkURgOm5dKPOn49Xmpfc/XEB
|
||||
oNF3OmQuTbid8acEoJ8HOfOf2NCbz3e/e/4HET68f5boLV4lXxOA4fmwnPk4G90O94jx9WrJMD/370ny
|
||||
nT9TMR9uXyM/cxwLQIspwrZKohjPn485bubwReDCfgQBb3dx+yLTNzH+ZzD1Tm5xI/iQ0fMY4viLaRzL
|
||||
M0ReE8DH0IexcxjDzLu2Iij0ltHzxBSouyJ7HXT9fMOYn1UdkyjzZmVcIlUA+oh9D8ACMBnzQb5sTavT
|
||||
qTb3ySUW3Zml6jlmFvD043ma96SASYv+kTxEdPl9zN/jD40IFrtetPthizeVX/Oo/jdtDnVVpujys69N
|
||||
lo9/TcV8ST5bPoapy7jTmT3AN3MHx40AUDnGYr60fr25dJuezC0W3I65AF6G3RUrnpYxWaE/mvd4Plr8
|
||||
I76qR48ZASHcHlgS6CxFLgXAx/lZAYy7nV6cCJ740+8PzLw6WeA2sKmYLy0f5MtxCotT4t8hABsWQGTM
|
||||
//5cuk1O5hHzb89WL+f7F4z+86mX88Wul21Jw+YnbX86f+ztSAr/8P6HKlzLP/pwivv1WX+YcGP5GY+y
|
||||
0I3wvfL6Ynp+Lc24OkVgfEJTMR9uXyM/fRwLQIspLIDEJmO+4fz5GOd+WsAUo/Htvw6vF1PFeLZgkPir
|
||||
mHHXRjwNvWb0PN8D6g63f03F/IybnEUGRvqNxQVGKVUFoI/Y9wAFKyeO8fz5Dbzzirm3YuYBkP5LecTu
|
||||
zU9a/7IH0NY3B9Wj9xE/9mXR1CtTRIH9jsZjPiwf5LPlY2TStDtKUKLfEQIggMiY//3581288orZN+eo
|
||||
l/NjBCD92/nXYQ/F8qelYkRw9Pl0dOD5KG6TxPyl0ilXpspbv6ZivrR8lfw021kATr9JAKZivuH8+RhQ
|
||||
YdaN/38FgPyTD/4063H2GBAcfX7i7SziepibbA9ox5crajLMT748VeR1LxI15nNrX4v5cPsa+dZxLAAt
|
||||
pogClbkNgLivi/ns9tWYPzwgoxjGGMoYciWjHNt+4uVpRuPb/0+4GXJYnHu9JlZwI/ig0XMYA+oO/X8l
|
||||
5jvpxXxnGfPTbigu0jCs15cQGKo+oSIAfcS+B2AB6MV8bvDpxXxJPlv+kJuZaDCjpmd+Mf36XFXPMbM4
|
||||
dVWm//X8hEvTBHoAWj/fMOan2VBCwPJTbytJqRiqAOLEA0QRgKmYLy1fJX/QjUyEkbWmxQtAl340P/7i
|
||||
NJGdG4A6t28Q86Xlq+RjfoKETtZxL4D8LABTMR9uXyN/4I3MhFeap/w9T72c2K+g/+v5sReni6wc+03F
|
||||
fLh9jXwrRoI4FIAWU0T+Som/ifkgXpJ/OZMYxBh4KZMYcCmzqHKkoHC9MN1ofItH9EDdZeaun9bPV2I+
|
||||
u3015qdaV0KkXFdSWK0tKTA7SYJiUgD6iAMPUCmJyZgvyWfLxxj3/RmVWACTrs1X9Rz7FvJ/PQ8BIP6b
|
||||
ivmSfDlHUSlKxrBQBBAnHiCKAEzFfGn5KvkY5x5j6468/GuvhKmrMv2v5Yf5j5NT0JiK+dLyVfItN/8m
|
||||
AeRjAZiK+XD7Gvl9GZXZA9Q43oE+fP0oLyi2K+j/ch51VuNge9noMxXz4fY18pNuLh2nAtBiCgSg6+cb
|
||||
xvz+FzOLfheziL6MPheyiMYn8oism8uJ40/8jMa4eJgG6gx1p9/PN4z5ydaUEpYMTE+XZHVpYf472gDw
|
||||
AKZiviSfLR+zXPRidDmbXfZjKx1tRxFfYv+9+f+r+dDP4bLOoov5kny2/CSbSlNihiqAWPcAsxk6AeQq
|
||||
m9hkzJeWr5Ivv607n1VUP5lfzqPX0mcIPQw2/k6eluLzH8TziFeyrlIx0bD678V8afkq+Yk2liFz+29u
|
||||
BIG7X06DGToBpCuQkPoHGI/5cPs68q9mo+7nsokul7PL+XWstpYiTKu6/eFhqXDtguWKmv6X86iT9Tf3
|
||||
ihIeLcmKCdYE8L2YD7evkZ9wbWkyy57MUADg7peTC0OLKcIyjYXotC+90ZjfiwGrB0A+Pg3ryujon13O
|
||||
r5NibSmOX2VFwW31RbOjQ0X/U5PEAN/JkTilt/4/kkcdoC5QJ6gbxHUrdvUxifmJV5UWiVaVEQlXlhEW
|
||||
k52EmVVCHU8qwN0vp2yMrwzpAczMzajufGujMV+SD8sPyEbdGCC/y5Xs1Jm9QMdLOaiuV16Rz72IVHdS
|
||||
Vi4uAi5Mh//hPOojORuItPwYxnxJPlt/gg1lybxPQYWfSOsHZ+Dul1MiRgBDd4KCtS2p79XMRmO+jnwm
|
||||
Ht8GgvxOlzHaVg5q759DYPQtDH6ISRcw5Qrm39EmQCjjYSvK6A2HLkfFlpMh2FFx3UCJheSgSXLgJAyb
|
||||
xuGliISDnMYNL1EqAyoU1g2oUOiAMvUrvq613a99Xu1ImP0TEz/KDy9YmHnx5Q0mgVQ/vlBewy4qX8nC
|
||||
FLGYHRT35vGCRrbdTpR1i5OcOxiPajPvctZ7XKsg/SZn2Y1TbuRwdw4teswtLBt2kd06APno+vmGMR+W
|
||||
D/It1pUhs9LpDAUAzsBdrKTJDN0JEic3p3aHMxqN+TryGZ1YADryGe1O5xBtWQAYe7c1o5VvLiEHYj6X
|
||||
m5oxmvrkFk3P5qHGZ/JQIwaGZ2/gr8ydH5P586ObV08Zb1+ZYCkmY+9GNyZPdN/qRfcOX3T39r8b82H5
|
||||
cP2w/llOZGaZwFAA4CzWkgPjPQMnkCjUOJnodc54zIflg3zEfkBaPsj3yyHa+OUUrXwBJv9ULtGc0ewU
|
||||
E8/kY1xcjMuPdwkl+d55hJykIYbz50c3r57hHDsmx96N4Zg8ht/nR/fevuE7fNHd2/9ezJfkrygrzJeX
|
||||
FWZ/ZtTxogJcgbNYSwkZ2xg4uFRYwqTm5LI4ncmYLy0f5MPyL+YgaflMvrR8tnpp+SAfln8WYMsH+bB8
|
||||
tnpp+Uy+tPwYzp8f3bx63xtvPybj8EX3ff5339uH5X/zPB8hIeb9fP2YLy2fBWA2zJ7MEltoVq/xA67A
|
||||
Waym4oxQhnYySp0roWh1KFM0MV8lH24flq+RD7cPy9fIh9uH5Wvkqy5fRz7cfjTz50c3r54y3r4ywZLR
|
||||
sXcx6rZGPtw+LF8jH24/mu/zo3tvP7rn+TGO+SB/fVkym+wszDJb6vhgQADgCFzFSZrFiHLCzMWSUJvj
|
||||
WX4o5jfXi/lNTMT8eqfz6cX8mM2fH928esZi/vfG3o2VmK+9zBFbMZ+Jl+QvKEFmBb8ZFAp5cBRnyZpx
|
||||
gYET6ZDJKYlo5pbFZMyXlq/GfOn2tZivzsVjGPPxNvF3Yz7jh2K+iTl2oht7N2rMj/77/KgxP/p3+H48
|
||||
5pcR0u1PYctXyDfEeQY4itPkyHjC0BQn1ZciSwKqOj29aHcuu8mYLxt8asyXlh+nMR/z6tlFmVcvuvH2
|
||||
oxuHT5L/SzH/x+7tfxPzl5YRZgNsySxdEn2L19bBCbj5LakM4ylDvwBknsBM5KmZnGpvzEStz+aIEvOl
|
||||
21djvs7tfzfms9vXxfyYzZ8f3bx6WsyP6di7Px3zNbcfWzF/bRkyH+fIff30wswisr4ZWv2DC3DyW1M5
|
||||
xjPGNwVKlMycspS1pDKu6YTL/mzU/Gyu/2Q/X077/t2Yz27/h2I+u32twfeDMd/SMOZvKEMWU5yEeff8
|
||||
ZOZoTWZJv+nna/nnDHDxryQbhg/jHwYKExXmZiJBEnORIltCkamMpchVO4XIWSuFyKGH7EBNK4lsKrLW
|
||||
UJBFh5QiM1A9pcikIqMeMlQDUon0GqqmEulUpJVILdIAVRRY6yF1ZcBapFKREqikwEpFCok0InnFSCTT
|
||||
g+WfCpL+mVZBhbQiiR4SV0gnkeiPSCRUkQAoD6QXFirMHVMLswxJhVkiC1mHRutWqXPUPTj4V5MVYzzj
|
||||
DQMFM1RofD7286hr1Dnq/j+RzBl2jMWMCIZhgePzsZNH3aKOUdeo8/9cQqGyMoYx/BlvGdqTRGMXFJ//
|
||||
fh51hzpEXf7FQN3+J4k3lXIx6jFQ+AWMDfGIEeYyUGd1GKjD+BSf4lN8ik/xKT7Fp/gUn+JTfIpP8enX
|
||||
k5nZ/wNRMrfaV7xwSAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>469, 17</value>
|
||||
</metadata>
|
||||
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 832, 393</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 832, 393</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>332, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA
|
||||
CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ
|
||||
AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////ABEQ
|
||||
AAAAAAAAAAAAAAAAARERF4iIiIiIiIiIiIiIiAERERf///////////////gBEREX///////////////4
|
||||
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
|
||||
////+AERERf///////////////gBEREX///////////////4ARERF///////////////+AERERf/////
|
||||
//////////gBEREX///////////////4ARERF///////////////+AERERf///////////////gBEREX
|
||||
///////////////4ARERF///////////////+AERERf///////////////gBEREX///////////////4
|
||||
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
|
||||
////+AERERf///////////////gBEREX///////////////4ARERF////////////3AAAAERERf/////
|
||||
//////9/+HAREREX////////////f4cBERERF////////////3hwERERERf///////////93AREREREX
|
||||
////////////cBERERERF3d3d3d3d3d3d3ERERER4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAP4AAAH+AAAD/gAAB/4AAA/+AAAf8oAAAAEAAAACAAAAABAAQAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAA
|
||||
AAAA//8A/wAAAP8A/wD//wAA////ABEAAAAAAAABEXiIiIiIiAERf//////4ARF///////gBEX//////
|
||||
+AERf//////4ARF///////gBEX//////+AERf//////4ARF///////gBEX//////+AERf//////4ARF/
|
||||
////8AABEX/////49xERf/////hxERF3d3d3dxERwAH//8AB///AAf//wAEBEcAB///AAf//wAH//8AB
|
||||
ARHAAf//wAH//8AB///AAQERwAH//8AD///AB///wA8BESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAD///8Azs7OANbW1gDe3t4A5+fnAO/v7wD39/cA///3AP/3xgD/770A7961AP/n
|
||||
rQD/9+cA/+/WAP+1QgD/rTEA/60pAP+cAAD/xnMA/71jAP+1UgD3jAAA/9alAP+1WgDWcwAA53sAAO+E
|
||||
AAD/794A/+fOAP/37wD/3r0A786tAP/WrQD/zpwA98aUAN6lawDenFoA3pRKAN6MOQDnrXsA/9a1APfO
|
||||
rQDvxqUA772UAOe1jAC9YxgA/+fWAP/exgDevaUA972UAP/OrQDerYwA/9a9AN61nADnvaUA3qWEANac
|
||||
ewD/7+cA/97OAM6UewDGjHMA1q2cAM6llADWnIQAtYRzAK17awC9hHMAxoRzAK2EewC9e2sAtXNjAMac
|
||||
lAC9lIwAtYyEAKV7cwCte3MApXNrALV7cwCtc2sAvXNrALVrYwCtY1oA9+/vAP/39wD3zs4A/87OAP/G
|
||||
xgD/vb0Ae1paALWEhACte3sA/7W1AKVzcwCca2sA/62tAJRjYwD/paUAjFpaAJxjYwC1c3MAhFJSAP+c
|
||||
nACUWloAjFJSAK1jYwCESkoApVpaAJxSUgClUlIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAbm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
bm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
blhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYbm5ubm5ubm5ubm5ua2thYWFhYWdkZGRk
|
||||
ZGRkZGRkZGRkZGRkZGRkZGRkZGRpaWlYbm5ubm5ubm5ubm5ubFRVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
|
||||
VVVVVVVVVVVVIWlYbm5ubm5ubm5ubm5ubAEcLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgICAyMjIyVWRY
|
||||
bm5ubm5ubm5ubm5ubAEcOi8vLy8vLy8vHh4eHh40NCgoKCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5u
|
||||
agEcHBwvLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5uagIcHBwcOi8vLy8v
|
||||
Ly8eHh4eHh40NCgoKCgoKCgoICAgVWRYbm5ubm5ubm5ubm5uagIcHBwcHDovLy8vLy8vLx4eHh4eNDQo
|
||||
KCgoKCgoKCAgVWdYbm5ubm5ubm5ubm5uagIcHBwcHBwcLy8vLy8vLy8eHh4eHjQ0NCgoKCgoKCggVmFY
|
||||
bm5ubm5ubm5ubm5uUQIuHBwcHBwcHC8vLy8vLy8vLx4eHh4eNDQoKCgoKCgoVmFYbm5ubm5ubm5ubm5u
|
||||
UQIuLi4cHBwcHBwcLy8vLy8vLy8eHh4eHh40KCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4cHBwcHBwc
|
||||
HC8vLy8vLy8vHh4eHh4eNCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4uLhwcHBwcHBw6Ly8vLy8vLy8e
|
||||
Hh4eHjQ0KCgoV2FYbm5ubm5ubm5ubm5uUAMNLi4uLi4uHBwcHBwcHC8vLy8vLy8vHh4eHh40NCgoV2ZY
|
||||
bm5ubm5ubm5ubm5uUAMNDS4uLi4uLhwcHBwcHDovLy8vLy8vLx4eHh4eHjQ0V2ZYbm5ubm5ubm5ubm5u
|
||||
RgMbDQ0uLi4uLi4cHBwcHBwcOi8vLy8vLy8vHh4eHh40V19Ybm5ubm5ubm5ubm5uRgMbGxsNDS4uLi4u
|
||||
LhwcHBwcHDovLy8vLy8vLx4eHh4eW19Ybm5ubm5ubm5ubm5uTwMbGxsbDQ0uLi4uLi4cHBwcHBwcLy8v
|
||||
Ly8vLy8vHh4eW19Ybm5ubm5ubm5ubm5uTwQbGxsbGw0NLi4uLi4uHBwcHBwcHDovLy8vLy8vLx4eW2JY
|
||||
bm5ubm5ubm5ubm5uRQQbGxsbGxsbLi4uLi4uLi4cHBwcHBwcLy8vLy8vLy8eW11Ybm5ubm5ubm5ubm5u
|
||||
RQQbGxsbGxsbGw0NLi4uLi4uHBwcHBwcHC8vLy8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5ORsbGxsbGxsN
|
||||
DS4uLi4uLi4cHBwcHBw6Ly8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5OTkbGxsbGxsbGw0uLi4uLi4uHBwc
|
||||
HBwcOi8vLy8vW11Ybm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsNDS4uLi4uLhwcHBwcHDovLy8vXl1Y
|
||||
bm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsbGw0NLi4uLi4cHBwcHBwcLy8vXl1Ybm5ubm5ubm5ubm5u
|
||||
OwQMDDk5OTk5GxsbGxsbGxsNLi4uLi4uHBwcHBwcHDovXlxYbm5ubm5ubm5ubm5uOwUdDAwMOTk5OTkb
|
||||
GxsbGxsbDS4uLi4uLi4cHBwcHBwcXlxYbm5ubm5ubm5ubm5uOAUdDB0MDDk5OTk5GxsbGxsbGw0NLi4u
|
||||
Li4uHBwcHBwcYFxYbm5ubm5ubm5ubm5uOAUdHR0MDAwMOTk5ORsbGxsbGxsbDS4uLi4uLhwcHBwcYEpY
|
||||
bm5ubm5ubm5ubm5uPwUdHR0dDAwMDDk5OTkbGxsbGxsbGw0NLi4uLi4uHBwcYEpYbm5ubm5ubm5ubm5u
|
||||
PwUdHR0dHR0MDAwMOTk5GxsbGxsbGxsNDS4uLi4uLhwcYEpYbm5ubm5ubm5ubm5uNwUdHR0dHR0dHQwM
|
||||
OTk5OTkbGxsbGxsbDQ0uLi4uLi4cYFpYbm5ubm5ubm5ubm5uN1JTHR0dHR0dHR0MDDk5OTk5GxsbGxsb
|
||||
GxsNDS4uLi4uZVpYbm5ubm5ubm5ubm5uMwZTUx0dHR0dHR0MDAwMDDk5OTkbGxsbGxsbDQ0uLi4uZURY
|
||||
bm5ubm5ubm5ubm5uMwYHB1NTHR0dHR0dHQwMDAw5OTk5GxsbGxsbGxsNLi4uZURYbm5ubm5ubm5ubm5u
|
||||
LAYHBwdTUx0dHR0dHR0dDAwMOTk5ORsbGxsbGxsNDQ0uZURYbm5ubm5ubm5ubm5uLAYHBwcHB1MdHR0d
|
||||
HR0dHQwMDDk5OTkbGxsbV1tbXl5gZVlYbm5ubm5ubm5ubm5uLAYHBwcHB1NTHR0dHR0dHR0dDAwMOTk5
|
||||
GxtISElJSUlZY2pYbm5ubm5ubm5ubm5uKwYABwcHBwcHU1MdHR0dHR0dHQwMDDk5OTlMFBEVGhkYLVhu
|
||||
bm5ubm5ubm5ubm5uKwAAAAAHBwcHB1NTHR0dHR0dHR0MDAw5OTlOIRQODxAmWG5ubm5ubm5ubm5ubm5u
|
||||
MQAAAAAABwcHBwdTU1MdHR0dHR0dDAwMDDlBFhcUDiVYbm5ubm5ubm5ubm5ubm5uMQAAAAAAAAAHBwcH
|
||||
B1MdHR0dHR0dHQwMDAxLCxMXJFhubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAABwcHBwdTUx0dHR0dHR0d
|
||||
DAxNCRIjWG5ubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAAAAAHBwcHB1NTHR0dHR0dHQxACCdYbm5ubm5u
|
||||
bm5ubm5ubm5ubm5uIQAAAAAAAAAAAAAGBgYGBgYGBgYGUlIFBQVAClhubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
ISgoICkpKR8qKio2NjAwNTU1PT09Pj4+R0dCSW5ubm5ubm5ubm5ubm5u////////AAD///////8AAP4A
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAA/8AAPwAAAAH/wAA/AAAAA//AAD8AAAAH/8AAPwA
|
||||
AAA//wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD//v0A/f39AP/9
|
||||
/AD8/PsA//z5AP/8+AD7+/sA/vv3AP/69gD5+fkA//n1AP759AD3+PcA//jzAP748wD++PIA//fxAPb2
|
||||
9gD+9/EA9fb2AP738AD+9vAA/vbvAP717wD09PQA/vXuAP717QD99e0A/fXsAPLz8wD+9OwA/vTrAP30
|
||||
6wDx8vIA/vPqAP3z6gD+8+kA/fPpAP7y6QD+8ugA/fLoAP3y5wDv8PAA/vHnAP7x5gD98eUA/fDmAO7u
|
||||
7wD98OUA/fDkAP3v5QD97+QA/u/jAP3v4wD97+IA/e7jAP3u4gDs7OwA/e7hAAAAAAD97eEA/e3gAOrr
|
||||
6gD97d8A/ezfAP3s3gD87N4A/ezdAP3r3gD97NwA6OnpAP3r3AD869wA/evbAP3q2wD86tsA/eraAPzq
|
||||
2gD96tkA5ufnAP3p2QD86dkA/enYAP3p1wD86NkA5eblAPzo2AD86NcA/OjWAPzn1wD959YA/OfWAPzn
|
||||
1QDj5OQA/OfUAPzm1QD859MA/ufSAPzm1ADi4+MA/ObTAPzm0gD85dMA/OXSAPzl0QD75dEA/OTRAPzk
|
||||
0AD75NAA/OTPAPvkzwD749AA/OPPAPzjzgD85MwA++POAPzjzQD84s4A/OLNAPvizQD84swA++LMAPvi
|
||||
ywD84cwA/OHLAPvhywD74coA+eHKAPzgygD74MoA/ODJAPvgyQD74MgA+9/IAPvfxwD738YA+97HAPve
|
||||
xgD73sUA9t3HAPvdxQD73cQA+93DAPTcxwD73MMA+tzDAPvcwgD63MIA+9vBAPvbwAD628AA8tnFAPva
|
||||
vwD927sA+tq+APvavQD72b4A+tm+APDYwwD62b0A+9i8APrYvAD62LsA+ti6AO7WwgD617oA+te5APrX
|
||||
uAD61rkA/dK/APrWuAD617YA+ta3AOzUwAD61bgA+tW2APnVtgD21bUA+tS1APrUswDp0b4A+tOzAPnT
|
||||
sgD+1awA9NK0APnSsAD60a4A8dCyAObNuwDu0bAA7dCvAOTMuQD/2JYA782xAOLKuQDtzK8A7MquAN/H
|
||||
twDexrYA6sesAP/MmQDcxLQA68eoAOfEqwDawrMA5sKpANjAsgD/zoUA5MGoANa+sADiwKYA68CeAPez
|
||||
swDTu68A372lANy7pADQuKwAzrerAPesrADMtakAybKoAM2xqADltpEA9qGiAP+9YADVpZkAzK2KAPia
|
||||
mgDRo5MA/rVUAM2ekQDJmY4Ax5iNANiViQCqmpAAxpaMAMWVjADWk4cA1ZOGAMOTjADXkoQAw5KLANaP
|
||||
gwDLmXMA0JxoAO6hRwD/qTEAu4puAPyiIgDLj1MA55U4AN6LNgDVgjUAAAAAAGZmZgD+/v7+/v7+/v7+
|
||||
/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+///////////////////////////////+/v7+/v7+/uXi
|
||||
5+jp6ezt8PLy8vLy8vLy8vLy8vDq//7+/v7+/v7+3qqqqqqqqqqqqqqqqqqqqqqqqqqqye7//v7+/v7+
|
||||
/v7dZISGio2SlZaZoKKnq7GztLe6u7uq7v/+/v7+/v7+/txkfoKGh4uOlJebnKGkp6+ws7a2uqrv//7+
|
||||
/v7+/v7+2l51fYGEh4uOkZeWnqGjpquss7O3qu///v7+/v7+/v7ZVm91en6Dh4qNj5WXm6CipqitsLaq
|
||||
7//+/v7+/v7+/tZQam5xd36ChYqNj5SVmZ2goamtsKrv//7+/v7+/v7+1kdlaGlxcnyBhIeLjpOVlpuh
|
||||
o6aoqu///v7+/v7+/v7SR11jZWlxdHl+hIeKjY6TlpmeoKaq7//+/v7+/v7+/s8/WFxjZ2lsdHd9hIWH
|
||||
io6TlZmdoqrv//7+/v7+/v7+zT9NU1hdY2htcXR5fYOHi42SlJaZqu///v7+/v7+/v7KOkhOUlRcY2Zp
|
||||
b3Z5fYKFio2PlJeq7//+/v7+/v7+/sc6QkhKUVdcY2dobG91eYKFh4qOkarv//7+/v7+/v7+xjBAQ0RJ
|
||||
TVdZXWFnaXFyeX6BhoiLqu///v7+/v7+/v7DKzk9QURKTFFXXGNnaWxyd3uBhomq7//+/v7+/v7+/sAi
|
||||
NDY9QENGS1JTWF9jamtueHl/hKrv//7+/v7+/v7+vSIsMTY5PkNESk5SWF1jZWtwcnh9qu///v7+/v7+
|
||||
/v61HikqLjU3O0FCSE5RUlxgZWlscniq7//+/v7+/v7+/rUZIyYsLTQ4OUBCSUpPV1ldY2hrbqrv//7+
|
||||
/v7+/v7+rhQdISYqLTE2OT1BRExOVVRbY2hqqu///v7+/v7+/v6lEhccICMnLC8yNjtBQkhMUVdcX2Wq
|
||||
7//+/v7+/v7+/p8NFhgaHyEmKS80NjtAQkNLUVdaXaru//7+/v7+/v7+mA0QExYaGyAlKS0xNjk+QENI
|
||||
TVJYqvP//v7+/v7+/v6QCgsPEBUaGx0jJyotNDc7PkXV2+Dk8f/+/v7+/v7+/owHCAkMEBMXGh8jJigt
|
||||
MzY73/b7/P34//7+/v7+/v7+gAQFCAkMDhAVGhshIygqMTTU4ff5+v/+/v7+/v7+/v57AgMFBggLDBAT
|
||||
FxsfJCYsMcvQ5vX//v7+/v7+/v7+/nMBAQMFBgkJDA8RFxwcJCYsv8H0//7+/v7+/v7+/v7+YgACBwoN
|
||||
FBkiKzA6P0dQXmS+4//+/v7+/v7+/v7+/v64mqissrm8wsTFyMzO0dPX2M7r/v7+/v7+/v7+//////gA
|
||||
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
|
||||
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAH/AAAD/wAAB/8AAA//AA
|
||||
Af8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4JJBAPemQwBmZmYArntuALWC
|
||||
cgC7iHUA6rN3AMKPeQDIlXwAs4h+AM+cgADVooMA1qOEANyphwDeq4gAuI6LALaRiwDBlpMAxJmVAMac
|
||||
lgDJnpcA0qSXANOmmADMoZkA1qiaANmtnQDuvaUA77+oAPWzqgDwwasA+tCuAPDDrwDxxbEA+dKxAPrT
|
||||
sQD61LQA8si1APrVtQD71bYA8sm3APrWuAD717gA+9e5APTJugDzzLoA+ti7APvZvAD62rwA8829APvZ
|
||||
vgD62r4A+9q/APrbvwD728AA+tzBAPvcwgD73MMA+93DAPvcxAD73sQA+97GAPvfxgD738cA++DIAPvg
|
||||
yQD74coA/OHKAPvhywD84csA/9XMAPzizAD74s0A++POAPzjzgD85M8A/OTQAPzk0QD85dEA/OXSAPzl
|
||||
0wD85tMA/ObUAPzn1AD85tUA/OfWAP3n1gD86NcA/OjYAP3p2AD96dkA/OraAP3q2gD86tsA/evbAPzr
|
||||
3AD8690A/ezdAP3s3gD97N8A/e3fAP3u4AD97eEA/e7hAP3u4gD97+IA/e/jAP3v5AD98OUA/vDlAP3x
|
||||
5gD98ecA/fLnAP3y6AD+8ukA/fPqAP7z6gD98+sA/fPsAP307AD+9OwA/fXtAP717QD+9e4A/vbuAP72
|
||||
8AD+9/EA/vjxAP748gD++PMA/vn0AP769QD/+vcA//v3AP/7+AD//fsA//77AAAAAAD///8AAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiAICAgICAgICAgIC
|
||||
AoiIiAMZGBYVFxQTEhEQDwKIiIgERD87NzItKSMhHhoCiIiIBUpGQDw4My4oJSIbAoiIiAdSTElCPjo1
|
||||
LyomHQKIiIgIV1NOSUM/OzYxLR8CiIiICl9bVFBKRkA8NzQgAoiIiAtkYFxWUExHQT05JAKIiIgNbGZi
|
||||
XVhTTUhCPicCiIiIDXJtaWNeWVVPSkQsAoiIiA14c29qZWFaVlBLMAKIiIgNf3p2cGtnYVtXUSsCiIiI
|
||||
DYOAfHdxbWhFRRwJAoiIiA2GhIF9eXRuAQEAAoiIiIgNiYeFgn57dQ0GAoiIiIiIDQ0NDQ0NDgwNAoiI
|
||||
iIjgAf7+wAFqbsABfoLAAY2PwAGZncABqa3AAe//wAH+/sAB/v7AAWVowAFyfMABh4vAAZWWwAOjpsAH
|
||||
7//AD/7+KAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAACsrAAY3EhIOORwOEjMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMa
|
||||
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMRgMFTMaDRQzGg0UMxoNFDMa
|
||||
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQ5HA4SNxISDisrAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfChkzHA43NBwOSTQaDU8zGg1QMxoNUDMaDVAzGg1QMxoNUDMa
|
||||
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMhwNUTMa
|
||||
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDQaDU80HA5JMxwONzMfChkrKwAGAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMcDjczGg14MhsNojMaDa4zGg2vMxoNrzMa
|
||||
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMa
|
||||
DbA0HA+yMxoNsDMaDbAzGg2wMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa4yGw2iMxoNeDMc
|
||||
Djc3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJJfX/+QXV3/j1xc/45b
|
||||
W/+NWlr/jFlZ/4tYWP+JVlb/h1RU/4dUVP+GU1P/hFFR/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQ
|
||||
UP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+CT0//gE1N/39M
|
||||
TP+ATU3/MxsNoTQYDko5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJRh
|
||||
Yf/yzMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
|
||||
zP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
|
||||
zP//zMz//8zM///Mmf+BT0//MxoNrjQaDU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAJRhYf/MzMz/++DH//vfxv/738X/+97F//vdxP/73MP/+tvB//vcwP/72sD/+tq+//vZ
|
||||
vv/62bz/+9i7//vYuv/617n/+ta4//rVt//61bb/+tW1//rUtP/607P/+tOy//nSsP/50a//+dGv//rR
|
||||
rv/60Kz/+c+s//nPq//6zqn/+c2o///Ky/+CUFD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJViYv/Nzc3//OHJ//vfyP/738f/+97G//vexf/73cT/+9zD//vc
|
||||
wv/728D/+9vA//vavv/72r3/+9m9//vYu//62Lr/+9e6//vXuP/61rf/+tW3//rVtf/61LT/+tOz//rT
|
||||
s//60rH/+tKw//rSr//50a7/+tCt//nQrP/5z6v/+s6q///Jyf+EU1L/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJdkZP/Ozs7/++HK//vhyf/74Mn/+9/H//ve
|
||||
xv/73sX/+97E//vcw//73ML/+9zB//vbwP/727//+9q+//vZvf/62Lv/+ti7//rYuv/717n/+ta4//rV
|
||||
t//61bb/+tW1//rUs//507L/+tKx//rSsP/50a//+dGu//nQrv/6z6z/+c+r///IyP+FVFP/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhlZf/Q0ND/++HL//zi
|
||||
y//84Mr/++DJ//vfyP/838f/+97G//vexP/73cP/+9zC//vbwv/728H/+tq///vavv/62b7/+9m8//vY
|
||||
u//72Lr/+te5//vXuP/61bf/+tW2//rVtf/61LT/+tSy//rSsv/50rD/+tKw//nRrv/60K7/+tCs///G
|
||||
x/+HVVT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
Zv/R0dH//OPN//zizP/84cz//ODK//vhyf/838j//N/H//vexv/73sX//N7E//vcw//73ML/+9zB//va
|
||||
wP/72r//+tq+//vZvf/62Lz/+ti6//vXuf/617n/+ta3//rVt//61Lb/+tS0//rTs//507P/+tKx//rS
|
||||
sP/60a//+tCu///Fxf+IV1b/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAJxpZ//S0tL//OPP//zjzv/74s3/++LM//zhy//74cn/++DI//zfx//83sf//N7G//ve
|
||||
xP/73MP/+9zC//vbwf/728D/+9q///vZvv/72b3/+ti8//vYu//717r/+9a5//rWuP/61bf/+tW2//rU
|
||||
tP/61LT/+tSy//rTsv/60rD/+dGv///Dw/+JWVf/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5raP/T09P//OXQ//vkz//8487//OLN//zhzP/74cv/++HK//vg
|
||||
yP/738f/+97G//zexf/73sX/+93E//vcw//73ML/+9vA//rawP/62r7/+tm+//rYvP/62Lv/+9i6//rX
|
||||
uf/617j/+ta3//rVtv/61LX/+tS0//rTs//607L/+dKx///Cwv+LWVj/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFuav/V1dX//OXS//zk0f/849D//OPO//zi
|
||||
zf/84sz//OHL//vhyv/84Mn/++DI//vex//73sb/+93F//vdxP/73cP/+9zB//vcwf/727//+9q+//va
|
||||
vf/72b3/+ti7//rYu//617r/+ta4//rWt//61rb/+tW1//rUtP/607P/+tOz///BwP+MW1r/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNwa//W1tb//ObT//zl
|
||||
0v/85ND/++TP//zkzv/7483/++LN//vizP/84Mv/++HJ//vgyP/738f/+97G//vexf/73sT/+93E//vc
|
||||
wv/73MH/+9vA//rav//62r7/+9m9//rZvP/62Lr/+ti5//vXuf/61rf/+tW3//rVtv/61bT/+tOz//+/
|
||||
v/+NXVv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVy
|
||||
bP/X19f//ObU//zm0//85tL//OXR//zk0P/848///OPO//vizf/74sz/++HL//zhyv/84Mj/+9/I//ve
|
||||
x//73sX/+97E//vdw//73MP/+tzB//vbwP/728D/+9q+//vavf/72Lz/+ti7//rYuv/617n/+ta4//rW
|
||||
tv/61bb/+tS0//++vf+OX1z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAKh1bv/Y2Nj//OfW//zm1f/85tP//OXS//zl0f/85ND//OPQ//zjzv/84s3//OLN//vh
|
||||
y//84Mr/++DJ//vgyP/738f/+97G//vexf/73cT/+9zD//vcwv/728H/+9vA//ravv/62r7/+9m8//vY
|
||||
vP/617r/+9i5//rXuP/61bf/+ta3//+8vP+QYF7/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKt4b//a2tr//OjX//zn1v/859X//ObU//zm0//85dL//OXR//zk
|
||||
0P/848//++LO//vizP/84sv/++HL//zgyv/738j/+9/H//zfxv/83sb/+93E//vdw//73MP/+9vB//rb
|
||||
wP/72r//+9q+//vZvf/62bv/+ti6//rYuv/617n/+ta4//+7uv+SYV//MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK57cP/b29v//ejZ//zo1//86Nf//OfV//zn
|
||||
1P/85tT//OXS//vl0f/85ND//OPP//vjzv/84s3/++HM//zhyv/74Mr//ODI//zfyP/738f/+97F//vd
|
||||
xP/73cT/+9zC//rbwv/628D/+tu///vavv/72b3/+tm8//rYu//62Lr/+te5//+6uf+SY2H/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB9cf/c3Nz//OnZ//3p
|
||||
2f/86df//OjW//zo1f/85tX//ObU//zm0//75dH/++TQ//zj0P/8487//OLN//vhzf/74cv/++HK//vg
|
||||
yf/738j/+97H//vexf/73sX/+93E//vcw//63ML/+9vB//vbv//72r7/+tm+//vZvP/72Lv/+te7//+4
|
||||
uP+UZGL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJ/
|
||||
c//d3d3//Orb//zq2v/96tn//OnY//zo1//86Nb//efV//zm1P/85tL//OXS//zk0f/849D//OPP//zi
|
||||
zv/84sz/++HM//vhyv/84Mn//ODI//vfx//73sb/+97F//vdxP/73cP/+9zC//vcwf/628D/+9u///rZ
|
||||
vv/62bz/+ti7//+2t/+VZmT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAALaDdP/f39///Ovc//3q2//96tv//enZ//zp2P/96Nf//OjW//zn1f/85tT//OXT//zl
|
||||
0v/85NH//OTQ//vjz//8487/++LN//ziy//84cv/++DJ//vgyP/838j//N/G//vexf/73sT/+93D//vc
|
||||
wv/73ML/+9vB//vawP/72r7/+tq9//+1tf+XaGX/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAALiFdf/g4OD//eze//zr3f/969z//Ora//zq2v/86dn//OnY//3n
|
||||
1v/859X//OfV//zm0//85tL/++XR//zk0P/749D/++PO//zizf/74sz/++HL//vgyv/74Mn/++DI//zf
|
||||
x//73sb/+93F//vdw//73MP/+tzC//vbwf/727//+9q+//+0tP+YaWf/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuId//h4eH//O3f//3s3//87N3//evc//3q
|
||||
2//86tr//OnZ//zp2P/96Nf//OjV//zn1f/85tT//ObT//zl0v/75ND//OTP//vjzv/8487//OLN//vh
|
||||
y//84cr//ODJ//vgyP/738f/+97G//vexf/73cT/+93D//vcwv/73MH/+9vA//+ysv+Zamj/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL6LeP/i4uL//e7g//3t
|
||||
4P/97d7//eze//3r3P/86tz//Ora//3p2f/86dj//ejX//zo1v/859X//OfU//zm0//85tL//OXR//vk
|
||||
0P/85M///OLO//zjzP/84cv//OHK//vhyf/74Mn/+9/I//vfx//73sb/+97F//vdxP/73ML/+tvC//+w
|
||||
sf+bbGr/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCN
|
||||
ef/k5OT//e7i//3u4f/87eD//ezf//3s3v/9693//evc//3r2//96dr//enZ//zo2P/859f//OfV//zn
|
||||
1P/85tT//ObS//zl0f/85ND/++PQ//zjzv/7487/++LM//vhy//74cr//ODJ//vfyP/83sb//N7G//ze
|
||||
xf/73sT/+9zC//+wr/+cbWv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAMOQe//l5eX//fDj//3v4v/97uH//e3g//3t4P/87N7//evd//3q3P/969v//Ora//3p
|
||||
2f/96dj//OjW//zo1f/859X//ObU//zm0v/85dL/++XQ//zkz//848//++PN//vizf/74sz/++HK//vg
|
||||
yv/738j/+9/H//vfxv/73cX/+97E//+urf+db2z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMWSff/m5ub//vDl//3v5P/+7+P//e7h//3u4P/97d///e3e//3r
|
||||
3f/8693//erb//3q2v/86tn//enY//zp1//86Nb//OfW//zm1P/85tP//OXS//zl0f/85ND/++TP//vi
|
||||
zv/84s3//OLM//vhyv/74Mn//ODJ//vfx//738b/+97F//+srf+fcW3/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMiVfv/n5+f//fHm//7w5f/97+T//u/j//3u
|
||||
4v/97uH//e3g//3s3//8693//Ovd//zq2//969r//era//zp2P/96df//OfX//3n1f/859X//ObU//zl
|
||||
0v/85NH//OTQ//zjz//8487//OLN//zizP/74cv//OHK//vgyf/738j//N/H//+rq/+gcm//MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMqXf//p6en//fLn//3x
|
||||
5v/98eb//fDl//3v4//97uL//e7h//3t4P/97eD//eze//zr3f/869z//erb//zp2v/96dn//OjY//zo
|
||||
1//959b//OfV//zm0//85dL//OXS//vl0f/75ND/++PP//zizf/74s3//OHL//zgyv/74Mr/++DI//+p
|
||||
qf+hdHD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM2a
|
||||
gP/q6ur//vLp//7x5//98uf//fDm//3w5f/+7+P//e7j//3u4f/97eD//e3g//3s3//97N7//evc//zq
|
||||
2//96tv//erZ//zo2P/96Nf//OfW//zn1f/85tT//ObT//zm0f/85NH//OTQ//zjzv/7487//OLN//zh
|
||||
y//74cv/++DK//+oqP+idXL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAANCdgf/r6+v//fPq//7y6f/98uj//fHn//7x5v/98OX//fDk//3v4v/97uL//e7h//3t
|
||||
4P/97N///eve//3r3P/969v//era//zp2v/86dj//OnX//3o1v/859X//ObU//zm0//85tL//OXR//zk
|
||||
0f/848///OPO//vizf/74sz/++HL//+np/+jd3P/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANOggv/s7Oz//fTs//3z6v/98+r//fLo//3x5//98eb//vDl//3w
|
||||
5f/+7+T//e/j//3u4f/97eD//e3f//3s3v/97N3//Ovc//3q2//96tr//OnZ//zo2P/96Nf//OjV//zn
|
||||
1P/859P//OXT//vl0f/85dD//OPQ//vjzv/84s7/++LM//+lpf+leXT/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWihP/u7u7//vXt//707P/+8+v//vPq//3y
|
||||
6P/98uj//fHn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97N///eze//3r3P/869v//Ora//3p
|
||||
2f/96dj//ejX//zo1v/859X//OfU//zm0//85dL//OTR//zk0P/75M///OPO//+kpP+menb/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANilhf/v7+///vXu//71
|
||||
7f/+9Oz//fPr//7z6v/+8+r//vLo//3y5//+8eb//fDl//3v5P/97uP//e/h//3u4P/97eD//O3f//zs
|
||||
3v/9693//erc//zq2//86tn//enY//3o1//86Nf//efV//zn1f/85tP//OXS//zl0f/85ND/++TP//+i
|
||||
o/+oe3f/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANqn
|
||||
hv/w8PD//vbw//727//99u3//vTt//306//+8+v//vPp//3y6f/+8uj//fHn//3w5f/97+T//e/k//7v
|
||||
4v/97uH//e3g//3t3//97N7//evd//zr3P/969v//era//zp2P/86Nj//OjX//zn1v/95tX//efU//zm
|
||||
0//85dH//OXQ//+goP+pfXj/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAN2qiP/x8fH//vfx//738P/+9e///fbu//717f/99Oz//vTr//3z6v/98+n//fHn//7x
|
||||
5v/98eb//fDl//3w5P/97+P//e7i//3u4f/97eD//e3f//3r3f/969z//erc//zq2v/96dn//OnY//zo
|
||||
1//86Nb//OfU//zm1P/85dP//OXS//+gn/+qf3n/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOCtiv/z8/P//vjz//738v/+9/D//vbw//327v/+9e3//fTt//30
|
||||
6//+8+r//fLp//7y6f/+8ef//vDm//3w5f/98OT//e/j//3u4v/97uH//e3g//3s3//97N7//Ozd//3r
|
||||
3P/96tr//OnZ//zp2P/96dj//OfW//zn1f/85tX//ObU//+enf+rgHv/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOOwi//09PT///j0//748//++PL//vfx//73
|
||||
8P/+9u///vXu//707P/+9Ov//vPr//3y6v/+8un//fLo//3x5v/98OX//fDk//3v4//97+L//e7h//zu
|
||||
4P/97d///Oze//3r3f/869z//erb//3q2v/86dn//ejX//zo1//86Nb//OfV//+cnf+sgn3/NBsNrTQa
|
||||
DU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOWyjP/19fX//vn2///4
|
||||
9P/++PP//vfy//748f/+9/D//vXv//727v/99e3//vTs//706//98ur//vLp//3y5//98ef//vHm//7v
|
||||
5f/97+P//e/i//3v4v/87uD//ezf//3s3//97N3//Ovc//+8vf//uLf//7Oz//+urv//qan//6Sk//+g
|
||||
n/+ug37/Nx4RozgcEUk5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOe0
|
||||
jv/29vb//vr3//769v/++fT//vj0//748//+9/H//vfx//727//+9u///fXt//717f/+8+v//vPr//7y
|
||||
6f/+8uj//fLn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97d//upGK/7mPiP+2jIb/tYqF/7OI
|
||||
hP+yh4P/sYaB/7BwcP+bamn/OyEVhUAgFzg7JxQNAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAOq3j//4+Pj//vv4//769//++fb///n1//749P/++PL//vfy//738f/+9vD//vbu//31
|
||||
7v/+9e3//vPr//7z6//98+r//vLp//7y6P/98eb//fDl//7v5f/97+T//e7i//3u4f/97eD/pXJs//+0
|
||||
Uv//mQD/9Y8A/+uFAP/gegD/1nAA/79mGf9+UU7XQSUZUkQiGh5VKysGAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO26kP/5+fn//vz6///7+P//+/f//vr2//759v/++fT//vjz//73
|
||||
8v/+9/H//vbw//727//+9e7//vXt//716//+8+v//vLq//3y6f/98ej//fHn//3x5v/98OX//e/k//3v
|
||||
4//97uH/qHVu///Mmf//tFL//7BE//+rNv//qC3/2Yw5/4BTUNhAIxpXRyMcJE0zGgqAAAACAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPC9kf/6+vr///37///8+v///Pn///v4//76
|
||||
9v/++vb//vn1//758//++PP//vfx//738f/99vD//vXv//717v/+9Oz//fTr//3z6v/98+n//fHo//3x
|
||||
5//98eb//fHl//3w5P/97+P/q3hv///Wo///t1v//7RS//+wRP/bk0n/g1ZS2EMmGldFKRwlRi4XC4AA
|
||||
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPAkv/7+/v///38///9
|
||||
/P///Pv//vz5//77+P/++/f///r2//759f//+fT//vjy//748v/+9/D//vbv//727//+9e3//fXs//70
|
||||
7P/98+r//vLp//3y6f/98ef//vDm//3w5f/98OX/rntw///grf//u2f//7db/92bW/+HWlTYQyYaV0Up
|
||||
HCVGLhcLgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPXC
|
||||
k//9/f3///7+//7+/P///fz//vz7//78+f/++/j//vv3///69v/++fX//vj0//749P/++PL//vfx//72
|
||||
8P/+9u///vXu//307f/99Oz//vTr//7z6v/+8un//fHo//7x5//98Ob/sH1x///ruP//wHT/3qFq/4pd
|
||||
VthDJhpXRSkcJUYuFwuAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPfElf/+/v7//////////v///v3//v78//79+////Pr///v4///79///+vf///r2///5
|
||||
9f//+PP///jy//748f/+9/D//vbw//717v/+9e3//vTs//7z7P/+8+r//vLp//7y6P/98ef/sn9z///1
|
||||
wv/gqHv/jmFX2kYpHVhMKRwlRi4XC4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPrHl/////////////7+/v/9/f3//Pz8//z8/P/7+/v/+vr6//r6
|
||||
+v/5+fn/+Pj4//f39//39/f/9vb2//X19f/19fX/9PT0//Pz8//z8vL/8vHw//Hw7//w7uz/8O3r/+/s
|
||||
6f/u6+j/toN0/+zftv+OYlbkRikbaUsyJSlVKxUMgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP7Lmf/81rH/+tSw//jRrv/1z63/882r//HL
|
||||
qv/uyKn/7MWo/+rDpv/owaX/5b+k/+O9ov/guqH/3ref/9u1nv/as53/17Gb/9Wumv/SrJn/0KqY/86n
|
||||
lv/LpZX/yaOU/8agkv/EnpH/uIV1/7WCdJ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPwAAAAADwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
|
||||
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
|
||||
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAA8AAPwA
|
||||
AAAAHwAA/AAAAAA/AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAP/8AACgAAAAgAAAAQAAAAAEA
|
||||
IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxISDjYXDyE0GhAxNhsNOTQa
|
||||
DTszGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMa
|
||||
DTw0Gg07MhsOODQaCjE2Fw8hNxISDlUAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2Fw8hNBoNTjMb
|
||||
DXMzGw2GMxoNizMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMa
|
||||
DYwzGg2MMxoNjDMaDYs0Gw2FMxsNczIaDU02Fw8hQCAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAM2b
|
||||
iuvSn5Pwy5qN9siXi/nGlov6xpaL+sWUivrEk4r6wpGJ+sKQifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQ
|
||||
ifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQifnXkob4MxsNczQaEDFAFRUMAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAzbGo//3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3S
|
||||
v//90r///dK///3Sv//90r///dK///3Sv//90r///8yZ/9WRhfo0GQ2FMRsNOTsUFA0AAAABAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADJsqj/4eLi//vgyf/738j/+97G//vdxf/63MP/+9vB//vawP/62r//+tm9//rY
|
||||
vP/617n/+ta4//nVtv/51LX/+tSz//nTsv/50rD/+tGv//rRrf/90r//1ZGF+zMaDYs0Gg07NxISDgAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMy1qf/i5OP/++HL//vgyv/738j/+9/H//vexf/73cT/+tzC//rb
|
||||
wP/62r7/+9q9//vYvP/62Lr/+te5//rVuP/61Lb/+tS0//rTs//60rL/+dKw//3Sv//UkYT7MxoNjDMa
|
||||
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAzrer/+Pk5P/8483//OHL//zgyv/74Mn/+9/H//ve
|
||||
xf/73cT/+9zD//rbwP/727//+tm+//vZvP/62Lv/+te6//rWuP/61rb/+tS1//rUtP/507L//dK//9SR
|
||||
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADQuKz/5ebm//vkz//8483/++LM//vh
|
||||
y//84Mn/+9/H//vexv/73cX/+93D//vbwf/628D/+tq+//rZvf/62Lz/+te6//rXuP/61rf/+tW1//rT
|
||||
s//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAANK6rv/m5+f/++XR//zk
|
||||
z//848///OLN//vhy//74Mr/++DI//vexv/73cX/+93D//rcwv/728H/+9q///vZvv/62bz/+9i7//rW
|
||||
uf/61bf/+tW2//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA07yv/+fo
|
||||
6P/85tP//OXS//zl0P/848///OPO//zhzP/84Mr/++DJ//vfx//73sX/+93E//vcwv/728H/+9vA//ra
|
||||
vv/72L3/+ti7//rXuv/617j//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AADWvrD/6Onp//zn1f/85tT//ObT//zl0f/848//++PN//zizP/74cv/++DJ//vfx//73sb/+93F//rd
|
||||
xP/728L/+9vA//vZv//62b7/+tm8//rXuv/90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAANjAsv/p6ur//OjX//zn1v/85tT//OXT//zl0f/85ND/++PO//zizf/84cv/++DJ//vg
|
||||
yP/738f/+97G//vdxP/73ML/+tvB//vav//72b7/+ti8//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA2sKz/+rr6//96dr//enY//zo1//859X//ObU//vl0v/75ND//OPP//vj
|
||||
zv/84sz//OHL//zgyf/738f/+97F//vdxf/63MP/+tzB//vbwP/72r7//dK//9SRhPszGg2MMxoNPDcS
|
||||
Eg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADcxLT/6+zs//3r3P/86tr//OnZ//3o1//859b//ObU//zm
|
||||
0v/85dH/++TP//zizv/84sz//OHL//vgyv/74Mj/+97G//vdxf/73cP/+tzC//rbwP/90r//1JGE+zMa
|
||||
DYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAN7Gtv/t7e3//eze//3r3P/969v//enZ//zo
|
||||
2P/859b//ObU//zl0//85dL//OTQ//vkzv/8483//OLM//vgyv/74Mj/+9/H//vexv/73cT/+9zD//3S
|
||||
v//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA38e3/+7u7//97d///Oze//3s
|
||||
3f/869v//era//zo2P/86Nb//OfV//zn0//85dP//OXR//zjz//8487//OLM//vhy//84Mr/+9/I//vf
|
||||
xv/73sT//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADiyrn/7+/v//3u
|
||||
4v/97eH//ezf//3s3f/969v//Orb//3p2f/86Nj//OfW//zm1P/85dP//OXR//zk0P/8487//OLN//vi
|
||||
y//84Mr/+9/I//vex//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAOTM
|
||||
uf/w8fH//e/k//3v4//97eH//e3f//zs3v/97Nz//erb//zp2f/96dj//OjX//zn1P/85tT/++XR//zk
|
||||
0f/85M//++LN//zizP/74cr/++DJ//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAA5s27//Hy8v/+8ef//fDl//3v4//97uL//e3g//zt3v/97N3//evb//zp2v/86dn//OjX//zn
|
||||
1f/85tT//ObT//zk0f/749D//OPO//vizf/84cv//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADo0L3/8vPz//3y6P/98uf//fHl//7v4//97+L//O7h//3s3//97N7//evc//zq
|
||||
2v/96dn//OnY//zn1v/85tX//ObT//zl0f/85ND//OPO//vizf/90r//1JGE+zMaDYwzGg08NxISDgAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAOrRvv/z9PT//vPq//3z6f/+8ef//fHm//3v5P/97uP//e7i//3t
|
||||
3//97N7//Ovd//3r2//96tn//OjY//zo1v/859X//ObU//zl0v/85NH//OTP//3Sv//UkYT7MxoNjDMa
|
||||
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA7NTA//X19f/99ez//fPr//3y6f/98uf//vHm//3w
|
||||
5f/97+P//e7i//3t4f/97N///evd//zq2//86tr//OjZ//3p1//959b//ObU//zl0v/75NH//dK//9SR
|
||||
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADu1sL/9vb2//727//99e3//vTr//7z
|
||||
6v/+8un//vHn//3w5v/98OT//e/j//zu4f/97N///eze//3r3P/86tv//enZ//zo2P/859b//OfU//zm
|
||||
0//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAPDYw//39/f//vbw//71
|
||||
7//99e7//vTs//306v/98+n//fHo//3w5v/97+T//e/j//3u4f/97d///eze//zs3f/96tv//enZ//zo
|
||||
2P/859f//OfV//3Sv//VkYX7MxoNizQaDTs3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA8tnF//j4
|
||||
+P/++PL//vfx//728P/+9e7//vTt//706//+8+n//fLo//7x5v/98OX//e/j//3u4v/97eD//O3f//zs
|
||||
3v/969z//era//zp2f/86Nf//dK//9WNgfs3HhGHNh8SOTckEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAD03Mf/+fn5///59f/++PP//vjx//738P/+9e7//vXt//307P/+8+r//vLp//3x5//+8Ob//e/k//3v
|
||||
4v/97uH//e3g//3r3v/3s7P/96ys//ahov/4mpr/1pCC+z4jF3xBKBkzQCsVDAAAAAEAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPbdx//6+/v//vv3///69f/++PT//vjy//738f/+9u///vXu//707P/+8+r//fPp//7x
|
||||
6P/+8eb//e/l//3v4//97uH/5baR/+6hR//nlTj/3os2/9WCNf+1gGHqSS8iYkg0Jyc5ORwJAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA+ODK//z8+///+/n//vv3///69v/++fT///jz//738v/+9/D//vXu//71
|
||||
7f/99Ov//vPq//7y6P/98ef//fDl//3v5P/rwJ7//71g//+pMf/8oiL/x4ZG7V9DM39RNys8WUAzFEBA
|
||||
QAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD64sr//fz9///9+////Pn///v4//769//++fX//vnz//74
|
||||
8v/+9vH//vbv//717f/+9Oz//fPq//3y6f/+8ef//fDl/+vHqP//zoX//rVU/82VXe5fQzSDVDgsQFg7
|
||||
MRpJSSQHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPzkzP/+/v7///79///9/P///Pr///z4///6
|
||||
9//++vb//vn0//748///9/H//vbv//317f/99O3//fPq//3z6f/+8ef/7dCv///Ylv/Ik2rwXkEzhlE6
|
||||
K0JVQi8bYEBACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ufS///////9/f3/+/v7//n5
|
||||
+f/3+Pf/9fb2//T09P/y8vL/7/Dw/+7u7v/s7Oz/6uvq/+jp6f/l5+f/5OXk/+Lj4//u0bD/yqqG9lw/
|
||||
MKJROCxSWkIxH2BAQAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+1Kr5/dq5+frX
|
||||
tvn51rT59tSz+fTRsvnxz7D578yv+e3Lrfnsyaz56caq+ebDqfnkwaf548Cm+eG+pPneu6P527mi+d+v
|
||||
j8bap4YUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAA/AAAAHwAAAB8AAAAfAA
|
||||
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAA
|
||||
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAA/AAAAPwAAAH8AAAD/AAAf8oAAAAEAAAACAA
|
||||
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHA43MxoNeDIbDaIzGg2uMxoNrzMa
|
||||
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrjIbDaIzGg14MxwONwAAAAAAAAAArntu/9mtnf/WqJr/06aY/9Kk
|
||||
l//MoZn/yZ6X/8aclv/EmZX/wZaT/7aRi/+4jov/MxsNoTQYDkoAAAAAAAAAALWCcv/84cv/++DI//ve
|
||||
xP/73ML/+tq+//rYu//717j/+tS0//nSsf/60K7/7r2l/zMaDa40Gg1PAAAAAAAAAAC7iHX//OTP//zi
|
||||
zP/74Mn/+97G//vcw//72r//+9m8//rWuP/61bX/+tOx/++/qP8zGg2vMxoNUAAAAAAAAAAAwo95//zn
|
||||
1P/85NH//OPO//zhyv/738f/+9zE//vbwP/62rz/+9e5//vVtv/wwav/MxoNrzMaDVAAAAAAAAAAAMiV
|
||||
fP/86Nj//ObV//zl0v/8487/++HL//vgyP/73sT/+tzB//vZvv/62Lv/8MOv/zMaDa8zGg1QAAAAAAAA
|
||||
AADPnID//Ovd//3q2v/859b//ObT//zkz//84sz/++DJ//vexv/73ML/+tu///HFsf8zGg2vMxoNUAAA
|
||||
AAAAAAAA1aKD//3u4P/97N3//Orb//zo1//85tP//OTR//vizf/74cr/+9/G//vdw//yyLX/MxoNrzMa
|
||||
DVAAAAAAAAAAANyph//+8OX//e7h//3s3//969v//enY//zm1f/85dH/++PO//zhyv/738f/8sm3/zMa
|
||||
Da8zGg1QAAAAAAAAAADcqYf//fPq//3x5v/97+P//e3f//zr3P/96dn//efW//zl0//85M///OHL//PM
|
||||
uv8zGg2vMxoNUAAAAAAAAAAA3KmH//317f/+8+r//fLn//3v5P/97eH//eze//zq2v/86Nf//ObT//zk
|
||||
0P/zzb3/NRsPqjUaDU0AAAAAAAAAANyph//++PL//vXu//307P/98uj//fDl//3u4v/97N7//era//zo
|
||||
2P/85tT/9Mm6/zogEZk9IhNDAAAAAAAAAADcqYf///r3//748//+9vD//vTs//7y6f/98eb//e/i///V
|
||||
zP//1cz/9bOq/6l4bOBCKBh0SCccLgAAAAAAAAAA3KmH///9+///+/f//vn0//738f/+9e3//fPr//3x
|
||||
5//3pkP/96ZD/+CSQP5HKxqRTi4gSFk3IRcAAAAAAAAAANyph/////////77///7+P/++vX//vjx//72
|
||||
7v/98+z/3KmH/+qzdv5oSDLCTzMkZFM3IiVVORwJAAAAAAAAAADcqYf/3KmH/9yph//cqYf/3KmH/9yp
|
||||
h//eq4j/1qOE/9yph//ZqYktAAAAAAAAAAAAAAAAAAAAAMAAAADAAAAAwAAAAMAAAADAAK7/wADn/8AA
|
||||
0f/AAM//wADP/8AAzf/AAMv/wADK/8AAyP/AAMb/wADF/8APw/8=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
256
SW/20211125/_FRReporting/Formulare/frmAuswertung.vb
Normal file
256
SW/20211125/_FRReporting/Formulare/frmAuswertung.vb
Normal file
@@ -0,0 +1,256 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmAuswertung
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim Auswertungsdaten As DataSet
|
||||
Dim Auswertungsname As String
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Initialisierung des Formulars
|
||||
''' </summary>
|
||||
''' <param name="Auswertungnr"></param>
|
||||
''' <remarks></remarks>
|
||||
Sub New(ByVal Auswertungname As String, ByRef Auswerungsdaten As DataSet, Optional tempfilepath As String = "")
|
||||
Me.InitializeComponent()
|
||||
If tempfilepath <> "" Then Globals.TmpFilepath = tempfilepath
|
||||
Me.Text = Me.Text + ": " + Auswertungname
|
||||
Me.Auswertungsdaten = Auswerungsdaten
|
||||
Me.Auswertungsname = Auswertungname
|
||||
End Sub
|
||||
|
||||
Private Sub frmAuswertung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Me.C1Daten.DataSource = Me.Auswertungsdaten
|
||||
Me.C1Daten.DataMember = Me.Auswertungsdaten.Tables(0).TableName
|
||||
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.Auswertungsdaten.Tables(0).Columns.Count - 1
|
||||
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
||||
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
|
||||
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
||||
End If
|
||||
If C1Daten.Columns(i).Caption = "Journaleintrag" Then
|
||||
C1Daten.Splits(0).DisplayColumns(i).Width = 250
|
||||
End If
|
||||
C1Daten.Splits(0).DisplayColumns(i).Locked = True
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TSBtnExcelExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnExcelExport.Click
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim fn As String = System.IO.Path.GetRandomFileName
|
||||
fn = fn.Substring(0, Len(fn) - 4)
|
||||
fn = Globals.TmpFilepath + "\" + fn + ""
|
||||
'Dim xls As New XLSLib.clsXLSLib
|
||||
''xls.Write_Excel(fn, Me.Auswertungsdaten.Tables(0))
|
||||
'xls.Write_Excel(Me.Auswertungsdaten.Tables(0), True)
|
||||
Dim fnn As String = fn + ".xlsx"
|
||||
' Rename(fn, fnn)
|
||||
'Process.Start(fnn)
|
||||
Me.DatatableToExcel(Me.Auswertungsdaten.Tables(0), fnn)
|
||||
Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
Me.SaveFileDialog1.AddExtension = True
|
||||
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xlsx|CSV-Dateien|*.CSV"
|
||||
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xlsx")
|
||||
|
||||
Me.SaveFileDialog1.ShowDialog()
|
||||
If Me.SaveFileDialog1.FileName <> "" Then
|
||||
If Me.SaveFileDialog1.FileName.EndsWith("xlsx") Then
|
||||
Me.DatatableToExcel(Me.Auswertungsdaten.Tables(0), Me.SaveFileDialog1.FileName)
|
||||
Else
|
||||
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
|
||||
End If
|
||||
End If
|
||||
|
||||
Exit Sub
|
||||
|
||||
If Me.C1Daten.Splits(0).Rows.Count > 0 Then
|
||||
Me.SaveFileDialog1.AddExtension = True
|
||||
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.csv")
|
||||
Me.SaveFileDialog1.Filter = "CSV-Dateien|*.CSV"
|
||||
Me.SaveFileDialog1.ShowDialog()
|
||||
If Me.SaveFileDialog1.FileName <> "" Then
|
||||
' Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", "", True, System.Text.Encoding.Default.BodyName)
|
||||
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, ByVal aOutputFilename As String) As Boolean
|
||||
Application.DoEvents()
|
||||
'Dim f As New FrmFortschritt
|
||||
Dim app As New Object
|
||||
Dim wb As New Object
|
||||
Dim ws As New Object
|
||||
Try
|
||||
' f.Show()
|
||||
Application.DoEvents()
|
||||
' f.ProgressBar1.Minimum = 0
|
||||
' f.ProgressBar1.Maximum = aDataTable.Rows.Count
|
||||
app = CreateObject("Excel.application")
|
||||
'Dim wb As Object
|
||||
'Dim ws As Object
|
||||
' Dim app As New Excel.ApplicationClass
|
||||
' Dim wb As Excel.Workbook
|
||||
' Dim ws As Excel.Worksheet
|
||||
wb = app.Workbooks.add()
|
||||
'wb = app.Workbooks.Add()
|
||||
ws = wb.ActiveSheet()
|
||||
Dim dc As DataColumn
|
||||
Dim dr As DataRow
|
||||
Dim colIndex As Integer
|
||||
Dim rowIndex As Integer
|
||||
' Columns erstellen
|
||||
For Each dc In aDataTable.Columns
|
||||
colIndex += 1
|
||||
app.Cells(1, colIndex) = dc.ColumnName
|
||||
Next
|
||||
' Rows hinzufügen
|
||||
For Each dr In aDataTable.Rows
|
||||
' f.ProgressBar1.Value = rowIndex
|
||||
rowIndex += 1
|
||||
colIndex = 0
|
||||
For Each dc In aDataTable.Columns
|
||||
colIndex += 1
|
||||
Try
|
||||
app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
|
||||
Catch ex As Exception
|
||||
Dim s As String = dr(dc.ColumnName)
|
||||
s = "'" + s
|
||||
Try
|
||||
app.Cells(rowIndex + 1, colIndex) = s
|
||||
Catch ex1 As Exception
|
||||
app.Cells(rowIndex + 1, colIndex) = "'* Text beim Export entfernt"
|
||||
End Try
|
||||
End Try
|
||||
Next
|
||||
Next
|
||||
ws.Columns.AutoFit()
|
||||
wb.SaveAs(aOutputFilename)
|
||||
app.Workbooks.Open(aOutputFilename)
|
||||
' Excel anzeigen wenn fertig exportiert
|
||||
app.Visible = True
|
||||
ws = Nothing
|
||||
wb = Nothing
|
||||
app = Nothing
|
||||
|
||||
'f.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
'f.Close()
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub TSBtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnPrint.Click
|
||||
Dim fontbold As New Font("Arial", 12, FontStyle.Bold)
|
||||
Dim fontregular As New Font("Arial", 12, FontStyle.Regular)
|
||||
|
||||
With Me.C1Daten.PrintInfo
|
||||
.PageHeaderStyle.Font = fontbold
|
||||
.PageSettings.Margins.Bottom = 20
|
||||
.PageSettings.Margins.Top = 80
|
||||
.PageSettings.Landscape = True
|
||||
.PageFooter = "Seite \p von \P" & vbLf & "Druckdatum " & Now()
|
||||
.PageHeader = Me.Auswertungsname
|
||||
.ShowProgressForm = True
|
||||
.UseGridColors = True
|
||||
.RepeatColumnHeaders = True
|
||||
.VarRowHeight = .RowHeightEnum.StretchToFit
|
||||
.WrapText = C1.Win.C1TrueDBGrid.PrintInfo.WrapTextEnum.NoWrap
|
||||
.PageBreak = .PageBreaksEnum.OnColumn
|
||||
.FillAreaWidth = .FillEmptyEnum.None
|
||||
.PrintPreview()
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub C1Daten_FetchScrollTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles C1Daten.FetchScrollTips
|
||||
Try
|
||||
Select Case e.ScrollBar
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Horizontal
|
||||
e.ScrollTip = Me.C1Daten.Columns(e.ColIndex).Caption
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
||||
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.Auswertungsdaten.Tables(0).Rows.Count)
|
||||
End Select
|
||||
e.TipStyle.ForeColor = Color.Blue
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
If Me.C1Daten.SelectedCols.Count > 0 Then SpalteLöschenToolStripMenuItem.Enabled = True Else Me.SpalteLöschenToolStripMenuItem.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub SpalteLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpalteLöschenToolStripMenuItem.Click
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.C1Daten.SelectedCols.Count - 1
|
||||
Me.Auswertungsdaten.Tables(0).Columns.Remove(Me.C1Daten.SelectedCols(i).Caption)
|
||||
Me.Auswertungsdaten.AcceptChanges()
|
||||
Next
|
||||
Me.C1Daten.DataSource = Nothing
|
||||
Me.C1Daten.DataSource = Me.Auswertungsdaten
|
||||
Me.C1Daten.DataMember = Me.Auswertungsdaten.Tables(0).TableName
|
||||
|
||||
For i = 0 To Me.Auswertungsdaten.Tables(0).Columns.Count - 1
|
||||
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
||||
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
|
||||
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
||||
End If
|
||||
If C1Daten.Columns(i).Caption = "Journaleintrag" Then
|
||||
C1Daten.Splits(0).DisplayColumns(i).Width = 250
|
||||
End If
|
||||
C1Daten.Splits(0).DisplayColumns(i).Locked = True
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Me.SaveFileDialog1.AddExtension = True
|
||||
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xlsx|CSV-Dateien|*.CSV"
|
||||
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xlsx")
|
||||
|
||||
Me.SaveFileDialog1.ShowDialog()
|
||||
If Me.SaveFileDialog1.FileName <> "" Then
|
||||
If Me.SaveFileDialog1.FileName.EndsWith("xlsx") Then
|
||||
Me.DatatableToExcel(Me.Auswertungsdaten.Tables(0), Me.SaveFileDialog1.FileName)
|
||||
Process.Start(Me.SaveFileDialog1.FileName)
|
||||
Else
|
||||
Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
|
||||
Process.Start(Me.SaveFileDialog1.FileName)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
123
SW/20211125/_FRReporting/Formulare/frmCRReporting.designer.vb
generated
Normal file
123
SW/20211125/_FRReporting/Formulare/frmCRReporting.designer.vb
generated
Normal file
@@ -0,0 +1,123 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmcrreporting
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmcrreporting))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.PreviewControl1 = New FastReport.Preview.PreviewControl()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.AllowMerge = False
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(933, 24)
|
||||
Me.MenuStrip1.TabIndex = 4
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
|
||||
Me.ToolStrip1.TabIndex = 5
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'PreviewControl1
|
||||
'
|
||||
Me.PreviewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.PreviewControl1.Buttons = CType(((((((((FastReport.PreviewButtons.Print Or FastReport.PreviewButtons.Find) _
|
||||
Or FastReport.PreviewButtons.Zoom) _
|
||||
Or FastReport.PreviewButtons.Outline) _
|
||||
Or FastReport.PreviewButtons.PageSetup) _
|
||||
Or FastReport.PreviewButtons.Edit) _
|
||||
Or FastReport.PreviewButtons.Watermark) _
|
||||
Or FastReport.PreviewButtons.Navigator) _
|
||||
Or FastReport.PreviewButtons.Close), FastReport.PreviewButtons)
|
||||
Me.PreviewControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PreviewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
Me.PreviewControl1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.PreviewControl1.Name = "PreviewControl1"
|
||||
Me.PreviewControl1.PageOffset = New System.Drawing.Point(10, 10)
|
||||
Me.PreviewControl1.Size = New System.Drawing.Size(933, 487)
|
||||
Me.PreviewControl1.TabIndex = 6
|
||||
Me.PreviewControl1.UIStyle = FastReport.Utils.UIStyle.Office2007Silver
|
||||
'
|
||||
'frmcrreporting
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(933, 536)
|
||||
Me.Controls.Add(Me.PreviewControl1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmcrreporting"
|
||||
Me.Text = "Auswertung"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents PreviewControl1 As FastReport.Preview.PreviewControl
|
||||
End Class
|
||||
533
SW/20211125/_FRReporting/Formulare/frmCRReporting.resx
Normal file
533
SW/20211125/_FRReporting/Formulare/frmCRReporting.resx
Normal file
@@ -0,0 +1,533 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>332, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAgAICAQAAEABADoAgAAhgAAABAQEAABAAQAKAEAAG4DAAAwMAAAAQAIAKgOAACWBAAAICAAAAEA
|
||||
CACoCAAAPhMAABAQAAABAAgAaAUAAOYbAAAwMAAAAQAgAKglAABOIQAAICAAAAEAIACoEAAA9kYAABAQ
|
||||
AAABACAAaAQAAJ5XAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAAAAAA//8A/wAAAP8A/wD//wAA////ABEQ
|
||||
AAAAAAAAAAAAAAAAARERF4iIiIiIiIiIiIiIiAERERf///////////////gBEREX///////////////4
|
||||
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
|
||||
////+AERERf///////////////gBEREX///////////////4ARERF///////////////+AERERf/////
|
||||
//////////gBEREX///////////////4ARERF///////////////+AERERf///////////////gBEREX
|
||||
///////////////4ARERF///////////////+AERERf///////////////gBEREX///////////////4
|
||||
ARERF///////////////+AERERf///////////////gBEREX///////////////4ARERF///////////
|
||||
////+AERERf///////////////gBEREX///////////////4ARERF////////////3AAAAERERf/////
|
||||
//////9/+HAREREX////////////f4cBERERF////////////3hwERERERf///////////93AREREREX
|
||||
////////////cBERERERF3d3d3d3d3d3d3ERERER4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAP4AAAH+AAAD/gAAB/4AAA/+AAAf8oAAAAEAAAACAAAAABAAQAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAAA
|
||||
AAAA//8A/wAAAP8A/wD//wAA////ABEAAAAAAAABEXiIiIiIiAERf//////4ARF///////gBEX//////
|
||||
+AERf//////4ARF///////gBEX//////+AERf//////4ARF///////gBEX//////+AERf//////4ARF/
|
||||
////8AABEX/////49xERf/////hxERF3d3d3dxERwAH//8AB///AAf//wAEBEcAB///AAf//wAH//8AB
|
||||
ARHAAf//wAH//8AB///AAQERwAH//8AD///AB///wA8BESgAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAD///8Azs7OANbW1gDe3t4A5+fnAO/v7wD39/cA///3AP/3xgD/770A7961AP/n
|
||||
rQD/9+cA/+/WAP+1QgD/rTEA/60pAP+cAAD/xnMA/71jAP+1UgD3jAAA/9alAP+1WgDWcwAA53sAAO+E
|
||||
AAD/794A/+fOAP/37wD/3r0A786tAP/WrQD/zpwA98aUAN6lawDenFoA3pRKAN6MOQDnrXsA/9a1APfO
|
||||
rQDvxqUA772UAOe1jAC9YxgA/+fWAP/exgDevaUA972UAP/OrQDerYwA/9a9AN61nADnvaUA3qWEANac
|
||||
ewD/7+cA/97OAM6UewDGjHMA1q2cAM6llADWnIQAtYRzAK17awC9hHMAxoRzAK2EewC9e2sAtXNjAMac
|
||||
lAC9lIwAtYyEAKV7cwCte3MApXNrALV7cwCtc2sAvXNrALVrYwCtY1oA9+/vAP/39wD3zs4A/87OAP/G
|
||||
xgD/vb0Ae1paALWEhACte3sA/7W1AKVzcwCca2sA/62tAJRjYwD/paUAjFpaAJxjYwC1c3MAhFJSAP+c
|
||||
nACUWloAjFJSAK1jYwCESkoApVpaAJxSUgClUlIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAbm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
bm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
blhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYbm5ubm5ubm5ubm5ua2thYWFhYWdkZGRk
|
||||
ZGRkZGRkZGRkZGRkZGRkZGRkZGRpaWlYbm5ubm5ubm5ubm5ubFRVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
|
||||
VVVVVVVVVVVVIWlYbm5ubm5ubm5ubm5ubAEcLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgICAyMjIyVWRY
|
||||
bm5ubm5ubm5ubm5ubAEcOi8vLy8vLy8vHh4eHh40NCgoKCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5u
|
||||
agEcHBwvLy8vLy8vLy8eHh4eHjQ0KCgoKCgoKCAgIDIyVWRYbm5ubm5ubm5ubm5uagIcHBwcOi8vLy8v
|
||||
Ly8eHh4eHh40NCgoKCgoKCgoICAgVWRYbm5ubm5ubm5ubm5uagIcHBwcHDovLy8vLy8vLx4eHh4eNDQo
|
||||
KCgoKCgoKCAgVWdYbm5ubm5ubm5ubm5uagIcHBwcHBwcLy8vLy8vLy8eHh4eHjQ0NCgoKCgoKCggVmFY
|
||||
bm5ubm5ubm5ubm5uUQIuHBwcHBwcHC8vLy8vLy8vLx4eHh4eNDQoKCgoKCgoVmFYbm5ubm5ubm5ubm5u
|
||||
UQIuLi4cHBwcHBwcLy8vLy8vLy8eHh4eHh40KCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4cHBwcHBwc
|
||||
HC8vLy8vLy8vHh4eHh4eNCgoKCgoVmFYbm5ubm5ubm5ubm5uaAIuLi4uLhwcHBwcHBw6Ly8vLy8vLy8e
|
||||
Hh4eHjQ0KCgoV2FYbm5ubm5ubm5ubm5uUAMNLi4uLi4uHBwcHBwcHC8vLy8vLy8vHh4eHh40NCgoV2ZY
|
||||
bm5ubm5ubm5ubm5uUAMNDS4uLi4uLhwcHBwcHDovLy8vLy8vLx4eHh4eHjQ0V2ZYbm5ubm5ubm5ubm5u
|
||||
RgMbDQ0uLi4uLi4cHBwcHBwcOi8vLy8vLy8vHh4eHh40V19Ybm5ubm5ubm5ubm5uRgMbGxsNDS4uLi4u
|
||||
LhwcHBwcHDovLy8vLy8vLx4eHh4eW19Ybm5ubm5ubm5ubm5uTwMbGxsbDQ0uLi4uLi4cHBwcHBwcLy8v
|
||||
Ly8vLy8vHh4eW19Ybm5ubm5ubm5ubm5uTwQbGxsbGw0NLi4uLi4uHBwcHBwcHDovLy8vLy8vLx4eW2JY
|
||||
bm5ubm5ubm5ubm5uRQQbGxsbGxsbLi4uLi4uLi4cHBwcHBwcLy8vLy8vLy8eW11Ybm5ubm5ubm5ubm5u
|
||||
RQQbGxsbGxsbGw0NLi4uLi4uHBwcHBwcHC8vLy8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5ORsbGxsbGxsN
|
||||
DS4uLi4uLi4cHBwcHBw6Ly8vLy8vW11Ybm5ubm5ubm5ubm5uQwQ5OTkbGxsbGxsbGw0uLi4uLi4uHBwc
|
||||
HBwcOi8vLy8vW11Ybm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsNDS4uLi4uLhwcHBwcHDovLy8vXl1Y
|
||||
bm5ubm5ubm5ubm5uPAQMOTk5ORsbGxsbGxsbGw0NLi4uLi4cHBwcHBwcLy8vXl1Ybm5ubm5ubm5ubm5u
|
||||
OwQMDDk5OTk5GxsbGxsbGxsNLi4uLi4uHBwcHBwcHDovXlxYbm5ubm5ubm5ubm5uOwUdDAwMOTk5OTkb
|
||||
GxsbGxsbDS4uLi4uLi4cHBwcHBwcXlxYbm5ubm5ubm5ubm5uOAUdDB0MDDk5OTk5GxsbGxsbGw0NLi4u
|
||||
Li4uHBwcHBwcYFxYbm5ubm5ubm5ubm5uOAUdHR0MDAwMOTk5ORsbGxsbGxsbDS4uLi4uLhwcHBwcYEpY
|
||||
bm5ubm5ubm5ubm5uPwUdHR0dDAwMDDk5OTkbGxsbGxsbGw0NLi4uLi4uHBwcYEpYbm5ubm5ubm5ubm5u
|
||||
PwUdHR0dHR0MDAwMOTk5GxsbGxsbGxsNDS4uLi4uLhwcYEpYbm5ubm5ubm5ubm5uNwUdHR0dHR0dHQwM
|
||||
OTk5OTkbGxsbGxsbDQ0uLi4uLi4cYFpYbm5ubm5ubm5ubm5uN1JTHR0dHR0dHR0MDDk5OTk5GxsbGxsb
|
||||
GxsNDS4uLi4uZVpYbm5ubm5ubm5ubm5uMwZTUx0dHR0dHR0MDAwMDDk5OTkbGxsbGxsbDQ0uLi4uZURY
|
||||
bm5ubm5ubm5ubm5uMwYHB1NTHR0dHR0dHQwMDAw5OTk5GxsbGxsbGxsNLi4uZURYbm5ubm5ubm5ubm5u
|
||||
LAYHBwdTUx0dHR0dHR0dDAwMOTk5ORsbGxsbGxsNDQ0uZURYbm5ubm5ubm5ubm5uLAYHBwcHB1MdHR0d
|
||||
HR0dHQwMDDk5OTkbGxsbV1tbXl5gZVlYbm5ubm5ubm5ubm5uLAYHBwcHB1NTHR0dHR0dHR0dDAwMOTk5
|
||||
GxtISElJSUlZY2pYbm5ubm5ubm5ubm5uKwYABwcHBwcHU1MdHR0dHR0dHQwMDDk5OTlMFBEVGhkYLVhu
|
||||
bm5ubm5ubm5ubm5uKwAAAAAHBwcHB1NTHR0dHR0dHR0MDAw5OTlOIRQODxAmWG5ubm5ubm5ubm5ubm5u
|
||||
MQAAAAAABwcHBwdTU1MdHR0dHR0dDAwMDDlBFhcUDiVYbm5ubm5ubm5ubm5ubm5uMQAAAAAAAAAHBwcH
|
||||
B1MdHR0dHR0dHQwMDAxLCxMXJFhubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAABwcHBwdTUx0dHR0dHR0d
|
||||
DAxNCRIjWG5ubm5ubm5ubm5ubm5ubm5uIgAAAAAAAAAAAAAHBwcHB1NTHR0dHR0dHQxACCdYbm5ubm5u
|
||||
bm5ubm5ubm5ubm5uIQAAAAAAAAAAAAAGBgYGBgYGBgYGUlIFBQVAClhubm5ubm5ubm5ubm5ubm5ubm5u
|
||||
ISgoICkpKR8qKio2NjAwNTU1PT09Pj4+R0dCSW5ubm5ubm5ubm5ubm5u////////AAD///////8AAP4A
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwA
|
||||
AAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/AAD8AAAAAD8AAPwAAAAAPwAA/AAAAAA/
|
||||
AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAA/8AAPwAAAAH/wAA/AAAAA//AAD8AAAAH/8AAPwA
|
||||
AAA//wAAKAAAACAAAABAAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD//v0A/f39AP/9
|
||||
/AD8/PsA//z5AP/8+AD7+/sA/vv3AP/69gD5+fkA//n1AP759AD3+PcA//jzAP748wD++PIA//fxAPb2
|
||||
9gD+9/EA9fb2AP738AD+9vAA/vbvAP717wD09PQA/vXuAP717QD99e0A/fXsAPLz8wD+9OwA/vTrAP30
|
||||
6wDx8vIA/vPqAP3z6gD+8+kA/fPpAP7y6QD+8ugA/fLoAP3y5wDv8PAA/vHnAP7x5gD98eUA/fDmAO7u
|
||||
7wD98OUA/fDkAP3v5QD97+QA/u/jAP3v4wD97+IA/e7jAP3u4gDs7OwA/e7hAAAAAAD97eEA/e3gAOrr
|
||||
6gD97d8A/ezfAP3s3gD87N4A/ezdAP3r3gD97NwA6OnpAP3r3AD869wA/evbAP3q2wD86tsA/eraAPzq
|
||||
2gD96tkA5ufnAP3p2QD86dkA/enYAP3p1wD86NkA5eblAPzo2AD86NcA/OjWAPzn1wD959YA/OfWAPzn
|
||||
1QDj5OQA/OfUAPzm1QD859MA/ufSAPzm1ADi4+MA/ObTAPzm0gD85dMA/OXSAPzl0QD75dEA/OTRAPzk
|
||||
0AD75NAA/OTPAPvkzwD749AA/OPPAPzjzgD85MwA++POAPzjzQD84s4A/OLNAPvizQD84swA++LMAPvi
|
||||
ywD84cwA/OHLAPvhywD74coA+eHKAPzgygD74MoA/ODJAPvgyQD74MgA+9/IAPvfxwD738YA+97HAPve
|
||||
xgD73sUA9t3HAPvdxQD73cQA+93DAPTcxwD73MMA+tzDAPvcwgD63MIA+9vBAPvbwAD628AA8tnFAPva
|
||||
vwD927sA+tq+APvavQD72b4A+tm+APDYwwD62b0A+9i8APrYvAD62LsA+ti6AO7WwgD617oA+te5APrX
|
||||
uAD61rkA/dK/APrWuAD617YA+ta3AOzUwAD61bgA+tW2APnVtgD21bUA+tS1APrUswDp0b4A+tOzAPnT
|
||||
sgD+1awA9NK0APnSsAD60a4A8dCyAObNuwDu0bAA7dCvAOTMuQD/2JYA782xAOLKuQDtzK8A7MquAN/H
|
||||
twDexrYA6sesAP/MmQDcxLQA68eoAOfEqwDawrMA5sKpANjAsgD/zoUA5MGoANa+sADiwKYA68CeAPez
|
||||
swDTu68A372lANy7pADQuKwAzrerAPesrADMtakAybKoAM2xqADltpEA9qGiAP+9YADVpZkAzK2KAPia
|
||||
mgDRo5MA/rVUAM2ekQDJmY4Ax5iNANiViQCqmpAAxpaMAMWVjADWk4cA1ZOGAMOTjADXkoQAw5KLANaP
|
||||
gwDLmXMA0JxoAO6hRwD/qTEAu4puAPyiIgDLj1MA55U4AN6LNgDVgjUAAAAAAGZmZgD+/v7+/v7+/v7+
|
||||
/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+/v7+///////////////////////////////+/v7+/v7+/uXi
|
||||
5+jp6ezt8PLy8vLy8vLy8vLy8vDq//7+/v7+/v7+3qqqqqqqqqqqqqqqqqqqqqqqqqqqye7//v7+/v7+
|
||||
/v7dZISGio2SlZaZoKKnq7GztLe6u7uq7v/+/v7+/v7+/txkfoKGh4uOlJebnKGkp6+ws7a2uqrv//7+
|
||||
/v7+/v7+2l51fYGEh4uOkZeWnqGjpquss7O3qu///v7+/v7+/v7ZVm91en6Dh4qNj5WXm6CipqitsLaq
|
||||
7//+/v7+/v7+/tZQam5xd36ChYqNj5SVmZ2goamtsKrv//7+/v7+/v7+1kdlaGlxcnyBhIeLjpOVlpuh
|
||||
o6aoqu///v7+/v7+/v7SR11jZWlxdHl+hIeKjY6TlpmeoKaq7//+/v7+/v7+/s8/WFxjZ2lsdHd9hIWH
|
||||
io6TlZmdoqrv//7+/v7+/v7+zT9NU1hdY2htcXR5fYOHi42SlJaZqu///v7+/v7+/v7KOkhOUlRcY2Zp
|
||||
b3Z5fYKFio2PlJeq7//+/v7+/v7+/sc6QkhKUVdcY2dobG91eYKFh4qOkarv//7+/v7+/v7+xjBAQ0RJ
|
||||
TVdZXWFnaXFyeX6BhoiLqu///v7+/v7+/v7DKzk9QURKTFFXXGNnaWxyd3uBhomq7//+/v7+/v7+/sAi
|
||||
NDY9QENGS1JTWF9jamtueHl/hKrv//7+/v7+/v7+vSIsMTY5PkNESk5SWF1jZWtwcnh9qu///v7+/v7+
|
||||
/v61HikqLjU3O0FCSE5RUlxgZWlscniq7//+/v7+/v7+/rUZIyYsLTQ4OUBCSUpPV1ldY2hrbqrv//7+
|
||||
/v7+/v7+rhQdISYqLTE2OT1BRExOVVRbY2hqqu///v7+/v7+/v6lEhccICMnLC8yNjtBQkhMUVdcX2Wq
|
||||
7//+/v7+/v7+/p8NFhgaHyEmKS80NjtAQkNLUVdaXaru//7+/v7+/v7+mA0QExYaGyAlKS0xNjk+QENI
|
||||
TVJYqvP//v7+/v7+/v6QCgsPEBUaGx0jJyotNDc7PkXV2+Dk8f/+/v7+/v7+/owHCAkMEBMXGh8jJigt
|
||||
MzY73/b7/P34//7+/v7+/v7+gAQFCAkMDhAVGhshIygqMTTU4ff5+v/+/v7+/v7+/v57AgMFBggLDBAT
|
||||
FxsfJCYsMcvQ5vX//v7+/v7+/v7+/nMBAQMFBgkJDA8RFxwcJCYsv8H0//7+/v7+/v7+/v7+YgACBwoN
|
||||
FBkiKzA6P0dQXmS+4//+/v7+/v7+/v7+/v64mqissrm8wsTFyMzO0dPX2M7r/v7+/v7+/v7+//////gA
|
||||
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AA
|
||||
AA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAH/AAAD/wAAB/8AAA//AA
|
||||
Af8oAAAAEAAAACAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4JJBAPemQwBmZmYArntuALWC
|
||||
cgC7iHUA6rN3AMKPeQDIlXwAs4h+AM+cgADVooMA1qOEANyphwDeq4gAuI6LALaRiwDBlpMAxJmVAMac
|
||||
lgDJnpcA0qSXANOmmADMoZkA1qiaANmtnQDuvaUA77+oAPWzqgDwwasA+tCuAPDDrwDxxbEA+dKxAPrT
|
||||
sQD61LQA8si1APrVtQD71bYA8sm3APrWuAD717gA+9e5APTJugDzzLoA+ti7APvZvAD62rwA8829APvZ
|
||||
vgD62r4A+9q/APrbvwD728AA+tzBAPvcwgD73MMA+93DAPvcxAD73sQA+97GAPvfxgD738cA++DIAPvg
|
||||
yQD74coA/OHKAPvhywD84csA/9XMAPzizAD74s0A++POAPzjzgD85M8A/OTQAPzk0QD85dEA/OXSAPzl
|
||||
0wD85tMA/ObUAPzn1AD85tUA/OfWAP3n1gD86NcA/OjYAP3p2AD96dkA/OraAP3q2gD86tsA/evbAPzr
|
||||
3AD8690A/ezdAP3s3gD97N8A/e3fAP3u4AD97eEA/e7hAP3u4gD97+IA/e/jAP3v5AD98OUA/vDlAP3x
|
||||
5gD98ecA/fLnAP3y6AD+8ukA/fPqAP7z6gD98+sA/fPsAP307AD+9OwA/fXtAP717QD+9e4A/vbuAP72
|
||||
8AD+9/EA/vjxAP748gD++PMA/vn0AP769QD/+vcA//v3AP/7+AD//fsA//77AAAAAAD///8AAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIiIiAICAgICAgICAgIC
|
||||
AoiIiAMZGBYVFxQTEhEQDwKIiIgERD87NzItKSMhHhoCiIiIBUpGQDw4My4oJSIbAoiIiAdSTElCPjo1
|
||||
LyomHQKIiIgIV1NOSUM/OzYxLR8CiIiICl9bVFBKRkA8NzQgAoiIiAtkYFxWUExHQT05JAKIiIgNbGZi
|
||||
XVhTTUhCPicCiIiIDXJtaWNeWVVPSkQsAoiIiA14c29qZWFaVlBLMAKIiIgNf3p2cGtnYVtXUSsCiIiI
|
||||
DYOAfHdxbWhFRRwJAoiIiA2GhIF9eXRuAQEAAoiIiIgNiYeFgn57dQ0GAoiIiIiIDQ0NDQ0NDgwNAoiI
|
||||
iIjgAf7+wAFqbsABfoLAAY2PwAGZncABqa3AAe//wAH+/sAB/v7AAWVowAFyfMABh4vAAZWWwAOjpsAH
|
||||
7//AD/7+KAAAADAAAABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAACsrAAY3EhIOORwOEjMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMa
|
||||
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQzGg0UMRgMFTMaDRQzGg0UMxoNFDMa
|
||||
DRQzGg0UMxoNFDMaDRQzGg0UMxoNFDMaDRQ5HA4SNxISDisrAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAADMfChkzHA43NBwOSTQaDU8zGg1QMxoNUDMaDVAzGg1QMxoNUDMa
|
||||
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMhwNUTMa
|
||||
DVAzGg1QMxoNUDMaDVAzGg1QMxoNUDMaDVAzGg1QMxoNUDQaDU80HA5JMxwONzMfChkrKwAGAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMcDjczGg14MhsNojMaDa4zGg2vMxoNrzMa
|
||||
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMa
|
||||
DbA0HA+yMxoNsDMaDbAzGg2wMxoNrzMaDa8zGg2vMxoNrzMaDa8zGg2vMxoNrzMaDa4yGw2iMxoNeDMc
|
||||
Djc3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJJfX/+QXV3/j1xc/45b
|
||||
W/+NWlr/jFlZ/4tYWP+JVlb/h1RU/4dUVP+GU1P/hFFR/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQ
|
||||
UP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+DUFD/g1BQ/4NQUP+CT0//gE1N/39M
|
||||
TP+ATU3/MxsNoTQYDko5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJRh
|
||||
Yf/yzMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
|
||||
zP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///MzP//zMz//8zM///M
|
||||
zP//zMz//8zM///Mmf+BT0//MxoNrjQaDU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAJRhYf/MzMz/++DH//vfxv/738X/+97F//vdxP/73MP/+tvB//vcwP/72sD/+tq+//vZ
|
||||
vv/62bz/+9i7//vYuv/617n/+ta4//rVt//61bb/+tW1//rUtP/607P/+tOy//nSsP/50a//+dGv//rR
|
||||
rv/60Kz/+c+s//nPq//6zqn/+c2o///Ky/+CUFD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJViYv/Nzc3//OHJ//vfyP/738f/+97G//vexf/73cT/+9zD//vc
|
||||
wv/728D/+9vA//vavv/72r3/+9m9//vYu//62Lr/+9e6//vXuP/61rf/+tW3//rVtf/61LT/+tOz//rT
|
||||
s//60rH/+tKw//rSr//50a7/+tCt//nQrP/5z6v/+s6q///Jyf+EU1L/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJdkZP/Ozs7/++HK//vhyf/74Mn/+9/H//ve
|
||||
xv/73sX/+97E//vcw//73ML/+9zB//vbwP/727//+9q+//vZvf/62Lv/+ti7//rYuv/717n/+ta4//rV
|
||||
t//61bb/+tW1//rUs//507L/+tKx//rSsP/50a//+dGu//nQrv/6z6z/+c+r///IyP+FVFP/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhlZf/Q0ND/++HL//zi
|
||||
y//84Mr/++DJ//vfyP/838f/+97G//vexP/73cP/+9zC//vbwv/728H/+tq///vavv/62b7/+9m8//vY
|
||||
u//72Lr/+te5//vXuP/61bf/+tW2//rVtf/61LT/+tSy//rSsv/50rD/+tKw//nRrv/60K7/+tCs///G
|
||||
x/+HVVT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
Zv/R0dH//OPN//zizP/84cz//ODK//vhyf/838j//N/H//vexv/73sX//N7E//vcw//73ML/+9zB//va
|
||||
wP/72r//+tq+//vZvf/62Lz/+ti6//vXuf/617n/+ta3//rVt//61Lb/+tS0//rTs//507P/+tKx//rS
|
||||
sP/60a//+tCu///Fxf+IV1b/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAJxpZ//S0tL//OPP//zjzv/74s3/++LM//zhy//74cn/++DI//zfx//83sf//N7G//ve
|
||||
xP/73MP/+9zC//vbwf/728D/+9q///vZvv/72b3/+ti8//vYu//717r/+9a5//rWuP/61bf/+tW2//rU
|
||||
tP/61LT/+tSy//rTsv/60rD/+dGv///Dw/+JWVf/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ5raP/T09P//OXQ//vkz//8487//OLN//zhzP/74cv/++HK//vg
|
||||
yP/738f/+97G//zexf/73sX/+93E//vcw//73ML/+9vA//rawP/62r7/+tm+//rYvP/62Lv/+9i6//rX
|
||||
uf/617j/+ta3//rVtv/61LX/+tS0//rTs//607L/+dKx///Cwv+LWVj/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKFuav/V1dX//OXS//zk0f/849D//OPO//zi
|
||||
zf/84sz//OHL//vhyv/84Mn/++DI//vex//73sb/+93F//vdxP/73cP/+9zB//vcwf/727//+9q+//va
|
||||
vf/72b3/+ti7//rYu//617r/+ta4//rWt//61rb/+tW1//rUtP/607P/+tOz///BwP+MW1r/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKNwa//W1tb//ObT//zl
|
||||
0v/85ND/++TP//zkzv/7483/++LN//vizP/84Mv/++HJ//vgyP/738f/+97G//vexf/73sT/+93E//vc
|
||||
wv/73MH/+9vA//rav//62r7/+9m9//rZvP/62Lr/+ti5//vXuf/61rf/+tW3//rVtv/61bT/+tOz//+/
|
||||
v/+NXVv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKVy
|
||||
bP/X19f//ObU//zm0//85tL//OXR//zk0P/848///OPO//vizf/74sz/++HL//zhyv/84Mj/+9/I//ve
|
||||
x//73sX/+97E//vdw//73MP/+tzB//vbwP/728D/+9q+//vavf/72Lz/+ti7//rYuv/617n/+ta4//rW
|
||||
tv/61bb/+tS0//++vf+OX1z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAKh1bv/Y2Nj//OfW//zm1f/85tP//OXS//zl0f/85ND//OPQ//zjzv/84s3//OLN//vh
|
||||
y//84Mr/++DJ//vgyP/738f/+97G//vexf/73cT/+9zD//vcwv/728H/+9vA//ravv/62r7/+9m8//vY
|
||||
vP/617r/+9i5//rXuP/61bf/+ta3//+8vP+QYF7/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKt4b//a2tr//OjX//zn1v/859X//ObU//zm0//85dL//OXR//zk
|
||||
0P/848//++LO//vizP/84sv/++HL//zgyv/738j/+9/H//zfxv/83sb/+93E//vdw//73MP/+9vB//rb
|
||||
wP/72r//+9q+//vZvf/62bv/+ti6//rYuv/617n/+ta4//+7uv+SYV//MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK57cP/b29v//ejZ//zo1//86Nf//OfV//zn
|
||||
1P/85tT//OXS//vl0f/85ND//OPP//vjzv/84s3/++HM//zhyv/74Mr//ODI//zfyP/738f/+97F//vd
|
||||
xP/73cT/+9zC//rbwv/628D/+tu///vavv/72b3/+tm8//rYu//62Lr/+te5//+6uf+SY2H/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALB9cf/c3Nz//OnZ//3p
|
||||
2f/86df//OjW//zo1f/85tX//ObU//zm0//75dH/++TQ//zj0P/8487//OLN//vhzf/74cv/++HK//vg
|
||||
yf/738j/+97H//vexf/73sX/+93E//vcw//63ML/+9vB//vbv//72r7/+tm+//vZvP/72Lv/+te7//+4
|
||||
uP+UZGL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALJ/
|
||||
c//d3d3//Orb//zq2v/96tn//OnY//zo1//86Nb//efV//zm1P/85tL//OXS//zk0f/849D//OPP//zi
|
||||
zv/84sz/++HM//vhyv/84Mn//ODI//vfx//73sb/+97F//vdxP/73cP/+9zC//vcwf/628D/+9u///rZ
|
||||
vv/62bz/+ti7//+2t/+VZmT/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAALaDdP/f39///Ovc//3q2//96tv//enZ//zp2P/96Nf//OjW//zn1f/85tT//OXT//zl
|
||||
0v/85NH//OTQ//vjz//8487/++LN//ziy//84cv/++DJ//vgyP/838j//N/G//vexf/73sT/+93D//vc
|
||||
wv/73ML/+9vB//vawP/72r7/+tq9//+1tf+XaGX/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAALiFdf/g4OD//eze//zr3f/969z//Ora//zq2v/86dn//OnY//3n
|
||||
1v/859X//OfV//zm0//85tL/++XR//zk0P/749D/++PO//zizf/74sz/++HL//vgyv/74Mn/++DI//zf
|
||||
x//73sb/+93F//vdw//73MP/+tzC//vbwf/727//+9q+//+0tP+YaWf/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALuId//h4eH//O3f//3s3//87N3//evc//3q
|
||||
2//86tr//OnZ//zp2P/96Nf//OjV//zn1f/85tT//ObT//zl0v/75ND//OTP//vjzv/8487//OLN//vh
|
||||
y//84cr//ODJ//vgyP/738f/+97G//vexf/73cT/+93D//vcwv/73MH/+9vA//+ysv+Zamj/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL6LeP/i4uL//e7g//3t
|
||||
4P/97d7//eze//3r3P/86tz//Ora//3p2f/86dj//ejX//zo1v/859X//OfU//zm0//85tL//OXR//vk
|
||||
0P/85M///OLO//zjzP/84cv//OHK//vhyf/74Mn/+9/I//vfx//73sb/+97F//vdxP/73ML/+tvC//+w
|
||||
sf+bbGr/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCN
|
||||
ef/k5OT//e7i//3u4f/87eD//ezf//3s3v/9693//evc//3r2//96dr//enZ//zo2P/859f//OfV//zn
|
||||
1P/85tT//ObS//zl0f/85ND/++PQ//zjzv/7487/++LM//vhy//74cr//ODJ//vfyP/83sb//N7G//ze
|
||||
xf/73sT/+9zC//+wr/+cbWv/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAMOQe//l5eX//fDj//3v4v/97uH//e3g//3t4P/87N7//evd//3q3P/969v//Ora//3p
|
||||
2f/96dj//OjW//zo1f/859X//ObU//zm0v/85dL/++XQ//zkz//848//++PN//vizf/74sz/++HK//vg
|
||||
yv/738j/+9/H//vfxv/73cX/+97E//+urf+db2z/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAMWSff/m5ub//vDl//3v5P/+7+P//e7h//3u4P/97d///e3e//3r
|
||||
3f/8693//erb//3q2v/86tn//enY//zp1//86Nb//OfW//zm1P/85tP//OXS//zl0f/85ND/++TP//vi
|
||||
zv/84s3//OLM//vhyv/74Mn//ODJ//vfx//738b/+97F//+srf+fcW3/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMiVfv/n5+f//fHm//7w5f/97+T//u/j//3u
|
||||
4v/97uH//e3g//3s3//8693//Ovd//zq2//969r//era//zp2P/96df//OfX//3n1f/859X//ObU//zl
|
||||
0v/85NH//OTQ//zjz//8487//OLN//zizP/74cv//OHK//vgyf/738j//N/H//+rq/+gcm//MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMqXf//p6en//fLn//3x
|
||||
5v/98eb//fDl//3v4//97uL//e7h//3t4P/97eD//eze//zr3f/869z//erb//zp2v/96dn//OjY//zo
|
||||
1//959b//OfV//zm0//85dL//OXS//vl0f/75ND/++PP//zizf/74s3//OHL//zgyv/74Mr/++DI//+p
|
||||
qf+hdHD/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM2a
|
||||
gP/q6ur//vLp//7x5//98uf//fDm//3w5f/+7+P//e7j//3u4f/97eD//e3g//3s3//97N7//evc//zq
|
||||
2//96tv//erZ//zo2P/96Nf//OfW//zn1f/85tT//ObT//zm0f/85NH//OTQ//zjzv/7487//OLN//zh
|
||||
y//74cv/++DK//+oqP+idXL/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAANCdgf/r6+v//fPq//7y6f/98uj//fHn//7x5v/98OX//fDk//3v4v/97uL//e7h//3t
|
||||
4P/97N///eve//3r3P/969v//era//zp2v/86dj//OnX//3o1v/859X//ObU//zm0//85tL//OXR//zk
|
||||
0f/848///OPO//vizf/74sz/++HL//+np/+jd3P/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANOggv/s7Oz//fTs//3z6v/98+r//fLo//3x5//98eb//vDl//3w
|
||||
5f/+7+T//e/j//3u4f/97eD//e3f//3s3v/97N3//Ovc//3q2//96tr//OnZ//zo2P/96Nf//OjV//zn
|
||||
1P/859P//OXT//vl0f/85dD//OPQ//vjzv/84s7/++LM//+lpf+leXT/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANWihP/u7u7//vXt//707P/+8+v//vPq//3y
|
||||
6P/98uj//fHn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97N///eze//3r3P/869v//Ora//3p
|
||||
2f/96dj//ejX//zo1v/859X//OfU//zm0//85dL//OTR//zk0P/75M///OPO//+kpP+menb/MxoNrzMa
|
||||
DVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANilhf/v7+///vXu//71
|
||||
7f/+9Oz//fPr//7z6v/+8+r//vLo//3y5//+8eb//fDl//3v5P/97uP//e/h//3u4P/97eD//O3f//zs
|
||||
3v/9693//erc//zq2//86tn//enY//3o1//86Nf//efV//zn1f/85tP//OXS//zl0f/85ND/++TP//+i
|
||||
o/+oe3f/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANqn
|
||||
hv/w8PD//vbw//727//99u3//vTt//306//+8+v//vPp//3y6f/+8uj//fHn//3w5f/97+T//e/k//7v
|
||||
4v/97uH//e3g//3t3//97N7//evd//zr3P/969v//era//zp2P/86Nj//OjX//zn1v/95tX//efU//zm
|
||||
0//85dH//OXQ//+goP+pfXj/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAN2qiP/x8fH//vfx//738P/+9e///fbu//717f/99Oz//vTr//3z6v/98+n//fHn//7x
|
||||
5v/98eb//fDl//3w5P/97+P//e7i//3u4f/97eD//e3f//3r3f/969z//erc//zq2v/96dn//OnY//zo
|
||||
1//86Nb//OfU//zm1P/85dP//OXS//+gn/+qf3n/MxoNrzMaDVAzGg0UAAAAAgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOCtiv/z8/P//vjz//738v/+9/D//vbw//327v/+9e3//fTt//30
|
||||
6//+8+r//fLp//7y6f/+8ef//vDm//3w5f/98OT//e/j//3u4v/97uH//e3g//3s3//97N7//Ozd//3r
|
||||
3P/96tr//OnZ//zp2P/96dj//OfW//zn1f/85tX//ObU//+enf+rgHv/MxoNrzMaDVAzGg0UAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOOwi//09PT///j0//748//++PL//vfx//73
|
||||
8P/+9u///vXu//707P/+9Ov//vPr//3y6v/+8un//fLo//3x5v/98OX//fDk//3v4//97+L//e7h//zu
|
||||
4P/97d///Oze//3r3f/869z//erb//3q2v/86dn//ejX//zo1//86Nb//OfV//+cnf+sgn3/NBsNrTQa
|
||||
DU8zGg0UAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOWyjP/19fX//vn2///4
|
||||
9P/++PP//vfy//748f/+9/D//vXv//727v/99e3//vTs//706//98ur//vLp//3y5//98ef//vHm//7v
|
||||
5f/97+P//e/i//3v4v/87uD//ezf//3s3//97N3//Ovc//+8vf//uLf//7Oz//+urv//qan//6Sk//+g
|
||||
n/+ug37/Nx4RozgcEUk5HA4SAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOe0
|
||||
jv/29vb//vr3//769v/++fT//vj0//748//+9/H//vfx//727//+9u///fXt//717f/+8+v//vPr//7y
|
||||
6f/+8uj//fLn//7x5v/98OX//fDk//3v4//97uL//e7h//3t3//97d//upGK/7mPiP+2jIb/tYqF/7OI
|
||||
hP+yh4P/sYaB/7BwcP+bamn/OyEVhUAgFzg7JxQNAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAOq3j//4+Pj//vv4//769//++fb///n1//749P/++PL//vfy//738f/+9vD//vbu//31
|
||||
7v/+9e3//vPr//7z6//98+r//vLp//7y6P/98eb//fDl//7v5f/97+T//e7i//3u4f/97eD/pXJs//+0
|
||||
Uv//mQD/9Y8A/+uFAP/gegD/1nAA/79mGf9+UU7XQSUZUkQiGh5VKysGAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAO26kP/5+fn//vz6///7+P//+/f//vr2//759v/++fT//vjz//73
|
||||
8v/+9/H//vbw//727//+9e7//vXt//716//+8+v//vLq//3y6f/98ej//fHn//3x5v/98OX//e/k//3v
|
||||
4//97uH/qHVu///Mmf//tFL//7BE//+rNv//qC3/2Yw5/4BTUNhAIxpXRyMcJE0zGgqAAAACAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPC9kf/6+vr///37///8+v///Pn///v4//76
|
||||
9v/++vb//vn1//758//++PP//vfx//738f/99vD//vXv//717v/+9Oz//fTr//3z6v/98+n//fHo//3x
|
||||
5//98eb//fHl//3w5P/97+P/q3hv///Wo///t1v//7RS//+wRP/bk0n/g1ZS2EMmGldFKRwlRi4XC4AA
|
||||
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPAkv/7+/v///38///9
|
||||
/P///Pv//vz5//77+P/++/f///r2//759f//+fT//vjy//748v/+9/D//vbv//727//+9e3//fXs//70
|
||||
7P/98+r//vLp//3y6f/98ef//vDm//3w5f/98OX/rntw///grf//u2f//7db/92bW/+HWlTYQyYaV0Up
|
||||
HCVGLhcLgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPXC
|
||||
k//9/f3///7+//7+/P///fz//vz7//78+f/++/j//vv3///69v/++fX//vj0//749P/++PL//vfx//72
|
||||
8P/+9u///vXu//307f/99Oz//vTr//7z6v/+8un//fHo//7x5//98Ob/sH1x///ruP//wHT/3qFq/4pd
|
||||
VthDJhpXRSkcJUYuFwuAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPfElf/+/v7//////////v///v3//v78//79+////Pr///v4///79///+vf///r2///5
|
||||
9f//+PP///jy//748f/+9/D//vbw//717v/+9e3//vTs//7z7P/+8+r//vLp//7y6P/98ef/sn9z///1
|
||||
wv/gqHv/jmFX2kYpHVhMKRwlRi4XC4AAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPrHl/////////////7+/v/9/f3//Pz8//z8/P/7+/v/+vr6//r6
|
||||
+v/5+fn/+Pj4//f39//39/f/9vb2//X19f/19fX/9PT0//Pz8//z8vL/8vHw//Hw7//w7uz/8O3r/+/s
|
||||
6f/u6+j/toN0/+zftv+OYlbkRikbaUsyJSlVKxUMgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP7Lmf/81rH/+tSw//jRrv/1z63/882r//HL
|
||||
qv/uyKn/7MWo/+rDpv/owaX/5b+k/+O9ov/guqH/3ref/9u1nv/as53/17Gb/9Wumv/SrJn/0KqY/86n
|
||||
lv/LpZX/yaOU/8agkv/EnpH/uIV1/7WCdJ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPwAAAAADwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
|
||||
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwA
|
||||
AAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAH
|
||||
AAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD8AAAAAA8AAPwA
|
||||
AAAAHwAA/AAAAAA/AAD8AAAAAH8AAPwAAAAA/wAA/AAAAAH/AAD8AAAAP/8AACgAAAAgAAAAQAAAAAEA
|
||||
IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxISDjYXDyE0GhAxNhsNOTQa
|
||||
DTszGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMaDTwzGg08MxoNPDMa
|
||||
DTw0Gg07MhsOODQaCjE2Fw8hNxISDlUAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2Fw8hNBoNTjMb
|
||||
DXMzGw2GMxoNizMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMaDYwzGg2MMxoNjDMa
|
||||
DYwzGg2MMxoNjDMaDYs0Gw2FMxsNczIaDU02Fw8hQCAACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAM2b
|
||||
iuvSn5Pwy5qN9siXi/nGlov6xpaL+sWUivrEk4r6wpGJ+sKQifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQ
|
||||
ifrCkIn6wpCJ+sKQifrCkIn6wpCJ+sKQifnXkob4MxsNczQaEDFAFRUMAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAzbGo//3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3Sv//90r///dK///3S
|
||||
v//90r///dK///3Sv//90r///dK///3Sv//90r///8yZ/9WRhfo0GQ2FMRsNOTsUFA0AAAABAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADJsqj/4eLi//vgyf/738j/+97G//vdxf/63MP/+9vB//vawP/62r//+tm9//rY
|
||||
vP/617n/+ta4//nVtv/51LX/+tSz//nTsv/50rD/+tGv//rRrf/90r//1ZGF+zMaDYs0Gg07NxISDgAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAMy1qf/i5OP/++HL//vgyv/738j/+9/H//vexf/73cT/+tzC//rb
|
||||
wP/62r7/+9q9//vYvP/62Lr/+te5//rVuP/61Lb/+tS0//rTs//60rL/+dKw//3Sv//UkYT7MxoNjDMa
|
||||
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAzrer/+Pk5P/8483//OHL//zgyv/74Mn/+9/H//ve
|
||||
xf/73cT/+9zD//rbwP/727//+tm+//vZvP/62Lv/+te6//rWuP/61rb/+tS1//rUtP/507L//dK//9SR
|
||||
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADQuKz/5ebm//vkz//8483/++LM//vh
|
||||
y//84Mn/+9/H//vexv/73cX/+93D//vbwf/628D/+tq+//rZvf/62Lz/+te6//rXuP/61rf/+tW1//rT
|
||||
s//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAANK6rv/m5+f/++XR//zk
|
||||
z//848///OLN//vhy//74Mr/++DI//vexv/73cX/+93D//rcwv/728H/+9q///vZvv/62bz/+9i7//rW
|
||||
uf/61bf/+tW2//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA07yv/+fo
|
||||
6P/85tP//OXS//zl0P/848///OPO//zhzP/84Mr/++DJ//vfx//73sX/+93E//vcwv/728H/+9vA//ra
|
||||
vv/72L3/+ti7//rXuv/617j//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AADWvrD/6Onp//zn1f/85tT//ObT//zl0f/848//++PN//zizP/74cv/++DJ//vfx//73sb/+93F//rd
|
||||
xP/728L/+9vA//vZv//62b7/+tm8//rXuv/90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAANjAsv/p6ur//OjX//zn1v/85tT//OXT//zl0f/85ND/++PO//zizf/84cv/++DJ//vg
|
||||
yP/738f/+97G//vdxP/73ML/+tvB//vav//72b7/+ti8//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA2sKz/+rr6//96dr//enY//zo1//859X//ObU//vl0v/75ND//OPP//vj
|
||||
zv/84sz//OHL//zgyf/738f/+97F//vdxf/63MP/+tzB//vbwP/72r7//dK//9SRhPszGg2MMxoNPDcS
|
||||
Eg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADcxLT/6+zs//3r3P/86tr//OnZ//3o1//859b//ObU//zm
|
||||
0v/85dH/++TP//zizv/84sz//OHL//vgyv/74Mj/+97G//vdxf/73cP/+tzC//rbwP/90r//1JGE+zMa
|
||||
DYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAN7Gtv/t7e3//eze//3r3P/969v//enZ//zo
|
||||
2P/859b//ObU//zl0//85dL//OTQ//vkzv/8483//OLM//vgyv/74Mj/+9/H//vexv/73cT/+9zD//3S
|
||||
v//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA38e3/+7u7//97d///Oze//3s
|
||||
3f/869v//era//zo2P/86Nb//OfV//zn0//85dP//OXR//zjz//8487//OLM//vhy//84Mr/+9/I//vf
|
||||
xv/73sT//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADiyrn/7+/v//3u
|
||||
4v/97eH//ezf//3s3f/969v//Orb//3p2f/86Nj//OfW//zm1P/85dP//OXR//zk0P/8487//OLN//vi
|
||||
y//84Mr/+9/I//vex//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAOTM
|
||||
uf/w8fH//e/k//3v4//97eH//e3f//zs3v/97Nz//erb//zp2f/96dj//OjX//zn1P/85tT/++XR//zk
|
||||
0f/85M//++LN//zizP/74cr/++DJ//3Sv//UkYT7MxoNjDMaDTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAA5s27//Hy8v/+8ef//fDl//3v4//97uL//e3g//zt3v/97N3//evb//zp2v/86dn//OjX//zn
|
||||
1f/85tT//ObT//zk0f/749D//OPO//vizf/84cv//dK//9SRhPszGg2MMxoNPDcSEg4AAAABAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADo0L3/8vPz//3y6P/98uf//fHl//7v4//97+L//O7h//3s3//97N7//evc//zq
|
||||
2v/96dn//OnY//zn1v/85tX//ObT//zl0f/85ND//OPO//vizf/90r//1JGE+zMaDYwzGg08NxISDgAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAOrRvv/z9PT//vPq//3z6f/+8ef//fHm//3v5P/97uP//e7i//3t
|
||||
3//97N7//Ovd//3r2//96tn//OjY//zo1v/859X//ObU//zl0v/85NH//OTP//3Sv//UkYT7MxoNjDMa
|
||||
DTw3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA7NTA//X19f/99ez//fPr//3y6f/98uf//vHm//3w
|
||||
5f/97+P//e7i//3t4f/97N///evd//zq2//86tr//OjZ//3p1//959b//ObU//zl0v/75NH//dK//9SR
|
||||
hPszGg2MMxoNPDcSEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAAAADu1sL/9vb2//727//99e3//vTr//7z
|
||||
6v/+8un//vHn//3w5v/98OT//e/j//zu4f/97N///eze//3r3P/86tv//enZ//zo2P/859b//OfU//zm
|
||||
0//90r//1JGE+zMaDYwzGg08NxISDgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAPDYw//39/f//vbw//71
|
||||
7//99e7//vTs//306v/98+n//fHo//3w5v/97+T//e/j//3u4f/97d///eze//zs3f/96tv//enZ//zo
|
||||
2P/859f//OfV//3Sv//VkYX7MxoNizQaDTs3EhIOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAA8tnF//j4
|
||||
+P/++PL//vfx//728P/+9e7//vTt//706//+8+n//fLo//7x5v/98OX//e/j//3u4v/97eD//O3f//zs
|
||||
3v/969z//era//zp2f/86Nf//dK//9WNgfs3HhGHNh8SOTckEg4AAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAD03Mf/+fn5///59f/++PP//vjx//738P/+9e7//vXt//307P/+8+r//vLp//3x5//+8Ob//e/k//3v
|
||||
4v/97uH//e3g//3r3v/3s7P/96ys//ahov/4mpr/1pCC+z4jF3xBKBkzQCsVDAAAAAEAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPbdx//6+/v//vv3///69f/++PT//vjy//738f/+9u///vXu//707P/+8+r//fPp//7x
|
||||
6P/+8eb//e/l//3v4//97uH/5baR/+6hR//nlTj/3os2/9WCNf+1gGHqSS8iYkg0Jyc5ORwJAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA+ODK//z8+///+/n//vv3///69v/++fT///jz//738v/+9/D//vXu//71
|
||||
7f/99Ov//vPq//7y6P/98ef//fDl//3v5P/rwJ7//71g//+pMf/8oiL/x4ZG7V9DM39RNys8WUAzFEBA
|
||||
QAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD64sr//fz9///9+////Pn///v4//769//++fX//vnz//74
|
||||
8v/+9vH//vbv//717f/+9Oz//fPq//3y6f/+8ef//fDl/+vHqP//zoX//rVU/82VXe5fQzSDVDgsQFg7
|
||||
MRpJSSQHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPzkzP/+/v7///79///9/P///Pr///z4///6
|
||||
9//++vb//vn0//748///9/H//vbv//317f/99O3//fPq//3z6f/+8ef/7dCv///Ylv/Ik2rwXkEzhlE6
|
||||
K0JVQi8bYEBACAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ufS///////9/f3/+/v7//n5
|
||||
+f/3+Pf/9fb2//T09P/y8vL/7/Dw/+7u7v/s7Oz/6uvq/+jp6f/l5+f/5OXk/+Lj4//u0bD/yqqG9lw/
|
||||
MKJROCxSWkIxH2BAQAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD+1Kr5/dq5+frX
|
||||
tvn51rT59tSz+fTRsvnxz7D578yv+e3Lrfnsyaz56caq+ebDqfnkwaf548Cm+eG+pPneu6P527mi+d+v
|
||||
j8bap4YUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAA/AAAAHwAAAB8AAAAfAA
|
||||
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAA
|
||||
AAHwAAAB8AAAAfAAAAHwAAAB8AAAAfAAAAHwAAAB8AAAA/AAAAPwAAAH8AAAD/AAAf8oAAAAEAAAACAA
|
||||
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzHA43MxoNeDIbDaIzGg2uMxoNrzMa
|
||||
Da8zGg2vMxoNrzMaDa8zGg2vMxoNrjIbDaIzGg14MxwONwAAAAAAAAAArntu/9mtnf/WqJr/06aY/9Kk
|
||||
l//MoZn/yZ6X/8aclv/EmZX/wZaT/7aRi/+4jov/MxsNoTQYDkoAAAAAAAAAALWCcv/84cv/++DI//ve
|
||||
xP/73ML/+tq+//rYu//717j/+tS0//nSsf/60K7/7r2l/zMaDa40Gg1PAAAAAAAAAAC7iHX//OTP//zi
|
||||
zP/74Mn/+97G//vcw//72r//+9m8//rWuP/61bX/+tOx/++/qP8zGg2vMxoNUAAAAAAAAAAAwo95//zn
|
||||
1P/85NH//OPO//zhyv/738f/+9zE//vbwP/62rz/+9e5//vVtv/wwav/MxoNrzMaDVAAAAAAAAAAAMiV
|
||||
fP/86Nj//ObV//zl0v/8487/++HL//vgyP/73sT/+tzB//vZvv/62Lv/8MOv/zMaDa8zGg1QAAAAAAAA
|
||||
AADPnID//Ovd//3q2v/859b//ObT//zkz//84sz/++DJ//vexv/73ML/+tu///HFsf8zGg2vMxoNUAAA
|
||||
AAAAAAAA1aKD//3u4P/97N3//Orb//zo1//85tP//OTR//vizf/74cr/+9/G//vdw//yyLX/MxoNrzMa
|
||||
DVAAAAAAAAAAANyph//+8OX//e7h//3s3//969v//enY//zm1f/85dH/++PO//zhyv/738f/8sm3/zMa
|
||||
Da8zGg1QAAAAAAAAAADcqYf//fPq//3x5v/97+P//e3f//zr3P/96dn//efW//zl0//85M///OHL//PM
|
||||
uv8zGg2vMxoNUAAAAAAAAAAA3KmH//317f/+8+r//fLn//3v5P/97eH//eze//zq2v/86Nf//ObT//zk
|
||||
0P/zzb3/NRsPqjUaDU0AAAAAAAAAANyph//++PL//vXu//307P/98uj//fDl//3u4v/97N7//era//zo
|
||||
2P/85tT/9Mm6/zogEZk9IhNDAAAAAAAAAADcqYf///r3//748//+9vD//vTs//7y6f/98eb//e/i///V
|
||||
zP//1cz/9bOq/6l4bOBCKBh0SCccLgAAAAAAAAAA3KmH///9+///+/f//vn0//738f/+9e3//fPr//3x
|
||||
5//3pkP/96ZD/+CSQP5HKxqRTi4gSFk3IRcAAAAAAAAAANyph/////////77///7+P/++vX//vjx//72
|
||||
7v/98+z/3KmH/+qzdv5oSDLCTzMkZFM3IiVVORwJAAAAAAAAAADcqYf/3KmH/9yph//cqYf/3KmH/9yp
|
||||
h//eq4j/1qOE/9yph//ZqYktAAAAAAAAAAAAAAAAAAAAAMAAAADAAAAAwAAAAMAAAADAAK7/wADn/8AA
|
||||
0f/AAM//wADP/8AAzf/AAMv/wADK/8AAyP/AAMb/wADF/8APw/8=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
122
SW/20211125/_FRReporting/Formulare/frmCRReporting.vb
Normal file
122
SW/20211125/_FRReporting/Formulare/frmCRReporting.vb
Normal file
@@ -0,0 +1,122 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports FastReport
|
||||
|
||||
Public Class frmcrreporting
|
||||
|
||||
Dim ds As DataSet
|
||||
Dim auswertungnr As Integer
|
||||
Dim dms As New Utils.MyDocMgmt
|
||||
Dim auswertung As New TKB.Auswertung.clsAuswertung
|
||||
Dim rptfilename As String
|
||||
Dim printparam As Boolean = True
|
||||
Dim StandardAuswertung As Boolean = True
|
||||
Dim Design As Boolean = False
|
||||
|
||||
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer, ByRef auswertung As TKB.Auswertung.clsAuswertung, ByVal printparam As Boolean, ByVal Design As Boolean)
|
||||
InitializeComponent()
|
||||
Me.ds = ds
|
||||
Me.auswertungnr = Auswertungnr
|
||||
Me.auswertung = auswertung
|
||||
Me.printparam = printparam
|
||||
Me.StandardAuswertung = True
|
||||
Me.Design = Design
|
||||
End Sub
|
||||
Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer)
|
||||
InitializeComponent()
|
||||
Me.ds = ds
|
||||
Me.auswertungnr = Auswertungnr
|
||||
Me.StandardAuswertung = False
|
||||
End Sub
|
||||
Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub DesignReport()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Application.DoEvents()
|
||||
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
|
||||
|
||||
Dim i As Integer
|
||||
ds.Tables(0).TableName = "Daten"
|
||||
For i = 1 To ds.Tables.Count - 1
|
||||
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
|
||||
Next
|
||||
|
||||
Dim report As New Report
|
||||
Try
|
||||
If rptfilename <> "" Then report.Load(rptfilename)
|
||||
report.RegisterData(ds)
|
||||
report.GetDataSource("Daten").Enabled = True
|
||||
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
|
||||
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
|
||||
If Me.printparam Then
|
||||
i = 0
|
||||
Dim s As String = ""
|
||||
|
||||
For i = 1 To Me.auswertung.ParamCollection.Count
|
||||
If s <> "" Then s = s + "|"
|
||||
s = s + Me.auswertung.ParamCollection.Item(i).ToString
|
||||
Next
|
||||
report.SetParameterValue("Parameters", s)
|
||||
End If
|
||||
Cursor = Cursors.Default
|
||||
report.Preview = Me.PreviewControl1
|
||||
report.Design()
|
||||
report.Dispose()
|
||||
Me.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub DisplayReport()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Application.DoEvents()
|
||||
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
|
||||
|
||||
Dim i As Integer
|
||||
ds.Tables(0).TableName = "Daten"
|
||||
For i = 1 To ds.Tables.Count - 1
|
||||
ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
|
||||
Next
|
||||
|
||||
Dim report As New Report
|
||||
Try
|
||||
If rptfilename <> "" Then report.Load(rptfilename)
|
||||
report.RegisterData(ds)
|
||||
report.GetDataSource("Daten").Enabled = True
|
||||
report.SetParameterValue("Titel1", auswertung.TitelZeile1)
|
||||
report.SetParameterValue("Titel2", auswertung.TitelZeile2)
|
||||
If Me.printparam Then
|
||||
i = 0
|
||||
Dim s As String = ""
|
||||
|
||||
For i = 1 To Me.auswertung.ParamCollection.Count
|
||||
If s <> "" Then s = s + "|"
|
||||
s = s + Me.auswertung.ParamCollection.Item(i).ToString
|
||||
Next
|
||||
report.SetParameterValue("Parameters", s)
|
||||
End If
|
||||
Cursor = Cursors.Default
|
||||
report.Preview = Me.PreviewControl1
|
||||
report.Show()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
62
SW/20211125/_FRReporting/Formulare/frmCalendar.designer.vb
generated
Normal file
62
SW/20211125/_FRReporting/Formulare/frmCalendar.designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmCalendar
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar()
|
||||
Me.btnok = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MonthCalendar1
|
||||
'
|
||||
Me.MonthCalendar1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.MonthCalendar1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MonthCalendar1.Name = "MonthCalendar1"
|
||||
Me.MonthCalendar1.TabIndex = 0
|
||||
'
|
||||
'btnok
|
||||
'
|
||||
Me.btnok.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.btnok.Location = New System.Drawing.Point(0, 162)
|
||||
Me.btnok.Name = "btnok"
|
||||
Me.btnok.Size = New System.Drawing.Size(162, 23)
|
||||
Me.btnok.TabIndex = 1
|
||||
Me.btnok.Text = "OK"
|
||||
Me.btnok.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmCalendar
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(162, 183)
|
||||
Me.Controls.Add(Me.btnok)
|
||||
Me.Controls.Add(Me.MonthCalendar1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Name = "frmCalendar"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Kalender"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar
|
||||
Friend WithEvents btnok As System.Windows.Forms.Button
|
||||
End Class
|
||||
120
SW/20211125/_FRReporting/Formulare/frmCalendar.resx
Normal file
120
SW/20211125/_FRReporting/Formulare/frmCalendar.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
29
SW/20211125/_FRReporting/Formulare/frmCalendar.vb
Normal file
29
SW/20211125/_FRReporting/Formulare/frmCalendar.vb
Normal file
@@ -0,0 +1,29 @@
|
||||
Imports System.Windows.Forms
|
||||
Public Class frmCalendar
|
||||
|
||||
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
|
||||
End Sub
|
||||
|
||||
Private Sub MonthCalendar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MonthCalendar1.KeyDown
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmCalendar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmCalendar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
92
SW/20211125/_FRReporting/Formulare/frmDataSelect.Designer.vb
generated
Normal file
92
SW/20211125/_FRReporting/Formulare/frmDataSelect.Designer.vb
generated
Normal file
@@ -0,0 +1,92 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDataSelect
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDataSelect))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(451, 25)
|
||||
Me.ToolStrip1.TabIndex = 4
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AllowUpdate = False
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(0, 25)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.ScrollTips = True
|
||||
Me.C1Daten.Size = New System.Drawing.Size(451, 284)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 7
|
||||
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'frmDataSelect
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(451, 309)
|
||||
Me.Controls.Add(Me.C1Daten)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "frmDataSelect"
|
||||
Me.Text = "Datenauswahl"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
End Class
|
||||
172
SW/20211125/_FRReporting/Formulare/frmDataSelect.resx
Normal file
172
SW/20211125/_FRReporting/Formulare/frmDataSelect.resx
Normal file
@@ -0,0 +1,172 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 449, 282</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 449, 282</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
28
SW/20211125/_FRReporting/Formulare/frmDataSelect.vb
Normal file
28
SW/20211125/_FRReporting/Formulare/frmDataSelect.vb
Normal file
@@ -0,0 +1,28 @@
|
||||
Public Class frmDataSelect
|
||||
|
||||
Dim m_selectedvalue As String
|
||||
Property SelectedValue As String
|
||||
Get
|
||||
Return m_selectedvalue
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_selectedvalue = value
|
||||
End Set
|
||||
End Property
|
||||
Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
||||
End Sub
|
||||
|
||||
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
||||
Me.SelectedValue = Me.C1Daten.Columns(0).Value
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
|
||||
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
62
SW/20211125/_FRReporting/Formulare/frmEditWhere.designer.vb
generated
Normal file
62
SW/20211125/_FRReporting/Formulare/frmEditWhere.designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmEditWhere
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEditWhere))
|
||||
Me.Editor = New System.Windows.Forms.RichTextBox
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Editor
|
||||
'
|
||||
Me.Editor.Location = New System.Drawing.Point(12, 12)
|
||||
Me.Editor.Name = "Editor"
|
||||
Me.Editor.Size = New System.Drawing.Size(646, 168)
|
||||
Me.Editor.TabIndex = 0
|
||||
Me.Editor.Text = ""
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(12, 186)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 1
|
||||
Me.Button1.Text = "Speichern"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmEditWhere
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(670, 222)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Editor)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmEditWhere"
|
||||
Me.Text = "Edit Where-Klausel"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Editor As System.Windows.Forms.RichTextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
End Class
|
||||
418
SW/20211125/_FRReporting/Formulare/frmEditWhere.resx
Normal file
418
SW/20211125/_FRReporting/Formulare/frmEditWhere.resx
Normal file
@@ -0,0 +1,418 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAQAMDAAAAEAIACoJQAARgAAACAgAAABACAAqBAAAO4lAAAYGAAAAQAgAIgJAACWNgAAEBAAAAEA
|
||||
IABoBAAAHkAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvgAAAMsAAADLAAAAywAA
|
||||
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
|
||||
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAvgAAAIEAAAAfAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEDAwP/LCwr/z4+
|
||||
PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z8+PP8/Pjz/Pz48/z4+PP8+Pjz/Pj48/z4+
|
||||
PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/Pj48/z4+PP8+Pjz/LCwr/wMDA/8AAADxAAAAYgAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABbAAAA/Ds6
|
||||
Of/Cvrv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le
|
||||
2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/+Le2v/i3tv/4t7a/8G+
|
||||
u/87Ojn/AAAA/AAAAFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
ABEAAADqNTQz/9rX0//k4Nz/7Orn//Px7//z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
|
||||
8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
|
||||
8P/z8fD/7Orn/+Pg3P/a19P/NTQz/wAAAOoAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAGIBAQH/raqo/+Th3f/29fT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//b19P/k4d3/raqn/wEBAf8AAABiAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcTEhL/3tvY/+7s6v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/u7Or/3tvX/xMSEv8AAACXAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5eLe//Tz8v/+/v7//v7+//7+
|
||||
/v/+/v7//f39//T09P/6+vr//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/08/L/5eLe/xsb
|
||||
Gv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxr/5uPf//X0
|
||||
8//+/v7//v7+//7+/v/+/v7/4uLi/5WVlf+NjY3/mpqa/6Wlpf+ysrL/v7+//8zMzP/b29v//Pz8//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
|
||||
/v/29PP/5uPf/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMbGxv/5+Th//b08//+/v3//v79//7+/f/+/v3/9fT0/6KjpP+4xtT/ornQ/42apv+Oj4//kZGQ/5SU
|
||||
lP+Yl5f/sLCv/+zs6//+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+/f/+/v3//v79//7+
|
||||
/f/+/v3//v79//7+/f/29PP/5+Th/xsbGv8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMbGxv/6OTh//X08//9/f3//f39//39/f/9/f3//f39/9fc4v/d6fX/yNzw/6TG
|
||||
6P+Eq9P/fpew/5GWmv+ZmZn/nZ2d/6SkpP/S0tL/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39
|
||||
/f/9/f3//f39//39/f/9/f3//f39//39/f/19PP/6OTh/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6OXi//X08//9/f3//f39//39/f/9/f3//f39//b4
|
||||
+//W5PP/3en1/8jc8P+fxuj/RL/r/x687f9Jr9D/nKCh/6Ojo/+oqKj/vLy8/+/v7//9/f3//f39//39
|
||||
/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fP/6OXi/xsbG/8AAACjAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMbGxv/6ebj//b18//9/f3//f39//39
|
||||
/f/9/f3//f39//39/f/W5PP/1eTz/8zm9v8q0Pv/ANL+/wDW/v8AyP7/N7Xf/6KnqP+rq6v/r6+v/7W1
|
||||
tf/b29v/+/v7//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/29fT/6ebj/xsb
|
||||
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcGxv/6ufk//b0
|
||||
8//9/Pz//fz8//38/P/9/Pz//fz8//38/P/o7/f/wNfu/0HR+v8Ayv7/AM/+/wDT/v8A1P7/AMb+/zm3
|
||||
4f+qrq//srKy/7a2tv+7u7v/y8vL//Hx8f/9/Pz//fz8//38/P/9/Pz//fz8//38/P/9/Pz//fz8//38
|
||||
/P/29PT/6ufk/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMcGxv/6+jl//b19P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/7+/z/mdLv/wLW/v8Ayv7/AMz+/wDR
|
||||
/v8A1P7/ANP+/wDE/v89uOP/sbW2/7m5uf++vr7/wsLC/8nJyf/l5eX/+/v7//z8/P/8/Pz//Pz8//z8
|
||||
/P/8/Pz//Pz8//z8/P/29fT/6+jl/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMcGxv/6+nm//b18//8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//8/Pv/qOT5/wDL
|
||||
/v8A1f7/AMz+/wDP/v8A0/7/ANX+/wDR/v8Awv7/P7rm/7e8vf/AwMD/xsbG/8vLy//R0ND/3dzc//X1
|
||||
9P/8/Pv//Pz7//z8+//8/Pv//Pz7//z8+//29fT/6+nm/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7Orn//b18//7+/v/+/v7//v7+//7+/v/+/v7//v7
|
||||
+//7+/v/7/j7/zrO/f8Ay/7/ANX+/wDO/v8A0f7/ANX+/wDW/v8Az/7/AMD+/0G86P+/xMX/ysrJ/8/P
|
||||
zv/T09P/2NjY/97e3v/v7+7/+vr6//v7+//7+/v/+/v7//v7+//29fT/7Orn/xwcG/8AAACjAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7evo//b19P/7+/r/+/r6//v6
|
||||
+v/7+/r/+/r6//v6+v/7+/r/+/r6/+r2+v84zf3/AMv+/wDV/v8Az/7/ANP+/wDX/v8A1/7/AM3+/wC+
|
||||
/v9Fvuv/yMzN/9HR0f/W1tb/3Nvb/+Hg4P/n5ub/7+7u//j49//7+vr/+/r6//v6+v/29fT/7evo/xwc
|
||||
G/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBv/7uzp//b1
|
||||
8//6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/p9vr/Oc79/wDK/v8A1f7/ANH+/wDV
|
||||
/v8A2f7/ANf+/wDL/v8AvP7/R8Du/87U1f/a2tn/3t7e/+Tk4//p6en/7+/u//T09P/6+fn/+vr5//r6
|
||||
+f/29fT/7uzp/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMcHBz/7uzq//b08//6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/6PX5/znN
|
||||
/f8Ayf7/ANT+/wDS/v8A1/7/ANv+/wDY/v8AyP7/ALn+/0rC8f/X3N3/4uHh/+fm5v/t7Oz/8vHx//j3
|
||||
9//6+fn/+vn5//r5+f/29PP/7uzq/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMcHBz/7+3r//X08//5+fj/+fn4//n5+P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
|
||||
+P/5+fj/+fn4/+j1+f83zP3/AMj+/wDT/v8A0/7/ANn+/wDe/v8A2f7/AMb+/wC3/v9OxPP/3+Pk/+rp
|
||||
6f/w7+7/9fX0//n4+P/5+fj/+fn4//n5+P/29fP/7+3r/xwcHP8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8O7s//X08//5+Pf/+fj3//n49//5+Pf/+fj3//n4
|
||||
9//5+Pf/+fj3//n49//5+Pf/+fj3//n49//p9Pj/OMv9/wDH/v8A0v7/ANX+/wDb/v8A4P7/ANr+/wDD
|
||||
/v8AtP7/T8X2/+br7P/z8vH/+Pf2//n49//5+Pf/+fj3//n49//29PP/7+3r/xwcHP8AAACjAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8e/t//X08//49/b/+Pf2//j3
|
||||
9v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/+Pf2//j39v/49/b/5/P3/zjL/P8Axv7/ANH+/wDW
|
||||
/v8A3f7/AOL+/wDa/v8Awf7/ALL+/1LH+f/w9PT/+Pf2//j39v/49/b/+Pf2//j39v/18/L/7+3r/xwc
|
||||
HP8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMcHBz/8fDu//X0
|
||||
8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1/+jz
|
||||
9v81yfz/AMX+/wDQ/v8A2P7/AOD+/wDk/v8A2/7/AL7+/wCv/v9VyPv/8vX1//f29f/39vX/9/b1//b1
|
||||
9P/z8vD/7uzq/xwcG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMdHBz/8vDv//Xz8v/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f29f/39vX/9/b1//f2
|
||||
9f/39vX/9/b1//f29f/n8vX/N8n8/wDD/v8Az/7/ANn+/wDi/v8A5v7/ANz+/wC7/v8ArP7/U8b7//D0
|
||||
9f/39vX/9vX0//X08v/y8O7/7ero/xwbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMdHBz/8/Hw//Xz8v/29fP/9vXz//b18//29fP/9vXz//b18//29fP/9vXz//b1
|
||||
8//29fP/9vXz//b18//29fP/9vXz//b18//29fP/5fH0/zjI/P8Awv7/AM7+/wDa/v8A5P7/AOj+/wDd
|
||||
/v8BuP7/Oazk/6Cztf/Vz8n/9PPx//Px7//v7ev/6+jl/xsbG/8AAACjAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHRz/8/Lx//Tz8v/19PP/9fTy//X08v/19PP/9fTy//X0
|
||||
8v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy//X08v/19PP/9fTy/+Xw8/82x/z/AMD+/wDM
|
||||
/v8A3P7/AOb+/wzq/f+X2uL/zMW+/7ivpP+lmIr/z8nB//Dt6//s6ef/5+Tg/xsaGv8AAACjAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9PPy//Tz8f/08/L/9PPy//Tz
|
||||
8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8v/08/L/9PPy//Tz8f/08/L/9PPx//Tz
|
||||
8f/k7/L/OMb7/wC+/v8Ay/7/Cd38/7Hn6//q5+T/3tnU/83Fvv+4r6T/pJiK/8vEvP/o5OD/4t7Y/xoa
|
||||
Gf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9fTy//Ty
|
||||
8f/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py
|
||||
8P/z8vD/8/Lw//Py8P/z8vD/4u7x/zjF+/8AvP7/c8fb/93Z1P/q5+T/6ufk/97Z1P/Nxb7/v7at/6ud
|
||||
mf/Ox8D/29XO/xkYF/8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMdHR3/9vTz//Py8P/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
|
||||
7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv/+Lt8P9Hwe//sa+o/83Fvv/e2dX/6ufk/+rn
|
||||
5f/a0Nb/l1LA/2kJq/+TWbD/0MfA/xgXFf8AAACjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMdHR3/9vX0//Py8P/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw
|
||||
7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/y8O7/8vDu//Lw7v/d2tb/o5aJ/7iv
|
||||
pP/Nxr7/3tnV/97R3/+RKNn/dQDJ/2kAtf9iAKr/k1iw/xUTE/8AAADKAAAADAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/9/b1//Px7//w7+3/8O/t//Dv7f/w7+3/8O/t//Dv
|
||||
7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Dv7f/w7+3/8O/t//Du
|
||||
7P/v7ev/wLet/6OWif+4r6X/0cjG/5Azzv9+ANj/fADW/3QAx/9oALT/YwCr/zcAXf8AAAD/AAAAlgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pf2//Lx7//v7ev/7+3r/+/t
|
||||
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t
|
||||
6//v7ev/7+3r/+7s6v/u6+n/6+nm/7yzqf+mmo3/onO0/3IAwv93AM3/fQDX/3wA1v90AMf/bgC+/2wA
|
||||
uf8hADn/AAAA9AAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMdHR3/+Pj3//Lw
|
||||
7v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
|
||||
6v/u7Or/7uzq/+7s6v/u7Or/7uvp/+3q6P/n4+D/0srC/8/Gvf/FvbT/g0ac/20Auf9xAMH/dwDN/30A
|
||||
2P+CAN7/gADa/3cAy/9EAHT/AAAA/wAAADkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMdHR3/+fj3//Hv7v/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r
|
||||
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6P/s6uj/6+nm/+Tg3P/Jv7X/6ubi//z8/P/29fT/5uDi/5hR
|
||||
yf9tALn/cQDB/3oA0f+FAOP/hwDm/34A2P87AGb/AAAA/QAAACoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMdHR3/+fn4//Hv7f/s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp
|
||||
5//s6uf/7Onn/+zp5//s6uf/7Onn/+zp5//s6uf/7Onn/+vp5v/r6OX/6OXi/8vCuP/u6+j/9vX0/+Tg
|
||||
3f/h3dn/4d3Z/9/Y2P+TSsP/bQC6/3QAxv98ANX/gQDe/20Auv8JAA//AAAA0AAAAAQAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHR3/+vr5//Du7P/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo
|
||||
5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6Ob/6+jl/+vo5f/r6OX/6ufl/+nm4//o5eH/4NvX/9PL
|
||||
wv/8+/v/4+Dc/+Hd2f/h3dn/4d3Z/+Hd2f/s6Or/nFnL/20Auf90AMX/XwCj/wwAFf8AAADtAAAANQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/r6//Du7P/q5+T/6ufk/+rn
|
||||
5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/q5+T/6ufk/+rn5P/p5uP/6OXi/+fj
|
||||
4P/l4d3/19HK/+Ld1//z8vH/4d3Z/+Hd2f/h3dn/4d3Z/+/t6//w8PD/QEBA/w4AGf8UACP/AgAD/wAA
|
||||
AO0AAAA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKMeHh7/+/v7/+/t
|
||||
6//p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jl4v/p5uP/6OXi/+jk
|
||||
4f/n5OD/5eLe/+Pf3P/g3Nj/0srC/+Tg2//x8O7/4d3Z/+Hd2f/h3dn/7+3r//Ly8v8/Pz//AAAA+QAA
|
||||
AMgAAADMAAAAlQAAACMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AKMeHh7//Pz7/+/s6v/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
|
||||
4f/n5OH/5uPg/+Xi3//k4N3/4t7a/9/b1v/b1tH/y8O6/+Pe2f/y8O7/4d3Z/+Hd2f/v7ev/8PDw/z8/
|
||||
P/8AAAD4AQEBVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAKMeHh7//Pz8/+7s6v/m4t//5uLf/+bi3//m49//5uLf/+bi3//m49//5uLf/+bi
|
||||
3//m49//5uLf/+bi3//l4t7/5OHd/+Pf2//h3dj/3tnV/9rUz//Vzsj/xLqv/+Hb1v/x8O7/4d3Z/+/t
|
||||
6//s7Oz/QEBA/wAAAPkBAQFXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJcVFRX/9vb2//Ty8f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Th
|
||||
3f/l4d3/5OHd/+Th3f/l4d3/5OHd/+Tg3P/j39v/4t3Z/9/b1//d2NP/2dPO/9PNxv/MxLv/ua6i/97Y
|
||||
0//y8O7/7+3r/+7u7v85OTn/AAAA+QEBAVgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIBAQH/wcHB//39/f/r6Ob/49/c/+Pf
|
||||
3P/j39z/49/c/+Pf3P/j39z/49/c/+Pf3P/j39v/4t7b/+Hd2f/g3Nj/3tnV/9vW0f/X0sz/0szE/8vC
|
||||
uv/Atq3/raCT/9vWz//7+/v/7Ozs/zk5Of8AAAD4AQEBWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEAAADqOzs7//T0
|
||||
9P/+/f3/9PPx/+7r6f/t6+j/7evo/+3r6P/t6+j/7evo/+3r6P/t6uf/6+nm/+rn5P/o5eH/5eHd/+Hc
|
||||
2P/b1tD/1M3F/8nAt/+7sKX/ppiK/9vVzv/s7Oz/Ojo6/wAAAPgBAQFYAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAABbAAAA/EJCQv/a2tr//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/Pz/+/r6//n4
|
||||
9v/29PL/8e/s/+vo5P/j3tn/2NHJ/8nAtf+3q57/oZGA/8rEvf85OTn/AAAA+AAAAFkAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAABAAAAYgAAAPEEBAT/MjIy/0dHR/9HR0f/R0dH/0dHR/9HR0f/R0dH/0ZG
|
||||
Rv9GRkb/RUVF/0VERP9EQ0L/QkFA/0A/Pv89PDr/Ojc0/zUyL/8vKyf/KSQf/xoYF/8AAAD4AQEBWAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAACBAAAAvQAAAMsAAADLAAAAywAA
|
||||
AMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAAAMsAAADLAAAAywAA
|
||||
AMsAAABXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////yBP8AAAAA//IE/AAAAAA/8gT8AAAAAD/yBPgA
|
||||
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
|
||||
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgA
|
||||
AAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf
|
||||
8gT4AAAAAB/yBPgAAAAAH/IE+AAAAAAf8gT4AAAAAA/yBPgAAAAAD/IE+AAAAAAH8gT4AAAAAAfyBPgA
|
||||
AAAAB/IE+AAAAAAH8gT4AAAAAA/yBPgAAAAAH/IE+AAAAAA/8gT4AAAAA//yBPgAAAAH//IE+AAAAA//
|
||||
8gT4AAAAH//yBPgAAAA///IE/AAAAH//8gT8AAAA///yBP8AAAH///IE////////8gQoAAAAIAAAAEAA
|
||||
AAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAMgAA
|
||||
AEIAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
|
||||
AEQAAABEAAAAQgAAADIAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFgAA
|
||||
AIgLCwrcJSUk7CopKO4qKSjuKiko7iopKO4qKSjuKiko7iopKO4pKSjuKSko7ikpKO4pKSjuKSko7ikp
|
||||
KO4pKSjuKSko7ikpKO4lJSTsCwsK3AAAAIgAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAQFBQWxUE9N/tXRzv/m4+D/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+fk
|
||||
4f/n5OH/5+Th/+fk4f/n5OH/5+Th/+bj4P/U0c7/UE9N/gUFBbEAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAALywsK/rCv7z/8vHv//n4+P/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6
|
||||
+f/6+vn/+vr5//r6+f/6+vn/+vr5//r6+f/6+vn/+fj4//Lx7//Cv7v/LCwr+gAAAC8AAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAABnWVdW/+ro5v/+/v7//v7+//39/f/7+/v//f39//39/f/+/v7//v7+//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/+ro5v9ZV1b/AAAAZwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1eXVv/7+7s//7+/v/+/v7/9/f3/8bGxv+0tLT/wMDA/87O
|
||||
zv/Z2dn/7u7u//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/8O7s/15d
|
||||
W/8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbV9eXf/w7u3//f39//39/f/7+/v/ysvN/73N
|
||||
3f+dssb/ipai/5CUl/+enZ3/xcXF//Pz8//9/fz//f39//39/f/9/f3//f39//39/f/9/f3//f39//39
|
||||
/f/w7u3/X15c/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtX15d//Du7f/9/f3//f39//39
|
||||
/f/x8/b/1+Xz/8Ta7/+Bud3/SrDT/3aks/+hoaL/v7+//+jo6P/9/f3//f39//39/f/9/f3//f39//39
|
||||
/f/9/f3//f39//Hv7f9fXl3/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1gXl3/8e/t//38
|
||||
/P/9/Pz//fz8//38/P/X5fP/rd/1/xLP/P8A0/7/DMb3/2Cxyv+sra3/s7Oz/9nZ2f/09PT//fz8//38
|
||||
/P/9/Pz//fz8//38/P/9/Pz/8e/u/2BeXf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWBf
|
||||
Xv/y8O7//Pz8//z8/P/8/Pz//Pz8/9rr9v9G1Pj/AMv+/wDQ/v8A0v7/DMT3/3y0yP+1trb/v7+//9DQ
|
||||
0P/x8fH//Pv7//z8/P/8/Pz//Pz8//z8/P/y8O7/YF9e/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAABtYWBe//Lx7v/7+/r/+/v7//v7+v/7+/v/5/b6/0zW/P8A0P7/AM7+/wDT/v8A0/7/DsL4/228
|
||||
1v/Cw8P/ysrK/9TU1P/n5+b/+Pj3//v7+v/7+/r/+/v7//Lx7/9hYF7/AAAAbQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAG1hYF//8vHv//r6+v/6+vr/+vr6//r6+v/5+vr/x+76/xjN/f8A0f7/ANH+/wDV
|
||||
/v8A0P7/DsH5/4zD2P/Nzs7/1tbW/97d3f/s7Ov/9vb2//r6+v/6+vr/8vHv/2FgX/8AAABtAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAbWJhYP/z8e//+vn5//r5+f/6+fn/+vn5//r5+f/6+fn/xe36/zPQ
|
||||
/f8A0f7/ANP+/wDY/v8A0v7/D7/6/3vI5f/b3Nv/4+Li/+zr6//z8/P/+vn5//r5+f/z8fD/YmFg/wAA
|
||||
AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtYmFg//Px8P/5+fj/+fn4//n5+P/5+fj/+fn4//n5
|
||||
+P/3+Pj/xO35/xjL/f8A0P7/ANb+/wDb/v8Azf7/EL37/53T6P/m5ub/8O/v//f29v/5+fj/+fn4//Py
|
||||
8P9iYWD/AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1iYmH/8/Lw//j39v/49/b/+Pf2//j3
|
||||
9v/49/b/+Pf2//j39v/49/b/xOv4/zLN/P8Az/7/ANf+/wDe/v8A0P7/Ebr8/4rU8//09PP/+Pf2//j3
|
||||
9v/49/b/8/Hw/2JhYf8AAABtAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWNiYf/z8vD/9/b1//f2
|
||||
9f/39vX/9/b1//f29f/39vX/9/b1//f29f/19fX/xOr3/xfI/f8Az/7/ANz+/wDg/v8Ayv7/Erj8/6zh
|
||||
9//29vX/9/b1//b19P/x8O7/YmFg/wAAAG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZGJi//Ty
|
||||
8f/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0//b19P/29fT/w+n2/zLK/P8Azv7/ANz+/wDj
|
||||
/v8Azv7/GbT6/6fT5v/u7Or/9PPx/+/t6/9hX1//AAAAbQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AG1kY2L/8/Lx//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/19PL/9fTy//X08v/z8/L/wuj0/xjF
|
||||
/f8AzP7/AOH+/wXm/f93yOD/qbS0/8G5r//p5uP/6+jm/19eXP8AAABtAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAbWRkZP/08vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lx//Py8f/z8vH/8/Lw//Py
|
||||
8f/z8vD/wObz/zHG+/8Oy/n/jt7n/+fj4P/X0cz/ua+l/7mwp//f2tX/W1lX/wAAAG0AAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAABtZWRk//Ty8f/y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx
|
||||
7//y8e//8vHv//Lx7//w8O//v+Xy/1O84P/AxMH/5ODd/+fj4P/Frsf/i02r/7WXuv9WU1D/AAAAbQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1lZWT/9PLx//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
|
||||
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/0MvF/6+kmf/Mxb7/y67W/4QR1P9wAMH/bhOt/0Ec
|
||||
V/8AAACmAAAAEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWVlZf/08vH/7+3r/+/t6//v7ev/7+3r/+/t
|
||||
6//v7ev/7+3r/+/t6//v7ev/7+3r/+/t6//v7ev/7+3r/+7t6//o5eL/wbiv/62bof+NO8L/egDS/3oA
|
||||
0v9uAL3/XwCk/w4AGfEAAABRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtZmZl//Py8f/t6+n/7evp/+3r
|
||||
6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+n/7evp/+3r6f/t6+j/6+fl/9zV0P/c1tD/xLLC/4g6
|
||||
uv9xAMH/eQDR/4IA3/98ANT/KwBK/wAAAHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1mZmX/8/Lw/+zq
|
||||
5//s6ef/7Orn/+zp5//s6uf/7Onn/+zq5//s6ef/7Orn/+zp5//s6uf/6+nn/+rn5f/a1M7/5+Le/+7r
|
||||
6f/m4uD/0LzW/34gvv9zAMX/gADc/3gAzf8RAB30AAAAVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbWdm
|
||||
Zv/z8fD/6ufl/+rn5P/q5+X/6ufk/+rn5f/q5+T/6ufl/+rn5P/q5+X/6ufk/+rn5P/o5eL/49/b/9nT
|
||||
zP/x7+7/4d3Z/+Hd2f/k4N3/yLfR/10ajP9NAIP/GgAt+wAAAIIAAAAMAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAABtZ2dn//Px8P/p5uP/6OXi/+nm4//o5eL/6ebj/+jl4v/p5uP/6OXi/+nm4//o5eL/5+Tg/+Th
|
||||
3v/d19L/3tjS/+zq5//h3dn/5ODd/+7t7P9YWFj+CgcM5QQACNEAAACCAAAADQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAG1oaGf/8/Hv/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPg/+bj4P/m4+D/5uPf/+Th
|
||||
3v/i3tr/3tnV/9PMxv/Z08z/7Onn/+Tg3f/b2tn/WFhY/gAAAJUBAQETAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAZ2JiYv/08vH/5eHd/+Th3f/l4d3/5OHd/+Xh3f/k4d3/5eHd/+Tg
|
||||
3f/j39v/4d3Z/93Y0//X0cv/yMC3/9PMxP/v7ev/7evq/1RUVP4HBweyAQEBEwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvMTEx+tjY2P/u6+r/5+Ph/+bj4P/m4+D/5uPg/+bj
|
||||
4P/l4t7/5ODd/+Hd2f/e2dT/1tHK/83FvP+3rKH/ysK5/97e3v9UVFT9AAAAlQEBARQAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBgaxWlpa/uzs7P/5+Pf/+Pf2//j3
|
||||
9v/49/b/9/f2//f19P/08/H/7+3q/+nm4v/d19H/zcW7/7Gklv/At63/VFRU/QYGBrIBAQEUAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYAAACIDAwM3Coq
|
||||
KuwvLy/uLy8v7i8vL+4uLi7uLi4u7i4tLe4sLCvuKyop7igmJe4kIiDuHhsY7hQSEe4AAACVAQEBFAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAcAAAAyAAAAQgAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAAAEQAAABEAAAARAAA
|
||||
ABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgAAB/wAAAP4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAH4AAAP+AAAH/gAAD/4AAB//AAA//4AAf/KAAAABgA
|
||||
AAAwAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAA
|
||||
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGIAAAAoAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG5APj38i4mG/5COi/+Qjov/kI6L/5COi/+Qjov/kI6L/5CO
|
||||
i/+Qjov/kI6L/5COi/+Qjov/kI6L/4uJh/8/Pj38AAAAbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHTg3
|
||||
N/rm4+D/9vX0//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//j49//4+Pf/+Pj3//b1
|
||||
9P/l4+D/ODc2+gAAAB0AAAAAAAAAAAAAAAAAAAAAAAAATnx6eP/39vb//v7+//39/f/6+vr//f39//7+
|
||||
/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/39vb/fHp4/wAAAE4AAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAUoB/ff/5+fj//v79//T09P+foqb/m6St/6SkpP+0tLT/5eXl//7+/f/+/v3//v79//7+
|
||||
/f/+/v3//v79//7+/f/6+fj/gH99/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoF/fv/5+Pj//f39//39
|
||||
/f/g6PH/xNnv/3mx1f9kprz/oKGh/8zMzP/5+fn//f39//39/f/9/f3//f39//39/f/5+Pj/gX9+/wAA
|
||||
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoKAf//5+Pf//fz8//38/P/u8/j/qNz0/wrO/f8A0f7/RLbZ/62u
|
||||
rv/AwMD/7e3t//38/P/9/Pz//fz8//38/P/5+Pj/goB//wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoOB
|
||||
gP/5+Pf//Pz7//z8+//7+/v/UNX5/wDN/v8A0f7/AM/+/0u63/+7vL3/x8fH/+Pj4//6+vn//Pz7//z8
|
||||
+//5+Pf/g4GA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoSDgf/4+Pf/+/r6//v6+v/7+vr/w+37/w7O
|
||||
/f8A0P7/ANX+/wDM/v9Rv+X/zM3N/9fX1//l5OT/9/b2//v6+v/49/f/hIOB/wAAAFIAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAUoWEgv/49/b/+vn5//r5+f/6+fn/+vn5/8Hs+v8Ozf3/ANP+/wDY/v8Ayf7/V8Ps/9zd
|
||||
3f/o5+f/8/Ly//r5+f/49/b/hYSC/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoWEg//39vX/+fj3//n4
|
||||
9//5+Pf/+fj3//n49//A6/n/Dsv9/wDU/v8A3P7/AMb+/1/I8v/s7e3/9/f2//n49//39vX/hYSD/wAA
|
||||
AFIAAAAAAAAAAAAAAAAAAAAAAAAAUoaFhP/29fT/9/b1//f29f/39vX/9/b1//f29f/39vX/v+n3/w3J
|
||||
/f8A1v7/AOD+/wDD/v9lzPn/9vb1//f29f/19PP/hYSD/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoeG
|
||||
hf/19PP/9vX0//b19P/29fT/9vX0//b19P/29fT/9vX0/77o9v8Ox/3/ANj+/wDj/v8Av/7/h8bi/+3r
|
||||
6P/y8O7/g4KA/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUoiHh//08/L/9PPy//Tz8v/08/L/9PPy//Tz
|
||||
8v/08/L/9PPx//Tz8v+85vT/DsT9/wLa/f+P5Ov/y8S9/7Sqnv/j39v/f316/wAAAFIAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAUomIh//z8fD/8vHv//Lx7//y8e//8vHv//Lx7//y8e//8vHv//Lx7//y8e//u+Ty/1q8
|
||||
3P/c19L/5+Pg/7+nwP+dca3/d3Ju/wAAAFIAAAAAAAAAAAAAAAAAAAAAAAAAUomJiP/y8O7/8e/t//Hv
|
||||
7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t/8vFvf+4rqT/x6nS/4AK1P9pALb/UBpy/wAA
|
||||
AJsAAAAAAAAAAAAAAAAAAAAAAAAAUoqKif/w7uz/7uzq/+7s6v/u7Or/7uzq/+7s6v/u7Or/7uzq/+7s
|
||||
6v/u7Or/7uvp/+Tg3P+9tKn/gS6y/3cAzP97ANT/dADH/xkAK/wAAAAUAAAAAAAAAAAAAAAAAAAAUouK
|
||||
iv/u7Or/7Oro/+zq6P/s6uj/7Oro/+zq6P/s6uj/7Oro/+zq6P/r6eb/4NzX/+Xh3P/t6+n/z7nX/3cS
|
||||
vf97ANP/fADV/xEAHfMAAAAMAAAAAAAAAAAAAAAAAAAAUoyLi//t6uj/6ufk/+rn5P/q5+T/6ufk/+rn
|
||||
5P/q5+T/6ufk/+nm4//n4+D/29XO/+zq6P/h3dn/5OHd/66cuf9AAG7/GwAu+gAAAFcAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAUoyMjP/r6Ob/5+Th/+fk4f/n5OH/5+Th/+fk4f/n5OH/5uPg/+Th3f/f29b/2dLM/+nm
|
||||
4//k4d3/xMPD/xAQENIAAABlAAAALgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATomJif/r6OX/5eHe/+Xh
|
||||
3v/l4d7/5eHe/+Xh3v/k4N3/4t7a/93Y0//TzMb/z8a+/+zq6P/AwL//EBAQ0gEBARYAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAHT8/P/r29fX/6ufk/+jl4v/o5eL/6OXi/+fk4P/k4d3/39vW/9bQ
|
||||
yf/DurD/wriu/8PDw/8ODg7SAQEBFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AG5ISEj8nZ2d/6Kiov+ioqL/oqKi/6CgoP+enJv/l5WT/4yIhP95cmr/a2Rc/w4ODtIAAAAWAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAYgAAAGYAAABmAAAAZgAA
|
||||
AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAABYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAA
|
||||
D0HgAAdBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAAA0HAAANBwAADQcAA
|
||||
A0HAAAFBwAABQcAAA0HAAAdBwAAfQcAAP0HgAH9B8AD/QSgAAAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkSEhGPHx8emR8fHpkfHx6ZHx8emR8fHpkfHx6ZHx8emR8f
|
||||
HpkSEhGPAAAAKQAAAAAAAAAAAAAAAAAAAA1RUE7q6ufl//Hv7f/x7+3/8e/t//Hv7f/x7+3/8e/t//Hv
|
||||
7f/x7+3/6efl/1FQTuoAAAANAAAAAAAAAAAAAAA1pKOh//7+/v/u7u7/29vb/+np6f/5+fn//v7+//7+
|
||||
/v/+/v7//v7+//7+/v+ko6H/AAAANQAAAAAAAAAAAAAANqimpf/9/f3/7e3u/73P4f95pbr/nqqu/+bm
|
||||
5f/9/f3//f39//39/f/9/f3/qKal/wAAADYAAAAAAAAAAAAAADapp6b//Pz8//z8/P+p4PX/BM/9/x7D
|
||||
7f+ks7j/19fX//r5+f/8/Pz//Pz8/6mnpv8AAAA2AAAAAAAAAAAAAAA2qqin//v7+v/7+/r/ve37/wbP
|
||||
/f8A0/7/IsTx/7nIzf/c29v/9vX1//v7+v+qqKf/AAAANgAAAAAAAAAAAAAANqqpqP/5+fj/+fn4//n5
|
||||
+P+t6Pr/BtD9/wDX/v8nxPb/0N7j//Hx8f/5+fj/qqmo/wAAADYAAAAAAAAAAAAAADarqqn/+Pf2//j3
|
||||
9v/49/b/+Pf2/6zm+P8Fz/3/ANr+/yvE+v/j8PX/9/b1/6qpqP8AAAA2AAAAAAAAAAAAAAA2rKqq//b1
|
||||
8//29fP/9vXz//b18//29fP/quT2/wbP/f8B3v3/eMHd/+Pg2/+mpKP/AAAANgAAAAAAAAAAAAAANqyr
|
||||
qv/z8vD/8/Lw//Py8P/z8vD/8/Lw//Py8P+o4PT/bMrg/+Le2v+wlq//kYeN/wAAADYAAAAAAAAAAAAA
|
||||
ADasrKv/8O7s//Du7P/w7uz/8O7s//Du7P/w7uz/8O7s/8rDvP+0kr7/egTO/18Lmf8EAAh/AAAAAAAA
|
||||
AAAAAAA2rayr/+3q6P/t6uj/7ero/+3q6P/t6uj/7Oro/+fj4P/j3tr/waPM/3cIxf99ANf/DwAZsAAA
|
||||
AAAAAAAAAAAANq2sq//p5uP/6ebj/+nm4//p5uP/6ebj/+fk4f/e2NP/6OXi/+bi3/9iTHD4GwAu0wAA
|
||||
ACcAAAAAAAAAAAAAADWsq6v/5eLf/+Xi3//l4t//5eLe/+Pg3P/d2NP/0svD/+vo5v9kY2PrAAAALwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAANWlpa6u/t6//v7ev/7+3r/+3q6P/m4t7/08zF/72yp/9jY2PrAAAALwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACkUFBSPIyMjmSMjI5kiIiKZISAgmRwbGpkTEQ+ZAAAALwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAwAOsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYABrEGAAaxBgAGsQYAB
|
||||
rEGAAaxBgAGsQYAHrEGAD6xBwB+sQQ==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
22
SW/20211125/_FRReporting/Formulare/frmEditWhere.vb
Normal file
22
SW/20211125/_FRReporting/Formulare/frmEditWhere.vb
Normal file
@@ -0,0 +1,22 @@
|
||||
Public Class frmEditWhere
|
||||
|
||||
Dim m_sql As String
|
||||
Property sql() As String
|
||||
Get
|
||||
Return m_sql
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_sql = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Me.sql = Me.Editor.Text
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmEditWhere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.Editor.Text = Me.sql
|
||||
End Sub
|
||||
End Class
|
||||
37
SW/20211125/_FRReporting/Formulare/frmViewer.Designer.vb
generated
Normal file
37
SW/20211125/_FRReporting/Formulare/frmViewer.Designer.vb
generated
Normal file
@@ -0,0 +1,37 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmViewer
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'frmViewer
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(284, 262)
|
||||
Me.Name = "frmViewer"
|
||||
Me.Text = "frmViewer"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
120
SW/20211125/_FRReporting/Formulare/frmViewer.resx
Normal file
120
SW/20211125/_FRReporting/Formulare/frmViewer.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
3
SW/20211125/_FRReporting/Formulare/frmViewer.vb
Normal file
3
SW/20211125/_FRReporting/Formulare/frmViewer.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class frmViewer
|
||||
|
||||
End Class
|
||||
37
SW/20211125/_FRReporting/Formulare/sample.Designer.vb
generated
Normal file
37
SW/20211125/_FRReporting/Formulare/sample.Designer.vb
generated
Normal file
@@ -0,0 +1,37 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class sample
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'sample
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(824, 591)
|
||||
Me.Name = "sample"
|
||||
Me.Text = "sample"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
120
SW/20211125/_FRReporting/Formulare/sample.resx
Normal file
120
SW/20211125/_FRReporting/Formulare/sample.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
3
SW/20211125/_FRReporting/Formulare/sample.vb
Normal file
3
SW/20211125/_FRReporting/Formulare/sample.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class sample
|
||||
|
||||
End Class
|
||||
34
SW/20211125/_FRReporting/Klassen/Crypto.vb
Normal file
34
SW/20211125/_FRReporting/Klassen/Crypto.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
11
SW/20211125/_FRReporting/Klassen/Globals.vb
Normal file
11
SW/20211125/_FRReporting/Klassen/Globals.vb
Normal file
@@ -0,0 +1,11 @@
|
||||
Module Globals
|
||||
Public Spaltendaten As New DataTable
|
||||
Public sConnectionString As String
|
||||
Public conn As New DB.clsConnectionProvider
|
||||
|
||||
Public ConnectionFileName As String = ""
|
||||
Public Mitarbeiternr As Integer
|
||||
Public TmpFilepath As String
|
||||
Public SecurityDaten As New DataSet
|
||||
|
||||
End Module
|
||||
425
SW/20211125/_FRReporting/Klassen/MyDocMgmt.vb
Normal file
425
SW/20211125/_FRReporting/Klassen/MyDocMgmt.vb
Normal file
@@ -0,0 +1,425 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Diagnostics
|
||||
|
||||
'
|
||||
Namespace Utils
|
||||
''' <summary>
|
||||
''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
|
||||
''' </summary>
|
||||
''' <remarks>
|
||||
''' Es werden folgende Datebanktabellen berücksichtigt:
|
||||
''' <list type="bullet">
|
||||
''' <item>
|
||||
''' <description>Dokument Attribut DocImage</description></item>
|
||||
''' <item>
|
||||
''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der
|
||||
''' Vertragsübersicht|Vertragselemente</description></item></list>
|
||||
''' </remarks>
|
||||
''' <includesource>yes</includesource>
|
||||
Public Class MyDocMgmt
|
||||
''' <summary>
|
||||
''' Grid-Layoutfile speichern
|
||||
''' </summary>
|
||||
''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
|
||||
''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
Dim filename As String = Globals.TmpFilepath(+Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt")
|
||||
c1data.SaveLayout(filename)
|
||||
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
|
||||
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "profil")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Profil sepeichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(1) = Globals.Mitarbeiternr
|
||||
myRow.Item(2) = ""
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
myRow.Item(3) = mydata
|
||||
End Select
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "profil")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
myRow.Item(3) = mydata
|
||||
End Select
|
||||
DA.Update(ds, "profil")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
'Exit Function
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
|
||||
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
MyData = myRow.Item(3)
|
||||
|
||||
End Select
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
Dim filename As String = Globals.TmpFilepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||
If File.Exists(filename) Then
|
||||
c1data.LoadLayout(filename)
|
||||
Return True
|
||||
End If
|
||||
If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
|
||||
c1data.LoadLayout(filename)
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Dokument in der Tabelle Dokument speichern
|
||||
''' </summary>
|
||||
''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
|
||||
''' <param name="Filename">Zu speichender Dateiname</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(Dokumentnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
Return False
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(16) = mydata
|
||||
DA.Update(ds, "Dokument")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
|
||||
''' </summary>
|
||||
''' <param name="DokumentNr"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
|
||||
Dim Filename As String = Globals.TmpFilepath
|
||||
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Select Case myRow.Item("Speichertypnr")
|
||||
Case 1
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(16)
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Filename = Filename + myRow.Item(6)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Case 2
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
Case 3
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
Case Else
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
End Select
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
Return ""
|
||||
Finally
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
|
||||
Dim tmpfilename As String = Me.Get_Dokument(Dokumentnr)
|
||||
If tmpfilename <> "" Then
|
||||
OpenSystemFile(tmpfilename)
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
|
||||
If Len(sFileName) > 0 Then
|
||||
System.Diagnostics.Process.Start(sFileName)
|
||||
'
|
||||
' ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
|
||||
Dim filename As String = AuswertungName
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Datei speichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(0) = Auswertungnr
|
||||
myRow.Item(1) = AuswertungName
|
||||
myRow.Item(2) = RptName(AuswertungName)
|
||||
myRow.Item(3) = mydata
|
||||
myRow.Item(4) = Now
|
||||
myRow.Item(5) = Now
|
||||
myRow.Item(6) = Globals.Mitarbeiternr
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "RptFile")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(1) = AuswertungName
|
||||
myRow.Item(2) = RptName(AuswertungName)
|
||||
myRow.Item(3) = mydata
|
||||
myRow.Item(5) = Now
|
||||
myRow.Item(6) = Globals.Mitarbeiternr
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return RptName(AuswertungName)
|
||||
End Function
|
||||
|
||||
Public Function RptName(ByVal path As String) As String
|
||||
Dim i As Integer
|
||||
Dim file As String = path
|
||||
i = InStrRev(file.Trim, "\")
|
||||
If i = 0 Then
|
||||
Return file.Trim
|
||||
Else
|
||||
Return Right(file.Trim, Len(file.Trim) - i)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
|
||||
Dim connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim Filename As String = ""
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Filename = Globals.TmpFilepath + "\" + myRow.Item(2).ToString
|
||||
If fname <> "" Then
|
||||
Filename = fname
|
||||
End If
|
||||
MyData = myRow.Item(3)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
|
||||
Dim filename As String = iFilename
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Datei speichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(0) = Applikationnr
|
||||
myRow.Item(1) = mydata
|
||||
' myRow.Item(4) = Now
|
||||
' myRow.Item(5) = Now
|
||||
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "RptFile")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(1) = mydata
|
||||
' myRow.Item(2) = RptName(AuswertungName)
|
||||
' myRow.Item(3) = mydata
|
||||
' myRow.Item(5) = Now
|
||||
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
End Function
|
||||
|
||||
Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
|
||||
Dim connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim Filename As String = ""
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Filename = Globals.TmpFilepath + "\architekturfile.xml"
|
||||
If fname <> "" Then
|
||||
Filename = fname
|
||||
End If
|
||||
MyData = myRow.Item(1)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
816
SW/20211125/_FRReporting/Klassen/MySecurity.vb
Normal file
816
SW/20211125/_FRReporting/Klassen/MySecurity.vb
Normal file
@@ -0,0 +1,816 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Drawing
|
||||
Namespace Utils
|
||||
''' <summary>
|
||||
''' Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Public Class MySecurity
|
||||
|
||||
Dim SecurityData As DataSet = Globals.SecurityDaten
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
Dim IntForm As Object
|
||||
Dim ctlcol As New Collection
|
||||
Dim formname As String = ""
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Formularsecurity setzen
|
||||
''' </summary>
|
||||
''' <param name="f">Aktuelles Formular</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Set_Form_Security(ByRef f As Object)
|
||||
IntForm = f
|
||||
formname = f.Name
|
||||
'Load form DB
|
||||
Load_Data(f.Name)
|
||||
'Load FormObjects
|
||||
Me.ctlcol.Clear()
|
||||
formname = f.Name
|
||||
For Each ctl As Control In f.Controls
|
||||
Objectanalysis(ctl)
|
||||
' AddHandler ctl.HelpRequested, AddressOf Object_MouseDown
|
||||
'ctl.ContextMenuStrip = Globals.TTContextMenuStrip
|
||||
'AddHandler ctl.KeyDown, AddressOf Object_MouseDown
|
||||
Next
|
||||
Set_Security()
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Set_Menu_Security(ByRef f As Form, ByRef menu As ToolStripMenuItem, ByVal Menuname As String)
|
||||
IntForm = f
|
||||
formname = f.Name
|
||||
Load_Data(f.Name)
|
||||
Me.ctlcol.Clear()
|
||||
formname = f.Name
|
||||
Dim ctl As Object = menu
|
||||
Dim typ As System.Type = ctl.GetType
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, Menuname, ctl.Name))
|
||||
|
||||
Set_Security()
|
||||
'If Globals.Set_ToolTips = True Then
|
||||
' tt.Edit_ToolTips(f, ctlcol)
|
||||
'Else
|
||||
' tt.Set_ToolTips(f)
|
||||
'End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Set_Form_Readonly(ByRef f As Form)
|
||||
IntForm = f
|
||||
Me.formname = f.Name
|
||||
Load_Data(f.Name)
|
||||
Me.ctlcol.Clear()
|
||||
For Each ctl As Control In f.Controls
|
||||
Objectanalysis_readonly(ctl)
|
||||
Next
|
||||
End Function
|
||||
Public Function Set_Form_Default(ByRef f As Form)
|
||||
IntForm = f
|
||||
Me.formname = f.Name
|
||||
Load_Data(f.Name)
|
||||
Me.ctlcol.Clear()
|
||||
For Each ctl As Control In f.Controls
|
||||
Objectanalysis_default(ctl)
|
||||
Next
|
||||
End Function
|
||||
|
||||
Private Function Objectanalysis_readonly(ByRef ctl As Object) As String
|
||||
Dim typ As System.Type = ctl.GetType
|
||||
Select Case LCase(typ.Name)
|
||||
Case "splitcontainer"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmpsplit As SplitContainer = ctl
|
||||
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||
Objectanalysis_readonly(ctrl)
|
||||
Next
|
||||
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||
Objectanalysis_readonly(ctrl)
|
||||
Next
|
||||
Case "tabcontrol", "clsmytabcontrol"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabcontrol As TabControl = ctl
|
||||
For Each ctl In tmptabcontrol.TabPages
|
||||
Objectanalysis_readonly(ctl)
|
||||
Next
|
||||
Case "tabpage"
|
||||
Dim tmptabpage As TabPage = ctl
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis_readonly(ctl)
|
||||
Next
|
||||
Case "groupbox"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabpage As GroupBox = ctl
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis_readonly(ctl)
|
||||
Next
|
||||
Case "panel"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmppanel As Panel = ctl
|
||||
For Each ctl In tmppanel.Controls
|
||||
Objectanalysis_readonly(ctl)
|
||||
Next
|
||||
Case "textbox"
|
||||
Dim x As TextBox = ctl
|
||||
x.BackColor = Color.LightGray
|
||||
x.ForeColor = Color.Black
|
||||
x.ReadOnly = True
|
||||
Case "maskedtextbox"
|
||||
Dim x As MaskedTextBox = ctl
|
||||
x.BackColor = Color.LightGray
|
||||
x.ForeColor = Color.Black
|
||||
x.ReadOnly = True
|
||||
Case "combobox"
|
||||
Dim x As ComboBox = ctl
|
||||
x.Enabled = False
|
||||
x.BackColor = Color.LightGray
|
||||
x.ForeColor = Color.Black
|
||||
Case "checkbox"
|
||||
Dim x As CheckBox = ctl
|
||||
x.Enabled = False
|
||||
Case "radiobutton"
|
||||
Dim x As RadioButton = ctl
|
||||
x.Enabled = False
|
||||
Case "comboboxtree"
|
||||
Dim x As Object = ctl
|
||||
x.enabled = False
|
||||
x.BackColor = Color.LightGray
|
||||
x.ForeColor = Color.Black
|
||||
Case "richtextbox"
|
||||
Dim x As Object = ctl
|
||||
x.BackColor = Color.LightGray
|
||||
x.ForeColor = Color.Black
|
||||
x.ReadOnly = True
|
||||
Case "button"
|
||||
Dim x As Button = ctl
|
||||
x.Enabled = False
|
||||
Case "listbox"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = False
|
||||
Case "checkedlistbox"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = False
|
||||
Case "datetimepicker"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = False
|
||||
|
||||
Case Else
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Private Function Objectanalysis_default(ByRef ctl As Object) As String
|
||||
Dim typ As System.Type = ctl.GetType
|
||||
Select Case LCase(typ.Name)
|
||||
Case "splitcontainer"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmpsplit As SplitContainer = ctl
|
||||
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||
Objectanalysis_default(ctrl)
|
||||
Next
|
||||
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||
Objectanalysis_default(ctrl)
|
||||
Next
|
||||
Case "tabcontrol", "clsmytabcontrol"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabcontrol As TabControl = ctl
|
||||
For Each ctl In tmptabcontrol.TabPages
|
||||
Objectanalysis_default(ctl)
|
||||
Next
|
||||
Case "tabpage"
|
||||
Dim tmptabpage As TabPage = ctl
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis_default(ctl)
|
||||
Next
|
||||
Case "groupbox"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabpage As GroupBox = ctl
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis_default(ctl)
|
||||
Next
|
||||
Case "panel"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmppanel As Panel = ctl
|
||||
For Each ctl In tmppanel.Controls
|
||||
Objectanalysis_default(ctl)
|
||||
Next
|
||||
Case "textbox"
|
||||
Dim x As TextBox = ctl
|
||||
x.BackColor = Color.White
|
||||
x.ForeColor = Color.Black
|
||||
x.Enabled = True
|
||||
Case "maskedtextbox"
|
||||
Dim x As MaskedTextBox = ctl
|
||||
x.BackColor = Color.White
|
||||
x.ForeColor = Color.Black
|
||||
x.Enabled = True
|
||||
Case "combobox"
|
||||
Dim x As ComboBox = ctl
|
||||
x.Enabled = True
|
||||
x.BackColor = Color.White
|
||||
x.ForeColor = Color.Black
|
||||
|
||||
Case "checkbox"
|
||||
Dim x As CheckBox = ctl
|
||||
x.Enabled = True
|
||||
Case "radiobutton"
|
||||
Dim x As RadioButton = ctl
|
||||
x.Enabled = True
|
||||
Case "comboboxtree"
|
||||
Dim x As Object = ctl
|
||||
x.enabled = True
|
||||
x.BackColor = Color.White
|
||||
x.ForeColor = Color.Black
|
||||
Case "richtextbox"
|
||||
Dim x As Object = ctl
|
||||
x.BackColor = Color.White
|
||||
x.ForeColor = Color.Black
|
||||
x.readonly = True
|
||||
Case "button"
|
||||
Dim x As Button = ctl
|
||||
x.Enabled = True
|
||||
Case "listbox"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = True
|
||||
Case "checkedlistbox"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = True
|
||||
Case "datetimepicker"
|
||||
Dim x As Object = ctl
|
||||
ctl.enabled = True
|
||||
Case Else
|
||||
End Select
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Daten ab Datenbank laden
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_Data(ByVal Formname As String)
|
||||
Try
|
||||
'xxx
|
||||
If SecurityData.Tables.Count > 0 Then
|
||||
SecurityData.Tables.Clear()
|
||||
End If
|
||||
' Exit Sub
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
SecurityData.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
|
||||
sqlcmd.CommandText = "dbo.my_security_get_data"
|
||||
sqlcmd.Parameters.Add("@FormName", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters(0).Value = Formname
|
||||
sqlcmd.Parameters(1).Value = Globals.Mitarbeiternr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(SecurityData, "SecurityTable")
|
||||
Globals.SecurityDaten.Tables.Add(SecurityData.Tables(0).Copy)
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Set_Security()
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.SecurityData.Tables(0).Rows.Count - 1
|
||||
Dim SecurityObject As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObject")
|
||||
Dim SecurityObjectitem As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObjectItem")
|
||||
Dim read_only As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("readonly")
|
||||
Dim invisible As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("invisible")
|
||||
Dim ii As Integer
|
||||
For ii = 1 To ctlcol.Count
|
||||
Dim secobj As MyFormControls = ctlcol(ii)
|
||||
If secobj.MySecurityObject = SecurityObject And secobj.MySecurityObjectItem = SecurityObjectitem Then
|
||||
Set_Preferences(secobj.MyControl, read_only, invisible, SecurityObjectitem)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Security-Einstellungen setzen
|
||||
''' </summary>
|
||||
''' <param name="obj">Betroffenes Objeckt (Menuitem, Conrol usw.)</param>
|
||||
''' <param name="read_only">Readonly ja/nein</param>
|
||||
''' <param name="invisible">Sichtbar ja/nein</param>
|
||||
''' <param name="SecurityObjectItem">Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet</param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Set_Preferences(ByRef obj As Object, ByVal read_only As Boolean, ByVal invisible As Boolean, ByVal SecurityObjectItem As String)
|
||||
Dim objtype As System.Type = obj.GetType
|
||||
Select Case LCase(objtype.Name)
|
||||
Case "button"
|
||||
Dim ctl As Button = obj
|
||||
If read_only Then ctl.Enabled = False
|
||||
If invisible Then
|
||||
ctl.Visible = False
|
||||
ctl.Enabled = False
|
||||
End If
|
||||
Case "toolstripmenuitem"
|
||||
Dim ctl As ToolStripMenuItem = obj
|
||||
If read_only Then ctl.Enabled = False
|
||||
If invisible Then
|
||||
ctl.Visible = False
|
||||
ctl.Enabled = False
|
||||
End If
|
||||
Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker"
|
||||
If read_only Then obj.Enabled = False
|
||||
If invisible Then obj.Visible = False
|
||||
Case "richtextbox"
|
||||
If read_only Then obj.Enabled = False
|
||||
Try
|
||||
obj.readonly = True
|
||||
obj.enabled = True
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
If invisible Then obj.Visible = False
|
||||
Case "tabpage"
|
||||
If invisible Then
|
||||
Dim tbp As TabPage = obj
|
||||
For Each x As MyFormControls In Me.ctlcol
|
||||
If x.MySecurityObject = tbp.Parent.Name Then
|
||||
Dim tb As TabControl = x.MyControl
|
||||
tb.TabPages.Remove(tbp)
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
'20100406 - TabPageHandling
|
||||
If read_only Then
|
||||
'obj.enabled = False
|
||||
For Each CTLX As Control In obj.CONTROLS
|
||||
Me.Objectanalysis_readonly(CTLX)
|
||||
Next
|
||||
End If
|
||||
Case "c1truedbgrid"
|
||||
Dim ctl As C1TrueDBGrid = obj
|
||||
If SecurityObjectItem = "" Then
|
||||
If read_only Then ctl.Enabled = False
|
||||
If invisible Then obj.Visible = False
|
||||
Else
|
||||
If read_only Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Locked = True
|
||||
If invisible Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Visible = False
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Read Objects from Form and save to Database"
|
||||
Dim tmpmenuname As String
|
||||
''' <summary>
|
||||
''' Alle Controls des Formulars zusammensuchen und auf der DB speichern
|
||||
''' </summary>
|
||||
''' <param name="f">Betroffenes Formular</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Public Function List_Form_Controls(ByRef f As Object)
|
||||
Me.ctlcol.Clear()
|
||||
formname = f.Name
|
||||
For Each ctl As Control In f.Controls
|
||||
Objectanalysis(ctl)
|
||||
Next
|
||||
Dim i As Integer
|
||||
For i = 1 To ctlcol.Count
|
||||
Dim secobj As MyFormControls = ctlcol(i)
|
||||
secobj.Write_Object_to_DB()
|
||||
Next
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Sämtliche Controls vom Formular auslesen
|
||||
''' </summary>
|
||||
''' <param name="ctl"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Objectanalysis(ByRef ctl As Object) As String
|
||||
Dim typ As System.Type = ctl.GetType
|
||||
Select Case LCase(typ.Name)
|
||||
Case "menustrip"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
tmpmenuname = ctl.name
|
||||
ReadMenu(ctl)
|
||||
Case "contextmenustrip"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
tmpmenuname = ctl.name
|
||||
ReadContextMenu(ctl)
|
||||
Case "toolstrip"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptoolstrop As ToolStrip = ctl
|
||||
Try
|
||||
Dim ic As Integer
|
||||
For ic = 0 To tmptoolstrop.Items.Count - 1
|
||||
Try
|
||||
Dim subobj As ToolStripButton
|
||||
subobj = tmptoolstrop.Items(ic)
|
||||
ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Next
|
||||
'For Each subobj As ToolStripButton In tmptoolstrop.Items
|
||||
'ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||
'Next
|
||||
Catch
|
||||
End Try
|
||||
Case "splitcontainer"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmpsplit As SplitContainer = ctl
|
||||
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||
Objectanalysis(ctrl)
|
||||
Next
|
||||
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||
Objectanalysis(ctrl)
|
||||
Next
|
||||
Case "tabcontrol", "clsmytabcontrol"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabcontrol As TabControl = ctl
|
||||
For Each ctl In tmptabcontrol.TabPages
|
||||
Objectanalysis(ctl)
|
||||
Next
|
||||
Case "tabpage"
|
||||
Dim tmptabpage As TabPage = ctl
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis(ctl)
|
||||
Next
|
||||
Case "groupbox"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmptabpage As GroupBox = ctl
|
||||
For Each ctl In tmptabpage.Controls
|
||||
Objectanalysis(ctl)
|
||||
Next
|
||||
Case "panel"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim tmppanel As Panel = ctl
|
||||
For Each ctl In tmppanel.Controls
|
||||
Objectanalysis(ctl)
|
||||
Next
|
||||
Case "c1truedbgrid"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim ctrl As C1TrueDBGrid = ctl
|
||||
Dim i As Integer
|
||||
For i = 0 To ctrl.Columns.Count - 1
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ctrl.Columns(i).Caption, 0, ctrl.Columns(i).Caption))
|
||||
Next
|
||||
Try
|
||||
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||
Objectanalysis(x)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
For Each xctl As Object In ctrl.Controls
|
||||
Objectanalysis(xctl)
|
||||
Next
|
||||
Case "treeview"
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
Dim ctrl As TreeView = ctl
|
||||
Try
|
||||
|
||||
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||
Objectanalysis(x)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
If ctl.name = "TreeStruktur" Then
|
||||
End If
|
||||
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||
End Select
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Auslesen von MenuItems
|
||||
''' </summary>
|
||||
''' <param name="x"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
'''
|
||||
Dim level As Integer = 0
|
||||
Private Function ReadMenu(ByRef x As Object)
|
||||
Dim tmpmnu As MenuStrip = x
|
||||
level = 0
|
||||
For Each xx As Object In tmpmnu.Items
|
||||
Dim objtype As System.Type = xx.GetType
|
||||
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||
get_all_menus(xx)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Auslesen von ContextMenuItems
|
||||
''' </summary>
|
||||
''' <param name="x"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
'''
|
||||
|
||||
Private Function ReadContextMenu(ByRef x As Object)
|
||||
Dim tmpmnu As ContextMenuStrip = x
|
||||
level = 0
|
||||
Try
|
||||
For Each xx As Object In tmpmnu.Items
|
||||
Dim objtype As System.Type = xx.GetType
|
||||
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||
get_all_menus(xx)
|
||||
End If
|
||||
' ctlcol.Add(New MyFormControls(xx, formname, "contextmenustrip", tmpmenuname, xx.Name, level))
|
||||
' get_all_menus(xx)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Auslesen von Menu-Subitems
|
||||
''' </summary>
|
||||
''' <param name="xx"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function get_all_menus(ByRef xx As ToolStripMenuItem)
|
||||
level = level + 1
|
||||
For Each subobj As Object In xx.DropDownItems
|
||||
If LCase(subobj.GetType.Name) = "toolstripmenuitem" Then
|
||||
ctlcol.Add(New MyFormControls(subobj, formname, "menustrip", tmpmenuname, subobj.Name, level))
|
||||
get_all_menus(subobj)
|
||||
End If
|
||||
Next
|
||||
level = level - 1
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||
''' </summary>
|
||||
''' <param name="securityform">Formular</param>
|
||||
''' <param name="securityobjecttype">Objekttyp</param>
|
||||
''' <param name="securityobject">Objektname</param>
|
||||
''' <param name="securityobjectitem">Objektitem</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityform))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjecttype))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobject))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjectitem))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "ScreenDoku"
|
||||
|
||||
Public Function Print_Screen(ByRef ctl As Control)
|
||||
saveasbitmap(ctl, ctl.Name)
|
||||
End Function
|
||||
Public Function Generate_HTML()
|
||||
saveasbitmap(Me.IntForm, "testform")
|
||||
'Exit Function
|
||||
'Dim x As MyFormControls
|
||||
'For Each x In ctlcol
|
||||
' Try
|
||||
' saveasbitmap(x.MyControl, x.MyFormname & "_" & x.MySecurityObject & "_" & x.MySecurityObjectItem)
|
||||
' If x.MySecurityObjecttype = "ToolStrip" And x.MySecurityObjectItem = "" Then
|
||||
' Dim gaga As ToolStrip = x.MyControl
|
||||
' For Each c As ToolStripButton In gaga.Items
|
||||
' Dim xxx As Control = CType(c, Control)
|
||||
|
||||
' xxx = CType(c, Control)
|
||||
' saveasbitmap(xxx, "xxx")
|
||||
' Next
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
' End Try
|
||||
'Next
|
||||
End Function
|
||||
|
||||
Public Function saveasbitmap(ByRef ctl As Control, ByVal filename As String)
|
||||
Dim g As Graphics = ctl.CreateGraphics
|
||||
Dim b As New Bitmap(ctl.Width, ctl.Height)
|
||||
ctl.DrawToBitmap(b, New Rectangle(0, 0, ctl.Width, ctl.Height))
|
||||
'b.Save("E:\Software-Projekte\Vertragsverwaltung\Screens\" & filename & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
''' <summary>
|
||||
''' Klasse für ein Control-Objekt
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Class MyFormControls
|
||||
|
||||
Public MyControl As Object
|
||||
Public MyFormname As String
|
||||
Public MySecurityObjecttype As String
|
||||
Public MySecurityObject As String
|
||||
Public MySecurityObjectItem As String
|
||||
Public MyDescription As String
|
||||
Public MyLevel As Integer
|
||||
|
||||
''' <summary>
|
||||
''' Neue Instanz erstellen
|
||||
''' </summary>
|
||||
''' <param name="ctl">Control-Objekt</param>
|
||||
''' <param name="Formname">Betroffenes Formular</param>
|
||||
''' <param name="securityobjecttype">Objekttyp</param>
|
||||
''' <param name="Securityobject">Objektname</param>
|
||||
''' <param name="SecurityObjectItem">Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids)</param>
|
||||
''' <remarks></remarks>
|
||||
Sub New(ByVal ctl As Object, ByVal Formname As String, ByVal securityobjecttype As String, ByVal Securityobject As String, ByVal SecurityObjectItem As String, Optional ByVal level As Integer = 0, Optional ByVal desc As String = "")
|
||||
MyControl = ctl
|
||||
MySecurityObjecttype = securityobjecttype
|
||||
MyFormname = Formname
|
||||
MySecurityObject = Securityobject
|
||||
MySecurityObjectItem = SecurityObjectItem
|
||||
If desc = "" Then
|
||||
MyDescription = Get_Description(ctl)
|
||||
Else
|
||||
MyDescription = desc
|
||||
End If
|
||||
Try
|
||||
MyDescription = MyDescription.Replace("&", "")
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
MyLevel = level
|
||||
End Sub
|
||||
|
||||
Private Function Get_Description(ByRef ctl As Object) As String
|
||||
Dim typ As System.Type = ctl.GetType
|
||||
Select Case LCase(typ.Name)
|
||||
Case "menustrip", "toolstripmenuitem", "toolstrip", "toolstripbutton", "contextmenustrip", "tabpage", "c1truedbgrid", "label"
|
||||
Return ctl.Text
|
||||
Case Else
|
||||
Return ctl.Name
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Schreibt einen Datnsatz in die Tabelle SecurityObjects
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Write_Object_to_DB()
|
||||
If Objexists() Then Exit Function
|
||||
Dim sectbl As New DB.clsSecurityObject
|
||||
Dim dbkey As New DB.clsMyKey_Tabelle
|
||||
dbkey.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey As Integer = dbkey.get_dbkey("SecurityObject")
|
||||
|
||||
sectbl.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
sectbl.iSecurityObjectNr = New SqlInt32(CType(newkey, Int32))
|
||||
sectbl.sSecurityForm = New SqlString(CType(MyFormname, String))
|
||||
sectbl.sSecurityObjectType = New SqlString(CType(Me.MySecurityObjecttype, String))
|
||||
sectbl.sSecurityObject = New SqlString(CType(Me.MySecurityObject, String))
|
||||
sectbl.sSecurityObjectItem = New SqlString(CType(Me.MySecurityObjectItem, String))
|
||||
sectbl.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
sectbl.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sectbl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
sectbl.sSecurityObjectDescriotion = New SqlString(CType(Me.MyDescription, String))
|
||||
sectbl.iLevel = New SqlInt32(CType(Me.MyLevel, Int32))
|
||||
sectbl.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
|
||||
sectbl.iMandantnr = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
|
||||
sectbl.Insert()
|
||||
conn.CloseConnection(True)
|
||||
sectbl.Dispose()
|
||||
dbkey.Dispose()
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
'''Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Objexists() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MyFormname))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjecttype))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObject))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjectItem))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class ControlsCollection
|
||||
Private Shared m_controls As Collection
|
||||
Public Sub New(ByVal myForm As Form)
|
||||
m_controls = New Collection
|
||||
'create a control walker to get
|
||||
'all controls on the form
|
||||
Dim aControlWalker As New ControlWalker(myForm)
|
||||
End Sub
|
||||
'This property returns the collection of all controls
|
||||
'on the form
|
||||
ReadOnly Property Controls() As Collection
|
||||
Get
|
||||
Return m_controls
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Function FindControl(ByVal ctlname As String) As Boolean
|
||||
Dim i As Integer
|
||||
For i = 1 To Me.m_controls.Count
|
||||
Dim ctl As Control = m_controls(i)
|
||||
If UCase(ctl.Name) = UCase(ctlname) Then MsgBox("found")
|
||||
Next
|
||||
End Function
|
||||
Private Class ControlWalker
|
||||
' This class recursively walks through all controls
|
||||
' in a container, and all containers contained in
|
||||
' this container, visiting all controls throughout
|
||||
' the hierarchy
|
||||
Private mContainer As Object
|
||||
Public Sub New(ByVal Container As Object)
|
||||
Dim cControl As Control
|
||||
If Container.haschildren Then
|
||||
For Each cControl In Container.controls
|
||||
'add this control to the controls collection
|
||||
m_controls.Add(cControl)
|
||||
If cControl.HasChildren Then
|
||||
'This control has children, create another
|
||||
'ControlWalk go visit each of them
|
||||
Dim cWalker As New ControlWalker(cControl)
|
||||
End If
|
||||
Next cControl
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
End Class
|
||||
End Namespace
|
||||
343
SW/20211125/_FRReporting/Klassen/clsAuswertung.vb
Normal file
343
SW/20211125/_FRReporting/Klassen/clsAuswertung.vb
Normal file
@@ -0,0 +1,343 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Namespace TKB.Auswertung
|
||||
Public Class clsAuswertung
|
||||
|
||||
Private Auswertungen As New DataSet
|
||||
Private Mitarbeiter_Auswerungsparameter As New DB.clsMitarbeiter_Auswertungsparameter
|
||||
Public AuswertungParameter As New DataTable
|
||||
Public Auswertung As New DB.clsAuswertung
|
||||
Public MitarbeiterAuswertungsparameter As New DataTable
|
||||
Dim sheader1 As String
|
||||
Property TitelZeile1() As String
|
||||
Get
|
||||
Return sheader1
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
sheader1 = value
|
||||
End Set
|
||||
End Property
|
||||
Dim sheader2 As String
|
||||
Property TitelZeile2() As String
|
||||
Get
|
||||
Return sheader2
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
sheader2 = value
|
||||
End Set
|
||||
End Property
|
||||
Dim scparamcollection As New Collection
|
||||
Property ParamCollection() As Collection
|
||||
Get
|
||||
Return scparamcollection
|
||||
End Get
|
||||
Set(ByVal value As Collection)
|
||||
scparamcollection = value
|
||||
End Set
|
||||
End Property
|
||||
Dim mFullparam As String
|
||||
Property FullParam() As String
|
||||
Get
|
||||
Return mFullparam
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
mFullparam = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub Get_Auswertungen(ByRef tree As TreeView)
|
||||
Read_Auswertungen()
|
||||
Load_Treeview(Auswertungen, tree)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Auswertungen, für welche der User berechtigt ist, auslesen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Read_Auswertungen() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Auswertung_Get_Auswertungen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Auswertungen.Tables.Clear()
|
||||
Auswertungen.Tables.Add(dtToReturn)
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Interne Relation aufbauen und Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oSourceData"></param>
|
||||
''' <param name="tree"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As TreeView)
|
||||
If Not (oSourceData Is Nothing) Then
|
||||
Dim oView As DataView = oSourceData.Tables(0).DefaultView
|
||||
Dim oTable As DataTable = oView.Table
|
||||
Dim oDS As DataSet = New DataSet()
|
||||
oDS.Tables.Add(oTable.Copy())
|
||||
|
||||
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||
oDS.Relations.Add("SelfRefenceRelation", _
|
||||
oDS.Tables(0).Columns("id"), _
|
||||
oDS.Tables(0).Columns("Parentid"))
|
||||
End If
|
||||
oTable.Dispose()
|
||||
oTable = Nothing
|
||||
LoadTreeView(oDS, tree)
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oDS"></param>
|
||||
''' <param name="oTreeview"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
|
||||
'Dim oTreeView As TreeView = New TreeView()
|
||||
Dim oDataRow As DataRow
|
||||
For Each oDataRow In oDS.Tables(0).Rows
|
||||
If Not oDataRow.IsNull("Parentid") Then
|
||||
If oDataRow.Item("Parentid") = 0 Then
|
||||
Dim oNode As New TreeNode()
|
||||
oNode.Text = oDataRow("Bezeichnung").ToString()
|
||||
oNode.Tag = oDataRow("auswertungnr").ToString
|
||||
oNode.ToolTipText = oDataRow("Beschreibung").ToString
|
||||
oNode.ImageIndex = 0
|
||||
oNode.SelectedImageIndex = 0
|
||||
oNode.StateImageIndex = 0
|
||||
oTreeview.Nodes.Add(oNode)
|
||||
RecursivelyLoadTree(oDataRow, oNode)
|
||||
End If
|
||||
End If
|
||||
Next oDataRow
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Child-Nodes hinzufügen
|
||||
''' </summary>
|
||||
''' <param name="oDataRow"></param>
|
||||
''' <param name="oNode"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New TreeNode()
|
||||
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
||||
oChildNode.Tag = oChildRow("Auswertungnr").ToString()
|
||||
If oChildRow("Auswertungnr") = 0 Then
|
||||
oChildNode.ImageIndex = 0
|
||||
oChildNode.SelectedImageIndex = 0
|
||||
oChildNode.StateImageIndex = 0
|
||||
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
|
||||
Else
|
||||
oChildNode.ImageIndex = 1
|
||||
oChildNode.SelectedImageIndex = 1
|
||||
oChildNode.StateImageIndex = 1
|
||||
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
|
||||
End If
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
|
||||
Public Function Get_Auswertung(ByVal Auswertungnr As Integer) As Boolean
|
||||
Try
|
||||
Me.Auswertung.iAuswertungNr = New SqlInt32(CType(Auswertungnr, Int32))
|
||||
Me.Auswertung.cpMainConnectionProvider = Globals.conn
|
||||
Me.Auswertung.SelectOne()
|
||||
Me.AuswertungParameter = Get_Auswertungsparameter(Me.Auswertung.iAuswertungNr.Value)
|
||||
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(Me.Auswertung.iAuswertungNr.Value)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_Auswertungsparameter(ByVal Auswertungnr As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_rpt_get_auswertungparameter"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Auswertungnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Auswertungnr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function get_rptparam_values(ByVal sp As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = sp
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_Auswertungsdaten(ByVal sql As String, ByVal sqlwhere As String, ByVal sqltype As String) As DataSet
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataSet = New DataSet()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = sql
|
||||
Select Case UCase(sqltype)
|
||||
Case "SQL"
|
||||
If sqlwhere <> "" Then sql = sql + " where " + sqlwhere
|
||||
'gaga
|
||||
Case "VIEW"
|
||||
If sqlwhere <> "" Then sql = sql + " where " + sqlwhere
|
||||
Case "SP"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sqlwhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sqlwhere))
|
||||
End Select
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
'scmCmdToExecute.Parameters.Add(New SqlParameter("@Rolle", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Function Get_Auswertungsdaten(ByVal sp As String, ByVal sqlwhere As String, ByVal txp As Boolean) As DataTable
|
||||
|
||||
Dim con As New SqlConnection(Get_TXP_Connection)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = sp
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = con
|
||||
scmCmdToExecute.CommandTimeout = 30000
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sqlwhere", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, sqlwhere))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
con.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
con.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Private Function Get_TXP_Connection() As String
|
||||
Dim sCstr As String = ""
|
||||
Dim txpfile As System.IO.File
|
||||
Dim txpread As System.IO.StreamReader
|
||||
txpread = txpfile.OpenText(Application.StartupPath + "\TXPConn.cfg")
|
||||
sCstr = txpread.ReadLine
|
||||
sCstr = Crypto.DecryptText(sCstr, "HutterundMueller")
|
||||
sCstr = Left(sCstr, Len(sCstr) - 1)
|
||||
txpread.Close()
|
||||
|
||||
Return sCstr
|
||||
End Function
|
||||
Public Function Save_MAParameter(ByVal auswertungnr As Integer, ByVal Bezeichnung As String, ByVal Parameter As String, ByVal Titel1 As String, ByVal Titel2 As String, ByVal PrintParam As Boolean, ByVal sqlwhere As String)
|
||||
Me.Mitarbeiter_Auswerungsparameter.cpMainConnectionProvider = Globals.conn
|
||||
Me.Mitarbeiter_Auswerungsparameter.iAuswertungnr = New SqlInt32(CType(auswertungnr, Int32))
|
||||
Me.Mitarbeiter_Auswerungsparameter.iMitarbeiternr = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
|
||||
Me.Mitarbeiter_Auswerungsparameter.sBeschreibung = New SqlString(CType(Bezeichnung, String))
|
||||
Me.Mitarbeiter_Auswerungsparameter.sParameterdaten = New SqlString(CType(Parameter, String))
|
||||
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile1 = New SqlString(CType(Titel1, String))
|
||||
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile2 = New SqlString(CType(Titel2, String))
|
||||
Me.Mitarbeiter_Auswerungsparameter.sSQLWhere = New SqlString(CType(sqlwhere, String))
|
||||
If PrintParam = True Then
|
||||
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(True, Boolean))
|
||||
Else
|
||||
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(False, Boolean))
|
||||
End If
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Mitarbeiter_Auswerungsparameter.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(auswertungnr)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Get_MAParameter(ByVal Auswertungnr As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_mitarbeiter_auswertungparamter_selectall"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Auswertungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Auswertungnr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("frmAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Delete_Parameter(ByVal AuswertungParameterNr As Integer)
|
||||
Me.Mitarbeiter_Auswerungsparameter.iMitarbeiter_AuswertungsparameterNr = New SqlInt32(CType(AuswertungParameterNr, Int32))
|
||||
Me.Mitarbeiter_Auswerungsparameter.cpMainConnectionProvider = Globals.conn
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Mitarbeiter_Auswerungsparameter.Delete()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(Me.Auswertung.iAuswertungNr.Value)
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
61
SW/20211125/_FRReporting/Klassen/clsMyKey_Tabelle.vb
Normal file
61
SW/20211125/_FRReporting/Klassen/clsMyKey_Tabelle.vb
Normal file
@@ -0,0 +1,61 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Namespace DB
|
||||
Public Class clsMyKey_Tabelle
|
||||
Inherits db.clsKey_tabelle
|
||||
|
||||
Public Function get_dbkey(ByVal Tablename As String) As Long
|
||||
Dim m_dbkey As Long
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
End Try
|
||||
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
scmCmdToExecute.Connection.Close()
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return m_dbkey
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
13
SW/20211125/_FRReporting/My Project/Application.Designer.vb
generated
Normal file
13
SW/20211125/_FRReporting/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
10
SW/20211125/_FRReporting/My Project/Application.myapp
Normal file
10
SW/20211125/_FRReporting/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>1</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
SW/20211125/_FRReporting/My Project/AssemblyInfo.vb
Normal file
35
SW/20211125/_FRReporting/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("_FRReporting")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("_FRReporting")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2013")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("62c24cfc-27b8-4bf5-a942-c28ff6fc8672")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
63
SW/20211125/_FRReporting/My Project/Resources.Designer.vb
generated
Normal file
63
SW/20211125/_FRReporting/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("_FRReporting.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
SW/20211125/_FRReporting/My Project/Resources.resx
Normal file
117
SW/20211125/_FRReporting/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
73
SW/20211125/_FRReporting/My Project/Settings.Designer.vb
generated
Normal file
73
SW/20211125/_FRReporting/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "Funktion zum automatischen Speichern von My.Settings"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global._FRReporting.My.MySettings
|
||||
Get
|
||||
Return Global._FRReporting.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
SW/20211125/_FRReporting/My Project/Settings.settings
Normal file
7
SW/20211125/_FRReporting/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
1
SW/20211125/_FRReporting/My Project/licenses.licx
Normal file
1
SW/20211125/_FRReporting/My Project/licenses.licx
Normal file
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
90
SW/20211125/_FRReporting/_FRReporting.vb
Normal file
90
SW/20211125/_FRReporting/_FRReporting.vb
Normal file
@@ -0,0 +1,90 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class _FRReporting
|
||||
Dim m_connectionstring As String
|
||||
|
||||
#Region "Properties"
|
||||
Public Property ConnectionString() As String
|
||||
Get
|
||||
ConnectionString = m_connectionstring
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
If m_connectionstring <> Value Then
|
||||
m_connectionstring = Value
|
||||
Globals.sConnectionString = m_connectionstring
|
||||
Globals.conn.sConnectionString = m_connectionstring
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Dim m_Mitarbeiternr As Integer
|
||||
Public Property Mitarbeiternr As Integer
|
||||
Get
|
||||
Mitarbeiternr = m_Mitarbeiternr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
If m_Mitarbeiternr <> value Then
|
||||
m_Mitarbeiternr = value
|
||||
Globals.Mitarbeiternr = m_Mitarbeiternr
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_TempFilePath As String
|
||||
Public Property TempFilePath As String
|
||||
Get
|
||||
TempFilePath = m_TempFilePath
|
||||
End Get
|
||||
Set(value As String)
|
||||
If m_TempFilePath <> value Then
|
||||
m_TempFilePath = value
|
||||
Globals.TmpFilepath = m_TempFilePath
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function ReportSelect(ByVal Parentform As Form)
|
||||
Dim f As New FrmReportSelect
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
End Function
|
||||
|
||||
Public Function DefaultReport(ByVal auswertungnr As Integer, param As String, ByVal ParamValue As String, Optional Parent As Object = Nothing)
|
||||
Dim f As New FrmReportSelect
|
||||
f.MdiParent = Parent
|
||||
f.Show()
|
||||
f.TreeAuswertungen.SelectedNode = FindNode(f.TreeAuswertungen.Nodes, auswertungnr, "")
|
||||
f.cbparam1.Text = param
|
||||
f.cbop1.Text = "="
|
||||
f.cbvalue1.Text = ParamValue
|
||||
f.showreport()
|
||||
f.Close()
|
||||
End Function
|
||||
|
||||
Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
|
||||
Dim tmpNode As TreeNode
|
||||
For Each _child As TreeNode In _nodeCollection
|
||||
If _child.Tag = SearchVal Then
|
||||
|
||||
Return _child
|
||||
End If
|
||||
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||
' Return _child
|
||||
' End If
|
||||
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
||||
If Not tmpNode Is Nothing Then
|
||||
Return tmpNode
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
233
SW/20211125/_FRReporting/_FRReporting.vbproj
Normal file
233
SW/20211125/_FRReporting/_FRReporting.vbproj
Normal file
@@ -0,0 +1,233 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>_FRReporting</RootNamespace>
|
||||
<AssemblyName>_FRReporting</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>_FRReporting.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>_FRReporting.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20132.61313, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Libs\C1.Win.C1TrueDBGrid.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="FastReport, Version=2015.3.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.dll</HintPath>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="FastReport.Bars, Version=2015.3.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.Bars.dll</HintPath>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="FastReport.Editor, Version=2015.3.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.Editor.dll</HintPath>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="FlexCel, Version=5.5.1.0, Culture=neutral, PublicKeyToken=cb8f6080e6d5a4d6, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Windows.Forms.DataVisualization" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="XLSLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\..\ITSM\Vertragsverwaltung\bin\Debug\XLSLib.dll</HintPath>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="DB\clsAuswertung.vb" />
|
||||
<Compile Include="DB\clsAuswertungAuswertungParameter.vb" />
|
||||
<Compile Include="DB\clsAuswertungGruppe.vb" />
|
||||
<Compile Include="DB\clsAuswertungGruppeAuswertung.vb" />
|
||||
<Compile Include="DB\clsAuswertungRptDatei.vb" />
|
||||
<Compile Include="DB\clsAuswertungsparameter.vb" />
|
||||
<Compile Include="DB\clsConnectionProvider.vb" />
|
||||
<Compile Include="DB\clsDBInteractionBase.vb" />
|
||||
<Compile Include="DB\clsKey_tabelle.vb" />
|
||||
<Compile Include="DB\clsMitarbeiter_Auswertungsparameter.vb" />
|
||||
<Compile Include="DB\clsSecurityObject.vb" />
|
||||
<Compile Include="Formulare\frmAuswertung.designer.vb">
|
||||
<DependentUpon>frmAuswertung.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmAuswertung.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmCalendar.designer.vb">
|
||||
<DependentUpon>frmCalendar.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmCalendar.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmCRReporting.designer.vb">
|
||||
<DependentUpon>frmCRReporting.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmCRReporting.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmDataSelect.Designer.vb">
|
||||
<DependentUpon>frmDataSelect.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmDataSelect.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmEditWhere.designer.vb">
|
||||
<DependentUpon>frmEditWhere.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmEditWhere.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\sample.Designer.vb">
|
||||
<DependentUpon>sample.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\sample.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\clsAuswertung.vb" />
|
||||
<Compile Include="Klassen\clsMyKey_Tabelle.vb" />
|
||||
<Compile Include="Klassen\Crypto.vb" />
|
||||
<Compile Include="Klassen\Globals.vb" />
|
||||
<Compile Include="Klassen\MyDocMgmt.vb" />
|
||||
<Compile Include="Klassen\MySecurity.vb" />
|
||||
<Compile Include="_FRReporting.vb" />
|
||||
<Compile Include="Formulare\FrmReportSelect.designer.vb">
|
||||
<DependentUpon>FrmReportSelect.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\FrmReportSelect.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmViewer.Designer.vb">
|
||||
<DependentUpon>frmViewer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\frmViewer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Formulare\frmAuswertung.resx">
|
||||
<DependentUpon>frmAuswertung.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\frmCalendar.resx">
|
||||
<DependentUpon>frmCalendar.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\frmCRReporting.resx">
|
||||
<DependentUpon>frmCRReporting.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\frmDataSelect.resx">
|
||||
<DependentUpon>frmDataSelect.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\frmEditWhere.resx">
|
||||
<DependentUpon>frmEditWhere.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\FrmReportSelect.resx">
|
||||
<DependentUpon>FrmReportSelect.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\frmViewer.resx">
|
||||
<DependentUpon>frmViewer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\sample.resx">
|
||||
<DependentUpon>sample.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
BIN
SW/20211125/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.dll
Normal file
Binary file not shown.
10669
SW/20211125/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.xml
Normal file
10669
SW/20211125/_FRReporting/bin/Debug/C1.Win.C1TrueDBGrid.2.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Bars.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Bars.dll
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Compat.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Compat.dll
Normal file
Binary file not shown.
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Editor.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.Editor.dll
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/FastReport.dll
Normal file
Binary file not shown.
53156
SW/20211125/_FRReporting/bin/Debug/FastReport.xml
Normal file
53156
SW/20211125/_FRReporting/bin/Debug/FastReport.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
SW/20211125/_FRReporting/bin/Debug/FlexCel.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/FlexCel.dll
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/XLSLib.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/XLSLib.dll
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/_FRReporting.dll
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/_FRReporting.dll
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/bin/Debug/_FRReporting.pdb
Normal file
BIN
SW/20211125/_FRReporting/bin/Debug/_FRReporting.pdb
Normal file
Binary file not shown.
1327
SW/20211125/_FRReporting/bin/Debug/_FRReporting.xml
Normal file
1327
SW/20211125/_FRReporting/bin/Debug/_FRReporting.xml
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,7 @@
|
||||
' <autogenerated/>
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.5", FrameworkDisplayName:=".NET Framework 4.5")>
|
||||
@@ -0,0 +1,67 @@
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FastReport.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FastReport.Bars.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\csvadapter.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FlexCel.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\MWTreeView.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\XLSLib.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_AllgMainObjekte.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FunktionDetail.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\FlexCel.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\MWTreeView.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_DataClass.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_Generic_Event_Handler.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\_MyBeziehungen.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\es\FlexCel.resources.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDatenbankauswahl.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmAbout.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmExportContainer.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmFortschritt.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmLogin.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmMsgBox.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSplash.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmTempBerechtigung.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDatenverarbeitung.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmExcelSheets.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmUpdate.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmMain.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDomainEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmDomainEditorExtTables.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmFormSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSysadminMenu.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSysadminTableSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.FrmToolTipEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmVerbindungEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmSuche.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.frmUebersicht.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.exe.licenses
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.exe
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe.config
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\System.Windows.Forms.DataVisualization.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.exe
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\BEA.exe.config
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\BEA.exe.config
|
||||
@@ -0,0 +1 @@
|
||||
3bee2fd3914494f976a90fe7a6c90a465c3795a2
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.dll
Normal file
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.dll
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.pdb
Normal file
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.pdb
Normal file
Binary file not shown.
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.sample.resources
Normal file
BIN
SW/20211125/_FRReporting/obj/Debug/_FRReporting.sample.resources
Normal file
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
cb99f62cce835abfa8792df1956e27a1038a5010
|
||||
@@ -0,0 +1,55 @@
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FlexCel.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FlexCel.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.pdb
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\es\FlexCel.resources.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmAuswertung.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmCalendar.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmcrreporting.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmDataSelect.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmEditWhere.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.FrmReportSelect.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.frmViewer.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.sample.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.dll.licenses
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmAuswertung.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmCalendar.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmcrreporting.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmDataSelect.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmEditWhere.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.FrmReportSelect.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.frmViewer.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.sample.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.dll.licenses
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.Bars.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.Editor.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FlexCel.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\XLSLib.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.Compat.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.DataVisualization.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\bin\Debug\FastReport.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.vbproj.CoreCompileInputs.cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.vbproj.CopyComplete
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\_FRReporting\obj\Debug\_FRReporting.vbproj.AssemblyReference.cache
|
||||
Binary file not shown.
Binary file not shown.
1327
SW/20211125/_FRReporting/obj/Debug/_FRReporting.xml
Normal file
1327
SW/20211125/_FRReporting/obj/Debug/_FRReporting.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
SW/20211125/_FRReporting/obj/Debug/_frreporting.dll.licenses
Normal file
BIN
SW/20211125/_FRReporting/obj/Debug/_frreporting.dll.licenses
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user