ProDataSet

Discussão em 'Progress 4GL' iniciado por bnobertulli, Julho 3, 2009.

  1. bnobertulli

    bnobertulli Sem Pontuação

    Alguém já utilizou e tem algum exemplo de ProDataSet???

    Obrigado,
    bnobertulli, Julho 3, 2009
    #1
  2. sl4v3r

    sl4v3r Membro Participativo

    Opa.....

    Seguem 2 exemplos

    Gerar XML
    Código:
    DEFINE TEMP-TABLE tt-mytable LIKE MYTABLE.
DEFINE DATA-SOURCE srcMytable FOR MYTABLE.
DEFINE DATASET dsMytable FOR tt-mytable.

BUFFER tt-Mytable:ATTACH-DATA-SOURCE(DATA-SOURCE srcMytable:HANDLE).

DATASET dsMytable:FILL().
DATASET dsMytable:WRITE-XML (’FILE’,'myfile.xml’, TRUE).
    For-each
    Código:
    DEFINE TEMP-TABLE tt-Sucursal LIKE SUCURSAL.
DEFINE DATA-SOURCE src-Sucursal FOR SUCURSAL.
DEFINE DATASET ds-Sucursal FOR tt-Sucursal.

BUFFER tt-Sucursal:ATTACH-DATA-SOURCE(DATA-SOURCE src-Sucursal:HANDLE).

DATASET ds-Sucursal:FILL().

BUFFER tt-Sucursal:DETACH-DATA-SOURCE().

FOR EACH tt-Sucursal
NO-LOCK:
DISPLAY tt-Sucursal.cod-sucursal
tt-Sucursal.NOM-SUCURSAL.
END.
    sl4v3r, Julho 27, 2009
    #2

Compartilhe esta Página