home *** CD-ROM | disk | FTP | other *** search
Format (.fmt) File Template with POPUP or BROWSE field validation ----------------------------------------------------------------- Version 1.11.33 Ashton-Tate (c) 1987, 1988, 1989, 1990 Written by Kirk J. Nason & Bill Ramos ════════════════════════════════════════════════════════════════════════════════ ***** NOT AN OFFICIAL ASHTON-TATE RELEASE OF FORM.GEN ***** Key assignments and features could change WITHOUT notice GENERAL NOTE: dBASE has a new REQUIRED keyword for the @ GET command. Currently the Screen Designer does not have a option for this! If you want the REQUIRED keyword after every VALID use the DOS environment variable: SET DTL_REQ=ON and restart dBASE. NOW every generated VALID will look like @ <row>,<col> ... GET <var> VALID REQUIRED <exp> This environment variable will be removed at some future date! ════════════════════════════════════════════════════════════════════════════════ This template will support POPUPs or BROWSE for VALID clause field validations and context sensitive help for each field. If you choose these features, please note the following: F1: calls the context sensitive help, F2:(switch to edit/browse) is disabled, but if the ZOOM option is used F9 will ZOOM to another form, F6:invokes the "cut" portion of cut/paste, Ctrl-F5:invokes editing of "cut" data, and F8:invokes the "paste" code, F7:Allows you to move "windows" around. Example: In FORM Design - "ACCEPT value when" under "Edit options" enter, "POPUP" = "vendor->vendor_id ORDER vendor_id REQ SHADOW ZOOM vendors" "BROWSE" ="vendor->vendor_id ORDER vendor_id FIELDS id,name FROM 5,0 TO 6,30" ------------------------------------------------------------------------------- this will activate a popup or BROWSE if the data entered is invalid for that field and will also make the field REQUIRED. ************ SET DBTRAP OFF is required to use these features ************ Explanation of the string follows: POPUP Indicates that a POPUP will be used for this field. BROWSE Indicates that BROWSE will be used for this field. <file>-><fieldname> Indicates the .DBF to open and FIELD to use as validation. ORDER <tag name> Indicates which INDEX TAG to SEEK in. REQ Indicates the FIELD requires data (can't be left empty). Leave REQ out if the field is NOT required. OPTIONAL! SHADOW Use shadowing effect on POPUPs or BROWSE. OPTIONAL! FROM <r,c> TO <r,c> Window coordinates for the BROWSE table. OPTIONAL! FIELDS <fld list> Field list for the BROWSE table. OPTIONAL! UPDATE Allow APPENDing and EDITing of BROWSE table. OPTIONAL! Note: "FIELDS <fld list>" is REQUIRED for UPDATE FORMAT <file name> Format file to use with BROWSE FORMAT OPTIONAL! Note: overrides FIELDS <fld list> ZOOM <file name> Format file to use with "ZOOMed" EDIT OPTIONAL! Note: Zooms to EDIT another FORM based on file->fieldname info above. NOTE: The string must be entered with the quotes as in the example. ════════════════════════════════════════════════════════════════════════════════ Explanation of the Context Sensitive Help file follows: If you want to create your own help file, here is the structure that is required. Structure for Help Database (.dbf): <first 6 chars. of the format filename>_H.dbf --------------- Field Field Name Type Width Dec Tag ------------------------------------------------- 1 FLD_NAME Character 10 Yes Field name to lookup on F1 2 FLD_HEADNG Character 25 No Heading to show user on window 3 FLD_HELP Memo 10 No Help text to show user ------------------------------------------------- Total 46 ε¡∞ ( x ╔╚ ▐»╛∩@O░: .H @O░: : @TP; 86 @Uç; ( = 8m@Vñ; 8n@W╢; ;@W╢; @Y└; .î @Y└; : @]U< 8m@^r< 8n@_å< ;@_å< @aÉ< . @aÉ< : @d°< 6∞ @e= 8; 8< 8?@f;= >@f;= @gE= ;@hW= <@hW= @ja= .Ç @ja= : @o╠= >@o╠= @pµ= 5i 80 8n@r> ., @r> @s> <@t'> <@t'> @v1> .╓ @v1> : @xû> 8< 8= 8< 8>@y┘> ;<@y┘> @{π> .# @{π> : @}F? / . @}F? @}F? ;@~f? <@~f? @^ ╡ 1ù @_ D :Can't use FORM.GEN on non-form objects. Press any key ...8N@` d .] @a s @É ß # 80@æ ≥ @Æ $ " @ô ( @ò T " 9ô3 @Ö ─ .fmt9àC /] @¢ ± 9r2 @£ 1 9| @¥ p 9h! @₧ Ñ 9∞, @ƒ █ 9êG @á - 9j╝ @í y 9╧» @ó ╜ 9├n @ú 93╖ @ñ K 0╦ /▐ @ª ê 9¡i @º á @¬ ≤ /° 9*w @½ @¡ 2H @« ' )Form design was empty. Press any key ...8N@» H @▒ R .fmo8{@▓ ÿ @│ í ;@╣ 1! .V! @╣ 1! : *-- Format file initialization code -------------------------------------------- *-- Some of these PRIVATE variables are created based on CodeGen and may not *-- be used by your particular .fmt file PRIVATE lc_talk, lc_cursor, lc_display, lc_status, lc_carry, lc_proc,; ln_typeahd IF SET("TALK") = "ON" SET TALK OFF lc_talk = "ON" ELSE lc_talk = "OFF" ENDIF lc_cursor = SET("CURSOR") SET CURSOR ON @╬ +# 439╘4 8. /Ü *-- This form was created in @╨ Q# 9╘4 ? mode lc_display = SET("display") IF .NOT. "43" $ lc_display && In 25 line mode IF "EGA" $ lc_display *-- If EGA is in lc_display try EGA43 SET DISPLAY TO EGA43 ELSE *-- Otherwise try MONO43 SET DISPLAY TO MONO43 ENDIF ENDIF @▄ ═$ lc_escape = SET("ESCAPE") SET ESCAPE OFF lc_status = SET("STATUS") *-- SET STATUS was @Γ 4% /^ ON when you went into the Forms Designer. IF lc_status = "OFF" SET STATUS ON @µ £% .┐ @µ £% OFF when you went into the Forms Designer. IF lc_status = "ON" SET STATUS OFF @Ω °% ENDIF @≡ ▐& j @± ∙& 8F @± ∙& 8I 0ß 9_ƒ @≥ ' X /$ ,>@≥ ' @≤ C' @ 80 M2╥ ¬ /╥ 6╥ @⌡ £' , wndow , *-- Window for memo field @° ┘' = 9Æ ?. DEFINE WINDOW @∙ ( 9 < ?@· 4( @√ >( ,.Θ @√ >( @ⁿ J( 8B@■ m( /p lc_carry = SET("CARRY") *-- Fields to carry forward during APPEND. SET CARRY TO @╖( 9┤> ? @╫( @α( 9Ω¢ @ ) /# IF TYPE("gc_cut") = "U" PRIVATE gc_cut gc_cut = SPACE(254) && Global variable for cut and paste ENDIF lc_proc = SET("procedure") && Store procedure file name ln_typeahd = SET("typeahead") && Store "typeahead" setting for _Paste lc_design = SET("design") && Store "design" setting SET PROCEDURE TO u_ @£* ( 8< ? SET TYPEAHEAD TO 255 SET DESIGN OFF DO _key_vars && Initialize Keyboard variables IF SET("DBTRAP") = "ON" && If dbtrap is on warn user DO _dbtrap && Put up error box KEYBOARD CHR( kn_Esc) && Escape out of the form since ENDIF && UDF's won't run @P, # 5 / DO S_ @ î, ( 8< 8> ?( 8S ?&& Open up Lookup Files @ ╬, @ ┌, @ ÷, /¼ ON KEY LABEL @" - F1? DO @#*- ( 8< 88 8> H_ ? WITH VARREAD() && Call Help code @%- .µ @%- /▀ ON KEY LABEL @&¢- F1? @'╖- @(┬- @)╦- / ON KEY LABEL F2 ?? CHR(7) @+√- @,. /í ON KEY LABEL @-. F5? DO @.:. ( 8< 88 8> R_ ? WITH VARREAD() && Call Recalc code @0É. .█ @0É. /╘ ON KEY LABEL @1¼. F5? @2╩. @3╓. @4▀. /c ON KEY LABEL @5≤. F9? DO @6/ ( 8< 88 8> Z_ ? WITH VARREAD() && Call Zoom code @8f/ .¥ @8f/ /û ON KEY LABEL @9é/ F9? @:₧/ @;⌐/ @<▓/ /,! ON KEY LABEL @=╠/ F6? DO _Cut ON KEY LABEL @>∩/ Ctrl-F5? DO _Edpaste ON KEY LABEL @?0 F8? DO _Paste @AC0 @Cd0 /F! 9 ╟ @Dç0 @Eæ0 <@G┤0 <@G┤0 @J 1 .┌, @J 1 : *-- @ SAY GETS Processing. ----------------------------------------------------- *-- Format Page: @Qö1 ? @T╬1 Φ @UΓ1 8F @UΓ1 8I 0╖, ½ W 9╤5 @V*2 % 9_ƒ @WB2 /¥" 9ⁿ╗ @Xa2 " READ *-- Format Page: @\é2 ? @^í2 @a▒2 = 1─" j 2ñ# @b√2 ? 2 # *-- Calculated field: @c 3 = 9Æ ? - L ? @dc3 @eo3 ? 2l# *-- Memory variable: @fû3 = 9Æ ? @g╟3 @ @h╘3 ß 9Φ ?, ] 9Φ ? @i4 @j 4 > 2╫# @ @kF4 9╔< ?@l_4 @nn4 .i, @oç4 SAY @v╓5 _ 8- 6¬$ @w∙5 _ 86 2W$ CHR( @x 6 _ 8- ?) @y86 .ƒ$ @y86 REPLICATE(CHR( @zG6 _ 8- ?), _ 86 ?) @{}6 @}ÿ6 .%% @}ÿ6 _ 8< "2±$ @üc7 [ @éå7 ] >@éå7 @âû7 _ ? @à8 " >@à8 @å8 9j; ?@ç"8 .î, @ç"8 @ê48 á í 9½: ?@ë`8 9j; ?@èt8 .î, @èt8 @ïå8 W 0░& SAY @ì╣8 ? 2& @Å$9 M @ÉU9 8F @ÉU9 8I 0√% M ?@æu9 ,.╒% @æu9 @ò : .l& @ò : ? 21& .H& @ò : m-> @ò : @ûL: >= 9Æ ? @ù: @ÿÅ: 9B /Ñ& PICTURE " @Ö▒: 9hA " @Ü╘: @¢Σ: .+, @¢Σ: GET @¥; ? 2▐& .⌡& @¥; m-> @¥; @₧O; >" = @ƒâ; ," = 9Æ ? @á░; @ 80 M2í' ¬ /í' 6í' @í< ,¬ 2à' OPEN @í< WINDOW wndow ? @óK< @ú[< 9B /┌' PICTURE " @ñ}< 9ó@ " @Ñá< @ª░< O 0≈' P /I( @ª░< ; RANGE @¿≡< O ?P /?( , P ?@¿≡< @⌐4= @¬D= S /+ ; @¼u= POPUPS 87 8= 8. 22≡( @¡╣= 7Picklist coordinates exceed column 79 - move field left9æB @«∩= 0#) @«∩= @»> BROWSES 87 8= 8. 22* @▓τ> VALID @│Ω> S 9τÑ 0o) @┤? dtl_req8g 8= ON2ê) @┤? REQUIRED @┤? @╡[? = 9┴ú ?( = 9Æ ? ) @╖σ? .AND.S 8= 8.@╕ @ / * S .AND.S 8= 8. 8< ? @╣i@ @╗æ@ .ä* @╗æ@ 9╩₧ 0}* VALID @╜┴@ dtl_req8g 8= ON2k* REQUIRED @╜┴@ S ? @┐A @└/A @┬DA T / + ; ERROR @┼uA IIFT 8= 8. 0╬* " @┼uA T ?@╞╛A IIFT 8= 8. 0+ " @╞╛A @╟√A @╚B @╔-B R /Q+ ; WHEN @╦^B R ? @═zB @╬èB Q /ô+ ; DEFAULT @╨╗B Q ? @╤╫B @╥τB c /$, ; MESSAGE @╒&C IIFc 8= 8. 0τ+ " @╒&C c ?@╓lC IIFc 8= 8. 0, " @╓lC @╫ªC @╪╢C @┘╘C 9j; ?@┌τC @█²C .î, @█²C .í, @▄D .î, @▄D 7 = ≡# > E% j ü% .Z, @▄D @πáD ,@Σ½D @σ╕D ,. " @σ╕D @µ┬D 9ⁿ╗ @τ D <@Θ"E <@Θ"E @∞nE .`2 @∞nE : *-- Format file exit code ----------------------------------------------------- @±▐E /M/ *-- Get rid of the ON KEY set above @≤ F /▒- ON KEY LABEL @⌠1F F1? @⌡MF ON KEY LABEL F2 @≈iF /÷- ON KEY LABEL @°ÇF F5? @∙₧F ON KEY LABEL @·⌐F F6? ON KEY LABEL @√─F Ctrl-F5? ON KEY LABEL @ⁿπF F8? @² G /ä. ON KEY LABEL @■G F9? @ 1G @ ;G # 5≤. /≤. DO C_ @wG ( 8< 8> ?( 8S ?&& Close up Lookup Files @║G SET PROCEDURE TO (lc_proc) SET TYPEAHEAD TO (ln_typeahd) SET DESIGN &lc_design. @ H *-- SET STATUS was @ =H /0 ON when you went into the Forms Designer. IF lc_status = "OFF" && Entered form with status off SET STATUS OFF && Turn STATUS "OFF" on the way out @∩H .┐0 @∩H OFF when you went into the Forms Designer. IF lc_status = "ON" && Entered form with status on SET STATUS ON && Turn STATUS "ON" on the way out @æI ENDIF @íI /⌠0 SET CARRY &lc_carry. @╬I SET CURSOR &lc_cursor. @∩I 439╘4 8. /q1 SET DISPLAY TO &lc_display. && Reset Screen size if changed @ UJ SET ESCAPE &lc_escape. SET TALK &lc_talk. @ îJ /δ1 RELEASE WINDOWS @!íJ 86 < ? @"▀J @#τJ //2 RELEASE ALL LIKE kn_* RELEASE ALL LIKE rn_* @'0K *-- EOP: @(9K 83 ?FMT @)[K <@+K <@+K @.╦K .ü3 @.╦K : @0ⁿK *P 8V 8B*-- Name.......: @1%L 83 ?FMT *-- Date.......: @2OL 8M 8< 87 ? *-- Version....: dBASE IV, Format @3L û ?.1 *-- Notes......: Format files use "" as delimiters! @5σL *P 8V 8B@6 M <@6 M @ ═ .┬4 @ ═ : @ 8k@ = 4ε3 @ p ' @ ë $ @ Æ . @ Æ @ ⌐ @ ┬ @ ┬ @ >' 8k@ 6 2q4 0q4 @ w @ Å >@ Å @ Ö ' 2▓4 0▓4 @ δ * @ ' >@ @! <@" <@" @% e .┐5 @% e : @( ┐ .x5 @) ╘ @* ≥ MONO .Ñ5 @* ≥ @+ COLOR .Ñ5 @+ @, 0 EGA25 .Ñ5 @, 0 @- P MONO43 .Ñ5 @- P @. o EGA43 .Ñ5 @. o 7 ≤4 5 *5 F5 c5 @. o @/ } ;@0 É <@0 É @3 ▄ .Ö: @3 ▄ : @C @D 9 Ç ! @E ] ! !056 @F ₧ !/66 @F ₧ @G ┬ p ! @H Γ ! @I ! @K ( ! 0ü: @M s /░6 >@M s @O ¿ 1⌠7 1⌠7 @P ▌ .á7 @Q ⌡ @R n .Γ7 @R @S ) b .Γ7 @S ) @T C g .Γ7 @T C @U ^ bg .Γ7 @U ^ @V x r .Γ7 @V x @W ô rb .Γ7 @W ô @X « gr .Γ7 @X « @Y ╚ w .Γ7 @Y ╚ 7 Σ6 ⁿ6 7 ,7 E7 ]7 v7 Å7 @Y ╚ @[ Γ .8 @[ Γ @\ ° w >@\ ° @_ /98 @` 9 i >@` 9 @b Y /a8 @c y u >@c y @e Ü /ë8 @f ║ + >@f ║ @h ╫ /▒8 @i ≈ * >@i ≈ @m # / 1 : 1 : @n X .╦9 @o q @p ò n . : @p ò @q ╣ b . : @q ╣ @r ▌ g . : @r ▌ @s bg . : @s @t & r . : @t & @u K rb . : @u K @v p gr . : @v p @w ö w . : @w ö 7 ∩8 9 '9 C9 `9 |9 Ö9 ╢9 @w ö @y « .@: @y « @z ╬ n >@z ╬ @| █ /z: /z: @} ,@~ ) >@~ ) @Ç 6 @ü O 8T ;@é j <@é j @à ╢ .X; @à ╢ : @è y . ; @ï è @î ½ .>; @î ½ @ì ╔ DOUBLE .>; @ì ╔ CHR( @Ä ∩ ) .>; @Ä ∩ 7 ╩: Γ: ; @Ä ∩ @Å √ ;@É <@É @ô Z . < @ô Z : @û « @ù ╛ % 86 4∙; @Ü + /╦; ; 8U@¢ S >@¢ S @£ _ COLOR % @¥ Ä >@¥ Ä @₧ ù ;@ƒ ⌐ <@ƒ ⌐ @ó ⌡ .╖< @ó ⌡ : @Ñ j wndow FROM 9╔< @ª ½ á ü í ü 9½: @º ∞ ½ ü W ü 9╤5 @¿ $ % 9j; @⌐ E ;@¬ X <@¬ X @¡ ñ .ó> @¡ ñ : @░ D @│ ⌐ ú ü 9Φ @┤ ∩ 5#= @╡ .α< @╡ @╖ G 2U= @╣ v >@╣ v @║ Ç 2Ç= @╝ » >@╝ » @┐ █ 0⌐= @┴ @┬ .╙= @┬ @├ K @├ K @┼ W >ú ü 9Φ @╞ è , ó ü 9Φ @╟ └ TO ú ü 9Φ Ñ ü @╚ 4^> >@╚ @╔ 5 ,ó ü 9Φ ñ ü @╩ à ;@╦ ÿ <@╦ ÿ @╬ Σ .É@ @╬ Σ : @╤ > @╥ R j @╙ o 8F @╙ o 8I 0j@ @╘ ê X /[@ = ,86@╒ ├ = ,86@╓ Φ 4¢? @╫ $ SET CARRY TO 8B@┘ x >@┘ x @┌ ê K 4▌? @█ ¬ ; 8B@▌ ∞ >@▌ ∞ @▐ ⁿ = 9Æ @▀ & 0+@ @α E 8B@Γ { @π è .L@ @π è , 8B@Σ ⌐ @Σ ⌐ @σ ╣ >@σ ╣ @µ ╞ ,.√> @µ ╞ @τ ╒ ADDITIVE8B@Θ ≈ <<@Θ ≈ @∞ C .VA @∞ C : @φ ^ K ü /ⁿ@ @ K ü ?@ε è SK ü 8. /≥@ ╖ ü ?@ε è @≡ Σ @± ≡ MK ü 8.@≥ /0A ┤ ü ?@⌠ ; .FA @⌠ ; J ü ?@⌡ U @÷ a <@≈ k <@≈ k @· ╖ .B @· ╖ : @√ ╥ K ü /┬A @ K ü ?@ⁿ ■ SK ü 8. /╕A ╖ ü ?@ⁿ ■ @■ X @ g MK ü 8. 0≥A @ î J ü ?@ª @▓ <@╝ <@╝ @ .B @ : @K J ü /jB @ ü 80 D1jB @î @ ü 80 M1jB @ ╨ ;@ ε ;@ <@ @W .sC @W : @≈ ] ü 9Φ J ü 86 P 4^C @p! /QC 9 @»! 8o @┴! = ü Error on Field: =9≈ @" 9≈ @'" Press any key ...8N@ B" @ Q" ;@ o" ;@!Ä" <@!Ä" @$┌" .ΣD @$┌" : @&!# 8=@'7# 8l@(}# @)└# * ( 8Y 07D @*ß# 0D @,$ ( @-&$ .(D @-&$ :@.T$ ( @.T$ @/a$ >@/a$ @0k$ 8=@1è$ 8C 0╧D @2▒$ 82 - can't be opened - possible read-only file. Press any key ...8N@3≡$ ;@4% @5% ;@6 % <@6 % @9i% .σE @9i% : @<═% * u_( 8< 88@=& .PRG8C 0│E @>H& .PRG - can't be opened - possible read-only file. Press any key ...8N@?ê& ;@@Ö& @B╠& .DBO8{@D<' ;@EJ' <@EJ' @Hû' .vG @Hû' : @J╧' -N 8V * 8B*-- Name....: @K°' * ?u_ ( 8< 88 ?.PRG *-- Date....: @L3( 8M 8< 87 ? *-- Version.: dBASE IV, Procedures for Format (.fmt) v @M^( û ?.1 *-- Notes...: Procedure file for VALID POPUPs and/or Context Sensitive Help *-- ........: for @O≡( 83 ?FMT @P) -N 8V * 8B@Q@) <@Q@) @Tî) .¢i @Tî) : @^G+ /ïi 9÷D 0╛G @_i+ ;@`å+ @a¢+ 9≈E @c╚+ # 5K PROCEDURE S_ @eⁿ+ ( 8< 8> ?( 8S ?&& Open Lookup files for faster processing @fX, j @g~, 8F @g~, 8I 0~I 9╩₧ @h«, /oI S 9 ú @iµ, $ 8. 0hI @j%- $ , $ USE @lr- ? ORDER S 9 ñ ? IN SELECT() @m▒- 8= < 2MI AGAIN ALIAS @n÷- 8< A ? @o . .aI @o . @qU. @rs. @sÄ. @tª. ,.eH @tª. RETURN *-- EOP: S_ @w╔. ( 8< 8> ? PROCEDURE C_ @y±. ( 8< 8> ?( 8S ?&& Close Lookup files @{X/ $ j @|~/ 8F @|~/ 8I 0K 9╩₧ @}«/ /∙J S 9 ú @~τ/ $ 8. 0≥J @&0 $ , $ USE IN ALIAS(" @üs0 8= < 2╘J 8< A .σJ @üs0 @üs0 ?") @é╓0 @â±0 @ä 1 ,.3J @ä 1 @à!1 RETURN *-- EOP: C_ @ê=1 ( 8< 8> ? FUNCTION Empty && Determine if the passed argument is NULL @ï╖1 8P ?PARAMETER x PRIVATE retval, lc_type lc_type = TYPE("x") DO CASE CASE lc_type = "C" retval = (LEN(TRIM(x))=0) CASE lc_type$"NF" retval = (x=0) CASE lc_type = "D" retval = (" "$DTOC(x)) OTHERWISE lc_type = "U" retval = .T. ENDCASE @Ö╥2 8P ?RETURN (retval) *-- EOP: _Empty @¥3 -N 8V * 8BPROCEDURE _DbfEmpty *-- Error box if Lookup .dbf is empty *-- Save the screen and setup window PRIVATE ALL LIKE l?_* DEFINE WINDOW u_error FROM 5,15 TO 11,55 SAVE SCREEN TO u_error DO _Shadowg WITH 5,15,11,55 *-- Activate the window and put up error message ACTIVATE WINDOW u_error lc_fpath = SET("fullpath") SET FULLPATH OFF @ 1,2 SAY "Lookup table: " + SUBSTR( DBF(),3) + " is empty!" @ 2,2 SAY " @½┌4 Press any key ...?" ln_errorky = INKEY(10) *-- Restore the screen and clean up SET FULLPATH &lc_fpath. RELEASE WINDOW u_error RESTORE SCREEN FROM u_error RELEASE SCREEN u_error RETURN *-- EOP: _DbfEmpty @╕Σ5 @║■5 j @╝$6 8F @╝$6 8I 0}i POPUPS 87 8= 8. 22P .)P @╝$6 @╝$6 @╛v6 9_ƒ @┐ò6 9╩₧ @└├6 /ni ß 9Φ @┴7 ] 9Φ @┬>7 ½ W 9╤5 @─Ö7 % /═P 9æB /ni @─Ö7 @╞ε7 -N 8V * 8BFUNCTION @╚)8 = 9┴ú ? @╔P8 8P ?PARAMETER fld_name PRIVATE ALL LIKE l?_* PRIVATE fld_name, rtn_fld ll_return = .T. && Declare return variable for function ln_row = ROW() && Current Row of Get ln_col = COL() && Current Column of Get rtn_fld = fld_name && Current Value of Get @╙▓9 S 9τÑ 0S IF EMPTY(fld_name) && Not a required field RETURN (.T.) && if null field ENDIF @╪h: @┘ä: /;S ON KEY LABEL @█¡: F1? @▄╔: @▌σ: /nS ON KEY LABEL @▐; F5? @▀,; @αH; /íS ON KEY LABEL @ßo; F9? @Γï; lc_alias = ALIAS() && Grab current workarea IF ln_row = @Ω±< ß ? .AND. (ln_col >= ] ? .AND. ln_col <= ] A ? ) ll_edit = .T. ELSE ll_edit = .F. ENDIF @≡ê= S 9 ú @±┴= S 9 ñ 8T ! @≤> # 5$U SELECT (" @⌡@> 8= < 2U 8< A @÷Ä> .U @÷Ä> @÷Ä> ?") @≈═> .UV @≈═> SELECT SELECT() IF FILE(" @∙∙> ?.dbf") USE @·? ? ORDER ! ? @√>? 8= < 2⌐U AGAIN @²ë? .╜U @²ë? @ ╜? ELSE SET MESSAGE TO " @ß? ?.dbf not found!? Press any key ...?" ll_wait = INKEY(0) SET MESSAGE TO RETURN .F. ENDIF @\@ lc_exact = SET("EXACT") && Store value of EXACT SET EXACT ON @ ╫@ 0;W lc_near = SET("NEAR") && Store value of NEAR SET NEAR ON && Do "soft" seek into "BROWSE" @éA @¥A @ 80 C2óW fld_name = IIF( EMPTY( TRIM( fld_name)), fld_name, TRIM( fld_name)) @B SEEK fld_name SET EXACT &lc_exact. && Restore SET EXACT to org. value @æB 0ZX SET NEAR &lc_near. && Restore SET NEAR to org. value @ C IF .NOT. FOUND() @2C S 9ÖÑ @ oC /åZ DEFINE POPUP @ ¡C ? FROM @ ╤C 6)Y @ D ?, ? ; TO @!GD ?, J 86 ? ; @#óD .äY @#óD ?, ? ; TO @$αD ?, J 86 ? ; @%"E PROMPT FIELD @&AE S 9τñ ? ; MESSAGE @'nE 3[Select:]+CHR(17)+CHR(196)+CHR(217)+[ Cancel:Esc]? ON SELECTION POPUP @)ïE ? DEACTIVATE POPUP @+┴E @ 80 C2{Z KEYBOARD TRIM( fld_name ) CLEAR @.#F @1îF .╝[ @1îF S 9Sº /![ S 9w⌐ /![ IF RECCOUNT() = 0 DO _DbfEmpty ll_return = .F. ENDIF IF ll_return @D╣H 8P@EΣH DEFINE WINDOW @FI ? FROM @G(I S 9⌐ @H_I /ü[ 9» @IÆI @J»I .¬[ @J»I 14,0 TO 20,798B@KßI @KßI @L I ? @NJ SAVE SCREEN TO @O J ? @QAJ S 9ܪ @RuJ /$] /å\ 5Shadow coordinates exceed column 79 - move field left9æB /å\ DO _Shadowg WITH @T╠J J 9T½ @UK @V K 0 ] DO _Shadowg WITH @X_K S 9⌐ @YÖK /Φ\ S 9 ¼ @Z╓K @[÷K .] @[÷K 14,0,20,778B@\(L @\(L @]IL >@]IL @^gL @_éL /┼] ACTIVATE POPUP @`ºL ? rtn_fld = PROMPT() && Get user choice from Picklist RELEASE POPUP @dM ? @e.M .4b @e.M lc_message = @gKM 3[Select:]+CHR(17)+CHR(196)+CHR(217)+[ Cancel:Esc]? +; @hmM 0[ Pan Left:F3 Pan Right:F4 Move Window:F7]? lc_message = IIF("500" $ VERSION(1), ; LEFT( lc_message, LEN( lc_message) - 17) , lc_message) SET MESSAGE TO lc_message ON KEY LABEL Ctrl-M KEYBOARD( CHR( kn_CtrlEnd)) CLEAR && Same as Enter send Ctrl-W @p}N S 9 ¿ @q┴N /≈_ IF FILE(" @rΘN S 9E» 82 .FMT?") SET FORMAT TO @s,O S 9E» 82 ? ENDIF @vwO IF .NOT. "500" $ VERSION(1) ON KEY LABEL @x│O F7? DO _MoveWind WITH WINDOW(), lc_message ENDIF BROWSE WINDOW @{P ? NOMENU COMPRESS NOFOLLOW NODELETE LOCK 1 @|QP S 9Sº /a @}åP S 9w⌐ /a @~╗P 8= @√P < 2,a @√P ; NOAPPEND NOEDIT @é7Q @âRQ /Ra ; FORMAT @åìQ @ç¿Q S 9w⌐ /ûa ; FIELDS @ëαQ 9 « ? @ï\R @ÿ┤S /┬a SET FORMAT TO @ÜεS ON KEY LABEL @¢ T F7? ON KEY LABEL Ctrl-M SET MESSAGE TO RELEASE WINDOW @ƒVT ? @áuT RESTORE SCREEN FROM @óôT ? @¿sU S 9Sº /▒b S 9w⌐ /▒b @½aV 8P@¼çV ? ENDIF @«öV IF LASTKEY() <> kn_esc @▒═V 0c rtn_fld = @▓≤V S 9τñ 9Æ ? @│'W @┤CW S 9τÑ /»c IF EMPTY(rtn_fld) && Is a required field, so return .F. ll_return = .F. ELSE @╣ΩW 8P@║X IF ll_edit @ @┴IY ?, ? GET rtn_fld @┬~Y 9B /4d PICTURE " @├úY 9ó@ " @─╔Y 9j; ?@┼ΓY ENDIF REPLACE @╩QZ < 9Æ ?-> = 9Æ ? WITH @╦£Z @ 80 C1┼d @╠╥Z BROWSES 87 8= 8. 22ßd @╠╥Z rtn_fld @╬([ .■d @╬([ VAL(rtn_fld) @╨Q[ ll_return = .T. @╙à[ S 9τÑ @╘╗[ /Te 8P ? ENDIF @╓ε[ ELSE ll_return = .F. @┌,\ S 9τÑ 0f IF EMPTY(fld_name) && Not a required field, so return .t. ll_return = .T. ENDIF @ß█\ ENDIF ELSE ll_return = .T. ENDIF @τ#] S 9≡¬ / g IF ll_return DO U_ @ΩV] = 8< 8> ? WITH ll_edit, @δÆ] @ 80 C1╫f @∞╚] BROWSES 87 8= 8. 22≤f @∞╚] rtn_fld @ε ^ .g @ε ^ VAL(rtn_fld) @≡G^ ENDIF @≥j^ @⌠u^ # 4Cg USE @≈ñ^ SELECT (lc_alias) && Go back to the edit file @·±^ /h ON KEY LABEL @√_ F1? DO @ⁿ"_ ( 8< 88 8> H_ ? WITH VARREAD() && Call Help code @²o_ @■w_ /ùh ON KEY LABEL @ î_ F5? DO @ ¼_ ( 8< 88 8> R_ ? WITH VARREAD() && Call Recalc code @√_ @` / i ON KEY LABEL @` F9? DO @4` ( 8< 88 8> Z_ ? WITH VARREAD() && Call Zoom code @ü` @ë` 8P ?RETURN (ll_return) *-- EOP: @⌐` = 9┴ú ? @ ╥` @ Φ` ,.▌O @ Φ` @ ²` @0a <@Xa <@Xa @ña .▒n @ña : @Ωa -N 8V * 8BPROCEDURE _Shadowg && displays shadow that grows @]b 8P ?PARAMETER x1,y1,x2,y2 PRIVATE x1,y1,x2,y2 x0 = x2+1 y0 = y2+2 dx = 1 dy = (y2-y1) / (x2-x1) DO WHILE x0 <> x1 .OR. y0 <> y1+2 @ x0,y0 FILL TO x2+1,y2+2 COLOR n+/n x0 = IIF(x0<>x1,x0 - dx,x0) y0 = IIF(y0<>y1+2,y0 - dy,y0) y0 = IIF(y0<y1+2,y1+2,y0) ENDDO @&çc 8P ?RETURN *-- EOP: _Shadowg @*┤c -N 8V * 8BPROCEDURE _dbtrap && error routine for SET("dbtrap") @-Vd (ERROR - SET DBTRAP OFF to use this FORM.86@.~d ( =@/╖d ( =@0≡d 8PSET CURSOR OFF PRIVATE ALL LIKE l?_* SAVE SCREEN TO _dbtrap DO _Shadowg WITH 10, @5Ge ?, 15, ? DEFINE WINDOW _dbtrap FROM 10, @6re ? TO 15, ? DOUBLE ACTIVATE WINDOW _dbtrap lc_error = " @8╟e (ERROR - SET DBTRAP OFF to use this FORM.?" lc_error2 = " @9Γe Press any key ...?" @ 1, CENTER( lc_error, @:√e ?) SAY lc_error @ 2, CENTER( lc_error2, @;2f ?) SAY lc_error2 lc_wait = INKEY(10) RELEASE WINDOW _dbtrap RESTORE SCREEN FROM _dbtrap RELEASE SCREEN _dbtrap SET CURSOR ON @A█f 8P ?RETURN *-- EOP: _dbtrap @Dg <@Eg <@Eg @Hug .=o @Hug : @OÄh /-o 0o @P⌐h 9÷D 0o @Q╔h ;@RΓh @Ti 9≈E @U2i @Wqi 9Oo @Xåi @Yôi <@Z£i <@Z£i @]Φi .w @]Φi : @`3j ( 8< 88 8>@aij H_ -N 8V * 8B PROCEDURE @dòj ? @e¼j 8P ?*-- Activates the HELP window PARAMETER lc_var PRIVATE ALL LIKE l?_* IF .NOT. FILE(" @i k 82 ?.dbf") *-- Help file has been deleted or can't be found RETURN ENDIF SET CURSOR OFF ON KEY LABEL @oìk F1? *-- Select workarea and open Help dbf lc_area = ALIAS() SELECT SELECT() USE @t÷k 82 ? ORDER fld_name NOUPDATE && Open HELP .dbf lc_exact = SET("EXACT") && Store value of EXACT SET EXACT ON SEEK lc_var SET EXACT &lc_exact. IF FOUND() && If found show Help ln_t = 5 ln_l = 6 ln_b = 15 ln_r = 74 DEFINE WINDOW @Ç!m 8> ? FROM ln_t+1, ln_l+2 TO ln_b-1, ln_r-2 NONE ON ERROR lc_error = error() SAVE SCREEN TO @éÅm 8> ? *-- Make Help Box DO _Shadowg WITH ln_t, ln_l, ln_b, ln_r @ ln_t+1, ln_l+1 CLEAR TO ln_b-1, ln_r-1 @ ln_t, ln_l TO ln_b, ln_r DOUBLE ln_memline = SET("MEMO") SET MEMOWIDTH TO 65 IF MEMLINES(fld_help) > 9 @ ln_t+1,ln_r SAY CHR(24) @ ln_b-1,ln_r SAY CHR(25) SET CURSOR ON ENDIF lc_string = CHR(185)+ [ Help for ] + TRIM(fld_headng) +[ ] + CHR(204) lc_message = IIF( MEMLINES(fld_help) > 9 , ; " @Ælo 5Scroll thru Help:Ctrl-Home Exit Viewing Help:Esc ?" , ; "" ; ) @ ln_t,CENTER(lc_string,80) SAY lc_string @ 0,0 GET fld_help OPEN WINDOW @ÖMp 8> ? MESSAGE lc_message READ SET MEMOWIDTH TO ln_memline ON ERROR RELEASE WINDOW @í~q 8> ? RESTORE SCREEN FROM @óúq 8> ? RELEASE SCREEN @ú═q 8> ? ENDIF SET MESSAGE TO SET CURSOR ON USE && Close help file SELECT (lc_area) && Back to edit work area ON KEY LABEL @⌐⌐r F1? DO ? WITH VARREAD() @¬πr 8P ?RETURN *-- EOP: @¼√r ? @├gu <@─qu <@─qu @╟╜u .╪¢ @╟╜u : @╔ v * -N 8V 8BPROCEDURE _Cut @╠Ov 8P ?*-- Cut data from a field PRIVATE ALL LIKE l?_* lc_field = VARREAD() lc_type = TYPE( lc_field) SAVE SCREEN TO _cut DO CASE CASE lc_type = "C" gc_cut = TRIM( &lc_field.) CASE lc_type $ "NF" ln_cnt = 0 ln_number = &lc_field. DO WHILE _numdec( ln_number) ln_number = ln_number * 10 ln_cnt = ln_cnt + 1 ENDDO gc_cut = LTRIM( STR( &lc_field., 14, ln_cnt)) CASE lc_type = "D" gc_cut = DTOC( &lc_field.) CASE lc_type = "L" gc_cut = IIF( &lc_field., "Y", "F") CASE lc_type = "M" gc_cut = SUBSTR( &lc_field., 1, 254) ln_len = LEN( TRIM( gc_cut)) ln_cnt = 1 DO WHILE ln_cnt <= ln_len *-- Get rid of MODI COMM's soft carriage returns characters IF ASC( SUBSTR( gc_cut, ln_cnt, 1)) = 141 .OR.; ASC( SUBSTR( gc_cut, ln_cnt, 1)) = 10 .OR.; ASC( SUBSTR( gc_cut, ln_cnt, 1)) = 13 IF ASC( SUBSTR( gc_cut, ln_cnt, 1)) = 13 gc_cut = STUFF( gc_cut, ln_cnt, 1, " ") ELSE gc_cut = STUFF( gc_cut, ln_cnt, 1, "") ENDIF ln_len = LEN( TRIM( gc_cut)) && Length of string can change LOOP ENDIF ln_cnt = ln_cnt + 1 ENDDO ENDCASE lc_message = SUBSTR( gc_cut, 1, @√O{ * - cut to scrap. Edit:Ctrl-F5 Paste:F886O ?) + " * - cut to scrap. Edit:Ctrl-F5 Paste:F8?" @ⁿ⌐{ 1≡| * 2A} @ⁿ⌐{ @ @²▌{ ?, CENTER(lc_message, P ?) SAY lc_message @■ | .k} @■ | SET MESSAGE TO lc_message @ F| ln_key = INKEY(2.5) gc_cut = gc_cut + SPACE( 254 - LEN( gc_cut)) SET MESSAGE TO RESTORE SCREEN FROM _cut RELEASE SCREEN _cut @╒| 8P ?RETURN @ ∩| -N 8V * 8BPROCEDURE _Paste @ +} 8P ?*-- Cut data to a field PRIVATE ALL LIKE l?_* lc_field = VARREAD() && Grab field we left from lc_type = TYPE( lc_field) && Grab the data type lc_cut = TRIM( gc_cut) && Trim blanks from cut data IF lc_type = "D" *-- Remove "/" from character data so that KEYBOARD will work on a *-- date field lc_cut = STUFF(lc_cut, AT("/", lc_cut), 1, "") && Get rid of first "/" lc_cut = STUFF(lc_cut, AT("/", lc_cut), 1, "") && Get rid of second "/" ENDIF *-- Keyboard cut data into the field DO CASE CASE lc_type $ "NFD" *-- Start at the beginning of the field and clear it. KEYBOARD ( CHR(kn_home) + CHR(kn_CtrlY) + lc_cut) CLEAR CASE lc_type <> "M" *-- Paste at the location of the cursor KEYBOARD (lc_cut) CLEAR OTHERWISE IF LEN( &lc_field.) > 0 *-- Pad space to offset "scrap" from end of memo lc_cut = " " + lc_cut ENDIF REPLACE &lc_field. WITH lc_cut ADDITIVE && Replace into memo field ln_keyboard = CHR(kn_ctrlhme) + CHR(kn_ctrlpdn) + ; CHR(kn_space) + CHR(kn_bakspce) && Makes EDIT think data has changed KEYBOARD (ln_keyboard) CLEAR && Move to bottom of memo ENDCASE @,ïé 8P ?RETURN @/Ñé -N 8V * 8BPROCEDURE _Edpaste @1πé 8P ?*-- Edit Cut data PRIVATE ALL LIKE l?_* lc_deli = SET("DELIMITERS") lc_form = SET("FORMAT") SET DELIMITERS OFF SET FORMAT TO SAVE SCREEN TO _edpaste DEFINE WINDOW _edpaste FROM @;╡â 1┴ä * 1┴ä @<Θâ ?,0 TO ?,79 @> ä .±ä @> ä ?,0 TO ?,79 @?Jä lc_message = " @AYä &Editing paste string. Move Window:F7?" lc_message = IIF("500" $ VERSION(1), ; LEFT( lc_message, LEN( lc_message) - 17) , lc_message) IF .NOT. "500" $ VERSION(1) ON KEY LABEL @Eà F7? DO _MoveWind WITH WINDOW(), lc_message ENDIF ACTIVATE WINDOW _edpaste SET MESSAGE TO lc_message @ 0,0 GET gc_cut PICTURE "@S78" READ ON KEY LABEL @K¡à F7? SET MESSAGE TO RELEASE WINDOW _edpaste RESTORE SCREEN FROM _edpaste RELEASE SCREEN _edpaste SET DELIMITERS &lc_deli. SET FORM TO (lc_form) @RZå 8P ?RETURN @Utå -N 8V * 8BPROCEDURE _MoveWind PARAMETER wind_name, message @X╤å 8P ?*---------------------------------------------------------- *- Move the &wind_name. window based on arrow keys. Any *- other key stops the move process. *---------------------------------------------------------- ON KEY LABEL @]┴ç F7? ON ERROR ?? CHR(7) SET MESSAGE TO DO WHILE .T. SET MESSAGE TO @aê ;[Position: ]+CHR(27)+CHR(26)+CHR(25)+CHR(24)+[ Exit: Esc]? ln_keyhit = INKEY(0) IF ln_keyhit <> 0 DO CASE CASE ln_keyhit = kn_RghtArw && Right arrow MOVE WINDOW &wind_name. BY 0,1 CASE ln_keyhit = kn_UpArw && Up arrow MOVE WINDOW &wind_name. BY -1,0 CASE ln_keyhit = kn_LeftArw && Left arrow MOVE WINDOW &wind_name. BY 0,-1 CASE ln_keyhit = kn_DownArw && Down Arrow MOVE WINDOW &wind_name. BY 1,0 OTHERWISE EXIT ENDCASE ENDIF ENDDO ON ERROR ON KEY LABEL @sOè F7? DO _MoveWind WITH WINDOW(), "&message." SET MESSAGE TO message @u½è 8P ?RETURN *-- EOP: _MoveWind @y┘è -N 8V * 8BFUNCTION _numdec PARAMETER ln_dec IF ln_dec - INT(ln_dec) > 0 RETURN .T. ELSE RETURN .F. ENDIF *-- EOF: _numdec @ââï -N 8V * 8BFUNCTION Center *-- UDF to center a string. *-- lc_string = String to center *-- ln_width = Width of screen to center in *-- *-- Ex. @ 15,center(string,80) say string *-- Will center the <string> withing 80 columns PARAMETER lc_string, ln_width RETURN ((ln_width/2)-(LEN(lc_string)/2)) *-- EOP: Center() @ÅΘî -N 8V * 8BPROCEDURE _key_vars *---------------------------------------------------------------------------- * Enumerate the key values for LASTKEY() and INKEY() functions * * To check for the Escape key after the INKEY() * * ln_key = INKEY(0) && Wait for any key press * IF ln_key = kn_Esc && Escape was pressed * DO esc_hand * ENDIF * *---------------------------------------------------------------------------- IF TYPE("kn_end") = "U" @¥╓Ä 8P ?PUBLIC kn_End , kn_Tab , kn_Enter , kn_CtrlEnd , kn_CtrlY , ; kn_Home , kn_Esc , kn_CtrlHme , kn_CtrlPDn , kn_CtrlPUp , ; kn_Space , kn_BakSpce , kn_RghtArw , kn_UpArw , kn_LeftArw , ; kn_DownArw , kn_PgDn , kn_PgUp , kn_F1 , kn_Del , ; kn_CtrLArw , kn_CtrRArw , kn_f7 , kn_ShftF7 kn_End = 2 && Ctrl-B kn_Tab = 9 && Ctrl-I kn_Enter = 13 && Ctrl-M kn_CtrlEnd = 23 && Ctrl-W kn_CtrlY = 25 kn_Home = 26 && Ctrl-Z kn_Esc = 27 && Ctrl-[ kn_CtrlHme = 29 && Ctrl-] kn_CtrlPDn = 30 && Ctrl-PgDn kn_CtrlPUp = 31 && Ctrl-PgUp kn_Space = 32 kn_BakSpce = 127 kn_RghtArw = 4 && Ctrl-D kn_UpArw = 5 && Ctrl-E kn_LeftArw = 19 && Ctrl-S kn_DownArw = 24 && Ctrl-X kn_PgDn = 3 && Ctrl-C kn_PgUp = 18 && Ctrl-R kn_F1 = 28 && Ctrl- kn_Del = 7 && Ctrl-G kn_CtrLArw = 1 && Ctrl-A kn_CtrRArw = 6 && Ctrl-F kn_F7 = -6 kn_ShftF7 = -26 *---------------------------------------------------------------------------- * Enumerate the key values for READKEY() * * To check to see if data has changed * * IF READKEY() >= rn_updated && Data has changed * REPLACE name WITH m->name * ENDIF * * To check for page down regardless of data change * * ln_readkey = READKEY() * IF ln_readkey = rn_PgDn .OR. ln_readkey = rn_PgDn+rn_Updated * DO pgdn_hand * ENDIF * *---------------------------------------------------------------------------- PUBLIC rn_Updated , rn_LeftArw , rn_BakSpce , rn_RghtArw , rn_CtrLArw , ; rn_CtrRArw , rn_UpArw , rn_DownArw , rn_PgUp , rn_PgDn , ; rn_Esc , rn_CtrlEnd , rn_Enter , rn_EnterA , rn_CtrlHme , ; rn_CtrlPUp , rn_CtrlPDn , rn_F1 rn_Updated = 256 && Add to rn_key value for updated condition rn_LeftArw = 0 && Includes Ctrl-S and Ctrl-H - backward one character rn_BakSpce = 0 && backward one character rn_RghtArw = 1 && Includes Ctrl-D and Ctrl-L - forward one character rn_CtrLArw = 2 && Ctrl-Left Arrow, includes Ctrl-A - previous word rn_CtrRArw = 3 && Ctrl-Right Arrow, includes Ctrl-F - next word rn_UpArw = 4 && Includes Ctrl-E and Ctrl-K - backward one field rn_DownArw = 5 && Includes Ctrl-J and Ctrl-X - forward one field rn_PgUp = 6 && Includes Ctrl-R - backward one screen rn_PgDn = 7 && Includes Ctrl-C - forward one screen rn_Esc = 12 && Includes Ctrl-Q - Terminate w/o save rn_CtrlEnd = 14 + rn_updated && Includes Ctrl-W - Terminate w/save rn_Enter = 15 && Includes Ctrl-M RETURN of fill last record rn_EnterA = 16 && Enter at the beginning of a record in APPEND rn_CtrlHme = 33 && Ctrl-Home - Menu display toggle rn_CtrlPUp = 34 && Ctrl-PgUp - Zoom Out rn_CtrlPDn = 35 && Ctrl-PgDn - Zoom In rn_F1 = 36 && Help function key @σA¢ 8P ?ENDIF RETURN *-- EOP: _key_vars @δt¢ <@∞~¢ <@∞~¢ @≡╠¢ .╕₧ @≡╠¢ : @⌡¼£ 82 8< 88* @÷∙£ _H .DBF8W /l£ .DBT8W /l£ @ⁿl₧ @²w₧ .C¥ @²w₧ ;Enter dbf name for help support or press ENTER to continue 8X@■╙₧ 82 8< 88* @ ƒ _H .DBF8W /4¥ .DBT8W /4¥ @}ƒ >@}ƒ @àƒ @àƒ @îƒ >j @╠ƒ 8F @╠ƒ 8I 0e₧ 9╩₧ @≥ƒ /▒¥ @ á @5á # # >@5á @ [á S 9┌⌐ @ Çá /Φ¥ @ ùá >@ ùá @┐á L 9Ŭ @τá / ₧ @ í >@ í @0í S 9≡¬ @Yí /V₧ @sí >@sí @üí ,.f¥ @üí @Åí 0û₧ 0û₧ 0û₧ 0û₧ /ú₧ @╒í ;@∩í ;@ ó <@ ó @ Vó .Mƒ @ Vó : @ ╫ó POPUPS ü 87 8= 8. 21+ƒ @!ú BROWSES ü 87 8= 8. 228ƒ @"Sú ;@$mú ;@&êú <@&êú @)╘ú .╙ƒ @)╘ú : @+Sñ ß ü 9Φ 4╛ƒ @,Åñ @-╗ñ ,@.╬ñ ;@/▀ñ @0Θñ ;@1⌠ñ <@1⌠ñ @4@Ñ . í @4@Ñ : @<√ª 8= 8.@='º 23á @?]º ;@@wº @Bຠ<@C▓º 8<@D┌º 86 <@F ¿ @G4¿ 86 @I£¿ @J▐¿ 86@K,⌐ 8<@Lg⌐ 9 í @M£⌐ 8<@N╝⌐ 8T@O╘⌐ ;@Q·⌐ <@Q·⌐ @TF¬ . ú @TF¬ : @WѬ 86@X╟¬ 8=@Zε¬ @Zε¬ @\½ 3Ωó ORDER 8< 8. 1Ωó @]H½ REQ 8< 8. 1Ωó @^é½ SHADOW 8< 8. 1Ωó @_╝½ FIELDS 8< 8. 1Ωó @`÷½ UPDATE 8< 8. 1Ωó @a0¼ FORMAT 8< 8. 1Ωó @bj¼ FROM 8< 8. 1Ωó @cñ¼ REPLACE 8< 8. 1Ωó @dß¼ ZOOM 8< 8. 1Ωó @h=¡ *.[í @h=¡ @iF¡ @jZ¡ <@jZ¡ @qw« .»ú @qw« : @|░ -> @}░ = 9σƒ @~l░ 8/@▓░ 8.@Ç°░ <@éE▒ 9Æ ;@âg▒ <@âg▒ @å│▒ .°ú @å│▒ : @êΘ▒ 8< l_ 9Æ ;@ë ▓ <@ë ▓ @îl▓ .╒ñ @îl▓ : @ö┤│ ORDER 9σƒ @ò┤ 8.@û#┤ 2Æñ @ù?┤ 86 8<@ÿç┤ @ÖÆ┤ .╗ñ @ÖÆ┤ 8<@Ü╟┤ @Ü╟┤ @¢╙┤ > 9Æ ;@£÷┤ <@£÷┤ @ƒB╡ .çÑ @ƒB╡ : @ºæ╢ -> @¿╕╢ 9σƒ @⌐╖ 8.@½%╖ 2GÑ .kÑ @½%╖ < @½%╖ @¡x╖ 9Æ ;@«Ü╖ <@«Ü╖ @▒µ╖ .╒Ñ @▒µ╖ : @│ ╕ 9τñ 8< l_ 8> ;@┤e╕ <@┤e╕ @╖▒╕ .êª @╖▒╕ : @╣ ╣ REQ 8= 8. /ª .,ª @╣ ╣ @╣ ╣ 0}ª @║Z╣ REQ" 8= 8. /Xª .kª @║Z╣ @║Z╣ @╗ö╣ /~ª @╗ö╣ ;@╝ñ╣ <@╝ñ╣ @┐≡╣ .Aº @┐≡╣ : @┴G║ SHADOW 8= 8. /╧ª .Γª @┴G║ @┴G║ 06º @┬ç║ SHADOW" 8= 8. /º .$º @┬ç║ @┬ç║ @├─║ /7º @├─║ ;@─╘║ <@─╘║ @╟ ╗ .·º @╟ ╗ : @╔z╗ UPDATE 8= 8. /êº .¢º @╔z╗ @╔z╗ 0∩º @╩║╗ UPDATE" 8= 8. /╩º .▌º @╩║╗ @╩║╗ @╦≈╗ /≡º @╦≈╗ ;@╠╝ <@╠╝ @╧S╝ .⌐ @╧S╝ : @╙ß╝ FORMAT 8= 8. /A¿ .T¿ @╙ß╝ @╙ß╝ @╓9╜ /±¿ S ü FORMAT 9σƒ @╫x╜ . 8. /¥¿ .╡¿ @╫x╜ .fmt@╫x╜ @╪╦╜ 8W /╘¿ .τ¿ @╪╦╜ @╪╦╜ @┘╛ @█╛ ;@▄)╛ <@▄)╛ @▀u╛ .e⌐ @▀u╛ : @ß═╛ FROM 8= 8. /I⌐ .\⌐ @ß═╛ @ß═╛ ;@Γ┐ <@Γ┐ @σQ┐ .╚⌐ @σQ┐ : @τ¡┐ FIELDS 8= 8. /¼⌐ .┐⌐ @τ¡┐ @τ¡┐ ;@Φτ┐ <@Φτ┐ @δ3└ .}¬ @δ3└ : @φ₧└ ZOOM 8= 8. / ¬ . ¬ @φ₧└ @φ₧└ 0r¬ @ε▄└ ZOOM" 8= 8. /M¬ .`¬ @ε▄└ @ε▄└ @∩┴ /s¬ @∩┴ ;@≡'┴ <@≡'┴ @≤s┴ .▐¬ @≤s┴ : @⌡╒┴ RECALC 8= 8. /┬¬ .╒¬ @⌡╒┴ @⌡╒┴ ;@÷┬ <@÷┬ @∙^┬ .B½ @∙^┬ : @√┐┬ REPLACE 8= 8. /&½ .9½ @√┐┬ @√┐┬ ;@ⁿ²┬ <@ⁿ²┬ @ I├ . ¼ @ I├ : @ ¢├ 6╕½ @├├ ?, ?, ?, 86 ? @(─ .²½ @(─ ?, ?, ?, 86 ? @ç─ @ô─ <@í─ <@í─ @ φ─ . « @ φ─ : @▒┼ FROM 9σƒ 8= 8T@·┼ 0g¼ ;@·┼ @F╞ TO 8. < 8T@û╞ , 8. <@╧╞ , 8. 8<@#╟ TO 8. 8< 8T@p╟ , 8. <@ ┌╟ 8? 5T¡ .p¡ @ ┌╟ @ ┌╟ @ ╚ , 8. 8<@ å╚ 8? O 5╗¡ .╙¡ @ å╚ M 8; @ å╚ @"╢╚ , , , 8B@#Φ╚ <@$÷╚ <@$÷╚ @'B╔ .±« @'B╔ : @+╙╔ S ü FIELDS 9σƒ @, ╩ ! 86@.-╩ S ü 9Sº @0Ü╩ /▐« ! 8= 8= 8. <@1÷╩ /R@2 ╦ ! 8= 8= 8. 8< ;@4k╦ ;@6î╦ <@6î╦ @9╪╦ .3» @9╪╦ : @;;╠ S ü FROM 9σƒ ;@<m╠ <@<m╠ @?╣╠ .y» @?╣╠ : @A ═ FORMAT 9σƒ 9Æ @BV═ ;<@BV═ @D`═ .╜» @D`═ : @F╬═ ZOOM 9σƒ 9Æ ;@G╬ <@G╬ @I ╬ .!╖ @I ╬ : @KG╬ ( 8< 88 8>@L|╬ Z_ 0'░ @MÉ╬ ;@Nƒ╬ @O¿╬ * -N 8V 8BPROCEDURE @Q╪╬ ? *-- Branch to another EDIT form based on lc_var PARAMETER lc_var PRIVATE ALL LIKE l?_* ON KEY LABEL @VK╧ F9? SAVE SCREEN TO @Wg╧ ? lc_area = ALIAS() ll_edit = .F. SELECT SELECT() DO CASE @\┐╧ j @]▄╧ 8F @]▄╧ 8I 0┤ S 9┌⌐ @^╨ /≥│ S 9 ú CASE lc_var = " @`2╨ = ?" @aV╨ # 4ì▓ IF FILE(" @bå╨ ?.dbf") USE @c⌐╨ ? ORDER S 9 ñ 8T ? @dδ╨ @ 80 C2é▓ lc_var = IIF( EMPTY( TRIM( lc_var)), lc_var, TRIM( lc_var)) @fd╤ @hç╤ .│ @hç╤ SELECT (" @iè╤ 8= < 2Ω▓ @j─╤ 8< A @k╥ .√▓ @k╥ @k╥ ?") @lO╥ SEEK &lc_area.->&lc_var. IF FILE(" @oë╥ S 9ï» 82 .FMT?") SET FORMAT TO @p╫╥ S 9ï» 82 ? ENDIF ll_edit = .T. @sJ╙ # 4δ│ ENDIF @uç╙ @vÿ╙ @w¼╙ ,.P▒ @w¼╙ OTHERWISE KEYBOARD CHR( kn_CtrlHme ) CLEAR && Gets user into memo field ENDCASE IF ll_edit EDIT NEXT 1 && Edit the Zoomed record ENDIF @üü╘ # 4δ┤ USE @â░╘ SELECT (lc_area) && Back to edit work area RESTORE SCREEN FROM @à╒ ? RELEASE SCREEN @å(╒ ? @çD╒ /Γ╡ ON KEY LABEL @êY╒ F1? DO ( 8< 88 8> H_ ? WITH VARREAD() @ë»╒ @è╣╒ /M╢ ON KEY LABEL @ï╨╒ F5? DO ( 8< 88 8> R_ ? WITH VARREAD() @î(╓ ON KEY LABEL @ì3╓ F6? DO _Cut ON KEY LABEL @ÄV╓ F8? DO _Paste ON KEY LABEL @Å}╓ Ctrl-F5? DO _Edpaste ON KEY LABEL @É¿╓ F9? DO ? WITH VARREAD() RETURN *-- EOP: @ÆΩ╓ ? @ô ╫ <@ô ╫ @ò ╫ .Ω╗ @ò ╫ : @ù:╫ ( 8< 88 8>@ÿq╫ R_ 0ï╖ @Öç╫ ;@Üû╫ @¢ƒ╫ 0╤╖ @£┤╫ 9÷D 0╛╖ @¥╬╫ ;@₧ß╫ @á ╪ 9≈E @í ╪ @ó(╪ * -N 8V 8BPROCEDURE @ñX╪ ? *-- Recalculate calculated fields PARAMETER lc_var PRIVATE ALL LIKE l?_* ON KEY LABEL @¿╜╪ F5? @¬▌╪ .tmp8s@½ⁿ╪ 8v @¼┘ 4ε╕ DO CASE CASE lc_var $ " @»4┘ ?" @░O┘ 8P@▒d┘ @▓l┘ @│ê┘ j @┤á┘ 8F @┤á┘ 8I 0╗ 9_ƒ @╡╕┘ /¥╣ 8v @╢╥┘ 8P@╖τ┘ ? CASE lc_var $ " @╣∞┘ ?" @║┌ 8P@╗ ┌ @╝&┌ ½ W 9╤5 @╜n┌ % ? 2∙║ L 9Ŭ /∙║ *-- Calculated field: @╛¡┌ = 9Æ ? - L ? @ @┐≡┌ ß 9Φ ?, ] 9Φ ? SAY @┴l█ M @┬ÿ█ 8F @┬ÿ█ 8I 0₧║ M ?@├│█ ,.x║ @├│█ @╞▄ 9B /ß║ PICTURE " @╟2▄ 9hA " @╚U▄ @╔c▄ 9j; ? @╦y▄ @╠â▄ ,.#╣ @╠â▄ @═ì▄ 4L╗ @╬ñ▄ 8P@╧▒▄ ?ENDCASE @╤╜▄ ON KEY LABEL @╙╚▄ F5? DO ( 8< 88 8> R_ ? WITH VARREAD() RETURN *-- EOP: @╒(▌ ? @╓@▌ 8t @╫O▌ .tmp8{@╪p▌ ;@╪p▌ @┌z▌ .X╝ @┌z▌ : @▄ß▌ /P╝ .tmp8D@▌ ▐ " 8B@▐=▐ .fmt8D@▀]▐ @αe▐ <@αe▐ @π▒▐ .▌┴ @π▒▐ : @τL▀ 0û╝ @Φc▀ ;@Θr▀ @δ}▀ @φ£▀ j @ε╡▀ 8F @ε╡▀ 8I 0╞┴ S 9≡¬ @∩√▀ /╖┴ = 8< 88 8> U_ @≡Lα * -N 8V 8BPROCEDURE @≥Çα ? PARAMETER is_edit, key_field *-- Update Look'ed up fields for @⌠┬α = 9Æ ? @÷ß POPUPS 87 8= 8. /÷╜ SEEK key_field @∙Sß @·`ß 8P@√pß 9∩┴ @ⁿôß 9╟─ @²╡ß 8P@■┼ß ? IF is_edit @┘ß j @÷ß 8F @÷ß 8I 0⌐┴ S ü 9≡¬ /Ü┴ 2Ü┴ @0Γ S ü REPLACE 9σƒ 8=@Γ >@Γ 86 @¬Γ 4W┴ WITH 8. < 8=@ Γ M-> 8= 8.@2π /`┐ M-> 8= 8. 8< @ wπ .q┐ @ wπ @ wπ @ òπ j @ ╝π 8F @ ╝π 8I 0╪└ 8T= 2╔└ @ ·π ½ ü W ü 9╤5 % @ @]Σ ß ü ?, ] ü ? GET @èΣ M-> 8= 8.@┴Σ /7└ ?@²Σ .l└ @²Σ < ü 9Æ ?-> @5σ = ü 9Æ ?@lσ @ëσ 9B /┤└ PICTURE " @╕σ 9ó@ " @▄σ 9j; ?@µ @"µ .╪└ @>µ @ Xµ ,.û┐ @ Xµ @ pµ , 8. 40┴ @ óµ , 8. 8<@ ≥µ @ τ .K┴ @ τ @!,τ @!,τ @"Cτ >.╚╛ @"Cτ ENDIF RETURN *-- EOP: @&lτ ? @(ìτ .⌐┴ @)áτ @*░τ ,.p╛ @*░τ @+┐τ @,╩τ ,.╦╝ @,╩τ @-╘τ <@.▐τ <@.▐τ @1*Φ .╡─ @1*Φ : @5╩Φ @7·Φ S ü REPLACE 9σƒ 8=@:qΘ >@:qΘ 86 @;ÆΘ 4É─ M-> WITH 8. < 8= 8. 0ε├ @=Ω /─┬ REPLACE 8B@?<Ω @@JΩ .≥┬ @@JΩ , ; 8U 8B@AwΩ @AwΩ @BåΩ >< ü 9Æ ->@C║Ω WITH 8. < 8T 9Æ @E/δ WITH 8B@GAδ WITH 8. 8< 8T 9Æ @HÖδ , 8. 4┘├ @I╜δ , 8. <@J÷δ >@J÷δ @L∞ 8B@M ∞ @N)∞ , 8. 4i─ @OP∞ , 8. 8< @Pò∞ 8T 86 2^─ @Rπ∞ >@Rπ∞ @T²∞ .à─ @T²∞ @Uφ >@Uφ @V"φ .9┬ @V"φ @W+φ 8B@X<φ <@YHφ <@YHφ @[Rφ .°╞ @[Rφ : @`÷φ S ü REPLACE 9σƒ 8=@bwε >@bwε 86 @cÿε 4ß╞ M-> WITH 8. < 8= 8.@e∩ /?╞ @fA∩ WITH 8. < 8T 9Æ @hÆ∩ = 8B@j╗∩ WITH 8. 8< 8T 9Æ @k≡ , 8. 4&╞ @l7≡ , 8. <@mp≡ >@mp≡ @n≡ 8B@o£≡ @q¬≡ , 8. 4║╞ @r╤≡ , 8. 8<@s± 8T 86 2»╞ @ud± >@ud± @w~± .╓╞ @w~± @xù± >@xù± @yú± .┼ @yú± @z¼± <@{╕± <@{╕± @}┬± .║╚ @}┬± : @Ç ≥ j 8F @Ç ≥ 8I 0ú╚ ? 2ö╚ IF TYPE("M-> @éK≥ = ?") = "U" m-> @âp≥ = ? = @äï≥ @ 80 C2╥╟ @à║≥ J 86 SPACE( )8B@å⌠≥ @ç≤ @ 80 NF8.@ê7≤ /╚ 08B@ëR≤ @èd≤ @ 80 D2=╚ @ïÆ≤ { }8B@î╢≤ @ì╚≤ @ 80 L2n╚ @Ä÷≤ .F.8B@Å⌠ @É,⌠ 8B@æD⌠ ?ENDIF @öQ⌠ @ò_⌠ ,./╟ @ò_⌠ @ûj⌠ <@ùy⌠ <@ùy⌠ @ < 4 H ccb_form.cod T ╛ ccb_form.def U δ builtin.def :ïM ccb_fext.cod 
