Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Ola a minha duvida com ACBrBarCode com a propriedade Typ, que tenho um combobox com os seguinte tipo de código de barra, EAN8, EAN13 e GTIN.

Quando for EAN8 como eu faço para indicar via código ACBrBarco.typ = EAN8 como fazer não achei nada na internet para ajudar.

O Componente ACBrBarCode gera os código para mim sem precisar criar código, se sim tem um artigo que demostrar para eu seguir e fazer no meu sistema?

Como fazer para o ACBrBarCode gerar codigo de barra para o padrão GTIN?

Postado
Parte do código para você dar uma olhada em como achar o tipo que você precisa.
 
unit ACBrBarCode;
 
type
  TACBrBarCode = class ( TGraphicControl )
  private
//  fsAbout: TACBrAboutInfo;
    fsBarCode  : TAsBarcode ;
    fsTransparent: Boolean;
    procedure SetTransparent(const Value: Boolean);
    function GetAngle: Double;

    property Typ    : TBarcodeType read GetTyp   write SetTyp

Olhe no Uses para encontra a unit que consta o TBarcodeType.

uses
 {ACBrBase, }Classes, SysUtils,
 {$IFDEF VisualCLX}
  QGraphics, QControls, QExtCtrls, QDialogs,
 {$ELSE}
  Graphics, Controls, ExtCtrls, Dialogs,
 {$ENDIF}
  AJBarcode ;

Olhe a unit AJBarcode;

type
  TBarcodeType =
  (
  bcCode_2_5_interleaved,
  bcCode_2_5_industrial,
  bcCode_2_5_matrix,
  bcCode39,
  bcCode39Extended,
  bcCode128A,
  bcCode128B,
  bcCode128C,
  bcCode93,
  bcCode93Extended,
  bcCodeMSI,
  bcCodePostNet,
  bcCodeCodabar,
  bcCodeEAN8,
  bcCodeEAN13,
  bcCodeUPC_A,
  bcCodeUPC_E0,
  bcCodeUPC_E1,
  bcCodeUPC_Supp2,    { UPC 2 digit supplemental }
  bcCodeUPC_Supp5,    { UPC 5 digit supplemental }
  bcCodeEAN128A,
  bcCodeEAN128B,
  bcCodeEAN128C
  );

 


 

 

Postado

Senhor PauloRsa, eu vi o código mas eu não estou conseguindo fazer a atribuição que desejo.

ACBrBarCode.BarCode.Typ.bcCodeEAN13 := true;

ACBrBarCode.BarCode.Typ := bcCodeEAN13;

ACBrBarCode.BarCode.Typ := 'bcCodeEAN13';

 

Não consigo fazer atribuição pode me ajudar por favor?

  • Fundadores
Postado

Aproveite a oportunidade, e estude sobre Tipos Enumerados

http://wiki.freepascal.org/Enumerated_types

http://www.delphibasics.co.uk/Article.asp?Name=Sets

Qual o problema com o código abaixo ?

 ACBrBarCode.BarCode.Typ := bcCodeEAN13; 

 

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.

Postado

Daniel Simões Desculpa encomodar mas quando realmente eu não consigo e não intendo o quer dizer o fonte eu peço ajuda.

Desculpa novamente se sou muito burro para entender e se estou encomodando

Abaixo o erro que acontece com a linha que sitou.

ACBrBarCode.png

ACBrBarCode1.png

ACBrBarCode2.png

  • Fundadores
Postado
10 minutos atrás, bacalajr disse:

Daniel Simões Desculpa encomodar mas quando realmente eu não consigo e não intendo o quer dizer o fonte eu peço ajuda.

Desculpa novamente se sou muito burro para entender e se estou encomodando

Não leve para o lado pessoal... quando iniciei o ACBr, não tinha menor ideia de como criar um componente...  Use a dificuldade, para uma oportunidade de aumentar o seu conhecimento...

A dica do colega Paulo, deve resolver o seu problema...

Afinal, como você espera que o copilador conheça o tipo enumerado, se você não fez "Uses" da Unit onde ele é declarado ?

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

Postado

Com a dia do o Colega senhor Paulo, eu declarei e junto as units de form que estou usando no meu formulário. e estou testando porem na mudança de um iniciei testando ean 8 quando mudei para o 13 deu erro estou vendo ainda o pq qualquer coisa eu posto novamente um outro post com o erro mas até aqui obrigado pela ajuda.

eu não sabia que tinha que declarar essa unit.

Postado
1 hora atrás, bacalajr disse:

Com a dia do o Colega senhor Paulo, eu declarei e junto as units de form que estou usando no meu formulário. e estou testando porem na mudança de um iniciei testando ean 8 quando mudei para o 13 deu erro estou vendo ainda o pq qualquer coisa eu posto novamente um outro post com o erro mas até aqui obrigado pela ajuda.

eu não sabia que tinha que declarar essa unit.

Como faz para dar o assunto como resolvido?

 

  • Este tópico foi criado há 2801 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.