clsDivFnkt.Generate_Key Method clsDivFnkt.Generate_Key Method EDKB12WS.clsDivFnkt.Generate_Key Method Generate_Key Method topic_0000000000000038 EDKB12WS.clsDivFnkt.Generate_Key EDKB12WS.clsDivFnkt.Generate_Key clsDivFnkt.Generate_Key EDKB12WS.clsDivFnkt.clsDivFnkt.Generate_Key EDKB12WS.clsDivFnkt.Generate_Key EDKB12WS (in EDKB12WS.exe) clsDivFnkt.Generate_Key Method EDKB12WS.clsDivFnkt topic_0000000000000038
clsDivFnkt.Generate_Key Method

Assembly: EDKB12WS (in EDKB12WS.exe)
Visual Basic
Public Function Generate_Key() As ]]>Stringa]]>]]>
C#
public ]]>stringa]]>]]> Generate_Key()
C++
public:
]]>Stringa]]>]]>^ Generate_Key()
JScript
public function Generate_Key() : ]]>Stringa]]>]]>;
$END-IFNOTEMPTY$
Visual Basic Copy CodeCopy 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
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see ]]>System Requirementsa]]>]]>.
.NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0
 .NET Compact Framework Supported in: 3.5, 2.0, 1.0
 XNA Framework Supported in: 3.0, 2.0, 1.0
Reference clsDivFnkt ClassclsDivFnkt Class
clsDivFnkt clsDivFnkt MembersclsDivFnkt clsDivFnkt Members