Importação de arquivo XML (Nota Fiscal eletronica)

por **coconaithy** em 7/10/2011, 15:31

Srs, boa tarde.

alguem pode me ajudar, estou precisando fazer uma rotina para importar arquivo XML da nota fiscal eletronica.

já li alguns topicos, mais ainda não conseguir ter sucesso.

por **jeffersondpr** em 7/10/2011, 16:02

Colega, segue um exemplo de como importar o xml, não esta completo mais tem me atendido.

me passa o seu email para que eu envie um exemplo pois não estou conseguindo anexa-lo.

Abraço.

por **coconaithy** em 7/10/2011, 16:06

Jefferson, segue o e-mail, [Você precisa estar registrado e conectado para ver este link.]

obrigado

por **alceu11** em 7/10/2011, 16:57

Mandei um para o teu email, agora sobre o dropbox, no pen drive vc nao respondeu, se ja testou esta alternativa?

por **coconaithy** em 8/10/2011, 07:46

Alceu, desculpe, não testei pelo Pen driver.

Descobrir esta ferramenta dropbox por acaso, pois precisavar disponibilizar um sistema onde tenho um parente em outra cidade que precisava acessa a base de dados, então tinha pensado sobre um disco virtual.

existe também outra solução,
Não sei seu IP de internet é fixo, se for faz um teste em uma tabela com seguinte comando "use \\seu ip\sua tabela dbf" e depois da um brow, desta forma também funciona mais fica lento.

por **coconaithy** em 8/10/2011, 13:48

Alceu, boa tarde.

não recebi o exemplo por e-mail.

é possivel retrasmitir?

por **alceu11** em 8/10/2011, 14:21

tem certeza? Deus msg de erro és ou verifica ndo nó foram tem exemplo. prpvure tópicos natialia

por **coconaithy** em 8/10/2011, 14:55

Realmente não recebi.

verifiquei até no lixo eletronico.

se possivel, pode enviar para [Você precisa estar registrado e conectado para ver este link.]

por **mauro victoria** em 8/10/2011, 16:28

-- coconaithy boa tarde estou enviando para o seu email um formulario no qual localizo o aquivo xml e importo as informaçoes para o meu bando de dados

quase to rotina ou grande parte dela foi fornecida pelo colaboradores do forum, no qual eu sou muito grato.

Qualquer duvida e so falar.

Um abraço, espero ter ajudado.

Mauro Victoria.

************************* Aqui esta o botão de importação

Código:: WITH THISFORM IF EMPTY (.warquivo.VALUE) MESSAGEBOX("Nenhum arquivo selecionado.",48+0+0," Atenção !!!") .botao2.SETFOCUS RETURN .F. ENDIF IF EMPTY (.wfirma.VALUE) MESSAGEBOX("Nenhum Firma selecionada.",48+0+0," Atenção !!!") .botao3.SETFOCUS RETURN .F. ENDIF IF EMPTY (.wcodcli.VALUE) MESSAGEBOX("Preenchimento do Depositante é obrigatório.",48+0+0," Atenção !!!") .botao4.SETFOCUS RETURN .F. ENDIF IF EMPTY (.westoque.VALUE) MESSAGEBOX("Preenchimento da Data de Entrada no Estoque é obrigatório.",48+0+0," Atenção !!!") .westoque.SETFOCUS RETURN .F. ENDIF warquivo=ALLTRIM(.warquivo.VALUE) wcodcli =.wcodcli.VALUE cfile =FILETOSTR('&WARQUIVO') winscricao=VAL(STREXTRACT(cfile,'<emit><CNPJ>','</CNPJ>',1)) SELECT clientes SET ORDER TO codigo SEEK wcodcli IF EOF() MESSAGEBOX("Cliente inexistente.",48+0+0," Atenção !!!") .botao4.SETFOCUS RETURN .F. ENDIF .winscr_cli.VALUE=INT(clientes.inscricao) .winscr_xml.VALUE=INT(winscricao) IF .winscr_xml.VALUE#.winscr_cli.VALUE MESSAGEBOX("CNPJ da nota fiscal eletrônica diferente do Depositante.",48+0+0," Atenção !!!") .botao4.SETFOCUS RETURN .F. ENDIF wntfiscal =RIGHT(STREXTRACT(cfile,'<cNF>','</cNF>',1),10) wntfiscal =PADL(ALLTRIM(STR(VAL(wntfiscal),10)),10,'0') wcodcli_nfe=wcodcli+wntfiscal * veriricar se a nfe ja existe SELECT entradas SET ORDER TO codcli_nfe SEEK wcodcli_nfe IF FOUND() MESSAGEBOX("Nota fiscal eletrônica já importada.",48+0+0," Atenção !!!") .botao2.SETFOCUS RETURN .F. ENDIF wcodigo="" DO WHILE .T. SELECT registro IF meulock() REPLACE entestoq WITH entestoq+1 wcodigo=PADL(ALLTRIM(STR(entestoq,10)),10,'0') ENDIF UNLOCK SELECT entradas SET ORDER TO regentra SEEK wcodigo IF EOF() EXIT ENDIF ENDDO * SELECT entradas APPEND BLANK REPLACE regentra WITH wcodigo REPLACE DATA WITH DATE() REPLACE firma WITH .wfirma.VALUE REPLACE nfirma WITH .wnfirma.VALUE REPLACE codcli WITH clientes.codigo REPLACE cliente WITH clientes.NOME REPLACE apelido WITH clientes.apelido REPLACE codcli_nfe WITH wcodcli_nfe wntfiscal=RIGHT(STREXTRACT(cfile,'<nNF>','</nNF>',1),10) wntfiscal=PADL(ALLTRIM(STR(VAL(wntfiscal),10)),10,'0') REPLACE ntfiscal WITH wntfiscal REPLACE danfe WITH SUBSTR(STREXTRACT(cfile,'<infNFe versao="2.00" Id="','>',1),4,44) IF EMPTY(danfe) REPLACE danfe WITH SUBSTR(STREXTRACT(cfile,'<infNFe versao="1.10" Id="','>',1),4,44) ENDIF REPLACE serie WITH (STREXTRACT(cfile,'<serie>','</serie>',1)) REPLACE modelo WITH (STREXTRACT(cfile,'<mod>','</mod>',1)) REPLACE tiponf WITH (STREXTRACT(cfile,'<tpNF>','</tpNF>',1)) REPLACE emitente WITH "1" REPLACE tpemis WITH (STREXTRACT(cfile,'<tpEmis>','</tpEmis>',1)) REPLACE indpag WITH (STREXTRACT(cfile,'<indPag>','</indPag>',1)) wcfop=(STREXTRACT(cfile,'<CFOP>','</CFOP>',1)) REPLACE cfop WITH SUBSTR(wcfop,1,1)+"."+SUBSTR(wcfop,2,3) REPLACE ncfop WITH (STREXTRACT(cfile,'<natOp>','</natOp>',1)) REPLACE frete WITH (STREXTRACT(cfile,'<modFrete>','</modFrete>',1)) wemissao=(STREXTRACT(cfile,'<dEmi>','</dEmi>',1)) wano=SUBSTR(wemissao,1,4) wmes=SUBSTR(wemissao,6,2) wdia=SUBSTR(wemissao,9,2) yemissao=CTOD(wdia+"/"+wmes+"/"+wano) REPLACE emissao WITH yemissao REPLACE entrada WITH DATE() REPLACE estoque WITH .westoque.VALUE REPLACE mesano WITH wmes+"/"+wano REPLACE base_icms WITH VAL((STREXTRACT(cfile,'<vBC>','</vBC>',1))) REPLACE base_subs WITH VAL((STREXTRACT(cfile,'<vBCST>','</vBCST>',1))) REPLACE vlr_produ WITH VAL((STREXTRACT(cfile,'<vProd>','</vProd>',1))) REPLACE desconto WITH VAL((STREXTRACT(cfile,' <vDesc>','</vDesc>',1))) REPLACE vlr_icms WITH VAL((STREXTRACT(cfile,'<vICMS>','</vICMS>',1))) *replace vlr_icms2 WITH (STREXTRACT(cfile,'<indPag>','</indPag>',1)) REPLACE vlr_subs WITH VAL((STREXTRACT(cfile,' <vST>','</vST>',1))) REPLACE vlr_frete WITH VAL((STREXTRACT(cfile,'<vFrete>','</vFrete>',1))) REPLACE vlr_outras WITH VAL((STREXTRACT(cfile,'<vOutro>','</vOutro>',1))) REPLACE vlr_seguro WITH VAL((STREXTRACT(cfile,'<vSeg>>','</vSeg>',1))) REPLACE tot_nota WITH VAL((STREXTRACT(cfile,'<vNF>','</vNF>',1))) REPLACE vlr_ipi WITH VAL((STREXTRACT(cfile,'<vIPI>','</vIPI>',1))) REPLACE vlr_cofins WITH VAL((STREXTRACT(cfile,'<vCOFINS>','</vCOFINS>',1))) REPLACE vlr_pis WITH VAL((STREXTRACT(cfile,'<vPIS>','</vPIS>',1))) REPLACE qtdprod WITH VAL((STREXTRACT(cfile,'<qVol>','</qVol>',1))) REPLACE esp WITH (STREXTRACT(cfile,'<esp>','</esp>',1)) REPLACE pesol WITH (STREXTRACT(cfile,'<pesoL>','</pesoL>',1)) REPLACE pesob WITH (STREXTRACT(cfile,'<pesoB>','</pesoB>',1)) REPLACE nfatura WITH .wnfatura.VALUE REPLACE periodo_1 WITH .wperiodo_1.VALUE REPLACE periodo_2 WITH .wperiodo_2.VALUE wregentra=regentra TABLEUPDATE(.T.) SELECT lanentra N=1 FOR i =1 TO 300 IF STREXTRACT(cfile,'<det nItem="','">',N)=ALLTRIM(STR(N)) wcodprod =(STREXTRACT(cfile,'<cProd>','</cProd>',N)) wligararq1=ALLTRIM(wcodprod)+"-"+ALLTRIM(wcodcli) SELECT produtos SET ORDER TO ligararq1 SEEK wligararq1 IF EOF() DO WHILE .T. SELECT registro IF meulock() REPLACE produto WITH produto+1 wregprod=PADL(ALLTRIM(STR(produto,10)),10,'0') ENDIF UNLOCK SELECT produtos SET ORDER TO registro SEEK wregprod IF EOF() EXIT ENDIF ENDDO SELECT produtos APPEND BLANK REPLACE codcli WITH clientes.codigo REPLACE cliente WITH clientes.NOME REPLACE apelido WITH clientes.apelido REPLACE codigo WITH wregprod REPLACE codpfor WITH (STREXTRACT(cfile,'<cProd>','</cProd>',N)) REPLACE nompfor WITH (STREXTRACT(cfile,'<xProd>','</xProd>',N)) REPLACE registro WITH wregprod REPLACE NOME WITH (STREXTRACT(cfile,'<xProd>','</xProd>',N)) REPLACE unidade WITH (STREXTRACT(cfile,'<uCom>','</uCom>',N)) REPLACE codgncm WITH (STREXTRACT(cfile,'<NCM>','</NCM>',N)) REPLACE origem WITH (STREXTRACT(cfile,'<orig>','</orig>',N)) REPLACE cst WITH (STREXTRACT(cfile,'<CST>>','</CST>',N)) REPLACE modbc WITH (STREXTRACT(cfile,'<modBC>','</modBC>',N)) REPLACE cson WITH (STREXTRACT(cfile,'<CSOSN>','</CSOSN>',N)) REPLACE regnatur WITH " " REPLACE natureza WITH " " REPLACE descrnatu WITH " " REPLACE cadastro WITH DATE() REPLACE ativo WITH "S" REPLACE ligararq WITH ALLTRIM(codigo)+"-"+ALLTRIM(codcli) REPLACE ligararq1 WITH ALLTRIM(codpfor)+"-"+ALLTRIM(codcli) wvlrunitar=(STREXTRACT(cfile,'<vUnCom>','</vUnCom>',N)) wvlrunitar=VAL(CHRTRAN(wvlrunitar,'.',',')) REPLACE valor WITH wvlrunitar TABLEUPDATE(.T.) ENDIF wquantidad=(STREXTRACT(cfile,'<qCom>','</qCom>',N)) wquantid=VAL(CHRTRAN(wquantidad,'.',',')) SELECT produtos SET ORDER TO ligararq1 SEEK ALLTRIM(wligararq1) IF FOUND() IF meulock() REPLACE quantid WITH wquantid UNLOCK ENDIF ENDIF DO WHILE .T. SELECT registro IF meulock() REPLACE sequencia WITH sequencia+1 wsequencia=sequencia ENDIF UNLOCK SELECT lanentra SET ORDER TO sequencia SEEK wsequencia IF EOF() EXIT ENDIF ENDDO DO WHILE .T. SELECT registro IF meulock() REPLACE lote WITH lote+1 wlote=PADL(ALLTRIM(STR(lote,10)),10,'0') ENDIF UNLOCK SELECT lanentra SET ORDER TO lote SEEK wlote IF EOF() EXIT ENDIF ENDDO * SELECT lanentra APPEND BLANK REPLACE lote WITH wlote REPLACE ativo WITH "S" REPLACE regentra WITH wregentra REPLACE lote WITH wlote REPLACE sequencia WITH wsequencia REPLACE DATA WITH entradas.DATA REPLACE entrada WITH entradas.entrada REPLACE datcancel WITH entradas.datcancel REPLACE firma WITH entradas.firma REPLACE estoque WITH entradas.estoque REPLACE emissao WITH entradas.emissao REPLACE codcli WITH entradas.codcli REPLACE cliente WITH entradas.cliente REPLACE apelido WITH entradas.apelido REPLACE ntfiscal WITH entradas.ntfiscal REPLACE serie WITH entradas.serie REPLACE subserie WITH entradas.subserie REPLACE cfop WITH entradas.cfop REPLACE mesano WITH PADL(ALLTRIM(STR(MONTH(DATA),2)),2,'0')+"/"+PADL(ALLTRIM(STR(YEAR(DATA),4)),4,'0') REPLACE codcli_nfe WITH wcodcli_nfe REPLACE codpfor WITH (STREXTRACT(cfile,'<cProd>','</cProd>',N)) REPLACE nompfor WITH (STREXTRACT(cfile,'<xProd>','</xProd>',N)) REPLACE codncm WITH (STREXTRACT(cfile,'<NCM>','</NCM>',N)) REPLACE NOME WITH produtos.NOME REPLACE codigo WITH produtos.codigo REPLACE registro WITH produtos.registro REPLACE regnatur WITH produtos.regnatur REPLACE natureza WITH produtos.natureza REPLACE descrnatu WITH produtos.descrnatu REPLACE ligararq WITH firma+"-"+codcli+"-"+ALLTRIM(codigo) REPLACE ligararq1 WITH ALLTRIM(codpfor)+"-"+ALLTRIM(codcli) REPLACE cadastro WITH DATE() REPLACE nfatura WITH .wnfatura.VALUE REPLACE periodo_1 WITH .wperiodo_1.VALUE REPLACE periodo_2 WITH .wperiodo_2.VALUE wcfop=(STREXTRACT(cfile,'<CFOP>','</CFOP>',N)) REPLACE cfop WITH SUBSTR(wcfop,1,N)+"."+SUBSTR(wcfop,2,3) REPLACE prodanp WITH (STREXTRACT(cfile,'<cProdANP>','</cProdANP>',N)) REPLACE origem WITH (STREXTRACT(cfile,'<orig>','</orig>',N)) wquantidad=(STREXTRACT(cfile,'<qCom>','</qCom>',N)) wquantid=VAL(CHRTRAN(wquantidad,'.',',')) REPLACE quantid WITH wquantid wvlrunitar=(STREXTRACT(cfile,'<vUnCom>','</vUnCom>',N)) wvlrunitar=VAL(CHRTRAN(wvlrunitar,'.',',')) REPLACE vlrunitar WITH wvlrunitar wvlrtotal=(STREXTRACT(cfile,'<vProd>','</vProd>',N)) wvlrtotal=VAL(CHRTRAN(wvlrtotal,'.',',')) REPLACE vlrtotal WITH wvlrtotal REPLACE unidade WITH (STREXTRACT(cfile,'<uCom>','</uCom>',N)) REPLACE cst WITH (STREXTRACT(cfile,'<CST>','</CST>',N)) REPLACE cson WITH (STREXTRACT(cfile,'<CSOSN>','</CSOSN>',N)) REPLACE modbc WITH (STREXTRACT(cfile,'<modBC>','</modBC>',N)) REPLACE icms WITH VAL(STREXTRACT(cfile,'<picms>','</picms>',N)) REPLACE vlricms WITH VAL(STREXTRACT(cfile,'<vicms>','</vicms>',N)) REPLACE danfe WITH entradas.danfe TABLEUPDATE(.T.) * wcodprod =codigo wregprod =registro wcodpfor =codpfor wfirma =firma wnome =NOME wunidade =unidade wquantidad =lanentra.quantid wligararq =lanentra.firma+"-"+lanentra.codcli+"-"+ALLTRIM(lanentra.codigo) SELECT estoque SET ORDER TO lote SEEK wlote IF EOF() APPEND BLANK REPLACE lote WITH wlote REPLACE firma WITH .wfirma.VALUE REPLACE nfirma WITH .wnfirma.VALUE REPLACE codpfor WITH wcodpfor REPLACE codigo WITH wcodprod REPLACE registro WITH wregprod REPLACE pnome WITH wnome REPLACE sigla WITH wunidade REPLACE qtdinicial WITH qtdinicial+wquantidad REPLACE qtdestoque WITH qtdestoque+wquantidad REPLACE codcli WITH wcodcli REPLACE apelido WITH entradas.apelido REPLACE cliente WITH entradas.cliente REPLACE ntfiscal WITH entradas.ntfiscal REPLACE vlrunitar WITH lanentra.vlrunitar REPLACE ligararq WITH wligararq REPLACE nfatura WITH .wnfatura.VALUE REPLACE periodo_1 WITH .wperiodo_1.VALUE REPLACE periodo_2 WITH .wperiodo_2.VALUE FLUSH ELSE IF meulock() REPLACE lote WITH wlote REPLACE firma WITH .wfirma.VALUE REPLACE nfirma WITH .wnfirma.VALUE REPLACE codpfor WITH wcodpfor REPLACE codigo WITH wcodprod REPLACE registro WITH wregprod REPLACE pnome WITH wnome REPLACE sigla WITH wunidade REPLACE qtdinicial WITH qtdinicial+wquantidad REPLACE qtdestoque WITH qtdestoque+wquantidad REPLACE codcli WITH wcodcli REPLACE apelido WITH entradas.apelido REPLACE cliente WITH entradas.cliente REPLACE ntfiscal WITH entradas.ntfiscal REPLACE vlrunitar WITH lanentra.vlrunitar REPLACE ligararq WITH wligararq REPLACE nfatura WITH .wnfatura.VALUE REPLACE periodo_1 WITH .wperiodo_1.VALUE REPLACE periodo_2 WITH .wperiodo_2.VALUE FLUSH UNLOCK ENDIF ENDIF TABLEUPDATE(.T.) * SELECT lotes APPEND BLANK REPLACE regentra WITH wcodigo REPLACE lote WITH wlote REPLACE sequencia WITH wsequencia REPLACE DATA WITH entradas.DATA REPLACE entrada WITH entradas.entrada REPLACE datcancel WITH entradas.datcancel REPLACE firma WITH entradas.firma REPLACE estoque WITH entradas.estoque REPLACE emissao WITH entradas.emissao REPLACE codcli WITH entradas.codcli REPLACE cliente WITH entradas.cliente REPLACE apelido WITH entradas.apelido REPLACE ntfiscal WITH entradas.ntfiscal REPLACE serie WITH entradas.serie REPLACE subserie WITH entradas.subserie REPLACE mesano WITH PADL(ALLTRIM(STR(MONTH(DATA),2)),2,'0')+"/"+PADL(ALLTRIM(STR(YEAR(DATA),4)),4,'0') REPLACE codcli_nfe WITH entradas.codcli_nfe REPLACE codpfor WITH (STREXTRACT(cfile,'<cProd>','</cProd>',N)) REPLACE nompfor WITH (STREXTRACT(cfile,'<xProd>','</xProd>',N)) REPLACE NOME WITH produtos.NOME REPLACE codigo WITH produtos.codigo REPLACE registro WITH produtos.registro REPLACE ligararq WITH firma+"-"+codcli+"-"+ALLTRIM(codigo) REPLACE ligararq1 WITH ALLTRIM(codpfor)+"-"+ALLTRIM(codcli) REPLACE cadastro WITH DATE() wquantidad=(STREXTRACT(cfile,'<qCom>','</qCom>',N)) wquantid=VAL(CHRTRAN(wquantidad,'.',',')) REPLACE quantid WITH wquantid wvlrunitar=(STREXTRACT(cfile,'<vUnCom>','</vUnCom>',N)) wvlrunitar=VAL(CHRTRAN(wvlrunitar,'.',',')) REPLACE vlrunitar WITH wvlrunitar wvlrtotal=(STREXTRACT(cfile,'<vProd>','</vProd>',N)) wvlrtotal=VAL(CHRTRAN(wvlrtotal,'.',',')) REPLACE vlrtotal WITH wvlrtotal REPLACE unidade WITH (STREXTRACT(cfile,'<uCom>','</uCom>',N)) REPLACE qtdestoque WITH quantid REPLACE nfatura WITH .wnfatura.VALUE REPLACE periodo_1 WITH .wperiodo_1.VALUE REPLACE periodo_2 WITH .wperiodo_2.VALUE * REPLACE amostra WITH lanentra.amostra * REPLACE lotefor WITH lanentra.lotefor * REPLACE validade WITH lanentra.validade TABLEUPDATE(.T.) N=N+1 ELSE N=500 WAIT WINDOW 'Fim dos 500 itens nfe' TIMEOUT 1 EXIT ENDIF ENDFOR IF N#00 MESSAGEBOX("Importação concluida.",48+0+0," Atenção !!!") ENDIF THISFORM.RELEASE ENDWITH

por **alceu11** em 11/10/2011, 09:10

Segue o exemplo do desenvolvedor Cleverson Lima ,
Meritos do Autor.
[Você precisa estar registrado e conectado para ver este link.]
e ou coloque no dropbox.
Joao no dropbox so nas pastas public, ke consigo pegar o Link para enviar ao forum.
baixe clicando aki.
[Você precisa estar registrado e conectado para ver este link.]

Se nao conseguir avise, estranho ke aki nao esta mais fazendo upload...

por **coconaithy** em 13/10/2011, 13:45

Alceu, boa tarde.

o exemplo que enviou foi muito ultil.

vou diposnibilizar o projeto do importador em breve.

por **alceu11** em 13/10/2011, 13:51

Obrigado , todos os meritos do autor Cleverson Lima ke disponibilizou este codigo,
E qto tempo se ganha com um codigo limpo e funcional igual a este.
Joao
Tomara ke um dia, todos seguissem a sua proposta.

Importação de arquivo XML (Nota Fiscal eletronica)

Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)

Re: Importação de arquivo XML (Nota Fiscal eletronica)