Imports System.IO
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Reflection

'''<summary>Diverse allgemeine Funktionen</summary>
'''<remarks>Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus
'''diversen anderen Klassen genutzt werden.$EOL$ 
'''<para>Die Instanzierung der Klasse erfolgt über das Module <see
'''cref="Globals">Globals.vb</see></para></remarks>
'''<seealso cref="Globals.DivFnkt">Globals.DivFnkt</seealso>
Public Class clsDivFnkt
    '''<summary>Generieren der EDOKA-DokumentID</summary>
    '''<remarks>Diese Methode generiert eine neue eindeutige, 22-stellige
    '''EDOKA-Dokumentid.   $EOL$
    '''<para>Die Letzte ziffer ist eine Prüfziffer</para></remarks>
    '''<returns>DokumentID für EDOKA</returns>
    '''<seealso
    '''cref="clsDivFnkt.Pruefziffer">Prüfziffer-Berechnung</seealso>
 

    Public Function ApplicationPath() As String
        'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function

End Class