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 / makeprod.prg < prev    next >
Text File  |  1995-05-28  |  2KB  |  103 lines
  1. * Program   : MAKEPROD.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/31/86
  5. * Notice    : 
  6. * Called by : FMAINT.PRG
  7. * Call(s)   :   
  8. * Notes     : CREATES NEW PRODUC.DBF FILE FROM MASTER.DBF FILE.
  9. *           : THE PRODUC FILE IS THE ACTUAL WORKING FILE FOR THE POS SYSTEM.
  10. CLEAR
  11. SET COLOR TO I
  12. @ 01,00 
  13. ?? VWIDE+SPACE(40)
  14. SET COLOR TO +I
  15. @ 02,00 
  16. ?? VWIDE+' *** CREATE PRODUC FILE FROM MASTER *** '
  17. SET COLOR TO I
  18. @ 03,00 
  19. ?? VWIDE+SPACE(40)
  20. SET COLOR TO
  21.  
  22. @ 06,16 SAY "THIS FUNCTION ASSUMES THAT YOU HAVE COMPLETED ALL"
  23. @ 07,16 SAY "EDITING & APPENDING OF PRODUCTS TO THE MASTER FILE."
  24. @ 09,16 SAY "IF YOU RESPOND WITH A  YES  AT THE NEXT PROMPT, A"
  25. @ 10,16 SAY "PRODUC.DBF FILE WILL BE CREATED FROM THE MASTER.DBF"
  26. @ 11,16 SAY "FILE FROM WHICH ALL ORDER ENTRY UPDATES ARE MADE."
  27. SET COLOR TO +
  28. @ 09,38 SAY '"YES"'
  29. STORE ' ' TO ANS
  30. @ 16,19 SAY 'SHALL WE CREATE THE PRODUC FILE NOW ? (Y/N)'
  31. SET COLOR TO
  32. @ 16,63 GET ANS PICTURE '!'
  33. READ
  34.  
  35. IF ANS = 'Y'
  36.    @ 05,00 CLEAR
  37.  
  38.    IF FILE("PRODUC.DBF")
  39.       @ 10,00
  40.       ?? VBELL3
  41.       SET COLOR TO +
  42.       @ 10,00
  43.       @ 10,19 SAY " PRODUC.DBF EXISTS...OVERWRITE IT ? (Y/N) "
  44.       SET COLOR TO
  45.       STORE " " TO ANS
  46.       @ 10,63 GET ANS PICTURE "!"
  47.       READ
  48.       IF ANS = "N"
  49.          @ 05,00 CLEAR
  50.          ?? VBELL3
  51.          SET COLOR TO +I
  52.          @ 10,17 SAY " PRODUC FILE NOT CREATED....RETURNING TO MENU "
  53.          STORE 1 TO COUNT
  54.          DO WHILE COUNT < 40
  55.             STORE COUNT+1 TO COUNT
  56.          ENDDO
  57.          CLEAR
  58.          RETURN
  59.       ENDIF
  60.    ENDIF
  61.  
  62.    SET COLOR TO +*I
  63.    @ 10,17 SAY " CREATING PRODUC.DBF & INDEX FILES...PLEASE WAIT. "
  64.    SET COLOR TO
  65.  
  66.    IF FILE("PRODUC.DBF")
  67.       DELE FILE PRODUC.DBF
  68.    ENDIF
  69.    IF FILE("PRODUC.NDX")
  70.       DELE FILE PRODUC.NDX
  71.    ENDIF
  72.  
  73.    * create a dummy misc. record in MASTER.DBF if it doesn't exist (999)
  74.  
  75.    USE MASTER INDEX MASTER
  76.    FIND '999'
  77.    IF .NOT. FOUND()
  78.       SET COLOR TO +
  79.       @ 12,24 SAY 'CREATING MISC. PRODUCT CODE (999)'
  80.       SET COLOR TO
  81.       APPEND BLANK
  82.       REPLACE PROCOD WITH '999', MLP WITH 0, PRICE WITH 0
  83.    ENDIF
  84.    USE
  85.    COPY FILE MASTER.DBF TO PRODUC.DBF
  86.    COPY FILE MASTER.NDX TO PRODUC.NDX
  87.    SAVE TO OE-OK ALL LIKE ANS
  88.    CLEAR
  89.    RETURN
  90. ELSE
  91.    @ 05,00 CLEAR
  92.    ?? VBELL3
  93.    SET COLOR TO +I
  94.    @ 10,17 SAY " PRODUC FILE NOT CREATED....RETURNING TO MENU "
  95.    SET COLOR TO
  96.    STORE 1 TO COUNT
  97.    DO WHILE COUNT < 40
  98.      STORE COUNT+1 TO COUNT
  99.    ENDDO
  100.    CLEAR
  101.    RETURN
  102. ENDIF ANS = 'YES'
  103.