CREATE BUFFER hBufferTemp
FOR TABLE "TT_ROUTRSUB_TEMP".
CREATE QUERY hQUERY2.
hQUERY2:SET-BUFFERS(hBufferTemp).
hQUERY2:QUERY-PREPARE("FOR EACH " + hBufferTemp:TABLE + " exclusive-lock").
hQUERY2:QUERY-OPEN().
hQUERY2:GET-FIRST().
CREATE BROWSE hBrowse
ASSIGN
QUERY = hQUERY2
/* Set up hBrowse widget ..... */
.
hCol = hBrowse:GET-BROWSE-COLUMN(1).
APPLY "ENTRY" TO hCol.
DEFINE VARIABLE iCmpt AS INTEGER NO-UNDO.
DEFINE VARIABLE hCol AS HANDLE NO-UNDO.
DO iCmpt = 1 TO NUM-ENTRIES(cListData) :
hCol = hBR:GET-BROWSE-COLUMN(iCmpt) .
IF TT1.data[INT(ENTRY(iCmpt, cListData))] <> hCol:SCREEN-VALUE THEN
RUN 01-prc-MajData(TT1.data[INT(ENTRY(iCmpt, cListData))],hCol:SCREEN-VALUE,TT1.data[1],TT1.data[11],INT(ENTRY(iCmpt, cListData))) .
END.