Detta var skriftligt 20 år sedan i FoxPro för DOS. Förmiddag I i det processaa av förbättring till Fox9. Kan du behaga hjälper mig med att få VFP för att ändra färgar på en meny? Något liknande för woulf I objekten för menyval som har ett olikt att färga beroende vad är utvald vid de UPP/NED pilarna. En annan förmiddag för problem som I har, är, när jag vilar markören på något menyobjekt, den hela menyn går bort. Jag vet att inklusive I en radda kodifierar här, men det faktiskt kodifierar i bruk är mycket litet och lätt till isolate.
Thank dig för att vara där och portion mig med min start för problem.
* av huvudsakliga Menu * Environment
* som FRI tillfogas för VFP ALL
* som kommenteras för VFP9 * PARAMETER
* som tillfogas för VFP9 parm1_=. T. parm2_=. FASTSTÄLLD STANDARD för T.
TILL OFF för SAMTALET för c:\crit\CODE den FASTSTÄLLDA UPPSÄTTNINGEN EKAR OFF
OFFENTLIG akl_test OM TYP (”parm1_”) = ”mest akl_test L' = ”Y " ELSE , OM parm1_ = ”testar " mest akl_test = ”else * för * för Y " mest akl_test ELSE = ”N " akl_system för akl_system för ENDIF ENDIF
OFFENTLIG = ”Y "
* om typ (”parm2_”) = ”akl_system för L' * = ”N " om parm2_ = akl_system ”för akl" * = else * ”för y-" * akl_system = UTVECKLING FLAGS för endif
* för endif * ”för n-" *, OM för Y' för mest akl_test $ ”FASTSTÄLLD SKÄRM TILL för FLYKTON för VGA50 den FASTSTÄLLDA ON * FASTSTÄLLDA STATUS UPPSÄTTNINGEN BESKÅDAR den Off * UPPSÄTTNINGEN, TAR TID PÅ TILL UPPSÄTTNINGEN för 48,69 ELSE * TAR TID PÅ TILL 24.69 som vänden tar tid på av för den VFP ENDIF
* ENVIRONMENT modi_memoen =. T. PÅ DEN NYCKEL- ETIKETTEN f12 GÖR _popcal PÅ DEN NYCKEL- ETIKETTEN ctrl+f12 GÖR rundos MED ”COMMAND.COM-"
, OM TOMT (PÅ (”stämma”, ”ctrl+o”)), GÖR FASTSTÄLLDT TILLVÄGAGÅNGSSÄTT för fs_setup ENDIF
TILL genlbr = för envrnmnt () KLART WINDOWS
ALTERNATIV för =” ”goodpass för =. F.
GÖR COLORS
* som alla FUNGERAR nyckel- kodifierar ska tas bort. FUNGERA DEN NYCKEL- SETTINGS s_zoom_noen = s_lastkeyen för 0 = 0 &&räddning s_prgnamen för entered för jumbon den nyckel- = '' &&räddningen programet som är känt using en s_FkeyRec för function = 0 &&räddning, fungerar nyckel- rekord- Number s_FkeyPag = 0 &&räddning fungerar nyckel- sidaNumber s_FkyMRec = 0 &&räddning FKey som det LEDAR- rekordet numrerar. 1/10/97 && för för 12:28förmiddag (akl) ---- Första behövde i BETALBART när F1 från listmenuen för Detail. =. F., && gjorde oss kommer från listar menyn? utilmenu för =. F., && gjorde oss kommer från Util-meny? för KeyF1 =. F.-&& sjunker - från något till Animals KeyF2 =. F.-&& sjunker - från något till Bids KeyF3 =. F.-&& sjunker - från något till Calendar KeyF4 =. F.-&& sjunker - från något till Contracts KeyF5 =. F.-&& sjunker - från något till Critters KeyF6 =. F.-&& sjunker - från något till Invoices KeyF8 =. F.-&& sjunker - från något till Payables KeyF9 =. F.-&& sjunker - från något till Prices KeyF10 =. F.-&& sjunker - från något till produktionen Companies KeyF11 =. F.-&& sjunker - från något till Receivables
* som kommenteras för VFP * primaa VARIABLES = 0 prompt1 =” 1. Djur prompt2 =” 2. Anbud prompt3 =” 3. Calendar ” prompt4 =” 4. Avtalar ” prompt5 =” 5. Nötkreatur prompt6 =” 6. Fakturerar ” prompt7 =” 7. Etiketter ” prompt8 =” 8. Listar ” prompt9 =” 9. Prissätter ” * prompt10 =” P.-tryck” prompt10 =” S.-statistik-” prompt11 =” U-. hjälpmedel” prompt12 =” hjälp” prompt13 =” avslutad ” * som kommenteras för VFP
* WINDOWS * som kommenteras för VFP *, definierar fönstercrit från 2.2 till 22.75; titel” huvudsaklig meny för för nötkreatur”; den dubbla flötet för skuggar färgar intrig 2; STILSORTEN ”Arial för sätta en klocka på”, 25
*Added för VFP. DEFINIERAR FÖNSTERcrit FRÅN 2.2 TILL 90.170; TITEL” huvudsaklig meny för för nötkreatur ”; DEN DUBBLA FLÖTET för SKUGGAR FÄRGAR intrig 2; STILSORTEN ”Arial för sätta en klocka på”, 25
* SCREEN CLEAR = exploderar (2.2.22.75.50.1)
ACTIVATE SCREEN , OM för Yy' för mest akl_test $ ”NÅGOT ATT SÄGA 0.34 @ ”som testar på”, FÄRGA else * @ 0.70 för w+/N *, ENDIF *L * som som för något att sägautrymme (9) BEARBETAR LOOP , GÖR STUNDER. T.
AKTIVERAR FÖNSTERcrit GÖR den primaa s_choicen = mchoice för disscr = för ************************** för mchoice
* * för * för ********** för för ********** för för ********** för för ********** för för ********** som detta är ett tempoary program som söker efter dubblett i en * för närmare detalj .DBF, OM .NOT Yy' * för mest akl_test $ ”gör dup1chk *, gör
för ********** för för ********** för för ********** för för ********** för för ********** för för ************************** för * för dup2chk ENDIF * PÅ DEN NYCKEL- ETIKETTEN f7 GÖR genhlp MED &&ANVÄNDAREN för PROGRAMET () HELP
GÖR FRIGÖRAREN för för && för det CASE FALLET den primaa = 0 FÖNSTERcrit OM mest akl_test FALL prima = 1 .AND för RETURN ELSE QUIT ENDIF för $ ”Yy ". (SPARA (”ANIMALS.PRG”) .OR.FILE (”ANIMALS.FXP”)) GÖR djur MED FALLET primaa = 2 .AND för för PROGRAMET (). (SPARA (”BIDS.PRG”) .OR.FILE (wbr/> för 'BIDS.FXP'<)) GÖR anbud MED FALLET primaa = 3 .AND för för PROGRAMET (). (SPARA (”CALENDAR.PRG”) .OR.FILE (”CALENDAR.FXP”)) calendar MED FALLET primaa = 4 .AND för för PROGRAMET (). (SPARA (”CONTRACT.PRG”) .OR.FILE (”CONTRACT.FXP”)) avtalar MED FALLET primaa = 5 .AND för för PROGRAMET (). (SPARA (”CRITTERS.PRG”) .OR.FILE (”CRITTERS.FXP”)) GÖR nötkreatur MED FALLET primaa = 6 .AND för för PROGRAMET (). (SPARA (”INVOICE.PRG”) .OR.FILE (”INVOICE.FXP”)) fakturerar MED FALLET primaa = 7 .AND för för PROGRAMET (). (SPARA (”P_LABELS.PRG”) .OR.FILE (”P_LABELS.FXP”)) GÖR p_labels MED FALLET primaa = 8 .AND för för PROGRAMET (). (SPARA (”LISTS.PRG”) .OR.FILE (”LISTS.FXP”)) GÖR FALLET primaa = 9 .AND för lists . (SPARA (”PRICES.PRG”) .OR.FILE (”PRICES.FXP”)) GÖR prissätter MED FALLET primaa = 10 .and för * för PROGRAMET (). (spara (”PRINT.PRG”) .or.file (”PRINT.FXP”)) * GÖR FALLET primaa = 10 .AND för print . (SPARA (”STATS.PRG”) .OR.FILE (”STATS.FXP”)) GÖR FALLET primaa = 11 .AND för stats . (SPARA (”UTILS.PRG”) .OR.FILE (”UTILS.FXP”)) GÖR FALLET primaa = 12 .AND för utils . (SPARA (”CRITHELP.PRG”) .OR.FILE (”CRITHELP.FXP”)) GÖR det primaa FALLET för crithelp = 13 , OM mest akl_test akl för ********** för SUSPEND ELSE QUIT ENDIF för $ ”Yy ": Ökad choice=14 för F8 från anbud till det betalbara 2/25/96 FALLET primaa = 14 .AND för 2:08am . (SPARA (”PAYABLE.PRG”) .OR.FILE (”PAYABLE.FXP”)) GÖR betalbart MED akl för ********** för för ********** för för PROGRAMET (): Ökad choice=15 för F11 från anbud till växelfordringar 2/28/96 FALL primaa = 15 .AND för 10:53am . (SPARA (”RECEIVE.PRG”) .OR.FILE (”RECEIVE.FXP”)) mottar MED mchoicen för disscr
för ENDCASE ENDDO RETURN *L PROCEDURE för ********** för för PROGRAMET () den OFFENTLIGA, mget, cchoicen, LAGER 0 för cchoices TILL mchoicen, LAGER"" för mget TILL cchoicen, nCOL för cchoices * = NÅGOT ATT SÄGA 1.34 för RUNDA (WCOLS () /2.0) - 19
@ ”2010 '
* som lämnas den Column ncolen, = nrow för 20
= 3 FÅR MED nrow, ncol,” [\ <1] - nrow för djur" = 4 FÅR MED nrow, ncol, ”[\ <2] - nrow för anbud" = 5 FÅR MED nrow, ncol,” [\ <3] - nrow för kalender" = 6 FÅR MED nrow, ncol, ”[\ <4] - avtalar " nrow = 7 för FÅR MED nrow, ncol,” [\ <5] - nrow för nötkreatur" = 8 FÅR MED nrow, ncol, ”[\ <6] - fakturerar " ncol för column för
* höger = nrow för 40
= 3 FÅR MED nrow, ncol,” [\ <7] - nrow för etikett" = 4 FÅR MED nrow,ncolen ”[\ <8] - listar " nrow = 5 för FÅR MED nrow, ncol,” [\ <9] - prissätter " nrow = 6 för FÅR MED nrow, ncol, ”[\ = 7 FÅR MED nrow, ncol,” [\ = 8 FÅR MED nrow, ncol, ”[\ för hjälp"
* den mellersta = nrow för 30 = 10 FÅR MED nrow, ncol,” [\ = cchoices + ”12Q " för cchoice = mchoice för mchoice för PARAMETRAR för fncurobj för RETURN
FUNCTION för fnchoice (cchoices, ”Q”) = RETUR för _CUROBJ . PARAMETERnrow för T. ENDFUNC
PROCEDURE GET , ncol, cfunc, bskip nsize2 = LEN (STRTRAN (cfunc,” \ < ")) + nrow för 2 @, ncol FÅR mget FUNGERAR ”* ”+IIF (bskip,” \ \ ”, "") +cfunc; GILTIG fnCUROBJ för (@mCHOICE); färgar cchoices för PARAMETRAR för fnchoice för intrigen 1 RETURN ENDPROC
FUNCTION, LÄST cdef CYKLAR ANMÄRKER ENDFUNC
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* COLORS ÅTERGÅNG IIF (mchoice > 0, SUBSTR (cchoices, mchoicen, 1), "") = för IIF (LASTKEY () =27, PÅ (cdef, cchoices), mchoice) för />origschem1 = ”W+/B, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B, + " origschem2 = ”BG/W, N/W, N/W, B/W, W/N, N/BG, W+/W, N+/N, B/W, W/N,
* 1 för + " 2 3 4 5 6 7 8 9 10 11 SET FÄRGAR AV INTRIG 1 TILL; ”W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + " * märker av skrivbords- (1) användare för * för bakgrund för * skrivbords- (1) FÅR sätter in märker (2) användaren för * FÅR sätter in användaren för * för bakgrund (2) gränsar användaren för * för teckenet (3) gränsar användaren för * för bakgrund (3), titel somaktivet märker (4) för användaretiteln för * användaren för * för bakgrund för aktivet (4), den inaktiva titeln märker (5) användaretitel för *, inaktiv 5) * för bakgrund (sätter in valt (^A) Märker * (för 6) sätter in valt (^A) märker
*, 1 för bakgrund (6) som 2 3 4 5 6 7 8 9 10 11 SET FÄRGAR AV INTRIG 2 TILL; meny för * för ”w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + " märker (1) meny för * märker inaktiva val för meny för * för bakgrund (1) märker (2) menyval för * som den inaktiva menyn för * för bakgrund (2) gränsar menyn för * för tecken (3) gränsar den inaktiva titeln för menyn för * för bakgrund (3) märker (4) för menytiteln för * den Slection för menyn för * för bakgrund (4) aktivet märker (6) för menyvalet för *
*
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ * för/>~~~~~~~~~~~~~
* GENLBR.Prg (allmänt arkiv): _add för GENLBR.PRG
function, om zoom_noen = 1 går endif för bottom , gör str_empty gör default = () _begin för *L function för return '', om top_mark = 0 går else för top går uppsättningen för _canflt för *L function för top return för endif return för skip för top_mark '' _beginr för *L function går '' filtrerar to = ndx_exp för _canscop för *L function för return för fltrsta () '' uppsättningen för _canfltr för *L function filtrerar to = ()/>return '' = 14.1) för system (går last_rec för bottom = last_val för recno () = &ndx_exp går first_rec för top = first_val för recno () = &ndx_exp = _delete för *L function för return för _disstat () '' _copy *L function/> = ()/>return '' om zoom_noen < no_zooms * finns det några barnrekord? child_numen för = stren (zoom_noen + 1, 1) väljer lnk_var &child_num = sökanden&lnk_var för lnk_var&child_num , om .not-&at_eof = endif
för &zoom_num för endif för för retur för &zoom_num för för dismsg (chr (7) + ”underordnade rekord finns”), vald '' vald, om bekräfta (”borttagningsrekordet”)
om rätten (system (16.3), 9) = ”rec_del för ADOPT.FXP'<-br/> =. Endif
för T. , om högert (system (16.3), 12) = ”CONTRACT.FXP'<-br/> väljer för 3 för delete
vald 2 vald 1 endif
för delete
, om rätten (system (16.3), 7) = ”DHR.FXP-” && ingen ShowFlag dhr_delete = repldhr_delete för .t. med && för överhoppet för endif
för delete för else för reindex för m->dhr_delete placerar om till den nästa record , om && för &at_eof (), om det borttagna sist rekordet, går till början av database = endif
för för _begin (), om tom &at_eof .and .not (filtrera ()) * inga rekord som in lämnas, filtrera, ta bort uppsättningen för filter filtrerar to = endif
för för _begin (), om &at_eof * sist rekord som nu tas bort, () exp_N för _disstat för *L function för/> /> = _quit,/>return '' = max (len (first_val), len (filter ())) definierar fönsterstat_wndw från 0.1 till 4,17+exp_N; skuggar färgar intrigen 7 aktiverar fönsterstat_wndw , om tomma .not (filtrera ())något att säga 0.0 för @” filtrerar är: ” + filtrera () else @ 0.0 för som något att säga” filtrerar är: något att säga 1.0 för endif för Off' @” från rekord: ” + något att säga 2.0 för first_val @” som ska antecknas: '+ för väntan'' '' för last_val endif för för retur för för dismsg för stat_wndw return för fönster för frigörare memo_field för memo_field för is_edit
för parametrar för _editmemo för *L function privat = memo_fld&zoom_num
, om tom = (”har ingen memo att sätta in”), '' definierar fönstermemo_wndw från 12.30 till 18.73; titel ”MEMO (ESC som går ut, eller Ctrl-W för till räddningen)”; systemflötet för växer zoomslut skuggar färgar intrigen 11 , om is_edit ändrar else för memo_wndw för memo&memo_fieldfönstret ändrar memoen _end * för *L function för memo_wndw endif memo_wndw return '' går att vara för rekordet (sist barnrekord, om zoom), om bot_mark>= 0 går else för överhoppet -1 för bot_mark , om bot_mark = -1 går else för bottom * finna första rekordet som utvändig range lokaliserar tag .t för &at_eof om för eof () * det är det sist rekordet i bot_mark för database = bot_mark för else för -1 = endif för recno () /> för endif endif -1 return '' för *L function _endr går && för dbf_desc för parametrar för _list för *L function för return '' ndx_exp för _fromrcd för *L function = 14.1) för system (om first_rec för &ndx_exp<=last_val = first_val för recno () = else /> = endif för dismsg (”det första rekordet måste komma före jumborekord”),/> = ()/>return '' som denna befaller, är nödvändig because på nyckel- && för etikett F7 gör _nohelp&& av det 18) problemet found. för system (fastställd hjälp av && för för && (_nohelp är på denna sida) märker -->> inget funktionellt kan kallas! && för Nor kan en .PRG
, om rätt (system (16.2), 12) = ”ingen CRITTERS.FXP-” && ”VÄXER”!! (11 timmar!) definierar fönsterbrws_wndw från 9.4 till 19.54; titeldbf_desc för ; för systemzoom för slutet för flöte skuggar färgar else för intrigen 10 definierar fönsterbrws_wndw från 9.4 till 19.65; titeldbf_desc för ; för systemzoomen för flötet växer nära skuggar färgar endif
för intrigen 10 gör record_no för list&zoom_num
= hjälp för brws_wndw
för fönster för frigörare för för recno () fastställd på &&<<<--- MINNS! Ta bort dessa statements. på den nyckel- etiketten F7 gör genhlp med (18) _modify för *L function för/> return '' aborterar = ********** akl för .f.
: Mång- anbud - redigera 2:07am för fönster 10/16/95 på den nyckel- etiketten PGUP gör PageUp på den nyckel- etiketten PGDN gör PageDn **********
om getcond för modify_key =” ”fld_usg " getcond för G” $ för else för =” ”fld_usg .and .not för G” $. För fld_usg" ”för K” $ endif
*--------- akl: Borttaget - gillade inte det fungerade långt 3/13/96 akl för ********** för 9:17pm : Tillfogat för automatiskt balansera uträkning 2/11/96 8:42pm * om ((prog_name = ”den BETALBARA” .and-pseudonymen () = ”PAYDETL”) .or. ; * (prog_name = ”MOTTAR” .and-pseudonym () = ”RECDETL”)), .and. ; p_amount för * för * (alternativ = ”kopierar” .or-alternativ = ”ändrar”), = * för ********** för endif för 0 *---------getcond för
=” 'G'$-fld_usg"
, om högert (system (16.3), 8) = ”USDA.FXP” .and. ; för <> ”G_USDA.FXP " för höger (system (16.8), 10) gör getfldA med read
för getcond , om m->u_code_2 = ”D” .or m->u_code_2 = ”c-" gör getfldB med else
för endif
för read för getcond gör getfld med ********** akl för getcond
: Låter markören till upArrowen sätter in hitintills 11/16/95 4:17pm , om rätten (system (16.3), 9) = ”CALLS.FXP-" läste s_lastkeyen för endif
för
för ********** för endif för read för else för cycle =
* CLEANUP ********** akl för lastkey (): Mång- anbud - redigera 2:07am för fönster 10/16/95 på den nyckel- etiketten PgUp på nyckel- akl för ********** för
för etikettPgDn **********: CRITTERS.PRG - Mång- fönsterhundkapplöpningtrick avskärmer 7/28/98 10:06pm , om alternativ = ”ändrar” .and. ; prog_name för = ”NÖTKREATUR” .and. ; s_lastkeyen för för (pseudonym () = ”den CRITDOGS-” .or-pseudonymen () = ”CRITCATS”) = && s_lastky2 användaren pressande Ctrlen-W från den första screen gör precis i fall att to
för meddelandet för
för ********** för DogUpDn endif fastställd om .not. ((rätt (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”))ökad
* (akl) 4/10/99 11:43pm * om meddelandet för efter villkora: 2/M/F5/N/Z * Datan avskärmer raderas, och en användare avskärmer är activated. * problem uppstår, när ENDAST Hoa-Stämma från anbud till nötkreaturhundens Zoom. * ingen användare avskärmer aktiveras därför att beloppet av data ska inte passform på a * användaren avskärmer. Så det skrivbords- används. (aktivera avskärmer).
om .not. (system (16.5) = ”PÅ…” .and. ; höger (system (16.6), 8) = ”BIDS.FXP” .and. ; som var höger (dbf (), 12) = ”CRITDOGS.DBF”) uppsättningstatistik för
av && detta måste att sättas in, därför att statistiken för && för endif för SET
endif
AV inte raderade bara message om Yy' för mest akl_test $ 'om .not. ((rätt (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”))
om .not. (system (16.5) = ”PÅ…” .and. ; höger (system (16.6), 8) = ”BIDS.FXP” .and. ; höger (dbf (), 12) = endif
för endif för endif
för on
för statistik för
”för CRITDOGS.DBF”) fastställd, om s_lastkeyen = 27 && Esc aborterar = för retur'' endif
för om modify_key , om chk_dupl för .t. endif
för endif för för retur för () '' gör lookup , gör calcul med .t.
om rätten (system (16.3), 8) = ”USDA.FXP” .and. ; höger (system (16.8), 10) <> ”G_USDA.FXP " för gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”endif
för görar klar gets
, om page_no- < last_page&&skärm därefter avskärmer page_no för page = page_no + 1 gör disscr
gör getcond för last_page för stundpage_no<= =” 'akl för ********** för G'$-fld_usg"
: Mång- anbud - redigera för 2:07am * för fönster 10/16/95 s_lastkeyen = '' && som kommenteras för F11, stämm 2/28/96 0:08pm PgUpKey =. F. PgDnKey =. F. BTabKey =. F. på den nyckel- etiketten PGUP gör PageUp på den nyckel- etiketten PGDN gör PageDn på den BACKTAB nyckel- etiketten gör TabBack **********
, om rätten (system (16.3), 8) = ”USDA.FXP-" gör getfldA med getcond gör getfldB med else för getcond gör getfld med read
för endif
för getcond om .not. (PgUpKey .or. PgDnKey .or. S_lastkey för BTabKey) = endif
* CLEANUP ********** akl för för lastkey (): Mång- anbud - redigera 2:07am för fönster 10/16/95 på den nyckel- etiketten PGUP på den nyckel- etiketten PGDN på nyckel- statistik för uppsättningen för to för meddelandet för för etikettBACKTAB ********** fastställd av && som detta måste att sättas in, därför att den SET &&statistiken AV inte raderade bara &&en för message den bör fungera. Finna ut why? om mest akl_test endif
för on för esca för on för statistik för $-'Yy' fastställd fastställd, om s_lastkeyen = 27 && Esc aborterar = endif
för exit för .t. om s_lastkeyen sidan för = 18 && upp Key , om page_noen > page_noen för 1 = page_noen - 1 gör endif
för endif för loop för disscr , om s_lastkeyen sidan för = 3 && besegrar Key , om page_noen för page_no< last_page = page_noen + 1 gör endif
för endif för loop för disscr om s_lastkeyen = 15 && tillbaka Tab om page_noen > page_no för 1 = page_no - 1 gör disscr om page_noen = 1 för I = 1 till 18 skrivar endif
för endif för endif för loop för next för för chr (9), om typ (”LArrow”) = ”L” && ser avtalar (akl) 10/05/99 10:43am , om page_noen = page_noen för 2 = 1 gör endif
för endif för loop för disscr om page_noen = first_page * kontrollera för * * för * för *** för för ********** för för ********** för för ********** för för ********** för för ********** för för ************************** för &ndx_var
för sökanden för för dubblett (nyckel- som skrivs in endast på den första sidan) detta, OM meddelandet ändrades och duplicerat, därför att, när du ZOOM till en tom databas för * *, systemet visar alltid för fel* * ”för dubblett det rekordartada” meddelandet, när det första rekordet skrivs in. Avskilj, OM meddelanden verkar * * för att fixa detta problem. Skillnaden är, OM meddelandet precis för ** ”= dismsg…”, meddelande. De är olika för varje villkorar av ZOOM_NO.
för *** för för ********** för för ********** för för ********** för för ********** för för ********** för för ************************** för * för * * (akl) * använd detta OM meddelandet om zoom_noen = 1 , om zoom_noen = 1
, om prog_name = ”AVTALAR " , går ut tillfogad &&, därför att få alltid && för when för felmeddelandet avtala in och van vid ^W går ut. Jag gjorde den && för this långt, därför att jag vet att jag ska witing en version för WINDOWS &&fönster av programet. Det är inte &&stridighet för worth på denna för 2:09pm för tid 3/08/2000 else
för (akl), om allow_dup&zoom_num = för dismsg (chr (7) + ”det inte tillåtna dubblettrekordet”) aborterar = endif
för endif
för endif
för exit för .t. * använd detta OM meddelandet om zoom_noen > 1 om zoom_noen > 1 om .not. = för dismsg (chr (7) + referens för skärm ”för dubblettrekordet inte tillåten - 2 (akl)”) aborterar = endif
för endif för endif för exit för .t. * sätter in och beräknade variables gör lookup gör calcul med .t.
, om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”endif
för görar klar gets
om page_noen < last_page * skärm därefter avskärmer page_no för page = page_no + 1 gör endif
för last_page för <= för page_noen för stunder för enddoen för endif för exit för else för disscr om .not. ((pseudonym () = ”PAYDETL-” .or-pseudonym () = ”RECDETL”) .and-alternativ = ”ändrar”) gör calcul med endif
för .t. * återställandesidanumber , om page_no- > för first_page deact lindar page_noen = first_page för all , gör disscr
, om rätten (system (16.3), 8) = ”USDA.FXP-" gör getfldA med” .f.-” , gör getfldB med else ” för .f.-” gör getfld med redisp_fld = endif
för endif
” för .f.-” för gets för .t. klar om .not-abort ********** akl: Kontrollera stava av den rekordartada 3/19/96 1:55am, om prog_name = ”BJUDER” .or-prog_name = ”AVTALAR” .or. ; prog_name för = ”FAKTURERAR” .or-prog_name = ”SUBRENT” .or. ; prog_name för = ”KARTLÄGGER” .or-prog_name = ”HELTHCRT-"
gör SpellChk med ”det Rec-” &&rekordet (Rec) eller sätter in (Fld)
, om rätten (system (16.3), 8) = ”USDA.FXP-" gör getfldA med” .f.-” gör getfldB med else ” för .f.-” gör getfld med för ********** för endif för endif
” för .f.-” , om bekräfta (”räddningen antecknar”), save_rec för =. T. , om pseudonymen () = ”den CRITDOGS-” .or-pseudonymen () = ”CRITCATS-" LastTKUpd = daterar () , om pseudonymen () = vald critters ”för CRITDOGS-" byter ut LastTKupd med vald critdogs för m->LastTKupd @ 0.67 critters för else för för något att sägadtoc (m.lasttkupd) vald, byter ut LastTKupd med vald critcats för m->LastTKupd @ 2.60 memo för hopsamlingen för endif för endif för för något att sägadtoc (lasttkupd) memvar om rätten (system (16.3), 12) = endif för memvar för hopsamlingen för sele 3 för memvar för hopsamlingen för sele 2 ”för CONTRACT.FXP-" /> *L PROCEDURE RunDOS * för endif endif return '' utför ett DOS-program eller grupperar sparar eller åkallar command_ för PARAMETRAR för
för tolkaren för DOS-command * (COMMAND.COM måste vara i BANAN), OM _DOS AKTIVERAR den SCREEN RÄDDNINGEN AVSKÄRMER TILL DOSscreen @ 0.0 /0 för den CLEAR FASTSTÄLLD MARKÖRON
* KÖRNINGEN &command_. Kommenterat ut: 8/15/95 3:08am
NewCommand_ = && för GETENV (”COMSPEC”) tillfogade denna kodifierar för att läsa för KÖRNINGS/0 för true &&en ”COMMAND.COM” &NewCommand_. Kan inte alltid vara de ska && COMMAND.COM för sure är den FASTSTÄLLDA MARKÖREN för running. PÅ && tillfogad 11/29/94 * som den FASTSTÄLLDA MARKÖREN AV kommenterat ÅTERSTÄLLANDE för AVSKÄRMER FRÅN den DOSscreen FRIGÖRAREN AVSKÄRMER den DOSscreen ENDIF
RETURN *L function PageDn s_lastkeyen =
för lastkey () om s_lastkeyen = 3 PgDnKey =. T. skrivar
för chr (23), om alternativ = ”ändrar” .and. ; prog_name för = ”NÖTKREATUR” .and. ; för (pseudonym () = ”den CRITDOGS-” .or-pseudonymen () = ”CRITCATS”) s_lastky2- = s_lastkey&& användaren tryckte på precis i fall att Ctrl-W från den första för s_lastkeyen = för lastkeyen för endif
return *L function PageUp för endif för screen () om s_lastkeyen = 18 * om .not. (prog_name = ”NÖTKREATUR” .and. ; alternativ för * = ”ändrar” .and. ; * (pseudonym () = ”den CRITDOGS-” .or-pseudonymen () = ”CRITCATS”))
PgUpKey =. T. skrivar skip för _next för endif
return *L function för endif för
* för chr (23), om &at_eof = = last_pagen för _nextpage för *L function för endif = (chr (7) + ”det sist rekordet”)/> return för för dismsg (chr (7) + ”det sist rekordet”) '' skip för _nextr för *L function, om = return '' = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)), , om page_noen < page_noen för last_page = page_noen + 1 gör else /> = endif return '' _nohelp
för för dismsg (”ingen annan sida”) för *L function, definierar fönsterhelp_not från 0.30 till 2.78 skuggar färgar intrigen 7 aktiverar mess_err för fönsterhelp_not
= 'ledset, ingen HJÄLP är tillgänglig på denna tid. ' för _prev för *L function för help_not /> />return '', om &at_bof = = first_pagen för _prepage för *L function för endif = (chr (7) + ”det första rekordet”)/> return för för dismsg (chr (7) + ”det första rekordet”) '' överhoppet -1 för _prevr för *L function, om = return '' = val (substr (page_seq&zoom_num, 1.1)) om page_no > page_no för first_page = page_no - 1 gör redisp_fld för disscr = else /> = (”inga andra tillträden/>return för tryck för ********** för _print
för *L function för endif för 9:27pm (akl) om rätten (system (16.2), 12) = ”CRITTERS.FXP” .or. ; höger (system (16.2), 12) = ”P_LABELS.FXP'<-br/> gör
för ********** för endif för prn_sele som fastställd flykton
definierar fönsterprnt_wndw från 0.43 till 2.78; skuggar färgar intrigen 7 aktiverar s_readkeyen för fönsterprnt_wndw
= något att säga 0.0 för 0 @” som skrivar ut - ESC som stoppar ' =
för init_rpt (), om s_readkeyen s_readkeyen för = 268 .or flykten för = 12 && var för frigörarfönstret för pressed strömmen för endif
för return för prnt_wndw tillfogade den && eller all
för USDA-rekord (02/05/02 akl) om rätten (system (16.6), 10) = .and-g_all = ”A ”P_USDA.FXP” " om .not-system (13) = ”OFFLINE laser br” för .or-outp_dev<> ”för dot'<” för .or-outp_dev<> ' s_recnoen för/> = för recno () går brk_noen för top
= 1
gör pgehdr
gör r_count = 0
för
för stunder .not eof () gör stundr_count<> 9 gör skip för brkhdr
om r_count för endif
för exit för för eof () = r_count + enddo
för 1
om else
för endif
för s_recno
för enddo
för endif
för exit för för eof () goto om .not-system (13) = ”OFFLINE” laser” br/> för .or-outp_dev<> ”för dot'< för .or-outp_dev<> ' gör rpthdr gör pgehdr gör rptbdy gör line_noen = lns_per_pg för rptftr gör endif
för endif för pgeftr om rätten (system (16.2), 12) = trycket för br/> för Y'< ”för P_LABELS.FXP-” .and-gruppen = 1 om akl_system$ 'det fastställda till trycket för else för LPT1 det fastställda till else för skrivaren för off för trycket för eject för on för trycket för endif för LPT1 fastställd fastställd fastställd/> = prnt_wndw
för fönster för frigörare för endif
för för end_rpt (), om outp_dev = 'screen' = off för flykt för endif
för för edit_txt () fastställd går return '' s_curobj för _popcal för/>*L function = _curobj * aktiverar screen
på nyckel- etikettesc skrivar” {CTRL+W} ”+” {SKRIV IN}, ”
* @ 24.0, för något att sägapadc (”pressESC som går tillbaka till dataposten, avskärmer”, som 80) aktiverar läst giltigt för fönstercalculator . T. * @ 24,0
på nyckel- _curobj = för escaon return *L function för s_curobj
fastställd _quit
för etikettesc
om höger (system (16.2), 9) <> ”PRINT.FXP” .and. ; uppsättningen för br/> för JOBS.FXP'< för höger (system (16.3), 8) <> för 'filtrerar skinnet för endif
* för to fönstret, när användaren avslutar till föregående window gör fallrätten för case (system (16.2), 12) = 'CRITTERS.FXP'<-br/> gör fallzoom_no för case = wind_hide för 1 = 'zoom_noen för fallet för usr_wndw1'<-br/> = wind_hiden för clear för 2 = 'zoom_noen för fallet för usr_wndw5'<-br/> = wind_hiden för clear för 3 = ”zoom_noen för fallet för usr_wndw4'<-br/> = wind_hiden för 4 = ”zoom_noen för fallet för usr_wndw6'<-br/> = wind_hiden för 5 = ”s_zoom_noen för endcase
för usr_wndw3'<-br/> = zoom_no om zoom_no = 1 .or. Zoom_no för KeyF2 = zoom_no för else för 0 = wind_hide för otherwise för endif
för 1 = ”usr_wndw'+-alltrim (stren (zoom_no))zoom_no för = ökad zoom_no - 1
* om meddelandet för efter villkora: 2/M/F5/N/Z * Datan avskärmer raderas, och en användare avskärmer är activated. * problem uppstår, när ENDAST Hoa-Stämma från anbud till nötkreaturhundens Zoom. * ingen användare avskärmer aktiveras därför att beloppet av data ska inte passform på a * användaren avskärmer. Så det skrivbords- används. (aktivera avskärmer).
om (system (16.5) = ”PÅ…” .and. ; höger (system (16.6), 8) = ”BIDS.FXP” .and. ; höger (dbf (), 12) = endcase
för endif
för clear för
”för CRITDOGS.DBF”), om endif
för &wind_hide för fönstret för skinnet för för wexisten (för endif .t. return ”för &wind_hide”), om zoom_noen > 0 = för x_zoom () går record_no , gör för redisp_fld- = '' *L function för disscr _retrieve *, accepterar det nyckel- och sökandenrekordet; om inte funnit, placera om till d_functionen för record_no = () , om memo (för den ndx_var) scatteren för '' för <> välskötta memvar tom gör clrfld gör read
för getkey
* statistik för uppsättningen för CLEANUP fastställd meddelandeto av && detta måste att sättas in, därför att den SET &&statistiken AV inte raderade bara message om mest akl_test endif för on för statistik för $-”Yy' fastställd om && Esc
för <> 27 för lastkeyen () om program (3) = ”den JOBB” .and-pseudonymen () = else för för klippning för sökanden ”för JOBB" (&ndx_var1a) endif
för för sökanden välskött (&ndx_var), om &at_eof = för dismsg (”inte funnen”) går record_no *L för endif endif /> />return '': Nya valda befaller 10/23/95 && för dbf_desc för parametrar för _select för 2:25am function som detta befaller är nödvändig because på nyckel- && för etikett F7 gör _nohelp&& av det 18) problemet found. för system (fastställd hjälp av && för för && (_nohelp är på denna sida) märker -->> inget funktionellt kan kallas! && för Nor kan en .PRG
, om rätt (system (16.2), 12) = ”ingen CRITTERS.FXP-” && ”VÄXER”!! (11 timmar!) definierar fönsterbrws_wndw från 9.4 till 19.54; titeldbf_desc för ; för systemzoom för slutet för flöte skuggar färgar else för intrigen 10 definierar fönsterbrws_wndw från 9.4 till 19.65; titeldbf_desc för ; för systemzoomen för flötet växer nära skuggar färgar endif
för intrigen 10 gör record_no för sel&zoom_num
= hjälp för brws_wndw
för fönster för frigörare för för recno () fastställd på &&<<<--- MINNS! Ta bort dessa statements. på den nyckel- etiketten F1 gör genhlp med (18) _skip för *L function för ********** för för/> return '' * framåtriktat för flyttning/tillbaka flera rec_count för records = 0 definierar fönsterskip_wndw från 11.29 till 13.52; skuggar färgar intrigen 7 rekord för överhoppet aktiverar för fönsterskip_wndw @ för något att säga 00.00”: ” få rec_count föreställer ”_skipr för *L function för skip_wndw endif = (chr (7) + ”det första rekordet”)/> för överhoppet för read för om &at_eof = = endif för för dismsg (chr (7) + ”det sist rekordet”) om &at_bof = return '' * rec_count för den framåt flyttningen/tillbaka flera för records = 0 definierar fönsterskip_wndw från 11.29 till 13.52; skuggar färgar intrigen 7 rekord för överhoppet aktiverar för fönsterskip_wndw @ för något att säga 00.00”: ” få rec_count föreställer ”s_lastkeyen för *L function TabBack för skip_wndw endif = (chr (7) + ”det första rekordet”)/> för överhoppet för read för om = = endif för för dismsg (chr (7) + ”det sist rekordet”) om = return '' = för lastkey () om s_lastkeyen = 15 BTabKey =. T. skrivar _tally för endif
return *L function för för chr (23) definierar fönstercount_wndw från 0.35 till 2.78; skuggar färgar intrigen 7 aktiverar något att säga 0.0 för fönstercount_wndw @” som räknar… ”rec_count för = 0 = &at_eof för stunder .not för räkning för för _begin () till mess_str för rec_count
= stren (rec_count, 6) +” record'
, om rec_count > mess_str för 1 = mess_str + ”mess_str för väntan för endif
för s' går record_no för *L function för count_wndw />return '' definierar fönstercount_wndw från 0.35 till 2.78; skuggar färgar intrigen 7 aktiverar fönstercount_wndw @ 0.0 rep_file _tofile för *L function för count_wndw record_no return för något att säga” som räknar… ”rec_count för = 0 = stunder .not eof för räkning för för _beginr () () till mess_str för rec_count = stren (rec_count, 6) +” mess_str för väntan för records' går '' = för utrymme (8) definierar fönsterfile_wndw från 7.20 till 16.59; titeln för ” skriver in faxFilename”; skuggar färgar intrigen 7
aktiverar fönstret usr_wndw1 aktiverar fönsterfile_wndw
@ 3, maximat för 1 något att säga ”av 8 tecken är tillåten. ” @ 4, 1 något att säga ”filenamen, du skriver in, ska have' @ 5, 1 något att säga” ”.TXT” som tillfogas till avsluta av det känt. ' @ 6, 1 något att säga ”använder inte några speciala tecken. ”
@ 1.15 får read
för rep_file rep_file = ”c:\crit\fax\ " +alltrim (rep_file) +”
för .txt " inaktiverar file_wndw
för fönstret för frigöraren för fönsterfile_wndw definierar fönsterfile_wndw från 7.18 till 19, 60; titeln för ” ditt fax är ordnar till”; skuggar färgar intrigen 7 aktiverar fönsterfile_wndw
@ 1, 1 något att säga ”, efter faxet har skrivavits ut, går till " @ 2, 1 något att säga ”Systrayen, på det skrivbords- och start " @ 3, 1 något att säga ”WinFax, vid Right-Clicking på faxet " @ 4, av symbolen för 1 något att säga ”. Lämna-klicka överför på ett fax… ”
@ 6, 1 något att säga ”sparar läge, därefter: ”+rep_file
@ 8, 1 något att säga ”, när faxet har överförts, retur här " @ 9, 1 något att säga ”som fortsätter för att fungera som innan. ”file_wndw
för fönster för frigörare för read
för , om .not tömmer (rep_file) outp_dev för = 'file'< ndx_exp för _torcd för *L function för endif br/>return '' = 14.1) för system (om last_rec för &ndx_exp>=first_val = last_val record_no = else /> = endif för dismsg (”det sist rekordet måste följa det första rekordet”),/> = return '' susp
för _disstat () för _zoom
* för *L function, om no_zooms = zoom_no = else för för dismsg (”ingen Zoom sparar”), om rätten (system (16.2), 12) = ',CRITTERS.FXP'<-br/> gör fallanml_type för case = 'zoom_noen för C' = fallanml_type för 3 = ”zoom_noen för D' = fallanml_type för 2 = ”zoom_noen för E' = fallanml_type för 4 = ”zoom_noen för F' = otherwise
/>* =
A_Type för dismsg (”den djura typen sätter in INTE är C, D, E eller F.”), = 1) för utrymme (definierar fönsterfile_wndw från 8.20 till 16.57; titel” saknad för : Djur typ”; skuggar färgar intrigen 7
aktiverar fönstret usr_wndw1 aktiverar fönsterfile_wndw
@ 1, 1 något att säga, ”som varje djur måste ha en TYP, som " @ 2, 1 något att säga ”beskriver en allmän kategori. ” @ 3, de tillåtna tillträdena för 1 något att säga ”är: D-, c-, f- eller e-" @ 4, 1 något att säga” (förfölja, katten, lantgården eller exotiskt.), ”
GoodType =. F.
gör stunder .not. GoodType
@ 4.34 får A_Type read
A_Type = övre(A_Type)
om A_Type $ ”DCFE " GoodType =. Else @ 6 för T. , 1 något att säga” behar skriver in: För D-, c-, f- eller e-” EndIf
enddo
inaktivera anml_type = A_Type
för file_wndw
för fönstret för frigöraren för fönsterfile_wndw byter ut anml_type med m->anml_type
@ 2, 65 zoom_no för else för endcase för något att sägam->anml_type = zoom_no + endif
/> = = för _begin () * om en ny sida, visar ny screen om page_noen för first_page<>page_no = endif för first_page om fastställd escaoff /> = on för dismsg (”databas tom”) fastställd/> = endif för för _add () add_rec * för *L function för/> return '' tillfogar en record aborterar = no_rcds för .f. = &at_eof
* nollställa till den första d_functionen för page = ()
på den nyckel- etiketten PGUP gör PageUp på den nyckel- etiketten PGDN gör PageDn
gör akl för ********** för last_page
för stundpage_no<=: Mång- anbud - redigera för 2:07am *+++++++++ för fönster 10/16/95 akl: Anbud - låt på mång- redigerar Window , om rätten (system (16.3), 8) = ”BIDS.FXP-" på den nyckel- etiketten PGUP gör newPageUp på den nyckel- etiketten PGDN gör
* för ********** för endif för newPageDn --------- akl: Borttaget - gillade inte det fungerade långt 3/13/96 akl för ********** för 9:17pm : Tillfogat för automatiskt balansera uträkning 2/11/96 8:42pm om ((prog_name = ”den BETALBARA” .and-pseudonymen () = ”PAYDETL”) .or. ; (prog_name = ”MOTTAR” .and-pseudonym () = ”RECDETL”)), .and. ; (alternativ = ”kopierar” .or-alternativ = ”ändrar”)),p_amount för = * för ********** för endif för 0 ---------getcond för =” ”G'$-fld_usg"
, om högert (system (16.3), 8) = ”USDA.FXP " gör clrfld @ 14, 1 57) @ 15, 1 57) @ 16, 1 57) @ 17 för något att sägautrymme (för något att sägautrymme (för något att sägautrymme (, 1 57)
för något att sägautrymme (gör getfldA med read
för getcond , om m->u_code_2 = ”D” .or m->u_code_2 = ”c-" gör getfldB med else
för endif
för read för getcond gör getfld med ********** akl för getcond
: Låter markören till upArrowen sätter in hitintills. 12/15/95 6:59pm , om högert (system (16.3), 9) = ”CALLS.FXP-" läste akl för ********** för endif
för för ********** för endif för read för else för cycle : Mång- anbud - redigera för 2:07am *+++++++++ för fönster 10/16/95 akl: Anbud - låt på mång- redigerar Window , om rätten (system (16.3), 8) = ”BIDS.FXP-" på den nyckel- etiketten PGUP på nyckel- statistik för uppsättningen för to för meddelandet för
för ********** för etikettPGDN endif fastställd av && detta måste att sättas in, därför att det SET &&MEDDELANDET inte verkar för att fungera!! om mest akl_test för Yy' $ ”s_lastkey för endif
för on för statistik fastställd =
för lastkey (), om s_lastkeyen = 27 && Esc aborterar = endif
för exit för .t. om s_lastkeyen sidan för = 18 && upp Key om page_noen > page_noen för 1 = page_noen - 1 gör endif
för endif för loop för disscr , om s_lastkeyen sidan för = 3 && besegrar Key , om page_noen < page_noen för last_page = page_noen + 1 gör endif
för endif för loop för disscr om den page_no- = för first_page * kontrollen för för dubblett (nyckel- som skrivs in endast på för första sidan) om .notallow_dup&zoom_num om höger (system (16.3), 8) &ndx_var för sökanden för för <> ”USDA.FXP " om .not. = för dismsg (chr (7) + ”det inte tillåtna dubblettrekordet”) aborterar = akl för ********** för endif för exit för .t. : Ökat kontrollera för individ av varje som är nyckel-, sätter in i för 0:26pm för USDA 5/31/96 else , om s_recnoen för endif för m.usda- = för 0 exit = för recno () går top lokaliserar för m.name = name om funnen () = dismsg (chr (7) + ”djur kända redan i bruk. Välj en annan känd”) aborterar = endif för exit för .t. går top lokaliserar för m.usda = usda , om funnen () = dismsg (chr (7) + ”USDA numrerar redan i bruk. Välj another numrerar”) aborterar = endif för exit för .t. om endif
för endif för för ********** för endif för endif för s_recno för för .not eof () goto * skärmreferens sätter in och beräknade variables gör lookup gör calcul med .t.
, om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”endif
för görar klar gets
, om page_noen < last_page * skärm därefter avskärma page_noen för page = page_noen + 1 gör last_page
för <= för page_noen för stunder för enddoen för endif för exit för else för disscr * återställandesidanumber , om page_noen > deact för first_page lindar page_noen = first_page
för all , gör disscr
, om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”redisp_fld för endif
för = endif
för .t. aborterar = iif (abortera, .t., .not-save_rec ())
, om .not-abort , om no_rcds = set_bndry () else för endif för , om no_rcds = else för för _quit () går record_no * för *L function för abort endif />return '' en rapport/, avskärmer line_no för line = line_no + 1 , om line_noen = lns_per_pg gör pgeftr för för/> = för adv_pagen () = rapporten för adv_page * för line_no *L function för .f. return den för-/, avskärmer page_no för page
= page_no + 1
om rätten (system (16.2), 12) = ” , om page_no = sel_yes + endif
för endif för return för 1 , om outp_dev = ”laser-” .or-outp_dev = ”line_noen för endif
för för replicaten för något att säga line_no+1,0 för else för eject för dot' @ (chr (219), 76) = top_margin
gör dubblett för chk_dupl
* för *L function för pgehdr return '' det fastställda till .f., om det nyckel- är ett dubblett, eller till privat dupl_rec
för .t-otherwise , om ((&at_bof) = (&at_eof)) .or. '' = dupl_rec för allow_dup&zoom_num för klippning (ndx_var) .or = &ndx_var för sökanden för else för .f. , om alternativ = ”dupl_rec för M' = dupl_rec för else för &at_eof för record_no<>recno () .and .not = endif för .not-&at_eof , om dupl_rec = else för för dismsg (chr (7) + ”det inte tillåtna dubblettrekordet”) går up * för chng_brk Parameters för dupl_rec *L function för endif return för endif för record_no , ökar det jämna avbrottet, om ”upp” = .t., förminskar otherwise om up * fastställd ny brk_field för rapportavslutningscondition = new_cond för brk_field&brk_num = ”&brk_field<>m->&brk_field” + ” .or. ”cond_size&brk_numen för = len done_cond = new_cond + done_cond * lageravbrott för (för new_cond) sätta in till &brk_field = &brk_field för minnesvariable * zoomen upp, om det är ”en zoom” break
om zoom_noen för brk_zoom&brk_num = zoom_noen + zoom_numen för 1 = stren (zoom_noen, 1) frst_child för = endif för &frst_child för sökanden för &zoom_num för lnk_var&zoom_num vald * öka brk_noen för avbrottsnumber = brk_noen + brk_numen för 1 = stren (brk_noen, 1) gjord = brk_noen för else för &done_cond = brk_noen - brk_numen för 1 = stren (brk_noen, 1) * förminska rapporten done_cond för avslutningscondition = * Zoom för substr (done_cond, 1+cond_size&brk_num) besegra, om det är en header för parametrar för confirm för *L function för endif endif &zoom_num = stren ”för zoom” break om zoom_noen för brk_zoom&brk_num = zoom_noen - (zoom_noen, 1) vald/>return '' definierar fönstercon_wndw från 1.50 till 20.100; dubbel färgar intrig 12; STILSORTEN ”Arial för sätta en klocka på”, 20 && 1.2.5? , 6? , 8? , 10? , 11? , ”13 '
aktiverar för fönstercon_wndw , om (13-len (titelrad) /2) < 0 = dismsg (”fel: Titelrad för long. 13 utrymme 1.00 för något att säga för endif för för rödingar max”) @ (13-len (titelrad) /2) + header @ 3.00 br/> för Yes'< för något att säga” < > < > ” @ 3.05 snabb ”@ 3.18 den snabba ”menyn för No' till för frigörarfönstret för con_opt ÅRET för con_year * CONTRACY för *L function för iif för con_wndw return (con_opt=1, .t., .f.) går året av avtala tillbaka som specificerat av Rob * för hans ÅRHUNDRADEON för business.
FASTSTÄLLDA num_yr = val (rätten (dtoc (datera ()), 4))FASTSTÄLLDT ÅRHUNDRADE OFF
för -1981 , om val (lämnat (dtoc (datera ()), 4)) > num_yr för 5 = num_yr + message för parametrar för dismsg för num_yr *L function för endif return för 1 definierar fönstermess_wndw från 10,78-6-len (meddelande) till 24.100; TITEL ”nötkreaturmeddelande” för ; DEN NÄRA FLÖTET FÖR VÄXER ZOOMEN; skuggar färgar intrig 7; STILSORTEN ”Arial för sätta en klocka på”, 20 som aktiverar fönstermess_wndw , om den any nyckel- pressen för den tomma (för meddelandet) väntan för ” att fortsätta… ”message för parametrar för dismsgt för *L function för mess_wndw endif ” return '' för väntan för else för ”” + meddelandet +”… definierar fönstermess_wndw från 0,78-6-len (meddelande) till 2.78; skuggar färgar intrigen 7 aktiverar fönstermess_wndw , om den tomma väntan” den any nyckel- pressen för (för meddelandet) att fortsätta…”, ; väntan för else för frånslagningstid 2 för ”” + meddelande +”…”, ; *L function DmsgQwQr * för mess_wndw endif 2 />return '', väntan? (ja eller nr.) frigöraren? (ja eller nr.) parametermeddelandet för
, WaitReply, CloseWin
definierar fönstermess_wndw från 0,78-6-len (meddelande) till 2.78; skuggar färgar intrigen 7 aktiverar fönstermess_wndw
, om WaitReply , om tom (för meddelandet) @ 0.1 för något att säga'' meddelandet för något att säga 0.1 för else för @ +”… 'endif
för endif för , om CloseWin mess_wndw för något att säga 'den any nyckel- pressen som fortsätter… ”meddelandet för något att säga 0.1 för else för read för @ +”… ”else för endif för read för , om tom (för meddelandet) @ 0.1 *L function dispage1 />return '', om redisp_fld för page_no<>first_page = page_noen för .t. = first_page gör disscr
, om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ” för *L function för endif gets /> />return '' definierar fönstertxt_wndw från 1.0 till 24.79; titel ”TRYCK för som ska AVSKÄRMAS (ESC som går ut)”; för systemzoomen för flötet växer nära färgar intrigen 11
, om Yy' för mest akl_test $ 'ändrar sparar && för gentemp.gtx-fönstertxt_wndw .gtx = GeneralTeXt else ändrar sparar && för txt_wndw för gentemp.gtx-noeditfönstret .gtx = txt_wndw return '' end_rpt för fönstret för frigöraren för GeneralTeXt endif för *L function om outp_dev = ”laser” .or-outp_dev = 'dot' om <> ”P_CONTR.FXP” .and för rätten (system (16.3), 11). ; höger (system (16.3), 10) <> ”P_INVO.FXP” .and för . ; höger (system (16.5), 12) <> ”P_SUBRNT.FXP” .and för . ; br/> för P_BIDS.FXP'< för höger (system (16.5), 10) <> för 'om .not. ((rätt (system (16.3), 12) = ”P_LABELS.FXP” .or. ; höger (system (16.3), 12) = ”P_LABLS1.FXP” .or. ; höger (system (16.3), 12) = ”P_LABLS2.FXP”) .and. ; (m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5))endif
, om outp_dev = 'apparaten för endif
för to för skrivaren för file' den fastställda fastställda till uppsättningen för screen tröstar on ”P_BIDS.FXP” för rätten för
* för/> return '' (system (16.4), 10) för endif för endif för eject för (akl) 6/02/99 0:33pm * .and. ; * för && 2/20/94 (akl) som den högra (system (16.3), 12) errnumen för parametrar för errfix för *L function för databases off off 1 return för <> 'envrnmnt för P_LABELS.FXP'<-br/> *L function på fel gör errfix med felet (), meddelandet (), meddelandet (1), program (), uppsättning för för lineno (), sätta en klocka på uppsättningen för off tröstar on fastställda decimaler till uppsättningen för on för 10 uppsättningen borttagna avkräver för artikel med ensamrättoff för off den fastställda fastställda apparaten till fastställda multilocks för screen , uppsättningen för off förnyar till uppsättningen för 0 reprocess till '',errormsg errormsg1, prgname, för frigörarfönstret för lineno * err_wndw gör fallerrnum för case = 108 som && sparar i bruk vid another , om bekräfta (”spara i bruk, försöker igen? ”) else för retry för om endif för fönstret för frigöraren för för wexisten (”chkf_wndw”)/> = retur för för restenv () till errnumen för fallet för endif för &callmenu = 109 rekord- för && som låsas av another , om bekräfta (”, antecknar i bruk, försöker igen? ”) retur för else för retry för till endif för mainproc * retur till fallerrnumen för & = 110 som && sparar i bruk vid another = retur för för dismsg (”spara måste att opendeds exklusivt”) till on för escaen för otherwise *set för &callmenu , definierar fönstererr_wndw från 15.3 till 50.170; STILSORTEN ”Arial för sätta en klocka på”, 16; den dubbla flötet för skuggar färgar för intrigen 2 aktiverar fönstererr_wndw @ 0.0 som det något att säga”felet numrerar: ” + ltrim (stren (errnum))meddelande för fel för något att säga 1.0 för @ ”: ” + något att säga 2.0 för errormsg @ ”fodrar av text: ” + känt program för något att säga 3.0 för errormsg1 @ ”: ” + prgname @ 4.0 som något att säga ”fodrar, numrerar: ” + ltrim (stren (lineno))något att säga 5.0 för @ ”anmärker: ” + 2018) return för *L function för endcase off *set err_wndw = (”felet”)/> parameters m_row1, m_col1, m_row2, m_col2, m_cnt, m_type
* m_row1 = övre vänstra räcker tränga någon av box. * m_col1 = övrerighthanden tränga någon av box. * m_row2 = lower lämnat räcker tränga någon av box. * m_col2 = lägre rätt hade att tränga någon av m_cnt för box. * = numrerar av kliver för explosion bestämmer rusa som boxas m_type för explodes. * = typ av explosion. * 1 = alla sidor exploderar strax. * 2 = endast sidor explode. * 3 = överträffar endast och bottna explode. * 4 = exploderar från vertikal. * 5 = exploderar från botten till top. * 6 = exploderar från. * 7 = exploderar från explode save för left.
public avskärmer rakt till till explode
r_pos1 = m_row1 r_pos2 = m_row2 c_pos1 = m_col1 c_pos2 = för m_col2
do case = 1 && allt lager för sides. ((m_row2-m_row1) /2) +m_row1 till r_pos1, && r_pos2 ror lagret för center ((m_col2-m_col1) /2) +m_col1 till c_pos1, för kolonn-center för && c_pos2 r_cnt = (r_pos1-m_row1) -/m_cnt&& ror c_cnt för increment = (c_pos1-m_col1) increment fallm_type = 2 lagret för &&sidor only. ((m_col2-m_col1) /2) +m_col1 till c_pos1, för kolonn-center för && c_pos2 c_cnt = (c_pos1-m_col1) m_type för fallet för increment för -/m_cnt&&kolonn = && som 3 är bästa, och lagret för bottom ((m_row2-m_row1) /2) +m_row1 till r_pos1, && r_pos2 ror r_cnt för center = (r_pos1-m_row1) -/m_cnt&& ror fallm_type för increment vertikal för = 4 && r_pos2- = för m_row1 r_cnt = (m_row2-m_row1) -/m_cnt&& ror fallm_type för increment botten för = 5 && till top r_pos1- = för m_row2 r_cnt = (m_row2-m_row1) -/m_cnt&& ror fallm_type för increment = för 6 && c_pos2- = för m_col1 c_cnt = (m_col2-m_col1) -/m_cnt&& ror fallm_type för increment left för = 7 && rakt till c_pos1- = för m_col2 c_cnt = (m_col2-m_col1) -/m_cnt&& ror <= m_row2 .and för >= m_row1 .and r_pos2 för stunder r_pos1 för increment endcase
do. ; <= m_col2 @ r_pos1, c_pos1, r_pos2, c_pos2 för >= m_col1 .and c_pos2 för c_pos1 boxas ”im;: gör fallm_type = 1 för case r_pos1 = r_pos1 - r_cnt r_pos2 = r_pos2 + r_cnt c_pos1 = c_pos1 - c_cnt c_pos2 = c_pos2 + fallm_type för c_cnt = 2 c_pos1 = c_pos1 - c_cnt c_pos2 = c_pos2 + fallm_type för c_cnt = 3 r_pos1 = r_pos1 - r_cnt r_pos2 = r_pos2 + fallm_type för r_cnt = 4 r_pos2 = r_pos2 + fallm_type för r_cnt = 5 r_pos1 = r_pos1 - fallm_type för r_cnt = 6 c_pos2 = c_pos2 + fallm_type för c_cnt = 7 c_pos1 = c_pos1 - endcase enddo clear
*@ m_row1 för c_cnt ,m_col1 m_row2, m_col2 boxas ”im;: * (akl) för *L function för/> return '' 5/11/99 3:27pm * det nästa, OM meddelandet togs bort för att låta, filtrerar meddelandet för att vara displayed. * om .not. ((rätt (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”)) aktiverar endif för screen *, om tomma .not (filtrera ()) @ 0.70 som något att säga ”filtrerar på”, färgar else * (akl) för w+/n 5/11/99 3:27pm * det nästa, OM meddelandet ändrades för att visa Rätt-Överträffar tränga någon av boxas. gör fallrätten för case (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF'<-br/> om rätten för .and för ÍÍÍÍÍÍÍÍÍ” för något att säga 0.70 ”för else för för ÍÍÍÍÍÍÍÍÍ " för PrimDisp @ något att säga 0.70 ”@ ”rätten för fallet för endif
för (system (16.2), 12) = ”CRITTERS.FXP” (dbf (), 12) = ”CRITCATS.DBF'<-br/> om PrimDisp @ 0.70 något att säga 09) @ 0.70 ”ÍÍ” för else för för något att sägautrymme (”otherwise för endif
för för +space (06) @ 0.70 endif
för endcase för för något att sägautrymme (09), om pseudonymen () = ”BIDS' , om typ (”s_recon_date”) = ”D' , om tom @ 0, 1 else @ 0 (för s_recon_date) för för något att sägautrymme (25), 1 Recon något att säga ”daterar: ”+dtoc (s_recon_date) färgar endif
för endif för endif för w+/n om .not. ((rätt (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”))ökad
* (akl) 4/10/99 11:43pm * om meddelandet för efter villkora: 2/M/F5/N/Z * Datan avskärmer raderas, och en användare avskärmer är activated. * problem uppstår, när ENDAST Hoa-Stämma från anbud till nötkreaturhundens Zoom. * ingen användare avskärmer aktiveras därför att beloppet av data ska inte passform på a * användaren avskärmer. Så det skrivbords- används. (aktivera avskärmer).
om .not. (system (16.5) = ”PÅ…” .and. ; höger (system (16.6), 8) = ”BIDS.FXP” .and. ; höger (dbf (), 12) = fltrstar för *L function för endif /> usr_wndw&page_num return ”för CRITDOGS.DBF”) aktiverar '' aktiverar screen , om tomma .not (filtrera ()) @ 0.70 som något att säga ”filtrerar på”, färgar else @ 0.70 endif för för något att sägautrymme (09) endif
EditFld för för retur för för dbf aktiverar för fönsterusr_wndw return '' org_alias för parametrar prm1 för *L function genhlp privata, org_alias för hlp_topic
= för w+/n för pseudonym () om ”GENHLP.DBF” $ () '' =. F.-ALLA && rånar önskar redigerar (memoen) sätter in för att peka för &&hjälp för same för förmiddagen för 1:53 för meddelande 1/10/97 (akl), om hlp_topic tom = else för prog_name , om tomt (system (18))hlp_topic = hlp_topic else för prm1 = för system (18) om typ (”&hlp_topic”) = ”M' EditFld =. Endif
för endif för endif för T. , om .not sparar (”genhlp.DBF”) , om .not sparar (”genhlp.STR”) = retur '' else vald 0 för för dismsg (”inte-funnen genhlp.STR”) för , skapar genhlp från uppsättningen för genhlp
för bruk för endif
den valda 0 för endif för use för genhlp.str avkräver on , om EditFld lokaliserar för klippning (ämne) = ”else för BID' lokaliserar för klippning (ämne) = uppsättningen för endif för hlp_topic avkräver off
om för eof (), om modi_memo fästar blank = rlock()
* byter ut ämne med && prm1 är denna en bugga?? byter ut ämne med hlp_topic && om ja, detta kan vara knipan!! && för avskärma, var en sätta in har inte vald && för yet (A eller M), byter ut en blank.
byter ut krön med 7, bcol med 10; erow för med 16, ecol med && för else för unlock för 70 ingen tillgänglig hjälp - ignorera eller larma msg??? för retur'' för endif för endif , om modi_memo definierar fönsterhelp_wndw från krön, bcol till erow, ecol; titel ”HJÄLP (ESC som går ut, eller F10 för till räddningen)”; för systemzoomen för flötet växer nära färgar else för intrigen 11 definierar fönsterhelp_wndw från krön, bcol till erow, ecol; titel ”HJÄLP (ESC för som går ut)”; för systemzoom för slutet färgar endif för intrigen 11 , om modi_memo , om för rlock () på den nyckel- etiketten F10 gör sav_wind med ”för HJÄLP (ESC som går ut, eller F10 till räddningen) ”, ändrar memoen specificerar unlock för fönsterhelp_wndw på nyckel- else /> = else för endif för för dismsg (”rekordartada i bruk för hjälp, försöker igen”), ändrar memoen specificerar use för endif för noeditfönsterhelp_wndw om! tom * VARIABLES för *L function för help_wndw endif &org_alias />return (för org_alias) '' som alla privat privat choice gillar prima prompt* = 0 prompt1 =”, går ” prompt2 =” Modi ” prompt3 =” avslutad ”
* WINDOWS definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” raster för befaller menyn”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN aktiverar noshow * 1 för fönstret MAINTMNU 2 3 @ 0, 1 något att säga ”går Modi Quit' *L på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet () som HELP
aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 4-1 snabba prompt2 @ 0, 9-1 den snabba menyn för prompt3 till choice
gör det primaa fallet för case = för frigörarfönstret för 0 MAINTMNU alternativ = ”det primaa fallet för quit' = alternativ för 1 = ”det primaa fallet för go' = alternativ för 2 = ”det primaa fallet för modify' = för frigörarfönstret för 3 MAINTMNU alternativ = ”endcase
för quit' inaktiverar fönsterMAINTMNU
return option *L function getgrid2 * GetGrid2 har det valt (Sel) befaller ökat till lista 3/21/96 privata privata choice för 6:03pm * VARIABLES all prima lik prompt* = 0 prompt1 =” går ” prompt2 =” Modi ” prompt3 =” Sel ” prompt4 =” avslutad ”
* WINDOWS definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” raster för befaller menyn”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN aktiverar noshow * 1 för fönstret MAINTMNU 2 3 4 @ 0, 1 något att säga ”går Modi Sel Quit' *L på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet () som HELP
aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 4-1 snabba prompt2 @ 0, 9-1 snabba prompt3 @ 0.13-1 den snabba menyn för prompt4 till choice
gör det primaa fallet för case = för frigörarfönstret för 0 MAINTMNU alternativ = ”det primaa fallet för quit' = alternativ för 1 = ”det primaa fallet för go' = alternativ för 2 = ”det primaa fallet för modify' = alternativ för 3 = ”det primaa fallet för select' = för frigörarfönstret för 4 MAINTMNU alternativ = ”endcase
för quit' inaktiverar getsel för fönsterMAINTMNU
return option *L function på den nyckel- etiketten F7 gör genhlp med
för system (18) gör fallrätten för case (system (16.2), 12) = ”<> för den CRITTERS.FXP-” .and-zoom_numen, ”som 1 ' gör fallrätten för maintmnu2
(system (16.2), 12) = ' den CONTRACT.FXP” .or-rätten (system (16.2), 11) = ' INVOICE.FXP” .or. ; höger (system (16.2), 11) = ' högra ANIMALS.FXP” .or (system (16.2), 08) = ' BIDS.FXP” .or. ; höger (system (16.3), 08) = ' höger CREW.FXP” .or (system (16.2), 12) = ' CRITTERS.FXP” .or. ; höger (system (16.3), 07) = ' höger DHR.FXP” .or (system (16.3), 08) = ' ACTS.FXP” .or. ; höger (system (16.3), 10) = ' högra AGENCY.FXP” .or (system (16.3), 08) = ' JOBS.FXP” .or. ; höger (system (16.3), 08) = ' höger MAPS.FXP” .or (system (16.3), 11) = ' MEASURE.FXP” .or. ; höger (system (16.3), 11) = ' högra PAYABLE.FXP” .or (system (16.3), 10) = ' PRICES.FXP” .or. ; höger (system (16.3), 12) = ' högra PRODUCTN.FXP” .or (system (16.3), 10) = ' PETSHP.FXP” .or. ; höger (system (16.3), 11) = ' högra RECEIVE.FXP” .or (system (16.3), 11) = ' SUBRENT.FXP” .or. ; höger (system (16.3), 08) = ' höger USDA.FXP” .or (system (16.3), 12) = ' HELTHCRT.FXP” .or. ; höger (system (16.3), 09) = ' ADOPT.FXP'< br/> gör den && tillfogade menyn maintmnu4 för 'rätten för fallet för Go'
(system (16.3), 9) = 'SETUP.FXP'<-br/> gör otherwise för maintmnu5
gör * * för * för ****** för för ********** för för ********** för för ********** för för ********** för för ************************** för option *L för endcase return för maintmnu
för NÖTKREATUR som den standarda underhållsmenyn byts ut med: dismsg för * = för * * för * * MAINTMNU.prg för * * (”det Crit felet nr. 1 - kodifiera inte aktiverat. definiera vadderar i varje actn_pad för popup (1.1) (getsel)”) för ************************** för
för ****** för för ********** för för ********** för för ********** för för ********** aktiverar screen som det fastställda meddelandet till 0 dimensionerar för actn_pad (8.2) dimensionerar data_bar (3) dimensionerar recd_bar (3) dimensionerar recs_bar (3) dimensionerar edit_bar (2) dimensionerar addr_bar (3) dimensionerar scrn_bar (2) dimensionerar filt_bar (2) dimensionerar quit_bar (1)
* = actn_pad 'för DATABAS' (2.1) = Actn_pad för 'för REKORDET 'actn_pad för (3.1) = 'REKORD actn_pad för (4.1) = 'EDIT '(5.1) = 'actn_pad för ADD' (6.1) = 'AVSKÄRMER 'actn_pad för (7.1) = 'FILTRERAR 'actn_pad för (8.1) = 'AVSLUTAD 'actn_pad för (1.2) = actn_pad för 'för REKORDET ''för DATABAS 'actn_pad för (2.2) = actn_pad för (3.2) = 'REKORD actn_pad för (4.2) = 'EDIT '(5.2) = 'actn_pad för ADD' (6.2) = 'AVSKÄRMER 'actn_pad för (7.2) = 'FILTRERAR 'actn_pad för (8.2) = 'data_bar AVSLUTAD '
(1) = 'listar 'data_bar (2) = 'data_bar Zoom' (3) = 'data_bar etikett' * (4) = 'recd_bar avslutad ' (1) = 'recd_bar Retrieve' (2) = 'därefter 'recd_bar (3) = 'recs_bar Previous' (1) = 'börjar 'recs_bar (2) = 'avslutar 'recs_bar (3) = 'överhoppet ',edit_bar (1) = 'ändrar 'edit_bar (2) = 'redigerar addr_bar Memo' (2) = 'addr_bar borttagnings' (3) = 'kopierar 'scrn_bar (1) = 'nästa scrn_bar Page' (2) = 'filt_bar Prev Page' (1) = 'uppsättningen filtrerar 'filt_bar (2) = 'annulleringen filtrerar 'quit_bar (1) = 'den avslutade 'menyn för
bommar för actn_pad, meny 1 som är data_bar, meny 2 som är recd_bar, meny 3 som för 8 för 3 för 3 är recs_bar,meny 4 som är edit_bar, meny 5 som är addr_bar, meny 6 som är scrn_bar, meny 7 som är filt_bar, meny 8 som är quit_bar, 1 @ 24.0 för 3 för 2 för 3 för 2 för 2 för något att sägautrymme (som 80) läste menyn, bommar för till sele_row, clear för sele_colsave gör fallsele_row för case = opt_sel för 1 = data_bar sele_row för fallet för (för sele_colen) = opt_sel för 2 = recd_bar sele_row för fallet för (för sele_colen) = opt_sel för 3 = recs_bar sele_row för fallet för (för sele_colen) = opt_sel för 4 = edit_bar sele_row för fallet för (för sele_colen) = opt_sel för 5 = addr_barsele_row för fallet för (för sele_col) = opt_sel för 6 = scrn_bar sele_row för fallet för (för sele_colen) = opt_sel för 7 = filt_bar opt_sel för otherwise för (för sele_colen) = 'endcase för Quit' , om upperen för något att säga 0.1 för br/> för opt_sel<>'Quit'< @ (klippning (opt_sel)) färga endif för w+/n aktiverar fönsterusr_wndw&page_num return lower (klippning (opt_sel))getseli för *L function aktiverar screen som det fastställda meddelandet till 0 dimensionerar för actn_pad (5.2) dimensionerar data_bar (4) dimensionerar recd_bar (7) dimensionerar scrn_bar (2) dimensionerar filt_bar (2) dimensionerar quit_bar (1)
* definiera vadderar i varje actn_pad för popup (1.1) = 'DATABAS 'actn_pad för (2.1) = 'REKORDET 'actn_pad för (3.1) = 'AVSKÄRMER 'actn_pad för (4.1) = 'FILTRERAR 'actn_pad för (5.1) = 'AVSLUTAD 'actn_pad för (1.2) = 'DATABAS 'actn_pad för (2.2) = 'actn_pad för REKORD' (3.2) = 'AVSKÄRMER 'actn_pad för (4.2) = 'FILTRERAR 'actn_pad för (5.2) = ”data_bar AVSLUTAD ”
* (1) = data_bar för iif (no_zooms = zoom_noen,” \ -”, ”Zoom”) (1) = 'listar 'data_bar (2) = 'etiketten 'data_bar (3) = 'zoomen 'data_bar (4) = 'recd_bar avslutad ' (1) = 'recd_bar Retrieve' (2) = 'därefter 'recd_bar (3) = 'recd_bar Previous' (4) = 'börjar 'recd_bar (5) = 'avslutar 'recd_bar (6) = 'recd_bar överhopp' (7) = 'scrn_bar Memo' (1) = 'nästa scrn_bar Page' (2) = 'filt_bar Prev Page' (1) = 'fastställd filt_bar Filter' (2) = 'quit_bar annulleringsFilter' (1) = 'den avslutade 'menyn för
bommar för actn_pad, meny 1 som är data_bar, meny för 5 för 4 2 recd_bar, meny 3 som är scrn_bar, meny 4 som är filt_bar, meny 5 som är quit_bar, 1 @ 24.0 för 7 för 2 för 2 för något att sägautrymme (som 80) läste menyn, bommar för till sele_row, clear för sele_colsave gör fallsele_row för case = opt_sel för 1 = data_bar sele_row för fallet för (för sele_colen) = opt_sel för 2 = recd_bar sele_row för fallet för (för sele_colen) = opt_sel för 3 = scrn_bar sele_row för fallet för (för sele_colen) = opt_sel för 4 = filt_bar opt_sel för otherwise för (för sele_colen) = 'endcase för Quit' om br/> för opt_sel<>'Quit'< @ upper för något att säga 0.1 (klippning (opt_sel)) färga endif för w+/n aktiverar fönsterusr_wndw&page_num return lower (klippning (opt_sel))getselr för *L function på den nyckel- etiketten F7 gör genhlp med för system (18) gör för ************************** för maintmnu3 return
* * för * för ****** för för ********** för för ********** för för ********** för för ********** för NÖTKREATUR som den standarda underhållsmenyn byts ut med: dismsg för * = för * * för * * MAINTMNU.prg för * * (”det Crit felet nr. 1 - kodifiera inte aktiverat. definiera vadderar i varje actn_pad för popup (1.1) (getselr)”) för ************************** för
för ****** för för ********** för för ********** för för ********** för för ********** aktiverar screen som det fastställda meddelandet till 0 dimensionerar för actn_pad (7.2) dimensionerar prnt_bar (3) dimensionerar data_bar (3) dimensionerar recd_bar (2) dimensionerar recs_bar (3) dimensionerar scop_bar (3) dimensionerar filt_bar (2) dimensionerar quit_bar (1)
* = actn_pad 'för TRYCK' (2.1) = actn_pad 'för DATABAS' (3.1) = 'ANTECKNAR 'actn_pad för (4.1) = 'REKORD actn_pad för (5.1) = 'RÄCKVIDD 'actn_pad för (6.1) = 'FILTRERAR 'actn_pad för (7.1) = 'AVSLUTAD 'actn_pad för
(1.2) = 'TRYCKET 'actn_pad för (2.2) = 'DATABAS 'actn_pad för (3.2) = 'för RÄCKVIDD' för REKORDET 'actn_pad för (4.2) = 'REKORD actn_pad för (5.2) = actn_pad '(6.2) = 'FILTRERAR 'actn_pad för (7.2) = 'AVSLUTAD '
prnt_bar (1) = 'till prnt_bar skrivar' (2) = 'att spara 'prnt_bar (3) = 'att avskärma 'prnt_bar * (4) = 'prnt_bar tryckReport' * (5) = 'status 'prnt_bar * (6) = 'data_bar avslutad '
(1) = 'listar 'data_bar (2) = 'etiketten 'data_bar (3) = 'recd_bar Status'
(1) = 'därefter 'recd_bar (2) = 'recs_bar Previous'
(1) = ',Börja 'recs_bar (2) = 'avslutar 'recs_bar (3) = 'överhopp'
som är scop_bar (1) = 'från scop_bar rekord- ' (2) = 'att anteckna 'scop_bar (3) = 'filt_bar annulleringsräckvidd'
(1) = 'uppsättningen filtrerar 'filt_bar (2) = 'annulleringen filtrerar 'quit_bar
(1) = 'den avslutade 'menyn för
bommar för actn_pad, meny 1 som är prnt_bar, meny 2 som är data_bar, meny 3 som är recd_bar, 2 för 7 för 3 för 3 meny 4 som var recs_bar, meny 5 som var scop_bar, meny 6 som var filt_bar, meny 7 som var quit_bar, 1 för 3 för 3 för 2 , läste menyn bommar för till sele_row, clear för sele_colsave gör fallsele_row för case = opt_sel för 1 = prnt_bar sele_row för fallet för (för sele_colen) = opt_sel för 2 = data_bar sele_row för fallet för (för sele_colen) = opt_sel för 3 = recd_bar sele_row för fallet för (för sele_colen) = opt_sel för 4 = recs_bar sele_row för fallet för (för sele_colen) = opt_sel för 5 = scop_bar sele_row för fallet för (för sele_colen) = opt_sel för 6 = filt_bar (för sele_colen) opt_sel för otherwise = 'endcase för Quit' , om upperen för något att säga 0.1 för br/> för opt_sel<>'Quit'< @ (klippning (opt_sel)) färga endif för w+/n aktiverar fönsterusr_wndw return lower (klippning (opt_sel))init_rpt
för *L function gör falloutp_dev för case = flyttningen för && för <> ”P_LABELS.FXP” för rätten ”för laser” .or-outp_dev = 'dot' om outp_dev = 'det fastställda trycket för dot' till endif
för LPT1 om outp_dev = 'laser' om (system (16.3), 12) till 95. Ändra detta när possible. om akl_system $ 'fastställdt tryck för Y' till trycket för else för LPT1 det fastställda till endif
för endif för endif för LPT1 , om högert (system (16.3), 12) = 'P_LABELS.FXP'<-br/>*, om gruppen = 1 .or-grupp gruppen för = 2 .or = 3 kommenterade, därför att there * inte är mer, pricker skrivaren. 4/11/2000 förmiddag för * I för
* (akl - 12/31/98 4:31 pm) för 9:57pm som (akl) tar bort denna om meddelande. Jag vet inte egentligen varför jag satte det in. * som jag sade emott jag själv. Se föregående OM meddelandet, precis nedanför ”laser”. * efter en lång tid, tar bort denna OM och AVSLUTAR statements. * om rätt (system (16.3), 12) &&flyttningen för <> ”P_LABELS.FXP” till 95. Ändra detta när possible.
om trycket för br/> för akl_system$-'Y'< det fastställda till trycket för else för LPT1 det fastställda till endif
för endif för endif
* för endif * för LPT1 , om högert (system (16.3), 11) = ”P_CONTR.FXP” .or. ; höger (system (16.3), 10) = ”P_INVO.FXP” .or. ; höger (system (16.3), 12) = 'P_SUBRNT.FXP'<-br/>, om akl_system $ 'fastställdt tryck för Y' till trycket för else för LPT1 det fastställda till endif
för endif för LPT1 gör tagsystem (13) = ”något att säga 0.0 för OFFLINE' @”, behar s_readkeyen för read för för den fastställda skrivaren den on-line… ”=
för readkey (), om s_readkeyen s_readkeyen för = 268 .or flykten för = 12 && var pressed som den fastställda apparaten till uppsättningen för screen tröstar för tryckoff för on fastställd något att säga 0.0 för enddo
@ 0,0 för endif för return @” som skrivar ut - ESC som ska stoppas 'fastställd apparat för till printer om outp_dev = 'laser' * flyttning till 95. Ändra detta när möjligheten. < - Why? 11/14/01 om höger (system (16.3), 12) <> ”P_LABELS.FXP” .and. ; som för P_BIDS.FXP'<-br/> för höger (system (16.5), 10) <> 'uppsättningen tröstar för tryckon * för off fastställd chr för något att säga 0.0 @ (27) + " e-” &&, initialiserar printer?? chr (27) + uppsättningen för off för trycket " för e-" den fastställda tröstar outp_dev för fallet för endif
för endif för on = ”något att säga 0.0 för file' @ 0,0 @” som skrivar ut - ESC som stoppar 'den fastställda skrivaren för för att spara den fastställda apparaten för &rep_file för att spara falloutp_dev för &rep_file
= ”något att säga 0.0 för screen' @ 0,0 @” som skrivar ut - ESC för att stoppa ”den fastställda skrivaren för för att spara den fastställda apparaten för gentemp.gtx för att spara ********** akl för gentemp.gtx : Fodrar ökat för att stoppa gående into för TOF-teckenet skjuter ut && sparar som först tecken. 8/01/98 apparat för to för skrivare för 1:18am fastställda fastställda till den fastställda skrivaren för screen
som sparar den fastställda apparaten för gentemp.gtx för att spara för ********** för gentemp.gtx page_no för endcase
= line_noen för 1 = uppsättningen för top_margin , tröstar lnk_var off
= '' går first_rec
, om tomma .not (filtrera ())filter_str för = filtrerar () , om brk_noen för endif
för endif för skip för .not-&filter_str = brk_numen för 1 = ”1 ' gjorda = at_top för &done_cond = .t. return '' maintmnu * VARIABLES för *L function som alla privat privat choice gillar prima prompt* = 0 prompt1 =”, tillfogar ” prompt2 =” tigger ” prompt3 =” kopierar ” prompt4 =” Del ” prompt5 =” avslutar ” prompt6 =” Filt ” prompt7 =” listar ” prompt8 =” Modi ” prompt9 =” därefter ” prompt10 =” Prev ” prompt11 =” avslutad ” prompt12 =” retur ” prompt13 =” överhopp” prompt14 =” etikett” prompt15 =” Zoom”
* WINDOWS definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” underhåll för befaller menyn”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN * som kommenteras för VFP OM. F. aktiverar noshow * 1 för fönstret MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 14 15 @ 0, 1 något att säga 'tillfogar tigger kopierar Del Avsluta Filt listar Modi som avslutade nästa Prev retur br/> ENDIF * som för överhoppetikettZoom'< kommenteras för VFP *L *, FUNGERAR NYCKEL- ASSIGNMENT på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet (), HELP
gör fallprog_name för case = ”KALENDER" på den nyckel- etiketten F2 gör mntmnuf med 2 på den nyckel- etiketten F10 gör mntmnuf med otherwise för 10
på den nyckel- etiketten F2 gör mntmnuf med 2 på den nyckel- etiketten F8 gör mntmnuf med 8 på den nyckel- etiketten F9 gör mntmnuf med 9 på den nyckel- etiketten F10 gör mntmnuf med 10 på den nyckel- etiketten F11 gör mntmnuf med endcase
* som för 11
tillfogas för VFP- , gör den primaa DispMenu s_choicen = mChoice = mChoice
* som kommenteras för VFP OM. F. aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 5-1 snabba prompt2 @ 0, 9-1 snabba prompt3 @ 0.14-1 snabba prompt4 @ 0.18-1 snabba prompt5 @ 0.22-1 snabba prompt6 @ 0.27-1 snabba prompt7 @ 0.32-1 snabba prompt8 @ 0.37-1 snabba prompt9 @ 0.42-1 snabba prompt10 @ 0.47-1 snabba prompt11 @ 0.52-1 snabba prompt12 @ 0.56-1 snabba prompt13 @ 0.61-1 snabba prompt14 @ 0.67-1 som den snabba menyn för prompt15 till choice ENDIF * som kommenteras för VFP
, gör det primaa fallet för case = för frigörarfönstret för 0 MAINTMNU alternativ = 'det primaa fallet för quit' = 1 alternativ = 'det primaa fallet för add' = alternativ för 2 = 'det primaa fallet för begin' = alternativ för 3 = 'det primaa fallet för copy' = alternativ för 4 = 'det primaa fallet för delete' = alternativ för 5 = 'det primaa fallet för end' = 6 definierar fönsterfil_wndw från 1.50 till 6.77 som dubblett färgar intrigen 12 aktiverar titelraden för fönsterfil_wndw = 'utrymme 1.00 för något att säga för Filter' @ (13-len (titelrad) /2) + header @ 3.04 br/> för Set'< för br/> för något att säga''< @ 3.05 snabb '@ 3.16 den snabba 'menyn för Cancel' till fil_opt
om fil_opt = alternativ för 1 = 'fastställd endif
för filter' om fil_opt = alternativ för 2 = 'primat fall för fil_wndw
för fönster för frigörare för endif
för annulleringsfilter' = alternativ för 7 = 'primat fall för list' = alternativ för 8 = 'primat fall för modify' = alternativ för 9 = 'primat fall för next' = alternativ för 10 = 'primat fall för previous' = för frigörarfönster för 11 MAINTMNU alternativ = 'primat fall för quit' = alternativ för 12 = 'primat fall för retrieve' = alternativ för 13 = 'primat fall för skip' = 14 alternativ = ”det primaa fallet för tally' = alternativ för 15 = ”endcase
för zoom' inaktiverar fönsterMAINTMNU return option
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mntmnuf parameter KeyF_no
för
function gör fallet KeyF_no = 2 för case KeyF2 =. Fall KeyF_no = 5 för T.
KeyF5 =. Fall KeyF_no = 8 för T.
KeyF8 =. Fall KeyF_no = 9 för T.
KeyF9 =. Fall KeyF_no = 10 för T.
KeyF10 =. Fall KeyF_no = 11 för T.
KeyF11 =. s_FkeyRec för endcase
för T.
= s_prgname för för recno () = prog_name skrivar choice för plain
return *L function maintmnu2 * VARIABLES för chr (113) privat privat all prima lik prompt* = 0 prompt1 =” Modi ” prompt2 =” avslutad ” prompt3 =” Del ” prompt4 =” Filt ”
* om ((rätten (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; * (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”)) prompt5 =” primär ” prompt6 =” sekundär ”endif
* WINDOWS för * definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” underhåll för befaller menyn (Zoom)”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN PÅ DEN NYCKEL- ETIKETTEN Alt+F12 SUSPEND aktiverar noshow * 1 för fönstret MAINTMNU 2 3 4 5 6 @ 0, för Modi Avslutning Del Filt Primär för 1 något att säga 'br/> Secondary'< om ((rätten (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”)) * 1 2 3 * 123456789012345678901234567890123456 @ 0, för Modi Avslutning Del Filt Primär för 1 något att säga 'snabb br/> Secondary'< *: 1 2 3 4 5 endif *L för 6 på den nyckel- etiketten F2 gör mntmnuf22 på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN HELP
för programet () om ((rätten (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”)) på den nyckel- etiketten PgDn gör DispSecn på den nyckel- etiketten PgUp gör DispPrim endif
aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 6-1 snabba prompt2 @ 0.11-1 snabba prompt3 @ 0.15-1 snabba prompt4
om (rätten (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; höger (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”CRITCATS.DBF”)) @ 0.20-1 snabba prompt5 @ menyn som för endif
för 0.28-1 den snabba prompt6 till choice
det primaa fallet gör för case = för frigörarfönstret för 0 MAINTMNU alternativ = 'det primaa fallet för br för quit'> = alternativ för 1 = 'det primaa fallet för br/> för modify'< = för frigörarfönstret för 2 MAINTMNU alternativ = 'det primaa fallet för br för quit'> = alternativ för 3 = 'det primaa fallet för delete'< br/> = 4 , definierar fönsterfil_wndw från 1.50 till 6.77 dubblett färgar intrigen 12 aktiverar titelraden för fönsterfil_wndw = 'utrymme 1.00 för något att säga för Filter' @ (13-len (titelrad) /2) + något att säga 3.04 för header @ ',' @ 3.05 den snabba 'Set' @ 3.16 snabba 'menyn för Cancel' till fil_opt
, om fil_opt = alternativ för 1 = 'fastställd endif
för filter' , om fil_opt = alternativ för 2 = 'det primaa fallet för fil_wndw för fönstret för frigöraren för endif
för annulleringsfilter' = alternativ för 5 = ”primary' gör det primaa DispPrim
fallet = alternativ för 6 = ”secondary' , gör, DispSecn endcase
inaktiverar fönstret MAINTMNU
om (rätten (system (16.2), 12) = ”den CRITTERS.FXP-” .and-rätten (dbf (), 12) = ”CRITDOGS.DBF”) .or. ; (rätten (system (16.2), 12) = ”höger CRITTERS.FXP” .and (dbf (), 12) = ”för CRITCATS.DBF”) på den nyckel- etiketten PgDn på nyckel- option
* för etikettPgUp endif
return - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
function mntmnuf22
KeyF2 =. S_prgname för T. = prog_name skrivar choice för plain
return *L function maintmnu3 * VARIABLES för chr (113) privat privat all prima lik prompt* = 4 prompt1 =” tigger ” prompt2 =” avslutar ” prompt3 =” Filt ” Prompt4 =” går ” prompt5 =” listar ” prompt6 =” därefter ” prompt7 =” Prev ” prompt8 =” avslutad ” prompt9 =” retur ” prompt10 =” överhoppet ” prompt11 =” etiketten ” prompt12 =” < ” prompt13 =” > ”
* WINDOWS definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” rapport för befaller menyn”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN aktiverar noshow * 1 för fönstret MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 @ 0, 1 något att säga 'tigga avslutar Filt går listar som avslutade nästa Prev retur överhoppetikett< > ' *L på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet () HELP
aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 5-1 snabba prompt2 @ 0, 9-1 snabba prompt3 @ 0.14-1 snabba prompt4 @ 0.17-1 snabba prompt5 @ 0.22-1 snabba prompt6 @ 0.27-1 snabba prompt7 @ 0.32-1 snabba prompt8 @ 0.37-1 snabba prompt9 @ 0.41-1 snabba prompt10 @ 0.46-1 snabba prompt11 @ 0.52-1 snabba prompt12 @ den snabba som prompt13 menyn för 0.54-1 till choice
det primaa fallet gör för case = för frigörarfönstret för 0 MAINTMNU alternativ = 'det primaa fallet för br för quit'> = alternativ för 1 = 'det primaa fallet för br/> för begin'< = alternativ för 2 = 'det primaa fallet för br för end'> = 3 , definierar fönsterfil_wndw från 1.50 till 6.77 dubblett färgar intrigen 12 aktiverar titelraden för fönsterfil_wndw = 'utrymme 1.00 för något att säga för Filter' @ (13-len (titelrad) /2) + br/> @ 3.05 för '< för för något att säga 3.04 för header @ ' meddela 'Set' @ 3.16 den snabba 'menyn för Cancel' till fil_opt
om fil_opt = alternativ för 1 = 'fastställd endif
för filter' om fil_opt = alternativ för 2 = 'det primaa fallet för fil_wndw
för fönstret för frigöraren för endif
för annulleringsfilter' = 4 , om högert (system (16.3), 11) = 'alternativ för P_CONTR.FXP'<-br/> = 'till else * för printer' gör det primaa fallet för endif
för out_dev&& 11/27/93 = alternativ för 5 = 'det primaa fallet för list' = alternativ för 6 = 'det primaa fallet för next' = alternativ för 7 = 'previous' = för frigörarfönstret för 8 MAINTMNU alternativ = 'det primaa fallet för quit' = alternativ för 9 = 'det primaa fallet för retrieve' = alternativ för 10 = 'det primaa fallet för skip' = alternativ för 11 = 'det primaa fallet för tally' = alternativ för 12 = 'från det primaa fallet för record' = alternativ för 13 = ”till endcase
för record' inaktiverar fönsterMAINTMNU return option *L function maintmnu4 * 10/19 - ökade ”menu4” som låter ”, går” (trycket) från en maintnenace window. * detta arbeten samma som tryckmenyn ”går” befaller.
* VARIABLES som alla privat privat choice gillar prima prompt* = 0 prompt1 =”, tillfogar ” prompt2 =” tigger ” prompt3 =” kopierar ” prompt4 =” Del ” prompt5 =” avslutar ” prompt6 =” Filt ” prompt7 =” går ” prompt8 =” listar ” prompt9 =” Modi ” prompt10 =” därefter ” prompt11 =” Prev ” prompt12 =” avslutad ” prompt13 =” retur ” * nya valda Command , om rätten (system (16.2), 12) = else för ”för CRITTERS.FXP” högra .or (system (16.3), 8) = ”USDA.FXP'<-br/> prompt14 =” Sele ”prompt14 =” endif för överhopp” prompt15 =” etikett” prompt16 =” Zoom”
* WINDOWS definierar fönstret MAINTMNU från 95.0 till 105.190; titeln” underhåll för befaller menyn”; den dubbla flötet för skuggar färgar intrig 2; STILSORTEN ”Arial för sätta en klocka på”, 19
* SCREEN PÅ DEN NYCKEL- ETIKETTEN Alt+F12 SUSPEND aktiverar
* som för fönstret MAINTMNU kommenterades för VFP OM. F. , om högert (system (16.2), 12) = 'CRITTERS.FXP'<-br/>* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 @ 0, 1 för något att säga 'tillfogar, tigger kopierar Del Avsluta Filt går som listar Modi avslutade nästa Prev else @ 0 retur för Sele etikettZoom'< för br/>, 1 något att säga 'tillfogar tigger kopierar Del Avsluta Filt går listar Modi avslutade nästa Prev retur br/> ENDIF ENDIF * som för överhoppetikettZoom'< kommenteras för VFP *L , om .not rätt (system (16.3), 11) = ”ANIMALS.FXP " på den nyckel- etiketten F1 gör mntmnuf4 med 1 endif , om högra .not (system (16.3), 8) = ”BIDS.FXP-" på den nyckel- etiketten F2 gör mntmnuf4 med endif för 2 , om .not-rätten (system (16.3), 12) = ”CALENDAR.FXP-" på nyckel- etikettF3 gör mntmnuf4 med endif för 3 , om .not-rätten (system (16.3), 12) = ”CONTRACT.FXP-" på den nyckel- etiketten F4 gör mntmnuf4 med endif för 4 , om .not-rätten (system (16.3), 12) = ”CRITTERS.FXP-" på den nyckel- etiketten F5 gör mntmnuf4 med endif för 5 om .nothögert (system (16.3), 11) = ”INVOICE.FXP-" på den nyckel- etiketten F6 gör mntmnuf4 med endif för 6 på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet () som HELP på den nyckel- etiketten F8 gör mntmnuf4 med 8 , om .not-rätten (system (16.3), 10) = ”PRICES.FXP-" på den nyckel- etiketten F9 gör mntmnuf4 med endif för 9 på den nyckel- etiketten F10 gör mntmnuf4 med 10 på den nyckel- etiketten F11 gör mntmnuf4 med 11
aktiverar fönstret MAINTMNU
gör den primaa DispMenu s_choicen = mChoice = mChoice
* som kommenteras för VFP OM . F. @ 0, 1-1 snabba prompt1 @ 0, 5-1 snabba prompt2 @ 0, den snabba prompt16 menyn för 9-1 snabb prompt3 @ 0.14-1 snabb prompt4 @ 0.18-1 snabb prompt5 @ 0.22-1 snabb prompt6 @ 0.27-1 snabb prompt7 @ 0.30-1 snabb prompt8 @ 0.35-1 snabb prompt9 @ 0.40-1 snabb prompt10 @ 0.45-1 snabb prompt11 @ 0.50-1 snabb prompt12 @ 0.55-1 snabb prompt13 @ 0.59-1 snabb prompt14 @ 0.64-1 snabb prompt15 @ 0.70-1 till choice ENDIF * som kommenteras för VFP
, gör det primaa fallet för case = för frigörarfönstret för 0 MAINTMNU alternativ = 'det primaa fallet för quit' = alternativ för 1 = 'det primaa fallet för add' = alternativ för 2 = 'det primaa fallet för begin' = alternativ för 3 = 'det primaa fallet för copy' = alternativ för 4 = 'det primaa fallet för delete' = alternativ för 5 = 'det primaa fallet för end' = 6 definierar fönsterfil_wndw från 1.50 till 6.77 som dubblett färgar intrigen 12 aktiverar titelraden för fönsterfil_wndw = 'utrymme 1.00 för något att säga för Filter' @ (13-len (titelrad) /2) + header @ 3.04 br/> för Set'< för br/> för något att säga''< @ 3.05 snabb '@ 3.16 den snabba 'menyn för Cancel' till fil_opt
om fil_opt = alternativ för 1 = 'fastställd endif
för filter' om fil_opt = alternativ för 2 = 'primat fall för fil_wndw
för fönster för frigörare för endif
för annulleringsfilter' = alternativ för 7 = 'primat fall för go' = alternativ för 8 = 'primat fall för list' = alternativ för 9 = 'primat fall för modify' = alternativ för 10 = 'primat fall för next' = alternativ för 11 = 'primat fall för previous' = för frigörarfönster för 12 MAINTMNU alternativ = 'primat fall för quit' = alternativ för 13 = 'primat fall för retrieve' = 14 alternativ = 'det primaa fallet för skip' = alternativ för 15 = ”det primaa fallet för tally' = alternativ för 16 = ”deac för endcase
för zoom' lindar MAINTMNU rele lindar MAINTMNU
deac lindar rele för MAINTMNU4 lindar för relememoen för MAINTMNU4
option *L * som för prompt* return för något liknande tillfogas för OFFENTLIG mCHOICE för VFP- procedure DispMenu , mGET, cCHOICE, LAGER 0 för cCHOICES TILL mCHOICE, LAGER"" för mGET TILL cCHOICE, nCOL för cCHOICES * = RUNDAN (WCOLS () /2.0) - 19
* tillfogar tigger kopierar Del Avsluta Filt går listar Modi som avslutade nästa Prev retur br/> för överhoppetikettZoom'< nPad = nROW för 3 = nCOL för 0 * 1 = 0 FÅR MED nROW, nCOL,” \ nCOL = nColen för + 3 + nPad FÅR MED nROW, nCOL, ”\ + 3 + nPad FÅR MED nROW, nCOL,” \ den + 4 + nPad FÅR MED nROW, nCOL, ”\ * 5 + 3 + nPad FÅR MED nROW, nCOL,” \ + 3 + nPad FÅR MED nROW, nCOL, ”\ nCOL = nColen för + 4 + nPad FÅR MED nROW, nCOL,” \ + 2 + nPad FÅR MED nROW, nCOL, ”\ + 4 + nPad FÅR MED nROW, nCOL,” \ * 10 + 4 + nPad FÅR MED nROW, nCOL, ”\ + 4 + nPad FÅR MED nROW, nCOL,” \ + 4 + nPad FÅR MED nROW, nCOL, ”\ + 4 + nPad FÅR MED nROW, nCOL,” \ + 3 + nPad FÅR MED nROW, nCOL, ”\ för * 15 + 4 + nPad FÅR MED nROW, nCOL,” \ + 5 + nPad FÅR MED nROW, nCOL, ”\ "
* tillfogar tigger kopierar Del Avsluta Filt går listar Modi därefter Prev avslutade retur cCHOICES för br/> för överhoppetikettZoom'< = cCHOICES + ”12Q " cCHOICE för = mCHOICE för mCHOICE för fnCUROBJ PARAMETERS för
FUNCTION för fnCHOICE (cCHOICES, ”Q”) = _CUROBJ RETURN. nROW för T.
PROCEDURE GET PARAMETERS, nCOL, cFUNC, bSKIP nSIZE2 = LEN (STRTRAN (cFUNC,” \ < ")) + nROW för för 2 @, nCOL FÅR mGET FUNGERAR ”* ”+IIF (bSKIP,” \ \ ”, "") +cFUNC; nROW för
* för fnCUROBJ för GILTIG (@mCHOICE) @, nCOL FÅR mGET FUNGERAR ”* ”+IIF (bSKIP,” \ \ ”, "") +cFUNC; STANDARD 1 för * för fnCUROBJ för GILTIG (@mCHOICE) STORLEKSANPASSAR 1, nSIZE2 som GILTIG * för fnCUROBJ (@mCHOICE) noterar: nSIZE2 används inte någon annan cCHOICES för fnCHOICE PARAMETERS för place. RETURN
FUNCTION, cDEF som LÄS, CYKLAR ANMÄRKER
* för mCHOICE för mCHOICE = för RETURN IIF (mCHOICE för IIF (LASTKEY () =27, PÅ (cDEF, cCHOICES), mCHOICE) > 0, SUBSTR (cCHOICES, mCHOICE, 1), "") avslutar - tillfogat för VFP
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - suspend
function mntmnuf4 parameter KeyF_no
* /> gör fallet KeyF_no = 1 för case KeyF1 =. Fall KeyF_no = 2 för T.
KeyF2 =. Fall KeyF_no = 3 för T.
KeyF3 =. Fall KeyF_no = 4 för T.
KeyF4 =. Fall KeyF_no = 5 för T.
KeyF5 =. Fall KeyF_no = 6 för T.
KeyF6 =. Fall KeyF_no = 8 för T.
KeyF8 =. Fall KeyF_no = 9 för T.
KeyF9 =. Fall KeyF_no = 10 för T.
KeyF10 =. Fall KeyF_no = 11 för T.
KeyF11 =. s_FkeyRec för endcase
för T.
= s_prgname för för recno () = prog_name
, om prog_name = ”BETALBART” och pseudonymen () = s_FkeyPag ”för PAYDETL-" = s_FkyMRec för payable för 2 vald = endif
för för recno () skrivar choice för plain
return *L function maintmnu5 * VARIABLES för chr (113) privat privat all prima lik prompt* = 0 prompt1 =” avslutad ” prompt2 =” Modi ”
* WINDOWS , definierar fönstret MAINTMNU från 22.0 till 24.79; titeln” underhåll för befaller menyn”; den dubbla flötet för skuggar färgar intrigen 2
* SCREEN PÅ DEN NYCKEL- ETIKETTEN Alt+F12 SUSPEND aktiverar noshow * 1 2 @ 0 för fönstret MAINTMNU, 1 något att säga 'avslutad Modi' *L på den nyckel- etiketten F7 gör genhlp med &&ANVÄNDAREN för programet () som HELP
aktiverar fönstret MAINTMNU @ 0, 1-1 snabba prompt1 @ 0, 6-1 den snabba menyn för prompt2 till choice
gör det primaa fallet för case = för frigörarfönstret för 0 MAINTMNU alternativ = 'det primaa fallet för quit'
= för frigörarfönstret för 1 MAINTMNU alternativ = 'det primaa fallet för quit'
= alternativ för 2 = 'modify'
för/> inaktiverar out_dev för fönsterMAINTMNU
return option *L function definierar fönsterfil_wndw från 1.40 till 6.77 som dubblett färgar intrigen 12 aktiverar titelraden för fönsterfil_wndw = 'utrymme 1.00 för något att säga för Print' @ (19-len (titelrad) /2) + något att säga 3.04 'br/> för header @ för '< @ 3.05 snabba br/> för Laser'< 'för Screen' @ 3.16 snabb '@ 3.26 den snabba 'menyn för File'
till fil_opt
om fil_opt = alternativ för 1 = 'till endif
för screen' om fil_opt = alternativ för 2 = 'till endif
för laser' om fil_opt = alternativ för 3 = 'till file'< för *L function för fil_wndw /> br/>return '' för i=1 till i_str för no_pages = str (I, 1)
om endfor
för endif för usr_wndw&i_str för fönster för frigörare för för wexist ('usr_wndw'+-i_str) om för utrymme för något att säga 0.62 för screen för acti för endif
för maintmnu för fönster för frigörare för för wexist restenv (”maintmnuen”) @ (7) @ 0.70 all usr_wndw restenvr function/>*L return '' för databases return för all för fönster för show för
för något att sägautrymme (9) nära />*L function save_rec
********** akl: Kontrollera stava av den rekordartada 3/19/96 1:55am, om prog_name = ”BJUDER” .or-prog_name = ”AVTALAR” .or, först. ; prog_name för = ”FAKTURERAR” .or-prog_name = ”SUBRENT” .or. ; prog_name för = ”KARTLÄGGER” .or-prog_name = ”HELTHCRT " gör SpellChk med ”Rec” &&rekord (Rec) eller sätter in (Fld)
, om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”
för ********** för endif för endif
för , om bekräfta (”räddningen, antecknar”), fästar blank , om rätten (system (16.3), 12) = ”sele 2 för CONTRACT.FXP-" fästar sele 3 för blank fästar endif för blank /> = akl för ********** för för rlock (): DHR - Sätta in 12:37am för USDA.NAME 7/23/96, om prog_name = ”DHR-" usda = memo för hopsamling för för ********** för endif för usda.usda memvar, om rätten (system (16.3), 12) = unlock för endif för sele 1 för memvar för hopsamlingen för sele 3 för memvar för hopsamlingen för sele 2 ”för CONTRACT.FXP-" * nollställa filter, om tomma .not (filtrera ()) * Kontrollera, om record_noen för rekordmatchfilter = överhoppet -1 för skip för för recno (), om för <>record_noen för recnoen () && ingen match = för _begin (), om &at_eof&& tar bort uppsättningen för filter , filtrerar to , går endif återgång && för sav_wind för endif return .f. *L procedure för .t. anknytas till F10 av parameterw_name för gen_hlp , byter ut krön med wlrow (w_name), bcol för endif för endif för record_no med wlcolen (w_name); erow för med wlrow (w_name) + wrows (w_name) + 1; ecolen för med wlcolen (w_name) + wcols (w_name) + 1 skrivar && Ctrl-W för chr (23) för att gå ut fönstret med set_bndry * det fastställda överhoppet -1 för save return *L function för boundaries , om top_mark för för bof () = top_mark för else för 0 = överhoppet 1 för endif för överhopp 1 för för recno (), om bot_mark för för eof () = () stp_prnt för *L function för -1 endif för -1 = recnoen/>return '' på zoom_no för escape = zoom_num för 1 = '1 ' brk_no för = brk_numen för 1 = '1 ', väljer done_cond för 1 = return 'för &ndx_exp>last_val.or.eof () 'till n_vald_fld för val_fil parameters för _print *L function, ref_fld, vald_alias, getpos, vald_fld för fld_size
= uppsättning för &n_vald_fld
if .f. beskådar för actiscreen för off clear för I = 1 till 25 ? next
? ? ”Parametrar: ” ? ”n_vald_fld > " +n_vald_fld+ " < " ? ”vald_fld > " +vald_fld+ " < " ? ”ref_fld = ”+ref_fld ? ”vald_alias = ”+vald_alias ? ”getpos = ” ?? getpos ? ”fld_size = ” ?? privat at_eof för fld_size endif
, at_bof, uppsättning för record_no meddelar is_valid för off
= at_eof för .f. = at_bof för 'för eof () '= save_alias för
'för bof () '= empty_field för för pseudonym () =. Vald &vald_alias
för F.
gör falltyp för case (”vald_fld”) = 'srch_str för D' = stren (året (m->vald_fld), 4) + stren (månaden (vald_fld), 2) typ för fallet för
för +str (dagen (vald_fld), 2) (”vald_fld”) = 'srch_str för N' = stren (vald_fld, fld_size), om vald_fld = empty_field för 0 =. Srch_str för otherwise för endif
för T. = vald_fld , om len (klippning (vald_fld)) = empty_field för 0 =. Endcase
för endif för T. , om typ (”vald_fld”) = 'N' lokaliserar för &ref_fld = val srch_str
if .f. för sökanden för else för (för srch_str)? ? ”Söka > " +srch_str+ " < " om funnen () ? ”Funnen " else för ? ”INTE funnen " endif
if .f. för endif endif
för ? ? ”eof () = ” ?? endif
för eof () om för &&found för .not eof () is_valid = else för .t. om empty_field , om högert (system (16.3), 12) = is_valid ”för CRITTERS.FXP-" = is_valid för else för .f. = leftpos för off för srch_str för sökanden för on för else för endif för .t. fastställda near fastställda near =
för iif (getpos > 40.4.43) definierar fönsterbrws_wndw från 6, leftpos till 15, leftpos+30; för systemzoomen för flötet växer nära skuggar färgar intrigen 10
på nyckel- etikett SKRIVER IN skrivar
för chr (23) aktiverar noappend för jumbon för bläddrandet för fönsterbrws_wndwnoshow nomodify uppsättningen för brws_wndw
if .f. för fönstret för frigöraren för nodeletefönsterbrws_wndw beskådar för actiscreen för off clear för I = 1 till 25 ? next
? ”> " +type (ref_fld) + " < " ? ”> " +ref_fld+ " < " ? ”> " +&ref_fld+ " < " endif
gör falltyp för case (”ref_fld”) = 'C' if .f. ? ? ”Sätta in är TECKEN" ? ”typ (ref_fld) = > " +type (ref_fld) + " < " ? ”ref_fld = > " +ref_fld+ " < " ? ”&ref_fld = > " känd m->name" för +&ref_fld+ " < "
på nyckel- etikettENTER * suspend endif
* skrivar &ref_fld
gör falln_vald_fld för case = ”= för showgets för &ref_fld is_valid = falln_vald_fld för .t. = anml_name ”för m->anml_name" = för showgets för &ref_fld is_valid = falln_vald_fld för .t. = crit_name ”för m->crit_name" = för showgets för &ref_fld is_valid = falln_vald_fld för .t. = job_noen ”för m->job_no" = för showgets för &ref_fld is_valid = falln_vald_fld för .t. = map_noen ”för m->map_no" = för showgets för &ref_fld is_valid = typ för fallet för endcase
för .t. (ref_fld) = 'D' skrivar typ för fallet för
för dtoc (&ref_fld) (ref_fld) = 'N' skrivar ltrim (stren (&ref_fld))endcase
för på nyckel- etikett SKRIVER IN && tilldelar igen original- endif
if .f. för endif för value ? ? ”> " +type (ref_fld) + " < " ? ”> " +ref_fld+ " < " ? ”> " +&ref_fld+ " < " ? ”is_valid=" ?? uppsättningen för &save_alias för is_valid endif
den valda meddelar vald_fld för orig_val_fil parameters för is_valid *L function för off
return, ref_fld, vald_alias, getpos, fld_size
set beskådar screen clear for i = 1 för off acti till 25 ? next
? ? ”Parametrar: ” ? ”vald_fld > " +vald_fld+ " < " ? ”ref_fld = ”+ref_fld ? ”vald_alias = ”+vald_alias ? ”getpos = ” ?? getpos ? ”fld_size = ” ?? privat at_eof för fld_size
, at_bof, uppsättning för record_no meddelar is_valid för off
= at_eof för .f. = at_bof för 'för eof () '= save_alias för
'för bof () '= empty_field för för pseudonym () =. Vald &vald_alias
för F.
gör falltyp för case (”vald_fld”) = 'srch_str för D' = stren (året (m->vald_fld), 4) + stren (månaden (vald_fld), 2) typ för fallet för
för +str (dagen (vald_fld), 2) (”vald_fld”) = 'srch_str för N' = stren (vald_fld, fld_size), om vald_fld = empty_field för 0 =. Srch_str för otherwise för endif
för T. = vald_fld , om len (klippning (vald_fld)) = empty_field för 0 =. Endcase
för endif för T. , om typ (”vald_fld”) = 'N' lokaliserar för &ref_fld = val srch_str
för sökanden för else för (för srch_str)? ? ”Söka > " +srch_str+ " < " if grundar () ? ”Funnen " else ? ”INTE funnen " endif
för endif
? ? ”eof () = ” ??
för eof () om för &&found för .not eof () is_valid = else för .t. om empty_field , om högert (system (16.3), 12) = is_valid ”för CRITTERS.FXP-" = is_valid för else för .f. = leftpos för off för srch_str för sökanden för on för else för endif för .t. fastställda near fastställda near =
för iif (getpos > 40.4.43) definierar fönsterbrws_wndw från 6, leftpos till 15, leftpos+30; för systemzoomen för flötet växer nära skuggar färgar intrigen 10
på nyckel- etikett SKRIVER IN skrivar
för chr (23) aktiverar noappend för jumbon för bläddrandet för fönsterbrws_wndwnoshow nomodify uppsättningen för brws_wndw
*if .f. för fönstret för frigöraren för nodeletefönsterbrws_wndw beskådar för actiscreen för off clear för I = 1 till 25 ? next
? ”> " +type (ref_fld) + " < " ? ”> " +ref_fld+ " < " ? ”> " +&ref_fld+ " < "
? om för chrsaw ()? ”Skriva fungera som buffert är INTE tom " else för ? ”Skriva fungera som buffert är tom " endif
*endif
för gör falltyp för case (ref_fld) = 'C' ? ? ”Sätta in är TECKEN" ? ”typ (ref_fld) = > " +type (ref_fld) + " < " ? ”ref_fld = > " +ref_fld+ " < " ? ”&ref_fld = > " +&ref_fld+ " < "
skrivar typ för fallet för &ref_fld&&plain
(ref_fld) = 'D' skrivar typ för fallet för
för dtoc (&ref_fld) (ref_fld) = 'N' skrivar ltrim (stren (&ref_fld))endcase
/>*is_valid = .t.
på nyckel- etikett SKRIVER IN && tilldelar igen original- endif
if .f. för endif för value ? om för chrsaw ()? ”Skriva fungera som buffert är INTE tomt. ” ? ” Fungera som buffert innehåller: > " ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? chr (inkey ()) ?? ”< " else för ? ”Skriva fungera som buffert är tom " endif endif
för ? ? ”> " +type (ref_fld) + " < " ? ”> " +ref_fld+ " < " ? ”> " +&ref_fld+ " < " ? ”is_valid=" ?? uppsättningen för &save_alias för suspend *endif
för is_valid * den valda meddelar getcond för parametrar för var_get för is_valid *L function för off
return, fld_usg
* den lämnade pilen Check * detta fungerar skapades, därför att Donna önskade att slå den lämnade pilen Key * och att ha markören att gå till jumbon sätta in av det föregående avskärmer. På this * den är ställer in för avtalar. 10/05/99 10:19am
, om högert (system (16.2), 12) = ”CONTRACT.FXP-" om page_no = 1 om LArrow =. T. LArrow =. F. NewOnum = _curobj för 28 = endif
akl=.F.
för endif för NewOnum endif , om högert (system (16.2), 11) = ”högra INVOICE.FXP” .and (system (16.7), 12) = ”FS_SPELL.FXP-" akl=.T. aktiverar zoom_numen för x_zoom för &getcond *L function för endif
return för fönsterspell_win = stren (zoom_noen, 1) at_bof för = at_eof för at_bof&zoom_num = ndx_var at_eof&zoom_num = first_pagen för ndx_var&zoom_num = val (substr (page_seq&zoom_num, 1.1))last_page för = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)),
* om en ny sida, visar ny screen , om page_noen för first_page<>page_no = first_page gör redisp_fld = endif
för disscr för .t. * valt nytt Zoomområde, fastställdt nytt överträffar och bottnar record_noen för &zoom_num för marks den vald =
för recno () om zoom_noen = 1 .or-reccount () = top_mark för 0 = bot_mark för 0 = lnk_var else för -1 = sökanden&lnk_var för lnk_var&zoom_num om endif för överhoppet -1 för för .not-bof () om top_mark för för bof () = top_mark för else för 0 = endif för för recno () om bot_mark för endif för skip för för .not eof () = && -2 som är beslutsam i zoom_noen =
function y2kfix1 parameter FieldName
* som för endif för funcion_end för 1 return '' kallar syntax: giltig y2kfix1 (system (18))
MoValu = str (månaden (m.&FieldName), 2, 0) DyValu = str (dagen (m.&FieldName), 2.0) YrValu = str (året (m.&FieldName), 4,0)
YrRHT = rätt (YrValu, 2)
om val val (YrRHT) <= 99 YrLFT (för YrRHT) >= 80 .and = ”19 " else YrLFT för = ”20 " endif
YrValu för = &FieldName för YrLFT+YrRHT
=
return för ctod (MoValu+-”/”+DyValu+-”/”+YrValu). För ************************** för T. *L * * för * för *** för för ********** för för ********** för för ********** för för ********** för för ********** som vila av detta ska arkiv är för nytt bläddra, sätter in avskärmer med * * kapaciteten till från första sätter in av strömmen avskärmer till ** sätter in sist av det föregående avskärmer, givet att strömmen avskärmer inte är ** avskärmer först. I vilket den nyckel- en ignoreras. Den nyckel- en * * har inte ändrats i any långt. När du bläddrar - som är mång-, redigera för 2:07förmiddagen för fönster 10/16/95 för * * - 10/29/95 _newadd för
function för *** för för ********** för för ********** för för ********** för för ********** för för ********** för för ************************** för * för 2:10förmiddag* *, om zoom_noen = 1 går endif för bottom , gör str_empty gör default = _newmodify för *L function för return för newadd_rec () '' _newcopy
*=============================================================================
function/> = ()/>return '' aborterar = .f.
på den nyckel- etiketten PGUP gör NewPageUp på den nyckel- etiketten PGDN gör NewPageDn
om getcond för modify_key =” ”G” $-fld_usg " getcond för else för =” ”fld_usg .and .not för G” $. För fld_usg" ”för K” $ getcond för endif
=” 'G'$-fld_usg "
, om högert (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”s_lastkeyen för read
för endif
för =
* CLEANUP för lastkey () på den nyckel- etiketten PGUP på nyckel- statistik för uppsättningen för to för det etikettPGDN
fastställd meddelandet av && denna måste att sättas in, därför att den SET &&statistiken AV inte raderade bara message om mest akl_test endif
för on för escaen för on för statistik för $-'Yy' fastställd fastställd, om s_lastkeyen = 27 && Esc aborterar = retur '' endif
för .t. för * kontrollerar för s_recnoen för duplicate = &ndx_var
för sökanden för för recno () om allow_dup&zoom_num för .not-&at_eof .and .not = för dismsg (chr (7) + ”det inte tillåtna dubblettrekordet”) aborterar = s_recno
för endif
för return för .t. goto * skärmreferens sätter in och beräknade variables gör lookup
gör calcul med .t. , om rätten (system (16.3), 8) = ”USDA.FXP " gör getfldA med” .t. ” gör getfldB med” .t. ”else för gör getfld med” .t. ”endif
för görar klar ********** akl för gets
: Kontrollera stava av den rekordartada 3/19/96 1:55am, om prog_name = ”BJUDER” .or-prog_name = ”AVTALAR” .or, först. ; prog_name för = ”FAKTURERAR” .or-prog_name = ”SUBRENT” .or. ; prog_name för = ”KARTLÄGGER” .or-prog_name = ”HELTHCRT-"
gör SpellChk med ”det Rec-” &&rekordet (Rec) eller sätter in (Fld)
, om rätten (system (16.3), 8) = ”USDA.FXP-" gör getfldA med” .f.-” gör getfldB med else ” för .f.-” gör getfld med
för ********** för endif för endif ” för .f.-” gör calcul med .t. om .not-abort , om bekräfta (”räddningen antecknar”), save_rec för =. Memo för hopsamlingen för T. memvar, om högert (system (16.3), 12) = s_lastkeyen för *L function NewPageDn ”för CONTRACT.FXP-" endif endif 1 memvar 3 memvar 2 />return '' =
för lastkey () gör fall_curobj för case < _curobj för 20 = fall_curobj för 20
= _curobj för 20 = fall_curobj för 21
= _curobj för 21 = s_lastkey för endcase return
*==========================================================================
function NewPageUp för 22
=
för lastkey (), gör fall_curobj för case = _curobj för 20 = fall_curobj för 1
= _curobj för 21 = fall_curobj för 20
= _curobj för 22 = spelling
* för kontroll för endcase return
*L function SpellChk parameters CheckType * för 21
som kontrollerar att stava, en sätter in i sänder, satt * ”för GILTIG SPELLCHK (”Fld”) ”in i ”@… FÅR” uppsättningen för statement.
tar tid på off
, om CheckType = ”den Fld” &&en detta den ska kontrollen en sätta in, som det är exited. FieldToCheck = VarRead () FieldText = m.&FieldToCheck
, om .not tömmer (klippning (FieldText)) gör fs_modal med. T.. Endif
för endif för F. alla, om CheckType = ”Rec-” som && denna ALL den ska kontrollen sätter in i en bu_cancel för screen. = 0 &&, om användarecancles, ska uppsättning för FS_SPELL () det till field_max för 1. = && för FCOUNT () numrerar av, sätter in i strömmen record.
FÖR field_num = 1 TILL field_max&& kretsar till och med avskärmer fields. , OM TYP (SÄTTA IN (field_numen)) $ ”MC” &&, om memo- eller för teckenet field. fld_name = SÄTTER IN && (för field_numen), bestämmer fältets name. fältets för det fld_2check- = m.&fld_name-&&extraktet contents.
, OM len (klippning (fld_2check)) > 1 &&behov 2 märker för att fungera with. * tomma ÚÄÄÄÄLeave, sedan endast van vid passera in, spara names. * ³ ÚÄÄÄÄPass kopierar in av memo för att vara checked. * stopp för ³ ³ ÚÄÄÄÄDon't efter varje memo. * v = FS_SPELL ("", @fld_2check. &&appell Foxspell Checker. för F.) m.&fld_name = fld_2check ENDIF
ENDIF
OM bu_cancel = 1 &&, om den avbrutna användaren, VÄNTANFÖNSTER för exit. ”avslutade därefter spellchecking! ”s_sel för endif
för EXIT ENDIF NEXT
= den valda (0) uppsättningen för
för use
för use valda WORDS3 för use valda WORDS2 för
valda WORDS1 valda (s_sel) tar tid på on return. T.
* EOF GENLBR.PRG
" klar "
|