home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a076 / 3.img / DCLIPDEV / AM.ZIP / APC.PRG < prev    next >
Encoding:
Text File  |  1989-06-08  |  4.8 KB  |  139 lines
  1. * ========================================================================= *
  2. *          COPYRIGHT (C) 1988 by SourceMate Information Systems, Inc.       *
  3. *                20 Sunnyside Avenue, Mill Valley, CA 94941                 *
  4. *                            ALL RIGHTS RESERVED                            *
  5. * ------------------------------------------------------------------------- *
  6. * Program : APC.PRG                                            Version 2.00 *
  7. * Section :                                                                 *
  8. * Function: The main driver for the AP programs,                            *
  9. *           does basic setup for Clipper.                                   *
  10. * ========================================================================= *
  11.  
  12. * Load dynamic libraries for dCLIP/dCLIPRUN
  13. LIBLOAD('APMIS')
  14. LIBLOAD('APUTL')
  15. LIBLOAD('APPOS')
  16. LIBLOAD('APMAN')
  17. LIBLOAD('APREP')
  18. LIBLOAD('SIS')
  19.  
  20. PUBLIC GDO_PO, GSIGNON, GMULTI
  21. STORE .F.      TO GMULTI
  22. STORE SPACE(0) TO LBATCH
  23. PARAMETER LBATCH
  24. IF UPPER(LBATCH) = 'BATCH'
  25.    DO SISBATC WITH 'AP'             && prints reports in batch (Clipper version)
  26.    RETURN
  27. ENDIF
  28. DO SIS0A                            && initialization
  29. STORE .F. TO GDO_PO
  30. STORE 'APPROC' TO GPROCEDURE
  31. STORE 'Version 2.0+IV' TO GVERSION
  32. DO WHILE GINKEY >= -1
  33.    STORE 'AccountMate'+SPACE(20)+'ACCOUNTS  PAYABLE'+SPACE(24)+;
  34.          DTOC(GDATE) TO LTOP
  35.    STORE SPACE(0) TO GACCESS
  36.    DO SIS0B WITH 5,'AP','aputl1'    && company menu
  37.    IF GINKEY < -1 
  38.       EXIT
  39.    ENDIF
  40.    STORE .F. TO GSIGNON
  41.    DO AP1                                && initializes global variables
  42.    IF LEN(GACCESS) = 0
  43.       LOOP
  44.    ENDIF
  45.    STORE .F. TO GINTEGRATE
  46.    STORE 'F5 Posting ║F6 Maintenance ║F7 Reports ║F8 Misc '+;
  47.          '║F9 Company Menu ║F10 Exit ║    ' TO GBOTTOM
  48.    DO WHILE .T.
  49.       STORE .F. TO GDO_PO
  50.       CLOSE DATABASES
  51.       DO SIS0M WITH 4                    && Paints the 'tree' menu
  52.       IF LEN(GACCESS) = 0
  53.          EXIT
  54.       ENDIF
  55.       STORE 0 TO GINKEY
  56.       DO SIS1 WITH 'aputl1',0,0,SPACE(0),SPACE(0),GINKEY,SPACE(0)
  57.               && paints function key menu,
  58.               && gets key press and calls appropriate routine                       
  59.       DO WHILE GINKEY > 0
  60.          DO CASE
  61.             CASE GINKEY = 5
  62.                DO APPOS0               && driver for posting menu options
  63.             CASE GINKEY = 6
  64.                DO APMAN0               && driver for maintenance menu options
  65.             CASE GINKEY = 7
  66.                DO APREP0               && driver for reports main menu
  67.             CASE GINKEY = 8
  68.                DO APMIS0               && driver for misc. menu options
  69.             CASE GINKEY = 2
  70.                STORE .T. TO GDO_PO
  71.                EXIT
  72.          ENDCASE
  73.       ENDDO
  74.       IF GINKEY < 0
  75.          EXIT
  76.       ENDIF
  77.       IF .NOT. GDO_PO
  78.          LOOP
  79.       ENDIF
  80.       STORE GACCESS TO GAPACCESS
  81.       STORE SPACE(0) TO GACCESS
  82.       STORE 'PO1' TO LPROGRAM
  83.       DO &LPROGRAM  && forces a write to the hard disk
  84.       IF LEN(GACCESS) = 0
  85.          STORE GAPACCESS TO GACCESS
  86.       ELSE
  87.          DO WHILE .T.
  88.             CLOSE DATABASES
  89.             DO SIS0M WITH 3       && paints the 'tree' menu
  90.             IF LEN(GACCESS) = 0
  91.                EXIT
  92.             ENDIF
  93.             STORE SPACE(1) TO LCHOICE, LCHOICES
  94.             STORE 0 TO GINKEY
  95.             DO SIS1 WITH 'aputl1',0,0,LCHOICES,LCHOICE,GINKEY,SPACE(0)
  96.                     && paints function key menu,
  97.                     && gets key press and calls appropriate routine
  98.             DO WHILE GINKEY > 0
  99.                DO CASE
  100.                   CASE GINKEY = 5
  101.                      STORE 'POPOS0' TO LPROGRAM
  102.                   CASE GINKEY = 6
  103.                      STORE 'POMAN0' TO LPROGRAM
  104.                   CASE GINKEY = 7
  105.                      STORE 'POREP0' TO LPROGRAM
  106.                   CASE GINKEY = 8
  107.                      STORE 'POMIS0' TO LPROGRAM
  108.                   CASE GINKEY = 2
  109.                      EXIT
  110.                ENDCASE
  111.                DO &LPROGRAM  && forces a write to the hard disk
  112.             ENDDO
  113.             EXIT
  114.          ENDDO
  115.          IF GINKEY < 0
  116.             EXIT
  117.          ENDIF
  118.          @ 23,00
  119.          @ 23,00 SAY '** Loading Accounts Payable Procedure **'
  120.          STORE GAPACCESS TO GACCESS
  121.          DO AP1                   && initializes global variables
  122.       ENDIF
  123.    ENDDO
  124. ENDDO
  125. SET CONSOLE OFF
  126. ERASE >EMPDBF1
  127. ERASE >EMPDBF2
  128. ERASE >EMPDBF3
  129. ERASE >EMPNDX
  130. SET CONSOLE ON
  131. STORE ' END RUN AccountMate    (ACCOUNTS PAYABLE) ' TO LBYE      
  132. DO SIS0E              && set dbase function keys back to default
  133. CLOSE PROCEDURE
  134. CLOSE ALL
  135. RETURN
  136. *
  137. * EOF: AP.PRG ============================================================= *
  138.  
  139.