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
EDOKA/Backup/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>

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

@@ -0,0 +1,332 @@
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)
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

203
EDOKA/Backup/Report/frmReportViewer.resx Normal file
View File

@@ -0,0 +1,203 @@
<?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="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="mnuClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>469, 30</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AADICwAAAk1TRnQBSQFMAgEBBQEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ASwAB
AwH/PAAB7AEDAewB/zoAAQMB7AEDAewBAwH/OQABAwHsAQMB7AEDAewB/wEAAew3AAHsAQMB7AEDAewB
AwH/AQAB7DcAAQMB7AEDAgAB7AH/AQAB7DcAAewBAwHsAgcBAwH/AQAB7AEAAQY1AAEDAewBAwHsAQMB
7AH/AgABBgX+MQAB7AEDAewBAwHsAQMB/wEAAW0G/jEAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtMQAB
7AEDAewBAwHsAQMB/wEAAewBAAJtNAABAwHsAQMB7AEHAf8B7AEAAewCAAFtNAAB7AEDAQcB/wHsAQAD
7DcAAQcB/wHsAQAF7HYAEAcQAgj/AQoQ/wHsAQAB7AT/BwcBAAEHAQAD7AEAAgcCAg0AAQIF/wEHARQB
7AHzARIB8Qz/AewBAAL/AewE/wcHAQABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECA/8BBwEUAewD
/wHzARIB8Qn/AewBAAT/AQAB7AP/AQABBwQAAQcBAAEHAQAD7AEAAgcBAgEAAgMGAAIHAQABAwEAAQIB
/wEHARQB7Ab/AfMBEgHxBv8B7AEABf8B/AH/AewD/wUHAwABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMB
AAECAWcB7AL/AgcC/wIHAf8B8wESAfEE/wEABf8B/AH/AfwB/wEAAewC/wUHAgACBwEAAewBBwHsAQAC
BwECAQACAwkAAQMBAAECAWcBkgH/AQcC/wIHAfEBBwHxAQcB8wESAfED/wHsA/8B/AH/AfwC/wH8Af8B
7AL/AgABBwEAAQcDAAEHAQAD7AEAAgcBAgEADAMBAAECAf8BBwGSAf8CBwHxAQcB8QIHAvEB8wESAv8B
7AEHAQAC/wH8Av8B/AH/AfwB/wEAAewB/wQHBgAD7AEAAgcBAgEAAgMIAAIDAQABAgL/AQcBbQEQAQcB
8QIHAfEBBwHxAf8B8wFtAT4B/wMHA/8B/AH/AfwC/wH8Af8B7AH/BgcCAAEHAgAC7AEAAgcBAgEAAQMB
AAgHAQABAwEAAQIC/wGSATcBbQH/AQcB8QEHAfED/wIHAT4B/wEAAgcBAAL/AfwC/wH8Af8B/AH/AQAB
7AUHAwABBwEAA+wBAAIHAQIBAAEDAQAIBwEAAQMBAAECAv8BSgFYAewBkgLxAv8BmAP/ARUC/wIAAgcF
/wH8Av8B/AH/AewGBwIAAQcCAALsAQACBwECAQABAwEACAcBAAEDAQABAgH/AZIBNwHsAf8BBwGSAf8B
tgHPAZgB8QLsBf8BAAEHAQAB/wMHAf8B/AP/AQAJBwUAAgcBAgEAAQMBAAgHAQABAwEAAQIB/wFKAVgB
BwL/AQcBkgG9AfEC7AT/AQAD/wEAAQcB/wIHB/8QBwECAQABAwEACAcDAAECAf8BHgHsBP8BBwFtAewI
/wEAAv8CAAL/AQAB7AEHAv8BAAH/CAcEBAQHAQIBAAEDAQAIBwEAAQcBAAECAv8BBxH/AQAB/wEAAf8B
AAH/AQcDAAL/CAcBBAIHAQQEBwECDgABAhb/AQAE/wEHAQAD/wgHBAQEBxACIP8BQgFNAT4HAAE+AwAB
KAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP/gQAB/AF/BgAB8AF/BgABwAF/BwABHwcAAR8HAAEXBwAB
BycAAQcHAAEXBwABHwcAAR8HAAEfnAAL
</value>
</data>
<data name="crviewer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmReportViewer</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>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
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
GgAODg4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEREREREREREREQAAAAAAABERERER
EREAAAAACgAAAAAREREREREACgcHCgAKAAAAEREREREACgcHDQoKAAAAABERERERAAcHBwcKBwAAAAAR
EREREQAHDQcHCgcAAAAAEREREREACg0NBwoKAAAAABEREREREQAKBwcKAAAAAAARERERERERAAAAAAAA
AAAAEREREREREREREQAAAAAAABEREREREREAAAAAAAAAAAARERERERERAAcAAAAAAAAAEREREREREQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAAADAAAAAgAAAABAAAAAwAAAAMAAAADAAAAAwAAAAMAAAAH
AAAADwAAAA8AAAAPAAAAHwAAAD8AAAB/AAA=
</value>
</data>
</root>

314
EDOKA/Backup/Report/frmReportViewer.vb Normal file
View File

@@ -0,0 +1,314 @@
'Option Strict On
'Option Explicit On
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Public Class frmReportViewer
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 ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents mnuClose As System.Windows.Forms.ToolBarButton
Friend WithEvents crviewer As CrystalDecisions.Windows.Forms.CrystalReportViewer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmReportViewer))
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.mnuClose = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.crviewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer()
Me.SuspendLayout()
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.mnuClose})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(816, 25)
Me.ToolBar1.TabIndex = 0
'
'mnuClose
'
Me.mnuClose.ImageIndex = 4
Me.mnuClose.ToolTipText = "Schliessen"
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'crviewer
'
Me.crviewer.ActiveViewIndex = -1
Me.crviewer.Dock = System.Windows.Forms.DockStyle.Fill
Me.crviewer.Location = New System.Drawing.Point(0, 25)
Me.crviewer.Name = "crviewer"
Me.crviewer.ReportSource = "C:\EDOKA\EDOKA\Report\Reports\MetaDataReport.rpt"
Me.crviewer.ShowCloseButton = False
Me.crviewer.ShowGroupTreeButton = False
Me.crviewer.ShowRefreshButton = False
Me.crviewer.Size = New System.Drawing.Size(816, 500)
Me.crviewer.TabIndex = 1
'
'frmReportViewer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(816, 525)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.crviewer, Me.ToolBar1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmReportViewer"
Me.Text = "Report-Viewer"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.ResumeLayout(False)
End Sub
#End Region
#Region " Declaration "
Dim i As Integer
Dim s As String
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim m_sWindowTitel As String
Dim rpt As New ReportDocument()
Dim crParameterValues As ParameterValues
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
#End Region
#Region " Property "
Property WindowTitel() As String
Get
Return m_sWindowTitel
End Get
Set(ByVal Value As String)
m_sWindowTitel = Value
End Set
End Property
#End Region
Private Sub frmReportViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
#Region " Reporting "
Public Function show_reportWithParameter(ByVal ReportName As String, ByVal param As String) As Boolean
'===============================================================================
'Desc : Anziegen des gewählten report
'Input : Reportname
'Kriterium : Der Report muss im Verzeichenis welches in der Tabelle Applikation
' hinterlegt ist, vorhanden sein
'Erstellt : bud 25.05.2005
'Geaendert :
'===============================================================================
Dim sReportpath As String
If m_sWindowTitel <> "" Then
Me.Text = m_sWindowTitel
End If
Try
sReportpath = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
If Microsoft.VisualBasic.Right(sReportpath, 1) <> "\" Then
sReportpath = sReportpath & "\"
End If
'=============================================
'Fileprüfung
'=============================================
If FileExist(sReportpath, ReportName) = True Then
rpt.Load(sReportpath & ReportName)
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
'***************************************************
'***************************************************
Dim intCounter As Integer
intCounter = rpt.DataDefinition.ParameterFields.Count
If intCounter = 1 Then
If InStr(rpt.DataDefinition.ParameterFields(0).ParameterFieldName, ".", CompareMethod.Text) > 0 Then
intCounter = 0
End If
End If
Dim strParValPair() As String
Dim strVal() As String
Dim index As Integer
Dim paraValue As New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim currValue As CrystalDecisions.Shared.ParameterValues
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo()
Dim mySubReportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject
Dim mySubRepDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim intCounter1 As Integer
If intCounter > 0 And Trim(param) <> "" Then
strParValPair = param.Split(CType("&", Char))
'For i = 0 To intCounter - 1
' If rpt.DataDefinition.ParameterFields(i).Name = "@MANr" Then
' strVal = strParValPair(0).Split(CType("=", Char))
' paraValue.Value = strVal(1)
' currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
' currValue.Add(paraValue)
' rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
' End If
' If rpt.DataDefinition.ParameterFields(i).Name = "@MetDataOption" Then
' strVal = strParValPair(1).Split(CType("=", Char))
' paraValue.Value = strVal(1)
' currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
' currValue.Add(paraValue)
' rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
' End If
' If rpt.DataDefinition.ParameterFields(i).Name = "@OfficeDokID" Then
' strVal = strParValPair(2).Split(CType("=", Char))
' paraValue.Value = strVal(1)
' currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
' currValue.Add(paraValue)
' rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
' End If
'Next
For index = 0 To UBound(strParValPair)
If InStr(strParValPair(index), "=") > 0 Then
strVal = strParValPair(index).Split(CType("=", Char))
paraValue.Value = strVal(1)
currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
currValue.Add(paraValue)
rpt.DataDefinition.ParameterFields(strVal(0)).ApplyCurrentValues(currValue)
End If
Next
End If
ConInfo.ConnectionInfo.UserID = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("user_report"), String)
ConInfo.ConnectionInfo.Password = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_report"), String)
ConInfo.ConnectionInfo.ServerName = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_server"), String)
ConInfo.ConnectionInfo.DatabaseName = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_db"), String)
For intCounter = 0 To rpt.Database.Tables.Count - 1
rpt.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
Next
For index = 0 To rpt.ReportDefinition.Sections.Count - 1
For intCounter = 0 To rpt.ReportDefinition.Sections(index).ReportObjects.Count - 1
With rpt.ReportDefinition.Sections(index)
If .ReportObjects(intCounter).Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
mySubReportObject = CType(.ReportObjects(intCounter), CrystalDecisions.CrystalReports.Engine.SubreportObject)
mySubRepDoc = mySubReportObject.OpenSubreport(mySubReportObject.SubreportName)
For intCounter1 = 0 To mySubRepDoc.Database.Tables.Count - 1
mySubRepDoc.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
mySubRepDoc.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
Next
End If
End With
Next
Next
Dim crReportDocument As ReportDocument 'Untyped report object
Me.crviewer.ReportSource = rpt
Me.crviewer.Zoom(2)
Me.Cursor = System.Windows.Forms.Cursors.Default
show_reportWithParameter = True
Exit Function
End If
Catch Exp As LoadSaveReportException
show_reportWithParameter = False
Me.Cursor = System.Windows.Forms.Cursors.Default
Catch Exp As Exception
show_reportWithParameter = False
Me.Cursor = System.Windows.Forms.Cursors.Default
End Try
End Function
#End Region
#Region " Extras "
Private Function FileExist(ByVal FilePath As String, ByVal FileName As String) As Boolean
'===============================================================================
'Ermittelt ob eine Datei vorhanden ist.
'Input : Verzeichnis
'Output: True/False
'Erstellt : koe 20.10.2003
'Geaendert :
'===============================================================================
Try
If Microsoft.VisualBasic.Right(FilePath, 1) <> "\" Then
FilePath = FilePath + "\"
End If
If System.IO.Directory.Exists(FilePath) Then
If System.IO.File.Exists(FilePath & FileName) Then
FileExist = True
Else
MyMsg.show_standardmessage_ReplaceText(210, MsgBoxStyle.Exclamation, FilePath & " " & FileName, "") 'Datei #1 nicht gefunden!
FileExist = False
End If
Else
MyMsg.show_standardmessage_ReplaceText(210, MsgBoxStyle.Exclamation, FilePath, "") '"Verzeichnis " & FilePath & " nicht gefunden!
FileExist = False
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Reportdatei", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
FileExist = False
End Try
End Function
#End Region
#Region " Menue Funktionen "
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Me.Close()
End Sub
#End Region
End Class