Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/CLIENTS.ARC/MAIN.PRG

Text File | 1985-05-31 | 11.8 KB | 591 lines

PROCEDURE A1
CLEAR
@01,00 SAY 'LOADING......'
SET FORMAT TO A1
APPEND
SET FORMAT TO
CURR = '01'
RETURN

PROCEDURE P1
*begin p1.prg
GOTO TOP
PAGE = 0
line = 99
heading = 'current cases'
clear
set color to w*/r
@01,00 say 'position printer and hit any key'
set cons off
wait
set color to 6/1,7/4,6
set cons on
@01,00
@05,00 say 'Printing report'
@06,00 say 'please wait'
set cons off
DO WHILE .NOT. EOF()
   IF line >56
      IF page >=1
         EJECT
      ENDIF page >=1
    page = page+1
   SET PRINT ON
   ?
   ?'PAGE '+STR(PAGE)
   ?'                     CURRENT CASES  FOR SECRETARY'
   ? DATE()
   ?
   ?
   ?
   SET PRINT OFF
    STORE 6 to line
   ENDIF LINE >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+' -'+ TRIM(CSTREET)+'- '+ TRIM(CCITY_ST)
   ? '   '+ FILE_NMBR, CPHONE +' '+REFERENCE
   ?
   SET PRINT OFF
   LINE = LINE+3
SKIP
ENDDO .NOT. EOF()
EJECT
SET PRINT OFF
SET CONS ON
SET DEVICE to SCREEN
store '02' to curr
RETURN
*eof p1.prg

PROCEDURE P2
*begin P2.PRG
CLEAR
set color to w*/r
@01,00 say 'position printer at top of paper and hit any key'
set cons off
wait
set cons on
set color to 6/1,7/4,6
@01,00
@05,00 say 'printing ......'
set cons off
GOTO TOP
line = 99
page = 0
DO WHILE .NOT. EOF()
   IF line >56
     If page >= 1
        eject
     ENDIF page >=1
     page = page+1
     SET PRINT ON
     ?
     ?' PAGE '+STR(PAGE)
     ?'                    CURRENT CASES FOR ATTORNEY           '
     ? DATE()
     ?
     ?
     ?
     SET PRINT OFF
     LINE = 6
   ENDIF line >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+'  ( '+ FILE_NMBR +')  '+ TRIM(CPHONE),;
       TRIM(ALTPHONE)+' '+'CAUSE NO.'+ ' '+ CAUSE_NMBR ì

   ? '   '+ TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
   ?
   set print off
   line = line+3
 SKIP
ENDDO WHILE .NOT. EOF()
eject
set print off
set cons on
set device to screen
store '02' to curr
RETURN

PROCEDURE P3
*P3.PRG
CLEAR
set color to w*/r
@01,00 say CHR(7)+'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
set cons on
@01,00
@05,00 SAY 'printing both a report for the attorney and secretary'
set cons off
GOTO TOP
PAGE = 0
line = 99
heading = 'current cases'
DO WHILE .NOT. EOF()
   IF line >56
      IF page >=1
         EJECT
      ENDIF page >=1
    page = page+1
   SET PRINT ON
   ?
   ?'PAGE '+STR(PAGE)
   ?'                     CURRENT CASES  FOR SECRETARY'
   ? DATE()
   ?
   ?
   ?
   SET PRINT OFF
    STORE 6 to line
   ENDIF LINE >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+' -'+ TRIM(CSTREET)+'- '+ TRIM(CCITY_ST)
   ? '   '+ FILE_NMBR, CPHONE +' '+REFERENCE
   ?
   SET PRINT OFF
   LINE = LINE+3
SKIP
ENDDO .NOT. EOF()
EJECT
SET PRINT OFF
GOTO TOP
line = 99
page = 0
DO WHILE .NOT. EOF()
   IF line >56
     If page >= 1
        eject
     ENDIF page >=1
     page = page+1
     SET PRINT ON
     ?
     ?' PAGE '+STR(PAGE)
     ?'                    CURRENT CASES FOR ATTORNEY           '
     ? DATE()
     ?
     ?
     ?
     SET PRINT OFF
     LINE = 6
   ENDIF line >56
   SET PRINT ON
   ? TRIM(CLIENTNAME)+'  ( '+ FILE_NMBR +')  '+ TRIM(CPHONE),;
       TRIM(ALTPHONE)+' '+'CAUSE NO.'+ ' '+ CAUSE_NMBR ì

   ? '   '+ TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
   ?
   set print off
   line = line+3
 SKIP
ENDDO WHILE .NOT. EOF()
eject
set print off
set cons on
set device to screen
store '02' to curr
return
*EOF P3.PRG

PROCEDURE P4
CLEAR
@01,00 SAY 'LOADING......'
SELE CLOSED
SET INDEX TO CLOSNAME, CLOSNMBR
LINE = 99
PAGE = 0
set color to w*/r
@03,00 say 'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
DO WHILE .NOT. EOF()
   IF LINE >58
     IF PAGE >= 1
        EJECT
     ENDIF page >= 1
     page = page+1
     set print on
     ?
     ?'PAGE:'+STR(PAGE)
     ?'                      CLOSED CASES BY CLIENT NAME'
     ? DATE()
     ?
     ?
     ?
     set print off
     line = 6
     ENDIF LINE >58
     SET PRINT ON
     ? clientname+'  '+file_nmbr+'  '+trim(reference)
     ?
     set print off
     LINE = LINE+2
     skip
ENDDO .NOT. EOF()
set cons on
CURR = '02'
RETURN

PROCEDURE P5
CLEAR
@01,00 SAY 'LOADING......'
SELE CLOSED
SET INDEX TO CLOSNMBR, CLOSNAME
LINE = 99
set color to w*/r
@03,00 say 'position printer at top of paper and hit any key'
set color to 6/1,7/4,6
set cons off
wait
set cons on
@03,00 say 'printing.....'
set cons off
PAGE = 0
DO WHILE .NOT. EOF()
   IF LINE >58
     IF PAGE >= 1
        EJECT
     ENDIF page >= 1
     page = page+1
     set print on
     ?
     ?'PAGE:'+STR(PAGE)
     ?'                      CLOSED CASES BY CLIENT NUMBER'
     ? DATE()
     ?
     ?
     ?
     set print off
     line = 6
     ENDIF LINE >58
     SET PRINT ON
     ? file_nmbr+'  '+clientname +'  '+trim(reference)
     ?
     set print off
     LINE = LINE+2
     skip
ENDDO .NOT. EOF()
set cons on
CURR = '02'
RETURN

PROCEDURE E1
clear
mname = space(20)
doname = .t.
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 If eof()
   @15,25 SAY CHR(7)+'no client with that name - try again'
   xx = 1
   DO WHILE XX <35
      XX = XX+1
      mname = space(20)
   ENDDO while xx <35
   loop
 endif
 SET FORMAT TO E1
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
curr = '03'
return

PROCEDURE E2
clear
mname = space(06)
set index to currnmbr, currname
doname = .t.
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client number ' get mname PICT '!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF eof()
    @15,23 say CHR(7)+'no client with that number - try again'
    xx = 1
    DO WHILE XX <35
       xx = xx+1
    ENDDO while xx <35
    mname = space(6)
    loop
  ENDIF eof()
 SET FORMAT TO E1
 READ
 SET FORMAT TO
 mname = space(06)
ENDDO while doname
set index to currname, currnmbr
curr = '03'
return

PROCEDURE E3
clear
mname = space(20)
doname = .t.
SELE CLOSED
SET INDEX TO CLOSNAME, CLOSNMBR
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF EOF()
    @15,23 SAY CHR(7)+'no client with that name - try again'
    xx = 1
    DO WHILE XX <35
       xx = xx+1
    ENDDO while xx<35
    mname = space(20)
    LOOP
 ENDIF EOF()
 SET FORMAT TO E2
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
SELE CURRENT
SET INDEX TO CURRNAME, CURRNMBR
curr = '03'
return

PROCEDURE E4
clear
mname = space(06)
doname = .t.
sele closed
set index to closnmbr, closname
DO WHILE DONAME
 CLEAR
 @01,00 say '                         EDIT FILES'
 @05,03 SAY 'enter client number ' get mname PICT '!!!!!!'
 @06,03 say 'or (cr) to exit'
 read
 clear gets
 mname = trim(mname)
 IF len(mname) = 0
   doname = .f.
   EXIT
 ENDIF len(mname) = 0
 FIND &mname
 IF EOF()
   @15,23 SAY CHR(7)+'no client with that number - try again'
   xx = 1
   DO WHILE XX <35
      XX = XX+1
   ENDDO while xx<35
   mname = space(6)
   LOOP
 ENDIF EOF()
 SET FORMAT TO E2
 READ
 SET FORMAT TO
 mname = space(20)
ENDDO while doname
sele current
set index to currname, currnmbr
curr = '03'
return

PROCEDURE C1
*BEGIN C1.PRG
clear
mchoice = ' '
mname = space(20)
mclose = .t.
mdele = 0
DO WHILE MCLOSE = .T.
 @05,05 say 'enter client name or'
 @06,05 say '        (cr) to exit ' get mname pict '!!!!!!!!!!!!!!!!!!!!'
 READ
 mname = trim(mname)
 IF len(MNAME) = 0 .OR. MNAME = SPACE(20)
    mclose = .f.
    exit
 ENDIF mname = 0
 FIND &mname
 DO CASE
    CASE EOF()
       @15,23 SAY CHR(7)+'no client by that name - try again'
       xx = 1
       DO WHILE xx <35
          xx = xx+1
       ENDDO while xx <35
       mname = space(20)
       @15,23
       LOOP
    OTHERWISE
      @10,05 say '    client  - '+ clientname
      @11,05 say '  reference - '+ reference
      @12,05 say 'file number - '+ file_nmbr
      @15,01 say ' is this the case to close? (Y) or (N)' get mchoice pict '!'ì

      read
      IF MCHOICE <> 'Y'
         set color to w*/r
         @ 21,15 SAY CHR(7)+'case NOT closed because you did'
         @ 22,15 say 'not select (Y) - hit any key'
         set color to 6/1,7/4,6
         set cons off
         wait
         set cons on
         mname = space(20)
         @07,00 clear
      ELSE
        DELE
        MDELE = mdele+1
        set color to w*/r
        @21,15 say str(mdele)+' case(s) closed'
        xx = 1
        DO WHILE XX <35
           xx = xx+1
        ENDDO while xx <35
        set color to 6/1,7/4,6
        mname = space(20)
        @07,00 clear
     ENDIF MCHOICE <> 'Y'
  ENDCASE
ENDDO
IF mdele >=1
CLEAR
SET COLOR TO W*/R
@01,00 SAY 'closing cases - please standby'
? 'number of cases we are closing is'+str(mdele)
set color to 6/1,7/4,6
SET CONS OFF
COPY TO TEMP FOR DELE()
SELE CLOSED
APPEND FROM TEMP
sele current
pack
DELE FILE TEMP.DBF
ELSE
SET CONS ON
set color to w*/r
@01,01 say 'no cases closed - hit any key'
set color to 6/1,7/4,6
set cons off
wait
set cons on
endif mdele>=1
curr = '04'
return
*EOF C1.PRG

PROCEDURE C2
*BEGIN C2.PRG
clear
mchoice = ' '
SET INDEX TO CURRNMBR, CURRNAME
mname = space(06)
mclose = .t.
mdele = 0
DO WHILE MCLOSE = .T.
 @05,05 say 'enter client number or'
 @06,05 say '         (cr) to exit ' get mname pict '!!!!!!'
 READ
 mname = trim(mname)
 IF len(MNAME) = 0 .OR. MNAME = SPACE(06)
    mclose = .f.
    exit
 ENDIF mname = 0
 FIND &mname
 DO CASE
    CASE EOF()
       @15,23 SAY CHR(7)+'no client with that number - try again'
       xx = 1
       DO WHILE xx <35
          xx = xx+1
       ENDDO while xx <35
       mname = space(20)
       @15,23
       LOOP
    OTHERWISE
      @10,05 say '    client  - '+ clientname
      @11,05 say '  reference - '+ reference
      @12,05 say 'file number - '+ file_nmbr
      @15,01 say ' is this the case to close? (Y) or (N)' get mchoice pict '!'ì

      read
      IF MCHOICE <> 'Y'
         set color to w*/r
         @ 21,15 SAY CHR(7)+'case NOT closed because you did'
         @ 22,15 say 'not select (Y) - hit any key'
         set color to 6/1,7/4,6
         set cons off
         wait
         set cons on
         mname = space(06)
         @07,00 clear
      ELSE
        DELE
        MDELE = mdele+1
        set color to w*/r
        @21,15 say str(mdele)+' case(s) closed'
        xx = 1
        DO WHILE XX <35
           xx = xx+1
        ENDDO while xx<35
        set color to 6/1,7/4,6
       mname = space(6)
        @07,00 clear
      ENDIF MCHOICE <> 'Y'
  ENDCASE
ENDDO
IF mdele >=1
 CLEAR
 SET COLOR TO W*/R
 @01,00 SAY 'closing cases - please standby'
 ? 'number of cases we are closing is'+str(mdele)
 set color to 6/1,7/4,6
 SET CONS OFF
 COPY TO TEMP FOR DELE()
 SELE CLOSED
 APPEND FROM TEMP
 sele current
 pack
 DELE FILE TEMP.DBF
ELSE
 SET CONS ON
 set color to w*/r
 @01,01 say 'no cases closed - hit any key'
 set color to 6/1,7/4,6
 set cons off
 wait
 SET CONS ON
ENDIF mdele >=1
SET INDEX TO CURRNAME, CURRNMBR
set cons on
curr = '04'
return
*EOF C2.PRG