Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ADVANCED.ZIP
Filename : NEWSTOCK.PRG

**************************************************** NEWSTOCK.PRG
* Data entry program for goods received.
* Called from New Stock Menu, NMENU.PRG.

SELECT A
USE Master INDEX Master
SELECT B
USE NewStock INDEX NewStock
SELECT A

*------- Set up loop for recording goods received.
PartNumb = "X"
DO WHILE PartNumb # " "
@ 5,0 CLEAR
PartNumb = SPACE(5)
@ 10,2 SAY " Enter data for goods received"
@ 12,4 SAY " Part number " GET PartNumb PICT "!!!!!"
READ

*------- If a part number was entered, find it in Master file.
IF PartNumb # " "
SEEK PartNumb

DO CASE

*------- If part not found, warn user and try again.
CASE .NOT. FOUND()
@ 12,25 SAY "No such part!!!"
? CHR(7)

*------- If found, append a new record to NewStock
*------- and get rest of data.
CASE FOUND()
@ 12,25 SAY Title

SELECT B
APPEND BLANK
REPLACE Part_No WITH PartNumb
REPLACE Date WITH T_Date
REPLACE Vendor WITH A -> Vendor
@ 14,2 SAY "Quantity " GET Qty
@ 14,22 SAY "Price " GET Cost PICT "99999.99"
@ 16,2 SAY "Date " GET Date PICT "99/99/99"
@ 16,22 SAY "Vendor" GET Vendor
READ
SELECT A

ENDCASE

ENDIF (PartNumb # " ")

ENDDO (while user does not ask to quit)

*------- Close files and return to New Stock Menu.
CLOSE DATABASES
RETURN