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.