Recuperar XML do SAT

[Luiz Fernando]

Colegas um cliente meu não tem backup, nem do banco de dados e nem dos XML, será que existe alguma forma de eu recuperar este XML pelo aparelho(SAT) ou direto no sefaz.

 

 

Obrigado

[vagner]

Olá Empresoft, creio que infelizmente não dê para recuperar pelo site não.

Abraços

[HASA]

Vagner isso não é verdade Kkkkk 

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=17622

HASA

[vagner]

Blz, uma coisa a menos então para se preocupar, só que o contribuinte, necessita do certificado digital para pode acessar ou ter um usuário e senha, não vi nada como na nota fiscal eletrônica.

Abraços

[HASA]

Tem sim MAS...  não conseguii colocar a imagem com o login aqui vou posta na mensagem original no toledo ok, veja lá:

HASA

 

 

 

[Luiz Fernando]

Vlw HASA pelo informação...

[Eric.Developer]

 

O site da Receita infelizmente permite baixar o lote dos arquivos XMLs, e não os arquivos XMLs dos cupons fiscais que foram gerados.
Em nossa empresa perdemos muitos arquivos xmls em um acidente e só conseguimos recuperar os arquivos xmls dos cupons fiscais direto da receita baixando os arquivos XMLs do lote do site da receita e utilizando em conjunto o sistema dessa empresa chamada xxxxxxx, que lê esses arquivos de lote baixados da receita e converte nos arquivos XMLs dos cupons fiscais que precisamos.

Se interessar a alguém o site da empresa é esse:
http://www.....
Espero ter ajudado.

Olá Jorge, você é o George Santos, correto?

[Frazato]

Bom dia! tive esse mesmo problema mais consegui pegar no site os lotes e enviados e apartir deles gerei os arquivos dos cupons   com a rotina abaixo:

 

#include "inkey.ch"
#INCLUDE "FILEIO.CH"

/* Compile usando
   Hbmk2 desdobra hbct.hbc
   By Frazato : frazato@ibest.com.br

*/ 

Function Main()
SetMode(23,80)
Clear
@ 00,00 say Padc('...### DESDOBRA DE ARQUIVO SAT(Direto Sefaz)###...',MaxCol()) Color('w+/r')
@ 01,00 say Padc('...### By Frazato (14) 99714-0865 ###...',MaxCol())
@ 02,00 say replica('_',MaxCol())

mListaArq  := Directory("*.xml","N")
@ 03,00 say 'Total de Arquivo(s) sefaz.....'+Str(Len(mListaArq),7) 
nLin := 4
wValorArq := 0
wValorArq := 0
wQtdArq   := 0

For i:= 1 to Len(mListaArq)
    cArquivo := mListaArq[i,1]
    MostraItens(cArquivo,nLin++)
    *Delete File to (cArquivo)
    If nLin >= MaxCol()-2
       nLin := 4
    Endif
Next
mListaArqSaidas  := Directory("CFe\*.xml","N")
cMsg1  := 'Total de Arquivo(s) Gerado(s)..'+Str(Len(mListaArqSaidas),15)
Alert('Processo terminado!'+cMsg1)
Return nil

//--------------------------------------------------------------------------------
Function MostraItens(cFileDanfe,nLinhaTela)
cPastaSaida := 'CFe\'
nRet        := DirMake('CFe')
    if !file(cFileDanfe)  
       alert('Arquivo nao esta na pasta....'+cFileDanfe)
    Endif
     

    Linha       := Memoread(cFileDanfe)
    nLinhalidas := 0
    Linhatotal  := Len(Linha)
    cLinhaTxt   := Linha
    cArqXmlLido := Linha

    Do While .t.
            cLidos := PegaDados('CFe',Alltrim(cLinhaTxt),.t.,'CFe' )
            Linha  := cLidos
                    
            cArqSaida := PegaNomeXmlChave(cLidos)
            If cArqSaida#'ERROXML'
                GravaSaida(cPastaSaida+'CFe'+cArqSaida+'.xml',cLidos)
                
                cArquivo_ := cPastaSaida+'CFe'+cArqSaida+'.xml'
                wQtdArq   := PegaValorCupom( PegaDados('total',Alltrim(cLidos),.t.,'total') )
                wValorArq += wQtdArq 
                
                @ nLinhaTela,00 say 'Desdobrando....'+cArquivo_ + Space(10) + Str(wQtdArq,5)+Space(5)+Transf(wValorArq,'@EZ 9999,999.99')
                @ 03,50 say 'R$ Pasta....'+Transf(wValorArq,'@EZ 9999,999.99')
    
            Endif
            cDadosItem := cLidos
            If Linha=='0'
               Exit
            Endif
            nSize         := Linhatotal-nLinhaLidas
            cLinha        := Right(cLinhaTxt,nSize)
            cLinhaTxt     := cLinha
            If nLinhaLidas >= Linhatotal
               Exit
            Endif
    Enddo
Return nil
//------------------------------------------------------
Function GravaSaida(cArq,cTexto)
Local Handle := FCreate(cArq)
             If Ferror() # 0
                   Alert("Impossivel Criar o Arquivo:"+Chr(10)+;
                         cArq   )

              Endif
              Fwrite(Handle,'<CFe'+Alltrim(cTexto)+'</CFe>')
              FClose(Handle)
Return nil
              
//------------------------------------------------------
Function PegaNomeXmlChave(cLinha)
Local nPosIni  := At([Id="CFe],cLinha)
If nPosIni==0
   Return 'ERROXML'
Endif
cRet := Substr(cLinha,nPosIni+7,44)
Return  ( cRet)
    
//------------------------------------------------------
Function PegaDados(cProc,cLinha,lItem,cTexto2)
Local InicioDoDado :=Iif(cTexto2==Nil,"<"+cProc+">" , "<"+cProc )
Local FinalDoDado := Iif(cTexto2==Nil,"</"+cProc+">",'</'+cTexto2+'>')
Local nPosIni     := At(InicioDoDado,cLinha)
Local nPosFim     := At(FinalDoDado,cLinha)
Local cRet        := '0'
Local x
If nPosIni==0 .or. nPosFim==0
   Return cRet
Endif
cRet := Substr(cLinha,nPosIni+Len(IniciodoDado),nPosFim-nPosIni-Len(FinalDoDado)+1)
If lItem ==.t.
   nLinhalidas  += nPosFim
Endif
Return  ( cRet)
//------------------------------------------------------------
Static Function PegaValorCupom(cLinha)
Local nPos1  := At('<vCFe>',cLinha)
Local nPos2  := At('</vCFe>',cLinha)
Local cTraco := Substr(cLinha,nPos1+6,nPos2)
Return Val(cTraco)