select item from open check

[nvak]

How can i select an item from check through isl code on micros 3700?

VAR CheckItemIndex : N2
VAR DetailsRow : N2
VAR CheckItems[64] : N10
VAR CheckItemsCount : N2

CheckItemsCount = 0
CheckItemIndex = 1

DetailsRow = 1
WINDOW 8, 75, "TEST WINDOW"
DISPLAY DetailsRow, 2, "CHECK ITEMS"
//dtl_type I Info, M Item, D Discount, S ServiceCharge, T Tender/Media, R ReferenceNumber, C CA Detail
FOR i = 1 TO @numdtlt
IF @DTL_TYPE = "M" //AND BIT(@DTL_STATUS, 5) = 0
DetailsRow = DetailsRow + 1
DISPLAY DetailsRow, 2, @DTL_NAME, " ", @DTL_OBJNUM, " ", @DTL_TYPE, " ", @DTL_TYPEDEF, " S: ", @DTL_STATUS
CheckItems[CheckItemIndex] = @DTL_OBJNUM
CheckItemIndex = CheckItemIndex + 1
CheckItemsCount = CheckItemsCount + 1
ENDIF
ENDFOR

//I want to select an item here (for example the 2nd one) and perform a discount

LOADDBKYBDMACRO 545 // this is a predefined macro for 100% discount
thank you

 

[hosehead78]

Add all the times you want to select from into an Array, then use an input window to display the results as a list with numbers to select from.