USE invent.dbf


@@CLOSE ALL         //why do you need to do this here?
USE sale IN 1
USE invent IN 2
USE purchase IN 3
SELECT invent
DO WHILE .t.
b=0
c=0
STORE item_code TO a
@@SELECT purchase       //make sure this, and others like this, are correct names for their functions
  DO WHILE NOT EOF()
  IF item_code=a
  c=c+quantity
  ENDIF
  SKIP
  LOOP
  ENDDO
SELECT sale
  DO WHILE NOT EOF()
  IF item_code=a
  b=b+quantity
  ENDIF
  SKIP
  LOOP
  ENDDO
SELECT invent
  IF item_code=a
  replace stocks WITH c
  replace sold WITH b
  replace rem_stocks WITH stocks-sold
  endif
IF NOT EOF()
    SKIP
    LOOP
else
    EXIT
endif
ENDDO

REPORT FORM report1

//Dai ko po maintindihan an presentation kan code. Are you open to using a similar program that I made, instead? Baka mas madali pa.