luciano_f

Pessoal vendo em alguns Topicos aqui no forum vi sobre muita busca para um componente para gerar o QrCode para o Fast-Report Em anexo estou postando um excelente componente que se instala no FastReport

O colega poderia disponibilizar esse arquivo FR3 do Fast-Report para a comunidade, pois estou batendo a cabeça com isso. Grato.

Pessoal eu procurei muito aqui no forum e não achei um arquivo "*.Fr3" do Fast-Report para impressão do danfe da NFC-e O Acbr não tem o Suporte ? Grato a todos.

Hum é dois Delphi mesmo, estou com o Delphi 10 e o XE5 pensei que o ACBR não tinha suporte mais sabendo dei jeito e já instalei certo. Muito grato.

Pessoal gostaria de saber se é possivel instalar o ACBR no Delphi XE5 já perdi umas 2 horas e não consigo Coloquei as DLLs no system32 do Windows registrei elas Coloquei as imagens do erro em anexo. O interessante que copila sem erros porém não instala

Colegas muito grato pela atenção e me desculpem pela minha ignorancia que vergonha. rs rs rs rs rs rs

Deixa eu ver se entendi ele só exibe o digito caso o código de barras seja invalido caso contrario ele só valida e não exibe o digito então porque a propriedade para exibir o digito ? para mim que ele iria exibir o digito em qualquer situação

Testa ai para você ver se colocar um código assim "2053448000000" ele não vai me trazer o digito verificador deveria trazer "0" mais não traz nada

Pessoal o AcbrValidade não gera um digitoVerificador correto para esse numero 205344800000 Ele está gerando "6" o correto seria "0" Porém se eu usar essa função abaixo vai gerar um digito correto e o ACBR consegue validar o codigo 100% e vou conseguir imprimir e ler por qualquer Scanner Function CalculaDigEAN13(Cod: String): String; // Passe os 12 primeiros codigos de barras que ele retorna o codigo verificador... Function Par(Cod: Integer): Boolean; Begin Result := Cod Mod 2 = 0; End; Var I, SomaPar, SomaImpar: Integer; Begin SomaPar := 0; SomaImpar := 0; For I := 1 To 12 Do If Par(I) Then SomaPar := SomaPar + StrToInt(Cod) Else SomaImpar := SomaImpar + StrToInt(Cod); SomaPar := SomaPar * 3; I := 0; While I < (SomaPar + SomaImpar) Do Inc(I, 10); Result := IntToStr(I - (SomaPar + SomaImpar)); End; Detalhe se testei esse codigo "205344800000" no site abaixo e também validou o mesmo e gerou digito "0" http://www.gs1pt.org/servicos/digito-controlo/3/76/calculo-digito-de-controlo Então acredito que deva ter algum problema com a função que gerar o digito verificador ps eu estou usando a ultima versão do ACBR.

Muito grato colega deu certo e mais uma vez parabéns pelo ACBR simplesmente fantástico. Deus de longa vida a seus desenvolvedores.

Pessoal já vi alguns topicos aqui no forum sobre o assunto porém sempre sobre a validação eu queria uma função colocasse os 7 caracteres e ela me retornasse o digito verificador. Grato a todos

então mais eu preciso gerar com 11 o banco não está aceitando diferente disso e os boletos dos meus clientes estão sendo rejeitados você poderia deixar como era antés Grato.

Pessoal estou fazendo boletos para a Caixa com a Unit "ACBrCaixaEconomicaSICOB.pas" e gostaria de saber essa unit foi alterada ?? Pois o "nosso numero" sem o Registro para esse banco sempre eu emiti com 10 digitos fora com o DV inclusive liguei para o banco para perguntar se tinha mudado e me disseram que não em anexo um arquivo retorno desse banco com o nosso Numero. Porém na ultima vez que alterei o Acbr percebi que os boletos gerados pelo meu sistema não estão mais com o 82 como codigo de Inicio. A função Function TACBrCaixaEconomicaSICOB.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero: String): Integer; var wTamNossoNumero: Integer; begin Result := 15; // essa linha acredito estar errada o correto seria Result := length(NossoNumero); // pois da forma atual eu não consigo gerar nosso numero valido com codigo de inicio 82 // pois da forma atual eu tenho que ter o tamanho maximo 9 e não posso fazer isso tem que maior que 9 e menor que 15 e com inicio 82 wTamNossoNumero := length(NossoNumero); if ((wTamNossoNumero >= 8) and (wTamNossoNumero <= 10)) or ((wTamNossoNumero >= 14) and (wTamNossoNumero <= 15)) then Result := wTamNossoNumero; end; RETORNOCEF1429.cmp.txt RETORNOCEF1429.cmp.txt

Me desculpe minha ignorancia mais qual function que me traria o DV se eu passe o NossoNumero na hora da captura ? Grato.

Hum entendi o motivo, então vou aguardar essa implementação você sabe me dizer se já tem alguem trabalhando nesse DV separado ?

Outros usuarios podem estar usando sem o DV, não acredito nisso visto que ninguem se manifestou a esse respeito, sendo que esse é o segundo post que aludo sobre esse problema, até porque não entendo como alguém pode usar uma captura sem o DV sendo que ele faz parte do corpo do Nosso Numero no arquivo de retorno do Banco, assim se formos checar todos os DVs existentes como CPF, Codigo de Barras Etc... sempre o DV vai estar embutido no numero trabalhar sem eles não entendo como seria possivel só aqui essa situação existe. Sobre a Questão de criar uma propriedade especifica para ele já reforça o fato que venho discutindo sobre a necessidade desse numero, só não acho necessidade de se criar uma propriedade só para isso, pois é só acrescentar ele em tudo no sistema e pronto muito mais simples facil é correto de ser feito. Me desculpem se estou sendo chato mais até agora eu não consegui entender a logica de se trabalhar sem esse numero sendo que como já disse acima os DVs sempre vão fazer parte dos numeros, se você vai pagar um boleto no banco e tem um DV e você omite ele não vai conseguir, o mesmo ocorre para um codigo de Barras etc..

Olá por favor algum Administrador pode colocar a unit que alterei no projeto pois novamente fiz uma atualização da minha versão do ACBR e tive que alterar o componente, eu não entendo o porque de deixar o DV fora sendo que ele faz parte do Nosso numero como já disse é muito mais facil controlar no programa se não quiser ele dar um copy e deixar ele de lado do que ter que ficar alterando os fontes do projeto toda vez que tiver que trocar o componente, se vocês checar todos os outros componentes de boletos existentes como RLBoleto tem o DV junto com o Nosso Numero. Grato.

Entendo mais não existe motivo de usar o Nosso numero sem o DV pois ele faz parte do nosso numero. e se tiver que usar sem o DV basta dar um copy dentro da aplicação sem ter a necessidade alterar o componente mais da forma como está eu sempre tenho que alterar o componente.

os Administradores vão alterar a Unit que postei ???

Quando vou fazer uma captura para o cliente o arquivo de retorno que vem do banco com a extenão "CMP" algo parecido com isso "RETORNOCEF1230.cmp" já vem com o Nosso numero acompanhado do digito verificador eu preciso do numero completo para apresentar para o cliente e fazer a baixa no sistema, até porque o digito verificador faz parte do nosso numero e toda vez que faço uma atualização do ACBR tenho que ficar alterando essa unit. Grato.

no Arquivo "ACBrCaixaEconomicaSICOB.Pas" na linha 881 está assim NossoNumero := Copy(Copy(Linha,47,10), Length(Copy(Linha,47,10)) - TamanhoMaximoNossoNum, TamanhoMaximoNossoNum); o correto é assim NossoNumero := Copy(Copy(Linha,47,11), Length(Copy(Linha,47,11)) - TamanhoMaximoNossoNum, TamanhoMaximoNossoNum); No RLBoleto é assim NossoNumero := Copy(Linha,47,11); Pois o Digito verificador faz parte do Nosso numero Anexei a unit alterada para os Administradores alterar o componente. ACBrCaixaEconomicaSICOB.pas

Existe alguma perspetiva para um Danfe em Fast-Report no futuro ???

Pessoal como faço para adicionar uma nova cidade para o provedor Simpliss Cidade de Astorga http://187.45.245.217/astorga_contrib/ Grato a todos

O colega disse que tem provedor que fez o suporte a mais de um serviço por NFSe nesse caso o ACBR teria suporte a isso ??

Pessoal como faço uma Nota com dois "ItemListaServico" diferente pelo que estou vendo eu precisarei fazer duas notas caso o Prestador de serviços preste mais de uma serviço com esse campo diferente existe alguma possibilidade de fazer uma mesma nota com dois tipos diferentes ???