Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Busqueda Con Lector Optico. (https://www.clubdelphi.com/foros/showthread.php?t=53169)

ingmichel 12-02-2008 21:44:48

Busqueda Con Lector Optico.
 
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 12-02-2008 21:55:06

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 12-02-2008 22:03:40

re
 
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 12-02-2008 22:11:21

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 12-02-2008 22:23:36

otra cosa
 
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 12-02-2008 22:25:24

Cita:

Empezado por ingmichel (Mensaje 265364)
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......:rolleyes::rolleyes::eek:

La situación cambia totalmente....

Salud OS

eduarcol 12-02-2008 22:28:24

Cita:

Empezado por ingmichel (Mensaje 265372)
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

Cita:

Empezado por egostar (Mensaje 265373)
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......:rolleyes::rolleyes::eek:

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 12-02-2008 22:30:32

Cita:

Empezado por eduarcol (Mensaje 265375)
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...:D:D:D

Salud OS

eduarcol 12-02-2008 22:33:02

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

egostar 12-02-2008 22:45:54

Cita:

Empezado por eduarcol (Mensaje 265379)
pero tu no mas deja que salte que la tengo en la mira :D:D, liebre asada mmm :P

:D:D:D, 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


La franja horaria es GMT +2. Ahora son las 06:23:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi