Rebase Develop

2021-04-07 11:23:42 +02:00
parent 8a700d7162
commit 11a8d4b6af
67 changed files with 608 additions and 429 deletions
@@ -43,7 +43,7 @@ Public Class NumberGenerator
    Private _CurrentDay As Boolean
    Private _CurrentDayFormat As String

-    Public Function GetNewNumber(ByVal NGO As NumberGenerator, Optional ByVal _YearString As String = "", Optional _MonthString As String = "")
+    Public Function GetNewNumber(ByVal NGO As NumberGenerator, Optional ByVal _YearString As String = "", Optional _MonthString As String = "") As String
        Dim _NGSemafor As NumberGeneratorSemafor

        If _YearString = "" Or _YearString Is Nothing Then