falla en la busqueda
Publicado por Ramoncito (81 intervenciones) el 10/03/2009 03:36:19
Hola buenas noches... tengo un pequeño problemita con una tabla que esta inexada por un campo llamado codebar.tipo caracer.. ademas un text1 cCode tambien caracter..
paso el codigo de barras en el text1... y en el Evento LostFocus... del mismo llama a un boton Command1.. para buscar registro.... . mi codigo es este...
evento losfocus del text1.
Thisform.Command1.Click
Evento click del Command1.
Select Articulos
set order to Codebar
go top
Locate for Alltr(codebar)=Alltri(cCode)
If Found()
Sele Ventas
append blank
RLock() &&Bloquear REgistro
Replace cant with x, precio with xx, total with total
Esto... lo otro y etc.
UnLock &&Desbloq. reg.
Else
MessageBox('El Articulo Es inexistente')
Endif
el problama que tengo es que si escribo el codigo 001.... me dice que es;
PALETA TUTSU POP y cuesta $ 2.50 y tengo 92
al Escribir el codigo 0018 ... me dice lo mismo que es PALETA TUTSI POP..con el mismo precio y existencia. ....Le doy un browse al la tabla.. desde vfp y no aparece el codigo 001 solo existe el 0018...
como le hago para solucionar el problema...??
Saludos....Gracias A todos
paso el codigo de barras en el text1... y en el Evento LostFocus... del mismo llama a un boton Command1.. para buscar registro.... . mi codigo es este...
evento losfocus del text1.
Thisform.Command1.Click
Evento click del Command1.
Select Articulos
set order to Codebar
go top
Locate for Alltr(codebar)=Alltri(cCode)
If Found()
Sele Ventas
append blank
RLock() &&Bloquear REgistro
Replace cant with x, precio with xx, total with total
Esto... lo otro y etc.
UnLock &&Desbloq. reg.
Else
MessageBox('El Articulo Es inexistente')
Endif
el problama que tengo es que si escribo el codigo 001.... me dice que es;
PALETA TUTSU POP y cuesta $ 2.50 y tengo 92
al Escribir el codigo 0018 ... me dice lo mismo que es PALETA TUTSI POP..con el mismo precio y existencia. ....Le doy un browse al la tabla.. desde vfp y no aparece el codigo 001 solo existe el 0018...
como le hago para solucionar el problema...??
Saludos....Gracias A todos
Valora esta pregunta


0