Pesquisar na Comunidade

Bom dia pessoal, espero que estejam bem! "Estou utilizando AcBrLibBoleto (última versão disponível) e quando eu tento imprimir o boleto através do método GerarPDF o campo da logo do banco fica com uma tarja preta e o campo do código de barras também fica com essa tarja preta e esse comportamento só acontece quando eu rodo a aplicação no ambiente em nuvem, local na minha maquina funciona. Alguém teria alguma sugestão do motivo desse problema? Abaixo imagem do boleto . Minha aplicação é em Asp Net Core e o ambiente em nuvem é um App Service Windows da Azure." Literalmente estou copiando a mesma postagem de um tópico antigo que encontrei aqui no fórum (https://www.projetoacbr.com.br/forum/topic/9311-tarja-preta-no-código-de-barras/), porque estou com o mesmo problema dessa pessoa e já fiz de tudo, verifiquei permissões, troquei as DLLs, verifiquei o caminho da pasta e etc etc... Uma observação é que não estou utilizando nenhum arquivo .INI, estou utilizando direto na memória. Segue abaixo imagem do boleto já postado anteriormente pelo Sr. @Benjamin Machado, pois, como dito anteriormente, estou com um problema IDÊNTICO. Agradeço desde já e fico à disposição!

Pessoal através do link https://dfe-portal.svrs.rs.gov.br/Nfe/Gtin ou do componente ACBrGTIN é possível obter dados dos produtos a partir do código de barras, desde que este esteja cadastrado no CCG (Cadastro Centralizado de GTIN). Atualmente é possível obter o tipo do Gtin, se é EAN 8, 12, 13 ou 14, Nome do Produto, NCM e CEST cadastrados no GS1. Estou querendo fazer um WebService a principio para meus clientes e talvez futuramente comercializar para terceiros, nisto eu gostaria de colocar mais informações além das quais já tem disponivel no retorno do webservice. Exemplo: Unidade, Marca/Fabricante, Foto e etc. Há algum outro componente do ACBr ou até mesmo um link da Sefaz onde consigo obter mais dados a partir do Gtin ou até mesmo a partir do NCM do produto? Uma outra dúvida que tenho é em relação a quantidade de requisições que posso fazer por minuto no ACBrGtin usando um determinado Certificado Digital. Será que posso fazer umas 1000 consulta por minuto ou tenho de fazer menos consultas para não ser recusado no servidor deles?

Questionei o GS1 sobre a API de consulta dos produtos registrados. Segue resposta:

Olá ! Gostaria de saber se alguém já esta usando a impressora de etiquetas Taca TLP-400 com o ACbrETQ, ou se com as descrições técnicas abaixo é possível saber se ela é compatível com o componente: Velocidade de Impressão: 127 mm/s Resolução: 203dpi Largura de Impressão: 104mm Diâmetro Interno Ribbon: 25,4mm Comprimento do Ribbon 300m Interface: Ehternet / Serial / USB Drivers Plataforma Windows Software Gratuito Criação de Etiquetas Linguagem de Comunicação: TSPL e ZPL Sensores Etiquetas: Sensor de GAP e Marca Negra Sensores Mecanismo Cabeça Aberta e Final de Ribbon Dimensões: 165 x 220 x 285 mm (AxLxP) Peso: 2,340 kg Garantia 1 ano []´s

Pessoal, alguma boa alma poderia disponibilizar uma planilha contendo NCM associado a um código de barras ? Estou implantando um sistema e gostaria de importar todos os produtos de uma vez, porém minha base esta sem NCM, tenho apenas os códigos de barras

Boa Tarde a todos, Estou emitindo algumas notas no ambiente de HOMOLOGAÇÃO, e me deparei com um problema um tanto estranho, nunca passei por esta situação e não encontrei no forum nenhum caso neste sentido. Conforme evidências em anexo, o campo código de barras da CHAVE DE ACESSO está passando o campo e invadindo o campo destinado a mensagem de consulta da NFe no site da sefaz. Em anexo estão o PDF e XML gerados. Desde já agradeço. 35190411048920000104550010000042701000011407-nfe.xml 35190411048920000104550010000042701000011407-nfe.pdf

Quando importo o xml o codigo de barras vem dessa forma [07893299735073] , so que quando vou emitir uma NFe ou NFCe da Rejeição: codigo Ean invalido, alguem poderia me ajudar como remover esse zero(0) no codigo de barras. desde de já agradeço!

Prezados boa tarde Tenho o seguinte codigo para impressao de etiquetas: begin codReduzido := StringGridItens.Cells[5, i]; Tamanho := StringGridItens.Cells[4, i]; ImprimirTexto(orNormal, 2, 1, 1, 15, 560, codBarras, 50); ImprimirBarras(orNormal, IfThen(EAN13Valido(codBarras), 'F', 'E'), IfThen(EAN13Valido(codBarras), '2', '2'), IfThen(EAN13Valido(codBarras), '2', '2'), 50, { inicio da altura do codigo de barra } IfThen(EAN13Valido(codBarras), 560, IfThen(Length(codBarras) >= 9, 560, IfThen(Length(codBarras) <= 8, 560))), codBarras, 125, becNAO); ImprimirTexto(orNormal, 2, 1, 1, 60, 845, 'TAM: ' + Tamanho, 50); ImprimirTexto(orNormal, 3, 1, 1, 90, 845, valor, 100); ImprimirTexto(orNormal, 2, 1, 1, 135, 845, 'PRECO', 50); ImprimirTexto(orNormal, 2, 1, 1, 210, 550, produto, 50); pos_ultima_etiqueta := 1; end; O que acontece é o seguinte, quando tenho um codigo valido pelo EAN13 ou EAN8 (válidos) a impressão do codigo de barras fica perfeito na etiqueta, se tenho um codigo maior que 13 caracteres definido pelo usuario, o codigo de barras ocupa a etiqueta toda. Existe alguma maneira de padronizar o tamanho do codigo? deixando todos no mesmo tamanho do EAN13 ou EAN8?

Bom dia, Ao enviar o CT-e por e-mail são anexados dois arquivos, um xml e um pdf, esse arquivo pdf as vezes vai com logo e código de barras outras vezes não vai, alguém já passou por isso?

Bom dia, Atualmente na minha empresa trabalhamos com o delhi6 e estamos querendo migrar nossos sistemas para o delphi7, atualmente utilizamos um componente chamado GbBoleto para boletos bancários, outro componente chamado TParser para cálculo de expressões, outro componente chamado CVJBarcode para gerar códigos de barra, eu gostaria de saber se a Acbr teria componentes para o delphi 10.2 tokyo correspondentes a esses que eu falei. Obrigado!

Boa tarde, estou tentando imprimir na impressora Argox OX214 uma etiqueta com código de barras não valido, exemplo: 1132617712 Ja mudei todas as configurações e não achei meio pra imprimir esse código, alguém tem um adica? Tentei as opções abaixo: ImprimirBarras(orNormal, 'F', '2', '2', 32, 25, SafeVarToStr(cxGridDBTableView1CON_ID.EditValue), 90, becSIM); ImprimirBarras(orNormal, 'F', '2', '2', 32, 25, SafeVarToStr(cxGridDBTableView1CON_ID.EditValue), 90, becPadrao); ImprimirBarras(orNormal, 'F', '2', '2', 32, 25, SafeVarToStr(cxGridDBTableView1CON_ID.EditValue), 90, becNAO);

Pessoal pesquisei no Forum mas as respotas não me ajudaram a responder. Alguém sabe como resolver esse problema de Código de Barras imprimindo em Local indesejado e tb não esta imprimindo as OBSERVAÇÕES DO CONTRIBUINTE e OBSERVAÇÕES DO FISCO. O Arquivo é o DANFERETRATO.fr3 Segue um exemplo o codigo de barras errado na imagem em anexo!

alguem pode me ajudar, ao importar um xml com acbr da esse erro no codigo de barras do produto 17894000010028䄀䴀䤀䐀伀 䴀䤀䰀䠀伀 䴀䄀䤀娀䔀一䄀 䌀堀䄀 ㄀ 堀 㐀 㔀 䜀 nao sei como aparece isso, ja que no xml esta normal o codigo!!!

Tive problemas de leitura nos códigos de barras das GNREs impressas na jato de tinta, alterei o tamanho do código e funcionou. ACBrGNREGuiaFRFortes.dfm ACBrGNREGuiaFRFortes.pas

Pessoal boa tarde. Tive problemas com o boleto do Itau, Em alguns clientes o código de barras estava saindo errado. Motivo: na hora de gerar o código, o ACBr estava colocando o ContaDigito direto. E segundo o manual do banco é para calcular o digito. Veja pag. 37 do modelo 240 ou pag. 49 do modelo 400. aAgenciaCC := Cedente.Agencia + Cedente.Conta + Cedente.ContaDigito; "Criei" (Copiei) uma função para calcular o digito CalcularDigitoConta(AgenciaContaNumero :string) :string; e alterei o para: aAgenciaCC := Cedente.Agencia + Cedente.Conta + CalcularDigitoConta(Cedente.Agencia + Cedente.Conta); //Cedente.ContaDigito; Segue em anexo. ACBrBancoItau.pas Se eu estiver equivocado, favor, me corrijam.

Boa tarde Gostaria de saber se é possivel, no boleto, eu ter o Código de Barras e a linha digitavel para gravar no banco de dados, bem como o nosso numero. Grato.

Boa tarde a todos. Sei da existência de zilhões de outros posts do assunto, mas nenhum relacionado a TM-T81 (ela se comporta de uma forma um pouco diferente da T20 da EPSON - pelo visto). Utilizo: Delphi 2010 + trunk2 (commit 10280) | Epson TM-T81 (USB) Utilizando o componente ACBrSATExtratoESCPOS (ligado a um ACBrPosPrinter) para fazer a impressão pelo compartilhamento (\\localhost\epson), ele não imprime o código de barras no extrado do SAT, fica um espaço em branco mesmo. Já testei em outra impressora i9- ELGIN e em uma TM-T20 - Epson configurada com o modelo ppEscPosEpson e o código de barras saiu normalmente. Verifiquei com o pessoal da Epson o que poderia estar incorreto para esta impressora, e me foi passado um exemplo básico, no qual o código de barras é impresso: procedure TForm1.Button1Click(Sender: TObject); var impressora : TextFile; begin Assignfile(impressora, '\\dev01\EPSON_USB'); Rewrite(impressora); Writeln(impressora, #29#119#2); //Seta o tamanho do código de barras Writeln(impressora, #29#72#1); //Seta o tamanho do código de barras Writeln(impressora, 'CODE128C'); Write(impressora, #29#107#73#13'{C'#35#15#07#61#09#90#08#00#01#41#59); //CODE128C Write(impressora, #10); //Line Feed - Imprime texto Write(impressora, #29#107#73#13'{C'#90#00#00#83#00#00#44#24#22#64#50); //CODE128C Write(impressora, #10); //Line Feed - CloseFile(impressora); end; Enquanto código da função ComandoCodBarras da unit ACBrEscPosEpson.pas: 1a Linha: #$1D'w'#2#$1D'h('#$1D'H'#0#$1D'kI'#$18'{B3515076109900800014159' 2a Linha: #$1D'w'#2#$1D'h('#$1D'H'#0#$1D'kI'#$18'{B9000008300004424226450' Fora o código de barras os outros comandos estão funcionando perfeitamente (inclusive fiz os testes no exemplo do ACBrPosPrinter, fora o code128, ficou tudo bonito - Parabéns o/) Agradeço desde já o auxilio []'s

Estou utilizando o ACBRMonitor Versão 0.10.6.0 para gerar boletos em minha aplicação em Visual Basic.E ao gerar os boletos a Linha Digitável e o Código de Barras(leitura por leitor) são gerados com dados inconsistentes aos enviados pela aplicação. o Cálculo do Digito Verificador do Nosso Número também está errado. E um outro fato notado em nossos teste é que se os boletos forem gerados uma segunda vez o ACBR os gera corretamente

Boa tarde, A geração do código de barras na Unit "ACBrBancoSicredi.pas" está ficando errada. Segue a função modificada. Acabei de homologar os boletos em meu cliente e só passaram nos testes com esta modificação. function TACBrBancoSicredi.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String; var CodigoBarras, FatorVencimento, DigitoCodBarras, CampoLivre, Modalidade:String; DigitoNum: Integer; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); Modalidade := IfThen(Cedente.Modalidade='','1',Copy(trim(Cedente.Modalidade),1,1)); // wNossoNumeroCompleto := OnlyNumber(MontarCampoNossoNumero(ACBrTitulo)); { Monta o campo livre } CampoLivre := Modalidade + { 1-Com registro ou 3-Sem registro. Por enquanto vou deixar 1 mais tenho que tratar menhor essa informação } '1' + { 1-Carteira simples } OnlyNumber(MontarCampoNossoNumero(ACBrTitulo)) + //padR(ACBrTitulo.NossoNumero,8,'0') + { Nosso número + DV } //CalcularDigitoVerificador(ACBrTitulo) + { Dígito verificador do nosso número } padR(OnlyNumber(Cedente.Agencia),4,'0') + { Código agência (cooperativa) } padR(Cedente.AgenciaDigito,2,'0') + { Dígito da agência (posto da cooperativa) } padR(OnlyNumber(Cedente.CodigoCedente),5,'0') + { Código cedente } // Ver manual página 86 - CNAB240 ou 51 - CNAB400 '1' + { Filler - zero. Obs: Será 1 quando o valor do documento for diferente se zero } '0'; { Filler - zero } { Calcula o dígito do campo livre } Modulo.CalculoPadrao; Modulo.MultiplicadorFinal := 9; Modulo.Documento := CampoLivre; Modulo.Calcular; CampoLivre := CampoLivre + IntToStr(Modulo.DigitoFinal); { Monta o código de barras } CodigoBarras := IntToStr( Numero ) + { Código do banco 748 } '9' + { Fixo '9' } FatorVencimento + { Fator de vencimento, não obrigatório } IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + { valor do documento } CampoLivre; { Campo Livre } DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); DigitoNum := StrToIntDef(DigitoCodBarras,0); if (DigitoNum = 0) or (DigitoNum > 9) then DigitoCodBarras:= '1'; end; Result:= IntToStr(Numero) + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,39); end;

Após a atualização do fonte a impressão do código de barras (em cima do QR code) passou a não ser mais impressa na EPSON TM-T20. Em outros equipamentos não pude verificar pois ainda funcionam com a compilação do fonte antigo. Alguém mais teve este problema?

Boa tarde. Tenho uma etiqueta com duas colunas; etiqueta para jóias. Geralmente eu faço a primeira e replico as outras através de um DataBand. Isso, é claro, tendo o mesmo posicionamento todas elas, em questões de altura, largura etc. Chegou-me uma etiqueta de jóias, agora. Essa etiqueta tem duas colunas, sendo uma em cima e outra, mais adiante, embaixo. Ou seja, estão em posições diferentes e portanto eu não poderei replicar a primeira. Não sei como poderei fazer isso. Se eu montasse a primeira etiqueta, com as devidas posições, e a replicasse, ele repetiria, porém, o mesmo registro. Alguém tem alguma sugestão? PS: Fast Report Obrigado!

Bom dia pessoal, utilizamos o Banrisul para emissão de boletos através do ACBrMonitor. Adotamos como política de cobrança da nossa empresa enviar os boletos por correio via emissão feita pelo banco mas, para facilitar a vida dos clientes, enviamos também, dois dias antes do vencimento, um "lembrete" de pagamento. O problema é que alguns clientes me questionaram que a linha digitável do boleto recebido pelo correio diverge da encaminhada por e-mail. Recebo normalmente os pagamentos indiferente dos clientes pagarem com o boleto do e-mail ou do correio, mas gostaria de saber o motivo de isto estar ocorrendo ou se é "normal", seguem dados utilizados para emissão: ConfiguraDados.ini [Cedente] Nome=Relt*** CNPJCPF=**.***.***/****-** Logradouro=Rua... Numero=1** Bairro=Passo D Areia Cidade=Porto Alegre CEP=91****** Complemento=2** UF=RS RespEmis=1 TipoPessoa=1 CodigoCedente=850341058 MODALIDADE= CONVENIO= LayoutBol=0 CaracTitulo=0 [Conta] Conta=068503410 DigitoConta=8 Agencia=0085 DigitoAgencia=16 [Banco] CNAB=1 IndiceACBr=10 IncluirBoleto.ini [Titulo1] NumeroDocumento=1637 NossoNumero=00000649 Carteira=805076 ValorAbatimento=0,00 ValorDesconto=0,00 ValorMoraJuros=0,27 ValorIOF=0,00 ValorOutrasDespesas=0,00 ValorDocumento=112,00 PercentualMulta=0,00 Vencimento=05/08/2015 DataDocumento=08/06/2015 DataProcessamento=06/08/2015 DataAbatimento= DataDesconto= DataMoraJuros=05/08/2015 DataProtesto=10/08/2015 LocalPagamento=Pagavel em qualquer agencia bancaria ate o vencimento Especie=DM EspecieMod=R$ Sacado.NomeSacado=*********************** Sacado.CNPJCPF=**.***.***/****-** Sacado.Pessoa=1 Sacado.Logradouro=Rua... Sacado.Numero=1** Sacado.Bairro=Niteroi Sacado.Complemento= Sacado.Cidade=Canoas Sacado.UF=RS Sacado.CEP=923**** Sacado.Email=***@hotmail.com Mensagem= Aceite=1 OcorrenciaOriginal=0 Parcela=1 TotalParcelas=1 SeuNumero= TipoDiasProtesto=1 TipoImpressao=0 Linhas Digitáveis Enviado pelo Correio: 04191108538503410000900649041811965110000011200 Reemitido pelo Site do Banrisul: 04191108538503410000900649041811965110000011200 Enviado por E-Mail Utilizando o ACBr: 04191100855850341000100064940190365110000011200 Estou enviando em anexo arquivos INI e imagens dos boletos. Obrigado pela atenção! IncluirBoleto.ini ConfiguraDados.ini

Estou tendo um problema na validação dos boletos reimpressos pelo meu sistema no que se refere ao código de barras. Na função MontarCodigoBarras da unit AcbrBancoCaixa o campo referente ao Identificador da Emissão do Boleto está fixo o valor '4', quando na verdade, segundo consta no layout, esse valor se refere à 2ª posição do Nosso Número. Abaixo o código atual: {Montando Campo Livre} CampoLivre := padR(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,6,'0') + CalcularDVCedente(ACBrTitulo) + Copy(ANossoNumero,3,3) + Copy(ANossoNumero,1,1) + Copy(ANossoNumero,6,3) + '4' + Copy(ANossoNumero,9,9); A seguir o código com a correção: {Montando Campo Livre} CampoLivre := padR(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,6,'0') + CalcularDVCedente(ACBrTitulo) + Copy(ANossoNumero,3,3) + Copy(ANossoNumero,1,1) + Copy(ANossoNumero,6,3) + Copy(ANossoNumero,2,1) + Copy(ANossoNumero,9,9); Com esta correção é possível reimprimir boletos gerados pelo banco, onde o valor da constante é 1. Estou enviando em anexo o layout que consta esta informação. Está na pag. 20, tópico 5.3 - Anexo III - Campo livre do código de Barras, Constante 2. ESP_COD_BARRAS_SIGCB_COBRANCA_CAIXA.pdf

Boa Tarde Senhores. Estou tendo uma grande dificuldade em ajustar a impressão de Código de Barras na impressora térmica Zebra GC420T, Pois minha Aplicação trabalha com o tipo de Código de barras EAN13, quando gero o código na tela da aplicação, o Leitor reconhece e faz a leitura normalmente mesmo que seja direto do monitor, só que quando imprimi, observei que a impressora esta imprimindo outro Tipo de código com bem mais linhas tipo Cod128 ou Cod93, ja verifiquei nas configurações da impressora do windows, mesmo alterando para EAN13 em Tipo de código de barras, não consegui resolver, peço a colaboração de vocês pois até o momento tudo que tentei não consegui. Att: Alan Aguiar

Boa tarde! Estou com dificuldades ao configurar a impressora térmica zebra gc420t, para emissão em duas etiquetas no tamanho 4x4 cm cada. Ao receber esta impressora do meu cliente, consegui configurar para emissão de 1 etiqueta, e funcionou, só que a impressão ocupou ao 2 papeis. Tenho que configurar para emissão de duas etiquetas 4x4 cm cada, pois é padrão da rede de lojas a qual ele representa. Depois de muitos testes consegui posicionar as 1º e a 2º etiqueta corretamente, o que acontece é que a largura horizontal do código de barras esta ultrapassando o tamanho do papel, e sobrepondo a outra etiqueta, e não estou conseguindo ajustar a largura do mesmo. é possível ajustar a largura do código de barras para enquadrar no tamanho da etq 4x4 cm cada? A impressora trabalha na linguagem 'ETQzpLII'. Está em anexo o arquivo etq_configuration.ini com as configurações já feitas até então. ETQ_Configuration.ini