Wanderson Robert

Bom dia, Sim Alexandre, já está em produção aqui. PagFor.Itau.LerTxtRetorno.pas

Bom dia Pessoal, Recente o Banco Itaú liberou o Segmento Z do retorno de pagamentos PIX, fiz alteração no arquivo: PagFor.Itau.LerTxtRetorno.pas - linha 217 de // LerSegmentoZ(PagFor.Lote.Last.SegmentoA.Last.SegmentoZ, I); para LerSegmentoZ(PagFor.Lote.Last.SegmentoA.Last.SegmentoZ, nLinha);

Sim está, pois quando faço um select o retorno está correto. Mais vou verificar novamente. Obrigado Juliomar.

Consegui apenas gerando um arquivo, para realizar um LoadCertificateFromFile, depois apago o arquivo.

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

Obrigado Italo, atualizado e funcionando.

Olá Pessoal. O processamento do Retorno de Pagamentos PAGFOR/Multipag - Bradesco no Segmento A existe o Segmento Z opcional, é necessário ativar para que conseguir a autenticação do pagamento, abaixo alterações realizadas: Units atualizadas em anexo. AcbrPagForClass.Pas PagFor.Bradesco.LerTxtRetorno.Pas PagFor.Bradesco.LerTxtRetorno.pas ACBrPagForClass.pas

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". Retirei o ; e compilou e instalou.

Valeu pessoal, Obrigado. Feliz Ano novo a todos!!

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 Linha Corrigida

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. ACBrPagForClass.pas

Olá Pessoal, preciso obter o código de autorização no arquivo de retorno, no Segmento O, possui a instrução porém no Segmento J não possui, alguém já conseguiu obter esta informação?

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

Resolvido. Obrigado!

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".