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 / finrpt.prg < prev    next >
Text File  |  1995-05-28  |  4KB  |  189 lines
  1. * Program   : FINRPT.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/30/86
  5. * Notice    : 
  6. * Called by : REPORTS.PRG
  7. * Call(s)   :   
  8. * Notes     : REPORT MENU FOR PRINTING FINANCIAL REPORTS & 
  9. *           : PHYSICAL INVENTORY WORKSHEET 
  10. *
  11. PARAMETERS ANS,TITLE
  12. @ 05,00 CLEAR
  13. STORE 000 TO TOTNET
  14. STORE 000 TO TOTQTY
  15. STORE 000 TO TOTALLOW
  16. STORE 000 TO TOTGROSS
  17. RESTORE FROM DATES ADDITIVE
  18.  
  19. USE MASTER INDEX MASTER
  20. GOTO TOP
  21. SET COLOR TO +
  22. @ 05,38-(INT(.5*LEN(TITLE))) SAY '&TITLE'
  23. SET COLOR TO
  24. @ 09,09 SAY "NOTE:  The results of this report will not be accurate unless"
  25. @ 10,09 SAY "       the CONSOLIDATE PRODUCT DATA FILES function has been"
  26. @ 11,09 SAY "       performed."
  27.  
  28. STORE ' ' TO ANSW
  29. @ 20,30 SAY 'CONTINUE ? < Y/N > ' GET ANSW PICTURE "!"
  30. READ
  31. IF ANSW <> 'Y'
  32.    CLEAR
  33.    USE
  34.    RETURN
  35. ENDIF
  36.  
  37. * CHECK FOR "OK-RPTS.MEM" FLAG FILE - IF IT EXISTS, OK TO CONTINUE
  38.  
  39. IF .NOT. FILE("OK-RPTS.MEM")
  40.    @ 05,00 CLEAR
  41.    @ 10,15
  42.    SET COLOR TO +I
  43.    ?? VBELL3+ ' DATA FILES HAVE NOT BEEN CONSOLIDATED - CANNOT CONTINUE '
  44.    SET COLOR TO
  45.    STORE 1 TO COUNT
  46.  
  47.    DO WHILE COUNT < 40
  48.       STORE COUNT+1 TO COUNT
  49.    ENDDO
  50.    USE
  51.    CLEAR
  52.    RETURN
  53. ENDIF
  54.  
  55. @ 05,00 CLEAR
  56. ?? VBELL1
  57.  
  58. DO WHILE INKEY() = 0
  59.    SET COLOR TO I
  60.    @ 10,15 SAY ' PLACE PLAIN PAPER IN PRINTER...PRESS RETURN TO START '
  61.    SET COLOR TO +I
  62.    @ 10,15 SAY ' PLACE PLAIN PAPER IN PRINTER...PRESS RETURN TO START '
  63. ENDDO
  64. SET COLOR TO
  65.  
  66. SET PRINT ON
  67. * ==== SET PRINTER TO 132 COLUMN MODE
  68. ? CHR(27)+CHR(91)+CHR(52)+CHR(119)
  69. SET PRINT OFF
  70.  
  71. @ 05,00 CLEAR                                                       '
  72. SET COLOR TO +*I
  73. @ 10,23 SAY ' PRINTING REPORT...DO NOT INTERRUPT '
  74.  
  75. STORE 10 TO LINE
  76. STORE .T. TO TOP
  77.  
  78. DO WHILE .NOT. EOF()
  79.    SET CONSOLE OFF
  80.    SET DEVICE TO PRINT
  81.    IF TOP
  82.       @ 03,052 SAY 'DECUS - '+SDATE+' TO '+EDATE
  83.       @ 04,040 SAY '&TITLE'
  84.       @ 06,000 SAY REPLICATE("-",130)
  85.       @ 07,001 SAY 'DECUS'
  86.       @ 07,079 SAY 'QTY'
  87.       @ 07,088 SAY 'GROSS'
  88.       @ 07,111 SAY 'NET'
  89.       @ 08,001 SAY 'CODE'
  90.       @ 08,010 SAY 'DEC PART #'
  91.       @ 08,035 SAY 'ITEM DESCRIPTION'
  92.       @ 08,060 SAY 'MLP'
  93.       @ 08,079 SAY 'SOLD'
  94.       @ 08,089 SAY 'MLP'
  95.       @ 08,099 SAY 'ALLOW'
  96.       @ 08,109 SAY 'REVENUE'
  97.       @ 09,000 SAY REPLICATE("=",130)
  98.    ENDIF
  99.       
  100.    STORE .F. TO TOP
  101.  
  102.    IF ANS = '3'
  103.       STORE CATQTY TO QTYSLD
  104.       STORE CATNET TO NET
  105.    ENDIF
  106.  
  107.    IF ANS = '4'
  108.       STORE CATEQTY TO QTYSLD
  109.       STORE CATENET TO NET
  110.    ENDIF
  111.  
  112.    IF ANS = '5'
  113.       STORE CCTQTY TO QTYSLD
  114.       STORE CCTNET TO NET
  115.    ENDIF
  116.  
  117.    IF ANS = '6'
  118.       STORE CCTEQTY TO QTYSLD
  119.       STORE CCTENET TO NET
  120.    ENDIF
  121.  
  122.    IF ANS = '7'
  123.       STORE POTQTY TO QTYSLD
  124.       STORE POTNET TO NET
  125.    ENDIF
  126.  
  127.    IF ANS = '8'
  128.       STORE POTEQTY TO QTYSLD
  129.       STORE POTENET TO NET
  130.    ENDIF
  131.  
  132.    SET DEVICE TO SCREEN
  133.    SET COLOR TO +I
  134.    @ 20,25 SAY ' WORKING ON PRODUCT CODE... '+PROCOD
  135.    SET COLOR TO
  136.    SET DEVICE TO PRINT
  137.  
  138.    IF QTYSLD = 0 .AND. NET = 0
  139.       SKIP
  140.    ELSE
  141.       @ LINE,002 SAY PROCOD
  142.       @ LINE,010 SAY PARTNO
  143.       @ LINE,024 SAY DESCRI
  144.       @ LINE,056 SAY MLP PICTURE '#####.##'
  145.       @ LINE,078 SAY QTYSLD PICTURE '###'
  146.       @ LINE,085 SAY MLP*QTYSLD PICTURE '#####.##'
  147.       @ LINE,097 SAY (MLP*QTYSLD)-NET PICTURE '#####.##'
  148.       @ LINE,109 SAY NET PICTURE '#####.##'
  149.  
  150.       STORE TOTQTY + QTYSLD TO TOTQTY
  151.       STORE TOTGROSS+(MLP*QTYSLD) TO TOTGROSS
  152.       STORE TOTALLOW+(MLP*QTYSLD)-NET TO TOTALLOW
  153.       STORE TOTNET + NET TO TOTNET
  154.  
  155.       STORE LINE+1 TO LINE
  156.  
  157.       SKIP 1
  158.    ENDIF
  159.  
  160.    IF EOF()
  161.       @ LINE+1,000 SAY REPLICATE("=",130)
  162.       @ LINE+2,000 SAY '*** GRAND TOTALS ***'
  163.       @ LINE+2,077 SAY TOTQTY PICTURE '####'
  164.       @ LINE+2,084 SAY TOTGROSS PICTURE '######.##'
  165.       @ LINE+2,097 SAY TOTALLOW  PICTURE '#####.##'
  166.       @ LINE+2,108 SAY TOTNET PICTURE '######.##'
  167.  
  168.       USE
  169.       SET DEVICE TO SCREEN
  170.       SET CONSOLE ON
  171.       CLEAR
  172.       RETURN
  173.    ENDIF
  174.  
  175.    IF LINE > 61
  176.       STORE 10 TO LINE
  177.       ? ' '
  178.       ? ' '
  179.       ? ' '
  180.       STORE .T. TO TOP
  181.       LOOP
  182.    ENDIF
  183.  
  184. ENDDO
  185. SET CONSOLE ON
  186. CLEAR
  187. USE
  188. RETURN
  189.