Painel de líderes

Prezados, Estou implementando o valor de multa para cobrança do HSBC, porém, segundo o manual do banco na pagina 12 as posições 206 a 218 são destinadas para “Valor do Abatimento” e “Multa”, ou seja, vai depender da instrução usada. A partir da pagina 21 tem notas explicativas de como usar cada uma. O problema é que ao usar a variável “ValorAbatimento” a impressão no boleto sai a mensagem desse abatimento, sendo que neste caso não existe abatimento e sim a multa. Isso por que no “ACBrBoleto” na “AdicionarMensagensPadroes” verifica se tem valor e imprime. Sendo assim o boleto sai errado e a remessa sai correta, pois usando a instrução “24 - Multa de R$ _____após o vencimento”, passando o valor da multa para o a variável “ValorAbatimento” a remessa gera correta. Para não mexer o “ACBrBoleto” sugiro usarmos a variável “PercentualMulta” e no “ACBrBancoHSBC” fazer o tratamento dela, como por exemplo: Se as instruções forem para multa usar a variável “PercentualMulta” senão usar “ValorAbatimento”. O que vocês acham? Alguém tem alguma sugestão? Pensei nisso visto que a variável multa já e tratada na mensagem do “ACBrBoleto”, ou seja a impressão do boleto sairá correta, porém, essa variável não é usada no “ACBrBancoHSBC”. Obs.: Caso alguém esteja imprimindo os boletos com a multa e gerando a remessa com ela sem problemas no HSBC, favor me informar como estão usando.

Para referência futura, vou deixar esses links aqui nesse tópico: https://en.wikipedia.org/wiki/ESC/P https://reference.epson-biz.com/modules/ref_escpos/index.php?content_id=2 https://mike42.me/blog/what-is-escpos-and-how-do-i-use-it https://msdn.microsoft.com/en-us/windows/uwp/devices-sensors/epson-esc-pos-with-formatting

so e só você apagar o arquivo .res do projeto provavelmente foi compilado em outra versão do delphi

Cara erá só atualização dos arquivos schemas , Deu certo! Valeu pela dica estava tão cego para tentar resolver o problema nem me liguei na pasta schemas. Valeu BigWings! Muito obrigado!

No validador passa, está com os Schemas atualizados? Tem a mensagem completa de falha na validação?

Coloquei no campo Cedente.Modalidade o código 101 e ele apareceu na linha digital, enviei novamente para o suporte do banco e vou aguardar, deve ter resolvido. Obrigado pelo ajudar.

Todos os componentes do projeto ACBr são feito em pascal compatíveis com Delphi e Lazarus, ou seja, está totalmente relacionado com o projeto. Sobre o sub-fórum sobre banco de dados, irei discutir com os demais moderadores e analisar se é viável ou não a criação de uma nova área.

Entre em contato com a empresa que vai querer homologar e informe que quer fazer sem ECF são 7 passos simples para serem feitos!

@cgcesar, utilize a versão DanfeRetratonovo.fr3 . deve atender as suas necessidades.

Boa noite Bruno, Ligue e desligue o sat a cada 5 minutos. Pois toda vez que você reinicia o equipamento o mesmo tenta enviar os cupons. Att Cristiano Abbud

não manifesta! se ler a NT vai informar isso pra ti !

Boa tarde, Dá uma olhada neste tópico que tem a resposta de como resolver este problema Basta informar uma impressora no componente.

Bom dia Juliana, Atualizado, testado e tudo ok! Muito obrigado!

Prezados, Corrigido a procedure “LerRetorno400” da unit “ACBrBancoBancoob” onde a leitura dos dados do cedente estava sendo feita do registro “header” e o correto é do registro “detalhe”. Quem usar o LeCedenteRetorno = True e necessitar calcular o digito do nosso numero no retorno, ocorre o erro “'Ç' is not a valid integer value” na function “CalcularDigitoVerificador”, pois na posição 18 do “header” está “ÇA “ que faz parte da palavra COBRANÇA. Antes: if LeCedenteRetorno then begin Cedente.Nome := rCedente; Cedente.CNPJCPF := rCNPJCPF; Cedente.Agencia := trim(copy(ARetorno[0], 18, 4)); Cedente.AgenciaDigito := trim(copy(ARetorno[0], 22, 1)); Cedente.Conta := trim(copy(ARetorno[0], 23, 8)); Cedente.ContaDigito := trim(copy(ARetorno[0], 31, 1)); Depois: if LeCedenteRetorno then begin Cedente.Nome := rCedente; Cedente.CNPJCPF := rCNPJCPF; Cedente.Agencia := trim(copy(ARetorno[1], 18, 4)); Cedente.AgenciaDigito := trim(copy(ARetorno[1], 22, 1)); Cedente.Conta := trim(copy(ARetorno[1], 23, 8)); Cedente.ContaDigito := trim(copy(ARetorno[1], 31, 1)); ACBrBancoBancoob.pas

Bom dia Juliana, Atualizado, testado e tudo ok! Muito obrigado!

Boa noite. Alteração disponível no svn. Att.

Boa noite. Alteração disponível no svn. Att.

Bom dia, Fiz uma alteração na unit "ACBrBancoHSBC.pas" para contemplar a multa no arquivo remessa de acordo com o código de instrução utilizado. Resumo do que foi implementado: Na procedure "GerarRegistroTransacao400" foi criado uma variável "AbatimentoMulta" do tipo string que terá por finalidade armazenar o conteúdo do campo de posição 206 a 218. Incluso comparações do tipo de ocorrência e instrução para identificar como será composto a variável "AbatimentoMulta", pois neste momento ela será alimentada já formatada para ser usada na geração. Exemplo: Visto que a posição 206 a 218 pode armazenar conteúdos de várias maneiras, essa variável já está sendo formatada da maneira que precisa de acordo com a instrução. Já no local aonde usava a " ValorAbatimento" que vinha apenas com o valor do abatimento foi alterado para " AbatimentoMulta" que já está vindo com o valor do abatimento ou a multa de acordo com a instrução. Antes: IntToStrZero( round(ValorAbatimento * 100), 13) + // Depois: AbatimentoMulta + // valor do abatimento / multa Exemplo de uso: Instrucao1 := 15; PercentualMulta := 2; Resultado: Obs.: Fiz testes com o suporte do banco HSBC o qual informou que o arquivo remessa está correto com as informações da multa. Segue unit em anexo para avaliação. ACBrBancoHSBC.pas

Boa tarde Luiz, Favor fazer uma cópia dos seus fontes e baixar novamente. Fiz um pouco diferente, favor testar e reportar se da forma que fiz funciona também ou não.

the cryptographic service provider type '24' is not supported Corrigindo através do Mozilla Firefox Firefox Opções Avançado Certificados Ver certificado Importar ( escolha o arquivo pfx) Coloque a senha Pronto Agora realize o backup a partir daí Clique em backup Escolha o local de save Confirme Coloque a senha( ideal manter a própria do cliente) Ok Pronto agora é só excluir a instalação antiga e executar o novo pfx que vc criou

Caso não tenha Windows xp próximo seria um problema certo? O problema deste certificado é em relação à criptografia. Para resolver este problema acesse o site. http://www.onlinecertificadora.com.br/ click em SOFTWARES E DRIVES e INTALADOR VALID no link: Conversor para Sistemas Particulares "Erro de Criptografia 24" Instale o certificado seguindo o wizard deste instalador.