Programita en DbaseIII
Hola,
Hice un programita en dbase III, que no funciona del todo como quisiera, aca va la especificacion y luego el codigo:
I need a database that runs in D.O.S. With 3 columns:
(a) item name (alphanumeric 100 char)
(b) barcode (numeric 32 char)
(c) location (alphanumeric 6 char)
with a soft that does this:
(1) Shows: Please enter location (entered using the keyboard, cannot be left blank, after I press enter it goes to point 2)
(2) Shows: Please enter barcode number (Waits for data to enter through the barcode reader)
(3) Searchs the colum barcode in the database for that item
(4) If founds the item overwrites the value location with the data entered in point (1). If not found shows not found and goes back to point (2).
(5) Shows the message location updated and beeps once OR not found and beeps twice
(6) Goes back to point (2)
Comment: esc key at any time goes back to 1, some other key like F2 exits.
Just in case I explain that location will be the same until it's changed.
It will be good if I can use a database made in Excel (oldest version possible).
RELEASE ALL
SET TALK OFF
CLEAR
STORE " "TO UBIC
STORE " "TO BARCO
@10,01 SAY 'POR FAVOR INGRESAR CODIGO DE LA UBICACION usando 6
DIGITOS (POR EJEMPLO LBU002)'GET UBIC
READ
USE PROGRAMI
INDEX ON ITEM TO ITEM
INDEX ON CODBAR TO CODBAR
INDEX ON LOCATION TO LOCATION
@11,01 SAY 'POR FAVOR INGRESAR CODIGO DE BARRAS usando 19 digitos 'GET BARCO
READ
seek BARCO
STORE UBIC TO LOCATION
CLEAR
ENDIF
RELEASE ALL
RETURN
QUIT
Falta:
1) que reemplace el valor de Location en la base de datos con el valor de UBIC, cosa que no hace
2) configurar una tecla como F2 para salir
3) hacer que con esc vuelva a donde pide el codigo de la ubicacion
4) que si pongo un valor de codigo de barras invalido avise y lo vuelva a pedir
5) que haga los beeps
6) compilarlo
Muchas gracias
Saludos
Marcelo
Hice un programita en dbase III, que no funciona del todo como quisiera, aca va la especificacion y luego el codigo:
I need a database that runs in D.O.S. With 3 columns:
(a) item name (alphanumeric 100 char)
(b) barcode (numeric 32 char)
(c) location (alphanumeric 6 char)
with a soft that does this:
(1) Shows: Please enter location (entered using the keyboard, cannot be left blank, after I press enter it goes to point 2)
(2) Shows: Please enter barcode number (Waits for data to enter through the barcode reader)
(3) Searchs the colum barcode in the database for that item
(4) If founds the item overwrites the value location with the data entered in point (1). If not found shows not found and goes back to point (2).
(5) Shows the message location updated and beeps once OR not found and beeps twice
(6) Goes back to point (2)
Comment: esc key at any time goes back to 1, some other key like F2 exits.
Just in case I explain that location will be the same until it's changed.
It will be good if I can use a database made in Excel (oldest version possible).
RELEASE ALL
SET TALK OFF
CLEAR
STORE " "TO UBIC
STORE " "TO BARCO
@10,01 SAY 'POR FAVOR INGRESAR CODIGO DE LA UBICACION usando 6
DIGITOS (POR EJEMPLO LBU002)'GET UBIC
READ
USE PROGRAMI
INDEX ON ITEM TO ITEM
INDEX ON CODBAR TO CODBAR
INDEX ON LOCATION TO LOCATION
@11,01 SAY 'POR FAVOR INGRESAR CODIGO DE BARRAS usando 19 digitos 'GET BARCO
READ
seek BARCO
STORE UBIC TO LOCATION
CLEAR
ENDIF
RELEASE ALL
RETURN
QUIT
Falta:
1) que reemplace el valor de Location en la base de datos con el valor de UBIC, cosa que no hace
2) configurar una tecla como F2 para salir
3) hacer que con esc vuelva a donde pide el codigo de la ubicacion
4) que si pongo un valor de codigo de barras invalido avise y lo vuelva a pedir
5) que haga los beeps
6) compilarlo
Muchas gracias
Saludos
Marcelo
