Ir para conteúdo
  • Cadastre-se

dev botao

ACBrETQ - Pulando linha


Ver Solução Respondido por romerofartura,
  • Este tópico foi criado há 1323 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Membros Pro
  • 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.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.