Ayuda con COMBOBOX

[mcarazas]

Hola Amigos del Foro:

Estoy desarrollando una aplicación para una distribuidora en cual implemento un lector de código de barras, para leer el código utilizo un combobox mi pregunta es cómo puedo hacer para que el combobox salte inmediatamente a otro objeto cuando encuentre el producto.
En que evento tengo que trabajar, agradeceré cualquier ayuda.

[[Caral]]

Hola
Me imagino que tendras que darle una condicion, si esta se cumple entonces hace lo que necesites.
Puedes usar el evento OnChange o el evento OnSelect, algo asi:

Código Delphi [-]
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
  0: begin
    Showmessage('nada');
  end;
 end;
 end;

Si se selecciona el primer item salta el mensaje.
Saludos

[mcarazas]

Empezado por mcarazas

Hola Amigos del Foro:

Estoy desarrollando una aplicación para una distribuidora en cual implemento un lector de código de barras, para leer el código utilizo un combobox mi pregunta es cómo puedo hacer para que el combobox salte inmediatamente a otro objeto cuando encuentre el producto.
En que evento tengo que trabajar, agradeceré cualquier ayuda.

Gracias por responder, cuando trabajo en el evento OnSelect ya no funcion el evento OnChange. Que puede ser?

[[Caral]]

Hola
Me imagino que tendrá que ser o uno u otro, no los dos ya que esencialmente hacen lo mismo.
Saludos

[Casimiro Notevi]

mcarazas, recuerda poner títulos descriptivos a tus preguntas, gracias por tu colaboración. Guía de estilo.

[ecfisa]

Empezado por mcarazas

Gracias por responder, cuando trabajo en el evento OnSelect ya no funcion el evento OnChange. Que puede ser?

Depende de como esté configurada la propiedad Style.
En csDropDown funcionan ambos eventos, se dispara OnChange cuando se modifica el texto y OnSelect cuando se realiza una elección desde la lista desplegable.
Si está en csSimple no se muestra la lista desplegable por lo tanto no hay forma que se dispare el evento OnSelect.
En csDropDownList, csOwnerDrawFixed y csOwnerDrawVariable el usuario no puede modificar el texto, por lo tanto sólo se disparará OnSelect.

Saludos.

[mcarazas]

Gracias por responder, yo necesito saltar cuando encuentre el codigo del lector si coloco con el Case, seria que estoy buscando uno por uno y yo tengo una lista de productos muy grande.

Código Delphi [-]
procedure TForm1.ComboBox1Select(Sender: TObject);
begin  
case ComboBox1.ItemIndex of  
0: begin    Showmessage('nada');  
1:..........una lista grande  end; end; end;

[ecfisa]

Hola.

No tengo en claro en que evento se recibe la cadena del lector, pero ateniendome al pedido de tu primer mensaje:

cómo puedo hacer para que el combobox salte inmediatamente a otro objeto cuando encuentre el producto

Yo haría algo como esto:

Código Delphi [-]
  ...
  with ComboBox1 do
  begin
    Text:= LectorStr;
    if Items.IndexOf(LectorStr) <> - 1 then   // ¿ Existe el producto  ?
      SelectNext(ActiveControl, True, True);  // si, pasar a próximo control
    ....
  end;
  ...

Donde LectorStr sería la cadena o función que contiene o devuelve el valor que acaba de leer el scanner.

Pero tampoco estoy seguro a que te refieres con "salte inmediatamente a otro objeto"...

Un saludo.

[mcarazas]

Estoy trabajando en un ComboBox y su propiedad Style esta en csSimple, eso quiere decir el combo no se depliega cuando el Combo encuentra un producto quiero que salte a un cuadro de texto, pero automaticamente.

En el anterior codigo que me dieron cuando el combo comparaba los primeros digitos pero no el codigo completo, y saltaba al otro

[ecfisa]

Empezado por mcarazas

Estoy trabajando en un ComboBox y su propiedad Style esta en csSimple, eso quiere decir el combo no se depliega cuando el Combo encuentra un producto quiero que salte a un cuadro de texto, pero automaticamente.

En el anterior codigo que me dieron cuando el combo comparaba los primeros digitos pero no el codigo completo, y saltaba al otro

Hola.

Cuando dices "cuadro de texto", no sé a que componente te refieres (TEdit, TStaticText,...) y tampoco sé cuál de los códigos que te dieron es el que no compara la totalidad de los dígitos. Si te refieres al que utiliza el método IndexOf de TStrings, compara por la totalidad de la cadena que se le envía en el argumento.

Por favor describe con la mayor claridad y detalle la situación. Es decir, evento en que se recibe el código de producto, componente que lo recibe, evaluación que deseas realizar sobre el código recibido, etc.

Para que podamos unificar conceptos trata en lo posible de llamar a los componentes por su nombre ya que distintos componentes tienen distintas propiedades, atributos y eventos.

Resumiendo, todo lo que aconseja nuestra poco leída Guía de estilo

Saludos.

[mcarazas]

Perdon creo que no me dejando entender.
Estoy trabajando en un ComboBox, el ComboBox tiene varios productos cargados, su propiedad Style esta en CsSimple como esta en la imagen.
Los primeras 13 letras del ComboBox son los digitos del codigo de barras, como el lector lee los 13 digitos el ComboBox va comparando hasta que encuentra el producto. Mi pregunta es como programo o en que evento trabajo para que el ComboBox encuentre el Codigo y salte automaticamente a un TEdit.

[olbeup]

De la manera que lo planteas nunca te va a buscar el código de barras por scanner ni por teclado, ya que para buscar en el ComboBox por IndexOf('7771214002632') nunca lo encontrará porque no coincide con la descripción "7771214002632 - AC100 - ACEITE DE OLIVA EXTRA VIRGEN 500 ML" y en ocasiones el código de barras puede tener menos de 13 dígitos.
Lo mejor es buscarlo en la DB o crearte una DB para los códigos de barras:

Código SQL [-]
CREATE TABLE CodigosBarras
  (
    IDCODIGOBARRA   int IDENTITY(1,1)
    CODIGOBARRAS    varchar(13)
    ARTICULOID      int
  )

CREATE UNIQUE INDEX PKU_IDCODIGOBARRA
  ON CodigosBarras(IDCODIGOBARRA)

CREATE UNIQUE INDEX PSU_CODIGOBARRAS
  ON CodigosBarras(CODIGOBARRAS)

CREATE INDEX PS_ARTICULOID
  ON CodigosBarras(ARTICULOID)

En la ficha del artículo asocias el código de barras al código del artículo.
En vez de utilizar un ComboBox utiliza un Edit

Espero que te sirva
Un saludo.

[ecfisa]

Hola.

Tál como te comenta olbeup, no encontrará el código de esa manera. Para lograr lo que buscas tendrías que crearte una variable de tipo TStrings que almacene paralelamente los códigos propiamente dichos y realizar las búsquedas sobre ella. Es decir que cuando realizas la carga del ComboBox tendrías que hacer:

Código Delphi [-]
  tsCódigo:= TStringList.Create;
  while not DataSet.Eof do
  begin
    tsCódigo.Add(DataSet.FieldByName('CODIGO').AsString);
    ComboBox1.Items.Add(DataSet.FieldByName('CODIGO').AsString + DataSet.FieldByName('DETALLE').AsString);
    DataSet.Next;
  end;

Luego, para buscar el código, algo como:

Código Delphi [-]
  ...
  ix := tsCódigo.IndexOf(Edit1.Text); // Edit que recibe el código
  if ix <> -1 then 
  begin
    ComboBox1.ItemIndex:= ix;  // mostrar item
    Edit2.SetFocus;  // ir a otro Edit
  end
  ...

En algún punto deberás hacer tsCodigo.Free para liberar memoria. (Estoy escribiendo el código en el aire, así que seguramente obtengas algún error si lo probas)

Pero es muchísimo más sencillo y eficiente comprobar la existencia del código ejecutando una consulta sobre el DataSet.

Un saludo.

[olbeup]

Vale, lo que puedes hacer es en vez de utilizar Add, vas a utilizar AddObject, es mas útil.
Lo primer es crearte un objecto

Código Delphi [-]
type
  TFillItem = class
    private
      FIDFieldValue: Integer;
      FTitleField: String;
      FFieldValue: Variant;
      FFieldWide: WideString;
    published
      property IDFieldValue: Integer read FIDFieldValue write FIDFieldValue;
      property TitleField: String read FTitleField write FTitleField;
      property FieldValue: Variant read FFieldValue write FFieldValue;
      property FieldWide: WideString read FFieldWide write FFieldWide;
  end;

Lo segundo es crearte un procedimiento para cargar todos los artículos en el ComboBox:

Código Delphi [-]
procedure TForm1.LoadArticlesCB;
var
  FillItem: TFillItem;
begin
  with DataSet do
    while (not Eof) do
    begin
      FillItem := TFillItem.Create;
        FillItem.IDFieldValue := FieldByName('IDARTICULO').AsInteger;
        FillItem.FieldValue   := FieldByName('IMPORTE').AsFloat;
        FillItem.TitleField   := FieldByName('DETALLE').AsString;
        FillItem.FieldWide    := FieldByname('OBSERVACIONES').AsString;

      ComboBox1.Items.AddObject(FillItem.TitleField, FillItem);

      Next;
    end;
end;

Luego, para buscar el código

Código Delphi [-]
...
var
  FillItem: TFillItem;
begin
  with ComboBox1 do
  begin
    ix := Items.IndexOf(Text);
    if (ix <> -1) then
    begin
      FillItem := Items.Objects[ix];
      Text := Text + ' - ' + FillItem.TitleField;
      Edit2.SetFocus;
    end
    else
      ShowMessage('Artículo no encontrado [' + Text + ']');
  end;
end;

y cuando se cierre la aplicación

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  nI: Integer;
begin
  with ComboBox1 do
    for nI := 0 to (Items.Count -1) do
      TFillItem(Items.Objects[nI]).Free;
end;

Espero que te sirva
Un saludo

[mcarazas]

Gracias por su ayuda, ahora se que voy a hacer