Perguntas IMPORTAR XML
- davidjackpaiva
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 153
- Obrigados Recebidos: 0
8 anos 9 meses atrás #30043
por davidjackpaiva
Respondido por davidjackpaiva no tópico IMPORTAR XML
Isso mesmo, este xml vem de um sistema SAP, e começa a tag com 'nm:nfeproc' , alterei o seu xml aqui e processou a importação...
eu nao manjo neste caso... vou quebrar a cabeça neste fim de semana...
espero que alguem possa nos ajudar.
eu nao manjo neste caso... vou quebrar a cabeça neste fim de semana...
espero que alguem possa nos ajudar.
Por favor Acessar ou Registrar para participar da conversa.
- eliveltons
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 53
- Obrigados Recebidos: 0
8 anos 9 meses atrás #30044
por eliveltons
Respondido por eliveltons no tópico IMPORTAR XML
David, que isso agradeço a ajuda ja ajudou muito!!!!
Por favor Acessar ou Registrar para participar da conversa.
- davidjackpaiva
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 153
- Obrigados Recebidos: 0
8 anos 9 meses atrás #30051
por davidjackpaiva
Respondido por davidjackpaiva no tópico IMPORTAR XML
Brother, segue anexo o prenotaxml corrigido. Testei aqui e funcionou legal. Testa ai e me fala se deu certo.
so precisou acrescentar a linha em azul...
nTamFile := fSeek(nHdl,0,2)
fSeek(nHdl,0,0)
cBuffer := Space(nTamFile) // Variavel para criacao da linha do registro para leitura
nBtLidos := fRead(nHdl,@cBuffer,nTamFile) // Leitura do arquivo XML
fClose(nHdl)
cBuffer := StrTran(cBuffer,"nm:","") //retira o 'nm:' do cbuffer. variavel que armazena a leitura do xml - david j g paiva 01/02/16
cAviso := ""
cErro := ""
oNfe := XmlParser(cBuffer,"_",@cAviso,@cErro)
Private oNF
If Type("oNFe:_NfeProc")<> "U"
oNF := oNFe:_NFeProc:_NFe
Else
if Type("oNFe:_Nfe")<> "U"
oNF := oNFe:_NFe
Else
MsgAlert("Este arquivo nao possui a estrutura de NFe para a importação!","Atencao!")
PutMV("MV_PCNFE",lPcNfe)
Return
Endif
Endif
so precisou acrescentar a linha em azul...
nTamFile := fSeek(nHdl,0,2)
fSeek(nHdl,0,0)
cBuffer := Space(nTamFile) // Variavel para criacao da linha do registro para leitura
nBtLidos := fRead(nHdl,@cBuffer,nTamFile) // Leitura do arquivo XML
fClose(nHdl)
cBuffer := StrTran(cBuffer,"nm:","") //retira o 'nm:' do cbuffer. variavel que armazena a leitura do xml - david j g paiva 01/02/16
cAviso := ""
cErro := ""
oNfe := XmlParser(cBuffer,"_",@cAviso,@cErro)
Private oNF
If Type("oNFe:_NfeProc")<> "U"
oNF := oNFe:_NFeProc:_NFe
Else
if Type("oNFe:_Nfe")<> "U"
oNF := oNFe:_NFe
Else
MsgAlert("Este arquivo nao possui a estrutura de NFe para a importação!","Atencao!")
PutMV("MV_PCNFE",lPcNfe)
Return
Endif
Endif
Por favor Acessar ou Registrar para participar da conversa.
- eliveltons
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 53
- Obrigados Recebidos: 0
8 anos 9 meses atrás #30054
por eliveltons
Respondido por eliveltons no tópico IMPORTAR XML
Boa tarde Vitor!!!!
Funcionou perfeitamente!!!
Obrigado!!!!
Funcionou perfeitamente!!!
Obrigado!!!!
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.121 segundos