Update 20190329
This commit is contained in:
6
DMSTest/App.config
Normal file
6
DMSTest/App.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||
</startup>
|
||||
</configuration>
|
||||
119
DMSTest/DMSTest.vbproj
Normal file
119
DMSTest/DMSTest.vbproj
Normal file
@@ -0,0 +1,119 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="15.0" 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>{9C2612EE-2967-4C6E-BA46-B776919A7096}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DMSTest.My.MyApplication</StartupObject>
|
||||
<RootNamespace>DMSTest</RootNamespace>
|
||||
<AssemblyName>DMSTest</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DMSTest.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DMSTest.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Net.Http" />
|
||||
</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.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<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="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>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
317
DMSTest/DokumentDetail.Designer.vb
generated
Normal file
317
DMSTest/DokumentDetail.Designer.vb
generated
Normal file
@@ -0,0 +1,317 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class DokumentDetail
|
||||
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(DokumentDetail))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
|
||||
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtPath = New System.Windows.Forms.TextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.dtTermin = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtTermin = New System.Windows.Forms.TextBox()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
|
||||
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
|
||||
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(24, 27)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Bezeichnung"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(24, 57)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(72, 13)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Beschreibung"
|
||||
'
|
||||
'txtBezeichnung
|
||||
'
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(115, 24)
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(404, 20)
|
||||
Me.txtBezeichnung.TabIndex = 2
|
||||
'
|
||||
'txtBeschreibung
|
||||
'
|
||||
Me.txtBeschreibung.Location = New System.Drawing.Point(115, 54)
|
||||
Me.txtBeschreibung.Multiline = True
|
||||
Me.txtBeschreibung.Name = "txtBeschreibung"
|
||||
Me.txtBeschreibung.Size = New System.Drawing.Size(404, 65)
|
||||
Me.txtBeschreibung.TabIndex = 3
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(24, 132)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(29, 13)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "Pfad"
|
||||
'
|
||||
'txtPath
|
||||
'
|
||||
Me.txtPath.AllowDrop = True
|
||||
Me.txtPath.Location = New System.Drawing.Point(115, 129)
|
||||
Me.txtPath.Name = "txtPath"
|
||||
Me.txtPath.Size = New System.Drawing.Size(382, 20)
|
||||
Me.txtPath.TabIndex = 5
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.Location = New System.Drawing.Point(491, 127)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(24, 163)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Termin"
|
||||
'
|
||||
'dtTermin
|
||||
'
|
||||
Me.dtTermin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtTermin.Location = New System.Drawing.Point(115, 157)
|
||||
Me.dtTermin.Name = "dtTermin"
|
||||
Me.dtTermin.Size = New System.Drawing.Size(106, 20)
|
||||
Me.dtTermin.TabIndex = 8
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(24, 186)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label5.TabIndex = 9
|
||||
Me.Label5.Text = "Termin-Hinweis"
|
||||
'
|
||||
'txtTermin
|
||||
'
|
||||
Me.txtTermin.Location = New System.Drawing.Point(115, 183)
|
||||
Me.txtTermin.Multiline = True
|
||||
Me.txtTermin.Name = "txtTermin"
|
||||
Me.txtTermin.Size = New System.Drawing.Size(404, 65)
|
||||
Me.txtTermin.TabIndex = 10
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(27, 284)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 11
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAbbruch
|
||||
'
|
||||
Me.btnAbbruch.Location = New System.Drawing.Point(724, 284)
|
||||
Me.btnAbbruch.Name = "btnAbbruch"
|
||||
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnAbbruch.TabIndex = 12
|
||||
Me.btnAbbruch.Text = "Abbruch"
|
||||
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(227, 159)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(77, 17)
|
||||
Me.CheckBox1.TabIndex = 13
|
||||
Me.CheckBox1.Text = "Erinnerung"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 327)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(814, 22)
|
||||
Me.StatusStrip1.TabIndex = 14
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
Me.ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Red
|
||||
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
|
||||
'
|
||||
'treestruktur
|
||||
'
|
||||
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
|
||||
Me.treestruktur.AllowDrop = True
|
||||
Me.treestruktur.AllowExternalDrop = False
|
||||
Me.treestruktur.AllowUserToResizeColumns = False
|
||||
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
|
||||
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.treestruktur.DragDropEnabled = False
|
||||
Me.treestruktur.DragDropNodeCopyEnabled = False
|
||||
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
|
||||
Me.treestruktur.Location = New System.Drawing.Point(619, 24)
|
||||
Me.treestruktur.Name = "treestruktur"
|
||||
Me.treestruktur.NodesConnector = Me.NodeConnector1
|
||||
Me.treestruktur.NodeStyle = Me.ElementStyle1
|
||||
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
|
||||
Me.treestruktur.PathSeparator = ";"
|
||||
Me.treestruktur.Size = New System.Drawing.Size(180, 224)
|
||||
Me.treestruktur.Styles.Add(Me.ElementStyle1)
|
||||
Me.treestruktur.Styles.Add(Me.ElementStyle2)
|
||||
Me.treestruktur.TabIndex = 15
|
||||
Me.treestruktur.Text = "AdvTree1"
|
||||
'
|
||||
'NodeConnector1
|
||||
'
|
||||
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle1
|
||||
'
|
||||
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle1.Name = "ElementStyle1"
|
||||
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle2
|
||||
'
|
||||
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
|
||||
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Me.ElementStyle2.BackColorGradientAngle = 90
|
||||
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderBottomWidth = 1
|
||||
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
|
||||
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderLeftWidth = 1
|
||||
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderRightWidth = 1
|
||||
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderTopWidth = 1
|
||||
Me.ElementStyle2.CornerDiameter = 4
|
||||
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle2.Description = "Blue"
|
||||
Me.ElementStyle2.Name = "ElementStyle2"
|
||||
Me.ElementStyle2.PaddingBottom = 1
|
||||
Me.ElementStyle2.PaddingLeft = 1
|
||||
Me.ElementStyle2.PaddingRight = 1
|
||||
Me.ElementStyle2.PaddingTop = 1
|
||||
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(569, 27)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(44, 13)
|
||||
Me.Label6.TabIndex = 16
|
||||
Me.Label6.Text = "Struktur"
|
||||
'
|
||||
'DokumentDetail
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(814, 349)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.treestruktur)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.btnAbbruch)
|
||||
Me.Controls.Add(Me.btnSave)
|
||||
Me.Controls.Add(Me.txtTermin)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.dtTermin)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.txtPath)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtBeschreibung)
|
||||
Me.Controls.Add(Me.txtBezeichnung)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "DokumentDetail"
|
||||
Me.Text = "DokumentDetail"
|
||||
Me.StatusStrip1.ResumeLayout(False)
|
||||
Me.StatusStrip1.PerformLayout()
|
||||
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents txtBezeichnung As TextBox
|
||||
Friend WithEvents txtBeschreibung As TextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents txtPath As TextBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents dtTermin As DateTimePicker
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txtTermin As TextBox
|
||||
Friend WithEvents btnSave As Button
|
||||
Friend WithEvents btnAbbruch As Button
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents OpenFileDialog1 As OpenFileDialog
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
|
||||
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
|
||||
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
|
||||
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
|
||||
Friend WithEvents Label6 As Label
|
||||
End Class
|
||||
5091
DMSTest/DokumentDetail.resx
Normal file
5091
DMSTest/DokumentDetail.resx
Normal file
File diff suppressed because it is too large
Load Diff
267
DMSTest/DokumentDetail.vb
Normal file
267
DMSTest/DokumentDetail.vb
Normal file
@@ -0,0 +1,267 @@
|
||||
Imports DevComponents.AdvTree
|
||||
Imports Gnostice.Documents.Controls.WinForms
|
||||
Imports Gnostice.Documents
|
||||
|
||||
Public Class DokumentDetail
|
||||
Dim m_massenimport As Boolean
|
||||
Property Massenimport
|
||||
Get
|
||||
Return m_massenimport
|
||||
End Get
|
||||
Set(value)
|
||||
m_massenimport = value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_keyvalue As Integer
|
||||
Property KeyValue As Integer
|
||||
Get
|
||||
Return m_keyvalue
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_keyvalue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_strutkurid As Integer
|
||||
Property Strukturid As Integer
|
||||
Get
|
||||
Return m_strutkurid
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_strutkurid = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_editmode As Boolean
|
||||
Property Edit_Mode As Boolean
|
||||
Get
|
||||
Return m_editmode
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_editmode = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokid As Integer
|
||||
Property DokID As Integer
|
||||
Get
|
||||
Return m_dokid
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_dokid = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal KeyValue As Integer, ByVal StrukturID As Integer, Optional DokID As Integer = 0, Optional edit As Boolean = False)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.KeyValue = KeyValue
|
||||
Me.Strukturid = StrukturID
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.DokID = DokID
|
||||
Me.Edit_Mode = edit
|
||||
Get_tree()
|
||||
End Sub
|
||||
Private Sub DokumentDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If Not Me.Edit_Mode Then Me.AllowDrop = True
|
||||
|
||||
If Me.Edit_Mode = True Then
|
||||
Me.txtPath.Enabled = False
|
||||
Me.Button1.Enabled = False
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("dms_dokument", "where nreintrag=" + Me.DokID.ToString)
|
||||
Me.txtBezeichnung.Text = db.dsDaten.Tables(0).Rows(0).Item(2)
|
||||
Me.txtBeschreibung.Text = db.dsDaten.Tables(0).Rows(0).Item(3)
|
||||
Me.txtPath.Text = db.dsDaten.Tables(0).Rows(0).Item(4)
|
||||
Me.dtTermin.Value = db.dsDaten.Tables(0).Rows(0).Item(10)
|
||||
Me.CheckBox1.Checked = db.dsDaten.Tables(0).Rows(0).Item(11) = True
|
||||
Me.txtTermin.Text = db.dsDaten.Tables(0).Rows(0).Item(12)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
If Not Me.Edit_Mode And Not System.IO.File.Exists(Me.txtPath.Text) Then
|
||||
MsgBox("Die ausgewählte Datei ist nicht vorhandne." + vbExclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim dir As String
|
||||
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
db1.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=1")
|
||||
Dim db2 As New clsDB
|
||||
db2.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=2")
|
||||
dir = db2.dsDaten.Tables(0).Rows(0).Item(2)
|
||||
|
||||
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
|
||||
If System.IO.File.Exists(dir + System.IO.Path.GetFileName(Me.txtPath.Text)) Then
|
||||
If MsgBox("Die Datei " + System.IO.Path.GetFileName(Me.txtPath.Text) + " ist im Ablage-Verzeichnis bereits vorhanden." + vbCrLf + "Soll sie überschrieben werden?", vbYesNo + vbQuestion) = MsgBoxResult.No Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Me.Edit_Mode Then
|
||||
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=" + Me.DokID.ToString)
|
||||
Else
|
||||
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=-1")
|
||||
End If
|
||||
Dim dr As DataRow
|
||||
If Edit_Mode = False Then
|
||||
dr = db.dsDaten.Tables(0).NewRow
|
||||
Else
|
||||
dr = db.dsDaten.Tables(0).Rows(0)
|
||||
|
||||
End If
|
||||
|
||||
dr.Item(1) = Me.treestruktur.SelectedNode.Tag
|
||||
dr.Item(2) = Me.txtBezeichnung.Text
|
||||
dr.Item(3) = Me.txtBeschreibung.Text
|
||||
dr.Item(4) = Me.txtPath.Text
|
||||
If Not Me.Edit_Mode Then dr.Item(5) = Now
|
||||
dr.Item(6) = Now
|
||||
dr.Item(7) = Globals.ActUser
|
||||
dr.Item(8) = True
|
||||
If Not Edit_Mode Then
|
||||
dr.Item(9) = db1.dsDaten.Tables(0).Rows(0).Item(2)
|
||||
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
|
||||
dr.Item(4) = dir + System.IO.Path.GetFileName(Me.txtPath.Text)
|
||||
End If
|
||||
End If
|
||||
dr.Item(10) = dtTermin.Value
|
||||
dr.Item(11) = CheckBox1.Checked = True
|
||||
dr.Item(12) = txtTermin.Text
|
||||
dr.Item(13) = Me.KeyValue
|
||||
If Not Edit_Mode Then db.dsDaten.Tables(0).Rows.Add(dr)
|
||||
db.Update_Data()
|
||||
If Not Me.Edit_Mode Then
|
||||
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
|
||||
db.Get_Tabledata("Dokument", "", "Select top 1 * from dms_dokument order by nreintrag desc")
|
||||
Dim dok As New clsDok
|
||||
dok.Save_Document(db.dsDaten.Tables(0).Rows(0).Item(0), Me.txtPath.Text)
|
||||
Else
|
||||
|
||||
If Not System.IO.Directory.Exists(dir) Then
|
||||
System.IO.Directory.CreateDirectory(dir)
|
||||
End If
|
||||
System.IO.File.Copy(Me.txtPath.Text, dir + System.IO.Path.GetFileName(Me.txtPath.Text))
|
||||
End If
|
||||
End If
|
||||
ToolStripStatusLabel1.Text = "Dokument wurde gespeicher."
|
||||
If Me.Massenimport Then Me.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then Me.txtPath.Text = Me.OpenFileDialog1.FileName
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
|
||||
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
||||
For Each path In files
|
||||
Me.txtPath.Text = path
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtPath_TextChanged(sender As Object, e As EventArgs) Handles txtPath.TextChanged
|
||||
ToolStripStatusLabel1.Text = ""
|
||||
End Sub
|
||||
|
||||
Sub Get_tree()
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
|
||||
Load_Treeview(db.dsDaten, Me.treestruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
|
||||
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("eintragnr"),
|
||||
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 AdvTree)
|
||||
'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 DevComponents.AdvTree.Node
|
||||
oNode.Text = oDataRow("Bezeichnung").ToString()
|
||||
oNode.Tag = oDataRow("eintragnr").ToString
|
||||
oNode.ImageIndex = 0
|
||||
oNode.ImageIndex = 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 DevComponents.AdvTree.Node)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New DevComponents.AdvTree.Node()
|
||||
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
||||
oChildNode.Tag = oChildRow("eintragnr").ToString()
|
||||
If oChildRow("eintragnr") = 0 Then
|
||||
oChildNode.ImageIndex = 0
|
||||
oChildNode.ImageIndex = 0
|
||||
Else
|
||||
oChildNode.ImageIndex = 1
|
||||
oChildNode.ImageIndex = 1
|
||||
End If
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
31
DMSTest/Form1.Designer.vb
generated
Normal file
31
DMSTest/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,31 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
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()
|
||||
components = New System.ComponentModel.Container()
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Text = "Form1"
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
3
DMSTest/Form1.vb
Normal file
3
DMSTest/Form1.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class Form1
|
||||
|
||||
End Class
|
||||
38
DMSTest/My Project/Application.Designer.vb
generated
Normal file
38
DMSTest/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.DMSTest.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
11
DMSTest/My Project/Application.myapp
Normal file
11
DMSTest/My Project/Application.myapp
Normal file
@@ -0,0 +1,11 @@
|
||||
<?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>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>0</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
DMSTest/My Project/AssemblyInfo.vb
Normal file
35
DMSTest/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 einer Assembly zugeordnet sind.
|
||||
|
||||
' Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("DMSTest")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("DMSTest")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2018")>
|
||||
<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("3be55fb9-fbd3-4efd-841e-37e08c2186ca")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
62
DMSTest/My Project/Resources.Designer.vb
generated
Normal file
62
DMSTest/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</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>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</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("DMSTest.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
DMSTest/My Project/Resources.resx
Normal file
117
DMSTest/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
DMSTest/My Project/Settings.Designer.vb
generated
Normal file
73
DMSTest/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </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", "11.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 "My.Settings Auto-Save Functionality"
|
||||
#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.DMSTest.My.MySettings
|
||||
Get
|
||||
Return Global.DMSTest.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
DMSTest/My Project/Settings.settings
Normal file
7
DMSTest/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>
|
||||
845
DMSTest/clsDB.vb
Normal file
845
DMSTest/clsDB.vb
Normal file
@@ -0,0 +1,845 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.IO
|
||||
#Const dbtype = "SQL"
|
||||
|
||||
#If dbtype = "MySQL" Then
|
||||
Public Class clsMySQLDB
|
||||
#Else
|
||||
Public Class clsDB
|
||||
#End If
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim m_connectionstring As String
|
||||
|
||||
Property Connectionstring As String
|
||||
Get
|
||||
Return m_connectionstring
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_connectionstring = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sqltype As String
|
||||
Property Sqltype As String
|
||||
Get
|
||||
Return m_sqltype
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_sqltype = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
Me.Connectionstring = My.Settings.ConnectionString
|
||||
End Sub
|
||||
|
||||
Public dsDaten As New DataSet
|
||||
Public dssql As New DataSet
|
||||
Public dadaten As SqlDataAdapter
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Allgemein Get / Save"
|
||||
Public Sub Dispose()
|
||||
dsDaten.Dispose()
|
||||
dssql.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function Get_Option(ByVal nr As Integer) As String
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Dim dad As New SqlDataAdapter
|
||||
|
||||
|
||||
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
|
||||
Dim data As New DataTable
|
||||
|
||||
dad = New SqlDataAdapter(sql, Me.Connectionstring)
|
||||
|
||||
dad.Fill(data)
|
||||
Dim s As String
|
||||
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
|
||||
Return s
|
||||
dad.Dispose()
|
||||
data.Dispose()
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Function Get_Datavalue(sql As String, Optional args As String = "") As String
|
||||
Try
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
dsDaten.Tables.Clear()
|
||||
If sql <> "" Then
|
||||
sql = sql.Replace("&ARGS&", args)
|
||||
|
||||
dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
|
||||
|
||||
|
||||
End If
|
||||
Dim dt As New DataTable
|
||||
dadaten.Fill(dt)
|
||||
Return dt.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
End Function
|
||||
Public Sub Get_Tabledata(ByVal tablename As String, Optional wherestatement As String = "", Optional SQL As String = "", Optional args As String = "", Optional SP As Boolean = False, Optional SP_Params As DataTable = Nothing)
|
||||
If SP = True Then
|
||||
|
||||
End If
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
dsDaten.Tables.Clear()
|
||||
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
|
||||
If SP = True Then
|
||||
Dim sqlcmd As New SqlCommand
|
||||
Dim sqlconnect As New SqlConnection
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = tablename
|
||||
For Each r As DataRow In SP_Params.Rows
|
||||
sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
|
||||
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
|
||||
Next
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Try
|
||||
dadaten.SelectCommand = sqlcmd
|
||||
dadaten.Fill(dsDaten, tablename)
|
||||
|
||||
Exit Sub
|
||||
Catch ex As Exception
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
End Try
|
||||
|
||||
End If
|
||||
If SQL <> "" Then
|
||||
SQL = SQL.Replace("&ARGS&", args)
|
||||
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
|
||||
Else
|
||||
dadaten = New SqlDataAdapter("select * from [" + tablename + "] " + wherestatement, Me.Connectionstring)
|
||||
End If
|
||||
'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
|
||||
dadaten.Fill(dsDaten, tablename)
|
||||
If encrypted = True Then
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
For Each c As DataColumn In dsDaten.Tables(0).Columns
|
||||
Select Case UCase(c.ColumnName)
|
||||
Case "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "TELP", "PATIENT", "BEHANDLER"
|
||||
r(c.ColumnName) = Crypto.DecryptText(r(c.ColumnName), Globals.encryptkey)
|
||||
End Select
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub Update_Data()
|
||||
Dim cb As New SqlCommandBuilder(dadaten)
|
||||
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
|
||||
End Sub
|
||||
|
||||
Dim da As SqlDataAdapter
|
||||
Dim qb As New SqlCommandBuilder
|
||||
Public daten As New DataSet
|
||||
Public Function Get_Tabledata_for_Update(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
|
||||
Dim sqlconnect As New SqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlconnect.Open()
|
||||
da = New SqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
If StoredProc = True Then
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = Tablename
|
||||
Else
|
||||
sqlcmd.CommandType = CommandType.Text
|
||||
sqlcmd.CommandText = "Select * from " + Tablename
|
||||
End If
|
||||
If is_SQL_String = True Then
|
||||
sqlcmd.CommandText = Tablename
|
||||
End If
|
||||
' sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
' sqlcmd.CommandText = "Berufsliste"
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(daten, "Daten")
|
||||
qb = New SqlCommandBuilder(da)
|
||||
End Function
|
||||
|
||||
Public Sub Update_Tabeldata()
|
||||
da.Update(daten, "Daten")
|
||||
End Sub
|
||||
|
||||
Public Sub Exec_Prod(ByVal Procedure As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = Procedure
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Exec_SQL(ByVal SQL As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = SQL
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.Text
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function updatedata(ByVal Tablename As String, ByVal sourcetable As DataTable, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataSet
|
||||
Dim sqlconnect As New SqlConnection
|
||||
Dim ds As New DataSet
|
||||
Dim qb As New SqlCommandBuilder
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlconnect.Open()
|
||||
Dim da As New SqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
If StoredProc = True Then
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = Tablename
|
||||
Else
|
||||
sqlcmd.CommandType = CommandType.Text
|
||||
sqlcmd.CommandText = "Select * from " + Tablename
|
||||
End If
|
||||
If is_SQL_String = True Then
|
||||
sqlcmd.CommandText = Tablename
|
||||
End If
|
||||
' sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
' sqlcmd.CommandText = "Berufsliste"
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(ds, "Daten")
|
||||
qb = New SqlCommandBuilder(da)
|
||||
For Each c As DataColumn In sourcetable.Columns
|
||||
ds.Tables(0).Rows(0).Item(c.ColumnName) = sourcetable.Rows(0).Item(c.ColumnName)
|
||||
Next
|
||||
da.Update(ds, "Daten")
|
||||
End Function
|
||||
|
||||
Public Function Insert_New_Entry(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
|
||||
Dim dbkey As Integer = 0
|
||||
If getdbkey Then
|
||||
dsDaten.Tables.Clear()
|
||||
|
||||
Get_Tabledata("firmaap", "", sqlstring, "", False)
|
||||
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
|
||||
End If
|
||||
Dim sqlconnect As New SqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
Dim da As New SqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Dim sql As String
|
||||
sqlcmd.CommandText = "Insert into " + Table + " (" + KeyName + ",aktiv,erstellt_am,mutiert_am,mutierer) values(" + dbkey.ToString + ",1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
Dim data As New DataTable
|
||||
dsDaten.Tables.Clear()
|
||||
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
|
||||
|
||||
|
||||
Return dsDaten.Tables(0)
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Insert_New_Entry_autokey(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
|
||||
Dim dbkey As Integer = 0
|
||||
If getdbkey Then
|
||||
dsDaten.Tables.Clear()
|
||||
|
||||
Get_Tabledata("firmaap", "", sqlstring, "", False)
|
||||
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
|
||||
End If
|
||||
Dim sqlconnect As New SqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
Dim da As New SqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Dim sql As String
|
||||
sqlcmd.CommandText = "Insert into " + Table + " (aktiv,erstellt_am,mutiert_am,mutierer) values(1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
Dim data As New DataTable
|
||||
dsDaten.Tables.Clear()
|
||||
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
|
||||
|
||||
|
||||
Return dsDaten.Tables(0)
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlugnsnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, typ))
|
||||
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Spalten"
|
||||
Public Sub Generate_SpaltenData(ByVal tablename As String)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dttable As New DataTable(tablename)
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function Get_Spaltendata()
|
||||
Try
|
||||
Dim dbRow As DataRow
|
||||
Dim dsPartner As New DataSet
|
||||
dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
|
||||
dadaten.Fill(dsDaten, "Daten")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_SQL(ByVal nr As Integer) As String
|
||||
Try
|
||||
If Globals.SQLStatements.Rows.Count = 0 Then
|
||||
dssql.Clear()
|
||||
dadaten = New SqlDataAdapter("select * from sql_statements", Me.Connectionstring)
|
||||
dadaten.Fill(dssql, "SQLStatements")
|
||||
Globals.SQLStatements = dssql.Tables(0).Copy
|
||||
End If
|
||||
For Each r As DataRow In Globals.SQLStatements.Rows
|
||||
If r(0) = nr Then
|
||||
Return r(1)
|
||||
Exit Function
|
||||
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Suche"
|
||||
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
|
||||
Select Case Type
|
||||
Case "Patient"
|
||||
|
||||
If IsNumeric(Searchstring) Then
|
||||
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
Else
|
||||
Get_Tabledata("privat", " where name like '" + Searchstring + "%'" + " order by name, vorname, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
If dsDaten.Tables(0).Rows.Count = 1 Then
|
||||
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
|
||||
Else
|
||||
Dim f As New frmPrivatSelect
|
||||
f.Text = "Patient-Suche"
|
||||
f.TreeView1.Nodes.Clear()
|
||||
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
Dim tn As New TreeNode
|
||||
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
|
||||
tn.Tag = r("nrprivat")
|
||||
f.TreeView1.Nodes.Add(tn)
|
||||
Next
|
||||
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
|
||||
f.StartPosition = FormStartPosition.CenterParent
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Return f.TreeView1.SelectedNode.Tag
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
Return -1
|
||||
Case "Firma"
|
||||
If IsNumeric(Searchstring) Then
|
||||
Get_Tabledata("firma", " where nrfirma=" + Searchstring + " order by name1, name2, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
Else
|
||||
Get_Tabledata("firma", " where name1 like '" + Searchstring + "%'" + " order by name1, name2, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
If dsDaten.Tables(0).Rows.Count = 1 Then
|
||||
Return (dsDaten.Tables(0).Rows(0).Item("nrfirma"))
|
||||
Else
|
||||
Dim f As New frmPrivatSelect
|
||||
f.Text = "Firmensuche"
|
||||
f.TreeView1.Nodes.Clear()
|
||||
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
Dim tn As New TreeNode
|
||||
tn.Text = r("nrfirma").ToString + " " + r("Name1") + " " + r("name2") + ", " + r("PLZ") + " " + r("ort")
|
||||
tn.Tag = r("nrfirma")
|
||||
f.TreeView1.Nodes.Add(tn)
|
||||
Next
|
||||
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
|
||||
f.StartPosition = FormStartPosition.CenterParent
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Return f.TreeView1.SelectedNode.Tag
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
Return -1
|
||||
|
||||
|
||||
End Select
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Log"
|
||||
Public Function WriteLog(ByVal Entry As String, ByVal logtype As Integer)
|
||||
Try
|
||||
Dim conn As New SqlConnection(Me.Connectionstring)
|
||||
Dim sql As String
|
||||
sql = "Insert Log (Eintrag,logtype ) values('" + Entry + "'," + logtype.ToString + ")"
|
||||
Dim cm As New SqlCommand(sql, conn)
|
||||
conn.Open()
|
||||
cm.ExecuteNonQuery()
|
||||
conn.Close()
|
||||
conn.Dispose()
|
||||
cm.Dispose()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Utils"
|
||||
Public Function Get_DBKey(ByVal Tablename As String) As Integer
|
||||
Select Case Tablename
|
||||
Case "Privat"
|
||||
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
|
||||
Case "Firma"
|
||||
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
|
||||
Case "Leistung"
|
||||
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
|
||||
Case "Behandlung"
|
||||
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
|
||||
Case "Zahlung"
|
||||
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
|
||||
Case "Recall"
|
||||
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
|
||||
Case "Tarif"
|
||||
Me.Get_Tabledata("Tarif", "", "Select top 1 nrtarif+1 from tarif order by nrtarif desc")
|
||||
|
||||
End Select
|
||||
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Tarife / Leistungen"
|
||||
Public Function Get_Tarife() As DataTable
|
||||
Dim found As Boolean = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarife" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarife", "order by nummervon")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarifgrp" Then
|
||||
found = True
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarpaket" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
If Not found Then
|
||||
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "paketpos" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("paketpos", "order by nrpaket")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Dentotar" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Dentotar", "", Get_SQL(23))
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_Tarif() As DataTable
|
||||
Dim found As Boolean = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarif" Then
|
||||
found = True
|
||||
Exit Function
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarif", "", Get_SQL(16))
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Recalc_Leistungen(ByVal nrbehandlung As Integer, taxpunktwert As Double)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_recalc_leistungen]"
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@taxpunktwert", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, taxpunktwert))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Leistung"
|
||||
Public Function delete_leistung(ByVal nrleistung As Integer)
|
||||
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
|
||||
dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
|
||||
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
||||
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
||||
Update_Data()
|
||||
End Function
|
||||
|
||||
Public Function Get_Leistung(ByVal nrleistung As Integer)
|
||||
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Auswertungen"
|
||||
Public Function get_reportdata(ByVal Reportnr As Integer, ByVal Parameter As String) As String
|
||||
Get_Tabledata("Auswertung", "where Auswertungnr=" + Reportnr.ToString, "", "")
|
||||
Dim sql As String
|
||||
Dim typ As String
|
||||
sql = dsDaten.Tables(0).Rows(0).Item("sql")
|
||||
typ = dsDaten.Tables(0).Rows(0).Item("sqltype")
|
||||
If Parameter <> "" Then sql = sql + " " + Parameter
|
||||
|
||||
Dim Filename As String = My.Settings.TempPath + "\" + dsDaten.Tables(0).Rows(0).Item("BEZEICHNUNG") + ".FRX"
|
||||
dsDaten.Clear()
|
||||
Select Case UCase(typ)
|
||||
Case "SQL"
|
||||
Get_Tabledata("Auswertungsdaten", "", sql, "")
|
||||
Return Filename
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Function Get_ReportNr(ByVal Report As String) As Integer
|
||||
Try
|
||||
Get_Tabledata("Auswertung", "where es_typ='" + Report + "'")
|
||||
Return dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_ReportNr_by_ESTypnr(ByVal ESTypNr As String) As Integer
|
||||
Try
|
||||
Get_Tabledata("ESTyp", "where nrestyp=" + ESTypNr)
|
||||
|
||||
Get_Tabledata("Auswertung", "where es_typ='" + dsDaten.Tables(0).Rows(0).Item("estyp") + "'")
|
||||
Return dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Fakturierung"
|
||||
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
|
||||
Dim conn As New SqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
'scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Mahnung_Buchen(ByVal nrfaktura As Integer, ByVal Stufe As Integer, ByVal daten As DataTable)
|
||||
Dim db As New clsDB
|
||||
Dim mahndatum As Date
|
||||
Dim faelligkeit As Date
|
||||
Dim mahngebuehr As Double
|
||||
|
||||
mahndatum = daten.Rows(0).Item("Mahndatum")
|
||||
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
|
||||
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
|
||||
Select Case Stufe
|
||||
Case 1
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1='" + mahndatum + "', mahnfaelligkeit1='" + faelligkeit + "', mahngebuehr1='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
Case 2
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2='" + mahndatum + "', mahnfaelligkeit2='" + faelligkeit + "', mahngebuehr2='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
Case 3
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3='" + mahndatum + "', mahnfaelligkeit3='" + faelligkeit + "',mahngebuehr3='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Documenthandling"
|
||||
|
||||
Public Function Save_CAMT_File_RUN(ByVal Key As Integer, Filename As String)
|
||||
Return Save_File("Select * from camt_run where nreintrag=" + Key.ToString, Filename, "SourceFIle")
|
||||
End Function
|
||||
|
||||
Public Function Save_CAMT_File(ByVal Key As Integer, Filename As String)
|
||||
Return Save_File("Select * from camt_file where nreintrag=" + Key.ToString, Filename, "camt_file")
|
||||
End Function
|
||||
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
|
||||
Return Save_File("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
|
||||
End Function
|
||||
|
||||
Public Function Get_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
|
||||
Return Get_file("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
|
||||
End Function
|
||||
|
||||
Public Function Save_File(ByVal sql As String, ByVal filename As String, ByVal DBAttribut As String) As String
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter(sql, Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New System.IO.FileStream(filename, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = My.Settings.ConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Datei kann nicht gespeichert werden.", MsgBoxStyle.Critical)
|
||||
Exit Function
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(DBAttribut) = mydata
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Return filename
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
filename = ""
|
||||
Return filename
|
||||
Finally
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
|
||||
Dim connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter(sql, connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = My.Settings.ConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(DBAttribut)
|
||||
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 filename
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
Finally
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Zahlungen"
|
||||
|
||||
Public Sub Insert_ZJournal(fakturanr As String, ByVal debitor As String, ByVal debitortext As String, ByVal betrag As Decimal, ByVal konto As String, ByVal vz As String, ByVal storno As String)
|
||||
Get_Tabledata("Zahlung", "", "Select top 1 * from zjournal order by pk desc")
|
||||
Dim dr As DataRow = dsDaten.Tables(0).NewRow
|
||||
dr.Item("nreintrag") = 0
|
||||
dr.Item("Mandant") = Globals.Mandant
|
||||
dr.Item("Datum") = Now
|
||||
dr.Item("nrfaktura") = fakturanr
|
||||
dr.Item("nrdebitor") = debitor
|
||||
dr.Item("debitor") = debitortext
|
||||
dr.Item("Konto") = konto
|
||||
dr.Item("betrag") = betrag
|
||||
If vz = "False" Then vz = ""
|
||||
If vz = "True" Then vz = "J"
|
||||
dr.Item("vz") = vz
|
||||
dr.Item("storno") = storno
|
||||
dr.Item("erstellt_am") = Now
|
||||
dr.Item("mutiert_am") = Now
|
||||
dr.Item("mutierer") = Globals.ActUser
|
||||
dr.Item("aktiv") = True
|
||||
dsDaten.Tables(0).Rows.Add(dr)
|
||||
Update_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Security"
|
||||
Public Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
|
||||
Get_Tabledata("SecurityObject", "SecurityForm='" + securityform + "' and securityobjecttype='" + securityobjecttype + "' and securityobject='" + securityobject + "' and securityobjectitem='" + securityobjectitem + "? and aktiv=1")
|
||||
If dsDaten.Tables(0).Rows.Count > 0 Then Return True Else Return False
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
129
DMSTest/clsDok.vb
Normal file
129
DMSTest/clsDok.vb
Normal file
@@ -0,0 +1,129 @@
|
||||
Imports System.Data.Sql
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.IO
|
||||
|
||||
Public Class clsDok
|
||||
|
||||
Dim m_stream As MemoryStream
|
||||
Property Documentstream As MemoryStream
|
||||
Get
|
||||
Return m_stream
|
||||
|
||||
End Get
|
||||
Set(value As MemoryStream)
|
||||
m_stream = value
|
||||
End Set
|
||||
End Property
|
||||
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 dms_dokument where nreintrag =" + 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 = My.Settings.ConnectionString
|
||||
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(14) = 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
|
||||
|
||||
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
|
||||
Dim Filename As String = My.Settings.TempPath
|
||||
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = My.Settings.ConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(14)
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
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 Get_Dokument_stram(ByVal DokumentNr As Integer) As MemoryStream
|
||||
Dim Filename As String = My.Settings.TempPath
|
||||
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = My.Settings.ConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(14)
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim ms As New MemoryStream(MyData)
|
||||
|
||||
Return ms
|
||||
|
||||
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
Finally
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
Return Nothing
|
||||
End Function
|
||||
End Class
|
||||
612
DMSTest/clsDokumente.Designer.vb
generated
Normal file
612
DMSTest/clsDokumente.Designer.vb
generated
Normal file
@@ -0,0 +1,612 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class clsDokumente
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl ü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(clsDokumente))
|
||||
Dim FormatterSettings2 As Gnostice.Documents.FormatterSettings = New Gnostice.Documents.FormatterSettings()
|
||||
Dim SpreadSheetFormatterSettings2 As Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings = New Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings()
|
||||
Dim PageSettings3 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
|
||||
Dim Margins3 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
|
||||
Dim SheetOptions3 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
|
||||
Dim SheetOptions4 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
|
||||
Dim TxtFormatterSettings2 As Gnostice.Documents.TXTFormatterSettings = New Gnostice.Documents.TXTFormatterSettings()
|
||||
Dim PageSettings4 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
|
||||
Dim Margins4 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
|
||||
Dim RenderingSettings2 As Gnostice.Graphics.RenderingSettings = New Gnostice.Graphics.RenderingSettings()
|
||||
Dim ImageRenderingSettings2 As Gnostice.Graphics.ImageRenderingSettings = New Gnostice.Graphics.ImageRenderingSettings()
|
||||
Dim LineArtRenderingSettings2 As Gnostice.Graphics.LineArtRenderingSettings = New Gnostice.Graphics.LineArtRenderingSettings()
|
||||
Dim ResolutionSettings2 As Gnostice.Graphics.ResolutionSettings = New Gnostice.Graphics.ResolutionSettings()
|
||||
Dim TextRenderingSettings2 As Gnostice.Graphics.TextRenderingSettings = New Gnostice.Graphics.TextRenderingSettings()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
|
||||
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.grpdokumentvorschau = New System.Windows.Forms.GroupBox()
|
||||
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
|
||||
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
|
||||
Me.btnPrvPage = New System.Windows.Forms.ToolStripButton()
|
||||
Me.txtGoToPage = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.btnNxtPage = New System.Windows.Forms.ToolStripButton()
|
||||
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
|
||||
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsActSize = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsFitPage = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsFitWidth = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsZoomOut = New System.Windows.Forms.ToolStripButton()
|
||||
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.txtZoom = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.toolStripPercentlabel = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.tsZoomIn = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.DocumentViewer1 = New Gnostice.Documents.Controls.WinForms.DocumentViewer()
|
||||
Me.C1Dokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeuesDokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentinformationenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentExportierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.grpdokumentvorschau.SuspendLayout()
|
||||
Me.ToolStrip2.SuspendLayout()
|
||||
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton4, Me.tsbtnSave, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1007, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'tsbtnnew
|
||||
'
|
||||
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
|
||||
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnnew.Name = "tsbtnnew"
|
||||
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnnew.Text = "Neuer Datensatz"
|
||||
Me.tsbtnnew.Visible = False
|
||||
'
|
||||
'ToolStripButton4
|
||||
'
|
||||
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
|
||||
Me.ToolStripButton4.Visible = False
|
||||
'
|
||||
'tsbtnSave
|
||||
'
|
||||
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
|
||||
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnSave.Name = "tsbtnSave"
|
||||
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnSave.Text = "Speichern"
|
||||
Me.tsbtnSave.Visible = False
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton2.Text = "Dokument löschen"
|
||||
Me.ToolStripButton2.Visible = False
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.treestruktur)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(278, 465)
|
||||
Me.GroupBox1.TabIndex = 1
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Struktur"
|
||||
'
|
||||
'treestruktur
|
||||
'
|
||||
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
|
||||
Me.treestruktur.AllowDrop = True
|
||||
Me.treestruktur.AllowExternalDrop = False
|
||||
Me.treestruktur.AllowUserToResizeColumns = False
|
||||
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
|
||||
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.treestruktur.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.treestruktur.DragDropEnabled = False
|
||||
Me.treestruktur.DragDropNodeCopyEnabled = False
|
||||
Me.treestruktur.ImageList = Me.ImageList1
|
||||
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
|
||||
Me.treestruktur.Location = New System.Drawing.Point(3, 16)
|
||||
Me.treestruktur.Name = "treestruktur"
|
||||
Me.treestruktur.NodesConnector = Me.NodeConnector1
|
||||
Me.treestruktur.NodeStyle = Me.ElementStyle1
|
||||
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
|
||||
Me.treestruktur.PathSeparator = ";"
|
||||
Me.treestruktur.Size = New System.Drawing.Size(272, 446)
|
||||
Me.treestruktur.Styles.Add(Me.ElementStyle1)
|
||||
Me.treestruktur.Styles.Add(Me.ElementStyle2)
|
||||
Me.treestruktur.TabIndex = 1
|
||||
Me.treestruktur.Text = "AdvTree1"
|
||||
'
|
||||
'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, "Favorites_32.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "Favorites_32.png")
|
||||
'
|
||||
'NodeConnector1
|
||||
'
|
||||
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle1
|
||||
'
|
||||
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle1.Name = "ElementStyle1"
|
||||
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
|
||||
'
|
||||
'ElementStyle2
|
||||
'
|
||||
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
|
||||
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Me.ElementStyle2.BackColorGradientAngle = 90
|
||||
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderBottomWidth = 1
|
||||
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
|
||||
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderLeftWidth = 1
|
||||
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderRightWidth = 1
|
||||
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
|
||||
Me.ElementStyle2.BorderTopWidth = 1
|
||||
Me.ElementStyle2.CornerDiameter = 4
|
||||
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.ElementStyle2.Description = "Blue"
|
||||
Me.ElementStyle2.Name = "ElementStyle2"
|
||||
Me.ElementStyle2.PaddingBottom = 1
|
||||
Me.ElementStyle2.PaddingLeft = 1
|
||||
Me.ElementStyle2.PaddingRight = 1
|
||||
Me.ElementStyle2.PaddingTop = 1
|
||||
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.grpdokumentvorschau)
|
||||
Me.GroupBox2.Controls.Add(Me.C1Dokumente)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(278, 25)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(729, 465)
|
||||
Me.GroupBox2.TabIndex = 2
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Dokumente"
|
||||
'
|
||||
'grpdokumentvorschau
|
||||
'
|
||||
Me.grpdokumentvorschau.Controls.Add(Me.DocumentViewer1)
|
||||
Me.grpdokumentvorschau.Controls.Add(Me.ToolStrip2)
|
||||
Me.grpdokumentvorschau.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.grpdokumentvorschau.Location = New System.Drawing.Point(3, 190)
|
||||
Me.grpdokumentvorschau.Name = "grpdokumentvorschau"
|
||||
Me.grpdokumentvorschau.Size = New System.Drawing.Size(723, 272)
|
||||
Me.grpdokumentvorschau.TabIndex = 9
|
||||
Me.grpdokumentvorschau.TabStop = False
|
||||
Me.grpdokumentvorschau.Text = "Dokumentvorschau"
|
||||
'
|
||||
'ToolStrip2
|
||||
'
|
||||
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnFirstPage, Me.btnPrvPage, Me.txtGoToPage, Me.btnNxtPage, Me.btnLastPage, Me.toolStripSeparator4, Me.tsActSize, Me.tsFitPage, Me.tsFitWidth, Me.tsZoomOut, Me.toolStripSeparator7, Me.txtZoom, Me.toolStripPercentlabel, Me.tsZoomIn, Me.ToolStripButton1, Me.ToolStripButton3})
|
||||
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
|
||||
Me.ToolStrip2.Name = "ToolStrip2"
|
||||
Me.ToolStrip2.Size = New System.Drawing.Size(717, 25)
|
||||
Me.ToolStrip2.TabIndex = 8
|
||||
Me.ToolStrip2.Text = "ToolStrip2"
|
||||
'
|
||||
'btnFirstPage
|
||||
'
|
||||
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
|
||||
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.btnFirstPage.Name = "btnFirstPage"
|
||||
Me.btnFirstPage.Size = New System.Drawing.Size(23, 22)
|
||||
Me.btnFirstPage.Text = "toolStripButton1"
|
||||
Me.btnFirstPage.ToolTipText = "Erste Seite"
|
||||
'
|
||||
'btnPrvPage
|
||||
'
|
||||
Me.btnPrvPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.btnPrvPage.Image = CType(resources.GetObject("btnPrvPage.Image"), System.Drawing.Image)
|
||||
Me.btnPrvPage.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.btnPrvPage.Name = "btnPrvPage"
|
||||
Me.btnPrvPage.Size = New System.Drawing.Size(23, 22)
|
||||
Me.btnPrvPage.ToolTipText = "Vorherige Seite"
|
||||
'
|
||||
'txtGoToPage
|
||||
'
|
||||
Me.txtGoToPage.Name = "txtGoToPage"
|
||||
Me.txtGoToPage.Size = New System.Drawing.Size(40, 25)
|
||||
'
|
||||
'btnNxtPage
|
||||
'
|
||||
Me.btnNxtPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.btnNxtPage.Image = CType(resources.GetObject("btnNxtPage.Image"), System.Drawing.Image)
|
||||
Me.btnNxtPage.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.btnNxtPage.Name = "btnNxtPage"
|
||||
Me.btnNxtPage.Size = New System.Drawing.Size(23, 22)
|
||||
Me.btnNxtPage.Text = "toolStripButton1"
|
||||
Me.btnNxtPage.ToolTipText = "Nächste Seite"
|
||||
'
|
||||
'btnLastPage
|
||||
'
|
||||
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
|
||||
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.btnLastPage.Name = "btnLastPage"
|
||||
Me.btnLastPage.Size = New System.Drawing.Size(23, 22)
|
||||
Me.btnLastPage.ToolTipText = "Letzte Seite"
|
||||
'
|
||||
'toolStripSeparator4
|
||||
'
|
||||
Me.toolStripSeparator4.Name = "toolStripSeparator4"
|
||||
Me.toolStripSeparator4.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'tsActSize
|
||||
'
|
||||
Me.tsActSize.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.tsActSize.Image = CType(resources.GetObject("tsActSize.Image"), System.Drawing.Image)
|
||||
Me.tsActSize.ImageTransparentColor = System.Drawing.Color.White
|
||||
Me.tsActSize.Name = "tsActSize"
|
||||
Me.tsActSize.Size = New System.Drawing.Size(108, 22)
|
||||
Me.tsActSize.Text = "Aktuelle Grüsse"
|
||||
'
|
||||
'tsFitPage
|
||||
'
|
||||
Me.tsFitPage.Image = CType(resources.GetObject("tsFitPage.Image"), System.Drawing.Image)
|
||||
Me.tsFitPage.ImageTransparentColor = System.Drawing.Color.White
|
||||
Me.tsFitPage.Name = "tsFitPage"
|
||||
Me.tsFitPage.Size = New System.Drawing.Size(86, 22)
|
||||
Me.tsFitPage.Text = "ganze Seite"
|
||||
'
|
||||
'tsFitWidth
|
||||
'
|
||||
Me.tsFitWidth.Image = CType(resources.GetObject("tsFitWidth.Image"), System.Drawing.Image)
|
||||
Me.tsFitWidth.ImageTransparentColor = System.Drawing.Color.Transparent
|
||||
Me.tsFitWidth.Name = "tsFitWidth"
|
||||
Me.tsFitWidth.Size = New System.Drawing.Size(57, 22)
|
||||
Me.tsFitWidth.Text = "Breite"
|
||||
'
|
||||
'tsZoomOut
|
||||
'
|
||||
Me.tsZoomOut.Image = CType(resources.GetObject("tsZoomOut.Image"), System.Drawing.Image)
|
||||
Me.tsZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsZoomOut.Name = "tsZoomOut"
|
||||
Me.tsZoomOut.Size = New System.Drawing.Size(85, 22)
|
||||
Me.tsZoomOut.Text = "verkleinern"
|
||||
'
|
||||
'toolStripSeparator7
|
||||
'
|
||||
Me.toolStripSeparator7.Name = "toolStripSeparator7"
|
||||
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'txtZoom
|
||||
'
|
||||
Me.txtZoom.MaxLength = 4
|
||||
Me.txtZoom.Name = "txtZoom"
|
||||
Me.txtZoom.Size = New System.Drawing.Size(35, 25)
|
||||
Me.txtZoom.Text = "100"
|
||||
Me.txtZoom.ToolTipText = "Key in the zoom value and press enter"
|
||||
'
|
||||
'toolStripPercentlabel
|
||||
'
|
||||
Me.toolStripPercentlabel.Name = "toolStripPercentlabel"
|
||||
Me.toolStripPercentlabel.Size = New System.Drawing.Size(17, 22)
|
||||
Me.toolStripPercentlabel.Text = "%"
|
||||
'
|
||||
'tsZoomIn
|
||||
'
|
||||
Me.tsZoomIn.Image = CType(resources.GetObject("tsZoomIn.Image"), System.Drawing.Image)
|
||||
Me.tsZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsZoomIn.Name = "tsZoomIn"
|
||||
Me.tsZoomIn.Size = New System.Drawing.Size(88, 22)
|
||||
Me.tsZoomIn.Text = "vergrössern"
|
||||
'
|
||||
'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 = "ToolStripButton1"
|
||||
Me.ToolStripButton1.ToolTipText = "90 Grad gegen Urzeigersinn"
|
||||
'
|
||||
'ToolStripButton3
|
||||
'
|
||||
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton3.Name = "ToolStripButton3"
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton3.Text = "ToolStripButton2"
|
||||
Me.ToolStripButton3.ToolTipText = "90 Grad im Uhrzeigersinn"
|
||||
'
|
||||
'DocumentViewer1
|
||||
'
|
||||
Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlDark
|
||||
Me.DocumentViewer1.BorderWidth = 10
|
||||
Me.DocumentViewer1.CurrentPage = 0
|
||||
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DocumentViewer1.HScrollBar.LargeChange = 40
|
||||
Me.DocumentViewer1.HScrollBar.SmallChange = 20
|
||||
Me.DocumentViewer1.HScrollBar.Value = 0
|
||||
Me.DocumentViewer1.HScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
|
||||
Me.DocumentViewer1.Location = New System.Drawing.Point(3, 41)
|
||||
Me.DocumentViewer1.MouseMode = Gnostice.DOM.CursorPreferences.AreaSelection
|
||||
Me.DocumentViewer1.Name = "DocumentViewer1"
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.DocumentViewer1.NavigationPane.ActivePage = Nothing
|
||||
Me.DocumentViewer1.NavigationPane.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DocumentViewer1.NavigationPane.Name = ""
|
||||
Me.DocumentViewer1.NavigationPane.TabIndex = 0
|
||||
Me.DocumentViewer1.NavigationPane.Visibility = Gnostice.Documents.Controls.WinForms.Visibility.[Auto]
|
||||
Me.DocumentViewer1.NavigationPane.WidthPercentage = 20
|
||||
Me.DocumentViewer1.PageLayout = Nothing
|
||||
Me.DocumentViewer1.PageRotation = Gnostice.Documents.Controls.WinForms.RotationAngle.Zero
|
||||
Me.DocumentViewer1.Preferences.Cursor = Gnostice.DOM.CursorPreferences.Pan
|
||||
SpreadSheetFormatterSettings2.FormattingMode = Gnostice.DOM.FormattingMode.PreferDocumentSettings
|
||||
SpreadSheetFormatterSettings2.PageOrder = Gnostice.Documents.Spreadsheet.LayoutDirection.BackwardN
|
||||
PageSettings3.Height = 11.6929!
|
||||
Margins3.Bottom = 1.0!
|
||||
Margins3.Footer = 0!
|
||||
Margins3.Header = 0!
|
||||
Margins3.Left = 1.0!
|
||||
Margins3.Right = 1.0!
|
||||
Margins3.Top = 1.0!
|
||||
PageSettings3.Margin = Margins3
|
||||
PageSettings3.Orientation = Gnostice.Graphics.Orientation.Portrait
|
||||
PageSettings3.PageSize = Gnostice.Documents.PageSize.A4
|
||||
PageSettings3.Width = 8.2677!
|
||||
SpreadSheetFormatterSettings2.PageSettings = PageSettings3
|
||||
SheetOptions3.Print = False
|
||||
SheetOptions3.View = False
|
||||
SpreadSheetFormatterSettings2.ShowGridlines = SheetOptions3
|
||||
SheetOptions4.Print = False
|
||||
SheetOptions4.View = False
|
||||
SpreadSheetFormatterSettings2.ShowHeadings = SheetOptions4
|
||||
FormatterSettings2.SpreadSheet = SpreadSheetFormatterSettings2
|
||||
TxtFormatterSettings2.Font = New System.Drawing.Font("Calibri", 12.0!)
|
||||
PageSettings4.Height = 11.6929!
|
||||
Margins4.Bottom = 1.0!
|
||||
Margins4.Footer = 0!
|
||||
Margins4.Header = 0!
|
||||
Margins4.Left = 1.0!
|
||||
Margins4.Right = 1.0!
|
||||
Margins4.Top = 1.0!
|
||||
PageSettings4.Margin = Margins4
|
||||
PageSettings4.Orientation = Gnostice.Graphics.Orientation.Portrait
|
||||
PageSettings4.PageSize = Gnostice.Documents.PageSize.A4
|
||||
PageSettings4.Width = 8.2677!
|
||||
TxtFormatterSettings2.PageSettings = PageSettings4
|
||||
FormatterSettings2.TXT = TxtFormatterSettings2
|
||||
Me.DocumentViewer1.Preferences.FormatterSettings = FormatterSettings2
|
||||
Me.DocumentViewer1.Preferences.KeyNavigation = True
|
||||
ImageRenderingSettings2.CompositingMode = Gnostice.Graphics.CompositingMode.SourceOver
|
||||
ImageRenderingSettings2.CompositingQuality = Gnostice.Graphics.CompositingQuality.[Default]
|
||||
ImageRenderingSettings2.InterpolationMode = Gnostice.Graphics.InterpolationMode.Bilinear
|
||||
ImageRenderingSettings2.PixelOffsetMode = Gnostice.Graphics.PixelOffsetMode.[Default]
|
||||
RenderingSettings2.Image = ImageRenderingSettings2
|
||||
LineArtRenderingSettings2.SmoothingMode = Gnostice.Graphics.SmoothingMode.AntiAlias
|
||||
RenderingSettings2.LineArt = LineArtRenderingSettings2
|
||||
ResolutionSettings2.DpiX = 96.0!
|
||||
ResolutionSettings2.DpiY = 96.0!
|
||||
ResolutionSettings2.ResolutionMode = Gnostice.Graphics.ResolutionMode.UseSource
|
||||
RenderingSettings2.Resolution = ResolutionSettings2
|
||||
TextRenderingSettings2.TextContrast = 3
|
||||
TextRenderingSettings2.TextRenderingHint = Gnostice.Graphics.TextRenderingHint.AntiAlias
|
||||
RenderingSettings2.Text = TextRenderingSettings2
|
||||
Me.DocumentViewer1.Preferences.RenderingSettings = RenderingSettings2
|
||||
Me.DocumentViewer1.Preferences.Units = Gnostice.Graphics.MeasurementUnit.Inches
|
||||
Me.DocumentViewer1.Size = New System.Drawing.Size(717, 228)
|
||||
Me.DocumentViewer1.TabIndex = 7
|
||||
Me.DocumentViewer1.VScrollBar.LargeChange = 40
|
||||
Me.DocumentViewer1.VScrollBar.SmallChange = 20
|
||||
Me.DocumentViewer1.VScrollBar.Value = 0
|
||||
Me.DocumentViewer1.VScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
|
||||
Me.DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
|
||||
Me.DocumentViewer1.Zoom.ZoomPercent = 100.0R
|
||||
'
|
||||
'C1Dokumente
|
||||
'
|
||||
Me.C1Dokumente.AllowDrop = True
|
||||
Me.C1Dokumente.AlternatingRows = True
|
||||
Me.C1Dokumente.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.C1Dokumente.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.C1Dokumente.FilterBar = True
|
||||
Me.C1Dokumente.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Dokumente.Images.Add(CType(resources.GetObject("C1Dokumente.Images"), System.Drawing.Image))
|
||||
Me.C1Dokumente.Location = New System.Drawing.Point(3, 16)
|
||||
Me.C1Dokumente.Name = "C1Dokumente"
|
||||
Me.C1Dokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Dokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Dokumente.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Dokumente.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumente.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Dokumente.Size = New System.Drawing.Size(723, 174)
|
||||
Me.C1Dokumente.TabIndex = 5
|
||||
Me.C1Dokumente.Text = "C1TrueDBGrid1"
|
||||
Me.C1Dokumente.PropBag = resources.GetString("C1Dokumente.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuesDokumentHinzufügenToolStripMenuItem, Me.DokumentinformationenBearbeitenToolStripMenuItem, Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem, Me.DokumentLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.DokumentExportierenToolStripMenuItem, Me.PerMailVersendenToolStripMenuItem, Me.DokumentAnzeigenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(307, 186)
|
||||
'
|
||||
'NeuesDokumentHinzufügenToolStripMenuItem
|
||||
'
|
||||
Me.NeuesDokumentHinzufügenToolStripMenuItem.Name = "NeuesDokumentHinzufügenToolStripMenuItem"
|
||||
Me.NeuesDokumentHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.NeuesDokumentHinzufügenToolStripMenuItem.Text = "&Neues Dokument hinzufügen"
|
||||
'
|
||||
'DokumentinformationenBearbeitenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentinformationenBearbeitenToolStripMenuItem.Name = "DokumentinformationenBearbeitenToolStripMenuItem"
|
||||
Me.DokumentinformationenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.DokumentinformationenBearbeitenToolStripMenuItem.Text = "Dokumentinformationen bearbeiten"
|
||||
'
|
||||
'DokumentEinemAnderenPartnerZuordnenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Name = "DokumentEinemAnderenPartnerZuordnenToolStripMenuItem"
|
||||
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Text = "Dokument einem anderen Partner zuordnen"
|
||||
'
|
||||
'DokumentLöschenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentLöschenToolStripMenuItem.Name = "DokumentLöschenToolStripMenuItem"
|
||||
Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(303, 6)
|
||||
'
|
||||
'DokumentAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Name = "DokumentAnzeigenToolStripMenuItem"
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.DokumentAnzeigenToolStripMenuItem.Text = "Dokument anzeigen"
|
||||
'
|
||||
'DokumentExportierenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentExportierenToolStripMenuItem.Name = "DokumentExportierenToolStripMenuItem"
|
||||
Me.DokumentExportierenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.DokumentExportierenToolStripMenuItem.Text = "Dokument exportieren"
|
||||
'
|
||||
'PerMailVersendenToolStripMenuItem
|
||||
'
|
||||
Me.PerMailVersendenToolStripMenuItem.Name = "PerMailVersendenToolStripMenuItem"
|
||||
Me.PerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
|
||||
Me.PerMailVersendenToolStripMenuItem.Text = "Per Mail versenden"
|
||||
Me.PerMailVersendenToolStripMenuItem.Visible = False
|
||||
'
|
||||
'clsDokumente
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "clsDokumente"
|
||||
Me.Size = New System.Drawing.Size(1007, 490)
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.grpdokumentvorschau.ResumeLayout(False)
|
||||
Me.grpdokumentvorschau.PerformLayout()
|
||||
Me.ToolStrip2.ResumeLayout(False)
|
||||
Me.ToolStrip2.PerformLayout()
|
||||
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
|
||||
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
|
||||
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents C1Dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
|
||||
Friend WithEvents tsbtnSave As ToolStripButton
|
||||
Friend WithEvents ToolStripButton4 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As ToolStripButton
|
||||
Friend WithEvents tsbtnnew As ToolStripButton
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents NeuesDokumentHinzufügenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents DokumentinformationenBearbeitenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents DokumentLöschenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
|
||||
Friend WithEvents DokumentAnzeigenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents DocumentViewer1 As Gnostice.Documents.Controls.WinForms.DocumentViewer
|
||||
Private WithEvents ToolStrip2 As ToolStrip
|
||||
Private WithEvents btnFirstPage As ToolStripButton
|
||||
Private WithEvents btnPrvPage As ToolStripButton
|
||||
Private WithEvents txtGoToPage As ToolStripTextBox
|
||||
Private WithEvents btnNxtPage As ToolStripButton
|
||||
Private WithEvents btnLastPage As ToolStripButton
|
||||
Private WithEvents toolStripSeparator4 As ToolStripSeparator
|
||||
Private WithEvents tsActSize As ToolStripButton
|
||||
Private WithEvents tsFitPage As ToolStripButton
|
||||
Private WithEvents tsFitWidth As ToolStripButton
|
||||
Private WithEvents tsZoomOut As ToolStripButton
|
||||
Private WithEvents toolStripSeparator7 As ToolStripSeparator
|
||||
Private WithEvents txtZoom As ToolStripTextBox
|
||||
Private WithEvents toolStripPercentlabel As ToolStripLabel
|
||||
Private WithEvents tsZoomIn As ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton3 As ToolStripButton
|
||||
Friend WithEvents grpdokumentvorschau As GroupBox
|
||||
Friend WithEvents DokumentEinemAnderenPartnerZuordnenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents DokumentExportierenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PerMailVersendenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents SaveFileDialog1 As SaveFileDialog
|
||||
End Class
|
||||
436
DMSTest/clsDokumente.resx
Normal file
436
DMSTest/clsDokumente.resx
Normal file
@@ -0,0 +1,436 @@
|
||||
<?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="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
|
||||
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
|
||||
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
|
||||
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
|
||||
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
|
||||
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
|
||||
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
|
||||
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
|
||||
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
|
||||
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
|
||||
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
|
||||
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
|
||||
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
|
||||
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
|
||||
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
|
||||
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
|
||||
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
|
||||
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
||||
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
|
||||
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
|
||||
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
|
||||
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
|
||||
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
|
||||
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
|
||||
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
|
||||
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
|
||||
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
|
||||
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>124, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABW
|
||||
CQAAAk1TRnQBSQFMAgEBAgEAAVABAAFQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
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/wMAAf8B9AHzCFIBTAJL
|
||||
AgAB/wH0AfMIUgFMAkskAAFSCnoBUgQAAVIKegFSIwAB/wGaCnoBeQMAAf8Bmgp6AXkjAAF0AaAB5Qd6
|
||||
AeUBUgF6AwABdAGgAeUHegHlAVIBeiIAAf8BmgKgAeUGegGaAVkBegIAAf8BmgKgAeUGegGaAVkBeiIA
|
||||
AXkBwwOgAeUDegHlAaABUgFZAZoCAAF5AcMDoAHlA3oB5QGgAVIBWQGaIgABmgHDApoCoAHlAnoB5QGg
|
||||
AVIBWQGaAgABmgHDApoCoAHlAnoB5QGgAVIBWQGaIQABGgLDBKAC5QF6AaABdAJZAZoBAAEaAsMEoALl
|
||||
AXoBoAF0AlkBmiEAAZoEwwOgAuUBoAFSAnoBGgEAAZoEwwOgAuUBoAFSAnoBGiEABPYDwwFeA/sBXgFZ
|
||||
AXoBGgEABPYDwwFeA/sBXgFZAXoBGiEABP8BegX7AcMBWQKaAcMBAAT/AXoF+wHDAVkCmgHDJAABegL7
|
||||
AV4C+wH/AZoBGgKaAcMEAAF6AvsBXgL7Af8BmgEaApoBwyQAAeUBegFZAXoBoAH7AZoBwwL2AcMB9AQA
|
||||
AeUBegFZAXoBoAH7AZoBwwL2AcMB9CgAAXoBXgF6DQABegFeAXouAAF6AVkOAAF6AVkvAAH0DwAB9CUA
|
||||
AUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAHAAQABwAUAAfABAAHwBQAB4AEA
|
||||
AeAFAAHgAQAB4AUAAcABAAHABQABwAEAAcAFAAHAAQABwAUAAYABAAGABQABgAEAAYAFAAGAAQABgAUA
|
||||
AYABAAGABQAB8AEAAfAFAAHwAQAB8AUAAf8BHwH/AR8EAAH/AZ8B/wGfBAAB/wHfAf8B3wQACw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>391, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>234, 17</value>
|
||||
</metadata>
|
||||
<data name="C1Dokumente.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="C1Dokumente.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="C1Dokumente.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{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}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;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</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, 721, 172</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, 721, 172</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>391, 17</value>
|
||||
</metadata>
|
||||
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
|
||||
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3ql/1z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
|
||||
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
|
||||
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
|
||||
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
|
||||
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
|
||||
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
|
||||
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
|
||||
ABeDDJJQpITjAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAA0AAAASCAYAAACAa1QyAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFVSURBVDhPnc9LSwJRGMbx8xm6ENE3aBctoiBoV7RsFwRC
|
||||
drGMQCGMMCiiC0ThZrpoYZIEISGUkBJCQUgSUUEF5VgjMqVRq3FmvCyeHGHEacZgWvzgwPP+F4cUCgXo
|
||||
9b8on89Dr6qR/+obEzsJzU0z8kW+YNxg0O+IqzYJyeVyqLR/kcbMAQtn+BO9y8+KTaaINoMfmPImsX2W
|
||||
BhVKocP+oDiWlaP1AAvLHlMKlvws1o7f0Wy9VQUSks1mYaRiMO8yoIIpzPuSsHresHCURNNwFNL+Wyma
|
||||
9jIwUDRWT1jYiu9RJ138VwKNA5HqES+IMLti6Fl8gv0wgZGtGCyeVzT0nWtHoihCNuR4RKftDpPuOMZc
|
||||
NOq7w+WtEhEEAZVMK/doM0cxSL2griuk2GSqSGKau0GL4RK17aeqTUJ4noeW8dlr1LQGNLeq0V9IJpOB
|
||||
XoTjOOjD4QeGDVYMZCqaCAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnNxtPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAA8AAAARCAYAAAACCvahAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFSSURBVDhPnc2/SwJhHMfx56+IaO0/CJoqGhyDlqagRaeC
|
||||
ECpFjH4YFHcVRLRIW3ZSloRJRERLRlCRcZbkEuKPk/xBGXF3nj+GTzoI+jzPEDe8luf7ed+RRqMBs0i9
|
||||
XodZ3HgjVMS1/Mu807ixJ1jCciCPi2iZuXUitVoNNPfxJ84efyCcFyBFisy9jRvbD7IIPJQh3X3D6Vew
|
||||
Hc4xmxZubPNm4It8Ye+qgP2bIqzeJJyHSWZHqtUqaBM7H82oBM+pgrWggq3mn8fEBAYWnrt23NiynsDu
|
||||
ZR4OKQ2XP938QBaW1TimxPeuHTcedL1BCOUw70th6SSD0cUYrJtxaLrRtSOGYYDWb3/BSiAD91EaI64Y
|
||||
bEKM2bSQSqUCWp/tCU4phWGHjGnxlbm3cePeyXsMzUUxI8jMrRPRdR20nvFbzIoy807jxv9FNE2DWURV
|
||||
VZij4g8vAaumPuiPLAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPzZDfS1phGMfP37BsmRf9AbF/wIig2AZbNKgx
|
||||
hhQR/YIWjFpRNEGr5cykKKmsSRZuie1U9AMS+/UemIU3sa0N0UhNj9rJrXXTRVd9O28cghjvdX3hvXi+
|
||||
8H6ehw93v2LkpXODRzIr400aJuOkZiwG3XAEFdYwlPr/dPMS9EbfZasrcQtSNRIh1tVjfNrM4ElfiA3o
|
||||
dKexEDhD/5KE2vHokFJz5ZYw6VtMYtQrQavfZwNaZhLgZYD72z+8d6dQZgk5aS9vJXqPiMGVNB61f2cD
|
||||
GhxxzPpPYV/PwLmdQdNUDNquH1+0XT9Jm+sIpoUk8pr32IAqWwxO4Q/MS2lYltOwySe/lSH57wIXPXwC
|
||||
Bk8cmtoAG0ANT2ycwPhVRC8vwrqSQuNkBHn1e3/bP8fQIT+1bpcNoIZH1iQY50T5giRKzUFo6gLz8lah
|
||||
2hZGy3QUORUCG0ANDyyn8FE2/tQURG7Nzhzt1bod8toaxBvHIR4+32IDqOEP8yIe9/xCbuWuS6m57HKB
|
||||
vDT9Rp39AKriDTaAGi6hn3X+GaW6TvazLfKiex/VoyFkFXrZAGpY/UpwKONNVMU+oiryIavAiwfaNTbg
|
||||
DsJxV/Q9C/hS+j/iAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABEAAAASCAYAAAC9+TVUAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI1SURBVDhPzZPZU1JhGIfPX5aBoomGgMi+QywlKktD1OTY
|
||||
WDgJmJmFTQ5maW4tII1JZGSazDTZctN/IC1q08QOF7/O+WiYCO+46eL5Lt7fmWfe77zvR5XLZTQK5Upa
|
||||
wODcMcPxxgT71qkjP2QwrSlhfKqAflUG7RMp1I/EpE4kvveXMP7BSwSHmQP0vTKgVCrVwAgO0vswrirg
|
||||
idvhjvVDuSwiGcV0MLo7hIXPIfjfDcP52orel/o6iTEqhz4iw7n4ACaTAZx/7oR8UViROLZNcGybMfJ2
|
||||
EFO7Y5j5FMSZF9o6iY4W3Ej6cSVxEZ6YA7IFISTz/Ipk4M8VbAkDEdz9OAVrTINisViD5rEEEzt+BLZG
|
||||
oF6WYP/Xd/Tc45GMYg5bQo/eDR1Ox7WwxNQwP1PVSVQrPVAsdVc6mONXBQxE0ihUoVBAo/xHknw+DwO9
|
||||
A8wImQmoHtI/kF4ipv43glAH+NNc8G6fQGewDdybnGpGMYJvP7/CGFZidPMyfJteMoFcLldD1x0uBtc8
|
||||
8ERdRJA6TKHtejPJKF1YSjpwr9txYd0F78YQGeG/kpN0B+6oE5YlA9SzcrRPtIBzjVWRaOhHxAiuJobR
|
||||
F7FUdyCbzdbQcasVvCAX+jkNzobtUIQkaAkcJxmlXBGhP2qFLWKGdF6ALz9SEM501knaJznYO9hD6zgb
|
||||
2lkl5NNisP1NFYl8sRvSBwKI73dBNMsjgkwmcySMgDPGQjPdAdvXBNboMVKn0uk0GiON33xM8BfRNAZ2
|
||||
AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsFitPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAATCAYAAACQjC21AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIgSURBVDhP1ZPdT5JRAMbfvywDM28cFaHyFYQQtHxh4gtt
|
||||
lDIVJ4NARW2tsUpLPrJhLV7RrRk0JNK5Ndfm+guwLa0LPuTj4olzNhqn4R03Xfx2tud59ts5F4drNBro
|
||||
JlToyN+lCJ8tGM+ZYc/e6TgmmFNamEQNRt6rcPutErrEENNz9Xqdyl5/X0Ps+DmVkewiTos/YRH1WPkS
|
||||
xOP9eWg3FExPheRmkeNnCB8twXvgxtOjZWbUgshGRQPcu/cxl3FjMeeHOi5nNlQ4vmeGMzeKwKEH69/C
|
||||
mM0/xJOvIWZIsG6bMLnrxHI+ACFlhSomx3DkOrPharUaxprPPCudwpHl4dufwsyeC6EDP0jXTjA7B+eO
|
||||
DcIWj8AnL80GX8qYDRW2oNI0j6XDADNqx5ue/ivrBCPsBly1WkU3+Q+E5+fnaGch54M3M8Nk7UzvuKFa
|
||||
HcSP3ycde65SqcCYVIOcRCakeNjFe/B+9NCsnQnRBVNMD0t8BIqwDIWzAvpDvcyGCg3vlNBvDlOZPzML
|
||||
x5YNxg0NMyR4Um4YIrfgSjphXNdjYKUffQsSZsOVy2Xomx/cn/HgwbYAQeShi6tw8qsA0v3LVHICulU1
|
||||
TFEdxhI8rgQvMz0Vat8o4Et74PkwCU1UcaGsxdVFKewJK4RNG6SBHqbjSqVS84PfhDJ6A0OvrkGxJoP8
|
||||
xQBI3gki65uXoLd5M+mjHkj8l5ieKxaL6CZdFhbxB3vJNtE1aIzMAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAARCAYAAADdRIy+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG6SURBVDhPvZK5SyNRHMdfoSI27j9gZalipSxaiIWghQu7
|
||||
gmzARmy3WMTCQhEVvDplYVEbtfCKx6obDxwP4pFEd4URdTQecYlXks2FycwkKb7OGxiZx1gOFh94/D4/
|
||||
Po83DEmlUjAT84PJZBJm8j7BPWEU/ojHMNd4CJ7D5Z5805FEIgE95147vi/kgr9bZ+Z6HB4rmm2FuLzf
|
||||
NzgmGHn2o2kiB2U7BDv/bZBkiVmmiLKIFd84yrcJWmfzEX0OMJ4JtlsLUG5Pw9dDgj7+Gy6Vp+k95TTA
|
||||
o5tvQO0BQcV2Bnp/lTKeyLIMyo+VT6jk0lGkLNb9Ieg4qseYMIS5qwkIgRMc+47U86gwiLa/FliUnWIX
|
||||
QTWXhWHOojYor8F5VwtqfmeqS1pw4doKu3cDt+EbXIfc6plGteBHB4Fl+QOWDjuNQQq9id74RYn+FFrx
|
||||
L+x5dRpXwQsMnDXis5OghsvGyFYD44kkSdDTM1+ifhuHf42Z6+GeplG1mYl+W6XBEVEUoScUeULLTB54
|
||||
zyoz1+N0T6FrsQShqM/gDEHKhXcXweijYa4RCHuVf9D5piPxeBxmYn4wFovBPGJ4AZn40zTeQGXrAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABMAAAARCAYAAAA/mJfHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI9SURBVDhPrc9NSJNxAMfxp4snKyioTkaHDKI6RkKHugXd
|
||||
wovQ0Q5dus1huHwhMB2piUN7MSt1NhFTUpOYuikzmrFNRKdO08oaaq7yeeYzn718e/ZUg6VuBj3wuTz/
|
||||
3/Pl/wjhcJjduqE3U1ozQFnF4LbngqIopNPZO8bQ1BIvPis0Lyi0zIdoHg9gfjWVtEsb093uJqBEiT91
|
||||
TpHrrSvc7F3D5JboXo1QUNqR2KaMWe2ztC8Esa+EsUwGKR/+jskl8dKvMLQewaHEGFgV6epxanthc3OT
|
||||
nVQ+eEvXN9D3BjC8DtDik3FGwKPe0v3bhKrcNKTtU8ZqWj0890PjtRI8RzKZOZDB3B4B38EMfFmZTNUZ
|
||||
mVRjVWa7tk8ZMz5y0qbGHuor8Zw9zGz2Xi32/ngmH3MOMd9qYlqNVdTbtL0QCoXYiXXYh2VR5t47icEf
|
||||
Ee234jdZU4VUsmpclOnuG9P2KWOjb7zcqrbS8SWCTfwVi/OqPqhiqsrqnsR+25gyP0zEXY9/wsrdqiYM
|
||||
tZ30f/qKKxrVYq5oDMeySP/oHJZ2R+I7QZZl/ha7fwYsF1gqOkbu5fPauyu5d9CXdVDd5KCidoTCwr4t
|
||||
3wkbGxv8EZq1EWs4BU/PIZZkYc4/QZGuLnGeTlIs1nAa2i+yXpxFY95+DPqGpHE6QjAYJC5qOgnPcgiW
|
||||
HqUtPxuDrpbpmWXtbLcSsceFl5DUX2vK24ehwLRluBuCJEnEjYyM8sRwlWKdEa/Xr737V4IoivwfIj8B
|
||||
DBSBX45AyqIAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAYAAABG1c6oAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJVSURBVDhPxZFbSJNhGMe/oosgaF0VRBZ1UXS8LhCqu6C7
|
||||
8Ebo0ou66W4Oy2VKYB5yOhybUU0zpxMxBWcS88wWaWgibh4aM7RMrUX7Nje/HX59G/TBUqfFoBd+PPA8
|
||||
z//H+/IKkUiETPJ/hXc0Foqreykp69t0nkCQJIntaLeN0u9a5NVniUavxEtPmMYJH5bXrg272wrVDzvx
|
||||
STESp3ZE5HbTCndt3zGMB+hcjZJf3Jayn1ZoH5yl1RtkcCWCdSpIS1EFc/t24TTW0O+P4pDi9K6KdHSN
|
||||
KBlhfX2drSh/8o6OH6Cx+dC+8WErrcS7R8DdqGdcvnGCSZlSQ7+SSSusbvpAyxLU3yphKkuF5+DepNB7
|
||||
SK4nVMwYK5mShVWWQSWTVljxdIRmWWi+V4UrOwvv2QNJ4cJpFV8vH2G+xcS0LCwzDigZIRwOsxX2oTms
|
||||
8yFq3gfo+xnF1VCdFK7W6wjLopDMhBiis3tUyaQVOt+6ua+z0/YlyoAoC611eA/vxiPXT7IsLlOu60rJ
|
||||
bCqUPENEx40sTdp5XGVGq2+nZ+EbY7FY8iPGYnEcyyI9zo9YWx0pWSEUCvEn8boLYL3CYuFxcq5nJ3s3
|
||||
ch6hKWlDZ3ZQph+moKB7Qy6BsLa2xm/CswPETeeg4SLig6NY8k5RqK5V5jshRRg3nYfWq/iLjvIsV4VW
|
||||
Y0pZ3glCMBgkQcxwBl5cIlh8jOa8k2jVeqZnlpOzv0ERPi+4RkB+pjl3P9p8w4bFnSIEAgESDA87qdfe
|
||||
pEhdgdu9lOz9C4IoimSSzAv9fj+Zw88v9Dvul8vs9JEAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAVCAYAAABPPm7SAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHgSURBVDhPpY7dS1NxGIDPXxKVZdmHiYiEdNN/EHQlJYmh
|
||||
fbEmm1PX5tH50dSkEGthpaa0ky2DkJUtcaU15ooQzdSoi6CibrrY19nXxdMmOPohcQbn4rl4ed734ZUy
|
||||
mQx6kNLpNFskU0l837z5uRCEgLIxhjMkCwta5ANTX9z0vZNxLto5/6KG+menMM400L/QhXftKb/Dv7Yd
|
||||
55BSqRTTX6fozR571sd5vDHO5PoYyqcRRpdvcT3YQ/PMZa76HHz8vkxu/182A08+K/QEbZuHD9dGca/e
|
||||
Y2J1mPsrt3F9GODu0hBtLy04pm38/PNjeyDHg5UR2uct2P0majwnqVZOYPZeZDDUl43c4Ob7Ac5N1vJo
|
||||
UREDyWSSLYZDQ7Q+b8zPd966qJ2opj/QhTPQTkvWmdyGvM8hBNSEimdJERZc/kHOuk9zLdhNb6CTKrlC
|
||||
8ELgfxx3VmU/6KD7jUyltUxwUiKRQItjjko6F+x0zF+hvOmw4CRVVdHiqL0c+bWVtlfNlBpLBFdQoKLl
|
||||
CDa/BeucmQOXigUnxeNxtCgzHaR1zoRltpF9DUWCKyhwyLCfplkjZp+BPXU7BSfFYjG0KLmwl+L63RRl
|
||||
j3ed2SE4KRqNogf9gUgkgh6kcDiMHnR+EOEviLWq1b39p/gAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABMAAAAUCAYAAABvVQZ0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPrdHLSxtRFAbw+Z+6kFa0qKioKFZUhC7EFxg0
|
||||
RcWKIgg+Yow1MYnRZIxJmigKvkoRgyQLFz7is/Ftu6lbRVd5TCbJ4nPuhQzGyWICs/gt5txzv7mcwyST
|
||||
SShF2bBEIgE5tv5ugo/zGc9SZIcN+LrBHs1kPEuRhD1HnuB/8MJ8MokenwrNvxvQuF6Hfl8X+rxqLASs
|
||||
af1vMfF4HCn/Xu5hPZ+G5nAQs+dT+HllxdKNHZ5rFs7LOcwHzfj2qw2uA7t45y0x7Cn8KARMw3Q6gZU7
|
||||
p3DZAs8NSwMdFxbYgzP0R6q1Jth2ZyVBhBjm/+/F2P4Alm8dWBRew/4x4fuOGvXuStQslKNzsxXtq00w
|
||||
+/WSkBSG53kQhmOtMCcd7Bdm+oKOjRY4AjZ6RqgWm6HbHhO/MxHDWoRBu69tdDa93o60IMK97wQX49Jq
|
||||
74lhZGNkNmTIta4KSaMcTCwWA/F15QvYoBFzZwZUs6W0li2G4zgQ9Z5KWE71wjYnUWEporVsiWFkY0Zh
|
||||
AfqjcZQaPksa5WCi0SiIKmsJfgQ00B2OoFCXS2vZEsPKTIXQHgxDszeE/NEcSaMcTCQSAVE8lY8C7Sfk
|
||||
jeTg49AHWssWEw6HoRRlw0KhEJQRwiu1nmGGw8uMdQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>498, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
514
DMSTest/clsDokumente.vb
Normal file
514
DMSTest/clsDokumente.vb
Normal file
@@ -0,0 +1,514 @@
|
||||
Imports System.Net.Mail
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports DevComponents.AdvTree
|
||||
'Imports Gnostice.Documents.Controls.WinForms
|
||||
'Imports Gnostice.Documents
|
||||
Public Class clsDokumente
|
||||
Dim licenseKey As String = "6F09-41FA-5E5E-101F-E577-BDD0-1BB8-3EFB-3081-2E1F-5264-3475"
|
||||
|
||||
Dim dbDokumente As New clsDB
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub refreshdata()
|
||||
Gnostice.Documents.Framework.ActivateLicense(licenseKey)
|
||||
Me.C1Dokumente.AllowDrop = True
|
||||
If Me.treestruktur.Nodes.Count = 0 Then
|
||||
Get_tree()
|
||||
Me.treestruktur.SelectedNode = Me.treestruktur.Nodes(0)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Sub Refresh_Grid()
|
||||
Update_Grid()
|
||||
End Sub
|
||||
Sub Get_tree()
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
|
||||
Load_Treeview(db.dsDaten, Me.treestruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
|
||||
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("eintragnr"),
|
||||
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 AdvTree)
|
||||
'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 DevComponents.AdvTree.Node
|
||||
oNode.Text = oDataRow("Bezeichnung").ToString()
|
||||
oNode.Tag = oDataRow("eintragnr").ToString
|
||||
oNode.ImageIndex = 0
|
||||
oNode.ImageIndex = 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 DevComponents.AdvTree.Node)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New DevComponents.AdvTree.Node()
|
||||
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
||||
oChildNode.Tag = oChildRow("eintragnr").ToString()
|
||||
If oChildRow("eintragnr") = 0 Then
|
||||
oChildNode.ImageIndex = 0
|
||||
oChildNode.ImageIndex = 0
|
||||
Else
|
||||
oChildNode.ImageIndex = 1
|
||||
oChildNode.ImageIndex = 1
|
||||
End If
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
|
||||
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
|
||||
f.ShowDialog()
|
||||
Me.treestruktur_SelectionChanged(sender, e)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub treestruktur_SelectionChanged(sender As Object, e As EventArgs) Handles treestruktur.SelectionChanged
|
||||
Update_Grid()
|
||||
End Sub
|
||||
Sub Update_Grid()
|
||||
|
||||
dbDokumente.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where dms_strukturnr=" + Me.treestruktur.SelectedNode.Tag.ToString + " and keyvalue=" + Me.Patientnr.ToString + " and aktiv=1")
|
||||
Me.C1Dokumente.DataSource = Nothing
|
||||
Me.C1Dokumente.DataSource = dbDokumente.dsDaten.Tables(0)
|
||||
Me.C1Dokumente.DataMember = dbDokumente.dsDaten.Tables(0).TableName
|
||||
Dim spalten As New Tabellenspalte
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Dokumente, "DMS_Dokument", dbDokumente.dsDaten.Tables(0))
|
||||
If Me.C1Dokumente.Splits(0).Rows.Count = 0 Then
|
||||
Me.DocumentViewer1.Visible = False
|
||||
Else
|
||||
Me.DocumentViewer1.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub C1Dokumente_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
|
||||
Try
|
||||
If C1Dokumente.Columns("indb").Value = "True" Then
|
||||
Dim d As New clsDok
|
||||
Dim s As String = d.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
|
||||
Process.Start(s)
|
||||
Else
|
||||
Process.Start(Me.C1Dokumente.Columns("pfad").Value)
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub NeuesDokumentHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentHinzufügenToolStripMenuItem.Click
|
||||
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
|
||||
f.treestruktur.ImageList = Me.treestruktur.ImageList
|
||||
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
|
||||
f.ShowDialog()
|
||||
Me.treestruktur_SelectionChanged(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim i As Integer = C1Dokumente.Columns("nreintrag").Value
|
||||
If MsgBox("Gewähltes Dokument löschen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("DMS_Dokument", "where nreintrag=" + C1Dokumente.Columns("nreintrag").Value.ToString, "")
|
||||
db.dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
|
||||
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
||||
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
||||
db.Update_Data()
|
||||
db.Dispose()
|
||||
treestruktur_SelectionChanged(sender, e)
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
|
||||
Me.C1Dokumente_DoubleClick(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentinformationenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentinformationenBearbeitenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag, Me.C1Dokumente.Columns("nreintrag").Value, True)
|
||||
f.treestruktur.ImageList = Me.treestruktur.ImageList
|
||||
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
|
||||
f.ShowDialog()
|
||||
Me.treestruktur_SelectionChanged(sender, e)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
|
||||
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
||||
For Each path In files
|
||||
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
|
||||
f.txtPath.Text = path
|
||||
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
|
||||
f.dtTermin.Value = Now
|
||||
f.ShowDialog()
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_DataSourceChanged(sender As Object, e As EventArgs) Handles C1Dokumente.DataSourceChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_KeyDown(sender As Object, e As KeyEventArgs) Handles C1Dokumente.KeyDown
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
|
||||
Dim iData As IDataObject = Clipboard.GetDataObject()
|
||||
If iData.GetDataPresent(DataFormats.FileDrop) Then
|
||||
Dim clipbrd As String() = DirectCast(iData.GetData(DataFormats.FileDrop),
|
||||
String())
|
||||
For Each path In clipbrd
|
||||
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
|
||||
f.txtPath.Text = path
|
||||
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
|
||||
f.dtTermin.Value = Now
|
||||
f.treestruktur.ImageList = Me.treestruktur.ImageList
|
||||
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
|
||||
f.Massenimport = True
|
||||
f.ShowDialog()
|
||||
Next
|
||||
End If
|
||||
Me.treestruktur_SelectionChanged(sender, e)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Dokumente.RowColChange
|
||||
Try
|
||||
|
||||
If C1Dokumente.Columns("InDB").Value = "False" Then
|
||||
Me.DocumentViewer1.LoadDocument(C1Dokumente.Columns("Pfad").Value)
|
||||
Else
|
||||
Dim dok As New clsDok
|
||||
|
||||
Dim ms As System.IO.MemoryStream = dok.Get_Dokument_stram(Me.C1Dokumente.Columns("nreintrag").Value)
|
||||
Me.DocumentViewer1.LoadDocument(ms)
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsActSize_Click(sender As Object, e As EventArgs) Handles tsActSize.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitPage
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitWidth
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.ZoomOut()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.ZoomIn()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs) Handles btnFirstPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.FirstPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnPrvPage_Click(sender As Object, e As EventArgs) Handles btnPrvPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.PreviousPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnNxtPage_Click(sender As Object, e As EventArgs) Handles btnNxtPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.NextPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnLastPage_Click(sender As Object, e As EventArgs) Handles btnLastPage.Click
|
||||
If DocumentViewer1.IsDocumentLoaded Then
|
||||
DocumentViewer1.LastPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
DocumentViewer1.RotatePagesAntiClockwise90()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||||
DocumentViewer1.RotatePagesClockwise90()
|
||||
End Sub
|
||||
|
||||
Private Sub txtGoToPage_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtGoToPage.KeyDown
|
||||
Select Case e.KeyCode
|
||||
|
||||
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
|
||||
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
|
||||
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
|
||||
e.SuppressKeyPress = False
|
||||
Exit Select
|
||||
|
||||
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
|
||||
Keys.D6, Keys.D7, Keys.D8, Keys.D9
|
||||
If e.Shift Then
|
||||
e.SuppressKeyPress = True
|
||||
Else
|
||||
e.SuppressKeyPress = False
|
||||
End If
|
||||
Exit Select
|
||||
|
||||
Case Keys.Enter
|
||||
e.SuppressKeyPress = False
|
||||
If txtGoToPage.Text.Trim() <> "" Then
|
||||
DocumentViewer1.GoToPage(Convert.ToInt32(txtGoToPage.Text))
|
||||
End If
|
||||
Exit Select
|
||||
Case Else
|
||||
|
||||
e.SuppressKeyPress = True
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
Private Sub txtZoom_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtZoom.KeyDown
|
||||
Select Case e.KeyCode
|
||||
|
||||
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
|
||||
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
|
||||
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
|
||||
e.SuppressKeyPress = False
|
||||
Exit Select
|
||||
|
||||
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
|
||||
Keys.D6, Keys.D7, Keys.D8, Keys.D9
|
||||
If e.Shift Then
|
||||
e.SuppressKeyPress = True
|
||||
Else
|
||||
e.SuppressKeyPress = False
|
||||
End If
|
||||
Exit Select
|
||||
|
||||
Case Keys.Enter
|
||||
e.SuppressKeyPress = False
|
||||
DocumentViewer1.Zoom.ZoomPercent = Double.Parse(txtZoom.Text)
|
||||
Exit Select
|
||||
Case Else
|
||||
|
||||
e.SuppressKeyPress = True
|
||||
Exit Select
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentEinemAnderenPartnerZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Click
|
||||
Dim f As New frmSuche
|
||||
f.Dokumentsuche = True
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Dokument", "", "Select * from dms_dokument where nreintrag=" + Me.C1Dokumente.Columns("nreintrag").Value.ToString)
|
||||
db.dsDaten.Tables(0).Rows(0).Item("keyvalue") = f.Key
|
||||
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
||||
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
||||
db.Update_Data()
|
||||
Me.treestruktur_SelectionChanged(sender, e)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentExportierenToolStripMenuItem.Click
|
||||
Try
|
||||
If C1Dokumente.Columns("indb").Value = "True" Then
|
||||
Me.SaveFileDialog1.FileName = C1Dokumente.Columns("pfad").Value
|
||||
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Dim fn As String
|
||||
Dim dok As New clsDok
|
||||
fn = dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
|
||||
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Dim fn As String
|
||||
Dim dok As New clsDok
|
||||
fn = Me.C1Dokumente.Columns("Pfad").Value
|
||||
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub PerMailVersendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PerMailVersendenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim db As New clsDB
|
||||
Dim email As String
|
||||
If Me.Patientnr > 49999 Then
|
||||
db.Get_Tabledata("Email", "", "Select E_Mail from firma where nrfirma=" + Me.Patientnr.ToString)
|
||||
Else
|
||||
db.Get_Tabledata("Email", "", "Select E_Mail from privat where nrprivat=" + Me.Patientnr.ToString)
|
||||
End If
|
||||
Try
|
||||
email = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
db.Dispose()
|
||||
|
||||
If C1Dokumente.Columns("indb").Value = "True" Then
|
||||
Dim dok As New clsDok
|
||||
test(email, dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value))
|
||||
' OpenEmail(email, "test", "test", dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value))
|
||||
Else
|
||||
test(email, Me.C1Dokumente.Columns("Pfad").Value)
|
||||
' OpenEmail(email, "", "", Me.C1Dokumente.Columns("Pfad").Value)
|
||||
|
||||
End If
|
||||
|
||||
Catch EX As Exception
|
||||
MsgBox(EX.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function OpenEmail(ByVal EmailAddress As String,
|
||||
Optional ByVal Subject As String = "test",
|
||||
Optional ByVal Body As String = "test",
|
||||
Optional ByVal Attachments As String = "") _
|
||||
As Boolean
|
||||
|
||||
Dim bAns As Boolean = True
|
||||
Dim sParams As String
|
||||
sParams = EmailAddress
|
||||
If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then _
|
||||
sParams = "mailto:" & sParams
|
||||
|
||||
If Subject <> "" Then sParams = sParams &
|
||||
"?subject=" & Subject
|
||||
|
||||
If Body <> "" Then
|
||||
sParams = CStr(sParams & CStr(IIf(Subject = "", "?", "&")))
|
||||
sParams = sParams & "body=" & Body
|
||||
End If
|
||||
|
||||
If Attachments <> "" Then
|
||||
'sParams = CStr(sParams & CStr(IIf(Body = "", "?", "&")))
|
||||
sParams = sParams & "attachments=" & Attachments
|
||||
End If
|
||||
|
||||
Try
|
||||
|
||||
System.Diagnostics.Process.Start(sParams)
|
||||
|
||||
Catch
|
||||
bAns = False
|
||||
End Try
|
||||
|
||||
Return bAns
|
||||
|
||||
End Function
|
||||
|
||||
Sub test(email As String, ByVal attachmentfile As String)
|
||||
'string builder used for concatination
|
||||
Dim MsgBuilder As New System.Text.StringBuilder
|
||||
MsgBuilder.Append("<A href=""mailto: melroy@testmail.com"">mailto:melroy@testmail.com</A>")
|
||||
'MsgBuilder.Append("<A href='mailto:&cc=testcc@testcc.com,testcc1@testcc.com'>&cc=testcc@testcc.com,testcc1@testcc.com</A>")
|
||||
'MsgBuilder.Append("<A href='mailto:&bcc=testcc@testbcc.com,testcc1@testbcc.com'>&bcc=testcc@testbcc.com,testcc1@testbcc.com</A>")
|
||||
MsgBuilder.Append("&subject=this is test subject")
|
||||
MsgBuilder.Append("&body=this is test body")
|
||||
ExecuteFile(MsgBuilder.ToString)
|
||||
End Sub
|
||||
|
||||
Private Function ExecuteFile(ByVal FileName As String) As Boolean
|
||||
Dim myProcess As New Process
|
||||
myProcess.StartInfo.FileName = FileName
|
||||
myProcess.StartInfo.UseShellExecute = True
|
||||
myProcess.StartInfo.RedirectStandardOutput = False
|
||||
myProcess.Start()
|
||||
myProcess.Dispose()
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
848
DMSTest/clsMySQLDB.vb
Normal file
848
DMSTest/clsMySQLDB.vb
Normal file
@@ -0,0 +1,848 @@
|
||||
Imports System.IO
|
||||
Imports MySql.Data.MySqlClient
|
||||
Imports MySql.Data.Types
|
||||
|
||||
|
||||
#Const dbtype = "SQL"
|
||||
|
||||
#If dbtype = "MySQL" Then
|
||||
Public Class clsDB
|
||||
#Else
|
||||
Public Class clsMySQKDB
|
||||
#End If
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim m_connectionstring As String
|
||||
|
||||
Property Connectionstring As String
|
||||
Get
|
||||
Return m_connectionstring
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_connectionstring = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Sub New()
|
||||
Me.Connectionstring = My.Settings.ConnectionString
|
||||
End Sub
|
||||
|
||||
Public dsDaten As New DataSet
|
||||
Public dssql As New DataSet
|
||||
Public dadaten As MySqlDataAdapter
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Allgemein Get / Save"
|
||||
Public Sub Dispose()
|
||||
dsDaten.Dispose()
|
||||
dssql.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function Get_Option(ByVal nr As Integer) As String
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Dim dad As New MySqlDataAdapter
|
||||
|
||||
|
||||
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
|
||||
Dim data As New DataTable
|
||||
|
||||
dad = New MySqlDataAdapter(sql, Me.Connectionstring)
|
||||
|
||||
dad.Fill(data)
|
||||
Dim s As String
|
||||
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
|
||||
Return s
|
||||
dad.Dispose()
|
||||
data.Dispose()
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Function Get_Datavalue(sql As String, Optional args As String = "") As String
|
||||
Try
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
dsDaten.Tables.Clear()
|
||||
If sql <> "" Then
|
||||
sql = sql.Replace("&ARGS&", args)
|
||||
|
||||
dadaten = New MySqlDataAdapter(sql, Me.Connectionstring)
|
||||
|
||||
|
||||
End If
|
||||
Dim dt As New DataTable
|
||||
dadaten.Fill(dt)
|
||||
Return dt.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
End Function
|
||||
Public Sub Get_Tabledata(ByVal tablename As String, Optional wherestatement As String = "", Optional SQL As String = "", Optional args As String = "", Optional SP As Boolean = False, Optional SP_Params As DataTable = Nothing)
|
||||
If SP = True Then
|
||||
|
||||
End If
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
dsDaten.Tables.Clear()
|
||||
dadaten = New MySqlDataAdapter(SQL, Me.Connectionstring)
|
||||
If SP = True Then
|
||||
Dim sqlcmd As New MySqlCommand
|
||||
Dim sqlconnect As New MySqlConnection
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = tablename
|
||||
For Each r As DataRow In SP_Params.Rows
|
||||
sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
|
||||
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
|
||||
Next
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Try
|
||||
dadaten.SelectCommand = sqlcmd
|
||||
dadaten.Fill(dsDaten, tablename)
|
||||
|
||||
Exit Sub
|
||||
Catch ex As Exception
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
End Try
|
||||
|
||||
End If
|
||||
If SQL <> "" Then
|
||||
SQL = SQL.Replace("&ARGS&", args)
|
||||
SQL = SQL.Replace("[", "")
|
||||
SQL = SQL.Replace("]", "")
|
||||
SQL = SQL.Replace("'", "`")
|
||||
SQL = SQL.Replace("dbo.", "")
|
||||
dadaten = New MySqlDataAdapter(SQL, Me.Connectionstring)
|
||||
Else
|
||||
Dim statement As String = "select * from " + tablename + " " + wherestatement
|
||||
statement = statement.Replace("[", "")
|
||||
statement = statement.Replace("[", "")
|
||||
statement = statement.Replace("'", "`")
|
||||
statement = statement.Replace("dbo.", "")
|
||||
dadaten = New MySqlDataAdapter(statement, Me.Connectionstring)
|
||||
End If
|
||||
'dadaten = New MySQLDataadapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
|
||||
dadaten.Fill(dsDaten, tablename)
|
||||
If encrypted = True Then
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
For Each c As DataColumn In dsDaten.Tables(0).Columns
|
||||
Select Case UCase(c.ColumnName)
|
||||
Case "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "TELP", "PATIENT", "BEHANDLER"
|
||||
r(c.ColumnName) = Crypto.DecryptText(r(c.ColumnName), Globals.encryptkey)
|
||||
End Select
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Dim a As Integer = 1
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub Update_Data()
|
||||
Dim cb As New MySqlCommandBuilder(dadaten)
|
||||
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
|
||||
End Sub
|
||||
|
||||
Dim da As MySqlDataAdapter
|
||||
Dim qb As New MySqlCommandBuilder
|
||||
Public daten As New DataSet
|
||||
Public Function Get_Tabledata_for_Update(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
|
||||
Dim sqlconnect As New MySqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlconnect.Open()
|
||||
da = New MySqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New MySqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
If StoredProc = True Then
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = Tablename
|
||||
Else
|
||||
sqlcmd.CommandType = CommandType.Text
|
||||
sqlcmd.CommandText = "Select * from " + Tablename
|
||||
End If
|
||||
If is_SQL_String = True Then
|
||||
sqlcmd.CommandText = Tablename
|
||||
End If
|
||||
' sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
' sqlcmd.CommandText = "Berufsliste"
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(daten, "Daten")
|
||||
qb = New MySqlCommandBuilder(da)
|
||||
End Function
|
||||
|
||||
Public Sub Update_Tabeldata()
|
||||
da.Update(daten, "Daten")
|
||||
End Sub
|
||||
|
||||
Public Sub Exec_Prod(ByVal Procedure As String)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = Procedure
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Exec_SQL(ByVal SQL As String)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = SQL
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.Text
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function updatedata(ByVal Tablename As String, ByVal sourcetable As DataTable, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataSet
|
||||
Dim sqlconnect As New MySqlConnection
|
||||
Dim ds As New DataSet
|
||||
Dim qb As New MySqlCommandBuilder
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
sqlconnect.Open()
|
||||
Dim da As New MySqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New MySqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
If StoredProc = True Then
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.CommandText = Tablename
|
||||
Else
|
||||
sqlcmd.CommandType = CommandType.Text
|
||||
sqlcmd.CommandText = "Select * from " + Tablename
|
||||
End If
|
||||
If is_SQL_String = True Then
|
||||
sqlcmd.CommandText = Tablename
|
||||
End If
|
||||
' sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
' sqlcmd.CommandText = "Berufsliste"
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(ds, "Daten")
|
||||
qb = New MySqlCommandBuilder(da)
|
||||
For Each c As DataColumn In sourcetable.Columns
|
||||
ds.Tables(0).Rows(0).Item(c.ColumnName) = sourcetable.Rows(0).Item(c.ColumnName)
|
||||
Next
|
||||
da.Update(ds, "Daten")
|
||||
End Function
|
||||
|
||||
Public Function Insert_New_Entry(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
|
||||
Dim dbkey As Integer = 0
|
||||
If getdbkey Then
|
||||
dsDaten.Tables.Clear()
|
||||
|
||||
Get_Tabledata("firmaap", "", sqlstring, "", False)
|
||||
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
|
||||
End If
|
||||
Dim sqlconnect As New MySqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
Dim da As New MySqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New MySqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Dim sql As String
|
||||
sqlcmd.CommandText = "Insert into " + Table + " (" + KeyName + ",aktiv,erstellt_am,mutiert_am,mutierer) values(" + dbkey.ToString + ",1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
Dim data As New DataTable
|
||||
dsDaten.Tables.Clear()
|
||||
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
|
||||
|
||||
|
||||
Return dsDaten.Tables(0)
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Insert_New_Entry_autokey(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
|
||||
Dim dbkey As Integer = 0
|
||||
If getdbkey Then
|
||||
dsDaten.Tables.Clear()
|
||||
|
||||
Get_Tabledata("firmaap", "", sqlstring, "", False)
|
||||
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
|
||||
End If
|
||||
Dim sqlconnect As New MySqlConnection
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Clear()
|
||||
sqlconnect.ConnectionString = Me.Connectionstring
|
||||
Dim da As New MySqlDataAdapter("", sqlconnect)
|
||||
Dim sqlcmd As New MySqlCommand
|
||||
sqlcmd.Connection = sqlconnect
|
||||
Dim sql As String
|
||||
sqlcmd.CommandText = "Insert into " + Table + " (aktiv,erstellt_am,mutiert_am,mutierer) values(1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
|
||||
sqlconnect.Open()
|
||||
sqlcmd.ExecuteNonQuery()
|
||||
sqlconnect.Close()
|
||||
Dim data As New DataTable
|
||||
dsDaten.Tables.Clear()
|
||||
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
|
||||
|
||||
|
||||
Return dsDaten.Tables(0)
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@behandlungsnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlugnsnr))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, typ))
|
||||
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Spalten"
|
||||
Public Sub Generate_SpaltenData(ByVal tablename As String)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
Dim dttable As New DataTable(tablename)
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function Get_Spaltendata()
|
||||
Try
|
||||
Dim dbRow As DataRow
|
||||
Dim dsPartner As New DataSet
|
||||
dadaten = New MySqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
|
||||
dadaten.Fill(dsDaten, "Daten")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_SQL(ByVal nr As Integer) As String
|
||||
Try
|
||||
If Globals.SQLStatements.Rows.Count = 0 Then
|
||||
dssql.Clear()
|
||||
dadaten = New MySqlDataAdapter("select * from sql_statements", Me.Connectionstring)
|
||||
dadaten.Fill(dssql, "SQLStatements")
|
||||
Globals.SQLStatements = dssql.Tables(0).Copy
|
||||
End If
|
||||
For Each r As DataRow In Globals.SQLStatements.Rows
|
||||
If r(0) = nr Then
|
||||
Return r(1)
|
||||
Exit Function
|
||||
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Suche"
|
||||
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
|
||||
Select Case Type
|
||||
Case "Patient"
|
||||
|
||||
If IsNumeric(Searchstring) Then
|
||||
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
Else
|
||||
Get_Tabledata("privat", " where name like '" + Searchstring + "%'" + " order by name, vorname, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
If dsDaten.Tables(0).Rows.Count = 1 Then
|
||||
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
|
||||
Else
|
||||
Dim f As New frmPrivatSelect
|
||||
f.Text = "Patient-Suche"
|
||||
f.TreeView1.Nodes.Clear()
|
||||
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
Dim tn As New TreeNode
|
||||
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
|
||||
tn.Tag = r("nrprivat")
|
||||
f.TreeView1.Nodes.Add(tn)
|
||||
Next
|
||||
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
|
||||
f.StartPosition = FormStartPosition.CenterParent
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Return f.TreeView1.SelectedNode.Tag
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
Return -1
|
||||
Case "Firma"
|
||||
If IsNumeric(Searchstring) Then
|
||||
Get_Tabledata("firma", " where nrfirma=" + Searchstring + " order by name1, name2, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
Else
|
||||
Get_Tabledata("firma", " where name1 like '" + Searchstring + "%'" + " order by name1, name2, ort")
|
||||
If dsDaten.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
If dsDaten.Tables(0).Rows.Count = 1 Then
|
||||
Return (dsDaten.Tables(0).Rows(0).Item("nrfirma"))
|
||||
Else
|
||||
Dim f As New frmPrivatSelect
|
||||
f.Text = "Firmensuche"
|
||||
f.TreeView1.Nodes.Clear()
|
||||
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
Dim tn As New TreeNode
|
||||
tn.Text = r("nrfirma").ToString + " " + r("Name1") + " " + r("name2") + ", " + r("PLZ") + " " + r("ort")
|
||||
tn.Tag = r("nrfirma")
|
||||
f.TreeView1.Nodes.Add(tn)
|
||||
Next
|
||||
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
|
||||
f.StartPosition = FormStartPosition.CenterParent
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Return f.TreeView1.SelectedNode.Tag
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
End If
|
||||
Return -1
|
||||
|
||||
|
||||
End Select
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Log"
|
||||
Public Function WriteLog(ByVal Entry As String, ByVal logtype As Integer)
|
||||
Try
|
||||
Dim conn As New MySqlConnection(Me.Connectionstring)
|
||||
Dim sql As String
|
||||
sql = "Insert Log (Eintrag,logtype ) values('" + Entry + "'," + logtype.ToString + ")"
|
||||
Dim cm As New MySqlCommand(sql, conn)
|
||||
conn.Open()
|
||||
cm.ExecuteNonQuery()
|
||||
conn.Close()
|
||||
conn.Dispose()
|
||||
cm.Dispose()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Utils"
|
||||
Public Function Get_DBKey(ByVal Tablename As String) As Integer
|
||||
Select Case Tablename
|
||||
Case "Privat"
|
||||
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
|
||||
Case "Firma"
|
||||
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
|
||||
Case "Leistung"
|
||||
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
|
||||
Case "Behandlung"
|
||||
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
|
||||
Case "Zahlung"
|
||||
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
|
||||
Case "Recall"
|
||||
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
|
||||
Case "Tarif"
|
||||
Me.Get_Tabledata("Tarif", "", "Select top 1 nrtarif+1 from tarif order by nrtarif desc")
|
||||
|
||||
End Select
|
||||
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Tarife / Leistungen"
|
||||
Public Function Get_Tarife() As DataTable
|
||||
Dim found As Boolean = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarife" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarife", "order by nummervon")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarifgrp" Then
|
||||
found = True
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarpaket" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
If Not found Then
|
||||
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "paketpos" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("paketpos", "order by nrpaket")
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
found = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Dentotar" Then
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Dentotar", "", Get_SQL(23))
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_Tarif() As DataTable
|
||||
Dim found As Boolean = False
|
||||
For Each t As DataTable In IntTables.Inttables.Tables
|
||||
If t.TableName = "Tarif" Then
|
||||
found = True
|
||||
Exit Function
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Me.Get_Tabledata("Tarif", "", Get_SQL(16))
|
||||
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Recalc_Leistungen(ByVal nrbehandlung As Integer, taxpunktwert As Double)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_recalc_leistungen]"
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@taxpunktwert", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, taxpunktwert))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Leistung"
|
||||
Public Function delete_leistung(ByVal nrleistung As Integer)
|
||||
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
|
||||
dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
|
||||
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
||||
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
|
||||
Update_Data()
|
||||
End Function
|
||||
|
||||
Public Function Get_Leistung(ByVal nrleistung As Integer)
|
||||
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Auswertungen"
|
||||
Public Function get_reportdata(ByVal Reportnr As Integer, ByVal Parameter As String) As String
|
||||
Get_Tabledata("Auswertung", "where Auswertungnr=" + Reportnr.ToString, "", "")
|
||||
Dim sql As String
|
||||
Dim typ As String
|
||||
sql = dsDaten.Tables(0).Rows(0).Item("sql")
|
||||
typ = dsDaten.Tables(0).Rows(0).Item("sqltype")
|
||||
If Parameter <> "" Then sql = sql + " " + Parameter
|
||||
|
||||
Dim Filename As String = My.Settings.TempPath + "\" + dsDaten.Tables(0).Rows(0).Item("BEZEICHNUNG") + ".FRX"
|
||||
dsDaten.Clear()
|
||||
Select Case UCase(typ)
|
||||
Case "SQL"
|
||||
Get_Tabledata("Auswertungsdaten", "", sql, "")
|
||||
Return Filename
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Function Get_ReportNr(ByVal Report As String) As Integer
|
||||
Try
|
||||
Get_Tabledata("Auswertung", "where es_typ='" + Report + "'")
|
||||
Return dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_ReportNr_by_ESTypnr(ByVal ESTypNr As String) As Integer
|
||||
Try
|
||||
Get_Tabledata("ESTyp", "where nrestyp=" + ESTypNr)
|
||||
|
||||
Get_Tabledata("Auswertung", "where es_typ='" + dsDaten.Tables(0).Rows(0).Item("estyp") + "'")
|
||||
Return dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Return 0
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Fakturierung"
|
||||
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
|
||||
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
|
||||
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
|
||||
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
'scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Mahnung_Buchen(ByVal nrfaktura As Integer, ByVal Stufe As Integer, ByVal daten As DataTable)
|
||||
Dim db As New clsDB
|
||||
Dim mahndatum As Date
|
||||
Dim faelligkeit As Date
|
||||
Dim mahngebuehr As Double
|
||||
|
||||
mahndatum = daten.Rows(0).Item("Mahndatum")
|
||||
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
|
||||
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
|
||||
Select Case Stufe
|
||||
Case 1
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1='" + mahndatum + "', mahnfaelligkeit1='" + faelligkeit + "', mahngebuehr1='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
Case 2
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2='" + mahndatum + "', mahnfaelligkeit2='" + faelligkeit + "', mahngebuehr2='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
Case 3
|
||||
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3='" + mahndatum + "', mahnfaelligkeit3='" + faelligkeit + "',mahngebuehr3='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Documenthandling"
|
||||
|
||||
Public Function Save_CAMT_File_RUN(ByVal Key As Integer, Filename As String)
|
||||
Return Save_File("Select * from camt_run where nreintrag=" + Key.ToString, Filename, "SourceFIle")
|
||||
End Function
|
||||
|
||||
Public Function Save_CAMT_File(ByVal Key As Integer, Filename As String)
|
||||
Return Save_File("Select * from camt_file where nreintrag=" + Key.ToString, Filename, "camt_file")
|
||||
End Function
|
||||
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
|
||||
Return Save_File("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
|
||||
End Function
|
||||
|
||||
Public Function Get_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
|
||||
Return Get_file("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
|
||||
End Function
|
||||
|
||||
Public Function Save_File(ByVal sql As String, ByVal filename As String, ByVal DBAttribut As String) As String
|
||||
Dim Connection As New MySqlConnection()
|
||||
Dim DA As New MySqlDataAdapter(sql, Connection)
|
||||
Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New System.IO.FileStream(filename, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = My.Settings.ConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
MsgBox("Datei kann nicht gespeichert werden.", MsgBoxStyle.Critical)
|
||||
Exit Function
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(DBAttribut) = mydata
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Return filename
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
filename = ""
|
||||
Return filename
|
||||
Finally
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
|
||||
Dim connection As New MySqlConnection()
|
||||
Dim DA As New MySqlDataAdapter(sql, connection)
|
||||
Dim CB As MySqlCommandBuilder = New MySqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = My.Settings.ConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(DBAttribut)
|
||||
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 filename
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
Finally
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Zahlungen"
|
||||
|
||||
Public Sub Insert_ZJournal(fakturanr As String, ByVal debitor As String, ByVal debitortext As String, ByVal betrag As Decimal, ByVal konto As String, ByVal vz As String, ByVal storno As String)
|
||||
Get_Tabledata("Zahlung", "", "Select top 1 * from zjournal order by pk desc")
|
||||
Dim dr As DataRow = dsDaten.Tables(0).NewRow
|
||||
dr.Item("nreintrag") = 0
|
||||
dr.Item("Mandant") = Globals.Mandant
|
||||
dr.Item("Datum") = Now
|
||||
dr.Item("nrfaktura") = fakturanr
|
||||
dr.Item("nrdebitor") = debitor
|
||||
dr.Item("debitor") = debitortext
|
||||
dr.Item("Konto") = konto
|
||||
dr.Item("betrag") = betrag
|
||||
If vz = "False" Then vz = ""
|
||||
If vz = "True" Then vz = "J"
|
||||
dr.Item("vz") = vz
|
||||
dr.Item("storno") = storno
|
||||
dr.Item("erstellt_am") = Now
|
||||
dr.Item("mutiert_am") = Now
|
||||
dr.Item("mutierer") = Globals.ActUser
|
||||
dr.Item("aktiv") = True
|
||||
dsDaten.Tables(0).Rows.Add(dr)
|
||||
Update_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Security"
|
||||
Public Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
|
||||
Get_Tabledata("SecurityObject", "SecurityForm='" + securityform + "' and securityobjecttype='" + securityobjecttype + "' and securityobject='" + securityobject + "' and securityobjectitem='" + securityobjectitem + "? and aktiv=1")
|
||||
If dsDaten.Tables(0).Rows.Count > 0 Then Return True Else Return False
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
1
DMSTest/obj/Debug/DMSTest.vbproj.CoreCompileInputs.cache
Normal file
1
DMSTest/obj/Debug/DMSTest.vbproj.CoreCompileInputs.cache
Normal file
@@ -0,0 +1 @@
|
||||
56517063abd0a44a5a7077cd8bd9a74cf0e76e54
|
||||
BIN
DMSTest/obj/Debug/DMSTest.vbprojResolveAssemblyReference.cache
Normal file
BIN
DMSTest/obj/Debug/DMSTest.vbprojResolveAssemblyReference.cache
Normal file
Binary file not shown.
BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
Binary file not shown.
BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
Normal file
BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
Normal file
Binary file not shown.
BIN
DMSTest/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
Normal file
BIN
DMSTest/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
Normal file
Binary file not shown.
Reference in New Issue
Block a user