×
Linguagem de Programação ADVPL
Perguntas Salvar XML
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
11 anos 2 semanas atrás #19273
por jrBrittes
Salvar XML foi criado por jrBrittes
Bom dia senhores,
Estou com um problema no momento de salvar u xml ele faz a seguinte coisa:
<OrderResponse>
<OrderResponseHeader>
<OrderResponseNumber>
<BuyerOrderResponseNumber>
1986102-228
</BuyerOrderResponseNumber>
<SellerOrderResponseNumber>
000001
</SellerOrderResponseNumber>
Deveria ficar dessa forma
<OrderResponse>
<OrderResponseHeader>
<OrderResponseNumber>
<BuyerOrderResponseNumber>1986102-228</BuyerOrderResponseNumber>
<SellerOrderResponseNumber>000001</SellerOrderResponseNumber>
O que acontece é que como ele pula essas linhas quando tento validar o xml no padrao xCBL 3.0 nao passa.
fiz alguns testes e notei que sempre ele salva o xml dessa maneira muito entranho.
Alguem ja conseguiu salvar o xml corretamente
Prototipo da Funcao:
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Gera a string XML correspondente ao Objeto³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SAVE ::oXML XMLSTRING cXML
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Cria o diretorio caso nao exista³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
nMakeDir := MAKEDIR( cPath )
If nMakeDir == 0
MSGINFO("Diretorio Criado!")
Endif
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Verifica Existencia do Caminho ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
IF FILE(cPath)
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Salva o Objeto XML Criado em Arquivo Fisico ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SAVE ::oXML XMLFILE cPath +"\"+cArq+".xml" NEWLINE
Endif
Estou com um problema no momento de salvar u xml ele faz a seguinte coisa:
<OrderResponse>
<OrderResponseHeader>
<OrderResponseNumber>
<BuyerOrderResponseNumber>
1986102-228
</BuyerOrderResponseNumber>
<SellerOrderResponseNumber>
000001
</SellerOrderResponseNumber>
Deveria ficar dessa forma
<OrderResponse>
<OrderResponseHeader>
<OrderResponseNumber>
<BuyerOrderResponseNumber>1986102-228</BuyerOrderResponseNumber>
<SellerOrderResponseNumber>000001</SellerOrderResponseNumber>
O que acontece é que como ele pula essas linhas quando tento validar o xml no padrao xCBL 3.0 nao passa.
fiz alguns testes e notei que sempre ele salva o xml dessa maneira muito entranho.
Alguem ja conseguiu salvar o xml corretamente
Prototipo da Funcao:
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Gera a string XML correspondente ao Objeto³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SAVE ::oXML XMLSTRING cXML
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Cria o diretorio caso nao exista³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
nMakeDir := MAKEDIR( cPath )
If nMakeDir == 0
MSGINFO("Diretorio Criado!")
Endif
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Verifica Existencia do Caminho ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
IF FILE(cPath)
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Salva o Objeto XML Criado em Arquivo Fisico ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SAVE ::oXML XMLFILE cPath +"\"+cArq+".xml" NEWLINE
Endif
Por favor Acessar ou Registrar para participar da conversa.
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
11 anos 2 semanas atrás #19274
por jrBrittes
Respondido por jrBrittes no tópico Salvar XML
Ressaltando quando debuga antes de salvar em disco ele cria a Arvore normalmente sendo possivel acrescentar ou deletar Nós e tudo mais, o problema é quando salva em disco.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.087 segundos