1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Dica para trabalhar com BrOffice em Progress

Discussão em 'Sugestões e Diversos' iniciado por Ivone, Março 12, 2013.

  1. Ivone

    Ivone Membro Participativo

    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.

Compartilhe esta Página