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