Fórum Criação de arquivo xml #544627

03/02/2016

0

Delphi

Olá pessoal, boa noite!!!

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

Lindolfo Junior

Responder

Posts

03/02/2016

Rodolpho Silva

Como você está criando esse xml?
Responder

Gostei + 0

03/02/2016

Lindolfo Junior

Ola Rodolpho!! pelos exemplos que achei estou tentando usar o xmlDocument
Responder

Gostei + 0

03/02/2016

Rodolpho Silva

Tente assim:

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;
Responder

Gostei + 0

03/02/2016

Lindolfo Junior

eu copiei a procedure toda e esta dizendo que o createnode não esta declarada... e deu access violation na linha de comentários...
Responder

Gostei + 0

04/02/2016

Natanael Ferreira

Adicione XMLIntf, XMLDoc na uses do form.

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;
Responder

Gostei + 0

02/03/2016

Anderson Possamai

Ola LINDOLFO JUNIOR, tambem estou tentando criar algo para gerar o TISS em delphi, mas nao sei quase nada de xml e estou totalmente perdido do que eu tenho que fazer em relacao ao TISS.
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
Responder

Gostei + 0

02/03/2016

Lindolfo Junior

possamai, boa noite!!

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...
Responder

Gostei + 0

03/03/2016

Lindolfo Junior

Olá pessoal, eu continuo amarrado no esquema do xml, agora eu achei um exemplo que parece ser algo que preciso, porém, esta sendo declarado a variável :

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
Responder

Gostei + 0

04/03/2016

Lindolfo Junior

Pessoal, acho que consegui achar o fio da meada, porém tenho dois problemas, o primeiro é que não consigo atribuir um valor a um childnode simples tipo :


<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
Responder

Gostei + 0

04/03/2016

Anderson Possamai

Eu estou ainda comparando os campos com nosso banco pra ver o que me falta, quando comecar o xml vou postando tambem... mas ja ajudou um pouco esse codigo amigo
Responder

Gostei + 0

04/03/2016

Lindolfo Junior

Eu estou ainda comparando os campos com nosso banco pra ver o que me falta, quando comecar o xml vou postando tambem... mas ja ajudou um pouco esse codigo amigo

possamai, na verdade ja estou quase finalizando o arquivo, só to com esses problemas que preciso achar a solução, aí ja era
Responder

Gostei + 0

04/03/2016

Anderson Possamai

junior, o problema é que nao sei nem por onde comecar, tipo a primeira coisa que tenho que fazer? se puder me adicionar no skype anderson-possamai-8 ou email possamai.eti@gmail.com, qria trocar algumas ideias...

abracos
Responder

Gostei + 0

17/08/2016

Bfidelis

junior, o problema é que nao sei nem por onde comecar, tipo a primeira coisa que tenho que fazer? se puder me adicionar no skype anderson-possamai-8 ou email possamai.eti@gmail.com, qria trocar algumas ideias...

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
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar