You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
98 lines
3.4 KiB
98 lines
3.4 KiB
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
|