Alternativa al famoso Seek
Publicado por es_binario (757 intervenciones) el 17/08/2010 23:05:50
Buenas tardes compañeros
Tengo un punto de venta en el que para localizar el codigo de barras para agregarlo al detalle utilizo el famoso SEEK, pero me gustaria cambiarlo por otra alternativa sql.
set exact on
with thisformset.Form1
if not empty(.Txtcode_bar.value)
&& Verifica que haya un codigo a buscar
select articulos
set order to cod_barra
seek alltrim(.Txtcode_bar.value)
if found()
El caso es que funciona bien, entonces mi plan era un select y un reccount pero note que aveces lo agrega y aveces no, la razon no la se, pero el seek no falla y me gustaria que alguien me diera alguna sujerencia.
local codigo busca
codigo_busca = alltrim(Thisformset.form1.txtcode_bar.value)
Select * from articulos where articulos.cod_barra = codigo_busca;
into cursor cur_existe_codigo
select cur_existe_codigo
if reccount() > 0 && existe
endif
La razon es que si mientras se ejecuta una isntruccion seek y falla la corriente electrica se rope el indice
gracias por las sujerencias.
Tengo un punto de venta en el que para localizar el codigo de barras para agregarlo al detalle utilizo el famoso SEEK, pero me gustaria cambiarlo por otra alternativa sql.
set exact on
with thisformset.Form1
if not empty(.Txtcode_bar.value)
&& Verifica que haya un codigo a buscar
select articulos
set order to cod_barra
seek alltrim(.Txtcode_bar.value)
if found()
El caso es que funciona bien, entonces mi plan era un select y un reccount pero note que aveces lo agrega y aveces no, la razon no la se, pero el seek no falla y me gustaria que alguien me diera alguna sujerencia.
local codigo busca
codigo_busca = alltrim(Thisformset.form1.txtcode_bar.value)
Select * from articulos where articulos.cod_barra = codigo_busca;
into cursor cur_existe_codigo
select cur_existe_codigo
if reccount() > 0 && existe
endif
La razon es que si mientras se ejecuta una isntruccion seek y falla la corriente electrica se rope el indice
gracias por las sujerencias.
Valora esta pregunta
0