Dica para trabalhar com BrOffice em Progress

DEF VAR LIST-PLAN AS C INIT "PLAN1,PLAN2".

DEF VAR OBJ-SERVICE AS COM-HANDLE.
DEF VAR OBJ-DESKTOP AS COM-HANDLE.
DEF VAR OBJ-WORK AS COM-HANDLE.
DEF VAR OBJ-PLAN AS COM-HANDLE EXTENT 40.
DEF VAR OBJ-WORKCOL AS COM-HANDLE.
DEF VAR OBJ-COL AS COM-HANDLE.
DEF VAR CC AS RAW.
DEF VAR OLINBORDA AS COM-HANDLE.

def var loop as int.
def var iLinha as int.
def var iCol as int.

CREATE "com.sun.star.ServiceManager" OBJ-SERVICE.
OBJ-DESKTOP = OBJ-SERVICE:createinstance("com.sun.star.frame.Desktop").
OBJ-WORK = OBJ-DESKTOP:loadComponentFromURL("file:///c:/teste.ots","_blank",0,cc).

def temp-table tt-relatorio
field codigo as int
field nome as char format "X(30)"
field data as date.


do loop = 1 to 10.
create tt-relatorio.
assign
tt-relatorio.codigo = loop
tt-relatorio.nome = "Fulano-" + string(loop)
tt-relatorio.data = today + loop.
end.