ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/MISC/IPADMGR.ZIP/SOURCE.ZIP/BRACT.PRG

Text File | 1996-04-06 | 8KB | 282 lines

*:*****************************************************************************
*:
*:        Program: D:\IPADMGR\SOURCE\BRACT.PRG
*:
*:         System: IPADEDIT
*:         Author: Jeff Johnson
*:      Copyright (c) 1996, BBS Consultants, Inc.
*:  Last modified: 04/06/96     14:29
*:
*:      Called by: ACCOUNT.PRG
*:
*:      Documented 10/01/96 at 13:18                SNAP!  version 5.02
*:*****************************************************************************
SET COLOR TO W+/N
SET CENTURY ON
CLEAR
SET COLOR TO N/BG
@ 0,0 SAY Space(80)
STORE Len(serv_name) /2 TO m
@ 0,39-m SAY serv_name
SET COLOR TO W+/R
@ 0,0 SAY " IpadMgr  " + Version
@ 0,78-Len(domain) SAY " " + domain + " "
SET COLOR TO N/W
@ 1,0 SAY " ▄▄▄▄▄▄▄▄▄ Current Subscribers ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄ Subscription Info ▄▄▄▄▄ "
@ 2,0 SAY " "
@ 2,46 SAY " "
@ 2,79 SAY " "
@ 3,0 SAY " "
@ 3,46 SAY " "
@ 3,79 SAY " "
@ 4,0 SAY " "
@ 4,46 SAY " "
@ 4,79 SAY " "
@ 5,0 SAY " "
@ 5,46 SAY " "
@ 5,79 SAY " "
@ 6,0 SAY " "
@ 6,46 SAY " "
@ 6,79 SAY " "
@ 7,0 SAY " "
@ 7,46 SAY " "
@ 7,79 SAY " "
@ 8,0 SAY " "
@ 8,46 SAY " "
@ 8,79 SAY " "
@ 9,0 SAY " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
@ 10,0 SAY " "
@ 10,79 SAY " "
@ 11,0 SAY " "
@ 11,79 SAY " "
@ 12,0 SAY " ▄▄▄▄▄▄▄▄▄▄▄ Current Month ▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄ Previous Month ▄▄▄▄▄▄▄▄▄▄▄ "
@ 13,0 SAY " "
@ 13,37 SAY " "
@ 13,79 SAY " "
@ 14,0 SAY " "
@ 14,37 SAY " "
@ 14,79 SAY " "
@ 15,0 SAY " "
@ 15,37 SAY " "
@ 15,79 SAY " "
@ 16,0 SAY " "
@ 16,37 SAY " "
@ 16,79 SAY " "
@ 17,0 SAY " "
@ 17,37 SAY " "
@ 17,79 SAY " "
@ 18,0 SAY " "
@ 18,37 SAY " "
@ 18,79 SAY " "
@ 19,0 SAY " "
@ 19,37 SAY " "
@ 19,79 SAY " "
@ 20,0 SAY " "
@ 20,37 SAY " "
@ 20,79 SAY " "
@ 21,0 SAY "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
*@ 19,0 Say " ESC - Quit "
SET COLOR TO W+/N
@ 2,1 SAY "Login Name     "
@ 3,1 SAY "Customers Name "
@ 4,1 SAY "Address        "
@ 5,1 SAY "               "
@ 6,1 SAY "City           "
@ 7,1 SAY "State          "
@ 8,1 SAY "Phone Number   "
@ 8,39 SAY "Keep"
@ 2,47 SAY "Joined           Exp  "
@ 3,47 SAY "Card No.    "
@ 4,47 SAY "Card Dte"
@ 4,62 SAY "No. Days"
@ 5,47 SAY "OVRT Daily"
@ 5,62 SAY "Slip/HR"
@ 6,47 SAY "OVRT Monthly"
@ 6,62 SAY "FTP/HR"
@ 7,47 SAY "Renew Level"
@ 7,62 SAY "Renewal Amt"
@ 8,47 SAY "Auto Renew"
@ 8,62 SAY "Total Fees"
@ 10,1 SAY  "Enable PPP/Slip-"
@ 10,20 SAY "Enable FTP-"
*@ 10,34 Say "Free SLIP-"
*@ 10,47 Say "Free FTP-"
@ 10,59 SAY "POP-"
@ 11,1 SAY "Slip Login"
@ 11,39 SAY "Base Minutes"
@ 13,1 SAY "Slip Logins "
@ 14,1 SAY "Slip Time Used  (Minutes)"
@ 15,1 SAY "Ftp Logins "
@ 16,1 SAY "Ftp Time Used   (Minutes)"
@ 17,1 SAY "Messages Sent"
@ 18,1 SAY "Messages Rcvd"
@ 19,1 SAY "Base Rate"
@ 20,1 SAY "Current Usage"
@ 13,39 SAY "Slip Logins"
@ 14,39 SAY "Slip Time Used  (Minutes)"
@ 15,39 SAY "Ftp Logins  "
@ 16,39 SAY "Ftp Time Used   (Minutes)"
@ 17,39 SAY "Messages Sent"
@ 18,39 SAY "Messages Rcvd"
*If Hourly
@ 20,39 SAY "Previous Bill             For"
*Else
*   @ 20,39 Say "                             "
*Endif
DO WHILE .T.
   SET COLOR TO W+/R
   IF Deleted()
      @ 1,37 SAY " Deleted "
   ELSE
      SET COLOR TO N/W
      @ 1,37 SAY "▄▄▄▄▄▄▄▄▄"
   ENDIF
   SET COLOR TO W+/N
   @ 1,31 SAY Transform(Recno(),"9999999")
   SET COLOR TO W+/RB
   IF tdbs
      IF Asc(Left(card_num,1)) < 124 .OR. Empty(card_num)
         *      If Val(Card_num) > 0 .Or. Empty(Card_Num) .Or. Left(Card_num,4) = "Cash" .Or. Left(Card_num,4) = "Mail" .Or. Left(Card_num,4) = "Free"
         STORE card_num TO cardno
      ELSE
         STORE Chr(Asc(Substr(card_num,1,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,3,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,5,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,7,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,9,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,11,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,13,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,15,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,17,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,19,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,20,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,18,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,16,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,14,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,12,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,10,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,8,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,6,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,4,1)) - 105) TO cardno
         STORE cardno + Chr(Asc(Substr(card_num,2,1)) - 105) TO cardno
      ENDIF
   ELSE
      STORE card_num TO cardno
   ENDIF
   @ 2,16 SAY login_name
   @ 3,16 SAY name
   @ 4,16 SAY address1
   @ 5,16 SAY address2
   @ 6,16 SAY city
   @ 7,16 SAY State
   @ 7,36 SAY zip
   @ 8,16 SAY phone
   @ 8,44 SAY keep PICTURE "Y"
   @ 2,53 SAY join_date
   @ 2,68 SAY exp_date
   @ 3,59 SAY cardno
   @ 4,56 SAY card_date
   @ 4,74 SAY days
   @ 5,60 SAY daily  PICTURE "Y"
   @ 5,73 SAY s_rate
   @ 6,60 SAY hourly  PICTURE "Y"
   @ 6,73 SAY f_rate
   @ 7,59 SAY renew_lev
   @ 7,73 SAY renew_amt
   @ 8,60 SAY auto_renew PICTURE "Y"
   @ 8,73 SAY total_fees
   @ 10,17 SAY ppp_slip PICTURE "Y"
   @ 10,31 SAY ftp PICTURE "Y"
   *   @ 10,44 Say Free_SLIP Picture "Y"
   *   @ 10,56 Say Free_FTP Picture "Y"
   @ 10,63 SAY popmail PICTURE "Y"
   @ 11,12 SAY s_login
   @ 11,52 SAY base_min
   @ 13,27 SAY c_slogins
   @ 14,27 SAY c_stime
   @ 15,27 SAY c_flogins
   @ 16,27 SAY c_ftime
   @ 17,27 SAY c_smsg
   @ 18,27 SAY c_rmsg
   @ 13,69 SAY p_slogins
   @ 14,69 SAY p_stime
   @ 15,69 SAY p_flogins
   @ 16,69 SAY p_ftime
   @ 17,69 SAY p_smsg
   @ 18,69 SAY p_rmsg
   SET COLOR TO W+/N
   @ 19,16 SAY Space(21)
   @ 20,16 SAY Space(21)
   SET COLOR TO W+/RB
   DO CASE
   CASE s_rate > 0 .AND. hourly
      @ 19,16 SAY base_rate PICTURE "999,999.99"
      IF s_rate * ((c_stime-base_min)/60) > 0
         @ 20,16 SAY s_rate * ((c_stime-base_min)/60) PICTURE "999,999.99"
      ELSE
         @ 20,16 SAY 0 PICTURE "999,999.99"
      ENDIF
      IF s_rate * ((c_stime-base_min)/60) > 0
         @ 20,27 SAY base_rate + (s_rate * ((c_stime-base_min)/60)) PICTURE "999,999.99"
      ELSE
         @ 20,27 SAY base_rate PICTURE "999,999.99"
      ENDIF
   CASE s_rate > 0 .AND. daily
      @ 19,16 SAY base_rate PICTURE "999,999.99"
      IF s_rate * ((ovr_t_mins)/60) > 0
         @ 20,16 SAY s_rate * ((ovr_t_mins)/60) PICTURE "999,999.99"
      ELSE
         @ 20,16 SAY 0 PICTURE "999,999.99"
      ENDIF
      IF s_rate * ((ovr_t_mins)/60) > 0
         @ 20,27 SAY base_rate + (s_rate * ((ovr_t_mins)/60)) PICTURE "999,999.99"
      ELSE
         @ 20,27 SAY base_rate PICTURE "999,999.99"
      ENDIF
   OTHERWISE
      SET COLOR TO W+/N
      @ 20,16 SAY Space(10)
   ENDCASE
   IF Dtoc(lt_bill_dt) = "  /  /  "
      SET COLOR TO W+/N
      @ 20,55 SAY Space(8)
      @ 20,69 SAY Space(10)
   ELSE
      @ 20,55 SAY lt_bill_dt
      @ 20,69 SAY lt_bill_am PICTURE "999,999.99"
   ENDIF
   SET COLOR TO N/W
   @ 22,0 SAY "<ESC> Exit                                              <Page Up/Down>-Browse   "
   SET CONFIRM OFF
   STORE " " TO prompt
   SET COLOR TO N+/W,N/N
   @ 22,79 GET prompt
   READ
   SET COLOR TO N+/W,N/W
   DO CASE
   CASE Readkey() = 12
      SET CONFIRM ON
      SET CENTURY OFF
      EXIT
   CASE Readkey() = 6
      IF .NOT. Bof()
         SKIP -1
      ENDIF
      IF Bof()
         GOTO TOP
      ENDIF
      LOOP
   CASE Readkey() = 7
      IF .NOT. Eof()
         SKIP 1
      ENDIF
      IF Eof()
         GOTO BOTTOM
      ENDIF
      LOOP
   ENDCASE
ENDDO
SET COLOR TO W+/B

*: EOF: BRACT.PRG