WNGZWZSC0110WO  ?   Configure#OK@Cancel@H8  !call Configure.scz:Update(); Configure.scz:doit = 1; Configure.scz:bef_aft = CtValue (6,0); Configure.scz:dat_fmt = CtValue (7,0); Configure.scz:neg_num = CtValue (8,0); Configure.scz:scz_dir = CtString (9,0)fffff@̌@gDecimal Separator@.!!call Configure.scz:Update()43333@gThousands Separator@,!!call Configure.scz:Update()̬@pgCurrency Symbol@$!!call Configure.scz:Update()y@ e Currency@4MM-DD-YYDD-MM-YYYY-MM-DDh p eDate@h h eNegative Number@hP@PLx@gStartup Directory@$>#NOTE: To use 5' as a currency symbol in Custom Number 5CFormats, you must place it in quotation marks ("") before or after 5Jthe number mask. The $ symbol will produce a $ within the formatted cell.599797,97;97;97;97ys#pInvalid decimal separator (5), thousands separator (55) or currency symbol (55). Try again.5 @>@>7@>7@@@@ @123545655785  5 5   -5 (5)5 %@@7!2/usr/lpp/Wingz/Utilities/International/Startup.txt3decimaldecimal separator "5"5abcw7 thousands!thousands separator "5"5abcw?9m9before currencybefore currency "5"5abcw-after currencyafter currency ""abcwj/before currencybefore currency ""abcw7after currencyafter currency "5"5abcw?9negativeabcw(%negativeuse parenthesisabcw?97date input formatdate input format mmddyyabcw, date 4 formatdate 4 "MM-DD-YY"abcw) date 5 formatdate 5 "MM-YY"abcwdatestr1MM-DD-YYabcwdatestr2MM-YYabcw@97date input formatdate input format ddmmyyabcw, date 4 formatdate 4 "DD-MM-YY"abcw) date 5 formatdate 5 "MM-YY"abcwdatestr1DD-MM-YYabcwdatestr2MM-YYabcw@97date input formatdate input format yymmddabcw, date 4 formatdate 4 "YY-MM-DD"abcw) date 5 formatdate 5 "YY-MM"abcwdatestr1YY-MM-DDabcwdatestr2YY-MMabcw'CommasCommas (5)5abcw9 Startup.scz /Startup.scz5#Press OK to exit Wingz, then launch Wingz again and verify your changes. YOU MUST LAUNCH WINGZ FROM THE PATH YOU SPECIFIED AS THE STARTUP DIRECTORY...doitdec_septho_sepcur_symbef_aftdat_fmtneg_numscz_dirUpdate$ changeitY{ Configure.scz This script displays a dialog box used to change the following options in Wingz: currency, symbol, currency symbol placement, date input format, negative number notation, decimal separator, and thousands separator. A file called Startup.scz is created and placed in the directory indicated by the field "Startup Directory". The Startup.scz file can be edited or added to. However, if you re-execute Configure.scz any changes or additions are overwritten. } define doit, dec_sep, tho_sep, cur_sym, bef_aft, dat_fmt, neg_num, scz_dir; dec_sep = ""; tho_sep = ""; cur_sym = ""; {Dialog Box} while 1 new modal dialog box at (-1, -1) (5inch,4inch) name dialog box "Configure"; doit = 0; { Ctrls 1 & 2 } add push button "OK@", "Cancel@" at (0.5inch,3.25inch)+(4inch,0.75inch) dialog cancel push button select control 1 dialog default push button script "call Configure.scz:Update(); Configure.scz:doit = 1; Configure.scz:bef_aft = CtValue (6,0); Configure.scz:dat_fmt = CtValue (7,0); Configure.scz:neg_num = CtValue (8,0); Configure.scz:scz_dir = CtString (9,0)" { Ctrl 3 } add field at (2.6inch,0.37inch) (4.75inch,0.64inch) show control name "Decimal Separator@" field text "." maximum field length 1 script "call Configure.scz:Update()" { Ctrl 4 } add field at (2.6inch, 0.8inch) (4.75inch,1.07inch) show control name "Thousands Separator@" field text "," maximum field length 1 script "call Configure.scz:Update()" { Ctrl 5 } add field at (2.6inch,1.23inch) (4.75inch,1.5inch) show control name "Currency Symbol@" field text "$" maximum field length 5 script "call Configure.scz:Update()" { Ctrl 5 } add radio button "", "" at (2.62inch,1.6inch) (4.75inch,2.65inch) show control title "Currency@" outline 2 border { Ctrl 6 } add radio button "MM-DD-YY", "DD-MM-YY", "YY-MM-DD" at (0.25inch,0.1inch) (2.1inch,1.5inch) show control title "Date@" outline 2 border { Ctrl 7 } add radio button "", "" at (0.25inch,1.6inch)+(1.85inch,1.05inch) show control title "Negative Number@" outline 2 border { Ctrl 8 } add field at (0.25inch,2.9inch)+(4.5inch,0.27inch) show control name "Startup Directory@"; call Update() use dialog box if doit if cur_sym <> "$" message "NOTE: To use " & cur_sym & " as a currency symbol in Custom Number " & "Formats, you must place it in quotation marks ("""") before or after " & "the number mask. The $ symbol will produce a $ within the formatted cell." end if if (dec_sep = tho_sep) or (dec_sep = cur_sym) or (tho_sep = cur_sym) or (dec_sep = ",") or (dec_sep = ";") or (tho_sep = ";") or (cur_sym = ";") message "Invalid decimal separator (" & dec_sep & "), thousands separator (" & tho_sep & ") or currency symbol (" & cur_sym & "). Try again." else call changeit() QUIT NOW; end if else exit while end if end while {End of Main routine.} {Update the dialog box to reflect the current selections.} function Update() define s, cur_item, neg_item if (dec_sep <> CTString (3,0)) or (tho_sep <> CTString (4,0)) or (cur_sym <> CTString (5,0)) dec_sep = CTString (3,0) tho_sep = CTString (4,0) cur_sym = CTString (5,0) cur_item = CTValue (6,0) neg_item = CTValue (8,0) s = "123" & tho_sep & "456" & dec_sep & "78" select control 6 radio button items cur_sym & s, s & cur_sym radio button cur_item select control 8 radio button items "-" & s, "(" & s & ")" radio button neg_item end if end function {Opens Startup.scp, the text file, and writes necessary commands to Startup} function changeit() desktop (30inch,30inch)+(1inch,0.5inch) open script "/usr/lpp/Wingz/Utilities/International/Startup.txt" replace field text "decimal" with "decimal separator """ & dec_sep & """" options "abcw" replace field text "thousands" with "thousands separator """ & tho_sep & """" options "abcw" if bef_aft = 1 replace field text "before currency" with "before currency """ & cur_sym & """" options "abcw" replace field text "after currency" with "after currency """"" options "abcw" else replace field text "before currency" with "before currency """"" options "abcw" replace field text "after currency" with "after currency """ & cur_sym & """" options "abcw" end if if neg_num = 1 replace field text "negative" with "" options "abcw" else replace field text "negative" with "use parenthesis" options "abcw" end if {This case statement changes two menu items on the Format Number submenu to reflect the selection for date input format.} case dat_fmt when 1 replace field text "date input format" with "date input format mmddyy" options "abcw" replace field text "date 4 format" with "date 4 ""MM-DD-YY""" options "abcw" replace field text "date 5 format" with "date 5 ""MM-YY""" options "abcw" replace field text "datestr1" with "MM-DD-YY" options "abcw" replace field text "datestr2" with "MM-YY" options "abcw" when 2 replace field text "date input format" with "date input format ddmmyy" options "abcw" replace field text "date 4 format" with "date 4 ""DD-MM-YY""" options "abcw" replace field text "date 5 format" with "date 5 ""MM-YY""" options "abcw" replace field text "datestr1" with "DD-MM-YY" options "abcw" replace field text "datestr2" with "MM-YY" options "abcw" when 3 replace field text "date input format" with "date input format yymmdd" options "abcw" replace field text "date 4 format" with "date 4 ""YY-MM-DD""" options "abcw" replace field text "date 5 format" with "date 5 ""YY-MM""" options "abcw" replace field text "datestr1" with "YY-MM-DD" options "abcw" replace field text "datestr2" with "YY-MM" options "abcw" end case replace field text "Commas" with "Commas (" & tho_sep & ")" options "abcw" if scz_dir = "" save as "Startup.scz"; else save as scz_dir & "/Startup.scz"; end if; message "Press OK to exit Wingz, then launch Wingz again and verify your changes. YOU MUST LAUNCH WINGZ FROM THE PATH YOU SPECIFIED AS THE STARTUP DIRECTORY..." end function