*.Xml sumiu da pasta

[kapiaba]

Galera ajuda ahi,

Supondo, que por alguma razão, o uçuário ou alguém do TI, tenha excluido o arquivo.xml, mas tem a chave de acesso guardada no banco de dados, como voces fazem para recuperar e gravar novamente este *.xml baixando da sefaz para guardar no repositório próprio para se poder imprimir novamante a NF-e?

Thanks for advance. Uiiiiii.......... kkkkkkkkkkkkk

Obg. abs.

[vagner]

Olá Kapi,
No site da sefaz acho que tem um download do xml

[kapiaba]

Olá Kapi,

No site da sefaz acho que tem um download do xml

Então fera... Eu queria via código. É possivel?

obg. abs. Esperando as brejas vey!!

[Luiz Fernando]

Kapiana isto funcionava de primeiro, mais de um tempo pra ca não da mais certo, mais acredito que seja algum erro de codigo meu aqui. vcprecisa so do o xml assinado

function Envia2(cChave)
  Local cXmlAssinado:= nLocalnfe+"remessa\assinado\"+Alltrim(cChave)+".xml",nRet,oNfe
  If !File(cXmlAssinado)
     cXmlAssinado:=cChave
  Endif
  oNfeUtil:=TVoNfeUtil2G():New("SP","1",cCertificado,,,,cLicenca)
  if Empty(oNFEUtil:cCertificado)
     MsgInfo("Informe um certificado Valido!","VO Informatica informa")
     oNfeUtil:End()
     Return( .f. )
  endif
  if oNFeUtil:CriaProcNFe(@cXmlAssinado)
  else                        
   return(.f.)
  endif
return( .t. )  

Abraços

Luiz Fernando

[kapiaba]

Não tem nada... Nem o .xml assinado. E agora?

[sistem]

parece que esta disponivel no site da sefaz as nfe dos ultimos 3 meses

Function ConsultaSefazXml(cChave)
  Local oFont, oDlgCaptcha, oGet,oGet1, cCaptcha:=Space(8), oSefaz, oImage

  Default cChave := Space(44)

   DEFINE FONT oFont NAME "Arial" SIZE 0, -20 BOLD

   DEFINE DIALOG oDlgCaptcha TITLE "Gerar XML" FROM 0,0 to 110,400 PIXEL

   @ 001, 032 SAY "* poderá inserir qualquer chave" PIXEL OF oDlgCaptcha
   @ 010, 002 SAY "Chave NFe" PIXEL OF oDlgCaptcha SIZE 30, 10
   @ 009, 032 GET oGet VAR cChave PIXEL OF oDlgCaptcha SIZE 165, 10 Picture "@9"
   @ 030, 002 SAY "Captcha" PIXEL OF oDlgCaptcha SIZE 20, 10
   @ 022, 108 GET oGet1 VAR cCaptcha PIXEL OF oDlgCaptcha SIZE 40, 15 FONT oFont
   @ 022, 032 IMAGE oImage SIZE 70, 30 PIXEL OF oDlgCaptcha ADJUST

   @ 039, 108 BUTTON "&Gerar XML" PIXEL OF oDlgCaptcha SIZE 40, 12 ACTION (If(oSefaz:DownloadHtml2Xml(cChave,cCaptcha),;
                                                               (MsgInfo("XML gerado com sucesso! verificar a pasta: "+oApp:cDir_001+"backup\remessa","Retorno!"),;
                                                                MYRUN( oApp:cDir_001+"UniDANFe\unidanfe.exe arquivo="+oApp:cDir_001+"backup\remessa\"+Alltrim(cChave)+"nfe.xml edição=Free imprimir=1 visualizar=1 copias=1"), oDlgCaptcha:End() ),;
                                                                (MsgInfo("Não gerado, tente novamente.", "Aviso!"), oDlgCaptcha:End(), ConsultaSefazXml()) ) )

   oSefaz = TVoConsultaSefaz():New(oDlgCaptcha,oImage)

   oSefaz:lDebug:=.f.
   oDlgCaptcha:lHelpIcon := .f.

   ACTIVATE DIALOG oDlgCaptcha CENTER

Return nil

[kapiaba]

parece que esta disponivel no site da sefaz as nfe dos ultimos 3 meses

Function ConsultaSefazXml(cChave)
  Local oFont, oDlgCaptcha, oGet,oGet1, cCaptcha:=Space(8), oSefaz, oImage

  Default cChave := Space(44)

   DEFINE FONT oFont NAME "Arial" SIZE 0, -20 BOLD

   DEFINE DIALOG oDlgCaptcha TITLE "Gerar XML" FROM 0,0 to 110,400 PIXEL

   @ 001, 032 SAY "* poderá inserir qualquer chave" PIXEL OF oDlgCaptcha
   @ 010, 002 SAY "Chave NFe" PIXEL OF oDlgCaptcha SIZE 30, 10
   @ 009, 032 GET oGet VAR cChave PIXEL OF oDlgCaptcha SIZE 165, 10 Picture "@9"
   @ 030, 002 SAY "Captcha" PIXEL OF oDlgCaptcha SIZE 20, 10
   @ 022, 108 GET oGet1 VAR cCaptcha PIXEL OF oDlgCaptcha SIZE 40, 15 FONT oFont
   @ 022, 032 IMAGE oImage SIZE 70, 30 PIXEL OF oDlgCaptcha ADJUST

   @ 039, 108 BUTTON "&Gerar XML" PIXEL OF oDlgCaptcha SIZE 40, 12 ACTION (If(oSefaz:DownloadHtml2Xml(cChave,cCaptcha),;
                                                               (MsgInfo("XML gerado com sucesso! verificar a pasta: "+oApp:cDir_001+"backup\remessa","Retorno!"),;
                                                                MYRUN( oApp:cDir_001+"UniDANFe\unidanfe.exe arquivo="+oApp:cDir_001+"backup\remessa\"+Alltrim(cChave)+"nfe.xml edição=Free imprimir=1 visualizar=1 copias=1"), oDlgCaptcha:End() ),;
                                                                (MsgInfo("Não gerado, tente novamente.", "Aviso!"), oDlgCaptcha:End(), ConsultaSefazXml()) ) )

   oSefaz = TVoConsultaSefaz():New(oDlgCaptcha,oImage)

   oSefaz:lDebug:=.f.
   oDlgCaptcha:lHelpIcon := .f.

   ACTIVATE DIALOG oDlgCaptcha CENTER

Return nil

Sistem, isto funcionara, mesmo que eu não tenha o .XMl assinado? Obg. Abs.

[sistem]

essa rotina baixa o xml nao assinado do site da nfe. (testado)

se quiser gerar o xml assinado tente esse site http://www.fsist.com.br/ (vai precisar do certificado) (NAO testado)

[kapiaba]

essa rotina baixa o xml nao assinado do site da nfe. (testado)

se quiser gerar o xml assinado tente esse site http://www.fsist.com.br/ (vai precisar do certificado) (NAO testado)

Obg. Achei a idéia do http://www.fsist.com.br/ muito legal, mas não me serve.

E tem bug na página, mas isso não é importante.

Seria interessante que se pudesse baixar os dois em caso de perda.

Obg. Abs.

[kapiaba]

Na pior das hipótese, ainda existe esta solução gratuita.

http://www.webdanfe.com.br/danfe/index.html

Obg. abs.

[sistem]

kapiaba

seu cliente tb pode ir na sefaz com um cd limpo, dai eles grava todos os xml no cd/dvd

obs: o cliente tem q apresentar alguns documentos que nao lembro quais é (ligar para sefaz para saber quais documento)

[kapiaba]

kapiaba

seu cliente tb pode ir na sefaz com um cd limpo, dai eles grava todos os xml no cd/dvd

obs: o cliente tem q apresentar alguns documentos que nao lembro quais é (ligar para sefaz para saber quais documento)

Grande informação. Valew().