Criação de arquivo xml
03/02/2016
0
estou precisando criar um arquivo xml para fazer uma integração, porém, não estou conseguindo fazer algumas linhas, como por exemplo os comentários, segue abaixo um modelo do cabeçalho do xml que preciso criar..
<!-- edited with XMLSpy v2011 sp1 (http://www.altova.com) by EndUser (free.org) --> <schema targetNamespace="http://www.ans.gov.br/padroes/tiss/schemas" elementFormDefault="qualified"> <!--VERSÃO TISS 3.02.01 - TissGuiasv3_02_01 --> <!-- <include schemaLocation="http://www.ans.gov.br/padroes/tiss/schemas/tissSimpleTypesV3_00_00.xsd"/> <include schemaLocation="http://www.ans.gov.br/padroes/tiss/schemas/tissComplexTypesV3_00_00.xsd"/> --> <include schemaLocation="tissAssinaturaDigital_v1.01.xsd"/> <include schemaLocation="tissSimpleTypesV3_02_01.xsd"/> <include schemaLocation="tissComplexTypesV3_02_01.xsd"/>
alguém pode me dar uma luz com relação a isso??
Lindolfo Junior
Posts
03/02/2016
Lindolfo Junior
03/02/2016
Rodolpho Silva
procedure criarComentario; var noRaiz,noComComentario : IXMLNode; documento: IXMLDocument; begin documento := TXMLDocument.Create(nil); noRaiz:= documento.DocumentElement.CreateNode('noraiz); noComComentario := noRaiz.OwnerDocument.CreateNode('', ntComment); noComComentario .NodeValue := 'seus comentarios'; noRaiz.ChildNodes.Add(noComComentario ); end;
03/02/2016
Lindolfo Junior
04/02/2016
Natanael Ferreira
Teste este código:
procedure criarComentario; var documento: IXMLDocument; begin with documento do begin documento := TXMLDocument.Create(nil); Active := True; DocumentElement := CreateNode('noraiz', ntElement); DocumentElement.AddChild('noraiz').Text := 'Nó filho'; ChildNodes.Add(CreateNode('seus comentarios...', ntComment)); SaveToFile('Arquivo2.xml'); end; end;
02/03/2016
Anderson Possamai
O que eu tenho que gerar? Um xml para cada guia disponivel pela ANS?
Como faco para gerar esse cabecalho no padrao que eles querem? tenho que copiar das guias que fiz download na ANS?
Qualquer resposta ja me ajuda.
segue skype: anderson-possamai-8
02/03/2016
Lindolfo Junior
eu também estou quebrando a cabeça aqui, mas pelo que entendi a ANS disponibiliza um padrão de deverá ser utilizado pelo convênio médico, aí, no meu caso, estou trabalhando pra fazer a liberação da guia de consulta pelo meu sistema, mas to apanhando pacas... kkkkkkkk
assim que tiver novidades vou postando...
03/03/2016
Lindolfo Junior
msg3 : IXMLMensagemTISS;
só que não consigo achar o componente que libera a mesma, só pra lembrar estou usando delphi6 com FB..
desde já obrigado a quem puder ajudar.
Junior
04/03/2016
Lindolfo Junior
<versaoPadrao>3.02.01</versaoPadrao> *************** certo ************************
<versaoPadrao> ****************************************************************************************************************
<versaoPadrao>3.02.01</versaoPadrao> ****************************** errado *****************************************
</versaoPadrao> ***************************************************************************************************************
o segundo é um for que estou fazendo e não esta executando certo, da uma olhada:
// S - Procedimentos Solicitados ProcedSolic := GuiaSolic.ChildNodes['guiaSolicitacaoSP-SADT']; ProcedSolic.ChildNodes['procedimentosSolicitados']; For nItens := 1 to 2 do begin // T - Lista de Procedimentos Proced := ProcedSolic.ChildNodes['procedimentosSolicitados']; Proced.ChildNodes['procedimento']; Proced.ChildNodes['procedimento'].AddChild('codigoTabela').NodeValue := '22'; Proced.ChildNodes['procedimento'].AddChild('codigoProcedimento').NodeValue := '10101012'; Proced.ChildNodes['procedimento'].AddChild('descricaoProcedimento').NodeValue := 'CONSULTA EM CONSULTORIO (NO HORARIO NORMAL OU PREESTABELECID'; // U - Quantidade Solicitada Qtdade := ProcedSolic.ChildNodes['procedimentosSolicitados']; Qtdade.ChildNodes['quantidadeSolicitada']; end; // Encerra o for // V - Observação Obs := GuiaSolic.ChildNodes['guiaSolicitacaoSP-SADT']; Obs.ChildNodes['observacao'];
esta é parte do código que fiz, pra gerar isso :
<procedimento>
<codigoTabela>22</codigoTabela>
<codigoProcedimento>10101012</codigoProcedimento>
<descricaoProcedimento>CONSULTA EM CONSULTORIO (NO HORARIO NORMAL OU PREESTABELECID</descricaoProcedimento>
</procedimento>
<quantidadeSolicitada>1</quantidadeSolicitada>
<procedimento>
<codigoTabela>22</codigoTabela>
<codigoProcedimento>40101010</codigoProcedimento>
<descricaoProcedimento>ECG CONVENCIONAL DE ATE 12 DERIVACOES</descricaoProcedimento>
</procedimento>
<quantidadeSolicitada>1</quantidadeSolicitada>
só que quando eu mando executar, não esta fechando a tag <procedimentos> e nem colocando a quantidade entre um item e outro..
acredito que seja algo simples pra quem tem experiencia em xml, mas estou me batendo com o esse bicho..... hehehehe
desde já agradeço a ajuda de todos...
Junior
04/03/2016
Anderson Possamai
04/03/2016
Lindolfo Junior
possamai, na verdade ja estou quase finalizando o arquivo, só to com esses problemas que preciso achar a solução, aí ja era
04/03/2016
Anderson Possamai
abracos
17/08/2016
Bfidelis
abracos
Colegas estou com um problema também, não sei nada de xml, estou usando delphi 5 e preciso criar um arquivo, não sei nem pra onde ir, podem me ajudar? me adicionem no email bfidelis@gmail.com
Clique aqui para fazer login e interagir na Comunidade :)