Pegasus Aut e Desenv

Bom dia, estou usando o ACBRPIXCD para o Banco do Brasil, já em produção, tudo perfeito. Mas estou com um problema na geração da Imagem do QRCODE em FMX Android. Se alguem puder me dar uma luz. Como podem ver nas fotos anexas, em FMX Windows o QRCOde sai perfeito, limpo, mas no equipamento Tectoy V2 a imagem sai borrada. Consegue ler a imagem no V2, testei com iPhones e celulares mais simples, mas fica feio, rs. Uso o seguinte código para gerar o qrcode. var QRCode: TDelphiZXingQRCode; Row, Column: Integer; pixelColor : TAlphaColor; vBitMapData : TBitmapData; rSrc, rDest : TRectF; s : widestring; QRCodeBitmap : TBitmap; begin QRCode := TDelphiZXingQRCode.Create; QRCodeBitmap := TBitmap.Create; try QRCode.Data := TextoQrCode; QRCode.Encoding := TQRCodeEncoding(0); QRCode.QuietZone := 4; QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns); for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then pixelColor := TAlphaColors.Black else pixelColor := TAlphaColors.White; if QRCodeBitmap.Map(TMapAccess.Write, vBitMapData) then try vBitMapData.SetPixel(Column, Row, pixelColor); finally QRCodeBitmap.Unmap(vBitMapData); end; end; end; imgQRCode.Bitmap := QrCodeBitmap; imgQRCode.DisableInterpolation := true; imgQRCode.WrapMode := TImageWrapMode.Fit; imgQRCode.Bitmap.SetSize(QRCodeBitmap.Width, QRCodeBitmap.Height); rSrc := TRectF.Create(0, 0, QRCodeBitmap.Width, QRCodeBitmap.Height); rDest := TRectF.Create(0, 0, imgQRCode.Bitmap.Width, imgQRCode.Bitmap.Height); if imgQRCode.Bitmap.Canvas.BeginScene then try imgQRCode.Bitmap.Canvas.Clear(TAlphaColors.White); imgQRCode.Bitmap.Canvas.DrawBitmap(QRCodeBitmap, rSrc, rDest, 1); finally imgQRCode.Bitmap.Canvas.EndScene; end; finally QRCode.Free; QRCodeBitmap.Free; end;

Estou com o seguinte problema no sistema depois de 01/03. Gero neste sistema mais de 500 NFSe por mes, sem problemas, acontece que de uma hora para a outra tenho a seguinte mensagem de erro ao enviar um RPS, mas vejam que no RPS os campos de CNPJ estão preenchidos normalmente, o que pode ser : Provedor : SH3 São João del REi. Metodo de envio : ACBrNFSeX1.Emitir(LoteRPS); Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 65378 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : 3524030038066600011256000000000057736-rps.xmlSucesso : False Desc.Situacao : Erro(s): Código : X800 Mensagem: Erro de Validação: --> 1871 - Element '{http://www.abrasf.org.br/nfse.xsd}CpfCnpj': Missing child element(s). Expected is one of ( {http://www.abrasf.org.br/nfse.xsd}Cpf, {http://www.abrasf.org.br/nfse.xsd}Cnpj ). Correção: --------- NFS-e Numero....: 057736 Cod. Verificacao: Prestador.......: HALL MEDICINA E SEGURANCA DO TRABALHO LTDA Tomador.........: ALCEU E NETOS TRANSPORTES LTDA.3524030038066600011256000000000057736-rps.xml Se alterar o envio para ACBrNFSeX1.Emitir(LoteRPS,meUnitario), tenho a seguinte mensagem de erro: Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 65382 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Desc.Situacao : <GerarNfseResponse xmlns="http://nfse.abrasf.org.br"><outputXML xmlns=""><GerarNfseResposta xmlns="http://www.abrasf.org.br/nfse.xsd"><ListaNfse><CompNfse><Nfse versao="2.02"><InfNfse><Numero>202400000001112</Numero><CodigoVerificacao>194E-6D2C</CodigoVerificacao><DataEmissao>2024-03-04T13:43:01</DataEmissao><ValoresNfse><BaseCalculo>188.00</BaseCalculo><Aliquota>2.00</Aliquota><ValorIss>3.76</ValorIss><ValorLiquidoNfse>188.00</ValorLiquidoNfse></ValoresNfse><ValorCredito>0.00</ValorCredito><PrestadorServico><IdentificacaoPrestador><CpfCnpj><Cnpj>00380666000112</Cnpj></CpfCnpj><InscricaoMunicipal>0204582066</InscricaoMunicipal></IdentificacaoPrestador><RazaoSocial>HALL MEDICINA E SEGURANCA DO TRABALHO LTDA</RazaoSocial><NomeFantasia>HALL-MEDICINA E SEGURANCA DO TRABALHO</NomeFantasia><Endereco><Endereco>DUQUE DE CAXIAS</Endereco><Numero>99</Numero><Bairro>CENTRO</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36307314</Cep></Endereco><Contato><Telefone>3233891918</Telefone></Contato></PrestadorServico><OrgaoGerador><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf></OrgaoGerador><DeclaracaoPrestacaoServico><InfDeclaracaoPrestacaoServico><Rps Id="65382__01"><IdentificacaoRps><Numero>65382</Numero><Serie>01</Serie><Tipo>1</Tipo></IdentificacaoRps><DataEmissao>2024-03-04</DataEmissao><Status>1</Status></Rps><Competencia>2024-03-04</Competencia><Servico><Valores><ValorServicos>188.00</ValorServicos><ValorDeducoes>0.00</ValorDeducoes><ValorPis>0.00</ValorPis><ValorCofins>0.00</ValorCofins><ValorInss>0.00</ValorInss><ValorIr>0.00</ValorIr><ValorCsll>0.00</ValorCsll><OutrasRetencoes>0</OutrasRetencoes><ValorIss>3.76</ValorIss><Aliquota>2.00</Aliquota><DescontoIncondicionado>0.00</DescontoIncondicionado><DescontoCondicionado>0.00</DescontoCondicionado></Valores><IssRetido>2</IssRetido><ItemListaServico>1701</ItemListaServico><CodigoCnae>7490199</CodigoCnae><CodigoTributacaoMunicipio>13408</CodigoTributacaoMunicipio><Discriminacao>REFERENTE AOS EXAMES DE E.E.G. E E.C.G. DOS FUNC.: FLAVIO ANTONIO DA SILVA E JULIO CESAR SIQUEIRA DE MOURA REALIZADOS EM JANEIRO DE 2024.</Discriminacao><CodigoMunicipio>3162500</CodigoMunicipio><ExigibilidadeISS>1</ExigibilidadeISS></Servico><Prestador><CpfCnpj><Cnpj>00380666000112</Cnpj></CpfCnpj><InscricaoMunicipal>0204582066</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cnpj>27830794000177</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>ALCEU E NETOS TRANSPORTES LTDA.</RazaoSocial><Endereco><Endereco>FAZENDA RODOVIA BR 265,KM 98, FAZ.COELHO</Endereco><Numero>0</Numero><Bairro>ZONA RURAL</Bairro><CodigoMunicipio>3144508</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36370000</Cep></Endereco><Contato><Telefone>0</Telefone></Contato></Tomador><RegimeEspecialTributacao>6</RegimeEspecialTributacao><OptanteSimplesNacional>1</OptanteSimplesNacional><IncentivoFiscal>2</IncentivoFiscal></InfDeclaracaoPrestacaoServico></DeclaracaoPrestacaoServico></InfNfse></Nfse></CompNfse></ListaNfse></GerarNfseResposta> </outputXML></GerarNfseResponse> Erro(s): Código : X202 Mensagem: Lista de NFSe não encontrada! (ListaNfse) Correção: --------- NFS-e Numero....: 057736 Cod. Verificacao: Prestador.......: HALL MEDICINA E SEGURANCA DO TRABALHO LTDA Tomador.........: ALCEU E NETOS TRANSPORTES LTDA.

Agora mudou o erro: Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. 2550 lines, 0.22 seconds, 11868 bytes code, 212 bytes data. Compilation success Pacote "DCLACBr_BoletoFPDF.dpk" compilado com sucesso. Cleaning package cache for ACBr_NFeDanfeFR.bpl Cleaning ok Compiling package D:\acbr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBr_NFeDanfeFR.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "D:\acbr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBr_NFeDanfeFR.dpk" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. 8120 lines, 0.45 seconds, 84756 bytes code, 216 bytes data. Compilation success Pacote "ACBr_NFeDanfeFR.dpk" compilado com sucesso. Cleaning package cache for DCLACBr_NFeDanfeFR.bpl Cleaning ok Compiling package D:\acbr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\DCLACBr_NFeDanfeFR.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "D:\acbr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\DCLACBr_NFeDanfeFR.dpk" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. D:\acbr\Fontes\ACBrComum\ACBrReg.pas(51) Fatal: F2613 Unit 'ToolsApi' not found. Compilation failure Erro ao compilar o pacote "DCLACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Boa tarde, como disse, minha versão é 2023.3.4

Ok, agora apareceu o 12, mas deu esta mensagem, no 11 ocorreu tudo normal. "C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\dcc32.exe" "D:\acbr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\DCLACBr_NFeDanfeFR.dpk" Embarcadero Delphi for Win32 compiler version 36.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. DCLACBr_NFeDanfeFR.dpk(35) Error: E2199 Packages 'vclx' and 'ACBr_NFeDanfeFR' both contain unit 'Vcl.CheckLst' DCLACBr_NFeDanfeFR.dpk(35) Error: E2199 Packages 'vclx' and 'ACBr_NFeDanfeFR' both contain unit 'Vcl.FileCtrl' DCLACBr_NFeDanfeFR.dpk(35) Fatal: F2220 Could not compile package 'vclx' Compilation failure Erro ao compilar o pacote "DCLACBr_NFeDanfeFR.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Retirei os componentes que usam FastReport e passsou, meu fast é o 2023.3.4.

Bom dia a todos, instalei o Delphi 12, atualizei o ACBR, mas ao executar o instalador não aparece opção para o 12 e aparece a mensagem de erro na imagem. Tem previsão pro instalador funcionar com o 12? Obrigado.

Bom dia a todos, não sei se aqui é o lugar correto. Mas vamos lá. Configurei o ACBRPIX para o Mercado Pago, funcionou 100%, muito simples por sinal, dentre os que configurei, claramente foi o mais simples. O problema está no cancelamento do PIX, caso o lojista deseje cancelar o PIX por qualquer motivo, desistência do consumidor ou outra coisa, utilizo o método : CobRevisada.status := stcREMOVIDA_PELO_USUARIO_RECEBEDOR ao revisar a cobrança RevisarCobrancaImediata(OrderID) Tenho a seguinte mensagem de erro: TransmitirHttp(AMethod, AURL, ResultCode, RespostaHttp); Exception message : Expected "{" but found invalid symbol (1, 2) aMethod = PATCH aURL = https://api.mercadopago.com/v1/payments/65939763923 resultCode = 405 RespostaHTTP = <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">'#$D#$A'<html> <head><title>405 Method Not Allowed</title></head> <body bgcolor="white"> <h1>405 Method Not Allowed</h1> <p>The requested method is not allowed for the URL.</body> </html> Pela documentação do Mercado Pago, eles utilizam PUT em vez de PATCH, seria esse o problema? curl -X PUT \ 'https://api.mercadopago.com/v1/payments/{payment_id}' \ -H 'Authorization: Bearer YOUR_ACCESS_TOKEN' \ -H 'Content-Type: application/json' \ -d '{ "status": "cancelled" }'

Bom dia, implantei a emissão de boleto Sicoob via WS, tudo ok, só um detalhe, o comando de emissão e distribuição está fixo para o banco, fiz o teste e paguei quase R$ 4,00 de taxa (e recebi o boleto pelos correios). O código está assim em ACBrBoletoW_Bancoob Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 1; Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1; Segundo o manual do banco: identificacaoEmissaoBoleto* integer example: 1 Código de identificação de emissão do boleto. Informar os valores listados abaixo. - 1 Banco Emite - 2 Cliente Emite identificacaoDistribuicaoBoleto* integer example: 1 Código de identificação de distribuição do boleto. Informar os valores listados abaixo. - 1 Banco Distribui - 2 Cliente Distribui Deveria ficar algo mais ou menos assim: if aTitulo.ACBrBoleto.Cedente.ResponEmissao= tbCliEmite then begin Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 2; Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 2; end else begin Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 1; Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1; end; Estou reportando para se possível fazerem as devidas correções nos fontes. Obrigado.

Postei todas as informações sim, veja no inicio do meu post.

Bom dia, Iniciei o projeto para enviar boletos via webservice pelo Sicoob, para testes estou utilizando o programa exemplo da ACBR. ACBRBoletoDemo_Fast Criei o aplicativo no Sicoob, como imagem anexa. Configurei o componente conforme foi informado para fazer: WebService.Ambiente := TpcnTipoAmbiente(Ord(ckbEmHomologacao.Checked)); WebService.SSLHttpLib := TSSLHttpLib(cbxSSLLib.ItemIndex); WebService.ArquivoCRT := 'D:\Projetos\PegasusERP\servidor\BIN\ChavePrivada.pem'; WebService.ArquivoKEY := 'D:\Projetos\PegasusERP\servidor\BIN\ChavePrivada.key'; WebService.SSLType := LT_TLSv1_2; WebService.TimeOut := 10000; ClientSecret e ClientID com os mesmos valores do cadastro no Sicoob : 091..........................80d Escopo : cobranca_boletos_consultar cobranca_boletos_incluir cobranca_boletos_baixa Ao tentar registrar tenho o seguinte retorno : 28/04/23 10:03:48:758 - Autenticando Token... 28/04/23 10:03:50:380 - Comando Enviar: [{"numeroContrato":4266443,"modalidade":1,"numeroContaCorrente":581097,"especieDocumento":"DM","dataEmissao":"2023-04-28T03:00:00.000Z","nossoNumero":"00123563","seuNumero":"00123563","identificacaoBoletoEmpresa":"00123563","identificacaoEmissaoBoleto":1,"identificacaoDistribuicaoBoleto":1,"valor":10,"dataVencimento":"2023-05-28T03:00:00.000Z","numeroParcela":1,"aceite":false,"tipoDesconto":0,"tipoJurosMora":0,"valorJurosMora":0,"tipoMulta":2,"dataMulta":"2023-05-29T03:00:00.000Z","valorMulta":5,"pagador":{"numeroCpfCnpj":"57143951668","nome":"NELSON LIMA NETO","endereco":"RUA VEREADOR JAMIL NACIF 62","bairro":"COLINAS DEL REI","cidade":"SAO JOAO DEL REO","cep":"36307636","uf":"MG"},"gerarPdf":true,"codigoCadastrarPIX":1}] 28/04/23 10:03:50:788 - Retorno Envio: HTTPCode=401 Result={"httpCode":"401","httpMessage":"Unauthorized","moreInformation":"Cannot pass the security checks that are required by the target API or operation, Enable debug headers for more details."} Problema meu, no banco ou no componente? Obrigado ChavePrivada.key Certificado.pem

Ok, vou atualizar, obrigado.

Resolvido, alterei o arquivo ACBrNFSeXServicos.ini, copiei os dados de outra cidade que tinha Fiorilli, coloquei o IP que aparecia no site da prefeitura, funcionou, emitiu nota e consultei RPS. Envio os dados para alterarem no trunk. [3160702] Nome=Santos Dumont UF=MG Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://186.224.54.100:8440/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://186.224.54.100:8440/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

Uma coisa que me chamou a atenção agora, Prefeitura de Santos Dumont, no site da prefeitura, na parte de NFSE todas as informações são a respeito do Provedor Fiorilli, manuais, complemento para acessar via certificado digital, etc. Mas no arquivo ACBrNFSeXServicos.ini consta os seguintes dados: [3160702] ; Incluído em 28/05/2021 Nome=Santos Dumont UF=MG Provedor=ADPM Versao=2.03 ProRecepcionar=https://api.redemunicipal.com.br/serversoap/NfseWSService HomRecepcionar=http://200.251.30.48:8080/serversoap/NfseWSService Está correto isso? Vejam este texto: ACESSO COM CERTIFICADO DIGITAL http://186.224.54.100:8440/issweb/javax.faces.resource/temas/verde/logo_icpbrasil_verde.png.xhtml?ln=imagens Para acessar com certificado digital emitido por autoridade certificadora credenciada pela autoridade certificadora raiz da ICP Brasil é necessário que o computador possua a extensão Fiorilli Web Extension instalada no navegador e o aplicativo Fiorilli Web Extension Client no seu sistema operacional.

Já fiz de tudo, produção e homologação, já usei certificado pelo caminho, já usei certificado pela numero de série, já usei WynCrypt, já usei OpenSLL e a mensagem continua a mesma.

Exatamente, como explicado no topico, estou usando somente o programa exemplo para ver quais configurações deverei colocar em meu sistema. Já testei todas as configurações possiveis, já coloquei a pasta do certificado, já coloquei certificado por numero de série, enfim, já fiz de tudo. Se tento fazer uma nota errada, o sistema de Santos Dumont avisa do erro (tributação inválida por exemplo), mas se a nota passa sem erros, o sistema dá a mensagem É necessário efetuar o processo de autenticação SSL bidirecional no sistema cliente.