update 20231114

master
Stefan Hutter 2 years ago
parent 5d67339261
commit bedd741642

Binary file not shown.

Binary file not shown.

@ -458,6 +458,16 @@ Public Class clsDB
#Region "Suche"
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
Select Case Type
Case "Behandlungsgrund"
Searchstring = Searchstring.Replace("'", "''")
Get_Tabledata("privat", "", "Select distinct * from privat where nrprivat in (select nrpatient from behandlu where behandlungsgrund 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 Search("Patient", Searchstring)
Exit Function
End If
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
Case "Patient"
Searchstring = Searchstring.Replace("'", "''")
If IsNumeric(Searchstring) Then

@ -40,11 +40,15 @@ Partial Class Patient
Me.tsbtnVTX = New System.Windows.Forms.ToolStripButton()
Me.tsrbprivat = New Syncfusion.Windows.Forms.Tools.ToolStripRadioButton()
Me.tsrbunternehmen = New Syncfusion.Windows.Forms.Tools.ToolStripRadioButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
@ -60,9 +64,6 @@ Partial Class Patient
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
@ -74,12 +75,12 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel8.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel7.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
@ -88,7 +89,7 @@ Partial Class Patient
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.tstxtsuche, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX, Me.tsrbprivat, Me.tsrbunternehmen})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.tstxtsuche, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX, Me.tsrbprivat, Me.tsrbunternehmen, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1278, 27)
@ -228,6 +229,15 @@ Partial Class Patient
Me.tsrbunternehmen.Size = New System.Drawing.Size(98, 24)
Me.tsrbunternehmen.Text = "Unternehmen"
'
'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(24, 24)
Me.ToolStripButton1.Text = "ToolStripButton1"
'
'SuperTabControl1
'
'
@ -244,12 +254,12 @@ Partial Class Patient
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 51)
@ -302,6 +312,35 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
'Behandlung1
'
Me.Behandlung1.Auftragsmanagement = False
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
'
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
Me.Behandlungen.GlobalItem = False
Me.Behandlungen.Name = "Behandlungen"
Me.Behandlungen.Text = "Behandlungen"
'
'SuperTabControlPanel8
'
Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
@ -318,7 +357,7 @@ Partial Class Patient
Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientDetailsFirma1.HasChanges = False
Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
Me.PatientDetailsFirma1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.PatientDetailsFirma1.Margin = New System.Windows.Forms.Padding(2)
Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
Me.PatientDetailsFirma1.PatientNr = 0
@ -440,35 +479,6 @@ Partial Class Patient
Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 23)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 613)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
'Behandlung1
'
Me.Behandlung1.Auftragsmanagement = False
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 613)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
'
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
Me.Behandlungen.GlobalItem = False
Me.Behandlungen.Name = "Behandlungen"
Me.Behandlungen.Text = "Behandlungen"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
@ -552,12 +562,12 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel8.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel7.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
@ -612,4 +622,5 @@ Partial Class Patient
Friend WithEvents PatientDetailsFirma1 As PatientDetailsFirma
Friend WithEvents tsrbprivat As Syncfusion.Windows.Forms.Tools.ToolStripRadioButton
Friend WithEvents tsrbunternehmen As Syncfusion.Windows.Forms.Tools.ToolStripRadioButton
Friend WithEvents ToolStripButton1 As ToolStripButton
End Class

@ -397,6 +397,21 @@
ruPA2WH0nj2LvqFRHLPcx7HTUzhy+hEODd7FgTM30D58Ge0XRlBPpW0+fwed5x+ga/g+1fkR+nh/0GJ9
DWaApTVwZpjxE06fsTIsr0L4zmuW4T+HuPbVeuuAGMJDB3nPMngOg0JYXt4fsFpwckgIKz3OTzhpFfZ6
GcJvhiynXoE5jv8CAmnSUbkb83QAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnVTX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

@ -141,7 +141,9 @@
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
'Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
Dim nrprivat As Integer = db.Search("Behandlungsgrund", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
@ -354,9 +356,7 @@
Me.Krankengeschichte1.Refresh_KG()
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
Create_temp_form()
@ -387,6 +387,8 @@
End Sub
Private Sub tsrbprivat_Click(sender As Object, e As EventArgs) Handles tsrbprivat.Click
'If Globals.OnLoad Then Exit Sub
'Me.PatientNr = Me.PatientNr
If tsrbprivat.Checked Then
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
@ -396,8 +398,12 @@
End Sub
Private Sub tsrbunternehmen_Click(sender As Object, e As EventArgs) Handles tsrbunternehmen.Click
'-- If Globals.OnLoad Then Exit Sub
' Me.PatientNr = Me.PatientNr
Globals.is_stammdatenen_firma = False
If tsrbunternehmen.Checked Then
Globals.is_stammdatenen_firma = True
'Me.PatientDetails1.chklbAdresstyp.Visible = False
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
@ -412,8 +418,8 @@
End If
End Sub
Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
End Class

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 67 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>x1Q2HIHLnofYZNJC5mMzrIe7MzgT9IUfB2HFbthf1tg=</dsig:DigestValue>
<dsig:DigestValue>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -451,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7468544">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6N154cXxaJ0gJHr8hKaOsQw77Z7O8BhtbF+HbYtec9Y=</dsig:DigestValue>
<dsig:DigestValue>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

File diff suppressed because it is too large Load Diff

@ -7,14 +7,14 @@
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="91652">
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="90282">
<assemblyIdentity name="PADM.exe" version="1.0.0.3" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>mpWRY2u8Jg63hf1yMrHCXZfPmY7aa1oDlN6cZJJdb6o=</dsig:DigestValue>
<dsig:DigestValue>lVD2J8hHF6AQyj5WC1t60M4jQ+ENORpJQ/uNzTQ74HM=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -282,30 +282,6 @@
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400">
<assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>kmmLSyM9YCkmP+X33YMDTg/6sJlFHUuInLwRv1o/LXM=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zip.Reduced.dll" size="199680">
<assemblyIdentity name="Ionic.Zip.Reduced" version="1.9.1.5" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>QZ6OokSECmSebDI3ZaIKe51fOypdw8/ELDms3ZYeYKY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zlib.dll" size="102400">
<assemblyIdentity name="Ionic.Zlib" version="1.9.1.8" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
@ -331,14 +307,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8032648">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027528">
<assemblyIdentity name="Microsoft.mshtml" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>tgMNMgyI1wYExBjyAq/P48KMM1se7A/lMwnx1Y9gxT4=</dsig:DigestValue>
<dsig:DigestValue>iImaEsY4Ajoi2RrsoJYZA8vV2qeezV/nnmEYjymY4C4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@ -475,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7397376">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7398400">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>YXJIcKpUpO8/RWlI2BytnaU7OAytwlzXmgcX+D/3pAA=</dsig:DigestValue>
<dsig:DigestValue>4x0BYHqOwZNPC5IiyUUIcPd8CzM82d8zW6OQEUog9ag=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -1,26 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
PropertyGridEx
</name>
</assembly>
<members>
<member name="T:My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>
<?xml version="1.0"?>
<doc>
<assembly>
<name>
PropertyGridEx
</name>
</assembly>
<members>
<member name="T:My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

@ -0,0 +1,578 @@
using System;
using System.Diagnostics;
using System.Drawing;
using System.Windows.Forms;
namespace DPM2016
{
[Microsoft.VisualBasic.CompilerServices.DesignerGenerated()]
public partial class frmMain : Form
{
// Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
[DebuggerNonUserCode()]
protected override void Dispose(bool disposing)
{
try
{
if (disposing && components is not null)
{
components.Dispose();
}
}
finally
{
base.Dispose(disposing);
}
}
// Wird vom Windows Form-Designer benötigt.
private System.ComponentModel.IContainer components;
// 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.
[DebuggerStepThrough()]
private void InitializeComponent()
{
var resources = new System.ComponentModel.ComponentResourceManager(typeof(frmMain));
mnuMain = new MenuStrip();
DateiToolStripMenuItem = new ToolStripMenuItem();
ToolStripMenuItem3 = new ToolStripMenuItem();
ToolStripMenuItem3.Click += new EventHandler(ToolStripMenuItem3_Click);
AbmeldenToolStripMenuItem = new ToolStripMenuItem();
AbmeldenToolStripMenuItem.Click += new EventHandler(AbmeldenToolStripMenuItem_Click);
ÜberDPMToolStripMenuItem = new ToolStripMenuItem();
ÜberDPMToolStripMenuItem.Click += new EventHandler(ÜberDPMToolStripMenuItem_Click);
ToolStripMenuItem7 = new ToolStripSeparator();
ToolsToolStripMenuItem = new ToolStripMenuItem();
DatenbankSicherungErstellenToolStripMenuItem1 = new ToolStripMenuItem();
DatenbankSicherungErstellenToolStripMenuItem1.Click += new EventHandler(DatenbankSicherungErstellenToolStripMenuItem1_Click);
TemporäreVorschaudateienLöschenToolStripMenuItem = new ToolStripMenuItem();
TemporäreVorschaudateienLöschenToolStripMenuItem.Click += new EventHandler(TemporäreVorschaudateienLöschenToolStripMenuItem_Click);
SQLScriptAusführenToolStripMenuItem = new ToolStripMenuItem();
SQLScriptAusführenToolStripMenuItem.Click += new EventHandler(SQLScriptAusführenToolStripMenuItem_Click);
ToolStripMenuItem8 = new ToolStripSeparator();
BeendenToolStripMenuItem = new ToolStripMenuItem();
BeendenToolStripMenuItem.Click += new EventHandler(BeendenToolStripMenuItem_Click);
TestToolStripMenuItem = new ToolStripMenuItem();
TestToolStripMenuItem.Click += new EventHandler(TestToolStripMenuItem_Click);
PatientToolStripMenuItem = new ToolStripMenuItem();
PatientToolStripMenuItem.Click += new EventHandler(PatientToolStripMenuItem_Click);
FirmenToolStripMenuItem = new ToolStripMenuItem();
FirmenToolStripMenuItem.Click += new EventHandler(FirmenToolStripMenuItem_Click);
FinanzenToolStripMenuItem = new ToolStripMenuItem();
RechnungenToolStripMenuItem = new ToolStripMenuItem();
RechnungenToolStripMenuItem.Click += new EventHandler(RechnungenToolStripMenuItem_Click);
RechnungskopienToolStripMenuItem = new ToolStripMenuItem();
RechnungskopienToolStripMenuItem.Click += new EventHandler(RechnungskopienToolStripMenuItem_Click);
ToolStripMenuItem4 = new ToolStripSeparator();
MahnungenToolStripMenuItem = new ToolStripMenuItem();
MahnungenToolStripMenuItem.Click += new EventHandler(MahnungenToolStripMenuItem_Click);
ToolStripMenuItem2 = new ToolStripSeparator();
ZahlungsdateiVerarbeitenToolStripMenuItem = new ToolStripMenuItem();
ZahlungsdateiVerarbeitenToolStripMenuItem.Click += new EventHandler(ZahlungsdateiVerarbeitenToolStripMenuItem_Click);
CAMT054ToolStripMenuItem = new ToolStripMenuItem();
CAMT054ToolStripMenuItem.Click += new EventHandler(CAMT054ToolStripMenuItem_Click);
AuswertungenToolStripMenuItem = new ToolStripMenuItem();
AuswertungenToolStripMenuItem.Click += new EventHandler(AuswertungenToolStripMenuItem_Click);
PruefzifferToolStripMenuItem = new ToolStripMenuItem();
PruefzifferToolStripMenuItem.Click += new EventHandler(PruefzifferToolStripMenuItem_Click);
AuswertungenToolStripMenuItem2 = new ToolStripMenuItem();
AuswertungenToolStripMenuItem2.Click += new EventHandler(AuswertungenToolStripMenuItem2_Click);
StammdatenToolStripMenuItem = new ToolStripMenuItem();
StammdatenToolStripMenuItem.Click += new EventHandler(StammdatenToolStripMenuItem_Click);
ProgrammEinstellungenToolStripMenuItem = new ToolStripMenuItem();
ProgrammEinstellungenToolStripMenuItem.Click += new EventHandler(ProgrammEinstellungenToolStripMenuItem_Click);
TarifToolStripMenuItem = new ToolStripMenuItem();
TarifToolStripMenuItem.Click += new EventHandler(TarifToolStripMenuItem_Click);
MailtexteToolStripMenuItem = new ToolStripMenuItem();
MailtexteToolStripMenuItem.Click += new EventHandler(MailtexteToolStripMenuItem_Click);
AllgEinstellungenToolStripMenuItem = new ToolStripMenuItem();
AllgEinstellungenToolStripMenuItem.Click += new EventHandler(AllgEinstellungenToolStripMenuItem_Click);
KontoToolStripMenuItem = new ToolStripMenuItem();
KontoToolStripMenuItem.Click += new EventHandler(KontoToolStripMenuItem_Click);
ToolStripMenuItem10 = new ToolStripSeparator();
SpaltentitelToolStripMenuItem = new ToolStripMenuItem();
SpaltentitelToolStripMenuItem.Click += new EventHandler(SpaltentitelToolStripMenuItem_Click);
FormulareToolStripMenuItem = new ToolStripMenuItem();
FormulareToolStripMenuItem.Click += new EventHandler(FormulareToolStripMenuItem_Click);
ObjektListerToolStripMenuItem = new ToolStripMenuItem();
ObjektListerToolStripMenuItem.Click += new EventHandler(ObjektListerToolStripMenuItem_Click);
StammdatenToolStripMenuItem1 = new ToolStripMenuItem();
StammdatenToolStripMenuItem1.Click += new EventHandler(StammdatenToolStripMenuItem1_Click);
ToolStripMenuItem6 = new ToolStripSeparator();
DatenbankSicherungErstellenToolStripMenuItem = new ToolStripMenuItem();
DatenbankSicherungErstellenToolStripMenuItem.Click += new EventHandler(DatenbankSicherungErstellenToolStripMenuItem_Click);
ToolStripMenuItem9 = new ToolStripSeparator();
DatenbankSicherungZurückladenToolStripMenuItem = new ToolStripMenuItem();
DatenbankSicherungZurückladenToolStripMenuItem.Click += new EventHandler(DatenbankSicherungZurückladenToolStripMenuItem_Click);
InterneTabellenLöschenToolStripMenuItem = new ToolStripMenuItem();
InterneTabellenLöschenToolStripMenuItem.Click += new EventHandler(InterneTabellenLöschenToolStripMenuItem_Click);
SuchenToolStripMenuItem = new ToolStripMenuItem();
SuchenToolStripMenuItem.Click += new EventHandler(SuchenToolStripMenuItem_Click);
ToolStripMenuItem1 = new ToolStripMenuItem();
cbboxPrinterConfig = new ToolStripComboBox();
cbboxPrinterConfig.SelectedIndexChanged += new EventHandler(cbboxPrinterConfig_SelectedIndexChanged);
DokumenteToolStripMenuItem = new ToolStripMenuItem();
DokumenteToolStripMenuItem.Click += new EventHandler(DokumenteToolStripMenuItem_Click);
FensterToolStripMenuItem = new ToolStripMenuItem();
DruckerToolStripMenuItem = new ToolStripMenuItem();
DruckerToolStripMenuItem.Click += new EventHandler(DruckerToolStripMenuItem_Click);
EncryptToolStripMenuItem = new ToolStripMenuItem();
EncryptToolStripMenuItem.Click += new EventHandler(EncryptToolStripMenuItem_Click);
SepaToolStripMenuItem = new ToolStripMenuItem();
SepaToolStripMenuItem.Click += new EventHandler(SepaToolStripMenuItem_Click);
ToolStripMenuItem5 = new ToolStripMenuItem();
AgendaToolStripMenuItem = new ToolStripMenuItem();
AgendaToolStripMenuItem.Click += new EventHandler(AgendaToolStripMenuItem_Click);
MobileToolStripMenuItem = new ToolStripMenuItem();
KundendatenTransferierenToolStripMenuItem = new ToolStripMenuItem();
KundendatenTransferierenToolStripMenuItem.Click += new EventHandler(KundendatenTransferierenToolStripMenuItem_Click);
Label1 = new Label();
OpenFileDialog1 = new OpenFileDialog();
SaveFileDialog1 = new SaveFileDialog();
mnuMain.SuspendLayout();
SuspendLayout();
//
// mnuMain
//
mnuMain.ImageScalingSize = new Size(20, 20);
mnuMain.Items.AddRange(new ToolStripItem[] { DateiToolStripMenuItem, PatientToolStripMenuItem, FirmenToolStripMenuItem, FinanzenToolStripMenuItem, AuswertungenToolStripMenuItem, StammdatenToolStripMenuItem, SuchenToolStripMenuItem, ToolStripMenuItem1, cbboxPrinterConfig, DokumenteToolStripMenuItem, FensterToolStripMenuItem, DruckerToolStripMenuItem, EncryptToolStripMenuItem, SepaToolStripMenuItem, ToolStripMenuItem5, AgendaToolStripMenuItem, MobileToolStripMenuItem });
mnuMain.Location = new Point(0, 0);
mnuMain.MdiWindowListItem = FensterToolStripMenuItem;
mnuMain.Name = "mnuMain";
mnuMain.Padding = new Padding(4, 2, 0, 2);
mnuMain.Size = new Size(1617, 28);
mnuMain.TabIndex = 0;
mnuMain.Text = "MenuStrip1";
//
// DateiToolStripMenuItem
//
DateiToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { ToolStripMenuItem3, AbmeldenToolStripMenuItem, ÜberDPMToolStripMenuItem, ToolStripMenuItem7, ToolsToolStripMenuItem, ToolStripMenuItem8, BeendenToolStripMenuItem, TestToolStripMenuItem });
DateiToolStripMenuItem.Name = "DateiToolStripMenuItem";
DateiToolStripMenuItem.Size = new Size(46, 24);
DateiToolStripMenuItem.Text = "&Datei";
//
// ToolStripMenuItem3
//
ToolStripMenuItem3.Name = "ToolStripMenuItem3";
ToolStripMenuItem3.Size = new Size(183, 22);
ToolStripMenuItem3.Text = "Datenbank wechseln";
//
// AbmeldenToolStripMenuItem
//
AbmeldenToolStripMenuItem.Name = "AbmeldenToolStripMenuItem";
AbmeldenToolStripMenuItem.Size = new Size(183, 22);
AbmeldenToolStripMenuItem.Text = "Abmelden";
//
// ÜberDPMToolStripMenuItem
//
ÜberDPMToolStripMenuItem.Name = "ÜberDPMToolStripMenuItem";
ÜberDPMToolStripMenuItem.Size = new Size(183, 22);
ÜberDPMToolStripMenuItem.Text = "Über...";
//
// ToolStripMenuItem7
//
ToolStripMenuItem7.Name = "ToolStripMenuItem7";
ToolStripMenuItem7.Size = new Size(180, 6);
//
// ToolsToolStripMenuItem
//
ToolsToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { DatenbankSicherungErstellenToolStripMenuItem1, TemporäreVorschaudateienLöschenToolStripMenuItem, SQLScriptAusführenToolStripMenuItem });
ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem";
ToolsToolStripMenuItem.Size = new Size(183, 22);
ToolsToolStripMenuItem.Text = "Tools";
//
// DatenbankSicherungErstellenToolStripMenuItem1
//
DatenbankSicherungErstellenToolStripMenuItem1.Name = "DatenbankSicherungErstellenToolStripMenuItem1";
DatenbankSicherungErstellenToolStripMenuItem1.Size = new Size(264, 22);
DatenbankSicherungErstellenToolStripMenuItem1.Text = "Datenbank-Sicherung erstellen";
//
// TemporäreVorschaudateienLöschenToolStripMenuItem
//
TemporäreVorschaudateienLöschenToolStripMenuItem.Name = "TemporäreVorschaudateienLöschenToolStripMenuItem";
TemporäreVorschaudateienLöschenToolStripMenuItem.Size = new Size(264, 22);
TemporäreVorschaudateienLöschenToolStripMenuItem.Text = "Temporäre Vorschaudateien löschen";
//
// SQLScriptAusführenToolStripMenuItem
//
SQLScriptAusführenToolStripMenuItem.Name = "SQLScriptAusführenToolStripMenuItem";
SQLScriptAusführenToolStripMenuItem.Size = new Size(264, 22);
SQLScriptAusführenToolStripMenuItem.Text = "SQL-Script ausführen";
//
// ToolStripMenuItem8
//
ToolStripMenuItem8.Name = "ToolStripMenuItem8";
ToolStripMenuItem8.Size = new Size(180, 6);
//
// BeendenToolStripMenuItem
//
BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem";
BeendenToolStripMenuItem.Size = new Size(183, 22);
BeendenToolStripMenuItem.Text = "&Beenden";
//
// TestToolStripMenuItem
//
TestToolStripMenuItem.Name = "TestToolStripMenuItem";
TestToolStripMenuItem.Size = new Size(183, 22);
TestToolStripMenuItem.Text = "test";
TestToolStripMenuItem.Visible = false;
//
// PatientToolStripMenuItem
//
PatientToolStripMenuItem.Image = (Image)resources.GetObject("PatientToolStripMenuItem.Image");
PatientToolStripMenuItem.Name = "PatientToolStripMenuItem";
PatientToolStripMenuItem.Size = new Size(76, 24);
PatientToolStripMenuItem.Text = "Patient";
//
// FirmenToolStripMenuItem
//
FirmenToolStripMenuItem.Image = (Image)resources.GetObject("FirmenToolStripMenuItem.Image");
FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem";
FirmenToolStripMenuItem.Size = new Size(76, 24);
FirmenToolStripMenuItem.Text = "Firmen";
//
// FinanzenToolStripMenuItem
//
FinanzenToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { RechnungenToolStripMenuItem, RechnungskopienToolStripMenuItem, ToolStripMenuItem4, MahnungenToolStripMenuItem, ToolStripMenuItem2, ZahlungsdateiVerarbeitenToolStripMenuItem, CAMT054ToolStripMenuItem });
FinanzenToolStripMenuItem.Image = (Image)resources.GetObject("FinanzenToolStripMenuItem.Image");
FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem";
FinanzenToolStripMenuItem.Size = new Size(86, 24);
FinanzenToolStripMenuItem.Text = "Finanzen";
//
// RechnungenToolStripMenuItem
//
RechnungenToolStripMenuItem.Name = "RechnungenToolStripMenuItem";
RechnungenToolStripMenuItem.Size = new Size(211, 22);
RechnungenToolStripMenuItem.Text = "Rechnungen";
//
// RechnungskopienToolStripMenuItem
//
RechnungskopienToolStripMenuItem.Name = "RechnungskopienToolStripMenuItem";
RechnungskopienToolStripMenuItem.Size = new Size(211, 22);
RechnungskopienToolStripMenuItem.Text = "Rechnungskopien";
//
// ToolStripMenuItem4
//
ToolStripMenuItem4.Name = "ToolStripMenuItem4";
ToolStripMenuItem4.Size = new Size(208, 6);
//
// MahnungenToolStripMenuItem
//
MahnungenToolStripMenuItem.Name = "MahnungenToolStripMenuItem";
MahnungenToolStripMenuItem.Size = new Size(211, 22);
MahnungenToolStripMenuItem.Text = "Mahnungen";
//
// ToolStripMenuItem2
//
ToolStripMenuItem2.Name = "ToolStripMenuItem2";
ToolStripMenuItem2.Size = new Size(208, 6);
//
// ZahlungsdateiVerarbeitenToolStripMenuItem
//
ZahlungsdateiVerarbeitenToolStripMenuItem.Name = "ZahlungsdateiVerarbeitenToolStripMenuItem";
ZahlungsdateiVerarbeitenToolStripMenuItem.Size = new Size(211, 22);
ZahlungsdateiVerarbeitenToolStripMenuItem.Text = "Zahlungsdatei verarbeiten";
//
// CAMT054ToolStripMenuItem
//
CAMT054ToolStripMenuItem.Name = "CAMT054ToolStripMenuItem";
CAMT054ToolStripMenuItem.Size = new Size(211, 22);
CAMT054ToolStripMenuItem.Text = "CAMT054";
CAMT054ToolStripMenuItem.Visible = false;
//
// AuswertungenToolStripMenuItem
//
AuswertungenToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { PruefzifferToolStripMenuItem, AuswertungenToolStripMenuItem2 });
AuswertungenToolStripMenuItem.Image = (Image)resources.GetObject("AuswertungenToolStripMenuItem.Image");
AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem";
AuswertungenToolStripMenuItem.Size = new Size(116, 24);
AuswertungenToolStripMenuItem.Text = "Auswertungen";
//
// PruefzifferToolStripMenuItem
//
PruefzifferToolStripMenuItem.Name = "PruefzifferToolStripMenuItem";
PruefzifferToolStripMenuItem.Size = new Size(151, 22);
PruefzifferToolStripMenuItem.Text = "Pruefziffer";
PruefzifferToolStripMenuItem.Visible = false;
//
// AuswertungenToolStripMenuItem2
//
AuswertungenToolStripMenuItem2.Name = "AuswertungenToolStripMenuItem2";
AuswertungenToolStripMenuItem2.Size = new Size(151, 22);
AuswertungenToolStripMenuItem2.Text = "Auswertungen";
AuswertungenToolStripMenuItem2.Visible = false;
//
// StammdatenToolStripMenuItem
//
StammdatenToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { ProgrammEinstellungenToolStripMenuItem, StammdatenToolStripMenuItem1, ToolStripMenuItem6, DatenbankSicherungErstellenToolStripMenuItem, ToolStripMenuItem9, DatenbankSicherungZurückladenToolStripMenuItem, InterneTabellenLöschenToolStripMenuItem });
StammdatenToolStripMenuItem.Image = (Image)resources.GetObject("StammdatenToolStripMenuItem.Image");
StammdatenToolStripMenuItem.Name = "StammdatenToolStripMenuItem";
StammdatenToolStripMenuItem.Size = new Size(110, 24);
StammdatenToolStripMenuItem.Text = "&Einstellungen";
//
// ProgrammEinstellungenToolStripMenuItem
//
ProgrammEinstellungenToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { TarifToolStripMenuItem, MailtexteToolStripMenuItem, AllgEinstellungenToolStripMenuItem, KontoToolStripMenuItem, ToolStripMenuItem10, SpaltentitelToolStripMenuItem, FormulareToolStripMenuItem, ObjektListerToolStripMenuItem });
ProgrammEinstellungenToolStripMenuItem.Name = "ProgrammEinstellungenToolStripMenuItem";
ProgrammEinstellungenToolStripMenuItem.Size = new Size(254, 22);
ProgrammEinstellungenToolStripMenuItem.Text = "Programm-Einstellungen";
//
// TarifToolStripMenuItem
//
TarifToolStripMenuItem.Name = "TarifToolStripMenuItem";
TarifToolStripMenuItem.Size = new Size(172, 22);
TarifToolStripMenuItem.Text = "Tarif";
//
// MailtexteToolStripMenuItem
//
MailtexteToolStripMenuItem.Name = "MailtexteToolStripMenuItem";
MailtexteToolStripMenuItem.Size = new Size(172, 22);
MailtexteToolStripMenuItem.Text = "Mailtexte";
//
// AllgEinstellungenToolStripMenuItem
//
AllgEinstellungenToolStripMenuItem.Name = "AllgEinstellungenToolStripMenuItem";
AllgEinstellungenToolStripMenuItem.Size = new Size(172, 22);
AllgEinstellungenToolStripMenuItem.Text = "Allg. Einstellungen";
//
// KontoToolStripMenuItem
//
KontoToolStripMenuItem.Name = "KontoToolStripMenuItem";
KontoToolStripMenuItem.Size = new Size(172, 22);
KontoToolStripMenuItem.Text = "Konto";
//
// ToolStripMenuItem10
//
ToolStripMenuItem10.Name = "ToolStripMenuItem10";
ToolStripMenuItem10.Size = new Size(169, 6);
//
// SpaltentitelToolStripMenuItem
//
SpaltentitelToolStripMenuItem.Name = "SpaltentitelToolStripMenuItem";
SpaltentitelToolStripMenuItem.Size = new Size(172, 22);
SpaltentitelToolStripMenuItem.Text = "&Spaltentitel";
//
// FormulareToolStripMenuItem
//
FormulareToolStripMenuItem.Name = "FormulareToolStripMenuItem";
FormulareToolStripMenuItem.Size = new Size(172, 22);
FormulareToolStripMenuItem.Text = "Formulare";
//
// ObjektListerToolStripMenuItem
//
ObjektListerToolStripMenuItem.Name = "ObjektListerToolStripMenuItem";
ObjektListerToolStripMenuItem.Size = new Size(172, 22);
ObjektListerToolStripMenuItem.Text = "ObjektLister";
//
// StammdatenToolStripMenuItem1
//
StammdatenToolStripMenuItem1.Name = "StammdatenToolStripMenuItem1";
StammdatenToolStripMenuItem1.Size = new Size(254, 22);
StammdatenToolStripMenuItem1.Text = "Optionen / Stammdaten";
//
// ToolStripMenuItem6
//
ToolStripMenuItem6.Name = "ToolStripMenuItem6";
ToolStripMenuItem6.Size = new Size(251, 6);
//
// DatenbankSicherungErstellenToolStripMenuItem
//
DatenbankSicherungErstellenToolStripMenuItem.Name = "DatenbankSicherungErstellenToolStripMenuItem";
DatenbankSicherungErstellenToolStripMenuItem.Size = new Size(254, 22);
DatenbankSicherungErstellenToolStripMenuItem.Text = "Datenbank Sicherung erstellen";
//
// ToolStripMenuItem9
//
ToolStripMenuItem9.Name = "ToolStripMenuItem9";
ToolStripMenuItem9.Size = new Size(251, 6);
//
// DatenbankSicherungZurückladenToolStripMenuItem
//
DatenbankSicherungZurückladenToolStripMenuItem.Name = "DatenbankSicherungZurückladenToolStripMenuItem";
DatenbankSicherungZurückladenToolStripMenuItem.Size = new Size(254, 22);
DatenbankSicherungZurückladenToolStripMenuItem.Text = "Datenbank Sicherung zurückladen";
DatenbankSicherungZurückladenToolStripMenuItem.Visible = false;
//
// InterneTabellenLöschenToolStripMenuItem
//
InterneTabellenLöschenToolStripMenuItem.Name = "InterneTabellenLöschenToolStripMenuItem";
InterneTabellenLöschenToolStripMenuItem.Size = new Size(254, 22);
InterneTabellenLöschenToolStripMenuItem.Text = "Interne Tabellen löschen";
//
// SuchenToolStripMenuItem
//
SuchenToolStripMenuItem.Image = (Image)resources.GetObject("SuchenToolStripMenuItem.Image");
SuchenToolStripMenuItem.Name = "SuchenToolStripMenuItem";
SuchenToolStripMenuItem.Size = new Size(78, 24);
SuchenToolStripMenuItem.Text = "Suchen";
//
// ToolStripMenuItem1
//
ToolStripMenuItem1.Name = "ToolStripMenuItem1";
ToolStripMenuItem1.Size = new Size(12, 24);
//
// cbboxPrinterConfig
//
cbboxPrinterConfig.Name = "cbboxPrinterConfig";
cbboxPrinterConfig.Size = new Size(150, 24);
cbboxPrinterConfig.Text = "Druckerprofil...";
//
// DokumenteToolStripMenuItem
//
DokumenteToolStripMenuItem.Name = "DokumenteToolStripMenuItem";
DokumenteToolStripMenuItem.Size = new Size(81, 24);
DokumenteToolStripMenuItem.Text = "Dokumente";
DokumenteToolStripMenuItem.Visible = false;
//
// FensterToolStripMenuItem
//
FensterToolStripMenuItem.Name = "FensterToolStripMenuItem";
FensterToolStripMenuItem.Size = new Size(57, 24);
FensterToolStripMenuItem.Text = "Fenster";
FensterToolStripMenuItem.Visible = false;
//
// DruckerToolStripMenuItem
//
DruckerToolStripMenuItem.Name = "DruckerToolStripMenuItem";
DruckerToolStripMenuItem.Size = new Size(60, 24);
DruckerToolStripMenuItem.Text = "Drucker";
DruckerToolStripMenuItem.Visible = false;
//
// EncryptToolStripMenuItem
//
EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem";
EncryptToolStripMenuItem.Size = new Size(59, 24);
EncryptToolStripMenuItem.Text = "Encrypt";
EncryptToolStripMenuItem.Visible = false;
//
// SepaToolStripMenuItem
//
SepaToolStripMenuItem.Name = "SepaToolStripMenuItem";
SepaToolStripMenuItem.Size = new Size(44, 24);
SepaToolStripMenuItem.Text = "Sepa";
SepaToolStripMenuItem.Visible = false;
//
// ToolStripMenuItem5
//
ToolStripMenuItem5.Name = "ToolStripMenuItem5";
ToolStripMenuItem5.Size = new Size(12, 24);
//
// AgendaToolStripMenuItem
//
AgendaToolStripMenuItem.Name = "AgendaToolStripMenuItem";
AgendaToolStripMenuItem.Size = new Size(60, 24);
AgendaToolStripMenuItem.Text = "Agenda";
AgendaToolStripMenuItem.Visible = false;
//
// MobileToolStripMenuItem
//
MobileToolStripMenuItem.DropDownItems.AddRange(new ToolStripItem[] { KundendatenTransferierenToolStripMenuItem });
MobileToolStripMenuItem.Name = "MobileToolStripMenuItem";
MobileToolStripMenuItem.Size = new Size(56, 24);
MobileToolStripMenuItem.Text = "Mobile";
MobileToolStripMenuItem.Visible = false;
//
// KundendatenTransferierenToolStripMenuItem
//
KundendatenTransferierenToolStripMenuItem.Name = "KundendatenTransferierenToolStripMenuItem";
KundendatenTransferierenToolStripMenuItem.Size = new Size(214, 22);
KundendatenTransferierenToolStripMenuItem.Text = "Kundendaten transferieren";
//
// Label1
//
Label1.AutoSize = true;
Label1.BackColor = Color.SkyBlue;
Label1.Font = new Font("Microsoft Sans Serif", 14.25f, FontStyle.Bold, GraphicsUnit.Point, 0);
Label1.Location = new Point(1116, 3);
Label1.Name = "Label1";
Label1.Size = new Size(72, 24);
Label1.TabIndex = 2;
Label1.Text = "Label1";
//
// OpenFileDialog1
//
OpenFileDialog1.FileName = "OpenFileDialog1";
//
// frmMain
//
AutoScaleDimensions = new SizeF(6.0f, 13.0f);
AutoScaleMode = AutoScaleMode.Font;
ClientSize = new Size(1617, 969);
Controls.Add(Label1);
Controls.Add(mnuMain);
Icon = (Icon)resources.GetObject("$this.Icon");
IsMdiContainer = true;
MainMenuStrip = mnuMain;
Name = "frmMain";
mnuMain.ResumeLayout(false);
mnuMain.PerformLayout();
Load += new EventHandler(frmMain_Load);
FormClosing += new FormClosingEventHandler(frmMain_FormClosing);
Resize += new EventHandler(frmMain_Resize);
Closing += new System.ComponentModel.CancelEventHandler(frmMain_Closing);
ResumeLayout(false);
PerformLayout();
}
internal MenuStrip mnuMain;
internal ToolStripMenuItem DateiToolStripMenuItem;
internal ToolStripMenuItem BeendenToolStripMenuItem;
internal ToolStripMenuItem StammdatenToolStripMenuItem;
internal ToolStripMenuItem StammdatenToolStripMenuItem1;
internal ToolStripMenuItem PatientToolStripMenuItem;
internal ToolStripMenuItem AuswertungenToolStripMenuItem;
internal ToolStripMenuItem PruefzifferToolStripMenuItem;
internal ToolStripMenuItem FinanzenToolStripMenuItem;
internal ToolStripMenuItem RechnungenToolStripMenuItem;
internal ToolStripMenuItem MahnungenToolStripMenuItem;
internal ToolStripMenuItem FirmenToolStripMenuItem;
internal ToolStripMenuItem ToolStripMenuItem1;
internal ToolStripMenuItem DruckerToolStripMenuItem;
internal ToolStripSeparator ToolStripMenuItem2;
internal ToolStripMenuItem ZahlungsdateiVerarbeitenToolStripMenuItem;
internal ToolStripMenuItem AuswertungenToolStripMenuItem2;
internal ToolStripMenuItem AbmeldenToolStripMenuItem;
internal ToolStripMenuItem EncryptToolStripMenuItem;
internal ToolStripMenuItem ToolStripMenuItem3;
internal ToolStripMenuItem SepaToolStripMenuItem;
internal ToolStripComboBox cbboxPrinterConfig;
internal Label Label1;
internal ToolStripMenuItem SuchenToolStripMenuItem;
internal ToolStripMenuItem RechnungskopienToolStripMenuItem;
internal ToolStripSeparator ToolStripMenuItem4;
internal ToolStripMenuItem CAMT054ToolStripMenuItem;
internal ToolStripMenuItem ToolStripMenuItem5;
internal ToolStripMenuItem AgendaToolStripMenuItem;
internal ToolStripMenuItem ÜberDPMToolStripMenuItem;
internal ToolStripSeparator ToolStripMenuItem6;
internal ToolStripMenuItem DatenbankSicherungErstellenToolStripMenuItem;
internal ToolStripMenuItem DatenbankSicherungZurückladenToolStripMenuItem;
internal OpenFileDialog OpenFileDialog1;
internal SaveFileDialog SaveFileDialog1;
internal ToolStripSeparator ToolStripMenuItem7;
internal ToolStripMenuItem ToolsToolStripMenuItem;
internal ToolStripMenuItem DatenbankSicherungErstellenToolStripMenuItem1;
internal ToolStripSeparator ToolStripMenuItem8;
internal ToolStripMenuItem TemporäreVorschaudateienLöschenToolStripMenuItem;
internal ToolStripMenuItem SQLScriptAusführenToolStripMenuItem;
internal ToolStripMenuItem InterneTabellenLöschenToolStripMenuItem;
internal ToolStripMenuItem ProgrammEinstellungenToolStripMenuItem;
internal ToolStripMenuItem SpaltentitelToolStripMenuItem;
internal ToolStripMenuItem FormulareToolStripMenuItem;
internal ToolStripSeparator ToolStripMenuItem9;
internal ToolStripMenuItem ObjektListerToolStripMenuItem;
internal ToolStripMenuItem TarifToolStripMenuItem;
internal ToolStripMenuItem KontoToolStripMenuItem;
internal ToolStripMenuItem MailtexteToolStripMenuItem;
internal ToolStripMenuItem AllgEinstellungenToolStripMenuItem;
internal ToolStripSeparator ToolStripMenuItem10;
internal ToolStripMenuItem FensterToolStripMenuItem;
internal ToolStripMenuItem MobileToolStripMenuItem;
internal ToolStripMenuItem KundendatenTransferierenToolStripMenuItem;
internal ToolStripMenuItem DokumenteToolStripMenuItem;
internal ToolStripMenuItem TestToolStripMenuItem;
}
}

@ -0,0 +1,895 @@
using System;
using System.ComponentModel;
using System.Data;
using System.IO;
using System.Linq;
using System.Windows.Forms;
using Microsoft.VisualBasic;
using Microsoft.VisualBasic.CompilerServices;
namespace DPM2016
{
public partial class frmMain
{
private DPM2016.Generic_Event_Handler evh;
private DPM2016.DPMSecurity sec;
public frmMain()
{
evh = DPM2016.Globals.EVH;
InitializeComponent();
}
// Dim sec As New MySecurity
private void BeendenToolStripMenuItem_Click(object sender, EventArgs e)
{
Close();
}
private void StammdatenToolStripMenuItem_Click(object sender, EventArgs e)
{
}
private void SpaltentitelToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmSysadminTableSelector();
string tablename;
tablename = f.get_tablename();
if (string.IsNullOrEmpty(tablename))
return;
var db = new DPM2016.clsDB();
db.Generate_SpaltenData(tablename);
}
private void StammdatenToolStripMenuItem1_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmStammdaten();
f.MdiParent = this;
f.Show();
}
private void LocalizeString(object sender, DevComponents.DotNetBar.LocalizeEventArgs e)
{
if (e.Key == "monthcalendar_todaybutton")
{
e.LocalizedValue = "Heute";
}
if (e.Key == "monthcalendar_clearbutton")
{
e.LocalizedValue = "Löschen";
}
e.Handled = true;
}
private void ProcessControls(Control ctrlContainer, string ctrlname)
{
foreach (Control ctrl in ctrlContainer.Controls)
{
if ((ctrl.Name ?? "") == (ctrlname ?? ""))
{
ctrl.Visible = false;
}
if (ctrl.HasChildren)
{
ProcessControls(ctrl, ctrlname);
}
}
}
private void frmMain_Load(object sender, EventArgs e)
{
if (DPM2016.My.MySettingsProperty.Settings.SoftwareType == "PADM")
TarifToolStripMenuItem.Text = "Artikel";
DevComponents.DotNetBar.LocalizationKeys.LocalizeString += LocalizeString;
string[] args = Environment.GetCommandLineArgs();
try
{
if (args[1] == "dmstest")
{
DPM2016.My.MySettingsProperty.Settings.TempPath = Application.StartupPath + @"\Demo\";
DPM2016.My.MySettingsProperty.Settings.DocArchivPath = Application.StartupPath + @"\Demo";
DPM2016.My.MySettingsProperty.Settings.ConnectionString = "data source=shu00;initial catalog=shub_padm;;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29";
var db = new DPM2016.clsDB();
db.Get_Spaltendata();
DPM2016.Globals.Spaltendaten = db.dsDaten.Tables[0];
DPM2016.Globals.ActUser = 1;
var f = new DPM2016.dmstest();
f.MdiParent = this;
f.Show();
return;
}
if (args[1] == "PADM")
DPM2016.My.MySettingsProperty.Settings.SoftwareType = "PADM";
}
catch
{
}
DPM2016.Globals.License.Read_LicenseFile(Application.StartupPath + @"\keyfile.key");
if (DPM2016.Globals.License.DemoMode)
{
var f = new DPM2016.frmDemoMode();
f.ShowDialog();
DPM2016.My.MySettingsProperty.Settings.TempPath = Application.StartupPath + @"\Demo";
DPM2016.My.MySettingsProperty.Settings.DocArchivPath = Application.StartupPath + @"\Demo";
DPM2016.Globals.License.Gueltigbis = DateTime.Now.AddDays(30d);
}
if (DPM2016.Globals.License.Gueltigbis < DateTime.Now)
{
Interaction.MsgBox("Ihre Lizenz ist abgelaufen. Sie können diese erneuern.");
Close();
Application.Exit();
return;
}
int ddif;
ddif = (int)DateAndTime.DateDiff(DateInterval.Day, DateTime.Now, DPM2016.Globals.License.Gueltigbis);
if (ddif < 15)
{
Interaction.MsgBox("Achtung. Ihre Lizenz ist noch " + ddif.ToString() + " Tage gültig. Erneuern Sie diese rechtzeitig.", Constants.vbInformation);
}
DPM2016.Globals.Mainweindow = this;
if (check_db_connection())
{
var db1 = new DPM2016.clsDB();
if (Strings.UCase(db1.Get_Option(40000)) == "TRUE")
{
DPM2016.Globals.Applicationtype = DPM2016.Globals.ApplicationTypes.Projektabrechnung;
DPM2016.Globals.Productname = "Projekt Administration";
PatientToolStripMenuItem.Text = "Kunden";
FirmenToolStripMenuItem.Visible = false;
}
if (Strings.UCase(db1.Get_Option(40002)) == "TRUE")
{
DPM2016.Globals.DruckBranche = true;
}
db1.Dispose();
var db = new DPM2016.clsDB();
db.Get_Spaltendata();
DPM2016.Globals.Spaltendaten = db.dsDaten.Tables[0];
if (DPM2016.frmLogin.Check_User())
{
// Dim f As New frmprodukt
// f.Show()
PatientToolStripMenuItem_Click(sender, e);
}
else
{
// Program.splashForm.Visible = False
try
{
}
catch
{
}
DPM2016.Globals.ActUser = -99;
var f = new DPM2016.frmLogin();
f.ShowDialog();
if (f.DialogResult == DialogResult.Abort)
{
Application.Exit();
Close();
return;
}
PatientToolStripMenuItem_Click(sender, e);
}
}
else
{
Interaction.MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", Constants.vbExclamation);
Application.Exit();
Environment.Exit(0);
}
Label1.Text = DPM2016.Globals.Databasename;
Label1.Left = Width - 100 - Label1.Width;
Text = DPM2016.My.MySettingsProperty.Settings.SoftwareType + " - " + DPM2016.Globals.Databasename;
Refresh_Printerconfig();
// sec.Set_Form_Security(Me)
FinanzenToolStripMenuItem.Visible = true;
AuswertungenToolStripMenuItem.Visible = true;
StammdatenToolStripMenuItem.Visible = true;
// sec.Reset_Mainmenu(Me)
// Select Case Globals.Funktionsstufe
// Case 2
// Me.FinanzenToolStripMenuItem.Visible = False
// Me.AuswertungenToolStripMenuItem.Visible = False
// Me.StammdatenToolStripMenuItem.Visible = False
// End Select
Check_Tempdir();
DPM2016.IntTables.Inttables.Tables.Clear();
var db2 = new DPM2016.clsDB();
DPM2016.Globals.MailClient = db2.Get_Option(9805);
DPM2016.Globals.Hide_Gueltig_bis = Strings.UCase(db2.Get_Option(9100)) == "TRUE";
DPM2016.Globals.MenuString = db2.Get_Option(Conversions.ToInteger("9101"));
DPM2016.Globals.Recall_nach_Abschluss = Strings.UCase(db2.Get_Option(9102)) == "TRUE";
DPM2016.Globals.sec = new DPM2016.DPMSecurity();
if (Strings.UCase(db2.Get_Option(60020)) == "TRUE")
{
DPM2016.Globals.UseSecurityObjects = true;
Form argf = this;
DPM2016.Globals.sec.Set_Form_Security(ref argf);
}
if (db2.Get_Option(100000) == "True")
MobileToolStripMenuItem.Visible = true;
else
MobileToolStripMenuItem.Visible = false;
DPM2016.Globals.User_Lagerbestand = db2.Get_Option(Conversions.ToInteger("70010")) == "True";
if (DPM2016.Globals.License.DMS == false)
{
DokumenteToolStripMenuItem.Visible = false;
}
db2 = (DPM2016.clsDB)null;
}
public void Check_Tempdir()
{
string[] splitter;
splitter = DPM2016.My.MySettingsProperty.Settings.TempPath.Split('\\');
string root;
root = splitter[0] + @"\" + splitter[1];
if (!Directory.Exists(root))
{
Directory.CreateDirectory(root);
}
if (splitter.Length > 2)
{
for (int i = 2, loopTo = splitter.Length - 1; i <= loopTo; i++)
{
root = root + @"\" + splitter[i];
if (!Directory.Exists(root))
{
Directory.CreateDirectory(root);
}
}
}
for (int i = 2, loopTo1 = splitter.Length - 2; i <= loopTo1; i++)
{
}
if (!Directory.Exists(DPM2016.My.MySettingsProperty.Settings.TempPath))
{
Directory.CreateDirectory(DPM2016.My.MySettingsProperty.Settings.TempPath);
}
this.Delete_Files(DPM2016.My.MySettingsProperty.Settings.TempPath, 4);
try
{
if (DPM2016.Globals.License.DMS == true)
{
var db = new DPM2016.clsDB();
db.Get_Tabledata("dms", "", "Select * from dms_settings where nreintrag=6");
Delete_Files(Conversions.ToString(db.dsDaten.Tables[0].Rows[0][2]), -1);
}
}
catch
{
}
}
public void Delete_Files(string path, int intervall)
{
try
{
string[] theFiles = Directory.GetFiles(path);
foreach (string currentFile in theFiles)
{
var theFileInfo = new FileInfo(currentFile);
var dateDiff = DateTime.Now.Subtract(theFileInfo.CreationTime.Date);
if (dateDiff.Days >= intervall)
{
File.Delete(currentFile);
}
}
}
catch
{
}
}
public void Refresh_Printerconfig()
{
cbboxPrinterConfig.Items.Clear();
string ppath;
ppath = Application.StartupPath + @"\" + DPM2016.Globals.Auswertungsverzeicnis + @"\PrinterConfig";
var di = new DirectoryInfo(ppath);
cbboxPrinterConfig.Items.Clear();
cbboxPrinterConfig.Items.Add("");
foreach (var fi in di.GetFiles())
cbboxPrinterConfig.Items.Add(fi.Name);
}
public bool check_db_connection()
{
if (File.Exists(Application.StartupPath + @"\Connectionstrings.cfg"))
{
var f = new DPM2016.frmDBConnection();
f.BringToFront();
f.ShowDialog();
if (f.DialogResult == DialogResult.OK)
{
DPM2016.My.MySettingsProperty.Settings.ConnectionString = f.Connectionstring;
DPM2016.Globals.Spaltendaten.Clear();
DPM2016.Globals.SQLStatements.Clear();
DPM2016.IntTables.Inttables.Tables.Clear();
DPM2016.IntTables.orte.Clear();
return true;
}
else
{
return false;
}
}
else
{
return true;
}
}
private void PatientToolStripMenuItem_Click(object sender, EventArgs e)
{
Cursor = Cursors.WaitCursor;
var f = new DPM2016.Patient();
f.MdiParent = this;
f.Show();
f.tsbtnfirst_Click(sender, e);
Cursor = Cursors.Default;
}
private void AuswertungenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmAuswertung();
f.MdiParent = this;
f.Show();
}
private void PruefzifferToolStripMenuItem_Click(object sender, EventArgs e)
{
string a;
a = Interaction.InputBox("Zahl");
Interaction.MsgBox(Pruefziffer(a));
}
public string Pruefziffer(string zahl)
{
string PruefzifferRet = default;
var ptab = new int[10, 10];
var pz = new int[10];
string s1, s2, s3;
long i1, i2;
s1 = "0,9,4,6,8,2,7,1,3,5";
s2 = s1;
for (i1 = 0L; i1 <= 9L; i1++)
{
for (i2 = 0L; i2 <= 9L; i2++)
ptab[(int)i1, (int)i2] = Conversions.ToInteger(Strings.Mid(s2, (int)(i2 * 2L + 1L), 1));
s3 = Strings.Left(s1, 1);
s1 = Strings.Right(s1, Strings.Len(s1) - 2);
s1 = s1 + "," + s3;
s2 = s1;
}
pz[0] = 0;
pz[1] = 9;
pz[2] = 8;
pz[3] = 7;
pz[4] = 6;
pz[5] = 5;
pz[6] = 4;
pz[7] = 3;
pz[8] = 2;
pz[9] = 1;
int i, x, y, z, e;
string xx;
y = 0;
var loopTo = Strings.Len(zahl);
for (i = 1; i <= loopTo; i++)
{
x = (int)Math.Round(Conversion.Val(Strings.Mid(zahl, i, 1)));
y = ptab[x, y];
}
PruefzifferRet = Conversion.Str(pz[y]);
return PruefzifferRet;
}
private void RechnungenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmFakturierung();
f.MdiParent = this;
f.Show();
}
private void AuswertungenToolStripMenuItem1_Click(object sender, EventArgs e)
{
}
private void FirmenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmFirma();
f.MdiParent = this;
f.Show();
}
private void DruckerToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmPrinterselect();
f.MdiParent = this;
f.Show();
}
private void ZahlungsdateiVerarbeitenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmZahlung();
f.MdiParent = this;
f.Show();
}
private void AuswertungenToolStripMenuItem2_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmAuswertung();
f.MdiParent = this;
f.Show();
}
private void AbmeldenToolStripMenuItem_Click(object sender, EventArgs e)
{
if (Interaction.MsgBox("Möchten Sie sich abmelden?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
{
DPM2016.Globals.LogedIn = false;
while (DPM2016.Globals.LogedIn == false)
{
var f = new DPM2016.frmLogin();
f.ShowDialog();
}
Form argf = this;
DPM2016.Globals.sec.Reset_Mainmenu(ref argf);
Form argf1 = this;
DPM2016.Globals.sec.Set_Form_Security(ref argf1);
DruckerToolStripMenuItem.Visible = false;
EncryptToolStripMenuItem.Visible = false;
SepaToolStripMenuItem.Visible = false;
AgendaToolStripMenuItem.Visible = false;
}
}
private void EncryptToolStripMenuItem_Click(object sender, EventArgs e)
{
var db = new DPM2016.clsDB();
db.Get_Tabledata("Privat");
foreach (DataRow r in db.dsDaten.Tables[0].Rows)
{
r["Name"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Name"]), DPM2016.Globals.encryptkey);
r["Vorname"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Vorname"]), DPM2016.Globals.encryptkey);
r["Strasse"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Strasse"]), DPM2016.Globals.encryptkey);
r["PLZ"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["PLZ"]), DPM2016.Globals.encryptkey);
r["Ort"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Ort"]), DPM2016.Globals.encryptkey);
r["Telp"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Telp"]), DPM2016.Globals.encryptkey);
}
db.Update_Data();
}
private void ToolStripMenuItem3_Click(object sender, EventArgs e)
{
foreach (Form frm in MdiChildren)
frm.Close();
frmMain_Load(sender, e);
}
private void SepaToolStripMenuItem_Click(object sender, EventArgs e)
{
}
private void cbboxPrinterConfig_SelectedIndexChanged(object sender, EventArgs e)
{
if (Interaction.MsgBox("Druckereinstellungen anpassen?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
{
string ppath;
ppath = Application.StartupPath + @"\" + DPM2016.Globals.Auswertungsverzeicnis + @"\PrinterConfig\" + cbboxPrinterConfig.Text;
var f = new DPM2016.frmAuswertung();
DPM2016.frmAuswertungen.Chenge_Profile(ppath);
}
}
private void evh_Refresh_PrinterConfig()
{
Refresh_Printerconfig();
}
private void SecurityObjekgeToolStripMenuItem_Click(object sender, EventArgs e)
{
}
private void MahnungenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.Mahnungen();
f.MdiParent = this;
f.Show();
}
private void frmMain_Resize(object sender, EventArgs e)
{
Label1.Left = Width - 100 - Label1.Width;
}
private void SuchenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmSuche();
f.MdiParent = this;
f.Show();
}
private void RechnungskopienToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmRechnungskopien();
f.MdiParent = this;
f.Show();
}
private void CAMT054ToolStripMenuItem_Click(object sender, EventArgs e)
{
// 'Try
// Dim serializer As New XmlSerializer(GetType(Document))
// Dim reader As New IO.StreamReader("E:\Software-Projekte\DPM\CAMT\Dentis 2018-08-15 1531322859509.054\camt.054_SIC_04_038415740520_NN_0384157405201000_20180711_172739509_213.xml")
// Dim xdocument As Document = serializer.Deserialize(reader)
// Dim a As List(Of AccountNotification7) = xdocument.BkToCstmrDbtCdtNtfctn.Ntfctn.ToList
// For Each accountinformation As AccountNotification7 In a
// For Each r4 As ReportEntry4 In accountinformation.Ntry
// For Each ed As EntryDetails3 In r4.NtryDtls
// For Each td As EntryTransaction4 In ed.TxDtls
// MsgBox(td.Amt.Value.ToString)
// MsgBox(td.RmtInf.Strd(0).CdtrRefInf.Ref)
// Try
// MsgBox(td.Chrgs.TtlChrgsAndTaxAmt.Value)
// Catch
// End Try
// Next
// Next
// Next
// Next
// 'For i As Integer = 0 To a.Count - 1
// ' For ii As Integer = 0 To a(i).Ntry.Count - 1
// ' For iii As Integer = 0 To a(i).Ntry(ii).NtryDtls.Count - 1
// ' For iiii As Integer = 0 To a(i).Ntry(ii).NtryDtls
// ' MsgBox(a(i).Ntry(ii).NtryDtls(iii).)
// ' Next
// ' Next
// ' MsgBox(a(i).Ntry(0).NtryDtls
// 'Next
// reader.Close()
// reader.Dispose()
// 'Catch EX As Exception
// 'MsgBox(EX.Message)
// 'End Try
}
private void AgendaToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmAgenda();
f.MdiParent = this;
f.Show();
}
private void ÜberDPMToolStripMenuItem_Click(object sender, EventArgs e)
{
if (DPM2016.Globals.Applicationtype == DPM2016.Globals.ApplicationTypes.Projektabrechnung)
{
var f = new DPM2016.frmDemoMode("Über PADM");
f.ShowDialog();
}
else
{
var f = new DPM2016.frmDemoMode("Über DPM");
f.ShowDialog();
}
}
private void frmMain_Closing(object sender, CancelEventArgs e)
{
if (DPM2016.Globals.Filemanagement.Filecollection.Count > 0)
{
if (Interaction.MsgBox("Sie haben noch Dokumente, welche in Bearbeitung sind. Programm trotzdem beenden?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbNo)
{
e.Cancel = true;
}
}
}
private void DatenbankSicherungErstellenToolStripMenuItem_Click(object sender, EventArgs e)
{
SaveFileDialog1.Filter = "Datenbank-Sicherungen (*.bak)|*.bak";
if (SaveFileDialog1.ShowDialog() == DialogResult.OK)
{
var db = new DPM2016.clsDB();
db.SaveDatabase(SaveFileDialog1.FileName);
}
}
private void DatenbankSicherungZurückladenToolStripMenuItem_Click(object sender, EventArgs e)
{
if (Interaction.MsgBox("Sind Sie sicher, dass Sie einen gespeicherten Datenbestand wieder herstellen möchten?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
{
OpenFileDialog1.Filter = "Datenbank-Sicherungen (*.bak)|*.bak";
if (OpenFileDialog1.ShowDialog() == DialogResult.OK)
{
var db = new DPM2016.clsDB();
db.RestoreDatabase(OpenFileDialog1.FileName);
}
}
}
private void DatenbankSicherungErstellenToolStripMenuItem1_Click(object sender, EventArgs e)
{
Interaction.Shell(Application.StartupPath + @"\sqlbackup.cmd", AppWinStyle.NormalFocus);
}
private void TemporäreVorschaudateienLöschenToolStripMenuItem_Click(object sender, EventArgs e)
{
if (string.IsNullOrEmpty(DPM2016.Globals.PreViewDir))
{
var db = new DPM2016.clsDB();
db.Get_Tabledata("dms", "", "Select * from dms_Settings where nreintrag=6");
DPM2016.Globals.PreViewDir = Conversions.ToString(db.dsDaten.Tables[0].Rows[0][2]);
if (!Directory.Exists(DPM2016.Globals.PreViewDir))
{
Directory.CreateDirectory(DPM2016.Globals.PreViewDir);
}
}
try
{
string directoryName = DPM2016.Globals.PreViewDir;
foreach (var deleteFile in Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly))
{
try
{
File.Delete(deleteFile);
}
catch
{
}
}
}
catch
{
}
}
private void SQLScriptAusführenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmSQLCript();
f.MdiParent = this;
f.Show();
}
private void frmMain_FormClosing(object sender, FormClosingEventArgs e)
{
}
private void InterneTabellenLöschenToolStripMenuItem_Click(object sender, EventArgs e)
{
DPM2016.IntTables.Inttables.Tables.Clear();
}
private void ProgrammEinstellungenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmProgrammeinstellungen();
f.MdiParent = this;
f.Show();
}
private void SpaltentitelToolStripMenuItem_Click_1(object sender, EventArgs e)
{
}
private void FormulareToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmAuswertungen();
f.MdiParent = this;
f.Show();
}
private void SecurityObjekteToolStripMenuItem_Click(object sender, EventArgs e)
{
}
private void ObjektListerToolStripMenuItem_Click(object sender, EventArgs e)
{
var formselector = new DPM2016.frmFormSelector();
formselector.ListForms.Items.Clear();
formselector.ListForms.Items.Add(Name);
foreach (Form x in MdiChildren)
formselector.ListForms.Items.Add(x.Name);
formselector.ShowDialog();
var sec1 = new DPM2016.DPMSecurity();
string s = "";
foreach (object it in formselector.ListForms.SelectedItems)
{
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(it, Name, false)))
{
switch (formselector.DialogResult)
{
case DialogResult.OK:
{
Form argf = this;
s = sec1.List_Form_Controls(ref argf);
break;
}
}
}
else
{
foreach (Form x in MdiChildren)
{
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(x.Name, it, false)))
{
switch (formselector.DialogResult)
{
case DialogResult.OK:
{
s = sec1.List_Form_Controls(ref x);
break;
}
}
}
}
}
}
var f = new DPM2016.frmTexteditor();
f.TextBox1.Text = s;
f.Show();
}
private void TarifToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmProgrammeinstellungen();
f.MdiParent = this;
f.TabControl1.SelectTab(0);
f.Show();
}
private void MailtexteToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmProgrammeinstellungen();
f.MdiParent = this;
f.TabControl1.SelectTab(2);
f.Show();
}
private void AllgEinstellungenToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmProgrammeinstellungen();
f.MdiParent = this;
f.TabControl1.SelectTab(3);
f.Show();
}
private void KontoToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmProgrammeinstellungen();
f.MdiParent = this;
f.TabControl1.SelectTab(1);
f.Show();
}
private void KundendatenTransferierenToolStripMenuItem_Click(object sender, EventArgs e)
{
var mobile = new DPM2016.clsMobile();
mobile.Transfer_Patientenstamm();
}
private void DokumenteToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmDokumentList();
f.MdiParent = this;
f.Show();
}
private void TestToolStripMenuItem_Click(object sender, EventArgs e)
{
var f = new DPM2016.frmrtf();
f.Show();
}
// Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
// Dim formselector As New frmFormSelector
// formselector.ListForms.Items.Clear()
// formselector.ListForms.Items.Add(Me.Name)
// For Each x As Form In Me.MdiChildren
// formselector.ListForms.Items.Add(x.Name)
// Next
// formselector.ShowDialog()
// For Each it As Object In formselector.ListForms.SelectedItems
// If it = Me.Name Then
// Select Case formselector.DialogResult
// Case Windows.Forms.DialogResult.Retry
// sec.Check_Obsoloet(Me)
// Case Windows.Forms.DialogResult.OK
// sec.List_Form_Controls(Me)
// Case Windows.Forms.DialogResult.Ignore
// sec.Delete_Obsoloet(Me)
// End Select
// Else
// For Each x As Form In Me.MdiChildren
// If x.Name = it Then
// Select Case formselector.DialogResult
// Case Windows.Forms.DialogResult.Retry
// sec.Check_Obsoloet(x)
// Case Windows.Forms.DialogResult.OK
// sec.List_Form_Controls(x)
// Case Windows.Forms.DialogResult.Ignore
// sec.Delete_Obsoloet(x)
// End Select
// End If
// Next
// End If
// Next
// Exit Sub
// End Sub
}
}

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>x1Q2HIHLnofYZNJC5mMzrIe7MzgT9IUfB2HFbthf1tg=</dsig:DigestValue>
<dsig:DigestValue>JlgtP6mQAK0P7LHketwjYJOoiMV/bDmCbeUOo603a3E=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -451,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7468544">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7470080">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6N154cXxaJ0gJHr8hKaOsQw77Z7O8BhtbF+HbYtec9Y=</dsig:DigestValue>
<dsig:DigestValue>1AbkfoRrGX8+CGFOn2Jd6Y65KlNysG5zAjlxz2QW3Ss=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -1 +1 @@
42e1a196360c279aec0c2450b37ba8840fac9616
6b61a84e10ea2ffa3a71de4a96674d59b335c6e0

@ -64,10 +64,7 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.frmRechnungskopien.
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.frmAgenda.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.frmcalendar.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.frmSuche.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Release\Google.Protobuf.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Release\MySql.Data.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.Form1.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Release\Ionic.Zip.Reduced.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.clsDokumente.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.dmstest.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Release\DPM2016.DokumentDetail.resources

@ -7,14 +7,14 @@
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="91652">
<dependentAssembly dependencyType="install" codebase="PADM.exe.manifest" size="90282">
<assemblyIdentity name="PADM.exe" version="1.0.0.3" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>mpWRY2u8Jg63hf1yMrHCXZfPmY7aa1oDlN6cZJJdb6o=</dsig:DigestValue>
<dsig:DigestValue>lVD2J8hHF6AQyj5WC1t60M4jQ+ENORpJQ/uNzTQ74HM=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -282,30 +282,6 @@
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400">
<assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>kmmLSyM9YCkmP+X33YMDTg/6sJlFHUuInLwRv1o/LXM=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zip.Reduced.dll" size="199680">
<assemblyIdentity name="Ionic.Zip.Reduced" version="1.9.1.5" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>QZ6OokSECmSebDI3ZaIKe51fOypdw8/ELDms3ZYeYKY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zlib.dll" size="102400">
<assemblyIdentity name="Ionic.Zlib" version="1.9.1.8" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
@ -331,14 +307,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8032648">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Microsoft.mshtml.dll" size="8027528">
<assemblyIdentity name="Microsoft.mshtml" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>tgMNMgyI1wYExBjyAq/P48KMM1se7A/lMwnx1Y9gxT4=</dsig:DigestValue>
<dsig:DigestValue>iImaEsY4Ajoi2RrsoJYZA8vV2qeezV/nnmEYjymY4C4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@ -475,14 +451,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7397376">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PADM.exe" size="7398400">
<assemblyIdentity name="PADM" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>YXJIcKpUpO8/RWlI2BytnaU7OAytwlzXmgcX+D/3pAA=</dsig:DigestValue>
<dsig:DigestValue>4x0BYHqOwZNPC5IiyUUIcPd8CzM82d8zW6OQEUog9ag=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.
Loading…
Cancel
Save