Vraag : Fox9 - het Hebben van een probleem die kleur ertoe brengen om te werken gebruikend @… krijgt en @… zeg

Dit werd geschreven 20 jaar geleden in FoxPro voor Dos. Ik ben tijdens bevordering aan Fox9. Kunt u me met het ertoe brengen van VFP om de kleuren op een menu te veranderen alstublieft helpen? I woulf als de punten van de menuselectie om een verschillende kleur te hebben die wat afhangen door de pijlen up/down wordt geselecteerd. Een ander probleem heb ik ben wanneer ik de curseur op om het even welk menupunt rust, gaat het volledige menu weg. Ik weet ik heel wat code hier omvatte, maar de daadwerkelijke code in gebruik is zeer klein en gemakkelijk aan isolate.

Thank u voor daar het zijn en die het helpen van me met mijn/>* Begin problem.

* Environment

* voor VFP
DUIDELIJKE ALL

* wordt toegevoegd becommentari�ërde voor VFP9
* PARAMETER

* voor VFP9
parm1_= wordt toegevoegd. T.
parm2_=. Het VASTGESTELDE GEBREK van T.

AAN c:\crit\CODE
VASTGESTELDE OPENBARE akl_test

VASTGESTELDE/>/> ALS TYPE („parm1_“) = „L'< br/> het meest akl_test = „Y "
ELSE
ALS parm1_ = het meest akl_test
= „Y "
het meest akl_test ELSE
= „OPENBARE akl_system
ENDIF
ENDIF

/> akl_system = „Y "

* als type („parm2_“) = „L'< br/>* akl_system = „N "
* else
* als parm2_ = „akl "
* akl_system = „Y "
* else
* „test "       akl_system = ONTWIKKELING/>
* FLAGS
van „N "
* endif
* endif
VASTGESTELDE VERTONING AAN/> de VASTGESTELDE VASTGESTELDE KLOK van Off
VASTGESTELDE/>* VASTGESTELDE/>* AAN 48,69
ELSE
* VASTGESTELDE KLOK AAN de klok van 24.69 Draai weg voor modi_memo van VFP
ENDIF

* ENVIRONMENT
=. T.
OP ZEER BELANGRIJK ETIKET f12 DO _popcal
OP ZEER BELANGRIJK ETIKET ctrl+f12 DO rundos MET „COMMAND.COM "

ALS LEEG ((„sleutel“, „ctrl+o“))
DO fs_setup
ENDIF

VASTGESTELDE PROCEDURE AAN genlbr
= envrnmnt ()
DUIDELIJKE WINDOWS

OPTIE =“ „
goodpass =. F.

DOEN COLORS

* Al code van de Sleutel van de FUNCTIE zal worden verwijderd. S_zoom_no van SETTINGS
= 0
s_lastkey = 0 && sparen laatste belangrijkste entered
s_prgname = '' && sparen de programmanaam die een function
gebruiken s_FkeyRec = 0 && sparen het Verslag van de Sleutel van de Functie Number
s_FkeyPag = 0 && sparen de Pagina van de Sleutel van de Functie Number
s_FkyMRec = 0 && sparen het HOOFDAantal van het Verslag FKey.  van 1/10/97 het 12:28 am (akl)
&& Eerst nodig in BETAALBAAR wanneer F1 van/> listmenu Detail.
utilmenu

KeyF1 =. De Vlag van F. && - van om het even wat aan Animals
KeyF2 =. De Vlag van F. && - van om het even wat aan Bids
KeyF3 =. De Vlag van F. && - van om het even wat aan Calendar
KeyF4 =. De Vlag van F. && - van om het even wat aan Contracts
KeyF5 =. De Vlag van F. && - van om het even wat aan Critters
KeyF6 =. De Vlag van F. && - van om het even wat aan Invoices
KeyF8 =. De Vlag van F. && - van om het even wat aan Payables
KeyF9 =. De Vlag van F. && - van om het even wat aan Prices
KeyF10 =. De Vlag van F. && - van om het even wat aan Productie Companies
KeyF11 =. Vlag van F. && - van om het even wat aan Receivables

* voor de keus van VFP
* VARIABLES
= 0
prompt1 =“ 1. Dieren „
prompt2 =“ 2. Bod „
prompt3 =“ 3. Kalender „
prompt4 =“ 4. Contracten „
prompt5 =“ 5. Critters „
prompt6 =“ 6. Rekeningen „
prompt7 =“ 7. Etiketten „
prompt8 =“ 8. Lijsten „
prompt9 =“ 9. De prijzen „
* prompt10 =“ P. Print „
prompt10 =“ S. Stats „
prompt11 =“ U. Utilities „
prompt12 =“ Hulp „
prompt13 =“ Opgehouden met „
* becommentari�ërden voor VFP

* WINDOWS
* becommentari�ërden voor VFP
* bepalen venster crit van 2.2 tot 22.75; /> het“ HoofdMenu van Critters“ van de titel dubbel kleurenschema 2 van de vlotterschaduw;
de DOOPVONT de „Vette letters van Arial“, 25

*Added voor VFP.
BEPAALT VENSTER crit VAN 2.2 TOT 90.170; /> het“ HoofdMenu van Critters „van de TITEL DUBBEL KLEURENSCHEMA 2 VAN DE SCHADUW VAN DE VLOTTER de DOOPVONT de „Vette letters van Arial“, 25

* SCREEN
CLEAR
= explodeert (2.2.22.75.50.1)

ACTIVATE SCREEN
ALS meest akl_test $ „Yy'< br/> @ 0.34 ZEGT „Testend op“ KLEUR w+/N
* else
* @ 0.70 zeg de ruimte (9)
ENDIF
*L
* VERWERKING LOOP
TERWIJL DOET. T.

ACTIVEREN s_choice van het VENSTER crit
DO disscr
= mchoice
keus = mchoice

************************** ********** ********** ********** ********** **********
* *
* dit een tempoary programma is om duplicaten in een specifieke .DBF *
te zoeken ALS .NOT meest akl_test $ „Yy'< br/>* do dup1chk
* dup2chk
ENDIF
* *
************************** ********** ********** ********** ********** **********

OP ZEER BELANGRIJK ETIKET f7 DO genhlp MET de GEBRUIKER && HELP

van het PROGRAMMA () DOEN/> de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING CASE

VERSIE 0 && doen VENSTER crit
ALS keus de meest akl_test van het $ „Yy "
RETURN
ELSE
QUIT
ENDIF
COMPUTER-AIDED SOFTWARE ENGINEERING = 1 .AND. (DOSSIER („ANIMALS.PRG“) .OR.FILE („ANIMALS.FXP“))
DO animals MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 2. (DOSSIER („BIDS.PRG“) .OR.FILE ('BIDS.FXP'< wbr/>))
DO bids MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 3. (DOSSIER („CALENDAR.PRG“) .OR.FILE („CALENDAR.FXP“))
DO calendar MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 4. (DOSSIER („CONTRACT.PRG“) .OR.FILE („CONTRACT.FXP“))
DO contract MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 5. (DOSSIER („CRITTERS.PRG“) .OR.FILE („CRITTERS.FXP“))
DO critters MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 6. (DOSSIER („INVOICE.PRG“) .OR.FILE („INVOICE.FXP“))
DO invoice MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 7. (DOSSIER („P_LABELS.PRG“) .OR.FILE („P_LABELS.FXP“))
DO p_labels MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 8. (DOSSIER („LISTS.PRG“) .OR.FILE („LISTS.FXP“))
DO lists
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 9. (DOSSIER („PRICES.PRG“) .OR.FILE („PRICES.FXP“))
DO prices MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
* = .and 10. (dossier („PRINT.PRG“) .or.file („PRINT.FXP“))
* DO print
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 10. (DOSSIER („STATS.PRG“) .OR.FILE („STATS.FXP“))
DO stats
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 11. (DOSSIER („UTILS.PRG“) .OR.FILE („UTILS.FXP“))
DO utils
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 12. (DOSSIER („CRITHELP.PRG“) .OR.FILE („CRITHELP.FXP“))/>
DO crithelp
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING ALS meest akl_test $ „Yy "
SUSPEND
ELSE
QUIT
ENDIF
********** akl: Toegevoegde choice=14 voor F8 van Bod aan de Betaalbare keus van het het 2:08am
COMPUTER-AIDED SOFTWARE ENGINEERING van 2/25/96 = .AND 14. (DOSSIER („PAYABLE.PRG“) .OR.FILE („PAYABLE.FXP“))
DOET betaalbaar MET PROGRAMMA ()
**********
********** akl: Toegevoegde choice=15 voor F11 van Bod aan de keus van het het 10:53am
COMPUTER-AIDED SOFTWARE ENGINEERING van de Te innen som 2/28/96 = .AND 15. (DOSSIER („RECEIVE.PRG“) .OR.FILE („RECEIVE.FXP“))
ontvangt MET OPENBARE mchoice/>*L
PROCEDURE disscr

**********
ENDCASE
ENDDO
RETURN
, mget, cchoice, cchoices
OPSLAG 0 AAN mchoice, mget
OPSLAG "" AAN cchoice, cchoices
* nCOL = RONDE (WCOLS () /2.0) - 19

@ 1.34 ZEGT „Verlaten Column
ncol van 2010 '

* = 20

nrow = 3
MET nrow, ncol,“ [\ <1] KRIJGT - de Dieren "
nrow = 4
KRIJGEN MET nrow, ncol, „[\ <2] - Bod "
nrow = 5
KRIJGEN MET nrow, ncol,“ [\ <3] - de Kalender "
nrow = 6
KRIJGT MET nrow, ncol, „[\ <4] - de Contracten "
nrow = 7
KRIJGEN MET nrow, ncol,“ [\ <5] - Critters "
nrow = 8
KRIJGT MET nrow, ncol, „[\ <6] Juiste column
ncol - van Rekeningen "

* = 40

nrow = 3
KRIJGT MET nrow, ncol,“ [\ <7] - de Etiketten "
nrow = 4
KRIJGEN MET nrow,ncol, „[\ <8] - Lijsten "
nrow = 5
KRIJGT MET nrow, ncol,“ [\ <9] - de Prijzen "
nrow = 6
KRIJGEN MET nrow, ncol, „[\ nrow = 7
KRIJGT MET nrow, ncol,“ [\ nrow = 8
KRIJGEN MET nrow, ncol, „[\ ncol - van de Hulp "

* = 30
nrow = 10
KRIJGT MET nrow, ncol,“ [\ met cchoices
cchoice mchoice = van fnchoice (cchoices, „Q“)
RETURN

PARAMETERS/>FUNCTION mchoice
= _CUROBJ
TERUGKEER. De PARAMETERS/>
PROCEDURE GET
ENDFUNC
nrow, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc,“ \ < ")) + 2
@ nrow, ncol KRIJGT mget FUNCTIE „* „+IIF (bskip,“ \ \ „, "") +cfunc; /> GELDIGE fnCUROBJ
cchoices van de PARAMETERS/>
FUNCTION van kleurenschema1
RETURN
ENDPROC
, cdef
LEZEN mchoice van de OBJECTEN van de CYCLUS mchoice
= (LASTKEY () =27, BIJ (cdef, cchoices), mchoice)
TERUGKEER IIF IIF (mchoice > 0, SUBSTR (cchoices, mchoice, 1), "")
ENDFUNC

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

* COLORS
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 2 3 4 5 6 7 8 9 10 KLEUR 11
SET VAN REGELING 1 AAN;
„W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + "/>* Brieven
*/>* Gebruiker KRIJGT de Gebruiker van de Brieven (2)
* KRIJGT Grens van de Achtergrond(2)
* van de Gebruiker/>* Titel van de Achtergrond(4)
* van de Gebruiker de Actieve/>* Actieve van de Achtergrond(5)
* van de Gebruiker Inactieve/>* Inactieve Achtergrond (6)

* 1 2 3 4 5 6 7 8 9 10 van de Brieven van het Gebied Brieven (6)
* van het Gebied Uitgezochte (^A)/>* Uitgezochte (^A) KLEUR 11
SET VAN REGELING 2 AAN ;
„w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, Selectie van de Achtergrond(1)
"
*/>* Grens van de Achtergrond(2)
* van het Menu de Inactieve/>* Inactieve Titel van de Achtergrond(3)
* van het Menu/>* Slection van Achtergrond(4)
* van het Menu Inactieve/>* Achtergrond(6)

*

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

* GENLBR.Prg van de Selectie van het Menu van de Brieven (6)
* van het Menu Actieve/>* PROCEDURE Actieve (Algemene Bibliotheek)/>* ALGEMENE van de BIBLIOTHEEK

function _add
als zoom_no = 1
bottom
endif
do str_empty
gaat default
= add_rec ()
return ''
*L
function _begin
als top_mark = 0
top
else
gaat top_mark
skip
endif
return ''
*L
function _beginr
gaat top
return ''
*L
function _canflt
filter to
plaatsen = fltrsta ()
return ''
*L
function _canfltr
vastgestelde filter to
= _disstat ()
return ''
*L
function _canscop
ndx_exp = sys (14.1)
gaat bottom
last_rec = last_val recno ()
= &ndx_exp
gaat gaat top
first_rec = first_val recno ()
= &ndx_exp
= _disstat ()
return ''
*L
function _copy
= add_rec ()
return ''
*L
function _delete
als zoom_no < no_zooms
* daar om het even welke kinderenverslagen is? /> child_num
uitgezochte &child_num
= lnk_var&child_num
streeft &lnk_var
als .not &at_eof
= dismsg (chr (7) + „Ondergeschikte verslagen er bestaan“)
uitgezochte &zoom_num
terugkeer ''
endif
uitgezochte &zoom_num
endif

als (het „Verslag van de Schrapping“)

als juist bevestig (sys (16.3), 9) = „ADOPT.FXP'< br/> rec_del =. T.
endif

als juist (sys (16.3), 12) = „CONTRACT.FXP'< br/> uitgezochte 3
delete

uitgezochte 2
delete

uitgezochte 1
endif

als juist (sys (16.3), 7) = „DHR.FXP“ && Geen Show Flag
dhr_delete = .t.
repl dhr_delete met m->dhr_delete
reindex
else
delete
endif

skip && veranderen aan volgende record

van plaats als &at_eof () && als het laatste geschrapte verslag, naar begin van database
= _begin ()
endif

als &at_eof .and .not leeg gaat (filter ())
* geen verslagen verlaten in filter, verwijdert de filter
vastgestelde filter to
= _begin ()
endif

als &at_eof
* het Laatste verslag schrapte, gegevensbestand nu empty
= _quit ()
endif

endif

return ''
*L
function _disstat
exp_N = maximum (len (first_val), len (filter ()))
bepaalt venster stat_wndw van 0.1 aan 4,17+exp_N;
het schaduwkleurenschema 7
activeert venster stat_wndw
als .not leeg (filter ())
@ 0.0 zegt de“ Filter is: “ + zegt de filter ()
else
@ 0.0“ de Filter is: Off'< br/> endif
@ 1.0 zegt“ van Verslag: “ + first_val
@ zeggen 2.0“ om te registreren: '+ last_val
van het venster stat_wndw
parameters/>return ''
*L
function van de wachttijd''/> versie

/> is_edit

als lege (memo_field)
= dismsg („heeft geen memorandumgebied“)
terugkeer ''
endif
venster memo_wndw van 12.30 tot 18.73 bepaalt;
titel „MEMORANDUM (ESC om weg te gaan of Te redden CTRL-W)“;
de systeemvlotter kweekt kleurenschema van de gezoem het dichte schaduw 11
als is_edit
memorandum &memo_field venster memo_wndw
else
wijzigt de versievenster van het memorandum &memo_field noedit venster memo_wndw
endif
memo_wndw
return ''
*L
function _end
* gaat verslag (laatste kindverslag indien Gezoemd)
wijzigt duren als bot_mark >= 0
bot_mark
skip -1
else
gaat als bot_mark = -1
bottom
else
* eerste het verslagbuitenkant van de Vondst range
de plaats bepalen van terwijl .t. voor &at_eof
gaan als eof ()
* het laatste verslag in database
bot_mark = -1
else
bot_mark = recno ()
endif
is      skip -1
endif
endif
return ''
*L
function _endr
gaat bottom
return ''
*L
function _fromrcd
ndx_exp = sys (14.1)
als &ndx_exp <= last_val
first_rec = first_val recno ()
= &ndx_exp
else
= dismsg (het „Eerste verslag moet het laatste verslag“ voorafgaan)
endif
= _disstat ()
return ''
*L
function _list
parameters dbf_desc
&& Dit bevel nodig because
op zeer belangrijk etiket F7 && do _nohelp && van 18) het probleemfound.
vastgestelde hulp de van sys (van && (_nohelp is op deze pagina)
&&- Bericht is -->> geen func kan worden geroepen!
&& noch kan een .PRG

als juist (sys (16.2), 12) = „CRITTERS.FXP“ && Geen „GROW“!! (11 uren!)
bepaalt venster brws_wndw van 9.4 tot 19.54; /> titel
kleurenschema van de de vlotter bepaalt het dichte schaduw van het systeemgezoem 10
else
venster brws_wndw van 9.4 tot 19.65; /> titel
de vlotter van het systeemgezoem kweekt dichte record_no van het schaduwkleurenschema 10
endif

do list&zoom_num

het venster brws_wndw
vastgestelde hulp/>
versie
op zeer belangrijk etiket F7 genhlp met sys (18) _modify
mislukking

return ''
*L
function = .f.

********** akl: Bod - Multi geef het 2:07 van het Venster 10/16/95 am
op zeer belangrijk etiket PGUP doen uit PageUp
op zeer belangrijk etiket PGDN doen PageDn
**********

als modify_key
getcond =“ $ fld_usg "
else
getcond =“ „G“ $ „van G“ fld_usg .and .not. „K“ $ fld_usg "
endif

* akl: Verwijderd - hield niet van de manier het het 9:17 van 3/13/96 pm
********** akl werkte: Toegevoegd voor automatisch saldo berekenings 2/11/96 8:42 pm
* als ((prog_name = „BETAALBARE“ .and alias () = „PAYDETL“) .or.  ;
* (prog_name = „ONTVANG alias“ .and () = „RECDETL“)) .and. ;
* (de optie = „exemplaar“ .or optie = „wijzigt zich“)
* p_amount = 0
* endif
**********
*

getcond =“ 'G'$ fld_usg "

als juist (sys (16.3), 8) = .and „USDA.FXP“. ;
juiste (sys (16.8), 10) <> „G_USDA.FXP "
do getfldA met getcond
read

als m->u_code_2 = „D“ .or m->u_code_2 = „C "
do getfldB met getcond
read
endif

else

do getfld met getcond

********** akl: Staat curseur aan UpArrow tot op heden gebieds 11/16/95 4:17 pm
als juist (sys (16.3), 9) = gelezen cycle
else
read
endif
**********/> s_lastkey

endif

= lastkey ()

* CLEANUP
********** akl: Bod - Multi geef het 2:07 van het Venster 10/16/95 am
op zeer belangrijk etiket PgUp
op zeer belangrijk etiket PgDn
**********

********** uit akl: CRITTERS.PRG - de MultiHonden van het Venster bedriegt het 10:06 van het Scherm 7/28/98 pm
als de optie = .and „wijzigt“. ;
prog_name = .and „CRITTERS“. ; /> (alias () = „CRITDOGS“ .or alias () = „CRITCATS“)
s_lastkey
doet DogUpDn
endif
**********

vastgesteld bericht to

als .not. ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))het

* (akl) 4/10/99 11:43 pm
* voegde als verklaring voor de volgende voorwaarde toe: 2/M/F5/N/Z
* het gegevensscherm gewist en het gebruikersscherm is/> * Probleem activated.
* het Geen gebruikersscherm wordt geactiveerd omdat de hoeveelheid gegevens niet op a
* het gebruikersscherm zal passen. Zo wordt de Desktop gebruikt. (activeer het scherm).

als .not. (sys (16.5) = „OP…“ .and. ; /> recht
het recht

vastgestelde stat van && dit moest worden aangebracht omdat SET

endif

endif
&& STAT WEG alleen niet message
als meest akl_test $ 'Yy'< br/> als .not wiste. ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))

als .not. (sys (16.5) = „OP…“ .and. ; /> recht
recht

vastgestelde stat on

endif

endif
endif

als s_lastkey =/> mislukking 27 && Esc
terugkeer ''
endif

als modify_key
als chk_dupl ()
de terugkeer ''
endif
endif

do lookup
calcul met .t.

als juist (sys (16.3), 8) = .and „USDA.FXP“. ;
juiste (sys (16.8), 10) <> „G_USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

duidelijke gets

als page_no < volgende het scherm page
page_no van de last_page&& Vertoning = page_no + 1
do disscr

terwijl page_no <= last_page
getcond =“ 'G'$ fld_usg "

********** akl doen: Bod - Multi geef het 2:07am
* s_lastkey uit van het Venster 10/16/95 = '' && becommentari�ërde voor F11 het zeer belangrijke 0:08 pm
PgUpKey van 2/28/96 =. F.
PgDnKey =. F.
BTabKey =. F.
op zeer belangrijk etiket PGUP doen PageUp
op zeer belangrijk etiket PGDN doen PageDn
op zeer belangrijk etiket BACKTAB doen TabBack
**********

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met getcond
do getfldB met getcond
else
do getfld met getcond
endif

read

als .not. (PgUpKey .or. PgDnKey .or. BTabKey)/> s_lastkey
endif

* CLEANUP
********** akl: Bod - Multi geef het 2:07 van het Venster 10/16/95 am
op zeer belangrijk etiket PGUP
op zeer belangrijk etiket PGDN
op het zeer belangrijke vastgestelde bericht
to
vastgestelde stat van etiketBACKTAB
********** van && uit dit moest worden aangebracht omdat SET
&& STAT WEG alleen niet message
&& wiste het zou moeten werken. Kom waarom te weten?
als meest akl_test $ 'Yy'< br/> vastgestelde stat on
vastgestelde esca on
endif

als s_lastkey =/> mislukking 27 && Esc
exit
endif

als s_lastkey = 18 &&- Pagina op Key
als page_no > 1
page_no = page_no - 1
do disscr
loop
endif
endif

als s_lastkey = 3 &&- Pagina onderaan Key
als page_no < last_page
page_no = page_no + 1
do disscr
loop
endif
endif

als s_lastkey = 15 && AchterTab
als page_no > 1
page_no = page_no - 1
do disscr
als page_no = 1
voor I = 1 aan/> toetsenbord 18
next
loop
endif
endif
endif

als het type („LArrow“) = „L“ && het 10:43 van Contracten (akl) 10/05/99 am
als page_no = 2
page_no = 1
do disscr
loop
endif
endif

ziet als page_no = first_page
* Controle voor dubbele (sleutel ingegaan slechts op eerste pagina)
&ndx_var

************************** ********** ********** ********** ********** ********** ***
* *
* dit streeft ALS de verklaring werd veranderd en dupliceerde omdat wanneer u aan een/>* leeg gegevensbestand *
* bericht toont altijd het van het „Dubbele Verslag“ wanneer het eerste verslag is ingegaan. Afzonderlijk ALS de verklaringen *
* schijnt om dit probleem te bevestigen. Het verschil is ALS verklaring vlak vóór *
* „= dismsg…“ verklaring. Zij zijn verschillend voor elke voorwaarde van ZOOM_NO. *
* (akl) *
************************** ********** ********** ********** ********** ********** ***

* gebruikt dit ALS verklaring als zoom_no = 1
als zoom_no = 1

als prog_name = de uitgang && van het „CONTRACT "
omdat altijd wordend foutenmelding when
&& in Contract en ^W wordt gebruikt die om weg te gaan toevoegde. Ik deed het this
&&manier omdat ik weet dat ik witing een de venstersversie van WINDOWS
&& van het programma zal. Het is worth
geen && op dit ogenblik bestrijdend het 2:09 van 3/08/2000 p.m. (akl)
else

als .not &at_eof .and .not allow_dup&zoom_num
= dismsg (chr (7) + „Dubbel toegestaan niet verslag“)/> mislukking
* Gebruik .t.
exit
endif

endif

endif

1
als zoom_no > 1
als .not. (&at_eof .and allow_dup&zoom_num)
= dismsg (chr (7) + „Dubbel toegestaan niet verslag - 2 (akl)“)/> mislukking
* de raadplegingsgebieden van de Vertoning .t.
exit
endif
endif
endif

do lookup
calcul met .t.

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

duidelijke gets

als page_no < last_page
* het volgende scherm page
toont           page_no = page_no + 1
do disscr
else
exit
endif
enddo terwijl page_no <= last_page
endif

als .not. ((alias () = „PAYDETL“ .or alias () = „RECDETL“) de .and optie = „wijzigt“)
do calcul met .t.
endif

* herstelt pagina number
als page_no > first_page
deact all
page_no = first_page
do disscr

als juist windt (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .f. „
do getfldB met“ .f. „
else
do getfld met“ .f. „
endif


redisp_fld = .t.
duidelijke gets
endif

als .not abort
********** akl: Controleer de spelling van het verslag 3/19/96 1:55 am
als prog_name = .or prog_name = „CONTRACT“ .or „BIEDT“. ;
prog_name = „REKENING“ .or prog_name = „SUBRENT“ .or. ;
prog_name = „BRENGT“ .or in kaart prog_name = „HELTHCRT "

doet SpellChk met „Rec“ &&- Verslag (Rec) of Gebied (Fld)

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .f. „
do getfldB met“ .f. „
else
do getfld met“ .f. „
endif

endif
**********
als („sparen Verslag“)
save_rec = bevestig. T.
als alias () = „CRITDOGS“ .or alias () = „CRITCATS "
LastTKUpd = ()
dateren als alias () = „CRITDOGS "
uitgezochte critters
LastTKupd met m->LastTKupd
uitgezochte critdogs
@ 0.67 zeggen dtoc (m.lasttkupd)
else
uitgezochte critters
LastTKupd met m->LastTKupd
uitgezochte critcats
@ 2.60 dtoc (lasttkupd)
endif
endif
zeggen verzamelen memvar memo
als juist (sys (16.3), 12) = „CONTRACT.FXP "
sele 2
zich verzamelt memvar
sele 3
memvar
sele 1
endif
endif
endif
return ''
*L
PROCEDURE RunDOS
* een van de Dos- programma of partij dossier uit, of halen de tolk van Dos aan command
* (COMMAND.COM moet in de WEG zijn)

PARAMETERS command_
ALS _DOS
/> het SCHERM van SAVE SCREEN
@ 0.0/> de VASTGESTELDE LOOPPAS /0 van ON

* &command_ ACTIVEERT.                       Uit becommentari�ërd: 3:08 am

NewCommand_ van 8/15/95 = GETENV („COMSPEC“) && voegde deze code toe om de true
LOOPPAS /0 &NewCommand_ && „COMMAND.COM“ te lezen. Kan niet altijd sure
&& COMMAND.COM zijn zal zijn/> GEPLAATSTE CURSEUR running.
* de VASTGESTELDE CURSEUR VAN Becommentari�ërde 11/29/94 (akl)
HERSTELT het SCHERM VAN/> s_lastkey/>RETURN
*L
function PageDn
ENDIF

= lastkey ()

als s_lastkey = 3
PgDnKey =. T.
tikken chr (23)

in als de optie = .and „wijzigt“. ;
prog_name = .and „CRITTERS“. ;
(alias () = „CRITDOGS“ .or alias () = „CRITCATS“)
s_lastky2 = s_lastkey && enkel desgevallend gebruiker gedrukt CTRL-W van eerste screen
endif
endif
s_lastkey/>
return
*L
function PageUp

als s_lastkey = 18
* als .not. (prog_name = .and „CRITTERS“. ; />* de optie
* (alias () = „CRITDOGS“ .or alias () = „CRITCATS“))

PgUpKey =. T.
tikken chr (23)

* endif
endif

return
*L
function _next
skip
in als &at_eof
= _end ()
= dismsg (chr (7) + „Laatste verslag“)
endif
return ''
*L
function _nextr
skip
als eof ()
= _endr ()
= dismsg (chr (7) + „Laatste verslag“) _nextpage
last_page
endif
return ''
*L
function = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1))
als page_no < last_page
page_no = page_no + 1
do disscr
else
= dismsg („Geen andere pagina“)
endif
return ''
*L
function _nohelp

venster help_not van 0.30 tot 2.78 schaduwkleurenschema 7
bepaalt activeert venster help_not

mess_err = 'Droevig, is geen HULP op dit ogenblik beschikbaar. '
wacht mess_err

skip/>return ''
*L
function _prev
-1
van het versievenster help_not
= _begin ()
= dismsg (chr (7) + „Eerste verslag“)
endif
return ''
*L
function _prevr
skip -1
als bof ()
= _beginr ()
= dismsg (chr (7) + „Eerste verslag“) _prepage
first_page
endif
return ''
*L
function = val (substr (page_seq&zoom_num, 1.1))
als page_no > first_page
page_no = page_no - 1
do disscr
redisp_fld = .t.
else
= dismsg („Geen andere pagina“)/> ********** Druk
endif
return ''
*L
function _print

als juist (sys (16.2), 12) = „CRITTERS.FXP“ .or. ; /> het recht
do prn_sele
endif
**********

vastgestelde vlucht on

bepaalt venster prnt_wndw van 0.43 tot 2.78;
het schaduwkleurenschema 7
activeert venster prnt_wndw
s_readkey/>
@ 0.0 zegt“ Druk - ESC om '
tegen te houden = init_rpt ()

als s_readkey = .or s_readkey 268 = Vlucht 12 && pressed
de Toegevoegde Stroom/>
return
endif
&& of Al USDA registreert (akl van 02/05/02) was

als juist (sys (16.6), 10) = „P_USDA.FXP“ .and g_all = de laser“ .or outp_dev <> 'dot'< br „van A "
als .not sys (13) = „OFFLINE“ .or outp_dev <> „ /> s_recno/>
gaat top
brk_no/>

do pgehdr

doet terwijl .not eof ()

r_count = 0

terwijl r_count <> 9
do brkhdr

skip
als eof ()
exit
endif

r_count = r_count + 1

enddo

als eof ()
exit
endif

enddo

goto s_recno

endif

else

als .not sys (13) = „OFFLINE“ .or outp_dev <> „laser“ .or outp_dev <> 'dot'< br/> doet        doe rpthdr
do pgehdr
doen rptbdy
do rptftr
line_no = lns_per_pg
do pgeftr
endif
endif

als juist (sys (16.2), 12) = „P_LABELS.FXP“ .and groep = 1
als akl_system $ 'Y'< br/> vastgestelde druk aan/> else
vastgestelde druk LPT1
endif
de vastgestelde vastgestelde printer van de drukon
eject
vastgestelde druk off
to
else
= end_rpt ()
endif

versievenster prnt_wndw

als outp_dev = 'screen'< br/> = edit_txt ()
endif

vastgestelde vlucht off
record_no
return ''
*L
function _popcal
s_curobj = _curobj
* activeren screen

op zeer belangrijk etiketESC toetsenbord“ {CTRL+W} „+“ {GA} binnen „

* @ 24.0 zeggen padc („ESC van de Pers om aan het invoer van gegevens scherm“, 80 terug te keren)
geldig venster calculator
activeert. T.
* @ 24,0

op zeer belangrijk etiket esc

_curobj = s_curobj

vastgestelde esca on
return
*L
function _quit

als juiste (sys (16.2), 9) <> „PRINT.FXP“ .and. ;
juiste (sys (16.3), 8) <> 'JOBS.FXP'< br/> vastgestelde filterto
endif
* Huid/>
do case
gevalrecht (sys (16.2), 12) = 'zoom_no van het CRITTERS.FXP'
do case
geval = 1
wind_hide = 'br usr_wndw1' gevalzoom_no = 2
clear
wind_hide = 'br usr_wndw5' gevalzoom_no = 3
clear
wind_hide = „br usr_wndw4' gevalzoom_no = 4
wind_hide = „br usr_wndw6' gevalzoom_no = 5
wind_hide = „br usr_wndw3' endcase
s_zoom_no/>
ophoudt met        als zoom_no = 1 .or. Zoom_no van KeyF2
= 0
else
zoom_no = 1
endif
otherwise
wind_hide/>
m_no))/> zoom_no

* voegde als verklaring voor de volgende voorwaarde toe: 2/M/F5/N/Z
* het gegevensscherm gewist en het gebruikersscherm is/> * Probleem activated.
* het Geen gebruikersscherm wordt geactiveerd omdat de hoeveelheid gegevens niet op a
* het gebruikersscherm zal passen. Zo wordt de Desktop gebruikt. (activeer het scherm).

als (sys (16.5) = „OP…“ .and. ; /> recht
recht

clear
endif

endcase

het venster als van de wexist („&wind_hide“)/> huid
endif

als zoom_no > 0
= x_zoom ()
record_no
do disscr
redisp_fld = .t.
endif
return ''
*L
function _retrieve
* gaan sleutel goedkeurt en verslag zoekt; als gevonden niet verander aan record_no
d_function = van plaats dispage1 ()
als '' <> de versierings (ndx_var)
verspreiding memvar lege memo
do clrfld
getkey

read

* CLEANUP
bericht to
vastgestelde stat van && plaatste dit moest worden aangebracht omdat SET
&& STAT WEG alleen niet message
als meest akl_test $ „Yy'< br/> vastgestelde stat on
endif
als lastkey () <> 27 && Esc

wiste als het programma (3) = „.and van BANEN“ alias () = „BANEN "
versiering (&ndx_var1a)
else
zoekt                        zoek versiering (&ndx_var)
endif

als &at_eof
= dismsg („gevonden niet“)
record_no
endif

endif
endif
return ''
*L
********** akl gaat: De nieuwe Uitgezochte het 2:25am
function _select
parameters van het Bevel 10/23/95 dbf_desc
&& Dit bevel is nodig because
op zeer belangrijk etiket F7 && do _nohelp && van 18) het probleemfound.
vastgestelde hulp de van sys (van && (_nohelp is op deze pagina)
&&- Bericht -->> geen func kan worden geroepen!
&& noch kan een .PRG

als juist (sys (16.2), 12) = „CRITTERS.FXP“ && Geen „GROW“!! (11 uren!)
bepaalt venster brws_wndw van 9.4 tot 19.54; /> titel
kleurenschema van de de vlotter bepaalt het dichte schaduw van het systeemgezoem 10
else
venster brws_wndw van 9.4 tot 19.65; /> titel
de vlotter van het systeemgezoem kweekt dichte record_no van het schaduwkleurenschema 10
endif

do sel&zoom_num

het venster brws_wndw
vastgestelde hulp/>
versie
op zeer belangrijk etiket F1 genhlp vooruit met van de sys (18) _skip
* Beweging

return ''
**********
*L
function/achteruit verscheidene records
rec_count = 0
bepalen venster skip_wndw van 11.29 tot 13.52;
het schaduwkleurenschema 7
activeert venster skip_wndw
@ 00.00 zegt“ Skip Verslagen: “ krijg rec_count beeld „@Z 999999 '
read
skip rec_count
als &at_eof
= _end ()
= dismsg (chr (7) + „Laatste Verslag“)
endif
als &at_bof
= _begin ()
= dismsg (chr (7) + „Eerste verslag“)
endif
vooruit van de Beweging/>return ''
*L
function van het versievenster skip_wndw
*/achteruit verscheidene records
rec_count = 0
venster skip_wndw van 11.29 tot 13.52 bepaalt;
het schaduwkleurenschema 7
activeert venster skip_wndw
@ 00.00 zegt“ Skip Verslagen: “ krijg rec_count beeld „@Z 999999 '
read
skip rec_count
als eof ()
= _endr ()
= dismsg (chr (7) + „Laatste Verslag“)
endif
als bof ()
= _beginr ()
= dismsg (chr (7) + „Eerste verslag“)
endif
s_lastkey/>return ''
*L
function TabBack
= lastkey ()
als s_lastkey = 15
BTabKey =. Het toetsenbord van T.
chr (23)
endif

return
*L
function _tally
bepaalt venster count_wndw van 0.35 tot 2.78;
het schaduwkleurenschema 7
activeert venster count_wndw
@ 0.0 zegt“ het Tellen… „
rec_count = 0
= _begin ()/> telling

mess_str = streptokok (rec_count, 6) +“ record'< br/>
als rec_count > 1
mess_str = mess_str + „s'< br/> endif

mess_str
gaat record_no
versievenster count_wndw
return ''
*L
function _tallyr
wacht venster count_wndw van 0.35 tot 2.78 bepaalt;
het schaduwkleurenschema 7
activeert venster count_wndw
@ 0.0 zegt“ het Tellen… „
rec_count = 0
= _beginr ()/> telling
mess_str = streptokok (rec_count, 6) +“ records'< br/> mess_str
gaat record_no
rep_file versievenster count_wndw
return ''
*L
function _tofile
= ruimte (8)
wacht bepaal venster file_wndw van 7.20 tot 16.59; /> de titel het schaduwkleurenschema 7

activeert venster usr_wndw1
activeert venster file_wndw

@ 3, zegt 1 het „Maximum van 8 karakters wordt toegestaan. „
@ 4, 1 zegt „Filename, gaat u, zal have'< br/> @ 5 binnen, zegt 1“ „.TXT“ toegevoegd aan het eind van de naam. '
@ 6, 1 zegt „geen speciale karakters gebruik. „

@ 1.15 krijgt rep_file
read

rep_file = „c:\crit\fax\ " +alltrim (rep_file) +“ .txt "

desactiveert het venster van de venster file_wndw
versie file_wndw

bepaalt venster file_wndw van 7.18 tot 19, 60; /> titel het schaduwkleurenschema 7
activeert venster file_wndw

@ 1, zegt 1 „nadat de fax is gedrukt, naar "
@ 2 gegaan, zegt 1 „Systray, op de Desktop, en begint "
@ 3, zegt 1 „WinFax, door op de fax "
@ 4 Met de rechtermuisknop te klikken, zegt 1 „pictogram. Daarna, verzendt de linker-klik een Fax… „

@ 6, zegt 1 „de plaats van het Dossier: „+rep_file

@ 8, 1 zeggen „wanneer de fax is verzonden, zegt de terugkeer hier "
@ 9, 1 „blijven werken zoals voordien. „
read

versievenster file_wndw

als .not lege (rep_file)
outp_dev = 'file'< br/> endif
return ''
*L
function _torcd
ndx_exp = sys (14.1)
als &ndx_exp >= first_val
last_rec = record_no
last_val = &ndx_exp
else
= dismsg („het Laatste verslag moet het eerste verslag“ volgen)
endif
= _disstat ()
return ''
*L
function _zoom

* susp

als no_zooms = zoom_no
= dismsg („Geen Dossier van het Gezoem“)
else
als juist (sys (16.2), 12) = 'CRITTERS.FXP'< br/> do case
het geval anml_type = 'br C' zoom_no = 3
geval anml_type = „br D' zoom_no = 2
geval anml_type = „br E' zoom_no = 4
geval anml_type = „br F' zoom_no = 5
otherwise

* = dismsg („het Dierlijke gebied van het Type is C, D, E, of geen F.“)

A_Type = ruimte (1)
bepaalt venster file_wndw van 8.20 tot 16.57; /> titel
het schaduwkleurenschema 7

activeert venster usr_wndw1
activeert venster file_wndw

@ 1, zegt 1 „Elk dier een TYPE moet hebben dat "
@ 2, 1 zegt „een algemene categorie beschrijft. „
@ 3, 1 zegt „de toegestane ingangen zijn: D, C, F, of E "
@ 4, 1 zeggen“ (Hond, Kat, Landbouwbedrijf, of Exotisch.) „

GoodType =. F.

doen terwijl .not. GoodType

@ 4.34 krijgt A_Type
read

A_Type = Hogere

als A_Type $ „DCFE "
GoodType =. T.
else
@ 6, 1 zeggen“ gelieve binnen te gaan: D, C, F, of E „
EndIf

enddo

desactiveren het venster van de venster file_wndw
versie file_wndw

anml_type = A_Type

vervangen anml_type met m->anml_type

@ 2, zeggen 65 m->anml_type
endcase
else
zoom_no = zoom_no + 1
endif

= x_zoom ()
= _begin ()
* als een nieuwe pagina, nieuwe screen
als first_page<> page_no
page_no = first_page
endif
als &at_eof
vastgestelde esca off
= dismsg („leeg Gegevensbestand“)
vastgestelde esca on
= _add ()
endif
endif

return ''
*L
function add_rec
* voegen toe een record
mislukking = .f.
no_rcds = &at_eof

* aan eerst page
d_function wordt teruggesteld = dispage1 ()

op zeer belangrijk etiket PGUP PageUp
op zeer belangrijk etiket PGDN doet PageDn

doet terwijl page_no <= last_page

********** akl doet: Bod - Multi geef het 2:07 am
*+++++++++ van het Venster 10/16/95 akl uit: Bod - sta toe op Multi Window
uitgeef als juist (sys (16.3), 8) = „BIDS.FXP "
op zeer belangrijk etiket PGUP newPageUp
op zeer belangrijk etiket PGDN newPageDn
endif
**********

* akl: Verwijderd - hield niet van de manier het het 9:17 van 3/13/96 pm
********** akl werkte: Toegevoegd voor automatisch saldo berekenings 2/11/96 8:42 pm
als ((prog_name = „BETAALBARE“ .and alias () = „PAYDETL“) .or.  ;
(prog_name = „ONTVANG alias“ .and () = „RECDETL“)) .and. ;
(de optie = „exemplaar“ .or optie = „wijzigt zich“))
p_amount = 0
endif
**********
*
getcond =“ „G'$ fld_usg "

als juist (sys (16.3), 8) = „USDA.FXP "
do clrfld
@ 14, 1 ruimte (57)
@ 15 zegt, 1 zegt ruimte (57)
@ 16, zegt 1 ruimte (57)
@ 17, zegt 1 ruimte (57)

do getfldA met getcond
read

als m->u_code_2 = „D“ .or m->u_code_2 = „C "
do getfldB met getcond
read
endif

else

do getfld met getcond

********** akl: Staat curseur aan UpArrow tot op heden gebied toe. het 6:59 van 12/15/95 pm
als juist (sys (16.3), 9) = „CALLS.FXP "
gelezen cycle
else
read
endif
**********
endif

********** akl: Bod - Multi geef het 2:07 am
*+++++++++ van het Venster 10/16/95 akl uit: Bod - sta toe op Multi Window
als juist uitgeef (sys (16.3), 8) = „BIDS.FXP "
op zeer belangrijk etiket PGUP
op het zeer belangrijke vastgestelde bericht

to
vastgestelde stat van etiketPGDN
endif
********** van && dit moest worden aangebracht omdat het van SET
&&- BERICHT niet schijnt te werken!!
als meest akl_test $ „Yy'< br/> vastgestelde stat on
endif
s_lastkey/>

als s_lastkey =/> mislukking 27 && Esc
exit
endif

als s_lastkey = 18 &&- Pagina op Key
als page_no > 1
page_no = page_no - 1
do disscr
loop
endif
endif

als s_lastkey = 3 &&- Pagina onderaan Key
als page_no < last_page
page_no = page_no + 1
do disscr
loop
endif
endif

als page_no = first_page
* Controle voor dubbele (sleutel ingegaan slechts op eerste pagina)
als .notallow_dup&zoom_num
als juiste (sys (16.3), 8) <> „USDA.FXP "
&ndx_var
als .not streeft. (&at_eof)
= dismsg (chr (7) + „Dubbel toegestaan niet verslag“)/> mislukking
exit
endif
********** akl: Het toegevoegde individuele controleren van elk zeer belangrijk gebied in het 0:26 van USDA 5/31/96 pm
else
als m.usda = 0
exit
endif
s_recno = recno ()
top
gaat bepaalt van de plaats voor m.name = name
indien gevonden ()
= dismsg (chr (7) + „Dierlijke naam reeds in gebruik. Kies een andere naam“)/> mislukking
exit
endif
top
de plaats bepaalt van voor m.usda = usda
indien gevonden ()
= dismsg gaat (chr (7) + „het aantal van USDA reeds in gebruik. Kies een andere aantal“)/> mislukking
exit
endif
als .not eof ()
de de raadplegingsgebieden van de goto s_recno
endif
endif
**********/> * Vertoning
endif
endif

do lookup
calcul met .t.

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

duidelijke gets

als page_no < last_page
* volgende het scherm page
page_no = page_no + 1
disscr
else
exit
endif
enddo terwijl page_no <= last_page

* pagina number
herstelt als page_no > first_page
deact all
page_no = first_page

do disscr

als juist windt (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

redisp_fld =/> mislukking .t.
endif


als .not abort
als no_rcds
= set_bndry ()
endif
else
als no_rcds
= _quit ()
else
record_no
endif
endif abort
* Vooruitgang/>return ''
*L
function een rapport/het scherm line
line_no = line_no + 1
als line_no = lns_per_pg
do pgeftr
= adv_page ()
endif
at_top = adv_page
* het rapport van de Vooruitgang .f.
return line_no
*L
function/het scherm page
page_no/>

als juist gaat (sys (16.2), 12) = het 9:11 p.m. (akl)
als page_no = sel_yes + 1
return
endif
endif

als outp_dev = de „laser“ .or outp_dev = „dot'< br/> eject
else
@ line_no+1,0 omgebogen (chr (219), 76)/> line_no
endif


do pgehdr
return ''/>* het duplicaat van de Reeks
*L
function chk_dupl

privé dupl_rec

als ((&at_bof) zegt = (&at_eof)) .or. '' = (streeft de ndx_var) versiering .or allow_dup&zoom_num
dupl_rec = .f.
else
&ndx_var
als optie = „M'< br/> dupl_rec = record_no<> recno () .and .not &at_eof
else
dupl_rec = .not &at_eof
endif
als dupl_rec
= dismsg (chr (7) + „Dubbel toegestaan niet verslag“)
else
record_no
endif
endif
* de onderbrekingsniveau van de Toename/>return dupl_rec
*L
function chng_brk
Parameters up
gaat als up
* nieuwe rapportbeëindiging condition
brk_field = brk_field&brk_num
new_cond = „&brk_field<>m->&brk_field“ +“ plaatste.or. „/> cond_size&brk_num
done_cond = new_cond + done_cond
* de onderbrekingsgebied van de Opslag aan geheugen variable
&brk_field = &brk_field
* Gezoem als het een „gezoem“ break

is als brk_zoom&brk_num
zoom_no = zoom_no + 1
zoom_num = streptokok (zoom_no, 1)
frst_child = lnk_var&zoom_num
uitgezochte &zoom_num
&frst_child
endif
* de onderbrekings number
naar brk_no van de Toename = brk_no + 1
brk_num = gedaane streptokok (brk_no, 1)
= &done_cond
else
brk_no = brk_no - 1
brk_num = streptokok (brk_no, 1)
* streeft vermindert omhoog het rapport de beëindiging condition
done_cond = substr (done_cond, 1+cond_size&brk_num)
* zoemt neer als het een „gezoem“ break
als brk_zoom&brk_num
zoom_no = zoom_no is - 1
zoom_num = streptokok (zoom_no, 1)
uitgezochte &zoom_num
endif
endif
return ''
*L
function confirm
parameters header
bepaalt venster con_wndw van 1.50 tot 20.100;
dubbel kleurenschema 12;
DOOPVONT de „Vette letters van Arial“, 20 && 1.2.5? , 6? , 8? , 10? , 11? , „13 '

activeren venster con_wndw

als (13-len (kopbal) /2) < 0
= dismsg („Fout: Te lange kopbal. 13 de klusjes maximum“)
endif
@ 1.00 zeggen de ruimte (13-len (kopbal) /2) + header
@ 3.00“ < > < > „
@ br 3.05 snel „br Yes' @ 3.18 snel „No' menu aan van het het venster con_wndw
return iif (con_opt=1, .t., .f.)
*L
function con_year
* CONTRACY JAAR van de con_opt
de winst versie het jaar van het contract zoals die door Rob
* voor zijn business.

VASTGESTELDE EEUW ON
wordt gespecificeerd num_yr = val zegt (juist (dtoc (datum ()), 4))-1981
VASTGESTELDE EEUW OFF

als val (weggegaan (dtoc (datum ()), 4)) > 5
num_yr = num_yr + 1
endif
return num_yr
*L
function dismsg
parameters message
bepaalt venster mess_wndw van 10.78-6 (bericht) aan 24.100;
TITEL het „Bericht van Critters“; /> DE DICHTE VLOTTER
schaduwkleurenschema 7;
de DOOPVONT de „Vette letters van Arial“, 20
activeert venster mess_wndw
als lege (bericht)
“ Pers om het even welke sleutel wacht om… „/> else
wachttijd endif
de parameters/>return ''
*L
function dismsgt
message
van het versievenster mess_wndw
het schaduwkleurenschema 7
activeert venster mess_wndw
als lege (bericht)
“ Pers om het even welke sleutel om wacht verder te gaan…“ ;
onderbrekings2
else
wachttijd““ + bericht +“…“ ;
het Bericht van de het venster mess_wndw
* Vertoning/>return ''
*L
function DmsgQwQr
endif
versie, wacht? (ja of geen) Versie? (ja of geen)

het parametersBericht, WaitReply, CloseWin

bepaalt venster mess_wndw van 0.78-6 (bericht) aan 2.78;
het schaduwkleurenschema 7
activeert venster mess_wndw

als WaitReply
als lege (bericht)
@ 0.1 'Pers om het even welke sleutel zegt om… „
read
else
voort te zetten @ 0.1 zegt het bericht +“… „
read
endif
else
als lege (bericht)
@ 0.1 ''
else
@ zegt 0.1 bericht +“… '
endif
endif

als CloseWin
versievenster mess_wndw
endif
return ''
*L
function dispage1
als page_no <> first_page
redisp_fld =/> page_no .t.
do disscr

als juist zegt (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

duidelijke gets
endif
return ''
*L
function edit_txt
bepaalt venster txt_wndw van 1.0 tot 24.79;
titel „DRUK AAN het SCHERM (ESC aan Uitgang)“;
de vlotter van het systeemgezoem kweekt dicht kleurenschema 11

als meest akl_test $ 'Yy'
dossiergentemp.gtxvenster txt_wndw && .gtx = GeneralTeXt
else
wijzigt dossiergentemp.gtx noedit venster txt_wndw && .gtx = GeneralTeXt
endif
versievenster txt_wndw
return ''
*L
function end_rpt
als outp_dev = „laser“ .or outp_dev = 'dot'< br/> als juiste wijzigen (sys (16.3), 11) <> „P_CONTR.FXP“ .and. ;
juiste (sys (16.3), 10) <> „P_INVO.FXP“ .and. ;
juiste (sys (16.5), 12) <> „P_SUBRNT.FXP“ .and. ;
juiste (sys (16.5), 10) <> 'P_BIDS.FXP'< br/> als .not. ((juist (sys (16.3), 12) = „P_LABELS.FXP“ .or. ; /> recht
recht
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5))
eject
endif
endif
endif

als outp_dev = 'file'< br/> vastgesteld printerto
endif
vastgesteld apparaat/>
„P_BIDS.FXP“ && (akl) 6/02/99 0:33 aan van de screen
het vastgestelde console on

return ''

* pm
* .and. ;                                     && 2/20/94 (akl)
* juiste (sys (16.3), 12) <> 'P_LABELS.FXP'< br/>
*L
function envrnmnt
op error do errfix met fout (), bericht (), bericht (1), program (), vastgestelde de consoleon
vastgestelde decimalen van de lineno ()/> vastgestelde klok
aan 10
reeks geschrapte on
vastgestelde nauwkeurige off
vastgestelde exclusieve off
het vastgestelde apparaat aan screen
geplaatste multilocks off
reeks zich aan 0
reeks verfrist recycleert aan 1
vastgestelde dichte databases
return errfix
parameters ''
*L
function van de veiligheids off
vastgestelde bespreking off
errnum,errormsg, errormsg1, prgname, lineno
* het gevalerrnum van het versievenster err_wndw
do case
= 108 &&- dossier in gebruik door another
als (bevestig probeert het „Dossier opnieuw in Gebruik? “)
retry
else
als het venster van de wexist („chkf_wndw“)/> versie
endif
= restenv ()/> terugkeer
endif
geval = 109 &&- verslag door another
wordt gesloten als („bevestig probeert het Verslag opnieuw in Gebruik dat? “)/> retry
else
de terugkeer
endif
* terugkeer naar &
gevalerrnum = 110 &&- dossier in gebruik door another
= dismsg („het Dossier moet zijn opended uitsluitend“)/> terugkeer
otherwise
*set esca on
bepaalt venster err_wndw van 15.3 tot 50.170;
DOOPVONT de „Vette letters van Arial“, 16;
het dubbele kleurenschema van de vlotterschaduw 2

activeert venster err_wndw
@ 0.0 zegt het „Aantal van de Fout:  “ + ltrim (streptokok (errnum))
@ 1.0 zegt „Foutenmelding: “ + errormsg
@ zeggen 2.0 „Lijn van Tekst:  “ + zeggen errormsg1
@ 3.0 „de Naam van het Programma:  “ + prgname
@ zeggen 4.0 „het Aantal van de Lijn:   “ + ltrim (streptokok (lineno))
@ 5.0 zegt „Voorwerp:        “ + had sys (2018)
= dismsg („Fout“)
esca off
endcase
return ''
*L
function explode
parameters van het versievenster err_wndw
*set m_row1, m_col1, m_row2, m_col2, m_cnt, m_type

* m_row1 = hogere linkerhoek van box.
* m_col1 = hogere rechtse hoek van box.
* m_row2 = lagere linkerhoek van box.
* m_col2 = lagere juist hoek van box.
* m_cnt = aantal stappen voor explosie bepaalt de snelheid die explodes.
* m_type = type van explosion.
* 1 = alle kanten meteen exploderen.
* 2 = slechts kanten explode.
* 3 = slechts hoogste in dozen doen en de bodem explode.
* 4 = explodeert van boven tot onder.
* 5 = explodeert van volledige.
* 6 = van links naar rechts explodeert.
* 7 = van rechts naar links explodeert. het scherm

public explode
save aan explode

r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
c_pos2 =/>do case
geval m_col2

opslag sides.
aan r_pos1, r_pos2 && rij center
opslag ((m_col2-m_col1) /2) +m_col1 aan c_pos1, c_pos2 && col. center
r_cnt = (r_pos1-m_row1) /m_cnt && rij increment
c_cnt = (c_pos1-m_col1) /m_cnt && col. increment
case m_type = 2 && kantenonly.
opslag ((m_col2-m_col1) /2) +m_col1 aan c_pos1, c_pos2 && col. center
c_cnt = (c_pos1-m_col1) /m_cnt && col. increment
case m_type = bovenkant 3 && en bottom
opslag ((m_row2-m_row1) /2) +m_row1 aan r_pos1, r_pos2 && rij center
r_cnt = (r_pos1-m_row1) /m_cnt && rij increment
geval m_type = 4 && volledige
r_pos2 = m_row1
r_cnt = (m_row2-m_row1) /m_cnt && rij increment
geval m_type = 5 && volledige
r_pos1 = m_row2
r_cnt = (m_row2-m_row1) /m_cnt && rij increment
geval m_type = 6 && verlaten aan right
c_pos2 = m_col1
c_cnt = (m_col2-m_col1) /m_cnt && rij increment
geval m_type = recht 7 && op left
c_pos1 = m_col2
c_cnt = (m_col2-m_col1) /m_cnt && rij increment
endcase

do terwijl r_pos1 >= m_row1 .and r_pos2 <= m_row2 .and. ;
c_pos1 >= m_col1 .and c_pos2 <= m_col2
@ r_pos1, c_pos1, r_pos2, c_pos2 doos „im;: do case
geval m_type = 1
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + r_cnt
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + c_cnt
geval m_type = 2
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + c_cnt
geval m_type = 3
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + r_cnt
geval m_type = 4
r_pos2 = r_pos2 + r_cnt
geval m_type = 5
r_pos1 = r_pos1 - r_cnt
geval m_type = 6
c_pos2 = c_pos2 + c_cnt
geval m_type = 7
c_pos1 = c_pos1 - c_cnt
endcase
enddo
clear

*@ m_row1,m_col1, m_row2, m_col2 doos „im;:
return ''
*L
function fltrsta

* (akl) 5/11/99 3:27 pm
* Volgende ALS de verklaring werd verwijderd om het bericht van de Filter toe te staan om displayed.
* te zijn als .not. ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))
activeert screen
* endif
als .not leeg (filter ())
@ 0.70 zegt „Filter op“ kleurenw+/n
else
* (akl) 5/11/99 3:27 pm
* Volgende ALS de verklaring werd veranderd om de juist-Hoogste hoek van het vakje te tonen.
do case
het gevalrecht (sys (16.2), 12) = „CRITTERS.FXP“ .and juist (dbf (), 12) = „CRITDOGS.DBF'< br/> als PrimDisp
@ 0.70 „ÍÍÍÍÍÍÍÍÍ "
else
@ zegt 0.70 zegt „ÍÍÍÍÍÍÍÍÍ“ „
endif

gevalrecht (sys (16.2), 12) = „CRITTERS.FXP“ .and juist (dbf (), 12) = „CRITCATS.DBF'< br/> als PrimDisp
@ 0.70 zegt ruimte (09)
else
@ 0.70 „ÍÍ“ „+space (06)
endif

otherwise
zegt             @ 0.70 zeggen ruimte (09)
endcase
endif

als alias () = „BIDS'< br/> als het type („s_recon_date“) = „D'< br/> als lege (s_recon_date)
@ 0, 1 ruimte (25)
else
@ 0 zegt, 1 „Recon Datum zegt: „(s_recon_date) kleur +dtoc w+/n
endif
endif
endif

als .not. ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))het

* (akl) 4/10/99 11:43 pm
* voegde als verklaring voor de volgende voorwaarde toe: 2/M/F5/N/Z
* het gegevensscherm gewist en het gebruikersscherm is/> * Probleem activated.
* het Geen gebruikersscherm wordt geactiveerd omdat de hoeveelheid gegevens niet op a
* het gebruikersscherm zal passen. Zo wordt de Desktop gebruikt. (activeer het scherm).

als .not. (sys (16.5) = „OP…“ .and. ; /> recht
het recht
activeert venster usr_wndw&page_num
endif

endif
return ''
*L
function fltrstar
activeert screen
als .not leeg (filter ())
@ 0.70 zegt de „Filter op“ kleur w+/n
else
@ 0.70 zegt ruimte (09)
endif
privé org_alias van venster usr_wndw
return ''
*L
function genhlp
parameters prm1
, hlp_topic
org_alias/>
als „GENHLP.DBF“ $ dbf ()
terugkeer ''
endif

EditFld = activeert. Rob van F. && wil ALLE Edit (Memorandum) gebieden het same
1:53 van het &&- hulpbericht 1/10/97 am (akl)
richten als lege (prm1) hlp_topic
= prog_name
else
als leeg (sys (18))hlp_topic
= hlp_topic prm1
else
= sys (18)
als type („&hlp_topic“) = „M'< br/> EditFld =. T.
endif
endif
endif

als .not het dossier („genhlp.DBF“)
als .not het dossier („genhlp.STR“)
= dismsg („gevonden niet genhlp.STR“)
terugkeer ''
else
uitgezochte 0
genhlp van genhlp.str
use
endif
endif

uitgezocht 0
gebruik genhlp

vastgestelde nauwkeurige on
leidt tot als EditFld
voor versiering (onderwerp) = „BID'< br/> else
de plaats bepaalt van voor versiering (onderwerp) = hlp_topic
endif
vastgestelde nauwkeurige off

als eof ()
de plaats bepaalt van als modi_memo
blank
= rlock toevoegt()

* vervangt onderwerp met prm1 && is dit een insect??
vervangt onderwerp met hlp_topic && als ja, dit kan de moeilijke situatie zijn!!
&& het scherm waar een gebied nog niet gekozen
&& (A of M), vervangt een blank.

vervangt brow met 7, bcol met 10; negeer alarmeer
erow met 16, ecol met 70
unlock
else
&& geen beschikbare hulp - of msg???
terugkeer ''
endif
endif
als modi_memo
venster help_wndw van brow, bcol aan erow, ecol bepaalt;
titel „HULP (ESC weggaan of F10 om te sparen)“;
de vlotter van het systeemgezoem kweekt dicht kleurenschema 11
else
bepaalt venster help_wndw van brow, bcol aan erow, ecol;
titel „HULP (ESC om weg te gaan)“;
detailleert het dichte kleurenschema van het systeemgezoem 11
endif
als modi_memo
als rlock ()
op zeer belangrijk etiket F10 sav_wind met „HULP (ESC weggaan of F10 om te sparen) „
het venster van memorandumdetails help_wndw
unlock
op zeer belangrijk etiket F10
else
= dismsg (het „Verslag van de Hulp in Gebruik, probeert“) opnieuw
endif
else
wijzigt memorandum wijzigt noedit venster help_wndw
endif
use
als! lege (org_alias)
uitgezochte &org_alias
endif
privé privé choice
return ''
*L
function getgrid
* VARIABLES
/> allen als prompt*
keus = 0
prompt1 =“ gaat „
prompt2 =“ Modi „
prompt3 =“ Opgehouden met „

* WINDOWS
bepaalt venster MAINTMNU van 22.0 tot 24.79;
de titel“ Net beveelt Menu“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
activeert venster MAINTMNU noshow
* 1 2 3
@ 0, zegt 1 „Modi Quit'< br/>*L
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP

activeren venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0, 4-1 snelle prompt2
@ 0,/> menu 9-1 snel prompt3

do case
geval = 0
de optie van MAINTMNU
= „quit'< br/> gevalkeus = 1
optie = „br go' gevalkeus = 2
optie = „modify'< br/> gevalkeus ga = 3
de optie van MAINTMNU
= „quit'< br/> endcase

desactiveert venster MAINTMNU

return option
*L
function getgrid2
* GetGrid2 heeft het Uitgezochte die bevel (van Sel) aan privé privé choice
* VARIABLES
/> wordt toegevoegd allen als prompt*
keus = 0
prompt1 =“ om te gaan „
prompt2 =“ Modi „
prompt3 =“ Sel „
prompt4 =“ Opgehouden met „

* WINDOWS
bepaalt venster MAINTMNU van 22.0 tot 24.79;
de titel“ Net beveelt Menu“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
activeert venster MAINTMNU noshow
* 1 2 3 4
@ 0, zegt 1 „br van Modi Sel Quit'*L
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP

activeren venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0, 4-1 snelle prompt2
@ 0,/> menu 9-1 snel prompt3
@ 0.13-1 snel prompt4

do case
geval = 0
de optie van MAINTMNU
= „quit'< br/> gevalkeus = 1
optie = „br go' gevalkeus = 2
optie ga = „modify'< br/> desactiveert de gevalkeus = 3
optie = „select'< br/> gevalkeus = 4
de optie van MAINTMNU
= „quit'< br/> endcase

venster MAINTMNU

return option
*L
function getsel
op zeer belangrijk etiket F7 genhlp met het recht van het sys (18)/>
do case
geval
„1 '
do maintmnu2

gevalrecht (sys (16.2), 12) = ' recht van CONTRACT.FXP het“ .or (sys (16.2), 11) = ' INVOICE.FXP“ .or. ; /> recht
FXP“ .or. ; /> recht
FXP“ (sys (16.2), 12) = ' CRITTERS.FXP“ .or. ; /> recht
FXP“ .or. ; /> recht
FXP“ .or. ; /> recht
FXP“ (sys (16.3), 11) = ' MEASURE.FXP“ .or. ; /> recht
S.FXP“ .or. ; /> recht
P.FXP“ .or. ; /> recht
NT.FXP“ .or. ; /> recht
FXP“ (sys (16.3), 12) = ' HELTHCRT.FXP“ .or. ; /> het recht

gevalrecht (toe sys (16.3), 9) = 'SETUP.FXP'< br/> do maintmnu5

otherwise
do maintmnu

endcase
return option
*L
************************** ********** ********** ********** ********** ******
* *
* voor CRITTERS het standaardonderhoudsmenu met wordt vervangen:        *
* *
* MAINTMNU.prg *
* *
= dismsg („fout Crit # 1 - geactiveerde niet Code. (getsel)“)
************************** ********** ********** ********** ********** ******

activeert screen
vastgesteld bericht aan 0
afmetings actn_pad (8.2)/> dimensie
dimensie
dimensie
dimensie
dimensie
dimensie
dimensie
dimensie

* stootkussen in elke popup
actn_pad (1.1) = 'GEGEVENSBESTAND '
actn_pad (2.1) = Het 'VERSLAG '
actn_pad (3.1) = 'VERSLAGEN '
actn_pad (4.1) = 'GEEFT '
actn_pad (5.1) uit = 'ADD'< br/> actn_pad (6.1) = 'het SCHERM '
actn_pad (7.1) = 'FILTER '
actn_pad (8.1) = 'OPGEHOUDEN met '
actn_pad (1.2) = 'GEGEVENSBESTAND '
actn_pad (2.2) = 'VERSLAG '
actn_pad (3.2) = 'VERSLAGEN '
actn_pad (4.2) = 'UITGEEFT '
actn_pad (5.2) = 'ADD'< br/> actn_pad (6.2) = het 'SCHERM '
actn_pad (7.2) = 'FILTER '
actn_pad (8.2) = 'OPGEHOUDEN met 'data_bar

(1) = 'data_bar Lijst '
(2) = 'data_bar Gezoem '
(3) = 'data_bar Aantekening '
* (4) = 'Opgehouden met 'recd_bar
(1) = 'Retrieve'< recd_bar br/> (2) = 'daarna 'recd_bar
(3) = 'Previous'< recs_bar br/> (1) = 'begint 'recs_bar met
(2) = 'recs_bar Eind '
(3) = 'Skip 'edit_bar
(1) = 'wijzigt 'edit_bar
(2) = 'uitgeeft Memo'< addr_bar br/> (2) = 'addr_bar Schrapping '
(3) = 'scrn_bar Exemplaar '
(1) = 'Volgende scrn_bar Page'
(2) = 'Prev Page'< filt_bar br/> (1) = 'plaatste filt_bar Filter '
(2) = 'annuleert quit_bar Filter '
(1) = 'Opgehouden met '

menubar actn_pad, 8
data_bar menu 1, 3
recd_bar menu 2, 3
recs_bar menu 3,3
edit_bar menu 4, 2
addr_bar menu 5, 3
scrn_bar menu 6, 2
filt_bar menu 7, 2
quit_bar menu 8, 1
@ 24.0 zegt ruimte (80)
gelezen menubar aan sele_row, sele_col save
clear
do case
geval sele_row = 1
opt_sel = data_bar (sele_col)/> geval
opt_sel = recd_bar (sele_col)/> geval
opt_sel = recs_bar (sele_col)/> geval
opt_sel = edit_bar (sele_col)/> geval
opt_sel = addr_bar(sele_col)/> geval
opt_sel = scrn_bar (sele_col)/> geval
opt_sel = filt_bar (sele_col)
otherwise
opt_sel = 'Quit'< br/> endcase
als opt_sel <> 'Quit'< br/> @ 0.1 bovenleer zegt (versiering (opt_sel)) de kleur w+/n
endif
activeert lager venster usr_wndw&page_num
return (versiering (opt_sel))
*L
function getseli
activeert screen
vastgesteld bericht aan 0
afmetings actn_pad (5.2)/> dimensie
dimensie
dimensie
dimensie
dimensie

* stootkussen in elke popup
actn_pad (1.1) = 'GEGEVENSBESTAND '
actn_pad (2.1) = 'VERSLAG '
actn_pad (3.1) = het 'SCHERM '
actn_pad (4.1) = 'FILTER '
actn_pad (5.1) = 'OPGEHOUDEN met '
actn_pad (1.2) = 'GEGEVENSBESTAND '
actn_pad (2.2) = 'REGISTREERT '
actn_pad (3.2) = 'het SCHERM '
actn_pad (4.2) = 'FILTER '
actn_pad (5.2) = „OPGEHOUDEN met „data_bar

* (1) = iif (no_zooms = zoom_no,“ \ -“, „Gezoem“) data_bar
(1) = 'data_bar Lijst '
(2) = 'data_bar Aantekening '
(3) = 'data_bar Gezoem '
(4) = 'Opgehouden met 'recd_bar
(1) = 'Retrieve'< recd_bar br/> (2) = 'Daarna 'recd_bar
(3) = 'Previous'< recd_bar br/> (4) = 'begint 'recd_bar met
(5) = 'recd_bar Eind '
(6) = 'recd_bar Skip '
(7) = 'scrn_bar Memorandum '
(1) = 'Volgende scrn_bar Page'
(2) = 'Prev Page'< filt_bar br/> (1) = 'plaatste Filter'< filt_bar br/> (2) = 'annuleert Filter'< quit_bar br/> (1) = 'Opgehouden met '

menubar actn_pad, 5
data_bar menu 1, 4
menu 2, recd_bar, 7
scrn_bar menu 3, 2
filt_bar menu 4, 2
quit_bar menu 5, 1
@ 24.0 zeggen ruimte (80)
gelezen menubar aan sele_row, sele_col save
clear
do case
geval sele_row = 1
opt_sel = data_bar (sele_col)/> geval
opt_sel = recd_bar (sele_col)/> geval
opt_sel = scrn_bar (sele_col)/> geval
opt_sel = filt_bar (sele_col)
otherwise
opt_sel = 'Quit'< br/> endcase
als opt_sel <> 'Quit'< br/> @ 0.1 zeggen bovenleer (versiering (opt_sel)) de kleur w+/n
endif
activeert lager venster usr_wndw&page_num
return (versiering (opt_sel))
*L
function getselr
op zeer belangrijk etiket F7 genhlp met sys (18)
do maintmnu3
return

************************** ********** ********** ********** ********** ******
* *
* voor CRITTERS het standaardonderhoudsmenu met wordt vervangen:        *
* *
* MAINTMNU.prg *
* *
= dismsg („fout Crit # 1 - geactiveerde niet Code. (getselr)“)
************************** ********** ********** ********** ********** ******

activeert screen
vastgesteld bericht aan 0
afmetings actn_pad (7.2)/> dimensie
dimensie
dimensie
dimensie
dimensie
dimensie
dimensie

* stootkussen in elke popup
actn_pad (1.1) = 'DRUK '
actn_pad (2.1) = 'GEGEVENSBESTAND '
actn_pad (3,1) = 'VERSLAG '
actn_pad (4.1) = 'VERSLAGEN '
actn_pad (5.1) = 'WERKINGSGEBIED '
actn_pad (6.1) = 'FILTER '
actn_pad (7.1) = 'OPGEHOUDEN met '

actn_pad (1.2) = 'DRUK '
actn_pad (2.2) = 'GEGEVENSBESTAND '
actn_pad (3.2) = 'VERSLAG '
actn_pad (4.2) = 'VERSLAGEN '
actn_pad (5.2) = 'WERKINGSGEBIED '
actn_pad (6.2) = 'FILTER '
actn_pad (7.2) = 'OPGEHOUDEN met '

  prnt_bar (1) = 'aan Printer '
prnt_bar (2) = 'aan Dossier '
prnt_bar (3) = 'aan het prnt_bar Scherm '
* (4) = 'prnt_bar br van de Druk Report'* (5) = 'prnt_bar Status '
* (6) = 'hield op 'data_bar met

(1) = 'data_bar Lijst '
(2) = 'data_bar Aantekening '
(3) = 'Status'< recd_bar br/>
(1) = 'daarna 'recd_bar
(2) = 'Previous'< recs_bar br/>
(1) = 'Begin 'recs_bar met
(2) = 'recs_bar Eind '
(3) = 'Skip '

scop_bar (1) = 'van scop_bar Verslag '
(2) = 'om 'scop_bar
te registreren (3) = 'annuleren filt_bar Werkingsgebied '

(1) = 'plaatsen filt_bar Filter '
(2) = 'annuleren quit_bar Filter '

(1) = 'Opgehouden met '

menubar actn_pad, 7
prnt_bar menu 1, 3
data_bar menu 2, 3
recd_bar menu 3, 2
  recs_bar menu 4, 3
scop_bar menu 5, 3
filt_bar menu 6, 2
quit_bar menu 7, 1
las menubar aan sele_row, sele_col save
clear
do case
geval sele_row = 1
opt_sel = prnt_bar (sele_col)/> geval
opt_sel = data_bar (sele_col)/> geval
opt_sel = recd_bar (sele_col)/> geval
opt_sel = recs_bar (sele_col)/> geval
opt_sel = scop_bar (sele_col)/> geval
opt_sel = filt_bar (sele_col)
    otherwise
opt_sel = 'Quit'< br/> endcase
als opt_sel <> 'Quit'< br/> @ 0.1 bovenleer zegt (versiering (opt_sel)) de kleur w+/n
endif
activeert lager venster usr_wndw
return (versiering (opt_sel))init_rpt

do case
geval
*L
function outp_dev = „laser“ .or outp_dev = 'dot'< br/> als outp_dev = 'br dot' vastgestelde druk aan LPT1
endif

als outp_dev = 'laser'< br/> als juiste (sys (16.3), 12) <> „P_LABELS.FXP“ && Beweging aan 95. Verander dit wanneer possible.
als akl_system $ 'Y'< br/> vastgestelde druk aan/> else
vastgestelde druk LPT1
endif
endif
endif

als juist (sys (16.3), 12) = 'P_LABELS.FXP'< br/>* als de groep = 1 .or groep = .or groep 2 = 3 becommentari�ërde omdat there
* niet meer Printer van de Punt is.  het 9:57 van 4/11/2000 p.m. (akl)

* (akl - het 4:31 p.m. van 12/31/98)
* ik verwijder dit als verklaring. Ik weet werkelijk niet waarom ik het in.
* zette ik me tegensprak. Zie vorig ALS verklaring, enkel onder „laser“.
* na oud, verwijdert dit ALS en EIND statements.
* als juiste (sys (16.3), 12) <> „P_LABELS.FXP“ && Beweging aan 95. Verander dit wanneer possible.

als akl_system $ 'Y'< br/> vastgestelde druk aan/> else
vastgestelde druk LPT1
endif
* endif

* endif
endif

als juist (sys (16.3), 11) = „P_CONTR.FXP“ .or. ; /> recht
het recht
als akl_system $ 'Y'< br/> de vastgestelde druk aan/> else
vastgestelde druk LPT1
endif
endif

doet terwijl sys (13) = „OFFLINE'< br/> @ 0.0“ gelieve te zeggen plaatste printer online… „/> read
s_readkey

als s_readkey = .or s_readkey 268 = Vlucht 12 && pressed
vastgesteld apparaat aan screen
vastgestelde console on
de vastgestelde druk off
return
endif
enddo

@ 0,0
@ 0.0“ Druk - Tegen te houden ESC zegt '/> vastgesteld apparaat
als outp_dev = 'laser'< br/> * zich aan 95 beweegt. Verander dit wanneer mogelijk. < - Waarom? 11/14/01
als juiste (sys (16.3), 12) <> „P_LABELS.FXP“ .and. ;
de juiste (sys (16.5), 10) <> 'P_BIDS.FXP'< br/> vastgestelde console off
vastgestelde druk on
* @ 0.0 zegt chr (27) + " E“ && printer
? initialiseert? chr (27) + van de de druk off
vastgestelde console on
het vastgestelde geval/>
endif
endif
outp_dev = „file'< br/> @ 0,0
@ 0.0 zegt“ Druk - ESC om '/> vastgestelde printer
vastgesteld apparaat aan dossier &rep_file
geval tegen te houden/>
@ 0,0
@ 0.0“ Druk - ESC om „/> vastgestelde printer
vastgesteld apparaat aan dossier gentemp.gtx
tegen te houden ********** akl: De lijnen aan eindeTOF karakter het gaan into
worden toegevoegd werpen &&- dossier als eerste karakter dat uit.  van de het 1:18am
het vastgestelde printer to
aan screen

vastgestelde printer aan dossiergentemp.gtx
vastgesteld apparaat aan dossiergentemp.gtx
**********/> page_no
endcase

line_no = top_margin
vastgestelde lnk_var console off

= ''
gaat first_rec

als .not leeg (filter ())
filter_str = filtreert ()
als .not &filter_str
skip
endif
endif
brk_no/>
brk_num = „1 ' gedaane
= &done_cond
at_top = privé .t.
return ''
*L
function maintmnu
* VARIABLES
privé choice
allen als prompt*
keus = 0
prompt1 =“ toevoegt „
prompt2 =
prompt3 =“ Exemplaar „
prompt4 =“ Del „
prompt5 =“ Eind „
prompt6 =“ Filt „
prompt7 =“ Lijst „
prompt8 =“ Modi „
prompt9 =“ daarna“ bedelt „ „
prompt10 =“ Prev „
prompt11 =“ Opgehouden met „
prompt12 =“ root „
prompt13 =“ Skip „
prompt14 =“ Aantekening „
prompt15 =“ Gezoem „

* WINDOWS
bepaalt venster MAINTMNU van 22.0 tot 24.79;
de titel“ Onderhoud beveelt Menu“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
* becommentari�ërde voor VFP
ALS. F.
activeren venster MAINTMNU noshow
* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, zegt 1 'toevoeg de Lijst Modi bedel van het Exemplaar Del End Filt Volgende Opgehouden met Prev Skip br van de Aantekening Zoom' ENDIF
* commentaar gaf voor de SLEUTEL van de FUNCTIE van VFP
*L
* ASSIGNMENT
op zeer belangrijk etiket F7 genhlp met het geval van HELP

do case
prog_name = „KALENDER "
op zeer belangrijk etiket F2 mntmnuf met 2
op zeer belangrijk etiket F10 mntmnuf met 10

otherwise
op zeer belangrijk etiket F2 mntmnuf met 2
op zeer belangrijk etiket F8 mntmnuf met root 8
op zeer belangrijk etiket F9 mntmnuf met 9
op zeer belangrijk etiket F10 mntmnuf met 10
op zeer belangrijk etiket F11 mntmnuf met 11

endcase

* Toegevoegd voor VFP
/> s_choice doen DispMenu
keus = mChoice

* becommentari�ërde voor VFP
ALS. F.
activeren venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0, 5-1 snelle prompt2
@ 0,/> menu 9-1 becommentari�ërde snel prompt3
@ 0.14-1 snel prompt4
@ 0.18-1 snel prompt5
@ 0.22-1 snel prompt6
@ 0.27-1 snel prompt7
@ 0.32-1 snel prompt8
@ 0.37-1 snel prompt9
@ 0.42-1 snel prompt10
@ 0.47-1 snel prompt11
@ 0.52-1 snel prompt12
@ 0.56-1 snel prompt13
@ 0.61-1 snel prompt14
@ 0.67-1 snel prompt15
ENDIF
* voor VFP

do case
gevalkeus = 0
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 1
de optie = 'br add' gevalkeus = 2
optie = 'begin'< br/> gevalkeus = 3
optie = 'copy'< br/> gevalkeus = 4
optie = 'delete'< br/> gevalkeus = 5
optie = 'br end' gevalkeus = 6
bepaalt venster fil_wndw van 1.50 tot 6.77 het dubbele kleurenschema 12
venster fil_wndw
kopbal = 'Filter'< br/> @ 1.00 activeert zegt de ruimte (13-len (kopbal) /2) + header
@ 3.04 ''< br /> @ 3.05 snel 'br Set' @ 3.16 snel 'Cancel'
menu aan fil_opt

als zegt fil_opt = 1
de optie = 'plaatste filter'< br/> endif

als fil_opt = 2
de optie = 'filter'< br/> endif

het gevalkeus van het versievenster fil_wndw

= 7
optie = 'list'< br/> gevalkeus = 8
optie = 'modify'< br/> gevalkeus = 9
optie = 'next'< br/> gevalkeus =/> optie 10
gevalkeus = 11
de optie van MAINTMNU
= 'quit'< br/> gevalkeus =/> optie 12
gevalkeus =/> optie 13
gevalkeus = 14
annuleert        de optie = „tally'< br/> gevalkeus =/> optie 15
endcase

desactiveert venster MAINTMNU
return option

* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

function mntmnuf
parameter KeyF_no

do case
geval KeyF_no = 2
KeyF2 =. Het geval KeyF_no van T.

= 5
KeyF5 =. Het geval KeyF_no van T.

= 8
KeyF8 =. Het geval KeyF_no van T.

= 9
KeyF9 =. Het geval KeyF_no van T.

= 10
KeyF10 =. Het geval KeyF_no van T.

= 11
KeyF11 =. T.

endcase

s_FkeyRec = recno ()
s_prgname = prog_name
privé toetsenbord chr (113) plain

return
*L
function maintmnu2
* VARIABLES
privé choice
allen als prompt*
keus = 0
prompt1 =“ Modi „
prompt2 =“ houden op „met
prompt3 =“ Del „
prompt4 =“ Filt „

* als ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
* ((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))
prompt5 =“ Primaire „
prompt6 =“ Secundaire „
* endif

* WINDOWS
bepaalt venster MAINTMNU van 22.0 tot 24.79;
de titel“ Onderhoud beveelt Menu (Gezoem)“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
OP ZEER BELANGRIJK ETIKET Alt+F12 SUSPEND
activeert venster MAINTMNU noshow
* 1 2 3 4 5 6
@ 0, zegt 1 'Modi Quit Del Filt Primary Secondary'< br/>
als ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))
* 1 2 3
* 123456789012345678901234567890123456
@ 0, 1 zegt 'Modi Quit Del Filt Primary Secondary'< br/> * Herinnering:   1 2 3 4 5 6
endif
*L
op zeer belangrijk etiket F2 doet mntmnuf22
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP

als ((juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“))                 op zeer belangrijk etiket PgDn do DispSecn
op zeer belangrijk etiket PgUp do DispPrim
endif

activeer venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0, 6-1 snelle prompt2
@ 0.11-1 snelle prompt3
@ 0.15-1 snelle prompt4

als (juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ; /> recht
menu
@ 0.20-1 bepaalt het snelle prompt5
@ 0.28-1 snelle prompt6
endif


do case
geval = 0
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 1
optie = 'modify'< br/> gevalkeus = 2
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 3
optie = 'delete'< br/> gevalkeus = 4
venster fil_wndw van 1.50 tot 6.77 het dubbele kleurenschema 12
venster fil_wndw
kopbal = 'Filter'< br/> @ 1.00 activeert zegt de ruimte (13-len (kopbal) /2) + header
@ 3.04 'zegt'< br /> @ 3.05 snelle 'br Set' @ 3.16 snel 'Cancel'
menu aan fil_opt

als fil_opt = 1
de optie = 'filter'< br/> endif

plaatste als fil_opt = 2
de optie = 'filter'< br/> endif

het gevalkeus van het versievenster fil_wndw
= 5
optie = „primary'< br/> doet het gevalkeus van DispPrim

= 6
optie = „secondary'< br/> doet DispSecn
endcase

annuleert desactiveert venster MAINTMNU

als (juist (sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITDOGS.DBF“) .or. ;
((sys (16.2), 12) = .and juist „CRITTERS.FXP“ (dbf (), 12) = „CRITCATS.DBF“)
op zeer belangrijk etiket PgDn
op zeer belangrijk etiket PgUp
endif

return option

* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

function mntmnuf22

KeyF2 =. T.
s_prgname = prog_name
privé toetsenbord chr (113) plain

return
*L
function maintmnu3
* VARIABLES
privé choice
allen als prompt*
keus = 4
prompt1 =“ bedelen „
prompt2 =“ Eind „
prompt3 =“ Filt „
Prompt4 =“ gaan „
prompt5 =“ Lijst „
prompt6 =“ daarna „
prompt7 =“ Prev „
prompt8 =“ Opgehouden met „
prompt9 =“ roten „
prompt10 =“ Skip „
prompt11 =“ Aantekening „
prompt12 =“ < „
prompt13 =“ > „

* WINDOWS
bepaalt venster MAINTMNU van 22.0 tot 24.79;
de titel“ Rapport beveelt Menu“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
activeert venster MAINTMNU noshow
* 1 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, zegt 1 'Eind Filt gaan Lijst bedel Volgende Opgehouden met Prev Skip Aantekening < > '
*L
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP

activeert venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0, 5-1 snelle prompt2
@ 0, 9-1 snelle prompt3
@ 0.14-1 snelle prompt4
@ 0.17-1 snelle prompt5
@ 0.22-1 snelle prompt6
@ 0.27-1 snelle prompt7
@ 0.32-1 snelle prompt8
@ root 0.37-1 bepaalt het snelle/> menu prompt9
@ 0.41-1 snelle prompt10
@ 0.46-1 snelle prompt11
@ 0.52-1 snelle prompt12
@ 0.54-1 snelle prompt13

do case
geval = 0
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 1
optie = 'begin'< br/> gevalkeus = 2
optie = 'br end' gevalkeus = 3
venster fil_wndw van 1.50 tot 6.77 het dubbele kleurenschema 12
venster fil_wndw
kopbal = 'Filter'< br/> @ 1.00 activeert zegt de ruimte (13-len (kopbal) /2) + header
@ 3.04 ' '< br/> @ 3.05 zegt snel 'br Set' @ 3.16 snel 'Cancel'
menu aan fil_opt

als fil_opt = 1
de optie = 'filter'< br/> endif

plaatste als fil_opt = 2
de optie = 'filter'< br/> endif

het gevalkeus van het versievenster fil_wndw

= 4
als juist annuleert (sys (16.3), 11) = 'br P_CONTR.FXP' optie = 'aan printer'
else
* do out_dev && 11/27/93
endif

gevalkeus = 5
optie = 'list'< br/> gevalkeus = 6
optie = 'next'< br/> gevalkeus = 7
optie = 'previous'
de gevalkeus = 8
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 9
optie = 'retrieve'< br/> gevalkeus =/> optie 10
gevalkeus =/> optie 11
gevalkeus =/> optie 12
gevalkeus =/> optie 13
endcase

desactiveert venster MAINTMNU
return option
*L
function maintmnu4
* 10/19 - Toegevoegde „menu4“ om „Go“ (druk) van een maintnenace window.
* dit werkt het zelfde als het Menu van de Druk bevel „gaat“. Privé

* VARIABLES
privé choice
allen als prompt*
keus = 0
prompt1 =“ voegt toe „
prompt2 =
prompt3 =“ Exemplaar „
prompt4 =“ Del „
prompt5 =“ Eind „
prompt6 =“ Filt „
prompt7 =“ gaat „
prompt8 =“ Lijst „
prompt9 =“ Modi „
prompt10 =“ daarna „
prompt11 =“ Prev „
prompt12 =“ Opgehouden met „
prompt13 =“ root „
* Nieuwe Uitgezochte Command
als juist“ bedelt „(sys (16,2), bepalen 12) = .or recht „CRITTERS.FXP“ (sys (16.3), 8) = „USDA.FXP'< br/> prompt14 =“ Sele „
else
prompt14 =“ Skip „
endif
prompt15 =“ Aantekening „
prompt16 =“ Gezoem „

* WINDOWS
venster MAINTMNU van 95.0 tot 105.190;
de titel“ Onderhoud beveelt Menu“;
dubbel kleurenschema 2 van de vlotterschaduw;
de DOOPVONT de „Vette letters van Arial“, 19

* SCREEN
OP ZEER BELANGRIJK ETIKET Alt+F12 SUSPEND
activeert venster MAINTMNU

* becommentari�ërde voor VFP
ALS. F.
als juist (sys (16.2), 12) = 'CRITTERS.FXP'< br/>* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, 1 zegt 'toevoeg Exemplaar Del End Filt gaan Lijst Modi Volgende Opgehouden met Prev bedel roten br/> else
@ 0 van de Aantekening Sele Zoom'<, zegt 1 'toevoeg Exemplaar Del End Filt gaan Lijst Modi bedel Volgende Opgehouden met Prev Skip br van de Aantekening Zoom' ENDIF
ENDIF
* becommentari�ërde voor VFP
*L
root als .not het recht (sys (16.3), 11) = „ANIMALS.FXP "
op zeer belangrijk etiket F1 mntmnuf4 met 1
doet  endif
als .not het recht (sys (16.3), 8) = „BIDS.FXP "
op zeer belangrijk etiket F2 mntmnuf4 met 2
endif
doet als .not het recht (sys (16.3), 12) = „CALENDAR.FXP "
op zeer belangrijke etiketF3 mntmnuf4 met 3
endif
doet als .not het recht (sys (16.3), 12) = „CONTRACT.FXP "
op zeer belangrijk etiket F4 mntmnuf4 met 4
endif
doet als .not het recht (sys (16.3), 12) = „CRITTERS.FXP "
op zeer belangrijk etiket F5 mntmnuf4 met 5
endif
als .not doethet recht (sys (16.3), 11) = „INVOICE.FXP "
op zeer belangrijk etiket F6 doet mntmnuf4 met 6
endif
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP
op zeer belangrijk etiket F8 doet mntmnuf4 met 8
als .not het recht (sys (16.3), 10) = „PRICES.FXP "
op zeer belangrijk etiket F9 mntmnuf4 met 9
endif
op zeer belangrijk etiket F10 doet mntmnuf4 met 10
op zeer belangrijk etiket F11 doet mntmnuf4 met 11

activeert venster MAINTMNU

doet/> s_choice DispMenu
keus = mChoice

* becommentari�ërde voor VFP
ALS doet . F.
@ 0, 1-1 snelle prompt1
@ 0, 5-1 snelle prompt2
@ 0,/> menu 9-1 snel prompt3
@ 0.14-1 snel prompt4
@ 0.18-1 snel prompt5
@ 0.22-1 snel prompt6
@ 0.27-1 snel prompt7
@ 0.30-1 snel prompt8
@ 0.35-1 snel prompt9
@ 0.40-1 snel prompt10
@ 0.45-1 snel prompt11
@ 0.50-1 snel prompt12
@ 0.55-1 snel prompt13
@ 0.59-1 snel prompt14
@ 0.64-1 snel prompt15
@ 0.70-1 snel prompt16
ENDIF
* becommentari�ërden voor VFP

do case
gevalkeus = 0
de optie van MAINTMNU
= 'quit'< br/> gevalkeus = 1
de optie = 'br add' gevalkeus = 2
optie = 'begin'< br/> gevalkeus = 3
optie = 'copy'< br/> gevalkeus = 4
optie = 'delete'< br/> gevalkeus = 5
optie = 'br end' gevalkeus = 6
bepaalt venster fil_wndw van 1.50 tot 6.77 het dubbele kleurenschema 12
venster fil_wndw
kopbal = 'Filter'< br/> @ 1.00 activeert zegt de ruimte (13-len (kopbal) /2) + header
@ 3.04 ''< br /> @ 3.05 snel 'br Set' @ 3.16 snel 'Cancel'
menu aan fil_opt

zegt        als fil_opt = 1
de optie = 'filter'< br/> endif

plaatste als fil_opt = 2
de optie = 'filter'< br/> endif

het gevalkeus van het versievenster fil_wndw

= 7
optie = 'br go' gevalkeus = 8
optie = 'list'< br/> gevalkeus = 9
optie = 'modify'< br/> gevalkeus =/> optie 10
gevalkeus =/> optie 11
gevalkeus = 12
de optie van MAINTMNU
= 'quit'< br/> gevalkeus =/> optie 13
gevalkeus = 14
die de optie = 'skip'< br/> gevalkeus =/> optie 15
gevalkeus =/> optie 16
endcase

deac de wind van de windMAINTMNU

rele/> deac MAINTMNU4
rele windt/> rele memorandum MAINTMNU4

return option
*L
* voor/> OPENBARE mCHOICE VFP
procedure DispMenu OPSLAG 0 AAN mCHOICE wordt toegevoegd, mGET
OPSLAG "" AAN cCHOICE, cCHOICES
* nCOL = RONDE (WCOLS () /2.0) - 19

* voegen toe Exemplaar Del End Filt gaan Lijst Modi bedel Volgende Opgehouden met Prev Skip br van de Aantekening Zoom'
root  nPad = 3
nROW = 0
* 1
nCOL = 0
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
KRIJGT MET nROW, nCOL, „\ nCOL = nCol + 3 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL, „\ * 5
nCOL = nCol + 3 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
MET nROW, nCOL, „\ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 2 + nPad
KRIJGT MET nROW, nCOL, „\ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL,“ \ * 10
nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL, „\ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL, „\ nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
KRIJGT MET nROW, nCOL, „\ * 15
nCOL = nCol + 4 + nPad
KRIJGT MET nROW, nCOL,“ \ nCOL = nCol + 5 + nPad
KRIJGT MET nROW, nCOL, „\
* voegt toe Exemplaar Del End Filt gaan Lijst Volgende Modi bedel Opgehouden met Prev root Skip br van de Aantekening Zoom'
cCHOICES = cCHOICES + „12Q "
cCHOICE = fnCHOICE (cCHOICES, „Q“)

FUNCTION fnCUROBJ
PARAMETERS mCHOICE
mCHOICE = _CUROBJ
RETURN. T.

PROCEDURE GET
PARAMETERS nROW, nCOL, cFUNC, bSKIP
nSIZE2 = LEN (STRTRAN (cFUNC,“ \ < ")) + 2

@ nROW, nCOL KRIJGT mGET FUNCTIE „* „+IIF (bSKIP,“ \ \ „, "") +cFUNC; /> GELDIGE fnCUROBJ

* @ nROW, nCOL KRIJGT mGET FUNCTIE „* „+IIF (bSKIP,“ \ \ „, "") +cFUNC;
GELDIG fnCUROBJ (@mCHOICE)
* GEBREK 1 GROOTTE 1, nSIZE2 GELDIGE fnCUROBJ (@mCHOICE)/>* Nota RETURN

FUNCTION fnCHOICE
PARAMETERS niet cCHOICES, cDEF
het GELEZEN die VOORWERP van de CYCLUS mCHOICE
mCHOICE = (LASTKEY () =27, BIJ (cDEF, cCHOICES), mCHOICE)
RETURN IIF (mCHOICE > 0, SUBSTR (cCHOICES, mCHOICE, 1), "")

* Eind IIF - voor VFP

* wordt toegevoegd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

function mntmnuf4
parameter KeyF_no

* suspend

  case
geval KeyF_no = 1
KeyF1 =. Het geval KeyF_no van T.

= 2
KeyF2 =. Het geval KeyF_no van T.

= 3
KeyF3 =. Het geval KeyF_no van T.

= 4
KeyF4 =. Het geval KeyF_no van T.

= 5
KeyF5 =. Het geval KeyF_no van T.

= 6
KeyF6 =. Het geval KeyF_no van T.

= 8
KeyF8 =. Het geval KeyF_no van T.

= 9
KeyF9 =. Het geval KeyF_no van T.

= 10
KeyF10 =. Het geval KeyF_no van T.

= 11
KeyF11 =. T.

endcase

s_FkeyRec = recno ()
s_prgname = prog_name

als prog_name = „BETAALBAAR“ en alias () = „PAYDETL "
s_FkeyPag = 2
uitgezochte payable
s_FkyMRec privé privé choice
toetsenbord
endif


return
*L
function maintmnu5
* VARIABLES
/> allen als prompt*
keus = 0
prompt1 = met
prompt2 =“ Modi „

* WINDOWS
“ ophield „bepalen venster MAINTMNU van 22.0 tot 24.79;
de titel“ Onderhoud beveelt Menu“;
het dubbele kleurenschema van de vlotterschaduw 2

* SCREEN
OP ZEER BELANGRIJK ETIKET Alt+F12 SUSPEND
activeert venster MAINTMNU noshow
* 1 2
@ 0, zegt 1 'Opgehouden met Modi'< br/>*L
op zeer belangrijk etiket F7 genhlp met programma () && GEBRUIKER HELP

venster MAINTMNU
@ 0, 1-1 snelle prompt1
@ 0,/> menu 6-1 snel prompt2

do case
geval = 0
de optie van MAINTMNU
= 'quit'< br/>
gevalkeus = 1
de optie van MAINTMNU
= 'quit'< br/>
gevalkeus = 2
optie = 'modify'< br activeert />
endcase

desactiveren venster MAINTMNU

return option
*L
function out_dev
bepalen venster fil_wndw van 1.40 tot 6.77 het dubbele kleurenschema 12
venster fil_wndw
kopbal = 'Print'< br/> @ 1.00 activeert zegt de ruimte (19-len (kopbal) /2) + header
@ 3.04 ' '< br/> @ 3.05 snelle 'Screen'
@ 3.16 snelle 'Laser'
@ 3.26 snel 'File'

menu aan fil_opt

als fil_opt = 1
optie = 'aan screen'
endif

als fil_opt = 2
optie = 'aan laser'
endif

als fil_opt = zegt 3
de optie = 'aan file'
endif

versievenster fil_wndw
return ''
*L
function restenv
voor i=1 aan no_pages
i_str = streptokok (I, 1)

als het venster van de wexist ('usr_wndw'+ i_str)/> versie
endif
endfor

als het venster maintmnu
endif

acti van de wexist („maintmnu“)/> versie
@ 0.62 zegt ruimte (7)
@ 0.70 ruimte (9)

zegt venster all
het dichte venster van de databases
return restenvr
versie ''
*L
function usr_wndw
toont toont venster all
dichte databases
return ''
*L
function save_rec

********** akl: Eerst, controleer de spelling van het verslag 3/19/96 1:55 am
als prog_name = .or prog_name = „CONTRACT“ .or „BIEDT“. ;
prog_name = „REKENING“ .or prog_name = „SUBRENT“ .or. ;
prog_name = „BRENGT“ .or in kaart prog_name = „HELTHCRT "
doet SpellChk met „Rec“ &&- Verslag (Rec) of Gebied (Fld)

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

endif
**********

als („sparen Verslag“)
bevestig blank
toevoegt als juist (sys (16.3), 12) = „CONTRACT.FXP "
sele 2
blank
sele 3
voeg blank
sele 1
endif
toe = rlock ()
********** akl: DHR - het 12:37 van het Gebied USDA.NAME 7/23/96 am
als prog_name = „DHR "
USDA = usda.usda
endif
**********
memvar memo
verzamelt als juist (sys (16.3), 12) = „CONTRACT.FXP "
sele 2
zich verzamelt memvar
sele 3
memvar
sele 1
endif
unlock
* verzamelt stelt filter
terug als .not leeg (filter ())
* controleert als het verslag filter
record_no = recno ()
skip
skip -1
als aanpast recno () <> record_no && Geen match
= _begin ()
als &at_eof && filter
vastgestelde filter to
gaat record_no
endif
endif
endif
terugkeer .t.
endif
return .f.
*L
procedure sav_wind && met betrekking tot F10 door gen_hlp
parameter w_name
verwijdert brow met wlrow vervangt (w_name), bcol met wlcol (w_name);
erow met wlrow (w_name) + wrows (w_name) + 1; /> ecol
toetsenbord chr (23) && CTRL-W om venster met save
return
*L
function set_bndry
weg te gaan * plaatste boundaries
skip -1
als bof ()
top_mark = 0
else
top_mark = recno ()/> skip
endif
skip 1
als eof ()
bot_mark = -1
else
bot_mark = recno ()
endif
skip -1
return ''
*L
function stp_prnt
op escape
zoom_no = 1
zoom_num = '1 '/> brk_no
brk_num = '1 '
uitgezochte 1
done_cond = '&ndx_exp>last_val.or.eof () '
return aan _print
*L
parameters/>function n_vald_fld, ref_fld, vald_alias, getpos, fld_size


vald_fld = &n_vald_fld

if .f.
vastgestelde mening off
screen
clear
voor I = 1 aan 25
?
   next

   ?
? „Parameters: „
? „n_vald_fld > " +n_vald_fld+ " < "
? „vald_fld > " +vald_fld+ " < "
? „ref_fld = „+ref_fld
? „vald_alias = „+vald_alias
? „getpos = „
?? getpos
? „fld_size = „
?? fld_size
privé at_eof/>endif
reeks deelt off

is_valid mee = .f.
at_eof = 'eof () '
at_bof = 'bof () '/> save_alias

empty_field =. Uitgezocht &vald_alias

do case
gevaltype van F.

(„vald_fld“) = 'D'< br/> srch_str = streptokok (jaar (m->vald_fld), 4) + streptokok (maand (vald_fld), 2) +str (dag (vald_fld), 2)

gevaltype („vald_fld“) = 'N'< br/> srch_str = streptokok (vald_fld, fld_size)
als vald_fld = 0
empty_field =. T.
endif

otherwise
srch_str = vald_fld
als len (versiering (vald_fld)) = 0
empty_field =. T.
endif
endcase

als het type („vald_fld“) = 'N'< br/> voor &ref_fld = val (srch_str)
else
de plaats bepaalt van streven srch_str

if .f.
?
? „Zoekend > " +srch_str+ " < "
indien gevonden ()
? „Gevonden "
else
? „Gevonden niet "
endif
endif

endif

if .f.
?
? „eof () = „
?? eof ()
endif

als .not eof () && found
is_valid = .t.
else
als empty_field
als juist (sys (16.3), 12) = „CRITTERS.FXP "
is_valid = .f.
else
is_valid = .t.
endif
else
vastgestelde dichtbijgelegen on
srch_str
geplaatst dichtbij off
leftpos = iif (getpos > 40.4.43)

streeft venster brws_wndw van 6, leftpos aan 15, leftpos+30;
de vlotter van het systeemgezoem kweekt dicht schaduwkleurenschema 10

op zeer belangrijk etiket INGAAT toetsenbord chr (23)

activeert venster brws_wndw noshow
doorbladert laatste noappend nomodify nodelete acti van de het venster brws_wndw

if .f.
vastgestelde mening van de venster brws_wndw
versie off
screen
clear
voor I = 1 aan 25
?
   next

   ? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "
endif

do case
gevaltype („ref_fld“) = 'C'< br/>if .f.
?
? Het „gebied is KARAKTER "
? „type (ref_fld) = > " +type (ref_fld) + " < "
? „ref_fld = > " +ref_fld+ " < "
? „&ref_fld = > " +&ref_fld+ " < "

op zeer belangrijk het toetsenbord &ref_fld

do case
geval van etiketENTER
* suspend
endif

* n_vald_fld = „m->name "/> naam
tonen gets
is_valid =/> geval .t.
anml_name "
anml_name = &ref_fld
toont gets
is_valid =/> geval .t.
crit_name "
crit_name = &ref_fld
toont gets
is_valid =/> geval .t.
job_no "
job_no = &ref_fld
toont gets
is_valid =/> geval .t.
map_no "
map_no = &ref_fld
gets
is_valid toont = .t.
endcase

gevaltype (ref_fld) = 'br D'< het type/> van toetsenbord dtoc (&ref_fld)/> geval

toetsenbord ltrim (streptokok (&ref_fld))
endcase

op zeer belangrijk etiket GAAT && in opnieuw toewijst originele value
endif
endif

if .f.
?
? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "
? „is_valid= "
?? is_valid
de uitgezochte &save_alias
reeks/>endif

parameters/>
return is_valid
*L
function vald_fld, ref_fld, vald_alias, getpos, fld_size

set mening off
acti screen
clear
for i = 1 aan 25
mee?
next

?
? „Parameters: „
? „vald_fld > " +vald_fld+ " < "
? „ref_fld = „+ref_fld
? „vald_alias = „+vald_alias
? „getpos = „
?? getpos
? „= „
? fld_size? fld_size
privé at_eof/> reeks deelt off

is_valid mee = .f.
at_eof = 'eof () '
at_bof = 'bof () '/> save_alias

empty_field =. Uitgezocht &vald_alias

do case
gevaltype van F.

(„vald_fld“) = 'D'< br/> srch_str = streptokok (jaar (m->vald_fld), 4) + streptokok (maand (vald_fld), 2) +str (dag (vald_fld), 2)

gevaltype („vald_fld“) = 'N'< br/> srch_str = streptokok (vald_fld, fld_size)
als vald_fld = 0
empty_field =. T.
endif

otherwise
srch_str = vald_fld
als len (versiering (vald_fld)) = 0
empty_field =. T.
endif
endcase

als het type („vald_fld“) = 'N'< br/> voor &ref_fld = val (srch_str)
else
de plaats bepaalt van streven srch_str

?
? „Zoekend > " +srch_str+ " < "
if vonden ()
? „Gevonden "
else
? „Gevonden niet "
endif

endif

?
? „eof () = „
?? eof ()

als .not eof () && found
is_valid = .t.
else
als empty_field
als juist (sys (16.3), 12) = „CRITTERS.FXP "
is_valid = .f.
else
is_valid = .t.
endif
else
vastgestelde dichtbijgelegen on
srch_str
geplaatst dichtbij off
leftpos = iif (getpos > 40.4.43)

streeft venster brws_wndw van 6, leftpos aan 15, leftpos+30;
de vlotter van het systeemgezoem kweekt dicht schaduwkleurenschema 10

op zeer belangrijk etiket INGAAT toetsenbord chr (23)

activeert venster brws_wndw noshow
doorbladert laatste noappend nomodify nodelete acti van de het venster brws_wndw
vastgestelde mening/>
*if .f.
versie off
screen
clear
voor I = 1 aan 25
?
   next

   ? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "

?
als chrsaw ()
? De „buffer van het toetsenbord is Geen lege "
else
? De „buffer van het toetsenbord is leeg "
endif

*endif

do case
gevaltype (ref_fld) = 'C'< br/>?
? Het „gebied is KARAKTER "
? „type (ref_fld) = > " +type (ref_fld) + " < "
? „ref_fld = > " +ref_fld+ " < "
? „&ref_fld = > " +&ref_fld+ " < "

het type van toetsenbord &ref_fld/> geval && plain

van toetsenbord dtoc (&ref_fld)/> geval

toetsenbord ltrim (streptokok (&ref_fld))
endcase

*is_valid = .t.

op zeer belangrijk etiket GAAT && in opnieuw toewijst originele value
endif
endif

if .f.
?
als chrsaw ()
? De „buffer van het toetsenbord is NIET leeg. „
? De“ buffer bevat: > "
?? 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
? De „buffer van het toetsenbord is lege "
endif
endif

?
? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "
? „is_valid= "
?? is_valid
* suspend
de uitgezochte &save_alias
reeks/>*endif

parameters/>
return is_valid
*L
function getcond, fld_usg

* links werd de Pijl Check
* Deze functie gecre�ërd omdat Donna de LinkerPijl Key
wilde raken * en de curseur hebben naar het laatste gebied van het vorige scherm gaan. Bij this
* is het opstelling voor Contracten. het 10:19 van 10/05/99 am

als juist (sys (16.2), 12) = „CONTRACT.FXP "
als page_no = 1
als LArrow =. T.
LArrow =. F.
NewOnum = 28
_curobj = NewOnum
endif
endif
endif

akl=.F.

als juist (sys (16.2), 11) = .and juist „INVOICE.FXP“ (sys (16.7), 12) = „FS_SPELL.FXP "
akl=.T.
venster spell_win
endif
zoom_num/>
return &getcond
*L
function = streptokok (zoom_no, 1)
at_bof = at_bof&zoom_num
at_eof = at_eof&zoom_num
ndx_var = ndx_var&zoom_num
first_page = val activeert (substr (page_seq&zoom_num, 1.1))/> last_page
um, len (page_seq&zoom_num), 1))

* als een nieuwe pagina, nieuwe screen
toont als first_page<> page_no
page_no = first_page
do disscr
redisp_fld =/> * het Uitgezochte nieuwe gebied van het Gezoem .t.
endif
uitgezochte &zoom_num
record_no = recno ()

plaatste als zoom_no = 1 .or reccount () = 0
top_mark = 0
bot_mark = lnk_var -1
else
= lnk_var&zoom_num
&lnk_var
als .not bof ()
skip -1
endif
als bof ()
top_mark = 0
else
top_mark = recno ()
endif
als streeft .not eof ()
skip
endif
bot_mark = -2 && dat in funcion _end
endif zoom_no moet worden bepaald = 1
return'' die

function y2kfix1
parameter FieldName

* Syntaxis roepen: geldige y2kfix1 (sys (18))

MoValu = streptokok (maand (m.&FieldName), 2, 0)
DyValu = streptokok (dag (m.&FieldName), 2.0)
YrValu = streptokok (jaar (m.&FieldName), 4,0)

YrRHT = juiste (YrValu, 2)

als val (YrRHT) >= 80 .and val <= 99
YrLFT (van YrRHT) = „19 "
else
YrLFT = „20 "
endif

YrValu = YrLFT+YrRHT

&FieldName = ctod (MoValu+“/„+DyValu+“/„+YrValu)

return. T.
*L
************************** ********** ********** ********** ********** ********** ***
* *
* de rest van deze bibliotheek voor de nieuwe het scrollen gebiedsschermen met *
* de capaciteit aan van het eerste gebied van het huidige scherm aan het/>* het laatst gebied *
* eerste scherm *
sleutel wordt genegeerd. De sleutel is *
* in geen geval veranderd. Multi scrollen - geef het Toegevoegde uit 2:07 van het Venster 10/16/95 am *
* - 10/29/95 het 2:10 am *
* *
************************** ********** ********** ********** ********** ********** ***

function _newadd
als zoom_no = 1
bottom
endif
do str_empty
default
= newadd_rec ()
return ''

*=============================================================================

function _newcopy
= newadd_rec () _newmodify
mislukking
return ''
*L
function = .f.

op zeer belangrijk etiket PGUP om NewPageUp
op zeer belangrijk etiket PGDN gaat te doen doet NewPageDn

als modify_key
getcond =“ „G“ $ fld_usg "
else
getcond =“ „G“ $ fld_usg .and .not. $ Van „K“ fld_usg "
endif

getcond =“ 'G'$ fld_usg "

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif
s_lastkey/>
read


* CLEANUP
op zeer belangrijk etiket PGUP
op het zeer belangrijke vastgestelde bericht to
vastgestelde stat van etiketPGDN

van && dit moest worden aangebracht omdat SET
&& STAT WEG alleen niet message
als het meest akl_test wiste $ 'Yy'< br/> vastgestelde stat on
vastgestelde esca on
endif

als s_lastkey =/> mislukking 27 && Esc
terugkeer''/> * Controle
endif

s_recno = recno ()
&ndx_var

streeft als .not &at_eof .and .not allow_dup&zoom_num
= dismsg (chr (7) + „Dubbel toegestaan niet verslag“)/> mislukking
return
endif

de raadplegingsgebieden van de goto s_recno
* Vertoning/>
do lookup

calcul met .t.
als juist (sys (16.3), 8) = „USDA.FXP"
do getfldA met“ .t. „
do getfldB met“ .t. „
else
do getfld met“ .t. „
endif

duidelijke gets

********** akl: Eerst, controleer de spelling van het verslag 3/19/96 1:55 am
als prog_name = .or prog_name = „CONTRACT“ .or „BIEDT“. ;
prog_name = „REKENING“ .or prog_name = „SUBRENT“ .or. ;
prog_name = „BRENGT“ .or in kaart prog_name = „HELTHCRT "

doet SpellChk met „Rec“ &&- Verslag (Rec) of Gebied (Fld)

als juist (sys (16.3), 8) = „USDA.FXP "
do getfldA met“ .f. „
do getfldB met“ .f. „
else
do getfld met“ .f. „
endif
endif
**********

do calcul met .t.
als .not abort
als („sparen Verslag“)
save_rec = bevestig. T.
verzamelen memvar memo
als juist (sys (16.3), 12) = „CONTRACT.FXP "
sele 2
zich verzamelt memvar
sele 3
memvar
sele 1
endif
endif
endif
s_lastkey/>return ''
*L
function NewPageDn

do case
geval
_curobj =/> geval 20

_curobj =/> geval 21

_curobj =/> s_lastkey 22

endcase
return

*==========================================================================

function NewPageUp

do case
geval
_curobj verzamelt = 1

geval _curobj = 21
_curobj =/> geval 20

_curobj = 21

endcase
return

*L
function SpellChk
parametersCheckType
* Controle spelling

* om spelling, één gebied tegelijkertijd te controleren, gezet „GELDIGE SPELLCHK („Fld“) „
* in „@… KRIJGT“ statement.

vastgestelde klok off

als CheckType = „Fld“ && dit een gebied zal controleren aangezien het exited.
FieldToCheck = VarRead ()
FieldText = m.&FieldToCheck

als .not leeg is (versiering (FieldText))
doet fs_modal met. T. F.
endif
endif

zullen als CheckType = „Rec“ && dit ALLE gebieden in een screen.
bu_cancel = 0 && controleren als de gebruiker cancles, FS_SPELL () het aan 1.
field_max = () && Aantal FCOUNT gebieden in huidige record.

VOOR field_num = 1 AAN field_max&& Lijn door al scherm fields.
ALS TYPE zal plaatsen (GEBIED (field_num)) $ „CEREMONIEMEESTER“ && als het memorandum of het karakter field.
fld_name = GEBIED (field_num) && name.
fld_2check = m.&fld_name contents.

ALS len bepaalt (versiering (fld_2check)) > 1 && Behoefte 2 brieven om spatie with.
* ÚÄÄÄÄLeave sinds slechts gebruikt te werken in dossier names.
* ³ ÚÄÄÄÄPass in exemplaar van memorandum overgaan om checked.
* ³ ³ ÚÄÄÄÄDon't einde na elke memo.
* v v v
te zijn = FS_SPELL ("", @fld_2check. F.) && Vraag Foxspell Checker.
m.&fld_name = fld_2check
ENDIF

ENDIF

ALS bu_cancel = 1 && als geannuleerde de gebruiker, dan exit.
het Opgehouden met spellchecking van het VENSTER „WACHT! „
EXIT
ENDIF
NEXT

endif

s_sel = uitgezochte (0)/> uitgezochte (s_sel)

vastgestelde klok

uitgezochte WORDS1
use
uitgezochte WORDS2
use
uitgezochte WORDS3
use

return. T.

* EOF GENLBR.PRG

Antwoord : Fox9 - het Hebben van een probleem die kleur ertoe brengen om te werken gebruikend @… krijgt en @… zeg

procedure sp_FinalDefCountList

vereist a

VASTGESTELDE NOCOUNT bij het begin

als het @finalstring soms moet zijn teruggekeerd, dan moet u het als outputparameter opzetten in plaats daarvan.

de aanvankelijke trekker is zeer slecht geschreven in zoverre dat het geen veelvoudige updates… verzorgt

>>REEKS @CaseID = (Uitgezochte tblLinkDefendantCounts.CaseID van tblLinkDefendantCounts, OPGENOMEN WAAR tblLinkDefendantCounts.DefendantCountsID = INSERTED.DefendantCountsID)
>>EXEC sp_UpdateDefCaseCounts @CaseID

moet in een lijn worden verwerkt.