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 = "15.12.2023"

    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
    Public DruckBranche As Boolean = False
    Public is_stammdatenen_firma As Boolean = False
    '20201231 - Security
    Public Set_ToolTips As Boolean = False

    Public Stammdaten_Geladen As Boolean = False
    Public LeistungenLoaded 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