Busqueda Con Lector Optico.

[ingmichel]

Hola A Todos, Quiero Desarrollar Una Aplicacion De Stock En La Cual Tengo Una Tabla Articulo, Pero Como Sabran Todo Articulo Tiene Un Codigo De Barra El Cual Es Posible Capturar Con Un Lector Optico, Mi Idea Es Que Cuando Me Posicione En Un Edit, Cuando Pase El Lector Sobre El Articulo Me Apareza Su Codigo en El Edit, Alguien Tiene Alguna Idea De Como Hacer Esto ?, Ahh El Lector Es Usb.

[[eduarcol]]

Momento, me has mareado con tantos AlTiBaJos, si no entendi mal lo que pides no necesita ninguna configuracion, crea un formulario coloca un Edit, asegurate que tenga el foco y lee con la pistola eso es todo lo que debes saber


SuErTe Y SaLuDoS y No EsCrIbAs AlTeRnAdO

[ingmichel]

gracias por responderme educarol, entonces dices que basta con posicioarme en el edit y leer con la pistola y es todo ?, no debo de hacer una busqueda en la tabla articulos para que me tire el codigo... ?

[[eduarcol]]

Nop, tu preguntastes solo como que aparezca en el edit, ahora buscarlo en la base de datos tienes que hacer un query para recuperar los datos a partir del codigo ingresado, esto lo puedes hacer en el evento onkeypress del edit, validando si se presiono la tecla enter(13)

[ingmichel]

gracias, ahora sí capte la idea, perdon es que no soy muy experto en delphi que digamos, tengo otra pregunta, quiero hacer que cada vez que se venda un artuculo que descremente el campo stock en proporcion a la cantidad vendida, es decir si tenia 12 camisas si vendo 2 me queden 10 y asi sucesivamente, estoy trabajando con sql-server 2000 mi tabla articulos tiene la siguiente estructura :

create table articulos
(cod_articulo int primary key,descripcion varchar(30),
precio float,stock int),

para disminuir el stock me he creado el store procedure siguiente:

create procedure sp_stock
@codgo int,
@cantidad int output
as
update articulos
set stock=stock -@cantidad
where cod_articulo=@codgo

el store procedure en la base datos funciona bien, pero como puedo hacer para ejecutar el store procedure en delphi? perdon si hice muchos altivajos gracias de antemano...

[[egostar]]

Empezado por ingmichel

Ahh El Lector Es Usb.

Momento amigo eduarcol, habria que ver como es que te detecta ese lector, si lo detecta como teclado si funcionará como indicas, pero que tal que lo detecte como puerto serial......

La situación cambia totalmente....

Salud OS

[[eduarcol]]

Empezado por ingmichel

gracias, ahora sí capte la idea, perdon es que no soy muy experto en delphi que digamos, tengo otra pregunta, quiero hacer que cada vez que se venda un artuculo que descremente el campo stock en proporcion a la cantidad vendida, es decir si tenia 12 camisas si vendo 2 me queden 10 y asi sucesivamente, estoy trabajando con sql-server 2000 mi tabla articulos tiene la siguiente estructura :

create table articulos
(cod_articulo int primary key,descripcion varchar(30),
precio float,stock int),

para disminuir el stock me he creado el store procedure siguiente:

create procedure sp_stock
@codgo int,
@cantidad int output
as
update articulos
set stock=stock -@cantidad
where cod_articulo=@codgo

el store procedure en la base datos funciona bien, pero como puedo hacer para ejecutar el store procedure en delphi? perdon si hice muchos altivajos gracias de antemano...

Depende con que componentes trabajes, siempre puedes encontrar uno para ejecutar el SP

Empezado por egostar

Momento amigo eduarcol, habria que ver como es que te detecta ese lector, si lo detecta como teclado si funcionará como indicas, pero que tal que lo detecte como puerto serial......

La situación cambia totalmente....

Salud OS

hasta el momento todos los lectores que conecto al usb funcionan como teclado, no se si hay modelos que se instalan como serial, pues pero falta de logica no esta tu razonamiento

[[egostar]]

Empezado por eduarcol

hasta el momento todos los lectores que conecto al usb funcionan como teclado, no se si hay modelos que se instalan como serial, pues pero falta de logica no esta tu razonamiento

Ah bueno, siendo así, esperemos que no salte la liebre...

Salud OS

[[eduarcol]]

pero tu no mas deja que salte que la tengo en la mira , liebre asada mmm :P

[[egostar]]

Empezado por eduarcol

pero tu no mas deja que salte que la tengo en la mira , liebre asada mmm :P

, Bueno pero ya entrado en gastos, este hilo no debe de ir en el foro de intenet ingmichel, te invito a que leas nuestra guia de estilo....

Salud OS