Error en la busqueda
Publicado por Melisa (22 intervenciones) el 10/12/2013 21:55:58
hola!!! hice un programa para buscar por numero (en mi caso es numero de orden) en una tabla y luego imprimir los datos cargados como ese numero de registro,,, pero tengo un problema en la busqueda porque solo me muestra el numero 1. Yo en la tabla tengo cargados mas registros y no se porque no los encuentra.. alguien que me pueda ayudar??
ahi va el programa:
SELECT 1
USE ORDEN INDEX nroorden,idxn,ape,dom
SELECT 2
USE UNIDADES INDEX dom1,NRO1
@0,0 SAY 'C:\dibujo' BITMAP
NRO=0
DO WHILE .T.
SELECT 1
@ 2,2 say 'C:\IO' BITMAP
@ 10,2 SAY "INGRESE EL NRO. DE ORDEN <0> SALIR:" FONT 'VERDANA',10 STYLE "B" GET NRO PICTURE "9999999999" FONT 'VERDANA',10 STYLE "B"
READ
IF NRO=0
@0,0 SAY 'C:\dibujo' BITMAP
EXIT
@0,0 SAY 'C:\dibujo' BITMAP
ENDIF
SELECT 1
LOCATE FOR NRO_ORDEN=NRO
IF FOUND()
BROWSE
*FIELDS NRO_ORDEN,FE_INGRESO,DOMINIO,MOTIVO,APELLIDO,NOMBRE,FE_SALIDA
WAIT "..DESEA IMPRIMIR ESTA ORDEN? S/N.." TO R WINDOW
IF UPPER (R)= "S"
@0,0 SAY 'C:\dibujo' BITMAP
SET CONSOLE OFF
SET PRINTER ON
REPORT FORM REPORTE1
SET PRINTER OFF
SET CONSOLE ON
CLOSE ALL
RETURN
ELSE
WAIT"NADA PARA IMPRIMIR"WINDOW
CLOSE ALL
RETURN
ENDIF
ELSE
WAIT ".....LA ORDEN NO EXISTE...." window
ENDIF
SELECT 1
NRO=0
@0,0 SAY 'C:\dibujo' BITMAP
ENDDO
RETURN
@0,0 SAY 'C:\dibujo' BITMAP
ahi va el programa:
SELECT 1
USE ORDEN INDEX nroorden,idxn,ape,dom
SELECT 2
USE UNIDADES INDEX dom1,NRO1
@0,0 SAY 'C:\dibujo' BITMAP
NRO=0
DO WHILE .T.
SELECT 1
@ 2,2 say 'C:\IO' BITMAP
@ 10,2 SAY "INGRESE EL NRO. DE ORDEN <0> SALIR:" FONT 'VERDANA',10 STYLE "B" GET NRO PICTURE "9999999999" FONT 'VERDANA',10 STYLE "B"
READ
IF NRO=0
@0,0 SAY 'C:\dibujo' BITMAP
EXIT
@0,0 SAY 'C:\dibujo' BITMAP
ENDIF
SELECT 1
LOCATE FOR NRO_ORDEN=NRO
IF FOUND()
BROWSE
*FIELDS NRO_ORDEN,FE_INGRESO,DOMINIO,MOTIVO,APELLIDO,NOMBRE,FE_SALIDA
WAIT "..DESEA IMPRIMIR ESTA ORDEN? S/N.." TO R WINDOW
IF UPPER (R)= "S"
@0,0 SAY 'C:\dibujo' BITMAP
SET CONSOLE OFF
SET PRINTER ON
REPORT FORM REPORTE1
SET PRINTER OFF
SET CONSOLE ON
CLOSE ALL
RETURN
ELSE
WAIT"NADA PARA IMPRIMIR"WINDOW
CLOSE ALL
RETURN
ENDIF
ELSE
WAIT ".....LA ORDEN NO EXISTE...." window
ENDIF
SELECT 1
NRO=0
@0,0 SAY 'C:\dibujo' BITMAP
ENDDO
RETURN
@0,0 SAY 'C:\dibujo' BITMAP
Valora esta pregunta
0