38 lines
1.4 KiB
Plaintext
38 lines
1.4 KiB
Plaintext
' TestHasFreeArticleRow(ArticleNumber : String)
|
|
' ----------------------------------------------------------------------------
|
|
' Sucht die nächste freie Zeile für eine gescannte Seriennummer
|
|
'
|
|
' Returns: TestHasFreeArticleRow : Boolean
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 25.09.2020 / JJ
|
|
' Version Date / Editor: 25.09.2020 / JJ
|
|
' Version Number: 4.0.0.0
|
|
|
|
Function TestHasFreeArticleRow(ArticleNumber)
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = mywin.Controls.Item(GRID_ID).Grid
|
|
Dim NextFreeRow : NextFreeRow = False
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "Getting next free row for Article: " & ArticleNumber
|
|
ShowDebugBox "TestHasFreeArticleRow"
|
|
End If
|
|
|
|
For GridIndex = 1 To Grid.LineCount
|
|
CurrentArticleNumber = Grid.GetCellValue(GridIndex, COLUMN_ARTICLENUMBER)
|
|
CurrentSerialNumber = Grid.GetCellValue(GridIndex, COLUMN_SERIALNUMBER)
|
|
|
|
If UCase(ArticleNumber) = UCase(CurrentArticleNumber) And Len(CurrentSerialNumber) = 0 Then
|
|
NextFreeRow = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
TestHasFreeArticleRow = NextFreeRow
|
|
End Function
|