Update Akonto bei PADM

2022-10-10 11:35:46 +02:00
parent 69a096a438
commit 8d0d3ffb6d
252 changed files with 2127725 additions and 175536 deletions
--- a/DPM2016/Utils/Globals.vb
+++ b/DPM2016/Utils/Globals.vb
@@ -1,97 +1,99 @@
-Imports System.Math
-Module Globals
-
-    Public sec As DPMSecurity
-    Public UseSecurityObjects As Boolean = False
-
-    Public Seriennummer As String = "1.001.2018"
-    Public Productname As String = "Dental Practice Manager"
-    Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
-    Public Version As String = "1.4.0.2215"
-    Public Versionastaum As String = "20.06.2022"
-
-    Public RGCollection As New Collection
-    Public Spaltendaten As New DataTable
-    Public SQLStatements As New DataTable
-    Public ActUser As Integer = 1
-    Public WithEvents EVH As New Generic_Event_Handler
-    Public OnLoad As Boolean = False
-    Public Mandant As Integer = 1
-    Public Auswertungsverzeicnis As String = "\Default"
-    Public LogedIn As Boolean = False
-    Public FakturaNr As Integer = 0
-    Public HauptfakturaNr As Integer = 0
-    Public DefaultPrinter As String = ""
-    Public Funktionsstufe As Integer = 0
-    Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
-    Public encrypted As Boolean = False
-    Public SecurityDaten As New DataSet
-    Public Mainweindow As Windows.Forms.Form
-    Public Databasename As String
-    Public Rg_Funktionen As New clsFakturaFunktionen
-    Public Filemanagement As New clsfilewatcher
-
-    Public PreViewDir As String = ""
-    Public SaveDir As String = ""
-    Public DokumentDir As String = ""
-    Public pdfCollection As New Collection
-    Public InAbschluss As Integer = 0
-    Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
-    Public Recall_Bei_Abschluss As Boolean = True
-    Public MailClient As String = ""
-    Public IgnorePrint As Boolean = False
-    Public Hide_Gueltig_bis As Boolean = False
-    Public MenuString As String = ""
-    Public Recall_nach_Abschluss As Boolean = False
-    Public User_Lagerbestand As Boolean = False
-
-    '20201231 - Security
-    Public Set_ToolTips As Boolean = False
-
-    Public Enum ApplicationTypes
-        DH = 1
-        Zahnarzt = 2
-        Projektabrechnung = 3
-        Auftragsadministration = 4
-    End Enum
-
-    Public Applicationtype As ApplicationTypes
-
-    Public Enum Taxpunkttyp
-        Privat = 1
-        Suva = 2
-        Minmal = 3
-        Maximal = 4
-        Dentotar = 5
-    End Enum
-
-    Public Function Round5(ByVal inp As String) As String
-        Dim Rappen5 As Double
-        Rappen5 = CDbl(inp)
-        Rappen5 = Round(Rappen5 * 2, 1) / 2
-        Return CStr(Rappen5.ToString("#,##0.00"))
-    End Function
-
-    Public Function FindNode(ByVal _nodeCollection As DevComponents.AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As DevComponents.AdvTree.Node
-        Dim tmpNode As DevComponents.AdvTree.Node
-        For Each _child As DevComponents.AdvTree.Node In _nodeCollection
-            If _child.Tag = SearchVal Then
-
-                Return _child
-            End If
-            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
-            ' Return _child
-            ' End If
-            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
-            If Not tmpNode Is Nothing Then
-                Return tmpNode
-            End If
-        Next
-        Return Nothing
-    End Function
-
-    Function SwissCommercialRound(ByVal input As Decimal) As Decimal
-        Return Math.Round(input * 20D, MidpointRounding.AwayFromZero) * 0.05D
-    End Function
-
-End Module
+Imports System.Math
+Module Globals
+    Public akontobuchung As Boolean = False
+    Public akontoid As Integer
+    Public akontovorschau As Boolean = False
+    Public sec As DPMSecurity
+    Public UseSecurityObjects As Boolean = False
+
+    Public Seriennummer As String = "1.001.2018"
+    Public Productname As String = "Dental Practice Manager"
+    Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
+    Public Version As String = "1.4.0.2215"
+    Public Versionastaum As String = "20.06.2022"
+
+    Public RGCollection As New Collection
+    Public Spaltendaten As New DataTable
+    Public SQLStatements As New DataTable
+    Public ActUser As Integer = 1
+    Public WithEvents EVH As New Generic_Event_Handler
+    Public OnLoad As Boolean = False
+    Public Mandant As Integer = 1
+    Public Auswertungsverzeicnis As String = "\Default"
+    Public LogedIn As Boolean = False
+    Public FakturaNr As Integer = 0
+    Public HauptfakturaNr As Integer = 0
+    Public DefaultPrinter As String = ""
+    Public Funktionsstufe As Integer = 0
+    Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
+    Public encrypted As Boolean = False
+    Public SecurityDaten As New DataSet
+    Public Mainweindow As Windows.Forms.Form
+    Public Databasename As String
+    Public Rg_Funktionen As New clsFakturaFunktionen
+    Public Filemanagement As New clsfilewatcher
+
+    Public PreViewDir As String = ""
+    Public SaveDir As String = ""
+    Public DokumentDir As String = ""
+    Public pdfCollection As New Collection
+    Public InAbschluss As Integer = 0
+    Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
+    Public Recall_Bei_Abschluss As Boolean = True
+    Public MailClient As String = ""
+    Public IgnorePrint As Boolean = False
+    Public Hide_Gueltig_bis As Boolean = False
+    Public MenuString As String = ""
+    Public Recall_nach_Abschluss As Boolean = False
+    Public User_Lagerbestand As Boolean = False
+
+    '20201231 - Security
+    Public Set_ToolTips As Boolean = False
+
+    Public Enum ApplicationTypes
+        DH = 1
+        Zahnarzt = 2
+        Projektabrechnung = 3
+        Auftragsadministration = 4
+    End Enum
+
+    Public Applicationtype As ApplicationTypes
+
+    Public Enum Taxpunkttyp
+        Privat = 1
+        Suva = 2
+        Minmal = 3
+        Maximal = 4
+        Dentotar = 5
+    End Enum
+
+    Public Function Round5(ByVal inp As String) As String
+        Dim Rappen5 As Double
+        Rappen5 = CDbl(inp)
+        Rappen5 = Round(Rappen5 * 2, 1) / 2
+        Return CStr(Rappen5.ToString("#,##0.00"))
+    End Function
+
+    Public Function FindNode(ByVal _nodeCollection As DevComponents.AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As DevComponents.AdvTree.Node
+        Dim tmpNode As DevComponents.AdvTree.Node
+        For Each _child As DevComponents.AdvTree.Node In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+    Function SwissCommercialRound(ByVal input As Decimal) As Decimal
+        Return Math.Round(input * 20D, MidpointRounding.AwayFromZero) * 0.05D
+    End Function
+
+End Module