Re: listview sequential read

Posted by Grant Foraker on January 15, 2010 at 07:44:40:

In Reply to: Re: listview sequential read posted by Barbara Brazil on January 14, 2010 at 16:16:01:

Decided to add a counter to track the number of items in the LISTVIEW. And change the DO/LOOP to a FOR/NEXT.

------------------------------------------------------------------------------------------------------------
UpdateClearedChecks:
IF UCOUNT EQ 0
LET MBMSG$ = "No Cleared Checks were selected for updating."
MSGBOX(MBMSG$)
GOTO UCC90
Endif
cosCtlId = IDC.LISTVIEW.02
cosItemId = 0 ! Start with first item

FOR UI = 1 TO UCOUNT
Gosub COS.ListView.GetItem
ListItem = cosItemID

cosSubItem = 0 ! get check number
Gosub COS.ListView.GetItemText

LET CHKNO$ = SUB(cosCtlText$,1,8)
LET CHKNO$ = PAD(CHKNO$)

LET N20KEY$ = TORG$ + TGLNO$ + CHKNO$
LET EXREC$ = N20KEY$
EXTRACT (N20,1420) KEY = N20KEY$

cosSubItem = 1 ! get cleared date
Gosub COS.ListView.GetItemText
LET CKCLRDT$ = SUB(cosCtlText$,1,10) ! SET CLEARED DATE
LET CKCLR$ = 'C' ! SET CLEARED FLAG
WRITE (N20,1420) KEY = N20KEY$

!-------------- DELETED FROM CLEARED LIST -----------------------------
cosCtlId = IDC.LISTVIEW.02
GOSUB COS.ListView.DeleteItem
NEXT UI
UCC90:
LET UCOUNT = 0
RETURN

Follow Ups:

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.