Module: Reorg / Cleanup

archive/Modules/Sicherungen/Modules_20230623/Packtisch/SerialNumberMatches.vbs

@@ -0,0 +1,76 @@
+' Version Date: 05.01.2021
+Function SerialNumberMatches(ArticleNumber, SerialNumber)
+	HasError = False
+
+	SQL = ""
+	SQL = SQL & "(C002 = '" & ArticleNumber & "')"
+	' Nach Mandant und Wirtschaftsjahr filtern
+	SQL = SQL & SQLQuery_BasicWhere
+
+	Set ResultMainArticle = CWLStart.CurrentCompany.SearchRecord(TABLE_21, SQL)
+	
+	If ResultMainArticle.RowCount > 0 Then
+		SerialNumberPattern = ResultMainArticle.Value("C222")
+	End If
+
+	If DEBUG_ON = True Then
+		AddDebugLine "Preparing Regex Check. " & vbNewline
+		AddDebugLine "SerialNumber: " & SerialNumber
+		AddDebugLine "SerialNumberPattern: " & SerialNumberPattern
+		AddDebugLine "ArticleNumber: " & ArticleNumber
+		
+		ShowDebugBox "SerialNumberMatches"
+	End If
+	
+	If Len(SerialNumberPattern) > 0 And Len(SerialNumber) > 0 Then	
+	
+		Set SerialNumberRegex = New Regexp		
+		SerialNumberRegex.Pattern = SerialNumberPattern
+		SerialNumberRegex.IgnoreCase = False
+		SerialNumberRegex.Global = False	
+						
+		Set RegexMatch = SerialNumberRegex.Execute(SerialNumber)	
+		
+		If RegexMatch.Count > 0 Then
+		
+			Set FirstMatch = RegexMatch.Item(0)
+		
+			If DEBUG_ON = True Then
+				AddDebugLine "Checked Serialnumber against Regex. (1/2)" & vbNewline
+				AddDebugLine "FirstMatch.Length: " & FirstMatch.Length
+				AddDebugLine "Len(SerialNumber): " & Len(SerialNumber)
+				AddDebugLine "FirstMatch.FirstIndex: " & FirstMatch.FirstIndex
+				
+				ShowDebugBox "SerialNumberMatches"
+			End If	
+			
+			If FirstMatch.Length = Len(SerialNumber) And FirstMatch.FirstIndex = 0 Then
+				HasError = False		
+			Else
+				HasError = True
+			End If
+			
+			If DEBUG_ON = True Then
+				AddDebugLine "Checked Serialnumber against Regex. (2/2)" & vbNewline
+				AddDebugLine "Result: " & SerialNumberRegex.Test(SerialNumber) 
+				AddDebugLine "Serialnumber: " & SerialNumber
+				AddDebugLine "Regex: " & SerialNumberPattern
+				
+				ShowDebugBox "SerialNumberMatches"
+			End If
+		
+		Else	
+			HasError = True		
+		End If
+	Else
+		HasError = True	
+	End If
+	
+	If HasError = True Then
+		SerialNumberMatches = False
+	Else
+		SerialNumberMatches = True
+	End If
+End Function
+
+