PagFor Conversão errada

Wanderson Robert · 1 Abril, 2022

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;