Particionar XML (LOTE) em vários XML de Notas Fiscais

[EANDRIOLI]

Senhores,

Temos uma Prefeitura que gera apenas um arquivo XML quando se pede pra baixar várias notas fiscais de serviços.

Minha pergunta é se alguém conhece algum aplicativo que abra esse arquivo XML único e gere as notas fiscais em arquivos independentes ?

Saudações,

ERASMO ANDRIOLI

[JoséQuintas]

Talvez estudando o XML e criando sua própria rotina.
Provavelmente cada nota tem seu bloco, com início e final, tipo <NOTA></NOTA>.
Então a rotina iria pegar o conteúdo de cada um desses blocos.

[alxsts]

Olá!

Exatamente: crie sua própria rotina, utilizando a classe TXmlDocument() e outras relacionadas. Pesquise exemplos no fórum.

[rochinha]

Amiguinhos,

Verifique, pesquise e teste:

Código: Selecionar todos

cFile    := cXMLFile
cXMLDoc := MemoRead( cXMLFile )
   
if MsgYesNo( "Tem certeza da importacao deste arquivo?" )

   oXMLDoc := TOLEAUTO():New( "Microsoft.XMLDOM" )
   // __XHARBOUR__ oXMLDoc := CreateObject( "Microsoft.XMLDOM" )
   // __HARBOUR__  oXMLDoc := Win_OleCreateObject( "Microsoft.XMLDOM" )

   oXMLDoc:async := .f. 

   lSuccess := oXMLDoc:load( cXMLFile ) // Caso nao carregue direto coloque cXMLDoc

   if lSuccess

      xNotas := oXMLDoc:getElementsByTagName( "nota" )

      for iNotas = 1 to xNotas:length

          cNotas := xNotas:Item(iNotas-1):xml

          // Seu Codigo

      next

   endif

endif