Ir para conteúdo
  • Cadastre-se

dev botao

Etiquetas na Argox OS-2140


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

Recommended Posts

Por favor, alguém teria um exemplo de como gerar etiquetas de barras 3 colunas na Argox OS-2140, eu sempre usei o padrão da Zebra e não conheço este padrão da Argox.

Abaixo estou passando como estou fazendo atualmente:

     vetq := TStringList.create;
     vetq.clear;
     vetq.Add('L');
     vetq.Add('H12');
     vetq.Add('D11');
     { 12110000000050
       1 = orintacao
       2 = fonte
       1 = Multiplicador horizontal
       1 = Multiplicador vertical
       000 = Subtipo da fonte
       0100 = Coordenadas no eixo x
       0050 - Coordenadas no eixo y }
    with tabResult do
    begin
      first;
      item:=0;
      vQtMov:=0;
      vInImpFinal:=False;
      while not eof do
      begin
         if (fieldbyname('selecao').AsBoolean) and
            (fieldbyname('qtfisica').AsInteger > 0) then
         begin
            if (FieldByName('moedacompra').AsString <> null) and
               (FieldByName('moedacompra').AsString <> '') then
               vCodMoeda:=FieldByName('moedacompra').AsInteger
            else begin
               Application.MessageBox(pchar('Código Moéda de compra não informado para o Produto : '+FieldByName('codprod').AsString),'Aviso',Mb_Ok);
               vCodMoeda:=vGlbCodMoeda;
               exit;
            end;
            //
            p_busca_dados_prod;
            vetq.Add('121102000650015REF.:' + FieldByName('CODPROD').AsString);
            if (vGlbCodMoeda <> 3) then
               vetq.Add('121102000550015'   + '"'+vSimbolo + vVlVenda+'"')
            else
               vetq.Add('121102000550015'   + '"'+vSimbolo + vVlVenda+'"');
            vetq.Add('121102000450015'      + copy(vdescrProd,1,25) + '"');
            vetq.Add('1F3202500100008'      + FieldByName('CODBAR').AsString);
            next;
            if not eof then
            begin
               p_busca_dados_prod;
               vetq.Add('121102000650155REF.:' + FieldByName('CODPROD').AsString);
               if (vGlbCodMoeda <> 3) then
                 vetq.Add('121102000550155'    + '"'+vSimbolo + vVlVenda+'"')
               else
                 vetq.Add('121102000550155'    + '"'+vSimbolo + vVlVenda+'"');
               vetq.Add('121102000450155'      + copy(vdescrProd,1,25) + '"');
               vetq.Add('1F3202500100150'      + FieldByName('CODBAR').AsString);
            end;
            next;
            if not eof then
            begin
               p_busca_dados_prod;
               vetq.Add('121102000650290REF.:' + FieldByName('CODPROD').AsString);
               if (vGlbCodMoeda <> 3) then
                 vetq.Add('121102000550290'    + '"'+vSimbolo + vVlVenda+'"')
               else
                 vetq.Add('121102000550290'    + '"'+vSimbolo + vVlVenda+'"');
               vetq.Add('121102000450290'      + copy(vdescrProd,1,25) + '"');
               vetq.Add('1F3202500100290'      + FieldByName('CODBAR').AsString);
               //
               { Sintaxe 1, A, 5, 2, 000, 0100, 0200
                 1 = orientacao 1 para retrato
                 a = Tipo de codigo de barras
                 5 = largura da barra larga
                 2 = largura da barra fina
                 000  = altura do cod barra 000 padrao
                 0100 = coordenada eixo y |^
                 0200 = coordenada eixo x ----------> }
            end;
            next;
            vetq.Add('P'+fieldByName('qtfisica').AsString);
            vetq.Add('E');
         end
         else next;
      end;
    end;
    //
    vetq.SaveToFile(vGlbPathEtiq + '\Arg3Col.txt');
    vetq.Free;
    if not FileExists(vGlbPathEtiq + '\PRINTLBL.BAT') then
    begin
       AssignFile(Arquivo, vGlbPathEtiq + '\PRINTLBL.BAT');
       try
         Rewrite(Arquivo);
         Writeln(Arquivo, 'TYPE ' + vGlbPathEtiq + '\Arg3Col.TXT > '+vLpt);
       finally
         CloseFile(Arquivo);
       end
    end;
    ShellExecute(0, 'Open', PChar(vGlbPathEtiq + '\PRINTLBL.BAT'), nil,nil, Ord(SW_SHOW));
 

Link para o comentário
Compartilhar em outros sites

  • Administradores
  • Solution

Bom dia.

Sugiro estudar o demo do ACBrETQ, com ele fora algumas configurações e posionamento das colunas não fará diferença qual é a impressora.

Att.

  • Curtir 1
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

  • Este tópico foi criado há 1470 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.