DEFINE VARIABLE pHand AS HANDLE.
DEFINE VARIABLE thand AS HANDLE.
DEFINE VARIABLE hRows AS HANDLE.
DEFINE VARIABLE tth AS HANDLE NO-UNDO.
DEFINE VARIABLE bh AS HANDLE NO-UNDO.
CREATE TEMP-TABLE tth.
tth:ADD-NEW-FIELD("t_ItemNo","integer").
tth:ADD-NEW-FIELD("t_InvID","CHARACTER").
tth:TEMP-TABLE-PREPARE("tthh").
bh = tth:DEFAULT-BUFFER-HANDLE.
FOR EACH foo:
bh:BUFFER-CREATE().
bh:BUFFER-COPY(BUFFER foo:HANDLE).
END.
thand = tth.
RUN xmlspreadmultisheet.p PERSISTENT SET pHand.
RUN StartDocument IN pHand (
"c:\temp\test.xml"). /*where the xml file is located after it was created*/
RUN makeSheet IN pHand (
TABLE-HANDLE thand BY-REFERENCE, /* handle to temp-table */
TRUE, /* Include a header? */
"MySheet") . /* The name of the worksheet */
RUN endDocument IN pHand.
DELETE PROCEDURE pHand.
pHand = ?.