QrCode do cupom NFCE incorreto

[diego.bonfim]

Boa Tarde,

Estou com o seguinte problema, alguns cupons NFC-e estão saindo com o QrCode incorreto, conforme a imagem em anexo. Porém só ocorre isso quando mando para impressora, e ocorre em mais de um cliente. 

Se eu mando em uma impressora PDF gera normalmente. Alguém já passou por isso ou tem ideia do que se trata?

Utilizo Lazarus IDE.

[Juliomar Marchetti]

Quebra a imagem do qrCode , isso?

manda salvar um bmp do que é mandando para a impressão

outra coisa tu modifica o ACBr local?

[diego.bonfim]

@Juliomar Marchetti, exatamente, ele está quebrando.

A única forma que conheço para gerar uma prévia do cupom é pelo parâmetro MostraPreview:= True, é isso? Se sim, segue abaixo o print e também uma venda impressa com o mesmo produto.

E não modifico o ACBr aqui.

 

[valterpatrick]

O problema pode estar na impressora no momento da impressão também, mas se está acontecendo em mais de um lugar ao mesmo tempo você pode tentar outras alternativas até achar o problema ou a solução.
Primeiro tente atualizar o ACBr para a última versão, atualize os schemas XML e também os arquivos de relatório.

Após isto tente novamente e veja se continua acontecendo.

[Juliomar Marchetti]

1 hora atrás, diego.bonfim disse:

@Juliomar Marchetti, exatamente, ele está quebrando.

A única forma que conheço para gerar uma prévia do cupom é pelo parâmetro MostraPreview:= True, é isso? Se sim, segue abaixo o print e também uma venda impressa com o mesmo produto.

E não modifico o ACBr aqui.

 

é quase certo então cabeçote da impressora esta com problemas

tente imprimir outros qrcode direto nela.

pega o software dela e testa.

deve ter algo até mesmo nela pra ti imprimir testes

[diego.bonfim]

Fiz esses testes:

- Gerei o preview do NFCe e mandei imprimir por e também saiu QrCode quebrado.
- Cupom de cancelamento do NFCe saem todos com qrCode correto.
- A imagem de um QrCode aleatório que peguei no google também saiu corretamente.
 

Já percebi que alguns clientes ocorre isso, não todos. Mas ainda não consegui entender a causa, a impressora não é antiga, é aquela TM-T20X USB.

[diego.bonfim]

6 horas atrás, valterpatrick disse:

O problema pode estar na impressora no momento da impressão também, mas se está acontecendo em mais de um lugar ao mesmo tempo você pode tentar outras alternativas até achar o problema ou a solução.
Primeiro tente atualizar o ACBr para a última versão, atualize os schemas XML e também os arquivos de relatório.

Após isto tente novamente e veja se continua acontecendo.

Desculpe, passe desapercebido nessa resposta. Então, acabei de atualizar o SVN e também a pasta de Schemas. Infelizmente permanece da mesma forma.

Estou acreditando ser algo no meu código, na parte de informações complementares.

 

Citar

 

InfAdic.infCpl:= '||';
    if (frmPrincipal.taxa > 0) AND (frmPrincipal.imprimeTaxa = 'SIM') then
    begin
      InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
      InfAdic.infCpl:= InfAdic.infCpl+'TAXA = R$ '+FormatFloat(',0.00', frmPrincipal.taxa)+'|';
      InfAdic.infCpl:= InfAdic.infCpl+'TOTAL COM TAXA = R$ '+FormatFloat(',0.00', dm.dsVendas.DataSet.FieldByName('VENTOT').Value+frmPrincipal.taxa)+'|';
      InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
    end;

    if (mostra_devedor = 'SIM') and (dm.dsFormasPag.DataSet.FieldByName('PAGOBS').AsString = 'Convênio') then
    begin
      InfAdic.infCpl:= InfAdic.infCpl+'**SALDO DEVEDOR = R$ '+FormatFloat(',0.00', saldo_devedor+dm.dsFormasPag.DataSet.FieldByName('PAGOUT').Value)+'**|';
    end;
    if (mostra_credito = 'SIM') and (dm.dsFormasPag.DataSet.FieldByName('PAGOBS').AsString = 'Convênio') then
    begin
      dm.ZQueryConsultaCredito.Close;
      dm.ZQueryConsultaCredito.SQL.Clear;
      dm.ZQueryConsultaCredito.SQL.Add('SELECT CLICRED FROM TBCLI WHERE CLICOD = '+dm.dsVendas.DataSet.FieldByName('VENCLI').AsString+'');
      dm.ZQueryConsultaCredito.Open;
      if dm.dsConsultaCredito.DataSet.FieldByName('CLICRED').AsString <> '' then
      begin
        InfAdic.infCpl:= InfAdic.infCpl+'**SALDO DISPONÍVEL = R$ '+FormatFloat(',0.00', dm.dsConsultaCredito.DataSet.FieldByName('CLICRED').Value-(saldo_devedor+dm.dsFormasPag.DataSet.FieldByName('PAGOUT').Value))+'**|';
      end;
    end;
    if dm.dsVendas.DataSet.FieldByName('VENOBS').Value <> null then
    begin
      ObsVenda:= TStringList.Create;
      ObsVenda.Add(dm.dsVendas.DataSet.FieldByName('VENOBS').Value);
      for obs := 0 to ObsVenda.Count -1 do
      begin
        if ObsVenda.Strings[obs]<>'' then
        begin
          if obs=0 then
          begin
            InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
            InfAdic.infCpl:= InfAdic.infCpl+'OBSERVAÇÕES:|';
          end;
          InfAdic.infCpl:= InfAdic.infCpl+ObsVenda.Strings[obs]+'|';
          InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
        end;
      end;
    end;
    if dm.dsConfig.DataSet.FieldByName('CONFIGOBS1').Value <> null then
    begin
      Obs1:= TStringList.Create;
      Obs1.Add(dm.dsConfig.DataSet.FieldByName('CONFIGOBS1').Value);
      for obs := 0 to Obs1.Count -1 do
      begin
        if Obs1.Strings[obs]<>'' then
        begin
          if obs=0 then
          begin
            InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
          end;
          InfAdic.infCpl:= InfAdic.infCpl+Obs1.Strings[obs]+'|';
          InfAdic.infCpl:= InfAdic.infCpl+'--------------------------------|';
        end;
      end;
    end;

 

 

Editado 8 Outubro, 2025 por diego.bonfim

[Juliomar Marchetti]

anexe o xml gerado, mas sim pode ser 

[diego.bonfim]

Segue XML.

TESTE.xml

[Juliomar Marchetti]

veja pois olhe

 

[diego.bonfim]

17 horas atrás, Juliomar Marchetti disse:

veja pois olhe

 

Boa Tarde,

@Juliomar Marchetti, realmente era essa linha, acredito que eu coloquei isso para que as observações ficassem um pouco mais afastadas do QrCode, mas por algum motivo prejudica no layout.

 

Muito obrigado pela ajuda, pode encerrar o tópico.

[valterpatrick]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.