home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / CUSTLABE.PRG < prev    next >
Encoding:
Text File  |  1989-11-06  |  2.4 KB  |  74 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  CUSTLABE.PRG: CUSTOMER LABELS                                      │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. @ 00,00 SAY WINTITLE(PROMPT())
  8.  
  9. * USER INPUT: LABEL OPERATIONS
  10. active_lbl = 'CUSTOMER.LBX'
  11. action     = SPACE(10)
  12.  
  13. DO WHILE .t.
  14.   @ 03,02 SAY 'ACTIVE LABEL FORM: '
  15.   @ 03,21 SAY active_lbl
  16.   @ 05,02 SAY '     YOUR COMMAND: ' GET action ;
  17.   PICTURE '@M Add,Modify,Select,Print,Test Print,Cancel'
  18.   @ 07,20 SAY '   (Add, Modify, Select, Print, Test Print, Cancel)'
  19.   READ
  20.   DO CASE
  21.     CASE action='Add'
  22.       DEFINE WINDOW new_lbl FROM 10,12 TO 14,68 DOUBLE
  23.       ACTIVATE WINDOW new_lbl
  24.       new_lbl=SPACE(8)
  25.       @ 1,3 SAY 'Enter a label filename:' GET new_lbl PICTURE '!!!!!!!!'
  26.       READ
  27.       IF LEN(RTRIM(new_lbl))=0 .OR. LASTKEY()=27
  28.         DEACTIVATE WINDOW new_lbl
  29.         LOOP
  30.       ENDIF
  31.       STORE LEFT(RTRIM(new_lbl)+'.LBX        ',12) TO new_lbl
  32.       COPY FILE customer.lbx TO &new_lbl.
  33.       active_lbl = new_lbl
  34.       DEACTIVATE WINDOW new_lbl
  35.       MODIFY LABEL &new_lbl
  36.     CASE action='Modify'
  37.       IF LEFT(active_lbl,8)='CUSTOMER'
  38.         DO standby WITH "You cannot modify the master label file!"
  39.         LOOP
  40.       ENDIF
  41.       MODIFY LABEL &active_lbl
  42.     CASE action='Select'
  43.       DEFINE POPUP labels FROM 8,50 TO 19,65 PROMPT FILES LIKE *.lbx
  44.       ON SELECTION POPUP labels DEACTIVATE POPUP
  45.       ACTIVATE POPUP labels
  46.       active_lbl = PROMPT()
  47.       IF '\' $ active_lbl
  48.         active_lbl=SUBSTR(RIGHT(active_lbl,15),AT('\',RIGHT(active_lbl,15))+1)
  49.         active_lbl=LEFT(RTRIM(active_lbl)+SPACE(12),12)
  50.       ENDIF
  51.       LOOP
  52.     CASE action='Print'
  53.       IF YESNO('System is ready to print labels...')
  54.         IF READY2PR()
  55.           CLEAR
  56.           LABEL FORM &active_lbl SAMPLE TO PRINT
  57.           CLEAR
  58.         ENDIF
  59.       ENDIF
  60.     CASE action='Test Print'
  61.       IF YESNO('System is ready to test print 10 labels...')
  62.         IF READY2PR()
  63.           CLEAR
  64.           LABEL FORM &active_lbl. SAMPLE NEXT 10 TO PRINT
  65.           CLEAR
  66.         ENDIF
  67.       ENDIF
  68.     CASE action='Cancel'
  69.       RETURN
  70.   ENDCASE
  71. ENDDO
  72.  
  73. * EOF
  74.