Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

ACBrETQ - Pulando linha


romerofartura
Go to solution Solved by romerofartura,
  • Este tópico foi criado há 645 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 to comment
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 comment
Share on other 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.

  • Like 1
Link to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.