Ajuda com XML

[Nelson Arcas]

Pessoal, bom dia

Estou precisando gerar algumas informações em formato xml, utilizei a função Cursortoxml mas não consegui gerar as informações no formato exigido.
Estou colocando uma figura com um exemplo com a forma exigida para melhor entender e quem puder ajudar.

[Você precisa estar registrado e conectado para ver esta imagem.]

[Marcos Guedes]

Veja se esta função lhe ajuda:

Código:

*!* Cursor teste
CREATE CURSOR teste (campo1 c(30), campo2 c(30), campo3 c(30))
INSERT INTO teste VALUES ("1", "2", "3")
INSERT INTO teste VALUES ("a", "b", "c")

*!* Executa a função
m.geraxml("teste","teste.xml")

*!* Fecha o cursor
USE IN SELECT("teste")

PROCEDURE geraxml AS void
   LPARAMETERS nometabela AS STRING, nomearquivoXML AS STRING
   *!*
   LOCAL arquivotemp AS STRING
   LOCAL conteudo AS STRING
   *!*
   m.arquivotemp = SYS(2015)+".txt"
   *!*
   CURSORTOXML(m.nometabela,m.arquivotemp,1,512,0)
   m.conteudo = FILETOSTR(m.arquivotemp)
   m.conteudo = STREXTRACT(m.conteudo,"<VFPData>","</VFPData>")
   m.conteudo = "<veiculo-array>" + m.conteudo + "</veiculo-array>"
   *!*
   DELETE FILE (m.arquivotemp)
   *!*
   STRTOFILE(m.conteudo,FORCEEXT(m.nomearquivoXML,"xml"))
ENDPROC

[alceu11]

Nelson vou postar mais um exemplo.
Nao sei se isto mais a intencao e o ajudar

O PADRÃO OFICIAL USADO HOJE E O XML SCHEMA (ABREVIADO COMO XSD ou XS )

EXEMPLO: CRIAR UM XML USANDO UMA TABELA NO VFP8.0, VFP9.0

CREATE table empresas(codigo n(6), nome c(30))
SELECT empresas
INSERT INTO empresas( codigo,nome) VALUES (1,'ABRASIL empresa Ltda')


GERANDO OS DADOS E O ESQUEMA JUNTOS( inline schema), colocando o #OOPS#to parâmetro “1”.

CURSORTOXML('empresas','geraxml', 1, 0 , 0 , '1')



O XML GERADO ESTA ARMAZENADO NA VARIAVEL geraXML TRANSFORMANDO O MESMO EM UM CURSOR novoXML

XMLTOCURSOR('geraXML', 'novoXML')

Browse

*************************

[Nelson Arcas]

Valeu Marcos/Alceu

Fiz os testes aqui e consegui resolver o problema. Inclusive validei o arquivo na aplicação da policia federal. (GESP)

Resolvido

[jrmalafaia]

Valeu...
vou dar uma olhada.