Initial project structure: directories, empty files, requirements.txt, and logo
This commit is contained in:
HotSwapp
212
old-database/SETUP.SC
Executable file
212
old-database/SETUP.SC
Executable file
@@ -0,0 +1,212 @@
|
||||
MESSAGE "Writing setup table procedures to library..."
|
||||
|
||||
PROC CLOSED Setup_Table_Wait(Tbl, R, C, F_Num)
|
||||
USEVARS Autolib, Main_Table, Rpt_St
|
||||
PRIVATE Fld_Prompt
|
||||
DYNARRAY Fld_Prompt[]
|
||||
|
||||
PROC Setup_Speedbar()
|
||||
SPEEDBAR "~F10~ Menu":-68
|
||||
if ISASSIGNED(Fld_Prompt[FIELD()]) then
|
||||
PROMPT Fld_Prompt[FIELD()]
|
||||
else PROMPT
|
||||
endif
|
||||
ENDPROC;
|
||||
|
||||
PROC Setup_Table_Menu()
|
||||
SHOWPULLDOWN
|
||||
"Modify" : "Toggle between edit and main mode" : "Modify"
|
||||
SUBMENU
|
||||
"Edit Mode - F9" : "Allow data to be edited, deleted, etc." : "Edit\Mode",
|
||||
"Main Mode - F2" : "Discontinue editing" : "Main\Mode"
|
||||
ENDSUBMENU,
|
||||
"Reports" : "Choose report to generate" : "Reports"
|
||||
SUBMENU
|
||||
"Print All" : "Report on all records in this table" : "R_Standard",
|
||||
"Cancel" : "Do not print any report" : "R_Cancel"
|
||||
ENDSUBMENU,
|
||||
"Return" : "Return to previous menu" : ""
|
||||
SUBMENU
|
||||
"No " : "Continue working with this data" : "Return\No",
|
||||
"Yes - F8" : "Return to main menu" : "Return\Yes"
|
||||
ENDSUBMENU
|
||||
ENDMENU
|
||||
if ISEMPTY(Tbl) then
|
||||
Edit_Mode()
|
||||
else MENUDISABLE "Main\Mode"
|
||||
endif
|
||||
ENDPROC
|
||||
|
||||
PROC Setup_Table_Wait_Proc(TriggerType, EventInfo, CycleNumber)
|
||||
PRIVATE Key_Code, Menu_Pick
|
||||
if (TriggerType = "ARRIVEFIELD") then
|
||||
Setup_Speedbar()
|
||||
RETURN 1
|
||||
endif
|
||||
if (EventInfo["TYPE"] = "MESSAGE") then
|
||||
Menu_Pick = EventInfo["MENUTAG"]
|
||||
SWITCH
|
||||
CASE (Menu_Pick = "Edit\Mode") : RETURN Edit_Mode()
|
||||
CASE (Menu_Pick = "Main\Mode") : if ISEMPTY(Tbl) then
|
||||
RETURN Clear_Table()
|
||||
else RETURN Main_Mode()
|
||||
endif
|
||||
CASE (Menu_Pick = "R_Standard") : ECHO OFF
|
||||
Print_Report(Main_Table, "1", "")
|
||||
Setup_Table_Menu()
|
||||
Setup_Speedbar()
|
||||
RETURN 1
|
||||
CASE (Menu_Pick = "R_Cancel") : RETURN 1
|
||||
CASE (Menu_Pick = "Return\Yes") : RETURN Clear_Table()
|
||||
CASE (Menu_Pick = "Return\No") : RETURN 1
|
||||
OTHERWISE : SOUND 400 100 RETURN 1
|
||||
ENDSWITCH
|
||||
endif
|
||||
if (EventInfo["TYPE"] = "KEY") then
|
||||
Key_Code = EventInfo["KEYCODE"]
|
||||
SWITCH
|
||||
; F3 or F4 UPIMAGE, DOWNIMAGE
|
||||
CASE (Key_Code = -61) OR
|
||||
(Key_Code = -62) : if (NIMAGES() > 1) then
|
||||
RETURN 0
|
||||
else RETURN 1
|
||||
endif
|
||||
; F9 - COEDIT
|
||||
CASE (Key_Code = -67) : RETURN Edit_Mode()
|
||||
; F2 - DO_IT!
|
||||
CASE (Key_Code = -60) : if (SYSMODE() = "CoEdit") and (Tbl = "Deposits") then
|
||||
ECHO OFF
|
||||
MOVETO "Payments"
|
||||
MOVETO FIELD "Amount"
|
||||
Balance = IMAGECSUM()
|
||||
MOVETO "Deposits"
|
||||
[Total] = Balance
|
||||
ECHO NORMAL
|
||||
endif
|
||||
if ISEMPTY(Tbl) then
|
||||
RETURN Clear_Table()
|
||||
else RETURN Main_Mode()
|
||||
endif
|
||||
; + to add one day to current date
|
||||
CASE (Key_Code = 43) : RETURN Change_Date(43)
|
||||
; - to subtract one day from current date
|
||||
CASE (Key_Code = 45) : RETURN Change_Date(45)
|
||||
; DELETE
|
||||
CASE (Key_Code = -83) : if (SYSMODE() = "CoEdit") then
|
||||
RETURN Display_Delete_Box()
|
||||
else RETURN 1
|
||||
endif
|
||||
; F8 - CLEAR
|
||||
CASE (Key_Code = -66) : RETURN Clear_Table()
|
||||
OTHERWISE : SOUND 400 100 RETURN 1
|
||||
ENDSWITCH
|
||||
endif
|
||||
SOUND 400 100 RETURN 1
|
||||
ENDPROC;
|
||||
|
||||
; main body of procedure follows
|
||||
SWITCH
|
||||
CASE (Tbl = "PlanInfo") :
|
||||
Fld_Prompt["Plan_Name"] = "Full name of plan:"
|
||||
Fld_Prompt["Plan_Id"] = "Unique plan ID code:"
|
||||
Fld_Prompt["Plan_Type"] = "Type of plan (DB,DC):"
|
||||
Fld_Prompt["Divisible"] = "Means by which this Plan may be divided, if any?"
|
||||
Fld_Prompt["Drafted"] = "Has a QDRO been drafted for this Plan?"
|
||||
Fld_Prompt["Memo"] = "Description of plan particulars:"
|
||||
CASE (Tbl = "Inx_Lkup") :
|
||||
Fld_Prompt["Keyword"] = "Unique keyword to index form"
|
||||
CASE (Tbl = "RVarLkup") OR (Tbl = "FVarLkup"):
|
||||
Fld_Prompt["Identifier"] = "Name of variable as placed in forms"
|
||||
Fld_Prompt["Query"] = "Query used to solicit response"
|
||||
CASE (Tbl = "Deposits") :
|
||||
Fld_Prompt["Deposit_Date"] = "Enter date of deposit"
|
||||
Fld_Prompt["Total"] = "Enter total amount of deposit"
|
||||
Fld_Prompt["File_No"] = "File number related to this payment"
|
||||
Fld_Prompt["Id"] = "Id of file owner from rolodex"
|
||||
Fld_Prompt["Regarding"] = "Description of pertinent matter"
|
||||
Fld_Prompt["Amount"] = "Amount of payment to this account"
|
||||
Fld_Prompt["Note"] = "Additional notation for this payment"
|
||||
CASE (Tbl = "FileType") :
|
||||
Fld_Prompt["File_Type"] = "Unique area of law"
|
||||
CASE (Tbl = "Employee") :
|
||||
Fld_Prompt["Empl_Num"] = "Unique employee number"
|
||||
Fld_Prompt["Empl_Id"] = "Employee ID from Rolodex"
|
||||
Fld_Prompt["Rate_Per_Hour"] = "Default billing rate"
|
||||
CASE (Tbl = "TrnsType") :
|
||||
Fld_Prompt["T_Type"] = "Unique code to group transactions"
|
||||
Fld_Prompt["T_Type_L"] = "Letter describing transaction group"
|
||||
Fld_Prompt["Header"] = "Header in statement for this group"
|
||||
Fld_Prompt["Footer"] = "Footer in statement for this group"
|
||||
CASE (Tbl = "Footers") :
|
||||
Fld_Prompt["F_Code"] = "Unique code for this footer"
|
||||
Fld_Prompt["F_Footer"] = "Text of footer at end of statement"
|
||||
CASE (Tbl = "GrupLkup") :
|
||||
Fld_Prompt["Code"] = "Unique code for this rolodex group"
|
||||
Fld_Prompt["Description"] = "Description of this rolodex group"
|
||||
Fld_Prompt["Title"] = "Default title to fill in in rolodex"
|
||||
CASE (Tbl = "TrnsLkup") :
|
||||
Fld_Prompt["T_Code"] = "Unique code for this transaction"
|
||||
Fld_Prompt["T_Type"] = "Accounting group for this transaction"
|
||||
Fld_Prompt["T_Type_L"] = "Letter describing transaction's group"
|
||||
Fld_Prompt["Description"] = "Description of transaction in statement"
|
||||
Fld_Prompt["Amount"] = "Default amount for this transaction type"
|
||||
CASE (Tbl = "FileStat") :
|
||||
Fld_Prompt["Status"] = "Unique status to assign files"
|
||||
Fld_Prompt["Definition"] = "Definition for files of this status"
|
||||
Fld_Prompt["Send"] = "Should these statements be printed normally?"
|
||||
Fld_Prompt["Footer_Code"] = "Default statement footer for these files"
|
||||
CASE (Tbl = "States") :
|
||||
Fld_Prompt["Abrev"] = "Two letter state abbreviation"
|
||||
Fld_Prompt["St"] = "Full name of state"
|
||||
CASE (Tbl = "Printers") :
|
||||
Fld_Prompt["Number"] = "Unique number for this printer setup"
|
||||
Fld_Prompt["Name"] = "Name of this printer or setup"
|
||||
Fld_Prompt["Page_Break"] = "Page break method"
|
||||
Fld_Prompt["Port"] = "Direct output to this port"
|
||||
Fld_Prompt["Phone_Book"] = "Setup string for phone book report"
|
||||
Fld_Prompt["Rolodex_Info"] = "Setup string for rolodex report"
|
||||
Fld_Prompt["Envelope"] = "Setup string for envelope report"
|
||||
Fld_Prompt["File_Cabinet"] = "Setup string for file cabinet report"
|
||||
Fld_Prompt["Accounts"] = "Setup string for account summary reports"
|
||||
Fld_Prompt["Statements"] = "Setup string for all statements"
|
||||
Fld_Prompt["Calendar"] = "Setup string for calendar report"
|
||||
Fld_Prompt["Setup_St"] = "Generic setup string for all reports"
|
||||
Fld_Prompt["Reset_St"] = "Printer Reset string"
|
||||
Fld_Prompt["B_Underline"] = "Begin underlining"
|
||||
Fld_Prompt["E_Underline"] = "Terminate underlining"
|
||||
Fld_Prompt["B_Bold"] = "Begin bold"
|
||||
Fld_Prompt["E_Bold"] = "Terminate bold"
|
||||
ENDSWITCH
|
||||
ECHO OFF
|
||||
VIEW Tbl
|
||||
if (Tbl = "Deposits") then
|
||||
END
|
||||
endif
|
||||
Setup_Table_Menu()
|
||||
WINDOW MOVE GETWINDOW() TO -100, -100
|
||||
PICKFORM F_Num
|
||||
WINDOW HANDLE CURRENT TO Form_Win
|
||||
DYNARRAY Win_Atts[]
|
||||
Win_Atts["ORIGINROW"] = R
|
||||
Win_Atts["ORIGINCOL"] = C
|
||||
Win_Atts["CANMOVE"] = False
|
||||
Win_Atts["CANRESIZE"] = False
|
||||
Win_Atts["CANCLOSE"] = False
|
||||
WINDOW SETATTRIBUTES Form_Win FROM Win_Atts
|
||||
ECHO NORMAL
|
||||
Setup_Speedbar()
|
||||
WAIT WORKSPACE
|
||||
PROC "Setup_Table_Wait_Proc"
|
||||
MESSAGE "MENUSELECT"
|
||||
TRIGGER "ARRIVEFIELD"
|
||||
KEY -60, -66, -83, -67, -61, -62, 43, 45
|
||||
; DO_IT Clear Delete Edit UpIm DwnIm + -
|
||||
; F2 F8 DEL F9 F3 F4 Next Prev day
|
||||
ENDWAIT
|
||||
CLEARSPEEDBAR
|
||||
MESSAGE ""
|
||||
PROMPT ""
|
||||
ENDPROC
|
||||
WRITELIB Off_Lib Setup_Table_Wait
|
||||
|
||||
RELEASE PROCS ALL
|
||||
Reference in New Issue
Block a user