Luiz Alberto da Silva Lope

Olá pessoal. Tenho uma rotina escrita em xHarbour que precisa carregar XML's de NFC-e. Essa rotina utiliza a classe TXmlDocumento (txml.prg) e, ao carregar o XML já assinado, apresenta erro no trecho abaixo: <Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"></Transform > <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"></Transform > </Transforms> Durante os testes identificamnos que o erro ocorre devido ao espaço ao fechar a tag "</Transform' '>". Tenho outras rotinas escritas em Delphi que conseguem carregar o XML sem erros. Então alterei a Unit, testei e o erro não ocorreu novamente. ACBrXmlWriter.pas

Olá pessoal, estou enviando esta correção pra gerar o conteúdo da tag cEAN. ACBrNFe.XmlWriter.pas

Olá pessoal. Atualizei o repositório e esta correção resolveu o problema com as senha que eu tinha! Revision: 34689 Author: dopi Date: segunda-feira, 5 de agosto de 2024 11:45:49 Message: Bug Fix in TFPDF._escape This could affect "SetProtection", since it produces wrong data on "/O" section, when a CR was escaped ---- Modified : /trunk2/Fontes/Terceiros/FPDF-Pascal/ACBr_fpdf.pas

Ainda estou preso nesta etapa. O código excede um pouco a minha capacidade cognitiva, mas ainda chego lá. Conforme for avançando eu posto aqui.

Criei um exemplo pra reproduzir o problema. var Report: TFPDFExt; begin Report := TFPDFExt.Create; try Report.AddPage; Report.SetFont('Arial'); Report.Write(10, 'TESTE PRA GERAR PDF PROTEGIDO POR SENHA'); Report.SetProtection([canCopy, canPrint], '10658', '10658'); Report.SaveToFile('.\PROTEGIDO.PDF'); finally Report.Free; end;

Acabei de atualizar meu repositório, recompilei o AcbrBoletoDemo e o problema também ocorre. Testei usando a senha 10658.

Olá pessoal. Quero relatar um problema que ocorre comigo. Utilizo o ACBrBoleto e o FPDF pra exportar os arquivos PDF com senha. Funciona muito bem, exporto centenas de boletos PDF pra enviar e-mail. Esta semana recebi uma reclamação de um usuário relatando que o destinatário do e-mail não conseguiu abrir o PDF com a senha. Nem mesmo meu cliente conseguiu abrir o PDF. Ao testar a rotina eu consegui reproduzir o problema. Qualquer PDF de boleto que eu gere com as senhas: 33204 ou 10658, o usuário não consegui abrir. Eu sei que parece improvável mas gerei dezenas de PDF's de boletos com a mesma senha 10658 e nenhum deles abre. Por enquanto só detectei estas duas senhas, podem haver outras. Infelizmente não tenho uma correção do código pra sugerir.

Olá pessoal. Fiz um ajuste nos códigos de ocorrência suportados pelo Daycoval. Há atualmente no repositório três manuais do banco Daycoval. O fonte utilizava códigos de ocorrência que não eram suportados e nenhum dos três manuais. ACBrBancoDaycoval.pas

Olá pessoal. Vou implementar no ERP o suporte a boleto-PIX Santander. Já uso o ACBr e não tenho qualquer dúvida no uso do componente. Minha dúvida: Vamos supor que o usuário registrou um boleto usando a chave CNPJ. Passado algum tempo, a empresa decide usar uma chave aleatória. Como fica os boletos já registrados? Se eu precisar reimprimir o boleto que foi registrado com a chave CNPJ, posso reimprimir com a chave nova (aleatória) ou obrigatoriamente com a chave original?

Olá @Victor H. Gonzales - Panda acredito que o problema esta relacionado a versão do lote (LayoutVersaoLote). Quando é "3" ou "4" funciona mas quando é "6" muda o arquivo de retorno. Minha sugestão pra corrigir este problema: function TACBrBancoDaycoval.DefineTamanhoNossoNumeroRetorno: Integer; begin if fpLayoutVersaoLote = 6 then Result := 10 else Result := 8; if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then Inc(Result); end; function TACBrBancoDaycoval.DefinePosicaoNossoNumeroRetorno: Integer; begin if fpLayoutVersaoLote = 6 then Result := 63 else if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then Result := 86 else Result := 63; end;

A função "CodMotivoRejeicaoToDescricao" estava sem o override, então não trazia as descrições das rejeições. Removi duplicidade na "DataOcorrencia". ACBrBancoDaycoval.pas

Victor, a descrição das rejeições não estava funcionando. Fiz mais este ajuste. Se quiser posso fazer outro post. ACBrBancoDaycoval.pas

Fiz as modificações na sua unit. ACBrBancoDaycoval.pas

Esta última imagem foi incluída por engano. Por favor ignore-a.

Olá Victor. Fiz os teste. Segue abaixo as observações que quero fazer: 1º "DefineNumeroDocumentoModulo" está redundante com "CalcularDigitoVerificador". 2º A validação do código cedente precisa, ao ler o arquivo de retorno, precisa fazer o PADLEFT nos dois valores senão não consigo processar o retorno: 3º O Daycoval envia até quatro códigos de rejeição por isso utilizei o método "DefineRejeicaoComplementoRetorno", mas na sua unit ele foi removido: 4º Ao utilizar o método "DefineRejeicaoComplementoRetorno" é desnecessário manter o trecho abaixo:

Boa tarde. O manual que utilizei é o mesmo que já está no repositório do ACBr. Sobre a carteira 112 (que é a utilizada pelo meu cliente), não consta no manual. Infelizmente o manual não explica o cálculo do DV de carteira alguma, descobri a composição da carteira 112 através do arquivo de retorno, por isso enviei o arquivo. Manual S. 707 Jun-21.pdf

Olá. Correção na validação da propriedade "IndiceImprimirIndividual". ACBrBoletoFPDF.pas

Olá. Fiz vários ajustes no processamento do arquivo de retorno do banco DayCoval. Fiz alguns "override" dando preferência aos métodos da classe mãe. A carteira '112', diferente do que constava nos fontes, usa "Agência + Carteira + NossoNumero" pra calcular o DV. Anexei um arquivo de retorno onde pode ser constatada a composição "Agência + Carteira + NossoNumero". Implementei a leitura de todos os códigos de rejeição (4 ao todo da posição 378 até 386, conforme manual). ACBrBancoDaycoval.pas V0019720.187

Olá. Ajustes no layout DayCoval: Implementação do método MontaInstrucoesCNAB400 com as mensagens do boleto; Novos códigos de rejeição: 21, 37, 52, AA, AB, AI, AJ, AU, AV, AX, etc; Remessa '18' sustar protesto; LayoutVersaoLote: 3 Manual S. 707 Jun-21.pdf ACBrBancoDaycoval.pas