home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / begin.prg < prev    next >
Text File  |  1995-05-28  |  1KB  |  77 lines
  1. * Program   : BEGIN.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 08/22/86
  5. * Notice    : 
  6. * Called by : FMAINT.PRG 
  7. * Call(s)   :   
  8. * Notes     : PROGRAM TO ENTER BEGINNING INVENTORY QUANTITIES
  9. *           : 
  10.  
  11. CLEAR
  12. SET CONFIRM ON
  13. STORE SPACE(11) TO PARTNO
  14. STORE SPACE(30) TO DESCRI
  15. STORE SPACE(3)  TO PROCOD
  16. STORE SPACE(3)  TO CODE
  17. STORE 0 TO STARTCNT
  18. STORE 0 TO COUNT
  19.  
  20. USE MASTER INDEX MASTER
  21.  
  22. @ 01,00
  23. SET COLOR TO I
  24. ?? VWIDE+SPACE(40)
  25. @ 02,00
  26. SET COLOR TO I+
  27. ?? VWIDE+'    *** ENTER BEGINNING INVENTORY ***   '
  28. @ 03,00
  29. SET COLOR TO I
  30. ?? VWIDE+SPACE(40)
  31.  
  32. DO WHILE PROCOD <> 'END'
  33.    SET COLOR TO I+
  34.    @ 10,25 SAY 'DECUS PRODUCT CODE  : ' GET CODE
  35.    @ 23,25 SAY ' ENTER <END> TO EXIT '
  36.    SET COLOR TO
  37.    READ
  38.  
  39.    IF CODE = 'END'
  40.       USE
  41.       CLEAR
  42.       RETURN
  43.    ENDIF
  44.  
  45.    SEEK CODE
  46.  
  47.    IF .NOT. FOUND()
  48.       @ 12,00
  49.       ?? VBELL3
  50.       SET COLOR TO +
  51.       @ 10,52 SAY 'INVALID PRODUCT CODE'
  52.       SET COLOR TO
  53.       LOOP
  54.    ELSE
  55.       @ 10,52
  56.    ENDIF
  57.  
  58.    SET COLOR TO I+
  59.    @ 12,25 SAY 'DEC PART #          : '+ PARTNO 
  60.    @ 14,25 SAY 'DESCRIPTION         : '+ DESCRI 
  61.    @ 16,25 SAY 'ENTER BEGINNING QTY : ' GET STARTCNT
  62.    SET COLOR TO
  63.    @ 15,00 
  64.    ?? VBELL1
  65.    READ
  66.  
  67.    SKIP 1
  68.    STORE PROCOD TO CODE
  69.    @ 12,47
  70.    @ 14,47
  71.    @ 16,47
  72.    STORE 0000 TO COUNT
  73. ENDDO
  74. SET CONFIRM OFF
  75. RETURN
  76.  
  77.