From 6b2c0b696b5e1fc94dde9c3e48003923deb30c7f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 22 Sep 2020 16:46:41 +0200 Subject: [PATCH] Version 1.1.0.2 --- WinLineArtikelnummerGenerator/Winline.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/WinLineArtikelnummerGenerator/Winline.vb b/WinLineArtikelnummerGenerator/Winline.vb index 6a6015d..9f9e8c5 100644 --- a/WinLineArtikelnummerGenerator/Winline.vb +++ b/WinLineArtikelnummerGenerator/Winline.vb @@ -121,7 +121,7 @@ Public Class Winline Try Dim oGroupCode As String = GroupId.ToString.PadLeft(2, "0") Dim oVersionCode As String = VersionId.ToString.PadLeft(2, "0") - Dim oDbResult = _Winline.GetScalarValue($"SELECT MAX(CONVERT(INT, C223)) FROM v021 WHERE c010 LIKE '{VendorCode}{oGroupCode}{oVersionCode}___'") + Dim oDbResult = _Winline.GetScalarValue($"SELECT MAX(CONVERT(INT, SUBSTRING(c010, 7, 3))) FROM v021 WHERE c010 LIKE '{VendorCode}{oGroupCode}{oVersionCode}___'") If IsNumeric(oDbResult) Then Dim oNewRunningNumber = Integer.Parse(oDbResult) + 1