Página 1 de 1
Particionar XML (LOTE) em vários XML de Notas Fiscais
Enviado: 10 Ago 2015 12:26
por 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
PARTICIONAR XML (LOTE) em vários XML de NOTAS FISCAIS
Enviado: 11 Ago 2015 17:45
por 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.
PARTICIONAR XML (LOTE) em vários XML de NOTAS FISCAIS
Enviado: 11 Ago 2015 18:54
por alxsts
Olá!
Exatamente: crie sua própria rotina, utilizando a classe TXmlDocument() e outras relacionadas. Pesquise exemplos no fórum.
PARTICIONAR XML (LOTE) em vários XML de NOTAS FISCAIS
Enviado: 13 Ago 2015 12:29
por 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