Fråga : Fox9 - Ha få för problem färga för att fungera using @… får och @… något att säga

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 "

Svar : Fox9 - Ha få för problem färga för att fungera using @… får och @… något att säga

tillvägagångssättsp_FinalDefCountList

kräver a

UPPSÄTTNING NOCOUNT PÅ på starten

om @finalstring behöver ibland att gås tillbaka, då du behöver upp uppsättningen det som en tillverkad parameter i stället.

det initialt startar är mycket dåligt skriftligt det sköter om däri inte för multipeluppdateringar…,

>>FASTSTÄLLD @CaseID = (vald tblLinkDefendantCounts.CaseID från tblLinkDefendantCounts som SÄTTS IN VAR tblLinkDefendantCounts.DefendantCountsID = INSERTED.DefendantCountsID)
>>EXEC-sp_UpdateDefCaseCounts@CaseID

behov att bearbetas i en kretsa.
Andra lösningar  
 
programming4us programming4us