Visual Basic

Copy Code

 Public Function Generate_Key() As String
    Dim dbkey As New edokadb.clsMyKey_Tabelle()
    Dim key As Long
    Dim skey As String
    Dim s As String
 
    dbkey.cpMainConnectionProvider = Globals.conn
    conn.OpenConnection()
    key = dbkey.get_dbkey("dokument")
    conn.CloseConnection(True)
    skey = "OFFEDK000"
 
    s = Str(Year(Now))
    While Microsoft.VisualBasic.Left(s, 1) = " "
        s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
    End While
    skey = skey + s
 
    s = Str(key)
    While Microsoft.VisualBasic.Left(s, 1) = " "
        s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
    End While
 
    While Len(s) < 8
        s = "0" + s
    End While
    skey = skey + s
 
    s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
    While Microsoft.VisualBasic.Left(s, 1) = " "
        s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
    End While
    skey = skey + s
    Generate_Key = skey
 End Function