Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

ACBrETQ - Pulando linha


Go to solution Solved by romerofartura,
  • Este tópico foi criado há 206 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

  • Usuários SAC

Boa tarde, estou com problemas na impressão de etiquetas pelo ACBrETQ quem puder dar uma orientação que eu possa seguir.
Nas impressoras Elgin L42Pro em PPLB e na na Zebra GC420t em EPL2 (configurando para cada sua posição vertical e horizontal correta) ela imprime uma etiqueta e pula outra, seja quantas etiquetas eu mandar. 
Já fiz reset e calibração da etiqueta  nas duas e continua o mesmo problema.

Fiz na minha impressora Argox OS 214Plus em PPLA e a função funciona sem pular (porém usei outra etiqueta, não tenho em mãos a mesma do cliente).

Segue a função caso eu esteja fazendo algo errado ou alguma sugestão do que possa ser.

 

  try
    acbr_Etiqueta.Desativar;
    acbr_Etiqueta.DPI           := TACBrETQDPI(FConfiguracaoPDV.IMP_TERMICA.TERMICA_DPI);
    acbr_Etiqueta.Modelo        := TACBrETQModelo(FConfiguracaoPDV.IMP_TERMICA.TERMICA_MODELO);
    acbr_Etiqueta.LimparMemoria := (FConfiguracaoPDV.IMP_TERMICA.TERMICA_LMEMORIA = 0);
    acbr_Etiqueta.Porta         := FConfiguracaoPDV.IMP_TERMICA.TERMICA_PORTA;
    acbr_Etiqueta.Temperatura   := 10;
    acbr_Etiqueta.Velocidade    := -1;
    acbr_Etiqueta.Unidade       := etqMilimetros;
    acbr_Etiqueta.Origem     := TACBrETQOrigem(cbbOrigem.ItemIndex);

    if chkFeed.Checked then
      acbr_Etiqueta.BackFeed := bfOn
    else
      acbr_Etiqueta.BackFeed := bfOff;

    acbr_Etiqueta.Ativar;
    Result := True;
  except
    on E:Exception do
      ShowMessage('Erro ativando impressora térmica.'+ sLineBreak + e.ToString());
  end;


  FDM_Etiquetas.First;
      while not FDM_Etiquetas.Eof do
      begin
          acbr_Etiqueta.IniciarEtiqueta;

          FDQ_EtiqConfLn.First;
          while not FDQ_EtiqConfLn.Eof do
          begin
            ORIENTACAO := OrientacaoRetornar(FDQ_EtiqConfLn.FieldByName('ORIENTACAO').AsInteger);
            EAN_BARRA_LARGA  := FDQ_EtiqConfLn.FieldByName('EAN_BARRA_LARGA').AsInteger;
            EAN_BARRA_FINA  := FDQ_EtiqConfLn.FieldByName('EAN_BARRA_FINA').AsInteger;
            EAN_ALTURA  := FDQ_EtiqConfLn.FieldByName('EAN_ALTURA').AsInteger;
            EAN_EXIBE_CODIGO  := FDQ_EtiqConfLn.FieldByName('EAN_EXIBE_CODIGO').AsInteger;


            EAN_TIPO := FDQ_EtiqConfLn.FieldByName('EAN_TIPO').AsString;
            FONTE := FDQ_EtiqConfLn.FieldByName('FONTE').AsInteger;
            MULTIPLICADORH := FDQ_EtiqConfLn.FieldByName('MULTIPLICADORH').AsInteger;
            MULTIPLICADORV := FDQ_EtiqConfLn.FieldByName('MULTIPLICADORV').AsInteger;
            VERTICAL := FDQ_EtiqConfLn.FieldByName('VERTICAL').AsInteger;
            HORIZONTAL := FDQ_EtiqConfLn.FieldByName('HORIZONTAL').AsInteger;
            SUBFONTE := FDQ_EtiqConfLn.FieldByName('SUBFONTE').AsInteger;
            REVERSO := FDQ_EtiqConfLn.FieldByName('REVERSO').AsInteger;
            TEXTO_LIVRE := FDQ_EtiqConfLn.FieldByName('TEXTO_LIVRE').AsString;


            if ((FDQ_EtiqConfLn.FieldByName('CAMPO').AsString = 'CODBARRAS') and (FDQ_EtiqConfLn.FieldByName('TIPO').AsInteger in [3..5])) then
            begin
              TipoEAN    := EAN_Tratar2(FDM_Etiquetas.FieldByName('CODBARRAS').AsString, acbr_Etiqueta.Modelo);

              if (EAN_EXIBE_CODIGO = 1) then
                exibeCodigo := becSIM
              else
                exibeCodigo := becNAO;

              acbr_Etiqueta.ImprimirBarras(ORIENTACAO, TipoEAN, EAN_BARRA_LARGA, EAN_BARRA_FINA, VERTICAL, HORIZONTAL, FDM_Etiquetas.FieldByName('CODBARRAS').AsString, EAN_ALTURA, exibeCodigo);

            end
            else
            begin
              nomeCampo      := FDQ_EtiqConfLn.FieldByName('CAMPO').AsString;
              textoVlr       := ifThen((nomeCampo = 'PRVISTA'), 'R$ ', '');
              texto          := Copy(textoVlr + FDM_Etiquetas.FieldByName(nomeCampo).AsString, 0, 29); //textoVlr + copy(FDM_Etiquetas.FieldByName(nomeCampo).AsString, 1, 20)

              if (nomeCampo = 'TEXTO_LIVRE') then
                texto := FDQ_EtiqConfLn.FieldByName('TEXTO_LIVRE').AsString;

              acbr_Etiqueta.ImprimirTexto(ORIENTACAO, FONTE, MULTIPLICADORH, MULTIPLICADORV, VERTICAL, HORIZONTAL, texto);
            end;

            FDQ_EtiqConfLn.Next;
          end;

         //acbr_Etiqueta.FinalizarEtiqueta(FDM_Etiquetas.FieldByName('QTDE').AsInteger, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
         acbr_Etiqueta.Imprimir(FDM_Etiquetas.FieldByName('QTDE').AsInteger, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
        FDM_Etiquetas.Next;
      end;

      //acbr_Etiqueta.Imprimir(1, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
      acbr_Etiqueta.Desativar;

 

Link to post
Share on other sites
  • Fundadores

Tudo indica que o sensor de GAP não está posicionado corretamente, para essa etiqueta...

Se não me engano, a L42Pro, permite ajustar o posicionamento do Sensor de GAP

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to post
Share on other sites
  • Usuários SAC
  • Solution

Ontem instalamos o bartender pego no site da elgin para ver se poderia ser a etiqueta com problemas, mas imprimiu normalmente na Elgin L42Pro sem pular.
Hoje, após ver a resposta aqui no fórum conectei no cliente para fazer o procedimento proposto, mas antes de qualquer ajuste tentei uma impressão sem alterar nada, e por incrível que pareça funcionou perfeitamente.  Coisas de informática!
Como as duas impressoras estão no mesmo PC, pode ter sido algum arquivo do bartender que atualizou ao ser instalado ou ao imprimir por ele a detecção da etiqueta foi feita corretamente.
Mas de qualquer forma funcionou.

Quanto a zebra por hora não vamos mais usar, depois passamos ela em outro PC para testes.

Obrigado pela atenção.

  • Like 1
Link to post
Share on other sites

Bom dia.

Obrigada por informar, vamos manter o tópico aberto para quando você tiver alguma nova informação sobre a Zebra.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
×
×
  • Create New...