Ir para conteúdo
  • Cadastre-se

Wanderson Robert

Membros
  • Total de ítens

    42
  • Registro em

  • Última visita

Posts postados por Wanderson Robert

  1. Estou tendo um problema ao carrega a chave privada e Certificado que ficam armazenados no Banco de dados, ao tentar gerar o token há um retorno Erro Http 403.

    Identifiquei que problema é quando o carrego o certificado armazenado no Banco. Alguém já conseguiu utilizar desta forma. Para autorização de Nfe, já faço desta maneira (certificado armazenado no banco)


    05/07/23 09:37:56:458 - Resp.Body:
    {
        "mensagem": "Ausência do certificado na chamada.",
        "acao": "Verifique se o certificado está sendo enviado para o destino.",
        "codigo_erro": "C100"
    }
    05/07/23 09:37:56:465 - EACBrPixHttpException: Erro HTTP: 403, Metodo: POST, URL: https://sts.itau.com.br/as/token.oauth2
    05/07/23 09:38:03:751 - Removendo PSP: TACBrPSPItau, Nome: ACBrPSPItau

  2. Olá Pessoal, após atualização ACBR está acontecendo este erro ao compilar o pacote ACBr_SPED.dpk Linha 2117:

    Compiling package D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrTXT\ACBrSPED\ACBr_SPED.dpk
    "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrTXT\ACBrSPED\ACBr_SPED.dpk"
    Embarcadero Delphi for Win32 compiler version 35.0
    Copyright (c) 1983,2021 Embarcadero Technologies, Inc.
    D:\projetos\libs\ACBR\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBlocos.pas(2117) Error: E2153 ';' not allowed before 'ELSE'
    D:\projetos\libs\ACBR\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_0.pas(49) Fatal: F2063 Could not compile used unit 'ACBrEFDBlocos.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_SPED.dpk".

    image.thumb.png.6aca29f79f51ae4c52fb0dd141a08ffe.png

    Retirei o ; e compilou e instalou.

    • Curtir 1
  3. Após atualização de hoje o seguinte erro:

    Compiling package D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk
    "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk"
    Embarcadero Delphi for Win32 compiler version 23.0
    Copyright (c) 1983,2011 Embarcadero Technologies, Inc.
    D:\projetos\libs\ACBR\Fontes\ACBrComum\ACBrUtil.XMLHTML.pas(465) Error: E2034 Too many actual parameters
    D:\projetos\libs\ACBR\Fontes\ACBrComum\ACBrUtil.pas(2475) Fatal: F2063 Could not compile used unit 'ACBrUtil.XMLHTML.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_Comum.dpk".
    Abortando... Ocorreram erros na compilação dos pacotes.
    Antes da Correção

    image.thumb.png.5f1f975cc05641687cff7e178424b567.png

    Linha Corrigida

    image.thumb.png.91cbb69706b470b215c85290fb935109.png

  4. Solução proposta:

    Habilitando estas linhas será possível obter o código de autorização de pagamento.

    A LerSegmentoJ99 faz a leitura da autenticação somente de RegSegOpc ='3J99' 

    A LerSegmento Z considera RegSeg='3Z' entendo que o correto é habilitar todas as chamadas e declarações para o Segmemento J

    Arquivo: CNAB240.lerTxtRetorno
    Ação necessária: Linha 896, retirar comentário de LerSegmentoZ(PagFor.Lote.Last.SegmentoJ.Last.SegmentoZ, I);

    Arquivo: ACBRPagforClass

    Ações necessárias :CNAB240.LerTxtRetorno.pas
    Linha 1034 Retirar comentário de  FSegmentoZ: TSegmentoZList;
    Linha 1042 Retirar comentário de  procedure SetSegmentoZ(const Value: TSegmentoZList);
    Linha 1069 Retirar comentário de  property SegmentoZ: TSegmentoZList read FSegmentoZ write SetSegmentoZ;
    Linha 2055 Retirar comentário de  FSegmentoZ := TSegmentoZList.Create;
    Linha 2064 Retirar comentário de  FSegmentoZ.Free;
    Linha 2111 a 2114 Retirar comentário de procedure TSegmentoJ.SetSegmentoZ(const Value: TSegmentoZList);

    Arquivos com as alterações em anexo.

    Exemplo do resultado obtido da leitura o retorno obtido.

    image.thumb.png.2b120dbbb7fb4e2fe1e8d7f7c3f2e7f8.png

    ACBrPagForClass.pas

  5. Olá pessoal,

    Preparando a remessa pagfor bradesco, ao realizar a chamada da rotina BacotoDesc, quando informado tbanco = pagBradesco o nome do banco retornado era Mercado Pago, observei que os nomes estavam fora da sequência.

    Segue rotina corrigida,para ser substituída na unit: Acbrpagforconversao.pas

    function BancoToDesc(const t: TBanco): String;
    begin
      result := EnumeradoToStr(t,
        ['Nenhum',
         'BANCO DO BRASIL S.A', 'Banco Digio S.A', 'NU PAGAMENTOS S.A',
         'Pagseguro Internet S.A', 'Mercado Pago','BRADESCO S.A'
    ,  'BANCO SOFISA S.A', 'BANCO INTER S.A',
         'ITAU UNIBANCO S.A', 'CAIXA ECONOMICA FEDERAL', 'BANCO SANTANDER BRASIL S.A',
         'BANCO ORIGINAL S.A', 'BANCOOB', 'BANCO VOTORANTIM S.A', 'BANRISUL',
         'BANCO MERCANTIL DO BRASIL S.A', 'BANCO SAFRA S.A', 'BANCO DE BRASILIA',
         'UNICRED COOPERATIVA', 'BANCO RIBEIRAO PRETO', 'BANCO CETELEM S.A',
         'BANCO SEMEAR S.A', 'PLANNER CORRETORA DE VALORES S.A', 'BANCO B3 S.A',
         'RABOBANK INTERNACIONAL DO BRASIL S.A', 'SICREDI S.A', 'BNP PARIBAS BRASIL S.A',
         'UNICRED CENTRAL RS', 'KIRTON BANK', 'PORTOCRED S.A',
         'BANCO KEB HANA DO BRASIL S.A', 'XP INVESTIMENTOS S.A', 'BANCO XP S/A',
         'SUPER PAGAMENTOS S/A', 'GERENCIANET PAGAMENTOS DO BRASIL',
         'UNIPRIME NORTE DO PARANA', 'CM CAPITAL MARKETS CCTVM LTDA',
         'BANCO MORGAN STANLEY S.A', 'UBS BRASIL CCTVM S.A', 'TREVISO CC S.A',
         'HIPERCARD BM S.A', 'BCO. J.SAFRA S.A', 'UNIPRIME CENTRAL CCC LTDA',
         'BANCO ALFA S.A.', 'BCO ABN AMRO S.A', 'BANCO CARGILL S.A', 'SERVICOOP',
         'BANCO BRADESCARD', 'NOVA FUT URA CTVM LTDA', 'GOLDMAN SACHS DO BRASIL BM S.A',
         'CCC NOROESTE BRASILEIRO LTDA', 'CCM DESP TRANS SC E RS', 'BANCO INBURSA',
         'BANCO DA AMAZONIA S.A', 'CONFIDENCE CC S.A', 'BANCO DO ESTADO DO PARA S.A',
         'CASA CREDITO S.A', 'ALBATROSS CCV S.A', 'COOP CENTRAL AILOS',
         'CENTRAL COOPERATIVA DE CREDITO NO ESTADO DO ESPIRITO SANTO',
         'BANCO BBI S.A', 'BANCO BRADESCO FINANCIAMENTOS S.A',
         'BANCO DO NORDESTE DO BRASIL S.A.', 'BANCO CCB BRASIL S.A', 'HS FINANCEIRA',
         'LECCA CFI S.A', 'BANCO KDB BRASIL S.A.', 'BANCO TOPAZIO S.A', 'CCR DE OURO',
         'POLOCRED SCMEPP LTDA', 'CCR DE SAO MIGUEL DO OESTE',
         'ICAP DO BRASIL CTVM LTDA', 'SOCRED S.A', 'NATIXIS BRASIL S.A', 'CARUANA SCFI',
         'CODEPE CVC S.A', 'BANCO ORIGINAL DO AGRONEGOCIO S.A',
         'BBN BANCO BRASILEIRO DE NEGOCIOS S.A', 'STANDARD CHARTERED BI S.A',
         'CRESOL CONFEDERACAO', 'BANCO AGIBANK S.A', 'BANCO DA CHINA BRASIL S.A',
         'GET MONEY CC LTDA', 'BCO BANDEPE S.A', 'BANCO CONFIDENCE DE CAMBIO S.A',
         'BANCO FINAXIS', 'SENFF S.A', 'MULTIMONEY CC LTDA', 'BRK S.A',
         'BANCO BCO DO ESTADO DE SERGIPE S.A', 'BEXS BANCO DE CAMBIO S.A.',
         'BR PARTNERS BI', 'BPP INSTITUICAO DE PAGAMENTOS S.A', 'BRL TRUST DTVM SA',
         'BANCO WESTERN UNION', 'PARANA BANCO S.A', 'BARIGUI CH', 'BANCO BOCOM BBM S.A',
         'BANCO CAPITAL S.A', 'BANCO WOORI BANK DO BRASIL S.A', 'FACTA S.A. CFI',
         'STONE PAGAMENTOS S.A', 'BROKER BRASIL CC LTDA', 'BANCO MERCANTIL DO BRASIL S.A.',
         'BANCO ITAU BBA S.A', 'BANCO TRIANGULO S.A', 'SENSO CCVM S.A',
         'ICBC DO BRASIL BM S.A', 'VIPS CC LTDA', 'UBS BRASIL BI S.A',
         'MS BANK S.A BANCO DE CAMBIO', 'PARMETAL DTVM LTDA', 'VORTX DTVM LTDA',
         'COMMERZBANK BRASIL S.A', 'AVISTA S.A', 'GUITTA CC LTDA',
         'CCR DE PRIMAVERA DO LESTE', 'DACASA FINANCEIRA S/A',
         'GENIAL INVESTIMENTOS CVM S.A', 'IB CCTVM LTDA', 'BANCO BANESTES S.A',
         'BANCO ABC BRASIL S.A', 'SCOTIABANK BRASIL', 'BANCO BTG PACTUAL S.A',
         'BANCO MODAL S.A', 'BANCO CLASSICO S.A', 'BANCO GUANABARA S.A',
         'BANCO INDUSTRIAL DO BRASIL S.A', 'BANCO CREDIT SUISSE (BRL) S.A',
         'BANCO FAIR CC S.A', 'BANCO LA NACION ARGENTINA', 'CITIBANK N.A',
         'BANCO CEDULA S.A', 'BANCO BRADESCO BERJ S.A', 'BANCO J.P. MORGAN S.A',
         'BANCO CAIXA GERAL BRASIL S.A', 'BANCO CITIBANK S.A', 'BANCO RODOBENS S.A',
         'BANCO FATOR S.A', 'BNDES', 'ATIVA S.A INVESTIMENTOS', 'BGC LIQUIDEZ DTVM LTDA',
         'BANCO ALVORADA S.A', 'BANCO ITAU CONSIGNADO S.A', 'BANCO MAXIMA S.A',
         'HAITONG BI DO BRASIL S.A', 'BANCO OLIVEIRA TRUST DTVM S.A',
         'BNY MELLON BANCO S.A', 'PERNAMBUCANAS FINANC S.A',
         'LA PROVINCIA BUENOS AIRES BANCO', 'BRASIL PLURAL S.A BANCO',
         'JPMORGAN CHASE BANK', 'BANCO ANDBANK S.A', 'ING BANK N.V', 'BANCO BCV',
         'LEVYCAM CCV LTDA', 'BANCO REP ORIENTAL URUGUAY', 'BEXS CC S.A',
         'HSBC BANCO DE INVESTIMENTO', 'BCO ARBI S.A', 'INTESA SANPAOLO BRASIL S.A',
         'BANCO TRICURY S.A', 'BANCO INTERCAP S.A', 'BANCO FIBRA S.A',
         'BANCO LUSO BRASILEIRO S.A', 'BANCO PAN', 'BANCO BRADESCO CARTOES S.A',
         'BANCO ITAUBANK S.A', 'BANCO MUFG BRASIL S.A',
         'BANCO SUMITOMO MITSUI BRASIL S.A', 'OMNI BANCO S.A',
         'ITAU UNIBANCO HOLDING BM S.A', 'BANCO INDUSVAL S.A', 'BANCO CREFISA S.A',
         'BANCO MIZUHO S.A', 'BANCO INVESTCRED UNIBANCO S.A', 'BANCO BMG S.A',
         'BANCO FICSA S.A', 'SAGITUR CC LTDA', 'BANCO SOCIETE GENERALE BRASIL',
         'MAGLIANO S.A', 'TULLETT PREBON BRASIL CVC LTDA',
         'C.SUISSE HEDGING-GRIFFO CV S.A', 'BANCO PAULISTA',
         'BOFA MERRILL LYNCH BM S.A', 'CCR REG MOGIANA', 'BANCO PINE S.A',
         'EASYNVEST – TITULO CV S.A', 'BANCO DAYCOVAL S.A', 'CAROL DTVM LTDA',
         'RENASCENCA DTVM LTDA', 'DEUTSCHE BANK S.A', 'BANCO CIFRA', 'GUIDE',
         'BANCO RENDIMENTO S.A', 'BANCO BS2 S.A',
         'BS2 DISTRIBUIDORA DE TITULOS E INVESTIMENTOS',
         'BANCO OLE BONSUCESSO CONSIGNADO S.A', 'LASTRO RDV DTVM LTDA',
         'FRENTE CC LTDA', 'B&T CC LTDA', 'NOVO BANCO CONTINENTAL S.A',
         'BANCO CREDIT AGRICOLE BR S.A', 'BANCO SISTEMA', 'CREDIALIANCA CCR',
         'BANCO VR S.A', 'BANCO OURINVEST S.A', 'CREDICOAMO',
         'RB CAPITAL INVESTIMENTOS DTVM LTDA', 'BANCO JOHN DEERE S.A',
         'ADVANCED CC LTDA', 'BANCO C6 S.A', 'BANCO DIGIMAIS S.A'],
        [pagNenhum,
         pagBancodoBrasil, pagBancoDigito, pagNuBank,
         pagPagSeguro, pagMercadoPago, pagBradesco, pagSofisaDireto, pagInter, pagItau,
         pagCaixaEconomica, pagSantander, pagOriginal, pagBanCooB, pagVotorantim,
         pagBanrisul, pagSafra, pagBRB, pagUnicredCooperativa, pagBancoRibeiraoPreto,
         pagCetelem, pagSemear, pagPlannerCorretora, pagB3, pagRabobank, pagSicredi,
         pagBNPParibasBrasil, pagUnicredCentralRS, pagKirtonBank, pagPortoCred,
         pagKebHanaBrasil, pagXPInvestimentos, pagBancoXP, pagSuperPagamentos,
         pagGerencianetPagamentos, pagUniprimeNortedoParana, pagCapitalMarkets,
         pagMorganStanley, pagUBSBrasilCCTVM, pagTrevisoCC, pagHipercardBancoMultiplo,
         pagJSafra, pagUniprimeCentral, pagAlfa, pagABNAmro, pagCargill, pagServiCoop,
         pagBradescard, pagNovaFutura, pagGoldmanSachsBrasil, pagCCCNoroesteBrasileiro,
         pagCCMDespTransSCeRS, pagInbursa, pagBancodaAmazonia, pagConfidenceCC,
         pagBancodoEstadodoPara, pagCasaCredito, pagAlbatrossCCV, pagBancoCECRED,
         pagCooperativaCreditoEspiritoSanto, pagBancoBBI, pagBradescoFinanciamentos,
         pagBancoDoNordeste, pagCCBBrasil, pagHSFinanceira, pagLeccaCFI,
         pagKDBBrasil, pagTopazio, pagCCROuro, pagPolocred, pagCCRSaoMigueldoOeste,
         pagICAPBrasil, pagSocred, pagNatixisBrasil, pagCaruana,
         pagCodepeCVC, pagOriginalAgronegocio, pagBancoBrasileiroNegocios,
         pagStandardChartered, pagCresol, pagAgibank, pagBancodaChinaBrasil,
         pagGetMoneyCC, pagBANDEPE, pagConfidenceCambio, pagFinaxis, pagSenff,
         pagMultiMoneyCC, pagBRK, pagBancodoEstadodeSergipe, pagBEXSBancodeCambio,
         pagBRPartners, pagBPP, pagBRLTrustDTVM, pagWesternUniondoBrasil,
         pagParanaBanco, pagBariguiCH, pagBOCOMBBM, pagCapital, pagWooriBank, pagFacta,
         pagStone, pagBrokerBrasilCC, pagMercantil, pagItauBBA, pagTriangulo,
         pagSenso, pagICBCBrasil, pagVipsCC, pagUBSBrasil, pagMSBank, pagMarmetal,
         pagVortx, pagCommerzbank, pagAvista, pagGuittaCC, pagCCRPrimaveraDoLeste,
         pagDacasaFinanceira, pagGenial, pagIBCCTVM, pagBANESTES, pagABCBrasil,
         pagScotiabankBrasil, pagBTGPactual, pagModal, pagClassico, pagGuanabara,
         pagIndustrialdoBrasil, pagCreditSuisse, pagFairCC, pagLaNacionArgentina,
         pagCitibankNA, pagCedula, pagBradescoBERJ, pagJPMorgan, pagCaixaGeralBrasil,
         pagCitibank, pagRodobens, pagFator, pagBNDES, pagAtivaInvestimentos,
         pagBGCLiquidez, pagAlvorada, pagItauConsignado, pagMaxima,
         pagHaitongBi, pagOliveiraTrust, pagBNYMellonBanco, pagPernambucabasFinanc,
         pagLaProvinciaBuenosAires, pagBrasilPlural, pagJPMorganChaseBank, pagAndbank,
         pagINGBankNV, pagBCV, pagLevycamCCV, pagRepOrientalUruguay, pagBEXSCC,
         pagHSBC, pagArbi, pagIntesaSanPaolo, pagTricury, pagInterCap, pagFibra,
         pagLusoBrasileiro, pagPAN, pagBradescoCartoes, pagItauBank, pagMUFGBrasil,
         pagSumitomoMitsui, pagOmniBanco, pagItauUnibancoHolding, pagIndusval,
         pagCrefisa, pagMizuhodoBrasil, pagInvestcredUni, pagBMG, pagFicsa,
         pagSagiturCC, pagSocieteGeneraleBrasil, pagMagliano, pagTullettPrebon,
         pagCreditSuisseHedgingGriffo, pagPaulista, pagBankofAmericaMerrillLynch,
         pagCCRRegMogiana, pagPine, pagEasynvest, pagDaycoval, pagCarol,
         pagRenascenca, pagDeutscheBank, pagCifra, pagGuide, pagRendimento, pagBS2,
         pagBS2DistribuidoraTitulos, pagOleBonsucessoConsignado, pagLastroRDV,
         pagFrenteCC, pagBTCC, pagNovoBancoContinental, pagCreditAgricoleBrasil,
         pagBancoSistema, pagCredialianca, pagVR, pagBancoOurinvest, pagCredicoamo,
         pagRBCapitalInvestimentos, pagJohnDeere, pagAdvanced, pagC6, pagDigimais]);
    end;

    ACBrPagForConversao.pas

    • Obrigado 1
  6. Compiling package D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrDFe\ACBrNFSeX\ACBr_NFSeX.dpk
    "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrDFe\ACBrNFSeX\ACBr_NFSeX.dpk"
    Embarcadero Delphi for Win32 compiler version 35.0
    Copyright (c) 1983,2021 Embarcadero Technologies, Inc.
    D:\projetos\libs\ACBR\Fontes\ACBrDFe\ACBrNFSeX\Base\WebServices\ACBrNFSeXWebserviceBase.pas(711) Error: E2003 Undeclared identifier: 'teUNICODE'
    D:\projetos\libs\ACBR\Fontes\ACBrDFe\ACBrNFSeX\Base\WebServices\ACBrNFSeXWebservicesResponse.pas(2413) Fatal: F2063 Could not compile used unit 'ACBrNFSeXWebserviceBase.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_NFSeX.dpk".

    image.png

  7. Compiling package D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrPagFor\ACBr_PagFor.dpk
    "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "D:\projetos\libs\ACBR\Pacotes\Delphi\ACBrPagFor\ACBr_PagFor.dpk"
    Embarcadero Delphi for Win32 compiler version 23.0
    Copyright (c) 1983,2011 Embarcadero Technologies, Inc.
    D:\projetos\libs\ACBR\Fontes\ACBrPagFor\ACBrPagForConversao.pas(1387) Error: E2018 Record, object or class type required
    D:\projetos\libs\ACBR\Fontes\ACBrPagFor\ACBrPagForConversao.pas(1395) Error: E2029 Statement expected but end of file found
    D:\projetos\libs\ACBR\Fontes\ACBrPagFor\ACBrPagForConversao.pas(1395) Error: E2029 ';' expected but end of file found
    D:\projetos\libs\ACBR\Fontes\ACBrPagFor\ACBrPagForClass.pas(2409) Fatal: F2063 Could not compile used unit 'ACBrPagForConversao.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_PagFor.dpk".
    Abortando... Ocorreram erros na compilação dos pacotes.

  8. Bom dia.

    Segue erro completo:

    D:\ACBR\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSe.pas(280) Error: E2003 Undeclared identifier: 'TUnidade'
    D:\ACBR\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSe.pas(326) Error: E2005 'TUnidade' is not a type identifier
    D:\ACBR\Fontes\ACBrDFe\ACBrNFSe\DANFSE\ACBrNFSeDANFSeClass.pas(2197) Fatal: F2063 Could not compile used unit 'pnfsNFSe.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_NFSe.dpk".

  9. Thiago Cocati

    Tive o mesmo problema e fiz a correção nas linhas indicadas alterando o {$endif} para {$ifend}, faça isso nas linhas indicadas, e resolverá até subirem a correção para svn.


    D:\ACBR\Fontes\ACBrDFe\ACBrDFeHttpIndy.pas(44) Error: E2029 $IFEND expected but $ENDIF found
    D:\ACBR\Fontes\ACBrDFe\ACBrDFeHttpIndy.pas(62) Error: E2029 $IFEND expected but $ENDIF found
    D:\ACBR\Fontes\ACBrDFe\ACBrDFeHttpIndy.pas(157) Error: E2029 $IFEND expected but $ENDIF found
    D:\ACBR\Fontes\ACBrDFe\ACBrDFeHttpIndy.pas(242) Error: E2029 $IFEND expected but $ENDIF found
    Erro ao compilar o pacote "ACBr_DFeComum.dpk".

    Sem mais,

    com a correção ficaria assim: {$IF CompilerVersion >= 33}System.Net.HttpClient,{$IFEND}

    Wanderson Robert

    • Curtir 1
    • Obrigado 1
×
×
  • 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.