21 lines
536 B
Plaintext
21 lines
536 B
Plaintext
Function SerialNumberExists(SerialNumber)
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = mywin.Controls.Item(GRID_ID).Grid
|
|
|
|
SerialNumberExists = False
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "Checking existence of SerialNumber: " & SerialNumber
|
|
ShowDebugBox "SerialNumberExists"
|
|
End If
|
|
|
|
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
|