Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Armando Monteiro

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    80

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Armando Monteiro

    Sei que é velho...no emissor gratuito informo zerado para indfinal=0

    em ACBrLIB

    Postado

    938-Rejeição: Não informada vBCSTRet, pST, vICMSSubstituto e vICMSSTRet [nItem: 1]

    [ICMS001]
    orig=0
    CST=60
    modBC=
    pRedBC=
    vBC=
    pICMS=
    vICMS=
    modBCST=
    pMVAST=
    pRedBCST=
    vBCST=
    pICMSST=
    vICMSST=
    UFST=
    pBCOp=
    vBCSTRet=0.00
    vICMSSTRet=0.00
    motDesICMS=
    pCredSN=
    vCredICMSSN=
    vBCSTDest=
    vICMSSTDest=
    vICMSDeson=
    vICMSOp=
    pDif=
    vICMSDif=
    pST=0.0000
    vBCFCP=
    pFCP=
    vFCP=  
    vBCFCPST=
    pFCPST=  
    vFCPST=
    vBCFCPSTRet=
    pFCPSTRet=  
    vFCPSTRet=
    pRedBCEfet=
    vBCEfet=
    pICMSEfet=
    vICMSEfet=
    vICMSSubstituto=0.00

    Manifestação do Destinatário - Confirmação da Operação

    em ACBrLibSAT

    Postado

    Deu certo agora, erro de interpretação .... estava focado na NFe em si...e quando vcs falam emitente (não é o da NFe e sim do Evento)....mas OK

    [EVENTO]

    idLote=1

     

    [EVENTO001]

    cOrgao=<informar o código da UF do emitente do evento>

    CNPJ=<CNPJ do emitente do evento>

    chNFe=<chave da NFe>

    dhEvento=<data e hora do evento>

    tpEvento=210200

    nSeqEvento=1

    versaoEvento=1.00

    manifesta.ini ACBrLibNFE-20191226.log

    Manifestação do Destinatário - Confirmação da Operação

    em ACBrLibSAT

    Postado

    manifesta.ini

    [EVENTO]
    idLote = 1

    [EVENTO001]
    cOrgao=35
    CNPJ=01682212000240
    chNFe=35191201682212000240550050000012091403719420
    dhEvento=26/12/2019 16:47:40
    tpEvento = 210200
    nSeqEvento = 1
    versaoEvento = 1.00

    ------------------------------------------------------------------
    Chamada de funções

    nfe.LimparListaEventos
    nfe.CarregarEventoINI ("d:\nfe\manifesta.ini")
    SetResposta nfe.EnviarEvento(1)

    ------------------------------------------------------------------

    Resposta:


    [Evento]
    CStat=128
    CUF=0
    Msg=
    VerAplic=AN_4.0.0
    Versao=
    XMotivo=Lote de evento processado
    cOrgao=91
    idLote=1
    tpAmb=1

    [Evento001]
    CNPJDest=
    CStat=213
    Id=
    VerAplic=AN_4.0.0
    XML=
    XMotivo=Rejeicao: CNPJ-Base do Emitente difere do CNPJ-Base do Certificado Digital
    arquivo=
    cOrgao=91
    chNFe=35191201682212000240550050000012091403719420
    dhRegEvento=26/12/2019 16:47:31
    digVal=
    emailDest=
    nProt=
    nSeqEvento=1
    tpAmb=1
    tpEvento=210200
    xEvento=Confirmacao da Operacao

    ACBrNFe32.dll download de xml

    em ACBrLIB

    Postado

    Rafael Dias, o erro realmente não era meu...mas sim no exemplo http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/VB6/NFe/Imports/ACBrNFe.cls

    Favor fazer a corrigir 

    Public Function DistribuicaoDFePorChave(ByVal acUFAutor As String, ByVal eCnpjcpf As String, ByVal echNFe As String) As String
    Dim retorno   As Long
    Dim buffer    As String
    Dim bufferLen As Long

    bufferLen = BUFFER_LENGTH
    buffer = String$(bufferLen, " ")
    
    retorno = NFE_DistribuicaoDFePorNSU(acUFAutor, eCnpjcpf, echNFe, buffer, bufferLen) >>>>>errado<<<<<

  retorno = DistribuicaoDFePorChave(acUFAutor, eCnpjcpf, echNFe, buffer, bufferLen)   >>>>>correto<<<<<<

    CheckResult retorno
    
    DistribuicaoDFePorChave = processResult(buffer, bufferLen)
End Function

     

    Mudando para DistribuicaoDFePorChave ...funcionou

    [DistribuicaoDFe]
    CStat=138
    CUF=0
    Msg=Documento localizado
    VerAplic=1.2.0
    Versao=1.01
    XMotivo=Documento localizado
    arquivo=35191005441657000612550010003422711101649362-nfe.xml
    dhResp=26/12/2019 14:50:04
    indCont=0
    maxNSU=
    tpAmb=1
    ultNSU=

    [ResNFe001]
    CNPJ=
    CNPJCPF=05441657000612
    CNPJDest=
    CStat=0
    EmiCNPJ=
    EmiIE=
    EmixNome=
    IE=633496000110
    Id=
    NSU=000000000000095
    VerAplic=
    Versao=
    XML=<?xml version="1.0" encoding="UTF-8"?><nfeProc versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe Id="NFe35191005441657000612550010003422711101649362" versao="4.00"><ide><cUF>35</cUF><cNF>10164936</cNF><natOp>VENDA MERCADORIA / VENDA COM SUBST TRIBU</natOp><mod>55</mod><serie>1</serie><nNF>342271</nNF><dhEmi>2019-10-04T00:00:00-03:00</dhEmi><dhSaiEnt>2019-10-04T00:00:00-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>3548500</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>2</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><indFinal>0</indFinal><indPres>9</indPres><procEmi>0</procEmi><verProc>2.8.3</verProc></ide><emit><CNPJ>05441657000612</CNPJ><xNome>NEWFACE SANTOS LTDA.</xNome><xFant>NEW FACE</xFant><enderEmit><xLgr>RUA JULIO CONCEICAO</xLgr><nro>127</nro><xBairro>VILA MATIAS</xBairro><cMun>3548500</cMun><xMun>SANTOS</xMun><UF>SP</UF><CEP>11015540</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>1321274642</fone></enderEmit><IE>633496000110</IE><CRT>3</CRT></emit><dest><CNPJ>96271309000195</CNPJ><xNome>JVM COMERCIO DE PECAS PARA INFO LTDA</xNome><enderDest><xLgr>AV TERCEIRO CENTENARIO</xLgr><nro>1043</nro><xBairro>JD TERCEIRO CENTENARIO</xBairro><cMun>3504107</cMun><xMun>ATIBAIA</xMun><UF>SP</UF><CEP>12944650</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>1134020597</fone></enderDest><indIEDest>1</indIEDest><IE>190053795117</IE></dest><det nItem="1"><prod><cProd>1112300</cProd><cEAN /><xProd>IMP TERM NAO-FISCAL BEMATECH MP-2800 TH (GAR. 12M)</xProd><NCM>84433299</NCM><CEST>2101700</CEST><CFOP>5403</CFOP><uCom>PC</uCom><qCom>1.00</qCom><vUnCom>567.97</vUnCom><vProd>567.97</vProd><cEANTrib /><uTrib>PC</uTrib><qTrib>1.00</qTrib><vUnTrib>567.97</vUnTrib><indTot>1</indTot><nItemPed>0</nItemPed></prod><imposto><ICMS><ICMS10><orig>2</orig><CST>10</CST><modBC>3</modBC><vBC>567.97</vBC><pICMS>12.00</pICMS><vICMS>68.16</vICMS><modBCST>4</modBCST><pMVAST>25.00</pMVAST><vBCST>709.96</vBCST><pICMSST>12.00</pICMSST><vICMSST>17.04</vICMSST></ICMS10></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>51</CST></IPINT></IPI><PIS><PISAliq><CST>01</CST><vBC>567.97</vBC><pPIS>1.65</pPIS><vPIS>9.37</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>567.97</vBC><pCOFINS>7.60</pCOFINS><vCOFINS>43.17</vCOFINS></COFINSAliq></COFINS></imposto></det><det nItem="2"><prod><cProd>1112268</cProd><cEAN>7898378253974</cEAN><xProd>SAT BEMATECH RB2000 ETHERNET (GAR. 12M)</xProd><NCM>85437099</NCM><CFOP>5102</CFOP><uCom>PC</uCom><qCom>1.00</qCom><vUnCom>758.52</vUnCom><vProd>758.52</vProd><cEANTrib>7898378253974</cEANTrib><uTrib>PC</uTrib><qTrib>1.00</qTrib><vUnTrib>758.52</vUnTrib><indTot>1</indTot><nItemPed>0</nItemPed></prod><imposto><ICMS><ICMS00><orig>4</orig><CST>00</CST><modBC>3</modBC><vBC>505.71</vBC><pICMS>18.00</pICMS><vICMS>91.03</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>51</CST></IPINT></IPI><PIS><PISAliq><CST>01</CST><vBC>758.52</vBC><pPIS>1.65</pPIS><vPIS>12.52</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>758.52</vBC><pCOFINS>7.60</pCOFINS><vCOFINS>57.65</vCOFINS></COFINSAliq></COFINS></imposto><infAdProd>1112268 - C/PPB CFE LEI FED.10176/2001 PORT.MCT 890/2001</infAdProd></det><det nItem="3"><prod><cProd>1794009</cProd><cEAN /><xProd>MICRO NFX PC J1800 - 141A 1S SSD PDV/VESA - LINUX (GAR 12 MESES)</xProd><NCM>84715010</NCM><CEST>2103000</CEST><CFOP>5403</CFOP><uCom>PC</uCom><qCom>1.00</qCom><vUnCom>711.70</vUnCom><vProd>711.70</vProd><cEANTrib /><uTrib>PC</uTrib><qTrib>1.00</qTrib><vUnTrib>711.70</vUnTrib><indTot>1</indTot><nItemPed>0</nItemPed></prod><imposto><ICMS><ICMS70><orig>4</orig><CST>70</CST><modBC>3</modBC><pRedBC>33.33</pRedBC><vBC>474.49</vBC><pICMS>18.00</pICMS><vICMS>85.41</vICMS><modBCST>4</modBCST><pMVAST>29.00</pMVAST><vBCST>612.09</vBCST><pICMSST>18.00</pICMSST><vICMSST>24.77</vICMSST></ICMS70></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>51</CST></IPINT></IPI><PIS><PISAliq><CST>01</CST><vBC>711.70</vBC><pPIS>1.65</pPIS><vPIS>11.74</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>711.70</vBC><pCOFINS>7.60</pCOFINS><vCOFINS>54.09</vCOFINS></COFINSAliq></COFINS></imposto><infAdProd>"Produdo produzido conforme LEI N 8.248, DE 23 DE OUTUBRO DE 1991.". "REDUÇAO BASE CALCULO ICMS CONFORME ART. 27 -INCISO I - ANEXO II RICMS/SP, Conforme Decreto 48.112 de 26 de Setembro de 2003"</infAdProd></det><total><ICMSTot><vBC>1548.17</vBC><vICMS>244.60</vICMS><vICMSDeson>0.00</vICMSDeson><vFCPUFDest>0.00</vFCPUFDest><vICMSUFDest>0.00</vICMSUFDest><vICMSUFRemet>0.00</vICMSUFRemet><vFCP>0.00</vFCP><vBCST>1322.05</vBCST><vST>41.81</vST><vFCPST>0.00</vFCPST><vFCPSTRet>0.00</vFCPSTRet><vProd>2038.19</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vIPIDevol>0.00</vIPIDevol><vPIS>33.63</vPIS><vCOFINS>154.91</vCOFINS><vOutro>0.00</vOutro><vNF>2080.00</vNF></ICMSTot><ISSQNtot><dCompet>2019-10-04</dCompet></ISSQNtot></total><transp><modFrete>0</modFrete><transporta><CNPJ>05441657000612</CNPJ><xNome>NEW FACE SANTO ANDRE</xNome><IE>633496000110</IE><xEnder>RUA JULIO CONCEIÇAO, 127/129 - VILA MATHIAS</xEnder><xMun>SANTOS</xMun><UF>SP</UF></transporta><vol><qVol>3</qVol><esp>CX/SCL P</esp><pesoL>8.336</pesoL><pesoB>8.420</pesoB></vol></transp><pag><detPag><indPag>0</indPag><tPag>01</tPag><vPag>2080.00</vPag></detPag></pag><infAdic><infCpl>PP 724940 -  DINH.|"IMPOSTO RECOLHIDO POR SUBSTITUIÇAO TRIBUTARIA CONF. ART. 313-Z19 E 313-Z20 DO RICMS/SP 2009"|"ALIQUOTA DO ICMS REDUZIDA A 12% CONFORME RESOLUÇAO SF 84/2013, QUE TRATA O INCISO DO ARTIGO 54 DO RIMCS,  APROVADA PELO DECRETO 45.490 DE 30/11/2000, DO RICMS SP"|[ BASE CALCULO ST: 582,52    VALOR ST: 13,98 ]</infCpl></infAdic></infNFe><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI="#NFe35191005441657000612550010003422711101649362"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>sfg7coSUNCT/Lx2kRvKZM70eQaY=</DigestValue></Reference></SignedInfo><SignatureValue>FP/x+tB8i4NUP5Vv/NirYmfjYe0UAYlUK/PuYasD4V5M8VdcrTZUD8qkpXHP+7+UGnLtN6859cpwNrzSVh3FBNjW/k4hJfYTA1cHU1hW2sgizt5lJCqWVNQVZSd0gusmveIz5qLOjZgwu8HdvnTlKBOFLWeju1APiM1A7q5HOMgXvT6RvT0WYeSP2z8qZ7zm4VQLF1Vg6VftQr28Bf0XjD/K+76KYbgixYN8Y6/dpvQgIuJ5H3I62kPYD6EyYuIq6ymj9fbvgyYRAJnWAqGuTjwweu0nau942WVwW0oTzVe5qqfCnzSIceITYyDlq1YQZk7cIDDXhP5yOsJvJWc2IA==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIIBDCCBeygAwIBAgIIIcvJOywBSbgwDQYJKoZIhvcNAQELBQAwcTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEVMBMGA1UEAxMMQUMgVkFMSUQgUkZCMB4XDTE5MDIyODE5MjUyN1oXDTIwMDIyODE5MjUyN1owgdExCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJTUDEPMA0GA1UEBxMGU0FOVE9TMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMTYwNAYDVQQLEy1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsTDVJGQiBlLUNOUEogQTExETAPBgNVBAsTCEFSIEZPUlRFMSwwKgYDVQQDEyNORVcgRkFDRSBTQU5UT1MgTFREQTowNTQ0MTY1NzAwMDYxMjCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMpUUwTz1xWiyeiFJ39hTFW6rCoT+E8D4eUDRGUIAoL+elYrcjSDXVejmcFNVlC5kXa42QFhqcgJQq0fi8Ehe7jCqr3T+ZL3F4iLQFAJF4wPXXmluY0+qWLwnsE1I2kXE+dR6Q5B0/LJPwp58zySDy8Sqy0RbSppAtGqnoAQRCNXpqfgSs9Cxs8DN2EtWAQnvIr27zZyieaKWwJFaDgJG62aAZbs0QeyRtDaEZxoNQ/4tgWBM7CJxKfXaZua+A1KnvrDk1yk0ghkivvWJrv7HFuypOl+Zn9aZeEmD+uvbcmMcUCQkKOMSVRRHDrJHu9jFsibfjgLCqb9fLIW7LWy8tUCAwEAAaOCAz0wggM5MIGaBggrBgEFBQcBAQSBjTCBijBVBggrBgEFBQcwAoZJaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9hYy12YWxpZHJmYnYyLnA3YjAxBggrBgEFBQcwAYYlaHR0cDovL29jc3AudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFEe5CFnYQvaS/Pd8FXwmgEpFkX6fMG4GA1UdIARnMGUwYwYGYEwBAgElMFkwVwYIKwYBBQUHAgEWS2h0dHA6Ly9pY3AtYnJhc2lsLnZhbGlkY2VydGlmaWNhZG9yYS5jb20uYnIvYWMtdmFsaWRyZmIvZHBjLWFjLXZhbGlkcmZiLnBkZjCCAQEGA1UdHwSB+TCB9jBToFGgT4ZNaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9sY3ItYWMtdmFsaWRyZmJ2Mi5jcmwwVKBSoFCGTmh0dHA6Ly9pY3AtYnJhc2lsMi52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2xjci1hYy12YWxpZHJmYnYyLmNybDBJoEegRYZDaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1ZBTElEL2xjci1hYy12YWxpZHJmYnYyLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIHJBgNVHREEgcEwgb6BH2FkbWluaXN0cmF0aXZvQGNvbmFzc2Nvbi5jb20uYnKgPQYFYEwBAwSgNAQyMjYwNDE5NzAwODMyOTEyNDg0MzAwMDAwMDAwMDAwMDAwMDAwMTg5MzkzMDAyU1NQU1CgKAYFYEwBAwKgHwQdQ0xBVURJQSBEQSBDUlVaIExJTUEgTU9OVEVJUk+gGQYFYEwBAwOgEAQOMDU0NDE2NTcwMDA2MTKgFwYFYEwBAwegDgQMMDAwMDAwMDAwMDAwMA0GCSqGSIb3DQEBCwUAA4ICAQDoZ/JM/1JDuFnpwE6wagN27cR3kzokzq43WASFMVWyI0h/GA2qAvXvH+DAunGdnAf2s6LdnC14FcRhGEntTHKKh6KjKtt3wjMWD8pXauxACRgWSEITNE99dPiP7p2E2VOgMwykOa0WDK0JL2XkyoRG9VTWtp4vWP8s3yR2s+gLTuFOSoEjOTSqxFPlYGWprBFowM/I9g8xgFrHPcMFofjd1hC1Zg1VWFhUbkK9r0ZHW+Mim/R1CIM46LXvuASAbX2uwKN8wNSODVApGCCpQBaUk4aYnkzSi+54EqSzknsWNQXRVITFllqf1ErN1jPRm1kZk9GAS8ugvhwHTJBwYWTcRhXcGEXjDLx1Bj7B6+LZxXDnQrBC5l9S523PAnCmf7pWSl9qLHLPaC9E3mdxGMl3RDWrjCiw5xS/U/B6INFPOQMwZX+P/v973Hevfs7XXEk1mrWMxm/r2oHMx/x99GjAUEwWDOaOwy8mI/kYq9Rvnuy61w3Gj7LsKOCIaLN1K0bCbv56r1rnrEr40pBrXGBKGkQE4AuIOpODTn5J8jQugT1Hcgec5Lu2CfaIuBrGNrvsHrpCgflh7udMTHM7KOfHgTKjVFLF+NyC4gGiURKC71CSxoYS9PqzE56QIY01730l2gXtcEFHV+4+XemHQ9xCDsU6MgD7hUD0N63Yii1znA==</X509Certificate></X509Data></KeyInfo></Signature></NFe><protNFe versao="4.00"><infProt Id="Id135190734243531"><tpAmb>1</tpAmb><verAplic>SP_NFE_PL009_V4</verAplic><chNFe>35191005441657000612550010003422711101649362</chNFe><dhRecbto>2019-10-04T16:49:37-03:00</dhRecbto><nProt>135190734243531</nProt><digVal>sfg7coSUNCT/Lx2kRvKZM70eQaY=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></nfeProc>
    arquivo=35191005441657000612550010003422711101649362-nfe.xml
    cOrgao=0
    cOrgaoAutor=0
    cSitNFe=1
    chNFe=35191005441657000612550010003422711101649362
    cteChvCte=
    cteModal=
    cteNProt=
    descEvento=
    dhEmi=04/10/2019
    dhRecbto=04/10/2019 16:49:37
    digVal=sfg7coSUNCT/Lx2kRvKZM70eQaY=
    emailDest=
    nProt=135190734243531
    nSeqEvento=0
    schema=procNFe
    tpAmb=
    tpEvento=
    tpNF=1
    vNF=2080
    verEvento=
    xEvento=
    xJust=
    xMotivo=
    xNome=NEWFACE SANTOS LTDA.
     

     

    ACBrNFe32.dll download de xml

    em ACBrLIB

    Postado

    Rafel Dias, resposta meio absurda não acha...o componente acha a nota no sefaz pelo xml, acha a nota pela no sefaz pela chave ,  só não esta baixando pelo componente...e eu estou fazendo algo errado.

    No site da sefaz acho a nota e faço download...fiz a manifestação pelo software do sefaz e depois consultei novamente no site ... e ali apresenta o aceite da nota.

    Analise....o componente não funciona 100% para finalidade de download...nada é tão perfeito.

     

     

    ACBrNFe32.dll download de xml

    em ACBrLIB

    Postado

    Bom dia, esta nota eu já tinha manifestado pelo software que o governo disponibiliza (Ciencia da Operacao 210210 e Confirmacao da Operacao 210200) mas mesmo assim não baixou, mesmo erro

    image.png.04d6f8299a494a9b174703b877e4bf10.png

    Não utilizei o método de vcs...não sei de faz diferença? Mas se faz seria isso:

    manifesta.ini

    [EVENTO]

    idLote=1

     

    [EVENTO001]

    cOrgao=35

    CNPJ=05441657000612

    chNFe=35191005441657000612550010003422711101649362

    dhEvento=2019-12-26T09:10:46-03:00

    tpEvento=210200

    nSeqEvento=1

    versaoEvento=1.00

    -------------------------------------------------------------------------------------------------------------------

    1)NFE_CarregarEventoINI( "d:\nfe\manifesta.ini" )

    2)NFE_ Assinar

    3)EnviarEvento(1)

     

    ACBrNFe32.dll download de xml

    em ACBrLIB

    Postado

    Rafael Dias, baixei o xml do sefaz nacional...portanto ja esta sincroninado....estou utilizando produção tpAmb=1... e na consulta retorna consulta OK

    [Consulta]
    CStat=100
    CUF=35
    ChNFe=35191268993641000128550010005379541513061031
    DhRecbto=05/12/2019 14:45:56
    DigVal=wAtEQDl0ZQ7oQ+KjPb6wdT8bYQA=
    Msg=Autorizado o uso da NF-e
    NProt=135190921071617
    VerAplic=SP_NFE_PL009_V4
    Versao=4.00
    XMotivo=Autorizado o uso da NF-e
    cMsg=0
    tpAmb=1
    xMsg=

     

    image.thumb.png.556efb128ecef0cc59da0fe48953f462.png

    ACBrNFe32.dll download de xml

    em ACBrLIB

    Postado

    Não esta funcionando baixar a nfe (esta consultando mas não faz download) 

    Dim eChave As String
    Dim eCNPJ As String
    Dim eUF As Integer
    eCNPJ = "96271309000195"
    eChave = "35191268993641000128550010005379541513061031"
    eUF = 35
    SetResposta nfe.DistribuicaoDFePorChave(eUF, eCNPJ, eChave)

     

    [Status]
    CStat=107
    CUF=35
    DhRecbto=23/12/2019 10:40:37
    Msg=Serviço em Operação
    TMed=1
    VerAplic=SP_NFE_PL009_V4
    Versao=4.00
    XMotivo=Serviço em Operação
    XObs=
    tpAmb=1

    [Consulta]
    CStat=100
    CUF=35
    ChNFe=35191268993641000128550010005379541513061031
    DhRecbto=05/12/2019 14:45:56
    DigVal=wAtEQDl0ZQ7oQ+KjPb6wdT8bYQA=
    Msg=Autorizado o uso da NF-e
    NProt=135190921071617
    VerAplic=SP_NFE_PL009_V4
    Versao=4.00
    XMotivo=Autorizado o uso da NF-e
    cMsg=0
    tpAmb=1
    xMsg=

    [DistribuicaoDFe]
    CStat=137
    CUF=0
    Msg=Nenhum documento localizado
    VerAplic=1.2.0
    Versao=1.01
    XMotivo=Nenhum documento localizado
    arquivo=
    dhResp=23/12/2019 10:41:04
    indCont=1
    maxNSU=000000000000091
    tpAmb=1

    acbrlib para nfe

    em ACBrLIB

    Postado

    acho que não desenhei direito

     

    Private Sub btnEnviar_Click()

        On Error GoTo Erro:
        
        CommonDialog1.DialogTitle = "Selecione o arquivo ini"
        CommonDialog1.InitDir = App.Path
        CommonDialog1.Filter = "Arquivo Ini NFe (*.ini)|*.ini|Todos os Arquivos (*.*)|*.*"
        CommonDialog1.FileName = vbNullString
        CommonDialog1.ShowOpen
                
        If CommonDialog1.FileName = vbNullString Then Exit Sub
        
        nfe.LimparLista
        nfe.CarregarINI (CommonDialog1.FileName)
        SetResposta nfe.Enviar(1)
        
    Erro:
        MsgBox Err.Description
        Exit Sub
    End Sub

    quero saber o layout de ini para gerar a nfe

     

     

    erro1.jpg

    erro2.jpg

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.