16.01.24

2024-01-16 09:44:48 +01:00
parent 0a01bf59ef
commit 6131948f2a
13 changed files with 223 additions and 61 deletions
--- a/EnvelopeGenerator.Common/Helpers.vb
+++ b/EnvelopeGenerator.Common/Helpers.vb
@@ -39,6 +39,11 @@ Public Class Helpers

    End Function

+    Public Shared Function GetAccessCode() As String
+        Return Guid.NewGuid().ToString("d").Substring(1, 6).ToUpper()
+    End Function
+
+
    Public Shared Function ColorTypeToColor(pColorType As ColorType) As Color
        Select Case pColorType
            Case ColorType.ReceiverColor1