Ir para conteúdo
Fórum Script Brasil
  • 0

Codigo Pra Gerar Arquivo Xml

nandomneto

Perguntado por nandomneto,

 Share

Pergunta

nandomneto

nandomneto

Postado
Postado (editado)

O codigo abaixo eu uso para gerar um arquivo xml.So que presiso que o mesmo seja validada e fique no schema que a ans pede pra mim.Como faço isso em visual basic.não estou conseguindo resolver isso.Quem puder me ajudar o codigo que eu usa é esse descrito abaixo.

Set obxml = CreateObject("microsoft.xmldom")
obxml.async = False

obxml.Load ("C:\tiss.xml")

Set xmlElement = obxml.createProcessingInstruction("xml", " version=""1.0"" encoding=""ISO-8859-1""")
obxml.appendChild xmlElement

Set obraiz = obxml.createElement("mensagemTISS")
obxml.appendChild obraiz

Set objno0 = obxml.createElement("cabecalho")
obraiz.appendChild objno0

Set objno1 = obxml.createElement("indentificacaoTransacao")
objno0.appendChild objno1

Set objinfo = obxml.createElement("tipotransacao")
objinfo.Text = "ENVIO_LOTE_GUIAS"
objno1.appendChild objinfo

Set objinfo = obxml.createElement("sequencialTransacao")
objinfo.Text = "3"
objno1.appendChild objinfo

Set objinfo = obxml.createElement("dataRegistroTransacao")
objinfo.Text = "2007-09-28"
objno1.appendChild objinfo

Set objinfo = obxml.createElement("horaRegistroTransacao")
objinfo.Text = "12:38:00"
objno1.appendChild objinfo

Set objno2 = obxml.createElement("origem")
objno0.appendChild objno2

Set objno3 = obxml.createElement("codigoPrestadornaoperadora")
objno2.appendChild objno3

Set objinfo = obxml.createElement("cpf")
objinfo.Text = "02447550278"
objno3.appendChild objinfo

Set objno3 = obxml.createElement("destino")
objno0.appendChild objno3

Set objinfo = obxml.createElement("registroAns")
objinfo.Text = "323080"
objno3.appendChild objinfo

Set objinfo = obxml.createElement("versaoPadrao")
objinfo.Text = "2.01.02"
objno0.appendChild objinfo

Set objno4 = obxml.createElement("prestadorParaOperadora")
obraiz.appendChild objno4

Set objno5 = obxml.createElement("loteGuias")
objno4.appendChild objno5

Set objinfo = obxml.createElement("numeroLote")
objinfo.Text = "2"
objno5.appendChild objinfo

Set objno6 = obxml.createElement("guias")
objno5.appendChild objno6

Set objno7 = obxml.createElement("guiaFaturamento")
objno6.appendChild objno7

' --------> Inicio do loop

Set objno8 = obxml.createElement("guiaConsulta")
objno7.appendChild objno8


Set objno9 = obxml.createElement("identificacaoguia")
objno8.appendChild objno9

Set objinfo = obxml.createElement("registroAns")
objinfo.Text = "323080"
objno9.appendChild objinfo

Set objinfo = obxml.createElement("dataEmissaoGuia")
objinfo.Text = "2007-08-26"
objno9.appendChild objinfo

Set objinfo = obxml.createElement("numeroGuiaPrestador")
objinfo.Text = "CS590709260000000000"
objno9.appendChild objinfo

Set objinfo = obxml.createElement("numeroGuiaOperadora")
objinfo.Text = "753398530-5"
objno9.appendChild objinfo

Set objno10 = obxml.createElement("beneficiario")
objno8.appendChild objno10

Set objinfo = obxml.createElement("numeroCarteira")
objinfo.Text = "4245693010"
objno10.appendChild objinfo

Set objinfo = obxml.createElement("nomebeneficiario")
objinfo.Text = "DOMINGAS D. ALCANTARA"
objno10.appendChild objinfo

Set objinfo = obxml.createElement("nomePlano")
objinfo.Text = "GEAP SAUDE"
objno10.appendChild objinfo

Set objinfo = obxml.createElement("validadeCarteira")
objinfo.Text = "2008-08-31"
objno10.appendChild objinfo

Set objno11 = obxml.createElement("dadosContratado")
objno8.appendChild objno11

Set objno12 = obxml.createElement("identificacao")
objno11.appendChild objno12

Set objinfo = obxml.createElement("cpf")
objinfo.Text = "02447550278"
objno12.appendChild objinfo

Set objinfo = obxml.createElement("nomeContratado")
objinfo.Text = "IREALVO DE JESUS BRITO"
objno11.appendChild objinfo

Set objno13 = obxml.createElement("enderecoContratado")
objno11.appendChild objno13

Set objinfo = obxml.createElement("tipoLogradouro")
objinfo.Text = "081"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("logradouro")
objinfo.Text = "BOAVENTURA DA SILVA"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("numero")
objinfo.Text = "715"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("codigoIBGEMunicipio")
objinfo.Text = "0150140"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("municipio")
objinfo.Text = "BELEM"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("codigoUf")
objinfo.Text = "PA"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("cep")
objinfo.Text = "6655090"
objno13.appendChild objinfo

Set objinfo = obxml.createElement("numeroCNES")
objinfo.Text = "3994538"
objno11.appendChild objinfo

Set objno14 = obxml.createElement("profissionalExecutante")
objno8.appendChild objno14

Set objinfo = obxml.createElement("nomeProfissional")
objinfo.Text = "IREALVO DE JESUS BRITO"
objno14.appendChild objinfo

Set objno15 = obxml.createElement("conselhoProfissional")
objno14.appendChild objno15

Set objinfo = obxml.createElement("siglaConselho")
objinfo.Text = "CRM"
objno15.appendChild objinfo

Set objinfo = obxml.createElement("numeroConselho")
objinfo.Text = "3456"
objno15.appendChild objinfo

Set objinfo = obxml.createElement("ufConselho")
objinfo.Text = "PA"
objno15.appendChild objinfo

Set objinfo = obxml.createElement("cbos")
objinfo.Text = "06150"
objno14.appendChild objinfo

Set objno16 = obxml.createElement("hipoteseDiagnostica")
objno8.appendChild objno16

Set objno17 = obxml.createElement("CID")
objno16.appendChild objno17

Set objinfo = obxml.createElement("nomeTabela")
objinfo.Text = "CID-10"
objno17.appendChild objinfo

Set objinfo = obxml.createElement("codigoDiagnostico")
objinfo.Text = "M54.2"
objno17.appendChild objinfo

Set objinfo = obxml.createElement("descricaoDiagnostico")
objinfo.Text = "Cervicalgia"
objno17.appendChild objinfo

Set objinfo = obxml.createElement("tipoDoenca")
objinfo.Text = "A"
objno16.appendChild objinfo

Set objno18 = obxml.createElement("tempoReferidoEvolucaoDoenca")
objno16.appendChild objno18

Set objinfo = obxml.createElement("valor")
objinfo.Text = "20"
objno18.appendChild objinfo

Set objinfo = obxml.createElement("unidadeTempo")
objinfo.Text = "D"
objno18.appendChild objinfo

Set objno19 = obxml.createElement("dadosAtendimento")
objno8.appendChild objno19

Set objinfo = obxml.createElement("dataAtendimento")
objinfo.Text = "2007-08-31"
objno19.appendChild objinfo

Set objno20 = obxml.createElement("procedimento")
objno19.appendChild objno20

Set objinfo = obxml.createElement("codTabela")
objinfo.Text = "06"
objno20.appendChild objinfo

Set objinfo = obxml.createElement("codProcedomento")
objinfo.Text = "10101322"
objno20.appendChild objinfo

Set objinfo = obxml.createElement("tipoConsulta")
objinfo.Text = "1"
objno19.appendChild objinfo

Set objinfo = obxml.createElement("tipoSaida")
objinfo.Text = "5"
objno19.appendChild objinfo

Set objno100 = obxml.createElement("epilogo")
obraiz.appendChild objno100

Set objinfo = obxml.createElement("hash")
objinfo.Text = "f429cc1ba626191382b2b01faed1441c"
objno100.appendChild objinfo

obxml.Save ("C:\tiss.xml")
Set obxml = Nothing

Editado por kuroi
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Guest --Marcelo --

Guest --Marcelo --

Postado
Postado (editado)

Amigo, estou com estas mesmas duvidas. Estou começando a gerar este arquivo tb e estou completamente perdido.

Qual foi o tipo que você declarou esse obxml?

Qual componente xml que você referenciou no projeto?

Preciso muito dessas informações.....

Obrigado.

Editado por kuroi
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...