Criar arquivo XML

boa noite

Pessoal,

Estou precisando exportar algumas informações so que em layout xml, alguem poderia me passar um exemplo de como criar um arquivo em xml. Como criar no! Enfim.

Muito Obrigado

Qual a versão do Progress que usa?

a versão é 10.1b !!!

obrigado

Veja o método "Write-XML".

Voce tem algum exemplo para me passar?

Código:

def temp-table tt_Artigos no-undo

    field   mst_codart  as char
    field   mst_descr1  as char
    field   mst_descr2  as char.

/**/

for each    st_armaz    where
            st_armaz.arm_cod = 50 and
            st_armaz.arm_qtexreal <> 0 no-lock,
    
    each    st_mestr of st_armaz where
            st_mestr.mst_precovenda <> 0 no-lock

    by      st_mestr.mst_codart.

    /**/

    create tt_Artigos.
    assign
        tt_Artigos.mst_codart = st_mestr.mst_codart
        tt_Artigos.mst_descr1 = st_mestr.mst_descr1
        tt_Artigos.mst_descr2 = st_mestr.mst_descr2.

end.

/* TT -> xml */

TEMP-TABLE tt_Artigos:write-xml ("FILE", "c:/temp/Artigos.xml",true,?,?,false,false,?).
                    /* write-xml(cTargetType, cFile, lFormatted, cEncoding,  cSchemaLocation, lWriteSchema, lMinSchema). */




MESSAGE "OK!"
    VIEW-AS ALERT-BOX INFO BUTTONS OK.