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

Initial

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

166
Backup/EDOKA/Report/frmMetaDatenSelector.resx Normal file
View File

@@ -0,0 +1,166 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxErsetzteDok.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxInfomeldung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxDokWerte.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxDokZuordnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxAllg.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxDokStatus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxNotizen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbxBerEinschr.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnDrucken.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAbbrechen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSelectAll.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmMetaDatenSelector</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAgACAAIAAAACAgAAAAIAAAACAgAAAAIAAwMDAAMDcwADwyqYAgICAAP8A/wD/AAAA//8AAAD/
AAAA//8AAAD/AP///wDw+/8ApKCgANTw/wCx4v8AjtT/AGvG/wBIuP8AJar/AACq/wAAktwAAHq5AABi
lgAASnMAADJQANTj/wCxx/8Ajqv/AGuP/wBIc/8AJVf/AABV/wAASdwAAD25AAAxlgAAJXMAABlQANTU
/wCxsf8Ajo7/AGtr/wBISP8AJSX/AAAA/wAAANwAAAC5AAAAlgAAAHMAAABQAOPU/wDHsf8Aq47/AI9r
/wBzSP8AVyX/AFUA/wBJANwAPQC5ADEAlgAlAHMAGQBQAPDU/wDisf8A1I7/AMZr/wC4SP8AqiX/AKoA
/wCSANwAegC5AGIAlgBKAHMAMgBQAP/U/wD/sf8A/47/AP9r/wD/SP8A/yX/AP8A/wDcANwAuQC5AJYA
lgBzAHMAUABQAP/U8AD/seIA/47UAP9rxgD/SLgA/yWqAP8AqgDcAJIAuQB6AJYAYgBzAEoAUAAyAP/U
4wD/sccA/46rAP9rjwD/SHMA/yVXAP8AVQDcAEkAuQA9AJYAMQBzACUAUAAZAP/U1AD/sbEA/46OAP9r
awD/SEgA/yUlAP8AAADcAAAAuQAAAJYAAABzAAAAUAAAAP/j1AD/x7EA/6uOAP+PawD/c0gA/1clAP9V
AADcSQAAuT0AAJYxAABzJQAAUBkAAP/w1AD/4rEA/9SOAP/GawD/uEgA/6olAP+qAADckgAAuXoAAJZi
AABzSgAAUDIAAP//1AD//7EA//+OAP//awD//0gA//8lAP//AADc3AAAubkAAJaWAABzcwAAUFAAAPD/
1ADi/7EA1P+OAMb/awC4/0gAqv8lAKr/AACS3AAAerkAAGKWAABKcwAAMlAAAOP/1ADH/7EAq/+OAI//
awBz/0gAV/8lAFX/AABJ3AAAPbkAADGWAAAlcwAAGVAAANT/1ACx/7EAjv+OAGv/awBI/0gAJf8lAAD/
AAAA3AAAALkAAACWAAAAcwAAAFAAANT/4wCx/8cAjv+rAGv/jwBI/3MAJf9XAAD/VQAA3EkAALk9AACW
MQAAcyUAAFAZANT/8ACx/+IAjv/UAGv/xgBI/7gAJf+qAAD/qgAA3JIAALl6AACWYgAAc0oAAFAyANT/
/wCx//8Ajv//AGv//wBI//8AJf//AAD//wAA3NwAALm5AACWlgAAc3MAAFBQAPLy8gDm5uYA2traAM7O
zgDCwsIAtra2AKqqqgCenp4AkpKSAIaGhgB6enoAbm5uAGJiYgBWVlYASkpKAD4+PgAyMjIAJiYmABoa
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAA+vr6+vr6+vr6+voAAAAA+u/v7+/v7+/v7/rv+gAA+vr6+vr6
+vr6+vr6+u/6APrv7+/v7+/k5OTv7/r6+gD67+/v7+/v8vLy7+/67/oA+vr6+vr6+vr6+vr6+u/v+vrv
7+/v7+/v7+/v+u/67/oA+vr6+vr6+vr6+u/67/r6AAD6ERERERERERH67/rv+gAAAPoR+vr6+voR+vr6
+gAAAAD6ERERERERERH6AAAAAAAAAPoR+vr6+voR+gAAAAAAAAD6ERERERERERH6AAAAAAAAAPr6+vr6
+vr6+gAAAAAAAAAAAAAAAAAAAAAAAP/////AB///gAP//wAB//8AAf//AAH//wAA//8AAP//gAD//8AA
///gAf//4Af///AH///wA///+AP///////8=
</value>
</data>
</root>

362
Backup/EDOKA/Report/frmMetaDatenSelector.vb Normal file
View File

@@ -0,0 +1,362 @@
Public Class frmMetaDatenSelector
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnDrucken As System.Windows.Forms.Button
Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
Friend WithEvents cbxNotizen As System.Windows.Forms.CheckBox
Friend WithEvents cbxDokStatus As System.Windows.Forms.CheckBox
Friend WithEvents cbxAllg As System.Windows.Forms.CheckBox
Friend WithEvents cbxDokZuordnung As System.Windows.Forms.CheckBox
Friend WithEvents cbxDokWerte As System.Windows.Forms.CheckBox
Friend WithEvents cbxInfomeldung As System.Windows.Forms.CheckBox
Friend WithEvents cbxBerEinschr As System.Windows.Forms.CheckBox
Friend WithEvents cbxErsetzteDok As System.Windows.Forms.CheckBox
Friend WithEvents btnSelectAll As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMetaDatenSelector))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxErsetzteDok = New System.Windows.Forms.CheckBox()
Me.cbxInfomeldung = New System.Windows.Forms.CheckBox()
Me.cbxDokWerte = New System.Windows.Forms.CheckBox()
Me.cbxDokZuordnung = New System.Windows.Forms.CheckBox()
Me.cbxAllg = New System.Windows.Forms.CheckBox()
Me.cbxDokStatus = New System.Windows.Forms.CheckBox()
Me.cbxNotizen = New System.Windows.Forms.CheckBox()
Me.cbxBerEinschr = New System.Windows.Forms.CheckBox()
Me.btnDrucken = New System.Windows.Forms.Button()
Me.btnAbbrechen = New System.Windows.Forms.Button()
Me.btnSelectAll = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbxErsetzteDok, Me.cbxInfomeldung, Me.cbxDokWerte, Me.cbxDokZuordnung, Me.cbxAllg, Me.cbxDokStatus, Me.cbxNotizen, Me.cbxBerEinschr})
Me.GroupBox1.Location = New System.Drawing.Point(16, 16)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(392, 136)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Selektion"
'
'cbxErsetzteDok
'
Me.cbxErsetzteDok.Location = New System.Drawing.Point(200, 96)
Me.cbxErsetzteDok.Name = "cbxErsetzteDok"
Me.cbxErsetzteDok.Size = New System.Drawing.Size(176, 24)
Me.cbxErsetzteDok.TabIndex = 7
Me.cbxErsetzteDok.Text = "Ersetzte Dokumente"
'
'cbxInfomeldung
'
Me.cbxInfomeldung.Location = New System.Drawing.Point(200, 48)
Me.cbxInfomeldung.Name = "cbxInfomeldung"
Me.cbxInfomeldung.Size = New System.Drawing.Size(144, 24)
Me.cbxInfomeldung.TabIndex = 5
Me.cbxInfomeldung.Text = "Informationsmeldungen"
'
'cbxDokWerte
'
Me.cbxDokWerte.Location = New System.Drawing.Point(16, 72)
Me.cbxDokWerte.Name = "cbxDokWerte"
Me.cbxDokWerte.Size = New System.Drawing.Size(144, 24)
Me.cbxDokWerte.TabIndex = 2
Me.cbxDokWerte.Text = "Dokumentwerte"
'
'cbxDokZuordnung
'
Me.cbxDokZuordnung.Location = New System.Drawing.Point(16, 96)
Me.cbxDokZuordnung.Name = "cbxDokZuordnung"
Me.cbxDokZuordnung.Size = New System.Drawing.Size(144, 24)
Me.cbxDokZuordnung.TabIndex = 3
Me.cbxDokZuordnung.Text = "Dokumentzuordnungen"
'
'cbxAllg
'
Me.cbxAllg.Location = New System.Drawing.Point(16, 24)
Me.cbxAllg.Name = "cbxAllg"
Me.cbxAllg.Size = New System.Drawing.Size(96, 24)
Me.cbxAllg.TabIndex = 0
Me.cbxAllg.Text = "Allgemein"
'
'cbxDokStatus
'
Me.cbxDokStatus.Location = New System.Drawing.Point(16, 48)
Me.cbxDokStatus.Name = "cbxDokStatus"
Me.cbxDokStatus.Size = New System.Drawing.Size(112, 24)
Me.cbxDokStatus.TabIndex = 1
Me.cbxDokStatus.Text = "Dokumentstatus"
'
'cbxNotizen
'
Me.cbxNotizen.Location = New System.Drawing.Point(200, 24)
Me.cbxNotizen.Name = "cbxNotizen"
Me.cbxNotizen.TabIndex = 4
Me.cbxNotizen.Text = "Notizen"
'
'cbxBerEinschr
'
Me.cbxBerEinschr.Location = New System.Drawing.Point(200, 72)
Me.cbxBerEinschr.Name = "cbxBerEinschr"
Me.cbxBerEinschr.Size = New System.Drawing.Size(184, 24)
Me.cbxBerEinschr.TabIndex = 6
Me.cbxBerEinschr.Text = "Berechtigungseinschränkungen"
'
'btnDrucken
'
Me.btnDrucken.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnDrucken.Location = New System.Drawing.Point(336, 160)
Me.btnDrucken.Name = "btnDrucken"
Me.btnDrucken.TabIndex = 9
Me.btnDrucken.Text = "Drucken"
'
'btnAbbrechen
'
Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Abort
Me.btnAbbrechen.Location = New System.Drawing.Point(256, 160)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.TabIndex = 8
Me.btnAbbrechen.Text = "Abbrechen"
'
'btnSelectAll
'
Me.btnSelectAll.Location = New System.Drawing.Point(16, 160)
Me.btnSelectAll.Name = "btnSelectAll"
Me.btnSelectAll.Size = New System.Drawing.Size(88, 23)
Me.btnSelectAll.TabIndex = 10
Me.btnSelectAll.Text = "Alle auswählen"
'
'frmMetaDatenSelector
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(424, 189)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSelectAll, Me.btnAbbrechen, Me.btnDrucken, Me.GroupBox1})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMetaDatenSelector"
Me.Text = "Dokumentinformationen drucken"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
#Region "Deklarationen"
Dim m_DokumentID As String
Dim m_DruckParameter As String = ""
Property Prop_DokumentID() As String
Get
Return m_DokumentID
End Get
Set(ByVal Value As String)
m_DokumentID = Value
End Set
End Property
Property Prop_DruckParameter() As String
Get
Return m_DruckParameter
End Get
Set(ByVal Value As String)
m_DruckParameter = Value
End Set
End Property
#End Region
Private Sub frmMetaDatenSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnDrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrucken.Click
Try
Dim s As String
s = "0;"
'Allgemeine Informationen
If cbxAllg.Checked = True Then
s = s + "1;"
End If
'Dokument Status
If cbxDokStatus.Checked = True Then
s = s + "2;"
End If
'Notizen
If cbxNotizen.Checked = True Then
s = s + "3;"
End If
'Dokument Zuordnungen
If cbxDokZuordnung.Checked = True Then
s = s + "4;"
End If
'Dokument Werte
If cbxDokWerte.Checked = True Then
s = s + "5;"
End If
'Informationsmeldungen
If cbxInfomeldung.Checked = True Then
s = s + "6;"
End If
'Berechtigungsaeinschränkung
If cbxBerEinschr.Checked = True Then
s = s + "7;"
End If
'Ersetzte Dokumente
If cbxErsetzteDok.Checked = True Then
s = s + "8;"
End If
m_DruckParameter = s
Me.Close()
'genReport(s)
Catch ex As Exception
End Try
End Sub
Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
Me.Close()
End Sub
Public Function genReport(ByVal sMetDataOption As String, ByVal parentform As Form)
Try
Dim r As New Reporting20.EDOKA_Reporting(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("user_report").ToString, _
Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_report").ToString, _
Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_server").ToString, _
Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_db").ToString)
Dim Dokument_Temp As String
Dim sReportBezNAme As String
Dim reportNr As Integer
Dim sReportname As String
sReportBezNAme = "Metadaten Report"
sReportname = "MetaDataReport.rpt"
reportNr = 20
Dim objReport As New edokadb.clsReporting_Dokumenttyp()
Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
objReport.Get_DocumentFrom_DB("reportNr", reportNr, "report", "reportfile", Dokument_Temp, sReportname)
objReport = Nothing
r.ShowMetaDataReport(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente").ToString, _
"MetaDataReport.rpt", _
"@MANr=" + Str(Globals.MitarbeiterNr) + "&@MetDataOption=" + sMetDataOption + "&@OfficeDokID=" + m_DokumentID, "Metadaten Report", parentform)
Catch ex As Exception
MsgBox(ex.Message)
End Try
'Me.Cursor = Cursors.WaitCursor
'Dim f As New frmReportViewer()
'Dim objReport As New edokadb.clsReporting_Dokumenttyp()
'Dim ParameterCollection As New Collection()
'Dim Dokument_Temp As String
'Dim sReportBezNAme As String
'Dim reportNr As Integer
'Dim sReportname As String
'sReportBezNAme = "Metadaten Report"
'sReportname = "MetaDataReport.rpt"
'reportNr = 20
''=======================================
''Dokument Speichern
''=======================================
'Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
'objReport.Get_DocumentFrom_DB("reportNr", reportNr, "report", "reportfile", Dokument_Temp, sReportname)
'objReport = Nothing
'f.WindowTitel = sReportBezNAme
''ParameterCollection = FillParameterCollection(sMetDataOption)
'If Not f.show_reportWithParameter(sReportname, "@MANr=" + Str(Globals.MitarbeiterNr) + "&@MetDataOption=" + sMetDataOption + "&@OfficeDokID=" + m_DokumentID) Then
' If MyMsg.Show_MessageYesNo(217) Then
' Exit Function
' End If
'End If
'Try
' 'f.crviewer.Visible = True
' f.Show()
'Catch ex As Exception
' Me.Cursor = Cursors.Default
' MsgBox(ex.Message)
'End Try
'Me.Cursor = Cursors.Default
End Function
Private Function FillParameterCollection(ByVal sMetDataOption As String) As Collection
Dim colParameter As New Microsoft.VisualBasic.Collection()
Dim iCnt As Integer
Dim sParameterKey As String
Dim sParameterValue As String
Dim sFilterDisplayValue As String
Try
sParameterKey = "@MANr"
Debug.Write(sParameterKey & vbCrLf)
sParameterValue = Globals.MitarbeiterNr
Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
sParameterKey = "@MetDataOption"
Debug.Write(sParameterKey & vbCrLf)
sParameterValue = sMetDataOption
Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
sParameterKey = "@OfficeDokID"
Debug.Write(sParameterKey & vbCrLf)
sParameterValue = m_DokumentID
Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
FillParameterCollection = colParameter
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
Me.cbxAllg.Checked = True
Me.cbxBerEinschr.Checked = True
Me.cbxDokStatus.Checked = True
Me.cbxDokWerte.Checked = True
Me.cbxDokZuordnung.Checked = True
Me.cbxErsetzteDok.Checked = True
Me.cbxInfomeldung.Checked = True
Me.cbxNotizen.Checked = True
End Sub
End Class