From 6155a9365a7d6b3014e4c5e8375dba42d8738086 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 13 Oct 2020 14:22:31 +0200
Subject: [PATCH] fix GetNextRunningNumber when no running exists yet

---
 WinLineArtikelnummerGenerator/Winline.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/WinLineArtikelnummerGenerator/Winline.vb b/WinLineArtikelnummerGenerator/Winline.vb
index 8ec9326..8fe2f71 100644
--- a/WinLineArtikelnummerGenerator/Winline.vb
+++ b/WinLineArtikelnummerGenerator/Winline.vb
@@ -127,7 +127,7 @@ Public Class Winline
                 Dim oNewRunningNumber = Integer.Parse(oDbResult) + 1
                 Return oNewRunningNumber.ToString.PadLeft(3, "0")
             ElseIf IsNothing(oDbResult) OrElse IsDBNull(oDbResult) Then
-                Throw New ApplicationException(NO_RUNNING_NUMBER_FOUND)
+                Return 1.ToString.PadLeft(3, "0")
             Else
                 Throw New ApplicationException(UNKNOWN_ERROR)
             End If