Falla en Busqueda SEEK
Publicado por RAMON (81 intervenciones) el 05/04/2010 19:20:37
Hola amigos.. buenas tardes... que tal les ha ido con el cambio de horario...? je je...
bueno... quisiera me ayudaran en algo.. lo que pasa es que tengo una tabla llamada articulos con un campo llamado CODEBAR c(18) indexado. y al buscar algun articulo por este campo no lo realiza como debe de ser... ejemplo
Registro un producto asi ...
codebar descripcion
PAL PALETA PAYASO RICOLINO
Ya tengo otro registrado asi:
PALETA PALETA CARAMELO MASIZO RICOLINO
al tratar de Volverlo a registrar el codebar "PAL" me muestra los datos del codigo PALETA
**** EVENTO VALID DEL TEXTBOX LLAMADO cCode****
SELECT articulos
SET ORDER TO CODEBAR && CODEBAR
GO TOP
IF SEEK(ALLTRIM(cCode))
cArticulo=ALLTRIM(Articulo)
Thisform.Grid1.Highlightstyle=2
Thisform.Grid1.Refresh
MESSAGEBOX('El Articulo: &cArticulo.. '+CHR(13);
+'ya fue registrado con anterioridad..',0+16,'Ya Existe')
This.Value=""
THISFORM.cArticulo.Value=""
RETURN 0
ENDIF
Porque Pasará esto...??
Gracia Amigos...
bueno... quisiera me ayudaran en algo.. lo que pasa es que tengo una tabla llamada articulos con un campo llamado CODEBAR c(18) indexado. y al buscar algun articulo por este campo no lo realiza como debe de ser... ejemplo
Registro un producto asi ...
codebar descripcion
PAL PALETA PAYASO RICOLINO
Ya tengo otro registrado asi:
PALETA PALETA CARAMELO MASIZO RICOLINO
al tratar de Volverlo a registrar el codebar "PAL" me muestra los datos del codigo PALETA
**** EVENTO VALID DEL TEXTBOX LLAMADO cCode****
SELECT articulos
SET ORDER TO CODEBAR && CODEBAR
GO TOP
IF SEEK(ALLTRIM(cCode))
cArticulo=ALLTRIM(Articulo)
Thisform.Grid1.Highlightstyle=2
Thisform.Grid1.Refresh
MESSAGEBOX('El Articulo: &cArticulo.. '+CHR(13);
+'ya fue registrado con anterioridad..',0+16,'Ya Existe')
This.Value=""
THISFORM.cArticulo.Value=""
RETURN 0
ENDIF
Porque Pasará esto...??
Gracia Amigos...
Valora esta pregunta


0