home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / catalogs / djdemo12.zip / DJ.ZIP / ED23.T00 < prev    next >
Text File  |  1993-02-28  |  12KB  |  514 lines

  1. ;*************** DJ DATA ENTRY ********************************************
  2. ;release version 1.2 shareware 
  3. ;added claim number feature to make easy contract printing
  4. ;(C)1993 Ed Witles 
  5. ;**************************************************************************
  6. ;Get User Info
  7. clearimage
  8. view "user"
  9. servicename=[Servicename]
  10. deposit=[Deposit]
  11. djname=[Djname]
  12. servicestreet=[Servicestreet]
  13. servicecity=[Servicecity]
  14. servicestate=[Servicestate]
  15. servicezip=[Servicezip]
  16. servicephone=[Servicephone]
  17. clearimage
  18. ;**************************************************************************
  19. ;**************************************************************************
  20. Proc Customize()
  21. CLEARALL
  22. CLEAR
  23. clearimage
  24. View "user"
  25. EditKey
  26. pickform "F"
  27. While True
  28.    Wait Table
  29.    Until "F2","F3"
  30.       Switch
  31.    Case Retval= "F2" : Do_It! main()
  32.    Case Retval= "F3" : Reset main()
  33. EndSwitch
  34. EndWhile
  35. endproc
  36. ;**************************************************************************
  37. proc Register()
  38. clearimage
  39. clear
  40. @10,10??" Enter Your Name: "
  41. @10,35 ACCEPT "A30"
  42. TO NAME
  43. @10,10??" Enter Your Code: "
  44. @10,35 ACCEPT "A30"
  45. TO CODE
  46. N=LEN(NAME) D=1
  47. FOR A FROM 1 TO N
  48. B=SUBSTR(NAME,A,1)
  49. C=ABS(ASC(B)) D=D+C
  50. ENDFOR
  51. VALID=STRVAL(D)
  52. IF NOT CODE=VALID
  53.    THEN MESSAGE " CODE IS INVALID ...... PLEASE TRY AGAIN ....." BEEP
  54.    SLEEP 2000 main()
  55. ENDIF
  56. PASSWORD"booger"
  57. EDIT "GEORGE"
  58. MOVETO [Name]
  59. CTRLBACKSPACE
  60. TYPEIN NAME
  61. MOVETO [Key Code]
  62. CTRLBACKSPACE
  63. TYPEIN "VALID"
  64. DO_IT!
  65. UNPASSWORD "booger"
  66. CLEARALL
  67. MESSAGE "THANK YOU FOR REGISTERING..." SLEEP 2000 MAIN()
  68. ENDPROC
  69. ;**************************************************************************
  70. PROC VALIDCOPY()
  71. CLEARIMAGE
  72. CLEAR
  73. PASSWORD "booger"
  74. VIEW "GEORGE"
  75. NAME=[Name]
  76. CODE=[Key Code]
  77. UNPASSWORD "booger"
  78. CLEARIMAGE
  79. ENDPROC
  80. ;**************************************************************************
  81. PROC exptotsum()
  82. CLEAR
  83. CLEARALL
  84. Query
  85.  
  86.  Expense |   Date    | Music Supplies | Advertising | Office Supplies | 
  87.          | >12/31/92 | calc sum       | calc sum    | calc sum        | 
  88.  
  89.  Expense | Costume/Cleanings | Vehicle Expenses | Meal Expenses | 
  90.          | calc sum          | calc sum         | calc sum      | 
  91.  
  92.  Expense | Hardware Purchases | Rental/Overhead | Misc Expenses (A) | 
  93.          | calc sum           | calc sum        | calc sum          | 
  94.  
  95.  Expense | Misc Expenses (B) | Misc Expenses (C) | Bad Debts | 
  96.          | calc sum          | calc sum          | calc sum  | 
  97.  
  98. Endquery
  99.  
  100. DO_IT!
  101.  
  102. ClearAll
  103. Clear
  104. View "ANSWER"
  105. While True
  106.    Wait Table
  107.    Until "F3"
  108.       Message "Press F3 When Done....."
  109.       Switch
  110.       Case Retval= "F3" : Message "" Reset Main()
  111. EndSwitch
  112. EndWhile
  113. EndProc
  114. ;***************************************************************************
  115.  
  116. ;**************************************************************************
  117. Proc Expense()
  118. ClearAll
  119. Clear
  120. Empty "Exp_Tmp"
  121. View "Exp_Tmp"
  122. EditKey
  123. formkey
  124. While True
  125.    Wait Table
  126.    Until "F2","F3"
  127.       Switch
  128.    Case Retval= "F2" : Do_It!  Add "Exp_TMP" "Expense"  Main()
  129.    Case Retval= "F3" : Reset Main()
  130. EndSwitch
  131. EndWhile
  132. EndProc
  133. ;**************************************************************************       
  134.  
  135. ;**************************************************************************
  136. Proc NewClient()
  137. ClearAll
  138. Clear
  139. view "Clients"
  140. END
  141. Claim=[Claim #]+1
  142. CLEARIMAGE
  143. Empty "DjClient"
  144. View "DjClient"
  145. EDITKEY
  146. MOVETO [Claim #]
  147. TYPEIN Claim
  148. FORMKEY
  149. While True
  150.    Wait Table
  151.    Until "F2","F3"
  152.       Switch
  153.    Case Retval= "F2" : Do_It!  Add "DjClient" "clients"  Main()
  154.    Case Retval= "F3" : Reset Main()
  155. EndSwitch
  156. EndWhile
  157. EndProc
  158. ;**************************************************************************       
  159. PROC DanceFind()
  160. ClearAll
  161. Clear
  162. @11,10??"Please enter Dance or Song Title: "
  163. Accept "A25"
  164. Picture "*!"
  165. To dance
  166. Message " Searching for: ",DANCE
  167. EMPTY "Dan_Tmp"
  168.  
  169. Query
  170.  
  171.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  172.          | Check ..~DANCE.. | Check           | Check           | Check           | 
  173.  
  174.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  175.          | Check           | Check           | Check           | 
  176.  
  177.  Country | Song & Artist 7 | Comments | 
  178.          | Check           | Check    | 
  179.  
  180. Endquery
  181.  
  182.  
  183. Do_It!
  184.  
  185. If Not (IsEmpty("Answer"))
  186.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  187.    EndIf
  188. ClearImage
  189. Message "Pass #2"
  190.  
  191.  
  192. Query
  193.  
  194.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  195.          | Check  | Check ..~DANCE..          | Check           | Check           | 
  196.  
  197.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  198.          | Check           | Check           | Check           | 
  199.  
  200.  Country | Song & Artist 7 | Comments | 
  201.          | Check           | Check    | 
  202.  
  203. Endquery
  204.  
  205. Do_It!
  206.  
  207.  
  208. If Not (IsEmpty("Answer"))
  209.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  210.    EndIf
  211. ClearImage
  212. Message "Pass #3"
  213.  
  214.  
  215. Query
  216.  
  217.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  218.          | Check  | Check           | Check ..~DANCE..          | Check           | 
  219.  
  220.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  221.          | Check           | Check           | Check           | 
  222.  
  223.  Country | Song & Artist 7 | Comments | 
  224.          | Check           | Check    | 
  225.  
  226. Endquery
  227.  
  228. Do_It!
  229.  
  230.  
  231. If Not (IsEmpty("Answer"))
  232.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  233.    EndIf
  234. ClearImage
  235. Message "Pass #4"
  236.  
  237.  
  238. Query
  239.  
  240.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  241.          | Check  | Check           | Check           | Check  ..~DANCE..         | 
  242.  
  243.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  244.          | Check           | Check           | Check           | 
  245.  
  246.  Country | Song & Artist 7 | Comments | 
  247.          | Check           | Check    | 
  248.  
  249. Endquery
  250.  
  251. Do_It!
  252.  
  253.  
  254. If Not (IsEmpty("Answer"))
  255.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  256.    EndIf
  257. ClearImage
  258. Message "Pass #5"
  259.  
  260.  
  261. Query
  262.  
  263.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  264.          | Check  | Check          | Check           | Check           | 
  265.  
  266.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  267.          | Check  ..~DANCE..         | Check           | Check           | 
  268.  
  269.  Country | Song & Artist 7 | Comments | 
  270.          | Check           | Check    | 
  271.  
  272. Endquery
  273.  
  274. Do_It!
  275.  
  276. If Not (IsEmpty("Answer"))
  277.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  278.    EndIf
  279. ClearImage
  280. Message "Pass #6"
  281.  
  282.  
  283. Query
  284.  
  285.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  286.          | Check  | Check           | Check           | Check           | 
  287.  
  288.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  289.          | Check           | Check ..~DANCE..         | Check           | 
  290.  
  291.  Country | Song & Artist 7 | Comments | 
  292.          | Check           | Check    | 
  293.  
  294. Endquery
  295.  
  296. Do_It!
  297.  
  298.  
  299. If Not (IsEmpty("Answer"))
  300.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  301.    EndIf
  302. ClearImage
  303. Message "Pass #7"
  304.  
  305.  
  306. Query
  307.  
  308.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  309.          | Check  | Check           | Check           | Check           | 
  310.  
  311.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  312.          | Check           | Check           | Check ..~DANCE..           | 
  313.  
  314.  Country | Song & Artist 7 | Comments | 
  315.          | Check           | Check    | 
  316.  
  317. Endquery
  318.  
  319. Do_It!
  320.  
  321.  
  322. If Not (IsEmpty("Answer"))
  323.       Then ADD "Answer" "Dan_tmp" Empty "Answer"
  324.    EndIf
  325. ClearImage
  326. Message "Final Pass..."
  327.  
  328.  
  329. Query
  330.  
  331.  Country |  Dance Type  | Song & Artist 1 | Song & Artist 2 | Song & Artist 3 | 
  332.          | Check  | Check           | Check           | Check           | 
  333.  
  334.  Country | Song & Artist 4 | Song & Artist 5 | Song & Artist 6 | 
  335.          | Check           | Check           | Check           | 
  336.  
  337.  Country | Song & Artist 7 | Comments | 
  338.          | Check ..~DANCE..      | Check    | 
  339.  
  340. Endquery
  341.  
  342. Do_It!
  343.  
  344.  
  345.  
  346. If (IsEmpty("Dan_Tmp"))
  347.    Then Message "No Records Exist...." Sleep 2000 Main()
  348.    Else View "Dan_Tmp" pickform "F" 
  349.        
  350.        Wait Table
  351.           Message "Press F2 or ESC when done viewing.."
  352.           Until "F2","ESC"
  353. EndIf
  354. ClearImage
  355. Clear
  356. Empty "Dan_Tmp"
  357. Main()
  358. EndProc
  359. ;**************************************************************************
  360.  
  361. ;**************************************************************************
  362. Proc Contract()
  363. ClearAll
  364. Clear
  365. @10,10??"   Enter The Client's Claim # You Want For A Contract... "
  366. Accept "N" To Claim
  367. Query
  368.  
  369.  clients |Claim #|  Date  | Event  |   Name(s)   | Phone # | Street address | 
  370.         |~Claim | Check  | Check   | Check       | Check   | Check          | 
  371.  
  372.  clients |  City  | State  |  Zip   |  From  |   To   | Location | 
  373.         |        |        |        | Check  | Check  | Check    | 
  374.  
  375.  clients | Music type | Place  |  Fee              | 
  376.         | Check      | Check  | Check _D,CALC _D-~deposit      |  
  377.  
  378. Endquery
  379. Do_It!
  380.  
  381. ;**************************************************************************
  382. IF (ISEMPTY("Answer"))
  383.    Then Message "No Records Exist For Claim # ",Claim Sleep 2000 Main()
  384. ENDIF
  385. Empty "Contract"
  386.  Menu {Tools} {More} {Add} {Answer} {contract}
  387.  Menu {Report} {Output} {Contract} {1} {Printer} 
  388.  Menu {Report} {Output} {Contract} {1} {Printer} Main()
  389.  
  390. Main()
  391. EndProc
  392. ;***************************************************************************
  393. Proc Ask_Song()
  394. ClearAll
  395. Clear
  396. @10,10??"   Enter The Group or Leave Blank..... Partial is Ok.. "
  397. @11,5 Accept "A30" To Title
  398. @12,10??"   Enter The Song Title or Leave Blank.... Partial is Ok.. "
  399. @13,5 Accept "A30" To Song
  400. Query
  401.  
  402.  Total_cd | CATALOG NUMBER | CATAGORY |      TITLE       | SIDE OR DISC # | 
  403.           | Check          | Check    | Check ..~Title.. | Check          | 
  404.  
  405.  Total_cd | SONG # |   SONG TITLE    | 
  406.           | Check  | Check ..~Song.. | 
  407.  
  408. Endquery
  409. Do_It!
  410. ClearAll
  411. Clear
  412. Empty "tocd_tmp" add "answer" "tocd_Tmp"
  413. View "tocd_tmp"
  414. Pickform "f"
  415. While True
  416.    Wait Table
  417.    Until "F3"
  418.       Message "Press F3 When Done....."
  419.       Switch
  420.       Case Retval= "F3" : Message "" Reset Main()
  421. EndSwitch
  422. EndWhile
  423. Main()
  424. EndProc
  425. ;***************************************************************************
  426. Proc ViewClient()
  427. ClearAll
  428. Clear
  429. View "clients"
  430. formkey
  431. While True
  432.    Wait Table
  433.    Until "F3"
  434.       Message "Press F3 When Done....."
  435.       Switch
  436.       Case Retval= "F3" : Message "" Reset Main()
  437. EndSwitch
  438. EndWhile
  439. EndProc
  440. ;***************************************************************************
  441. ;***************************************************************************
  442. Proc ViewSongs()
  443. ClearAll
  444. Clear
  445. View "Total_cd"
  446. pickform "f"
  447. While True
  448.    Wait Table
  449.    Until "F3"
  450.       Message "Press F3 When Done....."
  451.       Switch
  452.       Case Retval= "F3" : Message "" Reset Main()
  453. EndSwitch
  454. EndWhile
  455. EndProc
  456. ;**************************************************************************
  457. Proc EdSongs()
  458. Clear
  459. ClearImage
  460. @5,10??"             You Are About To Edit The Master Music Table"
  461. sleep 2000
  462. Clear
  463. View "Total_cd"
  464. End
  465. EditKey
  466. While True
  467.    Message "Press 'F2' To Accept : Press 'F3' To Abort"
  468.    Wait Table
  469.    Until "F2","F3"
  470.  
  471.       Switch
  472.    Case Retval= "F2" : Do_It!  Main()
  473.    Case Retval= "F3" : Reset Main()
  474. EndSwitch
  475. EndWhile
  476. EndProc
  477. ;**************************************************************************
  478. ;**************************************************************************
  479. Proc EdClient()
  480. Clear
  481. ClearImage
  482. @5,10??"             You Are About To Edit The Master Client Table"
  483. sleep 2000
  484. Clear
  485. View "clients"
  486. End
  487. EditKey
  488. formkey
  489. While True
  490.    Message "Press 'F2' To Accept : Press 'F3' To Abort"
  491.    Wait Table
  492.    Until "F2","F3"
  493.  
  494.       Switch
  495.    Case Retval= "F2" : Do_It!  Main()
  496.    Case Retval= "F3" : Reset Main()
  497. EndSwitch
  498. EndWhile
  499. EndProc
  500. ;**************************************************************************
  501. Proc Main()
  502. VALIDCOPY()
  503. IF NOT CODE="VALID"
  504.    THEN MESSAGE "Please Register Me.... " beep SLEEP 7000 beep
  505.    ENDIF   
  506. MESSAGE""
  507. ClearAll
  508. Clear
  509. @1,10??"    **** Your Personal Disc Jokey Management Program ****"
  510. @2,10??"              Version 1.2 (C) 1993 Ed Witles"
  511. @3,10??"    This copy is registered to ",NAME
  512. @5,10??"     ***************************************************"
  513. @6,10??"     *             Dj Main Menu                        *"
  514. @7,10??"     *     (0) To Customize With Your Name             *"