FAZER DONWLOAD DA NFE

 Tópico anterior Próximo tópico Novo tópico

FAZER DONWLOAD DA NFE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483790 - 09/08/2018 18:08:24

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Boa tarde Gente Bom eu avia criado um jeito de fazer donwload de NFE para meu programa depois so importava para o banco, mas nao sei porque parou de funcionar
se alguem souber o motivo que me dee uma atualizada por favor vou postar o codigo do modulo e da função que baixava a nota



Modulo.........

Public Declare Function Proxy Lib "BaixarXMLNFe.dll" (ByVal Host As String, ByVal Port As Integer, ByVal User As String, ByVal Pass As String) As Integer
Public Declare Function Captcha Lib "BaixarXMLNFe.dll" (ByVal SalvarEm As String) As Integer
'Public Shared Sub Https(Sim As Integer)
Public Declare Function GetCertificadoDigital Lib "BaixarXMLNFe.dll" () As String
Public Declare Function Msg Lib "BaixarXMLNFe.dll" () As String
Public Declare Sub SetCertificadoDigital Lib "BaixarXMLNFe.dll" (CertSerialNumber As String)
Public Declare Function BaixarXMLNFeSemCert Lib "BaixarXMLNFe.dll" (ByVal Chave As String, ByVal Captcha As String, ByVal SalvarEm As String) As Integer
Public Declare Function BaixarXMLNFeComCert Lib "BaixarXMLNFe.dll" (ByVal Chave As String, ByVal Captcha As String, ByVal SalvarEm As String) As Integer
Public Declare Sub DLLLicenca Lib "BaixarXMLNFe.dll" (ByVal Chave As String)
Public Declare Function CaptchaLer Lib "BaixarXMLNFe.dll" (ByVal ChaveCaptcha As String, ByVal ArquivoImagem As String) As Integer
Public Declare Function CaptchaLerTexto Lib "BaixarXMLNFe.dll" () As String
Public Declare Function Imprimir Lib "BaixarXMLNFe.dll" (ByVal ArquivoXML As String, ByVal LogoMarca As String) As Boolean
Public Declare Function ExportarPDF Lib "BaixarXMLNFe.dll" (ByVal ArquivoXML As String, ByVal LogoMarca As String, ByVal PDF As String) As Integer
'Public Shared Sub DLLRegistra(PastaDestino As String)


Rotina......

Private Sub BaixarXML_Click()
    
    If (EditCertificado.Text = "") Then
        
        If (BaixarXMLNFeSemCert(EditChave.Text, EditCaptcha.Text, "XML_COMPRAS/" & Label6.Caption & "/" & EditChave.Text & ".xml") = 1) Then
            Web1.Navigate (App.Path & EditChave.Text & ".xml")
        Else
            MsgBox (Msg())
        End If
        
    Else
        
        If (BaixarXMLNFeComCert(EditChave.Text, EditCaptcha.Text, "XML_COMPRAS/" & Label6.Caption & "/" & txtData.Text & EditChave.Text & ".xml") = 1) Then
            Web1.Navigate (App.Path & "/XML_COMPRAS/" & Label6.Caption & "/" & EditChave.Text & ".xml")
        Else
            MsgBox (Msg())
        End If
        
    End If
retval = Dir("XML_COMPRAS\" & Label6.Caption & "\")

If retval = EditChave.Text & ".xml" Then
   MsgBox "Download da NFE Concluido....", vbApplicationModal
  
  
  
End If
cmdExporta.Visible = True


End Sub






se alguem souber como faço para voltar a funcionar agradeço


Jean Silva FRazao



#483793 - 09/08/2018 22:20:30

F001E
IBITINGA/SP
Cadast. em:Novembro/2004


Última edição em 09/08/2018 22:23:24 por F001E

Que eu saiba o SEFAZ colocou captcha do google, aquele pede para voce escolher as imagens de acordo com o que ele mencionou. Ferrô todo mundo.

Eu tinha um projeto feito em JAVA que fazia download também, mas por causa desse captcha do google abandonei isso. O correto é baixar por Manifesto que é indicado pelo SEFAZ.




#483795 - 09/08/2018 22:48:04

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Citação:
:
Que eu saiba o SEFAZ colocou captcha do google, aquele pede para voce escolher as imagens de acordo com o que ele mencionou. Ferrô todo mundo.

Eu tinha um projeto feito em JAVA que fazia download também, mas por causa desse captcha do google abandonei isso. O correto é baixar por Manifesto que é indicado pelo SEFAZ.

Pelo Manifesto sera que tem algum exemplo disponivel de como fazer isso?



#483992 - 16/08/2018 17:42:19

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Olá!

Bom, já que você está usando ferramentas de terceiros, recomento utilizar o Uninfe. É Open Source e o suporte é excelente. Com ele você faz tudo relacionado a documentos fiscais.

http://www.unimake.com.br

Abraço.

Jones Paris

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário