Editable browser Export

[philippoommen1]

Dear ALL,
Kindly HELP me TO EXPORT the data TO Excel. My CODE IS working fine WITH regular browser however it IS NOT working WITH Editable browsers.
I have the HANDLE OF a browser vBrwHandle AND a FIRST SELECTED ROW. THEN following CODE work fine WITH the EXPORT.

WHEN I USE an editable browser THEN this VARIABLE lQueryOK never become FALSE AND goes TO an infinite loop. I tried the following TO GET the FOCUS. But NO USE.
/*
REPOSITION browse-vendors TO ROWID current-rec.
browse-vendors:SELECT-FOCUSED-ROW() IN FRAME frame-vendors.
BROWSE browse-vendors:FETCH-SELECTED-ROW(1).
*/
One more thing I noticed IF I SELECT manually MOUSE SELECT click ON the browser this CODE will work fine FOR editable browser. IF ANY rows NOT SELECTED manualy THEN it fails. ANY one face similar problems please HELP me.
lQueryOK = TRUE.
DO WHILE lQueryOK = TRUE:
READKEY PAUSE 0.
IF KEYFUNCTION(lastkey) = "END-ERROR" THEN DO:
vEndError = YES.
RETURN "ERROR".
END.
lQueryOK = vBrwHandle:SELECT-NEXT-ROW() NO-ERROR .

IF ERROR-STATUS:ERROR THEN DO:
opMessage = "Error while selecting next row.".
RETURN "ERROR".
END.
IF lQueryOK THEN DO:
i = i + 1.
RUN p_exportRecord.
IF vEndError = YES THEN RETURN "ERROR".
END.
END.
Regards
PHilip P ommen

 

[mjpowellesq]

To export the browse.
Simply output the browse query to a ms office document.
Use the query output, FOR EACH .. WHERE .. instead of doing this to terminal / VDU, do this to a *.doc / *.xls document. Let MS do the rest - Windows, Excel, Word etc.