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.
29 lines
1.1 KiB
29 lines
1.1 KiB
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
|
|
|