Desktop
Website
Multimedia
Database
Security
Enterprise
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.FI
LE („ANIMAL
S.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.F
ILE („CALEN
DAR.FXP“))
DO calendar MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 4. (DOSSIER („CONTRACT.PRG“) .OR.F
ILE („CONTR
ACT.FXP“))
DO contract MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 5. (DOSSIER („CRITTERS.PRG“) .OR.F
ILE („CRITT
ERS.FXP“))
DO critters MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 6. (DOSSIER („INVOICE.PRG“) .OR.FI
LE („INVOIC
E.FXP“))
DO invoice MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 7. (DOSSIER („P_LABELS.PRG“) .OR.F
ILE („P_LAB
ELS.FXP“))
DO p_labels MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
= .AND 8. (DOSSIER („LISTS.PRG“) .OR.FILE
(„LISTS.FX
P“))
DO lists
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 9. (DOSSIER („PRICES.PRG“) .OR.FIL
E („PRICES.
FXP“))
DO prices MET de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING
* = .and 10. (dossier („PRINT.PRG“) .or.file
(„PRINT.FX
P“))
* DO print
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 10. (DOSSIER („STATS.PRG“) .OR.FILE
(„STATS.FX
P“))
DO stats
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 11. (DOSSIER („UTILS.PRG“) .OR.FILE
(„UTILS.FX
P“))
DO utils
de keus van het COMPUTER-AIDED SOFTWARE ENGINEERING = .AND 12. (DOSSIER („CRITHELP.PRG“) .OR.F
ILE („CRITH
ELP.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.FI
LE („PAYABL
E.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.FI
LE („RECEIV
E.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, c
choices), m
choice)
TERUGKEER IIF IIF (mchoice > 0, SUBSTR (cchoices, mchoice,
1), "")
ENDFUNC
~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~
~~~~~~~~~~
~~~~~~~~~~
~~~~~~~~~~
~~~~~~~~
* COLORS
origschem1 = „W+/B, W+/BG, GR+/B, GR+/B, R+
/B, W+/GR, G
R+/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 (fil
ter ()))
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_n
um, len (pag
e_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_n
um, 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) +“ .t
xt "
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, li
neno
* 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_col
2, 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_pos
2 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_col
2 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 CONTR
ACT.FXP het“ .or (sys (16.2), 11) = ' INVOI
CE.FXP“ .or. ; /> recht
LS.FXP het“ .or (sys (16.2), 08) = ' BIDS.
FXP“ .or. ; /> recht
FXP“ (sys (16.2), 12) = ' CRITT
ERS.FXP“ .or. ; /> recht
XP“ .or recht DHR.F
FXP“ .or. ; /> recht
Y.FXP het“ .or (sys (16.3), 08) = ' JOBS.
FXP“ .or. ; /> recht
FXP“ (sys (16.3), 11) = ' MEASU
RE.FXP“ .or. ; /> recht
LE.FXP het“ .or (sys (16.3), 10) = ' PRICE
S.FXP“ .or. ; /> recht
CTN.FXP het“ .or (sys (16.3), 10) = ' PETSH
P.FXP“ .or. ; /> recht
VE.FXP het“ .or (sys (16.3), 11) = ' SUBRE
NT.FXP“ .or. ; /> recht
FXP“ (sys (16.3), 12) = ' HELTH
CRT.FXP“ .or. ; /> het recht
do maintmnu4 && van ADOPT
.FXP'< voegde menu voor 'Go'< br/>
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
* 12345678901234567890123456
7890123456
@ 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, c
CHOICES), m
CHOICE)
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_n
um, 1.1))/> last_page
um, len (pag
e_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.
Andere oplossingen
Somebody verzendt emialsvorm mijn hotmailrekening
een programma probeert om het volgende e-mailbericht uit uw naam te verzenden - de Levende post van Vensters
Kleine Statische IP Bedrijfs van de Server 2008 verandering
sharepoint stichting 2010 op met 32 bits?
Word 2003 die - met lijsten, rijen, en cellen werken
Navigeer aan de pagina van een specifiek punt op een gridview
Hyperlink die het diagram/de Tekening activeren
Apple iWeb - hoe te om HTML aan Schijf de website via FTP te publiceren te bewaren of?
sql - datumformaat
Het van een lus voorzien over de tellers van googlekaarten v3