Daniel de Borba

Boa Tarde, desculpe a demora em responder. Executei os testes e funcionou perfeitamente. Muito Obrigado.

Boa tarde, estava efetuando testes na geração do SPED para 2022, e o registro 1601 não estava sendo gerado. Segue as units em a nexo com as alterações para análise. ACBrEFDBloco_1_Class.pasACBrSpedFiscal.pas

No UnicredES código 136, a instrução do campo 109/110, retorna 02(Instrução aceita), para qualquer comando. Na remessa foi enviado, um cadastro de título, no retorno vem 02, mesma coisa acontece com pedido de baixa o retorno vem 02 também. O que deferência um retorno do outro é a posição 327/328 que contém o comando anterior, que no caso do cadastro de título vem 01, e no caso do pedido de baixa vem 02. No momento o componente não lê esse segundo campo, para armazenar essa informação adicionei uma propriedade a mais na classe TACBrOcorrencia, com o nome de CodigoOcorrenciaOriginal, para que no momento da leitura dos titulos, possa ser identificado qual ação se refere esse comando que foi aceito. Deixo o fonte postado para análise e os manuais utilizados, se tiver outra maneira de resolver também agradeço ajuda. ACBrBoleto.pas ACBrBancoUnicredES.pas GR - COB136 - Layout CNAB 400 - Retorno.pdf

Bom dia, aconteceu a mesma situação em uma homologação de um cliente novo, na empresa que trabalho.

Bom dia a todos, fiz alterações na unit ACBrBancoUnicredES, para homologação de boletos Unicred - 136. As alterações foram 158 a 158 Código para Protesto e 159 a 160 Número de Dias para Protesto , e na função CalcularDigitoVerificador, que retornava 'P', ocasionando erro. Alterações seguindo o manual em anexo. Boletos já foram homologados. Obrigado. Bom dia. ACBrBancoUnicredES.pas GR - COB136 - Layout CNAB 400 - Remessa.pdf

Bom dia.. aconteceu essa mesma situação , fazendo a alteração acima indicada homologou normalmente. Obrigado.

Boa tarde, comigo aconteceu a mesma situação, consegui resolver colocando no AcbrDanfeFR, Margem esquerda = 5, e Margem direita = 0, imprimiu corretamente.

Boa tarde a todos, alguém já conseguiu de alguma forma controlar o corte, ou o Beep (Buzzer), pelo Delphi mesmo ou Fast Report, quando manda um documento para impressoras térmicas instaladas no windows? Tem a opção na instalação da impressora, mas se habilitar executa para todos os documentos impressos.

Certo.. Esta escrevendo no Buffer.?

Boa tarde, consegui fazer imprimir dessa forma. Boa tarde, consegui fazer imprimir dessa forma. FAcbrPosPrinter.Buffer.Add('</ce><qrcode_error>0</qrcode_error><qrcode>'+AnsiString(Texto)+'</qrcode>'); Tem na pasta exemplos utilizando PosPrinter.

Daniel, segue anexo unit alterada. ACBrTEFDClass.pas

Bom dia a todos, uso TEF Dial , para integração com Pay&GO, e executando uma rotina de testes, verifiquei que quando o servidor do TEF esta fechado, não esta gerando erro. O problema esta na Unit AcbrTEFDClass na procedure VerificaAtivo, entra no bloco de erro do Try mas o AutoAtivarGP esta False, pois não uso, e sai fora sem gerar o erro para aplicação. Possível solução, colocar o else no if AutoAtivarGP com raise. Segue o bloco de código. Obrigado, bom dia todos. try ATV; except on E : EACBrTEFDGPNaoResponde do begin if AutoAtivarGP then <----- problema aqui begin TACBrTEFD(Owner).DoExibeMsg( opmOK, 'O Gerenciador Padrão não está ativo e será ativado automaticamente!'); AtivarGP; ATV; end; <-- colocar else com raise end else raise ; end;

Resolvido também, com a sugestão do Daniel.

Bom dia a todos, também estou com o mesmo problema. Só sai na Danfe de informar o grupo Duplicatas.

Então, aparentemente nem as próprias agências seguem corretamente as atualizações, fica meio complicado. Vou manter a correção no fonte aqui, deixo para análise e ver se é viável a atualização. Atenciosamente, Daniel de Borba.