home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / CHECK.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  86 lines
  1. SET DEFA TO B
  2. SET TALK OFF
  3. SET INTE OFF
  4.  
  5. ******************* Get date if necessary.
  6. ERASE
  7. IF VAL(DATE())=0
  8.    STORE "          " TO T:DATE
  9.    @ 2,2 SAY " Enter today's date " GET T:DATE PICT "99/99/99"
  10.    READ
  11. ELSE
  12.    STORE DATE() TO T:DATE
  13. ENDIF (val(date())=0)
  14.  
  15. *********** Set up data files.
  16. SELE PRIM
  17. USE MASTER INDEX MASTER
  18. SELE SECO
  19. USE SALES
  20.  
  21.  
  22. ************************ Set up top portion of screen.
  23. ERASE
  24. STORE "            " TO MCLERK,MCUST
  25. STORE 0 TO TOT
  26. @ 2,2 SAY T:DATE
  27. @ 2,12 SAY "Clerk " GET MCLERK
  28. @ 3,2 SAY "Customer " GET MCUST
  29. @ 4,2 SAY "-------------------------------------------------------"
  30. READ
  31. STORE 6 TO ROW
  32. STORE "X" TO PART:NO
  33. DO WHILE ROW < 20 .AND. PART:NO <> " "
  34.    STORE "     " TO PART:NO
  35.    STORE F TO OK
  36.    DO WHILE .NOT. OK
  37.       STORE "     " TO PART:NO
  38.       @ ROW,2 GET PART:NO
  39.       READ
  40.  
  41.       ************** Check for existence of part number.
  42.       STORE !(TRIM(PART:NO)) TO PART:NO
  43.       STORE 0 TO QUANTY
  44.       STORE 0.00 TO SEL:PRICE
  45.       SELE PRIM
  46.       FIND &PART:NO
  47.  
  48.       *********** Depending on user input, procede.
  49.       DO CASE
  50.  
  51.       ******** If blank entered, end of this receipt.
  52.          CASE PART:NO=" "
  53.            STORE T TO OK
  54.  
  55.          ********* If invalid part number, reject
  56.          CASE # = 0
  57.            @ ROW,10 SAY " NO SUCH PART!!"
  58.            STORE F TO OK
  59.  
  60.          ******** Otherwise, get rest of data.
  61.            CASE # > 0
  62.              @ ROW,10 SAY TITLE
  63.              @ ROW,25 GET QUANTY PICTURE "999"
  64.              @ ROW,30 GET SEL:PRICE PICTURE "999.99"
  65.              READ
  66.              @ ROW,40 SAY SEL:PRICE*QUANTY USING "$#,###.##"
  67.              STORE TOT+(SEL:PRICE*QUANTY) TO TOT
  68.              STORE T TO OK
  69.              ***** Fill in the record on SALES file.
  70.              SELE SECO
  71.              APPEND BLANK
  72.              REPLACE DATE WITH T:DATE
  73.              REPLACE CLERK WITH MCLERK
  74.              REPLACE CUSTOMER WITH MCUST
  75.              REPLACE PART WITH PART:NO
  76.              REPLACE TITLE WITH TITLE
  77.              REPLACE QTY WITH QUANTY
  78.              REPLACE PRICE WITH SEL:PRICE
  79.              REPLACE POSTED WITH F
  80.  
  81.          ENDCASE
  82.    ENDDO
  83. STORE ROW+1 TO ROW
  84. ENDDO 
  85. @ ROW+2,40 SAY TOT USING "$#,###.##"
  86.