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 / consol.prg < prev    next >
Text File  |  1995-05-28  |  4KB  |  175 lines
  1. * Program   : CONSOL.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     : CONSOLIDATES LAST BACKUP DATA DISK FROM EACH POS SYSTEM
  9. *           : INTO MASTER DATA FILE FOR FINANCIAL REPORTS
  10. CLEAR
  11. SET COLOR TO I
  12. @ 01,00 
  13. ?? VWIDE+SPACE(40)
  14. SET COLOR TO I+
  15. @ 02,00 
  16. ?? VWIDE+' *** CONSOLIDATE PRODUCT DATA FILES *** '
  17. SET COLOR TO I
  18. @ 03,00 
  19. ?? VWIDE+SPACE(40)
  20. SET COLOR TO
  21. @ 04,00
  22. TEXT
  23.  
  24.         This function will consolidate all the daily PRODUC file
  25.         data disks and should be used ONLY after the DECUS show is
  26.         over.  The data disks will be read, appended to a MASTER
  27.         data file and quantities will be consolidated for printing
  28.         the financial reports.
  29. ENDTEXT
  30. @ 12,08 SAY 'PLEASE HAVE THE BACKUP DATA DISK FOR THE LAST DAY FROM EACH'
  31. @ 13,08 SAY 'POS SYSTEM READY!'
  32. SET COLOR TO +*
  33. @ 12,49 SAY 'LAST DAY'
  34. SET COLOR TO
  35.  
  36. STORE '  ' TO ANS
  37. SET COLOR TO +
  38. @ 20,25 SAY 'CONTINUE ?  (Y/N) '
  39. SET COLOR TO
  40. @ 20,43 GET ANS PICTURE '!'
  41. READ
  42.  
  43. IF ANS <> 'Y'
  44.    CLEAR
  45.    RETURN
  46. ENDIF
  47.  
  48. @ 4,0 CLEAR
  49.  
  50. STORE 0 TO ANS1
  51. STORE 1 TO ANS
  52. SET CONFIRM ON
  53.  
  54. DO WHILE ANS <> ANS1
  55.    STORE 0 TO ANS1
  56.    STORE 0 TO ANS
  57.    SET COLOR TO I+
  58.    @ 23,30 SAY ' ENTER <99> TO QUIT '
  59.    SET COLOR TO
  60.    @ 10,20 SAY 'HOW MANY DATA DISKS DO YOU HAVE? ' GET ANS PICTURE '99'
  61.    READ
  62.  
  63.    IF ANS = 99
  64.       USE
  65.       CLEAR
  66.       RETURN
  67.    ENDIF
  68.  
  69.    @ 12,20 SAY 'PLEASE ENTER THE QUANTITY AGAIN. ' GET ANS1 PICTURE '99'
  70.    READ
  71.    @ 16,20 
  72.  
  73.    IF ANS = ANS1 .AND. (ANS <> 0 .OR. ANS1 <> 0)
  74.       LOOP
  75.    ELSE
  76.       @ 16,20
  77.       ?? VBELL3
  78.       SET COLOR TO +
  79.       @ 16,20 SAY 'INVALID ENTRY - TRY AGAIN'
  80.       SET COLOR TO
  81.       STORE 0 TO ANS1
  82.       STORE 1 TO ANS
  83.    ENDIF
  84.  
  85. ENDDO
  86.  
  87. @ 4,0 CLEAR
  88.  
  89. STORE 1 TO REPEAT
  90.  
  91. DO WHILE REPEAT <= ANS
  92.  
  93.    @ 10,20
  94.    @ 12,20
  95.    @ 16,20
  96.    @ 10,20 SAY 'PLEASE INSERT DISK #'+STR(REPEAT,2)+' INTO DRIVE A:'
  97.    
  98.    DO WHILE INKEY() = 0
  99.       SET COLOR TO I
  100.       @ 23,24 SAY 'PRESS ANY KEY TO BEGIN UPDATE...'
  101.       SET COLOR TO I+
  102.       @ 23,24 SAY 'PRESS ANY KEY TO BEGIN UPDATE...'
  103.    ENDDO
  104.    
  105.    SET COLOR TO
  106.    @ 20,15 
  107.  
  108.    IF FILE("A:UPDATE.MEM")
  109.       @ 12,00
  110.       ?? VBELL3
  111.       SET COLOR TO +
  112.       @ 12,15 SAY 'DISK HAS ALREADY BEEN UPDATED! REPLACE WITH NEW DISK!'
  113.       SET COLOR TO
  114.       LOOP
  115.    ENDIF
  116.  
  117.    IF REPEAT <= ANS
  118.       USE MASTER INDEX MASTER
  119.       @ 12,00
  120.       SET COLOR TO I*+
  121.       @ 12,20 SAY 'NOW UPDATING MASTER FILE WITH DISK #'+STR(REPEAT,2)
  122.       SET COLOR TO
  123.       APPEND FROM A:PRODUC
  124.       SAVE TO A:UPDATE ALL LIKE REPEAT
  125.  
  126.      STORE REPEAT + 1 TO REPEAT
  127.    ENDIF
  128.  
  129. ENDDO
  130.  
  131. USE
  132.  
  133. @ 4,0 CLEAR
  134. SET COLOR TO I+*
  135. @ 12,20 SAY 'NOW TOTALING MASTER DATA FILE...PLEASE WAIT'
  136. SET COLOR TO
  137. USE MASTER INDEX MASTER
  138. TOTAL ON PROCOD TO TEMP FIELDS CATQTY,CATNET,CATEQTY,CATENET,;
  139. CCTQTY,CCTNET,CCTEQTY,CCTENET,POTQTY,POTNET,POTEQTY,POTENET
  140. USE
  141. DELETE FILE MASTER.DBF
  142. RENAME TEMP.DBF TO MASTER.DBF
  143. USE MASTER
  144. INDEX ON PROCOD TO MASTER
  145. SET INDEX TO MASTER
  146.  
  147. * ADJUST MISC CODE (999) GROSS AND ALLOWANCE
  148. FIND 999
  149.  
  150. REPLACE MLP WITH ;
  151. (CATNET+CATENET+CCTNET+CCTENET+POTNET+POTENET)/(CATQTY+CATEQTY+CCTQTY+CCTEQTY;
  152. +POTQTY+POTEQTY)
  153. REPLACE PARTNO WITH '  -QSLEP-UZ'
  154. REPLACE DESCRI WITH 'MISC. LOW END SOFTWARE ITEMS'
  155. USE
  156.  
  157. * FLAG FILE FOR FINANCIAL REPORTS - IF IT EXISTS, OK TO PRINT
  158. SAVE TO OK-RPTS ALL LIKE ANS1
  159. @ 04,00 CLEAR
  160. ?? VBELL3
  161. SET COLOR TO +
  162. @ 12,10 SAY "UPDATES ARE NOW COMPLETE.  You may now print financial reports."
  163. SET COLOR TO
  164.  
  165. DO WHILE INKEY() = 0
  166.    SET COLOR TO I
  167.    @ 23,24 SAY ' PRESS ANY KEY TO CONTINUE '
  168.    SET COLOR TO I+
  169.    @ 23,24 SAY ' PRESS ANY KEY TO CONTINUE '
  170. ENDDO
  171. SET COLOR TO
  172. USE
  173. CLEAR
  174. RETURN
  175.