AJUDA PARA ABRIR XML E SALVAR INFORMACAO

FBGSYSTEMS 24/05/2012 11:49:54
#402660
Boa tarde pessoal !
Gostaria de uma ajuda. Estou fazendo a NFe, porem estou usando uninfe para validar meu xml. Gostaria de procurar em determinada pasta um determinado arquivo, abrir, pegar a informação da autorização e salvar essa informação no bd.
Alguem poderia me ajudar com isso ?
WILSONJOSE 24/05/2012 12:09:15
#402661
eu também estou a procura disso
FBGSYSTEMS 24/05/2012 13:01:45
#402671
Consegui isso.
Teste aí e ve se resolve pra voce. Melhorias são bem vindas rs

  Set DS = New ADODB.Recordset
DS.Open [Ô]select chaveacesso,dataemissao from notafiscal where codigo=[Ô] & varNumeroNota, con, adOpenKeyset, adLockOptimistic
    Open [Ô]c:
fe\4\Autorizados\[Ô] & Format(DS!dataemissao, [Ô]mmyyyy[Ô]) & [Ô]\[Ô] & DS!chaveacesso & [Ô]-procNFe.xml[Ô] For Input As #1
    Do Until EOF(1)
        Line Input #1, varconteudo
        a = varconteudo
        aa = Split(varconteudo, [Ô]<nProt>[Ô], -1)
        bb = aa(1)
        varProtocolo = Left(bb, 15)
    Loop
    Close #1
Tópico encerrado , respostas não são mais permitidas
Voltar