Pegasus Aut e Desenv

Boa tarde, estou fazendo a homologação do boleto C6 e ao tentar cancelar tenho a seguinte resposta. {"type":"https://developers.c6bank.com.br/v1/error/unprocessable_entity","title":"Entidade não pode ser processada. O formato enviado é correto, mas o objeto é semanticamante errado.","status":422,"detail":"Cannot update boleto:(number=01JD7XFWC2RW0WVXEESPQ979HW) with status CANCELLED. Unprocessable Entity","correlation_id":"8e62d00231cfcaba-GIG","timestamp":"2024-11-21T18:41:13.232Z"}' Alguém tem idéia do que pode ser? Testei também dentro do exemplo da ACBR e tenho a mesma mensagem. Será se pode ser algum problema no Banco? No Ambiente de testes? Obrigado

Ok, tinha feito isso, não funcionou, depois tentei novamente e está funcionando agora, vai entender, inclusive já abandonei o exemplo e estou fazendo direto no meu sistema, tudo certo, obrigado a todos pela atenção.

Tentei agora com os dois, registrei um novo, no nosso numero correspondente coloquei o numero do titulo gerado 000976986 e também com o ID Gerado no Json, um numero grande com letras e numeros, envio os logs. Coloquei direto no programa exemplo, não coloquei diretamente no fonte, coloquei no Edit. retornoconsulta.txt c6.log retornoregistro.txt

Bom dia, Estou implementado o C6 Bank no meu sistema e antes para fazer os testes estou usando o ExemploC6 da ACBR Registro o boleto normalmente, minha dúvida está nas consultas e baixas. Inclui um boleto e logo após o registro eu clico em Consultar ou Baixar e tenho a seguinte mensagem no log: Cod_Retorno= Msg_Retorno= Ori_Retorno= HTTP_Result=500 JSON={"type":"https://developers.c6bank.com.br/v1/error/internal_server_error","title":"Condi??o inesperada ao processar requisi??o.","status":500,"detail":"Erro interno, consulte a documenta??o. Server Error","correlation_id":"8e5093125132e103-GIG","timestamp":"2024-11-19T13:33:53.578Z"} [Rejeicao0] Campo=https://developers.c6bank.com.br/v1/error/invalid_request Codigo=400 Versao=Correlation_id:8e508e1553d164f3-GIG Mensagem=Requisi??o inv?lida. Ocorrencia=Parameter 'id' is required but is missing.: []]\" Bad Request Valor= Este parametro ID? Onde passo ele, não achei. Se algum puder ajudar, agradeço.

Não existe, sou homologado Windows e Android PayGo. E utilizei o ACBRTef no Android da mesma forma que no Windows.

Pessoal, consegui imprimir com o GPOS720. Removi a biblioteca que estava configurada no demo payment-1.14.10.181016_classes.jar e adicionei a que veio com o exemplo que a gertec mandou libgedi-0.16.17-beta.0-gpos720-payment-release.jar, configurei como externa GERTEC GEDI e imprimiu. Ops, esqueci de adicionar a lib. libgedi-0.16.17-beta.0-gpos720-payment-release.jar

Acho que não, pois quando lista, aparece apenas NULL: Mas consegui na Gertec um programa exemplo de impressão, testei e funcionou, vou tentar adaptar no AcbrPosPrinter e se conseguir informo como foi feito

Sim, bluetooth, bluetooth admin, etc

Externa, pois se seleciono interno aparece apenas NULL:

Bom dia a todos Estou com um Gertec GPOS720. Instalei o ACBRPosprinterAndroid para testar a impressão, antes descomentei todas as linha que tinham referência a ACBrPosPrinterGEDI, mas ao tentar imprimir tenho a mensagem de erro : PRNTR not found. Não é compatível mesmo ou falta alguma coisa? Obrigado.

Agora esta ok, so estava mostrando o erro que acontecia antes da violaçaõ. Está tudo certo agora

Obrigado pela ajuda, identifiquei o problema, era na validação do schema, atualizei o schema e funcionou. Erro: Schema inválido --> 3004 - element decl. ''{http://www.portalfiscal.inf.br/nfe}cOrgao'', attribute ''type'': The QName value ''{http://www.portalfiscal.inf.br/nfe}TCOrgaoIBGE'' does not resolve to a(n) type definition.

Estou com esta violação de acesso ao fazer o desconhecimento da Operação, antes de enviar mensagem , atualizei ACBR e executei a instalação. Passo os dados normais, Ambiente 91, chave na NFe, CNPj e teManifDestDesconhecimento; ao executar Result := WebServices.EnvEvento.Executar; acontece a violação em DefinirDadosMSG. Perdi alguma coisa? Alguma atualização, pois lembro de falarem que estavam refatorando algumas units. o DefinirDadosMSG está assim : procedure TDFeWebService.DefinirDadosMsg; begin { sobrescrever, OBRIGATORIAMENTE } FPDadosMsg := ''; GerarException(ACBrStr('DefinirDadosMsg não implementado para: ') + ClassName); end;

A virgula não ficou em lugar errado não? FStringList.LoadFromFile(NomeArquivo, {$IfDef POSIX}TEncoding.Unicode{$EndIf}); Não seria assim? FStringList.LoadFromFile(NomeArquivo {$IfDef POSIX} , TEncoding.Unicode{$EndIf});

Segue ACBrTEFComum.pasACBrTEFComum.pas

Estou desenvolvendo para o TEF Android, meu cenário é um D2 MIni TecToy com Pin Pad PPC 930. Ao executar a função Administrativa pela primeira vez, é gerado este erro no mapping for the unicode character exists in the target multi-byte code page Identifiquei que o erro acontece em ACBRTefComum.pas na linha 658 FStringList.LoadFromFile(NomeArquivo); Alterei a linha cima para FStringList.LoadFromFile(NomeArquivo,TEncoding.Unicode); O erro sumiu, estou reportando para alterarem o fonte ou verificar se a minha correção pode dar problema em outros cenários. Obrigado

Exatamente, estou recebendo o mesmo erro e com o campo <orig> preenchido.

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.