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 / edit.prg < prev    next >
Text File  |  1995-05-28  |  4KB  |  174 lines
  1. * Program   : EDIT.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 08/28/86
  5. * Notice    : 
  6. * Called by : FMAINT.PRG
  7. * Call(s)   :   
  8. * Notes     : ALLOWS PRODUCT EDITS & DELETIONS TO MASTER FILE.
  9. *           : THIS FUNCTION SHOULD BE DONE BEFORE CREATING PRODUC FILE.
  10. CLEAR
  11. SET INTENSITY ON
  12. STORE '   ' TO CODE
  13. STORE '   ' TO ANS
  14. STORE .F. TO DEL
  15.  
  16. USE MASTER INDEX MASTER
  17. SET COLOR TO I
  18. @ 01,00 
  19. ?? VWIDE+SPACE(40)
  20. SET COLOR TO I+
  21. @ 02,00 
  22. ?? VWIDE+'        *** EDIT MASTER FILE ***        '
  23. SET COLOR TO I
  24. @ 03,00 
  25. ?? VWIDE+SPACE(40)
  26. SET COLOR TO
  27.  
  28. * CHECK FOR "OE-OK.MEM" FILE ... IF IT EXISTS, THE PRODUC.DBF FILE
  29. * IS THE SAME AS THE MASTER.DBF FILE AND UPDATES TO THE MASTER FILE
  30. * WILL NOT CHANGE THE PRODUC FILE. DO NOT CONTINUE.
  31.  
  32. IF FILE("OE-OK.MEM")
  33.    @ 08,00 
  34.    ?? VBELL3
  35.    SET COLOR TO +
  36.    @ 08,10
  37.    ?? VWIDE+' *** ATTENTION *** '
  38.    SET COLOR TO
  39.    @ 10,00
  40.    TEXT
  41.                  A WORKING PRODUC.DBF FILE HAS ALREADY BEEN
  42.                  CREATED FROM THE MASTER FILE AND UPDATES TO
  43.                  THE MASTER FILE WILL NOT UPDATE THE PRODUC
  44.                  FILE.  IF ADDITIONAL UPDATES ARE MADE TO 
  45.                  THE MASTER FILE NOW, BE SURE TO CREATE A NEW
  46.                  PRODUC.DBF FILE FROM THE  MAINTENANCE MENU 
  47.                  BEFORE USING THE POS SYSTEM.  
  48.  
  49.         << DO NOT UPDATE MASTER FILE ONCE ORDERS HAVE BEEN ENTERED ! >>
  50.  
  51.    ENDTEXT
  52.   
  53.    ?? VBELL1
  54.    @ 23,30 SAY 'PRESS ANY KEY TO CONTINUE'
  55.  
  56.    DO WHILE INKEY() = 0
  57.       SET COLOR TO +
  58.       @ 23,36 SAY 'ANY KEY'
  59.       SET COLOR TO
  60.       @ 23,36 SAY 'ANY KEY'
  61.    ENDDO
  62.  
  63. ENDIF FILE OE-OK.MEM
  64.  
  65. @ 04,00 CLEAR
  66.  
  67. DO WHILE CODE <> 'END'
  68.  
  69.    @ 05,14 SAY 'DECUS PRODUCT CODE...' GET CODE PICTURE '!!!'
  70.    @ 07,14 SAY 'DEC PART NUMBER......'+SPACE(44)
  71.    @ 09,14 SAY 'ITEM DESCRIPTION.....'+SPACE(44)
  72.    @ 11,14 SAY 'DEC MLP..............'+SPACE(44)
  73.    @ 13,14 SAY 'NEW ITEM (Y/N).......'+SPACE(44)
  74.    SET COLOR TO I+
  75.    @ 23,20 SAY ' ENTER <END> TO EXIT @ PRODUCT CODE '
  76.    SET COLOR TO
  77.  
  78.    READ
  79.  
  80.    IF CODE = 'END'
  81.  
  82.       IF DEL
  83.          @ 05,00 CLEAR
  84.          SET COLOR TO I+
  85.          @ 10,20 SAY ' NOW UPDATING DATABASE...PLEASE WAIT '
  86.          SET COLOR TO
  87.          PACK
  88.          ENDIF
  89.          USE
  90.          CLEAR
  91.          RETURN
  92.       ENDIF
  93.  
  94.    ENDIF
  95.  
  96.    SEEK CODE
  97.  
  98.    IF .NOT. FOUND()
  99.       @ 05,43
  100.       ?? VBELL3
  101.       SET COLOR TO +
  102.       @ 05,43 SAY 'INVALID PRODUCT CODE'
  103.       SET COLOR TO
  104.       LOOP
  105.    ENDIF
  106.  
  107.    STORE '   ' TO ANS
  108.    @ 05,43 SAY '                            '
  109.    @ 09,14 SAY 'ITEM DESCRIPTION.....'
  110.    SET COLOR TO I
  111.    @ 07,36 SAY PARTNO
  112.    @ 09,36 SAY DESCRI
  113.    @ 11,36 SAY MLP
  114.    @ 13,36 SAY NEW
  115.  
  116.    DO WHILE ANS <> 'E' .AND. ANS <> 'DEL'
  117.       SET COLOR TO +
  118.       @ 20,25 SAY 'EDIT OR DELETE PART? ( E/DEL ) '
  119.       SET COLOR TO
  120.       @ 20,55 GET ANS PICTURE '!!!'
  121.       READ
  122.       CLEAR GETS
  123.       @ 21,32
  124.    ENDDO
  125.  
  126.    IF ANS = 'DEL'
  127.       STORE .T. TO DEL
  128.       DELETE
  129.       SET COLOR TO +
  130.       @ 21,32 SAY '*** '+CODE+' DELETED ***'
  131.       LOOP
  132.    ENDIF
  133.  
  134.    @ 20,14
  135.    @ 05,43
  136.    @ 07,36 GET PARTNO PICTURE '!!-!!!!!-!!'
  137.    @ 09,36 GET DESCRI
  138.    @ 11,36 GET MLP PICTURE '9999.99'
  139.    @ 13,36 GET NEW
  140.  
  141.    READ
  142.  
  143.    STORE ' ' TO OK
  144.  
  145.    DO WHILE OK <> 'Y' .AND. OK <> 'N'
  146.       @ 20,00
  147.       ?? VBELL1
  148.       SET COLOR TO +
  149.       @ 20,25 SAY 'OK TO UPDATE PART (Y/N) ' GET OK PICTURE '!'
  150.       SET COLOR TO
  151.       READ
  152.    ENDDO
  153.  
  154.    IF OK = 'N'
  155.       LOOP
  156.    ELSE
  157.       REPLACE PROCOD WITH UPPER(CODE),PARTNO WITH PARTNO,DESCRI WITH UPPER;
  158.       (DESCRI),DISC WITH 1.00,PRICE WITH MLP
  159.  
  160.       IF SUBSTR(UPPER(NEW),1) = 'Y' .OR. NEW = 'NEW'
  161.          REPLACE NEW WITH 'NEW'
  162.       ELSE
  163.          REPLACE NEW WITH '   '
  164.       ENDIF
  165.    ENDIF
  166.    CLEAR GETS
  167.    STORE '   ' TO CODE
  168.    STORE '   ' TO ANS
  169.    @ 07,00 CLEAR
  170. ENDDO
  171. SET COLOR TO
  172. CLEAR 
  173. RETURN
  174.