Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

lucasburitis

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6988 usuários registrados
O último usuário registrado atende pelo nome de lucasburitis

Os nossos membros postaram um total de 3 mensagens em 1 assuntos

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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem 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.

coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

Mensagem 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.




jeffersondpr
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

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

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

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

obrigado

coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

Mensagem 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?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

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

Mensagem 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.

coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

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

Alceu, boa tarde.

não recebi o exemplo por e-mail.

é possivel retrasmitir?

coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

Mensagem 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

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

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

Mensagem 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.]



coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

Mensagem 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

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

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

Mensagem 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...

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

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

Mensagem 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.

coconaithy
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

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

Mensagem 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.



alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum