' Version Date: 25.09.2020
Function SerialNumberExists(SerialNumber)
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set Grid = mywin.Controls.Item(GRID_ID).Grid
	
	SerialNumberExists = False
	
	For Row = 1 To Grid.LineCount
		CurrentSerialNumber = Grid.GetCellValue(Row, COLUMN_SERIALNUMBER)
		
		If SerialNumber = CurrentSerialNumber Then
			SerialNumberExists = True
			Exit For
		End If
	Next
End Function