Ciò è stata scritta 20 anni fa in FoxPro per il DOS. Sono nel corso dell'aggiornamento a Fox9. Potete aiutarli prego con convincere VFP per cambiare i colori su un menu? Woulf I come gli articoli di selezione di menu per avere una dipendenza differente di colore che cosa è selezionato dalle frecce up/down. Un altro problema che sto avendo è quando riposo il cursore su tutta la voce di menu, l'intero menu va via. So che la I ha compreso molto codice qui, ma il codice reale in uso è molto piccolo e facile a isolate.
Thank per essere là e l'aiuto me con il mio inizio di problem.
* di Menu
* Environment
* aggiunto per VFP
CHIARAMENTE ALL
* avete commentato per VFP9
* PARAMETER
* aggiunto per VFP9
parm1_=. T.
parm2_=. DIFETTO STABILITO di T.
al akl_test
di OFF
di ECO di OFF
di COLLOQUIO del
di c:\crit\CODE SE TIPO (“parm1_„) = “Br/> del L'< più akl_test = else
* del
* “della prova "
più akl_test = “Y "
ELSE
più akl_test = “N " akl_system PUBBLICO del akl_system
del
ENDIF
ENDIF
= “Y "
* se tipo (“parm2_„) = “akl_system del Br/>* del L'< = “N " “di Y "
ELSE
SE parm1_ = se parm2_ = akl_system del
* “del akl " = else
* del
* “di Y " akl_system = ESPOSIZIONE STABILITA del Br/> del Y'< “di N " SVILUPPO FLAGS
del endif
* del endif
* del
* SE $ più akl_test “ALL'OROLOGIO STABILITO STABILITO STABILITO STABILITO di Off
* di VISTA di ON
* di CONDIZIONE di ON
di FUGA di VGA50
ALL'OROLOGIO STABILITO di 48,69
ELSE
* ad un orologio di 24.69 girate fuori per il modi_memo di VFP
ENDIF
* ENVIRONMENT
=. T.
SULL'ETICHETTA CHIAVE f12 FANNO il _popcal
SULL'ETICHETTA CHIAVE ctrl+f12 FANNO i rundos CON il
“di COMMAND.COM " SE (SOPRA (“chiave„, “ctrl+o ")) il
FA LA PROCEDURA STABILITA del fs_setup
ENDIF
a genlbr
= OPZIONE LIBERA del
WINDOWS
del envrnmnt () =„ “goodpass del
=. F.
FANNO COLORS
* che tutto il codice di tasto funzione sarà rimosso. Lo s_zoom_no di SETTINGS
di TASTO FUNZIONE = lo s_lastkey di 0
= 0 && salvo l'ultimo s_prgname chiave del entered
= '' && salvo il nome di programma using uno s_FkeyRec del function
= 0 && salvo lo s_FkeyPag di Number
dell'annotazione di tasto funzione = 0 && salvo lo s_FkyMRec di Number
della pagina di tasto funzione = 0 && conservano il numero record MATRICE di FKey. 1/10/97 di && del
di di 12:28 (akl) ---- Il primo ha avuto bisogno di in PAGABILE quando F1 dal listmenu di Detail.
=. F. il && ha fatto noi viene dal menu della lista? utilmenu del
=. F. il && ha fatto noi viene dal menu di utilizzazione?
del
KeyF1 =. Bandierina del && del F. - da qualche cosa a Animals
KeyF2 =. Bandierina del && del F. - da qualche cosa a Bids
KeyF3 =. Bandierina del && del F. - da qualche cosa a Calendar
KeyF4 =. Bandierina del && del F. - da qualche cosa a Contracts
KeyF5 =. Bandierina del && del F. - da qualche cosa a Critters
KeyF6 =. Bandierina del && del F. - da qualche cosa a Invoices
KeyF8 =. Bandierina del && del F. - da qualche cosa a Payables
KeyF9 =. Bandierina del && del F. - da qualche cosa a Prices
KeyF10 =. Bandierina del && del F. - da qualche cosa a produzione Companies
KeyF11 =. Bandierina del && del F. - da qualche cosa a Receivables
* ha commentato per la scelta di VFP
* VARIABLES
= 0
prompt1 =„ 1. animali “il
prompt2 =„ 2. offerte “il
prompt3 =„ 3. calendario “il
prompt4 =„ 4. contratti “il
prompt5 =„ 5. Critters “il
prompt6 =„ 6. fatture “il
prompt7 =„ 7. etichette “il
prompt8 =„ 8. liste “il
prompt9 =„ 9. prezzi “il
* prompt10 =„ stampa “il
del P. prompt10 =„ Stats “il
dello S. prompt11 =„ programmi di utilità “il
del U. prompt12 =„ aiuto “il
prompt13 =„ ha rinunciato “il
* ha commentato per VFP
* WINDOWS
* ha commentato per VFP
* definisce il crit della finestra da 2.2 a 22.75; titolo„ menu principale del
dei Critters„; combinazioni colori dell'ombra del galleggiante del doppio del
2; la FONTE “Arial del
GRASSETTO„, 25
*Added per VFP.
DEFINISCE il crit della FINESTRA da 2.2 a 90.170; TITOLO„ menu principale del
dei Critters “; Combinazioni colori dell'OMBRA del GALLEGGIANTE del DOPPIO del
2; Il Br GRASSETTO/> @ 0.34 del Yy'< di Arial„, 25
* SCREEN
CLEAR
= esplodono il
ACTIVATE SCREEN
(di 2.2.22.75.50.1) SE $ più akl_test “della FONTE “del
DICE che “la prova„ sul else
* @ 0.70 di COLORE w+/N
* dice lo spazio (9)
ENDIF
*L
* che PROCEDA LOOP
FANNO MENTRE. T.
ATTIVANO il crit
della FINESTRA FANNO lo s_choice del disscr
= la scelta del mchoice
= il *
* che del
* del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** del mchoice
questo è un programma tempoary per cercare i duplicati in un *
di specific .DBF SE .NOT il Br/>* del Yy'< di $ più akl_test “fa dup1chk
* fanno il
del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** del *
di dup2chk
ENDIF
* SULL'ETICHETTA CHIAVE f7 FANNO il genhlp CON L'UTENTE del && di PROGRAMMA () HELP
FA la scelta di CASO di CASE
= 0 RILASCI del
del && Crit
della FINESTRA SE scelta di CASO del
RETURN
ELSE
QUIT
ENDIF
di $ più akl_test “Yy " = 1 .AND. (LIMA (“ANIMALS.PRG ").OR.FILE (“ANIMALS.FXP ")) il
FA gli animali CON la scelta di CASO del
di PROGRAMMA () = 2 .AND. (LIMA (“BIDS.PRG ").OR.FILE (wbr/> del 'BIDS.FXP'<))Il
FA offerte CON la scelta di CASO del
di PROGRAMMA () = 3 .AND. (LIMA (“CALENDAR.PRG ").OR.FILE (“CALENDAR.FXP ")) il
regista CON la scelta di CASO del
di PROGRAMMA () = 4 .AND. (LIMA (“CONTRACT.PRG ").OR.FILE (“CONTRACT.FXP ")) il
si contrae CON la scelta di CASO del
di PROGRAMMA () = 5 .AND. (LIMA (“CRITTERS.PRG ").OR.FILE (“CRITTERS.FXP ")) il
FA i critters CON la scelta di CASO del
di PROGRAMMA () = 6 .AND. (LIMA (“INVOICE.PRG ").OR.FILE (“INVOICE.FXP ")) il
fattura CON la scelta di CASO del
di PROGRAMMA () = 7 .AND. (LIMA (“P_LABELS.PRG ").OR.FILE (“P_LABELS.FXP ")) il
FA i p_labels CON la scelta di CASO del
di PROGRAMMA () = 8 .AND. (LIMA (“LISTS.PRG ").OR.FILE (“LISTS.FXP ")) il
FA la scelta di CASO del lists
= 9 .AND. (LIMA (“PRICES.PRG ").OR.FILE (“PRICES.FXP ")) il
FA i prezzi CON la scelta di CASO del
* di PROGRAMMA () = 10 .and. (lima (“PRINT.PRG ").or.file (“PRINT.FXP ")) il
* FA la scelta di CASO del print
= 10 .AND. (LIMA (“STATS.PRG ").OR.FILE (“STATS.FXP ")) il
FA la scelta di CASO dello stats
= 11 .AND. (LIMA (“UTILS.PRG ").OR.FILE (“UTILS.FXP ")) il
FA la scelta di CASO del utils
= 12 .AND. (LIMA (“CRITHELP.PRG ").OR.FILE (“CRITHELP.FXP ")) il
FA la scelta di CASO del crithelp
= 13
SE akl del ********** del
SUSPEND
ELSE
QUIT
ENDIF
di $ più akl_test “Yy ": Choice=14 aggiunto per F8 dalle offerte alla 2/25/96 di scelta pagabile di CASO del am
di 2:08 = 14 .AND. (LIMA (“PAYABLE.PRG ").OR.FILE (“PAYABLE.FXP ")) il
FA pagabile CON il akl del ********** del
del ********** del
di PROGRAMMA (): Choice=15 aggiunto per F11 dalle offerte agli effetti attivi 2/28/96 di scelta di CASO del am
di 10:53 = 15 .AND. (LIMA (“RECEIVE.PRG ").OR.FILE (“RECEIVE.FXP "))
FANNO ricevere CON PROGRAMMA ()
**********
ENDCASE
ENDDO
RETURN
*L
PROCEDURE disscr
PUBBLICO mchoice, mget, cchoice, cchoices
DEPOSITO 0 A mchoice, "" del DEPOSITO del mget
al cchoice, il nCOL del cchoices
* = (WCOLS () /2.0) - 19
@ 1.34 DICE che “2010 '
* lasciati il ncol di Column
= il nrow di 20
= 3
OTTENGONO CON nrow, ncol,„ [\ <1] - il nrow del
degli animali " = 4
OTTENGONO CON nrow, ncol, “[\ <2] - le offerte " nrow del
= 5
OTTENGONO CON nrow, ncol,„ [\ <3] - il calendario " nrow del
= 6
OTTIENE CON nrow, ncol, “[\ <4] - contratti " nrow del
= 7
OTTIENE CON nrow, ncol,„ [\ <5] - i Critters " nrow del
= 8
OTTENGONO CON nrow, ncol, “[\ <6] - ncol di destra del column
del
* delle fatture " = nrow di 40
= 3
OTTENGONO CON nrow, ncol,„ [\ <7] - Il nrow del
delle etichette " = 4
OTTENGONO CON nrow, ncol, “[\ <8] - nrow del
delle liste " = 5
OTTENGONO CON nrow, ncol,„ [\ <9] - il nrow del
di prezzi " = 6
OTTENGONO CON nrow, ncol, “[\ di Stats " = 7
OTTENGONO CON nrow, ncol,„ [\ di programmi di utilità " = 8
OTTENGONO CON nrow, ncol, “[\ del
* = il nrow di 30
= 10
OTTENGONO CON nrow, ncol,„ [\ = cchoices + “12Q " cchoice del
= mchoice del mchoice
di PARAMETRI del fncurobj
del
RETURN
FUNCTION di fnchoice (cchoices, “Q„) = RITORNO del _CUROBJ
. Nrow di PARAMETRI di T.
ENDFUNC
PROCEDURE GET
, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc,„ \ <")) + nrow di 2
@, ncol OTTENGONO LA FUNZIONE “* “+IIF (bskip,„ \ \ “, "") +cfunc del mget; fnCUROBJ VALIDO del
(@mCHOICE); i cchoices di PARAMETRI del fnchoice
di combinazioni colori del
1
RETURN
ENDPROC
FUNCTION, il cdef
HANNO LETTO il mchoice del mchoice
dell'OGGETTO del CICLO = il
IIF DI RITORNO (mchoice di IIF (LASTKEY () =27, A (cdef, cchoices), mchoice) > 0,
ENDFUNC
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* COLORS
1), "")/>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 di + " 2 3 4 5 6 7 8 9 10 COLORE di 11
SET DELLO SCHEMA 1 A;
“W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + " lettere del
* di da tavolino (priorità bassa da tavolino di 1)
* (utente di 1)
* OTTENGONO le lettere del campo (utente di 2)
* OTTENGONO la priorità bassa del campo (carattere del bordo dell'utente di 2)
* (priorità bassa del bordo dell'utente di 3)
* (lettere attive di titolo dell'utente di 3)
* (priorità bassa attiva di titolo dell'utente di 4)
* (lettere inattive di titolo dell'utente di 4)
* (priorità bassa inattiva di titolo dell'utente di 5)
* (campo di 5)
* prescelto (^A) segna (campo di 6)
* prescelto (^A) segna la priorità bassa con lettere (6)
* 1 2 3 4 5 6 7 8 9 10 COLORE di 11
SET Dello SCHEMA 2 A; menu del
* del
“w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + " segna (menu di 1)
* segna la priorità bassa con lettere (lettere inattive di selezione di menu di 1)
* (priorità bassa inattiva di selezione di menu di 2)
* (caratteri del bordo del menu di 2)
* (priorità bassa del bordo del menu di 3)
* (lettere inattive di titolo del menu di 3)
* (priorità bassa di titolo del menu di 4)
* (lettere attive di Slection del menu di 4)
* (priorità bassa attiva di selezione di menu di 6)
* (PROCEDURA della BIBLIOTECA GENERALE del
* di 6)
*
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* GENLBR.Prg (biblioteca generale): Il _add
di GENLBR.PRG
function se lo zoom_no = 1
vanno endif
del bottom
fa lo str_empty
fa il default
= il add_rec () _begin
del
*L
function del
return '' se il top_mark = 0
vanno else
del top
vanno endif
return dello skip
del top_mark
'' il _beginr
del
*L
function va to
che del
*L
function del top
return ''/> = ndx_exp del _canscop
del
*L
function del
return del
return di fltrsta () '' to
del
*L
function/> = '' =
del sistema (14.1) va last_rec del bottom
=
di recno () last_val = &ndx_exp
va first_rec del top
=
di recno () first_val = &ndx_exp
= _delete
del
*L
function del
return del
return del _disstat () '' _copy
*L
function/> = '' se zoom_no < no_zooms
* è ci delle annotazioni dei bambini? child_num del
= streptococco (zoom_no + 1, 1)
seleziona il &child_num
lnk_var = &lnk_var
di ricerca del lnk_var&child_num
se &at_eof
= dismsg (endif
del &zoom_num
del endif
del
di ritorno del &zoom_num
del
del chr (7) + “le annotazioni del subalterno esistono„) '' se confermare (“")
di cancellazione se di destra (sistema (16.3), 9) = “rec_del del Br/> di ADOPT.FXP'< =. Endif
di T.
se di destra (sistema (16.3), 12) = “il Br/> di CONTRACT.FXP'< seleziona il endif
del delete
1
del delete
2
di 3
se di destra (sistema (16.3), 7) = && “di DHR.FXP„ nessun dhr_delete di Flag
di esposizione = dhr_delete del repl di .t.
con il && di salto del endif
del delete
del else
del reindex
del m->dhr_delete
riposiziona al record
se && del &at_eof () se l'ultima annotazione cancellata, va all'inizio del database
= endif
del
del _begin () se il &at_eof .and .not svuota (filtro ())
* nessun annotazioni ha lasciato in filtro, rimuovono il to
/> = endif
del
del _begin () se &at_eof
* ultima annotazione ora cancellata, empty
= _quit ()
endif
endif
del
*L
function di/>
return '' = massimo (len (first_val), len (filter ()))il
definisce lo stat_wndw della finestra da 0.1 a 4,17+exp_N; le combinazioni colori dell'ombra del
7
attivano lo stat_wndw
della finestra se .not svuotano (filtro ())il
@ 0.0 dice che„ il filtro è: „ + il else
@ 0.0 del
del filtro () dice che„ il filtro è: il endif
@ 1.0 del Br/> del Off'< dice„ dall'annotazione: „ + il first_val
@ 2.0 dice„ di registrare: '+ il endif
del
di appunto di attesa del last_val
'' memo_field del memo_field
del is_edit
di parametri del _editmemo
del
*L
function dello stat_wndw
return della finestra del rilascio del
'' = memo_fld&zoom_num
se
= dismsg (“non fa del campo di ritorno del ")
definire '' il memo_wndw della finestra da 12.30 a 18.73; titolo “APPUNTO (ESC del
all'uscita o a Ctrl-w da risparmiare)„; il galleggiante del sistema del
coltiva le combinazioni colori vicine dell'ombra dello zoom 11
se il is_edit
modifica il else
del memo_wndw
della finestra del &memo_field dell'appunto modifica l'appunto il &memo_field il noedit la finestra il memo_wndw
il endif
il rilascio la finestra _end
* del
*L
function del memo_wndw
return '' va al
dell'annotazione dell'ultimo (ultimo annotazione del bambino se zumato) se il >= 0
del bot_mark va else
di salto -1
del bot_mark
se il bot_mark = -1
vanno else
del bottom
* trovare primo l'annotazione fuori di range
per individuare mentre .t. per &at_eof
se
di eof () * esso è ultima annotazione nel bot_mark del database
= nel bot_mark del else
di -1
= endif
del
di recno () il salto -1
il endif
il _endr
del
*L
function del endif
return '' va parametri del _list
del
*L
function del
return del bottom
return '' ndx_exp del _fromrcd
del
*L
function =
del sistema (14.1) se il first_rec del last_val
del <= del &ndx_exp = il
di recno () first_val = else
/> = endif
del dismsg (“la prima annotazione deve precedere l'ultima annotazione„)/> = '' && del dbf_desc
che questo ordine è because
sul && chiave dell'etichetta F7 fanno il && del _nohelp dei 18) aiuti stabiliti di problema found.
del sistema (fuori dall'avviso del && del
del && (_nohelp è a questa pagina) -->> nessun funzionale può essere denominato! il && del
né può un .PRG
se di destra (sistema (16.2), 12) = il && “di CRITTERS.FXP„ nessun “SI SVILUPPA„!! (11 ora!)il
definisce il brws_wndw della finestra da 9.4 a 19.54; dbf_desc di titolo del
; il else
di combinazioni colori dell'ombra di fine del galleggiante dello zoom del sistema del
10
definisce il brws_wndw della finestra da 9.4 a 19.65; dbf_desc di titolo del
; il galleggiante dello zoom del sistema del
coltiva il endif
di combinazioni colori dell'ombra 10
fa il record_no del list&zoom_num
= l'aiuto stabilito del brws_wndw
della finestra del rilascio del
di recno () sul <<< del &&--- RICORDAR! Rimuovere questo statements.
sull'etichetta chiave F7 fanno il genhlp con il sistema (18) il
del
*L
function di/>
return '' = akl del ********** di .f.
: Offerte - multi pubblicare il am
di 2:07 della finestra 10/16/95 sull'etichetta chiave PGUP fanno PageUp
sull'etichetta chiave PGDN fanno il
del ********** di PageDn
se getcond del modify_key
=„ fld_usg " getcond “di G„ $ del else
del
=„ fld_usg .and .not “di G„ $. Endif
* del
del fld_usg “di K„ $ "--------- akl: Rimosso - non ha gradetto il senso che funzionasse 3/13/96 di akl del ********** del pm
di 9:17: Aggiunto per il pm
* di 8:42 di calcolo 2/11/96 della bilancia automatica se ((prog_name = .and “PAGABILE„ altrimenti detto () = “PAYDETL„) .or. ;
* (prog_name = “RICEVE„ .and altrimenti detto () = “RECDETL„)) .and. ;
* (opzione = “copia„ opzione di .or = “modifica il p_amount del ")
* = il
* del ********** del endif
di 0
*---------getcond del
=„ '
del fld_usg di G'$ " se di destra (sistema (16.3), 8) = “USDA.FXP„ .and. ; il
radrizza (sistema (16.8), 10)
del <> “G_USDA.FXP " fa il getfldA con il read
del getcond
se m->u_code_2 = “D„ .or m->u_code_2 =
“di C " fanno il getfldB con il else
del endif
del read
del getcond
fanno il getfld con il akl del ********** del getcond
: Permette il cursore al pm
di 4:17 del giacimento 11/16/95 della freccia in alto fin qui se di destra (sistema (16.3), 9) = s_lastkey del endif
del
del ********** del endif
del read
del else
del cycle
del
* akl di lastkey colti/> () del ********** di CLEANUP
: Offerte - multi pubblicare il am
di 2:07 della finestra 10/16/95 sull'etichetta chiave PgUp
sul akl chiave del ********** del
del ********** di PgDn
dell'etichetta: CRITTERS.PRG - La multi finestra insegue il pm
di 10:06 dello schermo 7/28/98 di trucchi se l'opzione = “modifica„ .and. ; prog_name del
= “CRITTERS„ .and. ; lo s_lastkey del
del
(altrimenti detto () = “CRITDOGS„ .or altrimenti detto () = “CRITCATS„) = il && s_lastky2 appena nel caso il Ctrl-w urgente utente dal primo screen
fanno il to
del messaggio del
del ********** del endif
di DogUpDn
se .not. ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
“di CRITCATS.DBF ")) * (akl) 4/10/99 di pm
di 11:43 * aggiunto se dichiarazione per la seguente circostanza: 2/M/F5/N/Z
* Lo schermo di dati è cancellato e uno schermo dell'utente è activated.
* problema si presenta SOLTANTO quando Caldo-Chiud a chiave dalle offerte a Zoom.
del cane dei Critters * nessun utente che schermo è attivato perché la quantità di dati non si adatterà su a
* schermo dell'utente. Così il tavolo è utilizzato. (attivare lo schermo).
se .not. (sistema (16.5) = “…„ su .and. ; il
radrizza (sistema (16.6), 8) = “BIDS.FXP„ .and. ; il
radrizza (dbf (), 12) = Br/> del Yy'< “di CRITDOGS.DBF„) stat stabilito del
fuori da && che questo ha dovuto essere messo dentro perché lo STAT del && del endif
del endif
di SET
FUORI da solo non ha cancellato il message
se $ più akl_test 'se .not. ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
“di CRITCATS.DBF ")) se .not. (sistema (16.5) = “…„ su .and. ; il
radrizza (sistema (16.6), 8) = “BIDS.FXP„ .and. ; il
radrizza (dbf (), 12) = “di CRITDOGS.DBF„) endif
del endif
del endif
del on
di stat del
se s_lastkey = 27 terminazione di Esc
del && = .t.
di ritorno '' del
endif
se il modify_key
se del chk_dupl () di ritorno del
'' il endif
del endif
del
fa il lookup
fa il calcul con .t.
se di destra (sistema (16.3), 8) = “USDA.FXP„ .and. ; il
radrizza (sistema (16.8), 10) 'akl del ********** del
del fld_usg di G'$ " del <> “G_USDA.FXP "
fa il getfldA con„ .t. “il
fa il getfldB con„ .t. “else
del
fanno il getfld con„ .t. “gets
del endif
che del
se il page_no < il page_no seguente del page
dello schermo dell'esposizione del && di last_page = il page_no + 1
fanno il disscr
fanno mentre getcond del last_page
del <= di page_no =„: Offerte - multi pubblicare lo s_lastkey del am
* di 2:07 della finestra 10/16/95 = '' && ha commentato per F11 il pm
PgUpKey di 0:08 di chiave 2/28/96 =. F.
PgDnKey =. F.
BTabKey =. F.
sull'etichetta chiave PGUP fanno PageUp
sull'etichetta chiave PGDN fanno PageDn
sull'etichetta chiave BACKTAB fanno il
del ********** di TabBack
se di destra (sistema (16.3), 8) =
“di USDA.FXP " fa il getfldA con getcond
fa il getfldB con il else
del getcond
fa il getfld con il read
del endif
del getcond
se .not. (PgUpKey .or. PgDnKey .or. S_lastkey del
di BTabKey) = endif
* akl del
di lastkey () del ********** di CLEANUP
: Offerte - multi pubblicare il am
di 2:07 della finestra 10/16/95 sull'etichetta chiave PGUP
sull'etichetta chiave PGDN
su stat stabilito stabilito chiave del to
del messaggio del
del ********** di BACKTAB
dell'etichetta fuori da && che questo ha dovuto essere messo dentro perché lo STAT del && di SET
FUORI da solo non ha cancellato il && del message
dovrebbe funzionare. Scoprire perché?
se endif
del on
di esca del on
di stat del Br/> del Yy'< di $ più akl_test 'se s_lastkey = 27 terminazione di Esc
del && = endif
del exit
di .t.
se s_lastkey = una pagina dei 18 && su Key
se il page_no > il page_no di 1
= il page_no - 1
fare il endif
del endif
del loop
del disscr
se s_lastkey = una pagina giù Key
dei 3 && se il page_no del last_page
di page_no < = il page_no + 1
fanno il endif
del endif
del loop
del disscr
se s_lastkey = 15 && Tab
se page_no > page_no di 1
= page_no - 1
fanno il disscr
se page_no = 1
per i = 1 al chr della tastiera di 18
(endif
del endif
del endif
del loop
del next
di 9)
se il tipo (“LArrow ") = “L„ && vede i contratti (akl) 10/05/99 di am
di 10:43 se il page_no = il page_no di 2
= 1
fanno il endif
del endif
del loop
del disscr
se page_no = first_page
* controllare per vedere se c'è (chiave inserita soltanto alla prima pagina) il *
* del
* del *** del del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** del &ndx_var
di ricerca del
questo SE la dichiarazione sia stata cambiata ed avuto duplicato perché quando ZUMATE ad una base di dati vuota del *
*, il sistema sempre visualizzate “il messaggio record del *
* di errore del duplicato„ quando la prima annotazione è inserita. Separare SE le dichiarazioni sembra *
* per riparare questo problema. La differenza è SE dichiarazione appena prima il *
* “= dismsg…„ dichiarazione. Sono differenti per ogni stato di ZOOM_NO.
del *** del del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** del *
del *
* (akl) * usare questo SE dichiarazione se zoom_no = 1
se zoom_no = 1
se il prog_name = && dell'uscita del
“del CONTRATTO " abbia aggiunto perché sempre ottenendo il && del when
del messaggio di errore nel contratto e il ^W usato all'uscita. Lo ho fatto senso del && del this
perché so che witing una versione delle finestre del && di WINDOWS
del programma. Non è combattimento del && del worth
attualmente else
del
di pm di 2:09 3/08/2000 (akl) se allow_dup&zoom_num
= dismsg (chr (7) + “terminazione del ")
dell'annotazione del duplicato = endif
del endif
del endif
del exit
di .t.
* usare questo SE dichiarazione se zoom_no > 1
se zoom_no > 1
se .not. (
= dismsg (chr (7) + “annotazione del duplicato non permessa - 2 terminazione del ")
(del akl) = endif
del endif
del endif
del exit
di .t.
* visualizzare i campi di occhiata e il variables
fanno il lookup
fanno il calcul con .t.
se di destra (sistema (16.3), 8) =
“di USDA.FXP " fa il getfldA con il
„ di .t. “fa il getfldB con il else
del
„ di .t. “fa il getfld con il gets
del endif
del
„ di .t. “se page_no < last_page
* visualizzare il page_no seguente del page
dello schermo = il page_no + 1
fanno il enddo del endif
del exit
del else
del disscr
mentre endif
del last_page
del <= di page_no se .not. ((altrimenti detto () = “PAYDETL„ .or altrimenti detto () = “RECDETL ") l'opzione di .and = “modifica il ")
fa il calcul con il endif
di .t.
* ristabilire il number
della pagina se il page_no > il page_no del all
del vento del deact del first_page
= il first_page
fanno il disscr
se di destra (sistema (16.3), 8) =
“di USDA.FXP " fa il getfldA con il
„ di .f. “fa il getfldB con il else
del
„ di .f. “fa il getfld con il redisp_fld del endif
del
„ di .f. “= il endif
del gets
di .t.
se akl del ********** del abort
di .not: Controllare l'ortografia del 3/19/96 di am
di 1:55 se il prog_name = “OFFRE„ il prog_name di .or = “CONTRATTO„ .or. ; prog_name del
= prog_name di .or “della FATTURA„ = “SUBRENT„ .or. ; il prog_name del
= “TRACCIA„ il prog_name di .or = “HELTHCRT " il
fa SpellChk con “Rec„ annotazione del && (Rec) o il
del campo (Fld) se di destra (sistema (16.3), 8) = “USDA.FXP " il
fa il getfldA con„ .f. “il
fa il getfldB con„ .f. “il else
del
fa il getfld con„ .f. “il
del ********** del endif
del endif
del
se confermare (“salvo il save_rec record del ")
=. T.
se altrimenti detto () = “CRITDOGS„ .or altrimenti detto () =
LastTKUpd “di CRITCATS " =
della data () se altrimenti detto () = il critters
del
“di CRITDOGS " sostituisce LastTKupd con il critdogs
@ 0.67 del m->LastTKupd
dicono che critters
del else
del
del dtoc (m.lasttkupd) sostituisce LastTKupd con il critcats
@ 2.60 del m->LastTKupd
dicono il memo
di gather del endif
del endif
del
del dtoc (lasttkupd) se di destra (sistema (16.3), 12) = endif
del memvar
di gather del sele 3
del memvar
di gather del sele 2
del
“di CONTRACT.FXP " /> il endif
il
*L
PROCEDURE RunDOS
* del endif
return '' esegue un programma del DOS o uno schedario di lavoro, o invoca il command_
di PARAMETRI del
dell'interpretatore del command
* del DOS (COMMAND.COM deve essere nel PERCORSO) SE il _DOS
ATTIVA SCREEN
SALVO LO SCHERMO a DOSscreen
@ 0.0 &command_ di /0 di FUNZIONAMENTO di ON
* del CURSORE REGOLATO/> di CLEAR
NewCommand_ di 3:08 = il && di GETENV (“COMSPEC ") hanno aggiunto questo codice per leggere il && “COMMAND.COM„ del &NewCommand_ di /0 di FUNZIONAMENTO del true
. Non può sempre essere il && COMMAND.COM del sure
sarà CURSORE REGOLATO/> di running.
* FUORI 11/29/94- DALLO SCHERMO di RESTAURO commentato del
dallo s_lastkey di DOSscreen
ENDIF
RETURN
*L
function PageDn
dello SCHERMO del RILASCIO di DOSscreen
= dal
di lastkey () se s_lastkey = 3
PgDnKey =.
del chr della tastiera di T.
(23) se l'opzione = “modifica„ .and. ; prog_name del
= “CRITTERS„ .and. ; il
del
(altrimenti detto () = “CRITDOGS„ .or altrimenti detto () = “CRITCATS„) && di s_lastkey = di s_lastky2 appena nel caso l'utente ha premuto Ctrl-w dal primo
di s_lastkey = di lastkey del endif
return
*L
function PageUp
del endif
dello screen
() se s_lastkey = 18
* se .not. (prog_name = “CRITTERS„ .and. ; l'opzione del
* = “modifica„ .and. ;
* (altrimenti detto () = “CRITDOGS„ .or altrimenti detto () = “CRITCATS„))
PgUpKey =. Skip
del _next
del endif
return
*L
function del endif
del
* del chr della tastiera di T.
(23) se &at_eof
=
=
del dismsg (chr (7) + “ultimo ")
skip
del _nextr
del
*L
function del endif
return record '' se
=
= dismsg (chr (7) + “ultimo ")
last_page del _nextpage
del
*L
function del endif
return record '' = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)) se il page_no < il page_no del last_page
= il page_no + 1
fanno il else
del disscr
= dismsg (“nessun altro endif
return '' il _nohelp
del ")
del
*L
function definiscono il help_not della finestra da 0.30 alle combinazioni colori delle 2.78 ombre 7
attivano il mess_err del help_not
della finestra = 'spiacente, nessun AIUTO sono disponibili attualmente. '
attesa mess_err
rilascio finestra salto -1
del _prev
del
*L
function del help_not
return '' se &at_bof
=
= dismsg (chr (7) + “primo annotazione ")
salto -1
del _prevr
del
*L
function del endif
return '' se
=
= dismsg (chr (7) + “primo annotazione ")
first_page del _prepage
del
*L
function del endif
return '' = val (substr (page_seq&zoom_num, 1.1))
se page_no > page_no del first_page
= page_no - 1
fanno il redisp_fld del disscr
= il else
/> = dismsg (“nessun altro ")
stampa del ********** del _print
del
*L
function del endif
return '' ha selezionato le entrate 9/07/98 di
di pm di 9:27 (akl) se di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .or. ; il
radrizza (sistema (16.2), 12) = “Br/> di P_LABELS.FXP'< fa il
che del ********** del endif
del prn_sele
il on
di fuga definisce il prnt_wndw della finestra da 0.43 a 2.78; le combinazioni colori dell'ombra del
7
attivano lo s_readkey del prnt_wndw
della finestra = 0
@ 0.0 dicono„ la stampa - l'ESC per arrestare '
=
del init_rpt () se lo s_readkey = uno s_readkey di 268 .or = una fuga dei 12 && fosse && del endif
del return
del prnt_wndw
della finestra del rilascio del pressed
ha aggiunto la corrente o tutta l'usda registra (un
del 02/05/02 di akl) se di destra (sistema (16.6), 10) = “P_USDA.FXP„ g_all di .and = “A "
se sistema di .not (13) = “FUORI LINEA„ il laser„ Br/>
“del outp_dev di .or del dot'< del <> del outp_dev di .or ' lo s_recno di/> = il
di recno () vanno brk_no del top
= 1
fanno il pgehdr
fanno mentre il r_count del
di .not eof () = 0
fanno mentre il <> 9
del r_count fa lo skip
del brkhdr
se r_count del endif
del exit
del
di eof () = r_count + enddo
di 1
se else
del endif
dello s_recno
del enddo
del endif
del exit
del
di eof () se il sistema di .not (13) = “FUORI LINEA„ laser„ il Br/> del <> “del outp_dev di .or del dot'< del <> del outp_dev di .or 'fa il rpthdr
fa il pgehdr
fa il rptbdy
fa il line_no del rptftr
= il lns_per_pg
fa il endif
del endif
del pgeftr
se di destra (sistema (16.2), 12) = stampa stabilita del Br/> del Y'< di $ del akl_system “di P_LABELS.FXP„ gruppo di .and = 1
se 'alla stampa stabilita del else
di LPT1
al else
dello stampatore del off
della stampa del eject
del on
della stampa del endif
di LPT1
/> = prnt_wndw
della finestra del rilascio del endif
del
del end_rpt () se il outp_dev = 'Br dello screen' = off
di fuga del endif
del
del edit_txt () va
*L
return '' lo s_curobj del _popcal
di/>function = il _curobj
* attivano lo screen
sulla tastiera chiave di ESC dell'etichetta„ {CTRL+W} “+„ {ENTRARE} “
* @ 24.0 dicono che
del padc (“ESC della pressa da rinviare allo schermo di entrata di dati„, 80) attiva valido colto/> del calculator
* @ 24,0
sul _curobj chiave del esc
dell'etichetta = sul _quit
del on
return
*L
function di esca dello s_curobj
se di destra (sistema (16.2), 9) <> “PRINT.FXP„ .and. ; il
radrizza (sistema (16.3), 8) <> del precedente 'la finestra quando l'utente rinuncia pellame stabilito del endif
* del to
del filtro dal Br/> di JOBS.FXP'< a window
fa la destra di caso del case
(sistema (16.2), 12) = 'Br/> di CRITTERS.FXP'< fa lo zoom_no di caso del case
= il wind_hide di 1
= 'zoom_no della cassa del Br/> di usr_wndw1'< = wind_hide del clear
di 2
= 'zoom_no della cassa del Br/> di usr_wndw5'< = wind_hide del clear
di 3
= “zoom_no della cassa del Br/> di usr_wndw4'< = wind_hide di 4
= “zoom_no della cassa del Br/> di usr_wndw6'< = wind_hide di 5
= “s_zoom_no del endcase
del Br/> di usr_wndw3'< = zoom_no
se zoom_no = 1 .or. Zoom_no di KeyF2
= zoom_no del else
di 0
= wind_hide del otherwise
del endif
di 1
= “alltrim di usr_wndw'+ (streptococco (zoom_no))zoom_no del
= zoom_no - 1
* aggiunto se dichiarazione per la seguente circostanza: 2/M/F5/N/Z
* Lo schermo di dati è cancellato e uno schermo dell'utente è activated.
* problema si presenta SOLTANTO quando Caldo-Chiud a chiave dalle offerte a Zoom.
del cane dei Critters * nessun utente che schermo è attivato perché la quantità di dati non si adatterà su a
* schermo dell'utente. Così il tavolo è utilizzato. (attivare lo schermo).
se (sistema (16.5) = “…„ su .and. ; il
radrizza (sistema (16.6), 8) = “BIDS.FXP„ .and. ; il
radrizza (dbf (), 12) = endcase
del endif
del clear
del
“di CRITDOGS.DBF„) se wexist (“endif
del &wind_hide
della finestra del pellame del ")
se lo zoom_no > 0
=
del x_zoom () vanno record_no
fanno il _retrieve
* del
*L
function del redisp_fld del disscr
= .t.
del endif
return '' accettare la chiave e cercare l'annotazione; se non trovato riposizionare al d_function del record_no
= dispage1 () al
se '' il memo
dello spargimento (ndx_var) del
della disposizione del <> fa il clrfld
fa il read
del getkey
* lo stat stabilito stabilito del to
del messaggio di CLEANUP
fuori da && questo ha dovuto essere messo dentro perché lo STAT del && di SET
FUORI da solo non ha cancellato il message
se endif
del on
di stat del Br/> del Yy'< di $ più akl_test “se && Esc
del <> 27 di lastkey () se programma (3) = “LAVORI„ .and altrimenti detto () = disposizione di ricerca del else
del
della disposizione di ricerca del
“di LAVORI " (&ndx_var1a)endif
del
se &at_eof
= dismsg (“il ")
va il record_no
il endif
il endif
akl del ********** del
*L
del endif
return '': I nuovi parametri prescelti del _select
del am
function di 2:25 di ordine 10/23/95 il && del dbf_desc
che questo ordine è because
sul && chiave dell'etichetta F7 fanno il && del _nohelp dei 18) aiuti stabiliti di problema found.
del sistema (fuori dall'avviso del && del
del && (_nohelp è a questa pagina) -->> nessun funzionale può essere denominato! il && del
né può un .PRG
se di destra (sistema (16.2), 12) = il && “di CRITTERS.FXP„ nessun “SI SVILUPPA„!! (11 ora!)il
definisce il brws_wndw della finestra da 9.4 a 19.54; dbf_desc di titolo del
; il else
di combinazioni colori dell'ombra di fine del galleggiante dello zoom del sistema del
10
definisce il brws_wndw della finestra da 9.4 a 19.65; dbf_desc di titolo del
; il galleggiante dello zoom del sistema del
coltiva il endif
di combinazioni colori dell'ombra 10
fa il record_no del sel&zoom_num
= l'aiuto stabilito del brws_wndw
della finestra del rilascio del
di recno () sul <<< del &&--- RICORDAR! Rimuovere questo statements.
sull'etichetta chiave F1 fanno il genhlp con il sistema (18) il
del
*L
function del ********** del
di/>
return '' * spostare in avanti/indietro parecchi rec_count del records
= 0
definiscono lo skip_wndw della finestra da 11.29 a 13.52; le combinazioni colori dell'ombra del
7
attivano lo skip_wndw
@ 00.00 della finestra dicono„ le annotazioni di salto: „ ottenere _skipr
del
*L
function dello skip_wndw
return del @Z 999999 ' dell'immagine del rec_count “rec_count
di salto del read
del
se &at_eof
=
= dismsg (chr (7) + “ultimo endif
del ")
se &at_bof
=
= dismsg (chr (7) + “primo l'annotazione il ")
il endif
il rilascio '' * spostare in avanti/indietro parecchi rec_count del records
= 0
definiscono lo skip_wndw della finestra da 11.29 a 13.52; le combinazioni colori dell'ombra del
7
attivano lo skip_wndw
@ 00.00 della finestra dicono„ le annotazioni di salto: „ ottenere s_lastkey del
*L
function TabBack
dello skip_wndw
return del @Z 999999 ' dell'immagine del rec_count “rec_count
di salto del read
del
se
=
= dismsg (chr (7) + “ultimo endif
del ")
se
=
= dismsg (chr (7) + “primo annotazione ")
endif
rilascio '' =
di lastkey () se s_lastkey = 15
BTabKey =. Il _tally
del endif
return
*L
function del
del chr della tastiera di T.
(23) definisce il count_wndw della finestra da 0.35 a 2.78; le combinazioni colori dell'ombra del
7
attivano il count_wndw
@ 0.0 della finestra dicono„ il conteggio… “il rec_count del
= del 0
= conteggio del
del _begin () mentre &at_eof di .not al mess_str del rec_count
= allo streptococco (rec_count, 6) +„ Br/>
del record'< se il rec_count > il mess_str di 1
= il mess_str + “mess_str
di attesa del endif
del Br/> dello s'< vanno count_wndw
return '' il _tallyr
della finestra del rilascio del record_no
del
*L
function definisce il count_wndw della finestra da 0.35 a 2.78; le combinazioni colori dell'ombra del
7
attivano il count_wndw
@ 0.0 della finestra dicono„ contando… “il rec_count del
= 0
= conteggio del
del _beginr () mentre .not eof () al mess_str del rec_count
= allo streptococco (rec_count, 6) +„ mess_str
di attesa del Br/> del records'< va il record_no
il rilascio la finestra il _tofile
del
*L
function del count_wndw
return '' rep_file = spazio (8)
definiscono il file_wndw della finestra da 7.20 a 16.59; il titolo del
„ entra nel nome di schedario del fax„; le combinazioni colori dell'ombra del
7
attivano la finestra usr_wndw1
attivano il file_wndw
@ 3 della finestra, 1 dice che “un massimo di 8 caratteri è permesso. “
@ 4, 1 dice “il nome di schedario, entrate, Br/> @ 5 del have'<, 1 dice„ “.TXT„ aggiunto alla conclusione del nome. 'il
@ 6, 1 dice che “non usare alcuni caratteri speciali. “il
@ 1.15 ottiene il read
del rep_file
rep_file = “c:\crit\fax\ " +alltrim (rep_file) +„
di .txt " disattiva il file_wndw
della finestra del rilascio del file_wndw
della finestra definisce il file_wndw della finestra da 7.18 a 19, 60; il titolo del
„ il vostro fax è pronto„; le combinazioni colori dell'ombra del
7
attivano il file_wndw
@ 1 della finestra, 1 dice “dopo che il fax è stato stampato, va " a
@ 2, 1 dice “lo Systray, sul tavolo ed inizia " il
@ 3, 1 dice “WinFax, Right-Clicking sul fax " il
@ 4, 1 dice “l'icona. Dopo, di sinistra-scattar sopra inviano un fax… “il
@ 6, 1 dice “la posizione della lima: “+rep_file
@ 8, 1 dicono “quando il fax è stato inviato, ritorno qui "
@ 9, 1 dice “di continuare a funzionare come prima. “file_wndw
della finestra del rilascio del read
del
se .not svuotano il outp_dev (rep_file) del
= 'il file'< il Br/> del _torcd
del
*L
function del endif
return '' = 14.1)
del sistema (se last_rec del first_val
del >= del &ndx_exp = record_no
last_val = else
/> = endif
del dismsg ndx_exp (“l'ultima annotazione deve seguire la prima annotazione„)/> =
return '' il susp
del _disstat () del _zoom
* del
*L
function se no_zooms = zoom_no
= dismsg (“nessun else
del ")
della lima dello zoom se di destra (sistema (16.2), 12) = 'Br di CRITTERS.FXP'< /> fanno il anml_type di caso del case
= 'zoom_no del Br/> del C'< = anml_type di caso di 3
= “zoom_no del Br/> del D'< = anml_type di caso di 2
= “zoom_no del Br/> del E'< = anml_type di caso di 4
= “zoom_no del Br/> del F'< = otherwise
/>* = dismsg (“il tipo animale campo non è ")
A_Type = spazio di C, di D, di E, o del F. (1)
definiscono il file_wndw della finestra da 8.20 a 16.57; titolo del
„ che sig.na: Tipo animale„; le combinazioni colori dell'ombra del
7
attivano la finestra usr_wndw1
attivano il file_wndw
@ 1 della finestra, 1 dice “ogni animale deve avere un TIPO che " il
@ 2, 1 dice che “descrive una categoria generale. “Il
@ 3, 1 dice che “le entrate permesse sono:
@ 4 di D, di C, di F, o di E ", 1 dice„ (cane, gatto, azienda agricola, o esotico.) “il
GoodType =. F.
fanno mentre .not. GoodType
@ 4.34 ottiene il read
A_Type di A_Type
=
(di A_Type) se
GoodType di A_Type $ “DCFE " =. Il else
@ 6, 1 di T.
dice che„ entrare prego: La D, la C, la F, o la E “enddo
del
EndIf
disattivano il anml_type del file_wndw
della finestra del rilascio del file_wndw
della finestra = A_Type
sostituiscono il anml_type con m->anml_type
@ 2, 65 dicono lo zoom_no del else
del endcase
del m->anml_type
= lo zoom_no + il endif
/> =
=
del _begin () * se una nuova pagina, visualizza il nuovo screen
se page_no del page_no
del <> di first_page = endif
del first_page
se off
/> = dismsg (“on
della base di dati/> = endif
return del endif
del
del _add () '' il add_rec
* del
*L
function aggiunge una terminazione del record
= i no_rcds di .f.
= il &at_eof
* la risistemazione al primo d_function del page
= dispage1 () il
sull'etichetta chiave PGUP fanno PageUp
sull'etichetta chiave PGDN fanno PageDn
fanno mentre akl del ********** del last_page
del <= di page_no: Offerte - multi pubblicare il akl del am
*+++++++++ di 2:07 della finestra 10/16/95: Offerte - permettere il su multi pubblicano Window
se di destra (sistema (16.3), 8) =
“di BIDS.FXP " sull'etichetta chiave PGUP fa il newPageUp
sull'etichetta chiave PGDN fa il
* del ********** del endif
del newPageDn
--------- akl: Rimosso - non ha gradetto il senso che funzionasse 3/13/96 di akl del ********** del pm
di 9:17: Aggiunto per il pm
di 8:42 di calcolo 2/11/96 della bilancia automatica se ((prog_name = .and “PAGABILE„ altrimenti detto () = “PAYDETL„) .or. ;
(prog_name = “RICEVE„ .and altrimenti detto () = “RECDETL„)) .and. ; p_amount del
del
(opzione = “copia„ opzione di .or = “modifica ")) =
* del ********** del endif
di 0
---------il getcond del
=„ “di G'$ del fld_usg "
se di destra (sistema (16.3), 8) = “di USDA.FXP "
fa il clrfld
@ 14, 1 dice il
@ 15, 1 dello spazio (57) dice il
dello spazio (57) @ 16, 1 dicono il
@ 17, 1 dello spazio (57) dire che
dello spazio (57) fa il getfldA con il read
del getcond
se m->u_code_2 = “D„ .or m->u_code_2 =
“di C " fanno il getfldB con il else
del endif
del read
del getcond
fanno il getfld con il akl del ********** del getcond
: Permette il cursore al giacimento della freccia in alto fin qui. 12/15/95 di pm
di 6:59 se di destra (sistema (16.3), 9) =
“di CALLS.FXP " ha letto il akl del ********** del endif
del
del ********** del endif
del read
del else
del cycle
: Offerte - multi pubblicare il akl del am
*+++++++++ di 2:07 della finestra 10/16/95: Offerte - permettere il su multi pubblicano Window
se di destra (sistema (16.3), 8) =
“di BIDS.FXP " sull'etichetta chiave PGUP
su stat stabilito stabilito chiave del to
del messaggio del
del ********** del endif
di PGDN
dell'etichetta fuori da && questo ha dovuto essere messo dentro perché il MESSAGGIO del && di SET
non sembra funzionare!!
se $ “=
di lastkey più akl_test () se s_lastkey = 27 terminazione di Esc
del && = endif
del exit
di .t.
se s_lastkey = una pagina dei 18 && su Key
se page_no > page_no di 1
= page_no - 1
fanno il endif
del endif
del loop
del disscr
se s_lastkey = una pagina giù Key
dei 3 && se il page_no < il page_no del last_page
= il page_no + 1
fanno il endif
del endif
del loop
del disscr
se controllo del first_page
* per (chiave inserita soltanto s_lastkey del endif
del on
di stat del Br/> del Yy'< di primo alla pagina)
se .notallow_dup&zoom_num
se di destra (sistema (16.3), 8) &ndx_var
di ricerca del
del <> “USDA.FXP " se .not.
= dismsg (chr (7) + “terminazione del ")
dell'annotazione del duplicato = akl non permessi del ********** del endif
del exit
di .t.
: Il controllo specifico aggiunto di ogni campo chiave nel else
del pm
di 0:26 di usda 5/31/96 se lo s_recno del endif
del exit
di 0
= il
di recno () vanno top
individua per m.name = name
se ()
= dismsg (chr (7) + “nome dell'animale già in uso. Scegliere un'altri terminazione del
di nome„) = endif
del exit
di .t.
vanno top
individuano per m.usda = usda
se ()
= dismsg (chr (7) + “numero di usda già in uso. Scegliere un'altri numero di libero„) = endif
del exit
di .t.
se endif
del endif
del
del ********** del endif
del endif
dello s_recno
del
di .not eof () * visualizzare i campi di occhiata e il variables
fa il lookup
fa il calcul con .t.
se di destra (sistema (16.3), 8) = “USDA.FXP " il
fa il getfldA con„ .t. “il
fa il getfldB con„ .t. “il else
del
fa il getfld con„ .t. “il gets
del endif
del
terminazione del
se page_no < last_page
* visualizzare il page_no seguente del page
dello schermo = il page_no + 1
fare il enddo del endif
del exit
del else
del disscr
mentre last_page
del <= di page_no * ristabilire il number
della pagina se il page_no > il page_no del all
del vento del deact del first_page
= il first_page
fanno il disscr
se di destra (sistema (16.3), 8) =
“di USDA.FXP " fa il getfldA con il
„ di .t. “fa il getfldB con il else
del
„ di .t. “fa il getfld con il redisp_fld del endif
del
„ di .t. “= la terminazione del endif
di .t.
= lo iif (terminazione, .t., save_rec di .not ())
se abort
di .not se no_rcds
= () else
del endif
del
se il no_rcds
= else
del
del _quit () va il record_no
il endif
il endif avanzamento del adv_line
* del
*L
function del abort
return '' un rapporto/un line_no line
dello schermo = un line_no + un 1
se il line_no = il lns_per_pg
fanno il pgeftr
del
di adv_page = di/> () = rapporto del adv_page
* del line_no
*L
function di .f.
return/page_no page
dello schermo = page_no + 1
se di destra (sistema (16.2), 12) =
se page_no = sel_yes + endif
se il outp_dev = outp_dev di .or “del laser„ = “else
@ line_no+1,0 del eject
del Br/> del dot'< dice il line_no del endif
del
della replica (chr (219), 76) del endif
del return
di 1
= il top_margin
fa duplicato dell'insieme del chk_dupl
* del
*L
function del pgehdr
return '' a .f. se la chiave è un duplicato, o al dupl_rec
del otherwise
di .t. se ((&at_bof) = (&at_eof)) .or. '' = dupl_rec del allow_dup&zoom_num
della disposizione .or (ndx_var) = &ndx_var
di ricerca del else
di .f.
se opzione = “dupl_rec del Br/> del M'< = dupl_rec del else
del &at_eof
di recno del <> di record_no () .and .not = endif
del &at_eof
di .not se dupl_rec
= dismsg (chr (7) + “else
del ")
vanno livello della rottura di incremento del up
* del chng_brk
Parameters del dupl_rec
*L
function del endif
return del endif
del record_no
se “su„ = .t., il otherwise
di decremento se up
* nuovi brk_field del condition
di termine di rapporto = new_cond stabiliti del brk_field&brk_num
= “&brk_field<>m->&brk_field„ +„ .or. “il cond_size&brk_num del
= len il done_cond = il new_cond + il done_cond
* campo del
(del new_cond) della rottura del deposito al &brk_field del variable
di memoria = al &brk_field
* zoom in su se è un break
“dello zoom„ se zoom_no del brk_zoom&brk_num
= zoom_no + zoom_num di 1
= streptococco (zoom_no, frst_child di 1)
= il lnk_var&zoom_num
seleziona il endif
del &frst_child
di ricerca del &zoom_num
* incrementare il brk_no del number
della rottura = il brk_no + il brk_num di 1
= lo streptococco (brk_no, 1)
fatto = brk_no del else
del &done_cond
= brk_no - brk_num di 1
= streptococco (brk_no, 1)
* ridurre il done_cond = il substr del condition
di termine di rapporto(done_cond, 1+cond_size&brk_num)
* zoom giù se è un header
di parametri del confirm
del
*L
function del endif
/>return prescelto “dello zoom„ break
se zoom_no del brk_zoom&brk_num
= zoom_no - zoom_num di 1
= streptococco (zoom_no, 1)
il &zoom_num
il endif
12; FONTE “Arial del
GRASSETTO„, 20 && 1.2.5? , 6? , 8? , 10? , 11? , “13 ' il
attivano il
del con_wndw
della finestra se (13-len (intestazione) /2) < 0
= dismsg (“errore: Intestazione troppo lungamente. 13 il endif
@ 1.00 del ")
dei carboni dice che spazio (13-len (intestazione) /2) + header
@ 3.00 dicono„ < > < > “il
@ 3.05 menu del Br/> del No'< di richiamo 3.18 del Br/> del Yes'< di richiamo “@ “ai ritorni di ANNO del con_year
* CONTRACY del
*L
function dello iif del con_wndw
return della finestra del rilascio del con_opt
(con_opt=1, .t., .f.) l'anno del contratto come specificato da Rob
* per il suo num_yr STABILITO di ON
di SECOLO di business.
= val (di destra (dtoc (data ()), 4)) SECOLO STABILITO OFF
del -1981
se val (andato (dtoc (data ()), 4)) > il num_yr di 5
= il num_yr + il message
di parametri del dismsg
del num_yr
*L
function del endif
return di 1
definiscono il mess_wndw della finestra da 10,78-6-len (messaggio) a 24.100; TITOLO “messaggio del
dei Critters„; IL GALLEGGIANTE VICINO DEL
COLTIVA LO ZOOM; combinazioni colori dell'ombra del
7; La pressa “GRASSETTO„ (messaggio) di attesa vuota del
di Arial della FONTE del
, 20 il
attiva il mess_wndw
della finestra se„ tutta la chiave per continuare… “il message
di parametri del dismsgt
del
*L
function del mess_wndw
return di attesa del else
del
„„ + messaggio +„… “il
il endif
il rilascio '' definisce il mess_wndw della finestra da 0,78-6-len (messaggio) a 2.78; le combinazioni colori dell'ombra del
7
attivano il mess_wndw
della finestra se attesa vuota„ pressa del
(del messaggio) qualsiasi chiave da continuare…„ ; attesa del else
di prespegnimento 2
del
„„ + messaggio +„…„ ;
prespegnimento 2
endif
rilascio finestra messaggio dell'esposizione del
*L
function DmsgQwQr
* del mess_wndw
return '', attesa? (sì o no) rilascio? (sì o no) il messaggio di parametri del
, WaitReply, CloseWin
definisce il mess_wndw della finestra da 0,78-6-len (messaggio) a 2.78; le combinazioni colori dell'ombra del
7
attivano il mess_wndw
della finestra se WaitReply
se il
@ 0.1 (del messaggio) dice 'pressa tutta la chiave per continuare… “il else
@ 0.1 del read
del
dice che il messaggio +„… “else
del endif
del read
del
se il
@ 0.1 (del messaggio) dice '' else
@ 0.1 del
dice il messaggio +„… 'endif
del endif
del
se CloseWin
rilascio finestra mess_wndw
il
*L
function dispage1
del endif
return '' se il redisp_fld del first_page
del <> di page_no = il page_no di .t.
= il first_page
fanno il disscr
se di destra (il sistema (16.3), 8) = “USDA.FXP "
fa il getfldA con„ .t. “
fa il getfldB con„ .t. “else
del
fa il getfld con il edit_txt
del
*L
function del endif
/>return libero„ di .t. “endif
che del
il gets
DA SELEZIONARE (ESC da uscire)„; il galleggiante dello zoom del sistema del
coltiva le combinazioni colori vicine 11
se il Br/> del Yy'< di $ più akl_test 'modifica il && del txt_wndw della finestra della lima gentemp.gtx .gtx = else
di GeneralTeXt
modifica il && del txt_wndw della finestra del noedit della lima gentemp.gtx .gtx = txt_wndw
return '' il end_rpt
della finestra del rilascio del endif
di GeneralTeXt
del
*L
function se outp_dev = “laser„ outp_dev di .or = 'Br/> del dot'< se giusto (sistema (16.3), 11) <> “P_CONTR.FXP„ .and. ; il
radrizza (sistema (16.3), 10) <> “P_INVO.FXP„ .and. ; il
radrizza (sistema (16.5), 12) il <> “P_SUBRNT.FXP„ .and. ; il
radrizza (sistema (16.5), 10) Br/> di P_BIDS.FXP'< del <> 'se .not. ((di destra (sistema (16.3), 12) = “P_LABELS.FXP„ .or. ; il
radrizza (sistema (16.3), 12) = “P_LABLS1.FXP„ .or. ; il
radrizza (sistema (16.3), 12) = “P_LABLS2.FXP ") .and. ; endif
del endif
del endif
del eject
del
del
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5)) se il outp_dev = 'dispositivo stabilito stabilito del endif
del to
dello stampatore del Br/> del file'< lo screen
la sezione comandi il on
* di/>
return stabilito '' radrizza (sistema (16.4), 10) && del <> “P_BIDS.FXP„ (akl) 6/02/99 di pm
* .and di 0:33. ; il
* del && 2/20/94 (akl) radrizza (sistema (16.3), 12) il <> 'il envrnmnt
del Br/>
*L
function di P_LABELS.FXP'< sull'errore fa il errfix con l'errore (), il messaggio (), messaggio (1), il program (), decimali stabiliti stabiliti stabiliti del on
della sezione comandi del off
della campana del
che di lineno () all'insieme di 10
ha cancellato il dispositivo stabilito esclusivo stabilito esatto stabilito del off
del off
del on
ai multilocks stabiliti dello screen
insieme del off
rinfrescano all'insieme di 0
ritrattano 1
la sicurezza il off
il colloquio il off
errnum di parametri del errfix
del
*L
function del databases
return vicino stabilito stabilito '', errormsg, errormsg1, il prgname, il err_wndw
della finestra del rilascio del lineno
* fanno il errnum di caso del case
= una lima dei 108 && in uso da another
se confermare (“lima in uso, altra prova? else
del retry
del ")
se wexist (“endif
della finestra del rilascio del ")
/> = ritorno del
del restenv () al errnum di caso del endif
del &callmenu
= 109 bloccati record del && da another
se confermare (“registrano in uso, altra prova? ritorno del else
del retry
del ")
al endif
del mainproc
* rinviare al errnum di caso del &
= una lima dei 110 && in uso da another
= dismsg (“la lima deve essere ritorno esclusivamente opended del ")
al on
di esca del otherwise
*set del &callmenu
definisce il err_wndw della finestra a partire da 15.3 a 50.170; FONTE “Arial del
GRASSETTO„, 16; il
di combinazioni colori dell'ombra del galleggiante del doppio del
2
attiva il err_wndw
@ 0.0 della finestra dice “il numero di errore: „ + ltrim (streptococco (errnum))il
@ 1.0 dice “il messaggio di errore: „ + il errormsg
@ 2.0 dice “la linea di testo: „ + errormsg1
@ 3.0 dicono “il nome di programma: „ + il prgname
@ 4.0 dice “la linea numero: „ + ltrim (streptococco (lineno))il
@ 5.0 dice “l'oggetto: „ + 2018)
= dismsg (“il ")
il rilascio la finestra il err_wndw
*set il esca il off
il explode
parameters m_row1, m_col1, m_row2, il m_col2, il m_cnt, il m_type
* del
*L
function del endcase
return '' m_row1 = angolo di mano sinistra superiore di box.
* m_col1 = angolo destro superiore di box.
* m_row2 = angolo più basso della mano sinistra di box.
* m_col2 = di destra più basso ha avuto angolo del m_cnt di box.
* = del numero dei punti per l'esplosione determina la velocità che inscatolano il m_type di explodes.
* = il tipo di explosion.
* 1 = tutti i lati esplodono immediatamente. il
* 2 = soltanto lati explode.
* 3 = soltanto alto e basso explode.
* 4 = esplode dall'alto al basso. il
* 5 = esplode dalla parte inferiore a top.
* 6 = esplode da sinistra a destra. il
* 7 = esplode da destra a sinistra. lo schermo del explode
save del
public a explode
r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
di m_col2
c_pos2/>
do = 1 && tutto il deposito di sides.
((m_row2-m_row1) /2)+m_row1 a r_pos1, deposito del center
di fila del && r_pos2 ((m_col2-m_col1) /2)+m_col1 a c_pos1, r_cnt del center
della colonna del && c_pos2 = (r_pos1-m_row1) c_cnt del increment
di fila del && di /m_cnt = (c_pos1-m_col1) m_type di caso del increment
della colonna del && di /m_cnt = 2 deposito dei lati only.
del && ((m_col2-m_col1) /2)+m_col1 a c_pos1, c_cnt del center
della colonna del && c_pos2 = (c_pos1-m_col1) m_type di caso del increment
della colonna del && di /m_cnt = una parte superiore dei 3 && e bottom
immagazzinano ((m_row2-m_row1) /2)+m_row1 a r_pos1, r_cnt del center
di fila del && r_pos2 = (r_pos1-m_row1) m_type di caso del increment
di fila del && di /m_cnt = un
dei 4 && r_cnt di m_row1
= (m_row2-m_row1) m_type di caso del increment
di fila del && di /m_cnt = una parte inferiore dei 5 && a top
r_cnt di m_row2
= (m_row2-m_row1) m_type di caso del increment
di fila del && di /m_cnt = un
dei 6 && c_cnt di m_col1
= (m_col2-m_col1)m_type di caso del increment
di fila del && di /m_cnt = una destra dei 7 && a left
c_cnt di m_col2
= (m_col2-m_col1) increment
endcase
do di fila del && di /m_cnt mentre r_pos1 <= m_row2 .and del >= m_row1 .and r_pos2. ; <= m_col2
@ r_pos1, c_pos1, r_pos2, scatola “im del >= m_col1 .and c_pos2 del
c_pos1 del c_pos2;: fa il m_type di caso del case
= 1
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + r_cnt
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + m_type di caso del c_cnt
= 2
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + m_type di caso del c_cnt
= 3
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + m_type di caso del r_cnt
= 4
r_pos2 = r_pos2 + m_type di caso del r_cnt
= 5
r_pos1 = r_pos1 - m_type di caso del r_cnt
= 6
c_pos2 = c_pos2 + m_type di caso del c_cnt
= 7
c_pos1 = c_pos1 - endcase
enddo
clear
*@ m_row1 del c_cnt
,m_col1, m_row2, scatola “im del m_col2;:
* (akl) del
*L
function di/>
return '' 5/11/99 di pm
* di 3:27 il seguente SE la dichiarazione sia rimossa per permettere che il messaggio del filtro sia displayed.
* se .not. ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
“di CRITCATS.DBF ")) attiva il endif
dello screen
* se .not svuotano (filtro ())il
@ 0.70 dice “il filtro„ sul else
* (akl) di colore w+/n
5/11/99 di pm
* di 3:27 il seguente SE la dichiarazione sia stata cambiata per visualizzare l'angolo della Di destra-Parte superiore della scatola. il
fa la destra di caso del case
(sistema (16.2), 12) = “CRITTERS.FXP„ .and a destra (dbf (), 12) = “Br/> di CRITDOGS.DBF'< se PrimDisp
@ 0.70 dice “ÍÍÍÍÍÍÍÍÍ " il else
@ 0.70 del
dicono “ÍÍÍÍÍÍÍÍÍ„ “la destra di caso del endif
del
(sistema (16.2), 12) = “CRITTERS.FXP„ .and a destra (dbf (), 12) = “Br/> di CRITCATS.DBF'< se PrimDisp
@ 0.70 dice che else
@ 0.70 del
dello spazio (09) dice “ÍÍ„ “il otherwise
del endif
del
di +space (06) @ 0.70 dicono il endif
del endcase
del
dello spazio (09) se altrimenti detto () = “Br/> del BIDS'< se il tipo (“s_recon_date ") = “Br/> se il
@ 0, 1 (dello s_recon_date) dice il else
@ 0 del
dello spazio (25), 1 del D'< dice “la data ricondizionata: “endif
del endif
del endif
di colore w+/n
di +dtoc (s_recon_date) se .not. ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
“di CRITCATS.DBF ")) * (akl) 4/10/99 di pm
di 11:43 * aggiunto se dichiarazione per la seguente circostanza: 2/M/F5/N/Z
* Lo schermo di dati è cancellato e uno schermo dell'utente è activated.
* problema si presenta SOLTANTO quando Caldo-Chiud a chiave dalle offerte a Zoom.
del cane dei Critters * nessun utente che schermo è attivato perché la quantità di dati non si adatterà su a
* schermo dell'utente. Così il tavolo è utilizzato. (attivare lo schermo).
se .not. (sistema (16.5) = “…„ su .and. ; il
radrizza (sistema (16.6), 8) = “BIDS.FXP„ .and. ; il
radrizza (dbf (), 12) = fltrstar
del
*L
function del endif
/>return “di CRITDOGS.DBF„)
attiva finestra usr_wndw&page_num
endif
se .not svuotano (filtro ())il
@ 0.70 dice “il filtro„ sul else
@ 0.70 di colore w+/n
dice che endif
del
dello spazio (09) attiva il endif
EditFld del
di ritorno del
del dbf del usr_wndw
return '' org_alias riservati di parametri prm1
del genhlp
del
*L
function, org_alias del hlp_topic
= altrimenti detto ()
se “GENHLP.DBF„ $ della finestra () '' =. Il rob del && del F. vuole TUTTO pubblica i campi (dell'appunto) per indicare il
di di 1:53 del messaggio 1/10/97 di aiuto del && del same
(akl) se
hlp_topic = else
del prog_name
se vuoto (sistema (18))
hlp_topic = else
di prm1
hlp_topic =
del sistema (18) se tipo (“&hlp_topic ") = “Br/> EditFld del M'< =. Il endif
del endif
del endif
di T.
se lima di .not (“")
di genhlp.DBF se lima di .not (“")
= dismsg (“il ritorno non trovato '' il else
0
del ")
del
generano il genhlp dal on
del genhlp
di uso del endif
0
del endif
del use
di genhlp.str
se EditFld
individua per la disposizione (soggetto) = “else
del Br/> del BID'< individua per la disposizione (soggetto) = off
del endif
del hlp_topic
se
di eof () se il modi_memo
aggiunge il blank
=
* del rlock () sostituisce il soggetto con && prm1 è questo un insetto?? il
sostituisce il soggetto con && hlp_topic se sì, questo può essere la difficoltà!! il && del
lo schermo in cui un campo ha non && del yet
scelto (A o M), sostituisce un blank.
sostituisce la fronte con 7, bcol con 10; erow con 16, ecol del
con il && del else
del unlock
di 70
nessun aiuto disponibile - ignorare o avvisare i msg??? endif
del endif
del
di ritorno del
'' se il modi_memo
definisce il help_wndw della finestra dalla fronte, bcol a erow, ecol; titolo “AIUTO (ESC del
all'uscita o a F10 da risparmiare)„; il galleggiante dello zoom del sistema del
coltiva il else
di combinazioni colori 11
definisce il help_wndw della finestra dalla fronte, bcol a erow, ecol; titolo “AIUTO (ESC del
all'uscita)„; il endif
di combinazioni colori di fine dello zoom del sistema del
11
se modi_memo
se il
del rlock () sull'etichetta chiave F10 fa il sav_wind con “AIUTO (ESC da uscire o F10 da risparmiare) “il
modifica il unlock
del help_wndw
della finestra dei particolari dell'appunto sul else
/> = dismsg (“in uso record di aiuto, il else
del endif
del ")
di altra prova modificano il use
del endif
del help_wndw
della finestra del noedit dei particolari dell'appunto se! il
il &org_alias
il endif
il rilascio la finestra il choice
del getgrid
* VARIABLES
del
*L
function del help_wndw
return prescelto vuoto (di org_alias) '' riservato tutti come la scelta del prompt*
= 0
prompt1 =„ va “
prompt2 =
„ di Modi “prompt3 =
* WINDOWS
definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ griglia del
ordina il menu„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
attivano il noshow
* 1 della finestra MAINTMNU 2 3
@ 0, 1 dice che “va il Br/>*L
del Quit'< di Modi sull'etichetta chiave F7 fa il genhlp con l'UTENTE del && di programma () HELP
attiva la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 il menu rapido di prompt3
a choice
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= “scelta della cassa del Br/> del quit'< = opzione di 1
= “scelta della cassa del Br/> del go'< = opzione di 2
= “scelta della cassa del Br/> del modify'< = l'opzione di MAINTMNU
della finestra del rilascio di 3
= “endcase
del Br/> del quit'< disattiva il option
*L
function getgrid2
* GetGrid2 di MAINTMNU
return della finestra ha l'ordine prescelto (di Sel) aggiunto al choice
del pm
* VARIABLES
di 6:03 della lista 3/21/96 riservato tutti come la scelta del prompt*
= 0
prompt1 =„ va “
prompt2 =
„ di Modi “prompt3 =
„ di Sel “prompt4 =
* WINDOWS
definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ griglia del
ordina il menu„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
attivano il noshow
* 1 della finestra MAINTMNU 2 3 4
@ 0, 1 dice che “va il Br/>*L
del Quit'< di Modi Sel sull'etichetta chiave F7 fa il genhlp con l'UTENTE del && di programma () HELP
attiva la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 prompt3
@ 0.13-1 il menu rapido di prompt4
a choice
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= “scelta della cassa del Br/> del quit'< = opzione di 1
= “scelta della cassa del Br/> del go'< = opzione di 2
= “la scelta della cassa del Br/> del modify'< = l'opzione di 3
= “scelta della cassa del Br/> del select'< = opzione di MAINTMNU
della finestra del rilascio di 4
= “endcase
del Br/> del quit'< disattivano il getsel
del option
*L
function di MAINTMNU
return della finestra sull'etichetta chiave F7 fanno il genhlp con il
del sistema (18) fanno la destra di caso del case
(sistema (16.2), 12) =„ <> di zoom_num di .and “che “di CRITTERS.FXP 1 '
fa la destra di caso di maintmnu2
(sistema (16.2), 12) = ' CONTRACT.FXP„ .or a destra (sistema (16.2), 11) = ' INVOICE.FXP„ .or. ; il
radrizza (sistema (16.2), 11) = ' ANIMALS.FXP„ .or a destra (sistema (16.2), 08) = ' BIDS.FXP„ .or. ; il
radrizza (sistema (16.3), 08) = ' CREW.FXP„ .or a destra (sistema (16.2), 12) = ' CRITTERS.FXP„ .or. ; il
radrizza (sistema (16.3), 07) = ' DHR.FXP„ .or a destra (sistema (16.3), 08) = ' ACTS.FXP„ .or. ; il
radrizza (sistema (16.3), 10)='AGENCY.FXP„ .or a destra (sistema (16.3), 08) = ' JOBS.FXP„ .or. ; il
radrizza (sistema (16.3), 08) = ' MAPS.FXP„ .or a destra (sistema (16.3), 11) = ' MEASURE.FXP„ .or. ; il
radrizza (sistema (16.3), 11) = ' PAYABLE.FXP„ .or a destra (sistema (16.3), 10)='PRICES.FXP„ .or. ; il
radrizza (sistema (16.3), 12) = ' PRODUCTN.FXP„ .or a destra (sistema (16.3), 10)='PETSHP.FXP„ .or. ; il
radrizza (sistema (16.3), 11) = ' RECEIVE.FXP„ .or a destra (sistema (16.3), 11) = ' SUBRENT.FXP„ .or. ; il
radrizza (sistema (16.3), 08) = ' USDA.FXP„ .or a destra (sistema (16.3), 12) = ' HELTHCRT.FXP„ .or. ; il
radrizza (sistema (16.3), 09) = ' Br/>
di ADOPT.FXP'< fa il && maintmnu4 ha aggiunto il menu per 'la destra della cassa del Br/>
del Go'< (sistema (16.3), 9) = 'Br/> di SETUP.FXP'< fa il otherwise
di maintmnu5
fa il *
* del
* del ****** del del ********** del del ********** del del ********** del del ********** del del ************************** del option
*L
del endcase
return del maintmnu
per i CRITTERS che il menu standard di manutenzione è sostituito con: dismsg del *
= del *
* del *
* MAINTMNU.prg del *
* (“errore di Crit # 1 - codice non attivato. il
del ****** del del ********** del del ********** del del ********** del del ********** del del ************************** del ")
(del getsel) attiva il messaggio stabilito dello screen
alla dimensione del
del actn_pad di dimensione di 0
(8.2) data_bar (dimensione di 3)
recd_bar (dimensione di 3)
recs_bar (dimensione di 3)
edit_bar (dimensione di 2)
addr_bar (dimensione di 3)
scrn_bar (dimensione di 2)
filt_bar (dimensione di 2)
quit_bar (1)
* definire il rilievo in ogni actn_pad del popup
(1.1) = actn_pad del
'della BASE DI DATI '(2.1) = actn_pad del
'dell'ANNOTAZIONE '(3.1) = 'REGISTRA 'il actn_pad del
(4.1) = il actn_pad del
'di EDIT '(5.1) = 'actn_pad del Br/> del ADD'< (6.1) = 'SCHERMO 'il actn_pad del
(7.1) = 'FILTRO 'il actn_pad del
(8.1) = 'HA RINUNCIATO 'il actn_pad del
(1.2) = 'BASE DI DATI 'il actn_pad del
(2.2) = 'ANNOTAZIONE 'il actn_pad del
(3.2) = 'ANNOTAZIONI 'il actn_pad del
(4.2) = actn_pad del
'dello SCHERMO ''di EDIT 'actn_pad del
(5.2) = 'actn_pad del Br/> del ADD'< (6.2) = (7.2) = actn_pad del
'del FILTRO '(8.2) = 'RINUNCIARE '
data_bar (1) = 'lista '
data_bar (2) = 'zoom '
data_bar (3) = 'riscontro '
* data_bar (4) = 'rinunciare '
recd_bar (1) = 'Br/> del Retrieve'< recd_bar (2) = 'dopo '
recd_bar (3) = 'Br/> del Previous'< recs_bar (1) = 'cominciare '
recs_bar (2) = 'estremità '
recs_bar (3) = 'salto '
edit_bar (1) = 'modificare '
edit_bar (2) = 'pubblicare il Br/> del Memo'< addr_bar (2) = il
addr_bar (3) =
'della copia 'scrn_bar (1) = 'Br seguente/> del Page'< scrn_bar (2) = 'Br/> del Page'< di Prev filt_bar (1) = 'regolare
del filtro 'filt_bar (2) = '
del filtro dall'annullamento 'quit_bar (1) = actn_pad 'rinunciato 'della barra dei menu del
, menu 1, data_bar, menu 2, recd_bar, menu 3, recs_bar, menu 4, edit_bar, menu 5, addr_bar, menu 6, scrn_bar, menu 7, filt_bar, menu 8, quit_bar, 1
di 8
di 3
di 3
di 3
di 2
di 3
di 2
di 2
@ 24.0 dicono che
dello spazio (80) ha letto la barra dei menu a sele_row, il clear
del save
di sele_col fa il sele_row di caso del case
= il opt_sel di 1
= sele_row data_bar di caso del
(di sele_col) = opt_sel di 2
= sele_row recd_bar di caso del
(di sele_col) = opt_sel di 3
= sele_row recs_bar di caso del
(di sele_col) = opt_sel di 4
= sele_row edit_bar di caso del
(di sele_col) = opt_sel di 5
= sele_row addr_bar di caso del
(di sele_col) = opt_sel di 6
= sele_row scrn_bar di caso del
(di sele_col) = opt_sel di 7
= opt_sel filt_bar del otherwise
del
(di sele_col) = 'Quit' del Br/> se il Br/> @ 0.1 del Quit'< del <> del opt_sel 'dice la tomaia (disposizione (opt_sel)) il endif
di colore w+/n
attiva il usr_wndw&page_num
return della finestra più basso (disposizione (opt_sel))il getseli
del
*L
function attiva il messaggio stabilito dello screen
alla dimensione del
del actn_pad di dimensione di 0
(5.2) data_bar (dimensione di 4)
recd_bar (dimensione di 7)
scrn_bar (dimensione di 2)
filt_bar (dimensione di 2)
quit_bar (1)
* definire il rilievo in ogni actn_pad del popup
(1.1) = 'BASE DI DATI 'il actn_pad del
(2.1) = 'ANNOTAZIONE 'il actn_pad del
(3.1) = 'SCHERMO 'il actn_pad del
(4.1) = 'FILTRO 'il actn_pad del
(5.1) = actn_pad 'RINUNCIATO 'del
(1.2) = 'BASE DI DATI 'il actn_pad del
(2.2) = 'ANNOTAZIONE 'il actn_pad del
(3.2) = 'SCHERMO 'il actn_pad del
(4.2) = 'FILTRO 'il actn_pad del
(5.2) = “HA RINUNCIATO “il
* data_bar (1) = iif (no_zooms = zoom_no,„ \ -„, “")
dello zoom data_bar (1) = 'lista '
data_bar (2) = 'riscontro '
data_bar (3) = 'zoom '
data_bar (4) = 'rinunciare 'il
recd_bar (1) = 'Br/> del Retrieve'< recd_bar (2) = 'dopo '
recd_bar (3) = 'Br/> del Previous'< recd_bar (4) = 'Cominciare 'il
recd_bar (5) =
'dell'estremità 'recd_bar (6) =
'di salto 'recd_bar (7) =
'dell'appunto 'scrn_bar (1) = 'Br seguente/> del Page'< scrn_bar (2) = 'Br/> del Page'< di Prev filt_bar (1) = 'regolare il Br/> del Filter'< filt_bar (2) = 'Br/> del Filter'< dell'annullamento quit_bar (1) = actn_pad 'rinunciato 'della barra dei menu del
, menu 1, data_bar, menu 2, recd_bar, menu 3, scrn_bar, menu 4, filt_bar, menu 5, quit_bar, 1
@ 24.0 di 5
di 4
di 7
di 2
di 2
dire che
dello spazio (80) ha letto la barra dei menu a sele_row, il clear
del save
di sele_col fa il sele_row di caso del case
= il opt_sel di 1
= sele_row data_bar di caso del
(di sele_col) = opt_sel di 2
= sele_row recd_bar di caso del
(di sele_col) = opt_sel di 3
= sele_row scrn_bar di caso del
(di sele_col) = opt_sel di 4
= opt_sel filt_bar del otherwise
del
(di sele_col) = 'endcase
del Br/> del Quit'< se il Br/> @ 0.1 del Quit'< del <> del opt_sel 'dice la tomaia (disposizione (opt_sel)) il endif
di colore w+/n
attiva il usr_wndw&page_num
return della finestra più basso (disposizione (opt_sel))il getselr
del
*L
function sull'etichetta chiave F7 fa il genhlp con il
del sistema (18) fa il *
* del
* del ****** del del ********** del del ********** del del ********** del del ********** del del ************************** di maintmnu3
return
per i CRITTERS che il menu standard di manutenzione è sostituito con: dismsg del *
= del *
* del *
* MAINTMNU.prg del *
* (“errore di Crit # 1 - codice non attivato. il
del ****** del del ********** del del ********** del del ********** del del ********** del del ************************** del ")
(del getselr) attiva il messaggio stabilito dello screen
alla dimensione del
del actn_pad di dimensione di 0
(7.2) prnt_bar (dimensione di 3)
data_bar (dimensione di 3)
recd_bar (dimensione di 2)
recs_bar (dimensione di 3)
scop_bar (dimensione di 3)
filt_bar (dimensione di 2)
quit_bar (1)
* definire il rilievo in ogni actn_pad del popup
(1.1) = actn_pad del
'della STAMPA '(2.1) = actn_pad del
'della BASE DI DATI '(3.1) = actn_pad del
'dell'ANNOTAZIONE '(4.1) = 'ANNOTAZIONI 'il actn_pad del
(5.1) = 'PORTATA 'il actn_pad del
(6.1) = 'FILTRO 'il actn_pad del
(7.1) = 'HA RINUNCIATO 'il actn_pad del
(1.2) = 'STAMPA 'il actn_pad del
(2.2) = 'BASE DI DATI 'il actn_pad del
(3.2) = 'ANNOTAZIONE 'il actn_pad del
(4.2) = 'REGISTRA 'il actn_pad del
(5.2) = 'PORTATA 'il actn_pad del
(6.2) = 'FILTRO 'il actn_pad del
(7.2) =
prnt_bar (1) = 'allo stampatore '
prnt_bar (2) = 'a
della lima 'prnt_bar (3) = '
* allo schermo 'prnt_bar (4) = 'Br/>* del Report'< della stampa prnt_bar (5) = 'condizione '
* prnt_bar (6) =
data_bar (1) = 'lista '
data_bar (2) = 'riscontro '
data_bar (3) = 'Br/>
dello Status'< recd_bar (1) = 'dopo '
recd_bar (2) = 'Br/>
del Previous'< recs_bar (1) = 'cominciare 'il
recs_bar (2) = 'estremità '
recs_bar (3) = 'salto '
scop_bar (1) = ''Da
scop_bar (2) = 'registrare '
scop_bar (3) = '
di portata dell'annullamento 'filt_bar (1) = 'regolare
del filtro 'filt_bar (2) = '
del filtro dall'annullamento 'quit_bar (1) = actn_pad 'rinunciato 'della barra dei menu del
, il menu 1, prnt_bar, il menu 2, data_bar, il menu 3, recd_bar, il menu 4, recs_bar, il menu 5, scop_bar, il menu 6, filt_bar, il menu 7, quit_bar, 1
di 7
di 3
di 3
di 2
di 3
di 3
di 2
ha letto la barra dei menu a sele_row, save
di/> fa il sele_row di caso del case
= il opt_sel di 1
= sele_row prnt_bar di caso del
(di sele_col) = opt_sel di 2
= sele_row data_bar di caso del
(di sele_col) = opt_sel di 3
= sele_row recd_bar di caso del
(di sele_col) = opt_sel di 4
= sele_row recs_bar di caso del
(di sele_col) = opt_sel di 5
= sele_row scop_bar di caso del
(di sele_col) = opt_sel di 6
= opt_sel filt_bar del otherwise
del
(di sele_col) = 'endcase
del Br/> del Quit'< se il Br/> @ 0.1 del Quit'< del <> del opt_sel 'dice la tomaia (disposizione (opt_sel)) il endif
di colore w+/n
attiva il usr_wndw
return della finestra più basso (disposizione (opt_sel))il init_rpt
del
*L
function fa il outp_dev di caso del case
= movimento del && del <> “P_LABELS.FXP„ “del laser„ outp_dev di .or = 'Br/> del dot'< se outp_dev = 'stampa stabilita del Br/> del dot'< al endif
di LPT1
se outp_dev = 'Br/> del laser'< se giusto (sistema (16.3), 12) a 95. Cambiare questo quando possible.
se akl_system $ 'stampa stabilita del Br/> del Y'< alla stampa stabilita del else
di LPT1
al endif
del endif
del endif
di LPT1
se di destra (sistema (16.3), 12) = 'Br/>* di P_LABELS.FXP'< se il gruppo = 1 gruppo di .or = un gruppo di 2 .or = 3 abbia commentato perché il there
* non è più stampatore di puntino. 4/11/2000 di
* del
* (akl - 12/31/98 di 4:31 pm) di pm di 9:57 (akl) sto rimuovendo questo se dichiarazione. Realmente non so perché la ho messa in.
* che mi sono contraddetto. Vedere precedente SE dichiarazione, appena sotto “il laser„. Il
* dopo un molto tempo, rimuove questo SE ed ESTREMITÀ statements.
* se giusto (sistema (16.3), 12) movimento del && del <> “P_LABELS.FXP„ a 95. Cambiare questo quando possible.
se stampa stabilita del Br/> del Y'< di $ del akl_system 'alla stampa stabilita del else
di LPT1
al endif
del endif
del endif
* del endif
* di LPT1
se di destra (sistema (16.3), 11) = “P_CONTR.FXP„ .or. ; il
radrizza (sistema (16.3), 10) = “P_INVO.FXP„ .or. ; il
radrizza (sistema (16.3), 12) = 'Br/> di P_SUBRNT.FXP'< se la stampa stabilita del Br/> del Y'< di $ del akl_system 'alla stampa stabilita del else
di LPT1
al endif
del endif
di LPT1
fa mentre il sistema (13) = “Br/> @ 0.0 del OFFLINE'< dice che„ lo stampatore prego regolato sulla linea… “s_readkey del read
del
=
di readkey () se lo s_readkey = uno s_readkey di 268 .or = una fuga dei 12 && sia stato dispositivo stabilito del pressed
al enddo
@ 0,0
@ 0.0 del endif
del return
del off
della stampa del on
della sezione comandi dello screen
dice„ la stampa - ESC da arrestarsi 'dispositivo stabilito del
a printer
se outp_dev = 'Br/> del laser'< * muover verso 95. Cambiare questo una volta possibile. < - perché? 11/14/01
se giusto (sistema (16.3), 12) <> “P_LABELS.FXP„ .and. ; il
radrizza (sistema (16.5), 10) on
* @ 0.0 della stampa del off
della sezione comandi del Br/> di P_BIDS.FXP'< del <> 'dice che il chr (27) + && " di E„ inizializza il printer
?? il chr (27) + outp_dev stabilito stabilito di caso del endif
del endif
del on
della sezione comandi del off
della stampa del
" di E " = “Br/> @ 0,0
@ 0.0 del file'< dice„ la stampa - ESC per arrestare 'lo stampatore stabilito del
per archivare il dispositivo stabilito del &rep_file
per archivare il outp_dev di caso del &rep_file
= “il Br/> @ 0,0
@ 0.0 dello screen'< dice„ la stampa - ESC per arrestare “lo stampatore stabilito del
per archivare il dispositivo stabilito di gentemp.gtx
per archivare il akl del ********** di gentemp.gtx
: Le linee hanno aggiunto per arrestare il into
del carattere di TOF espellono la lima del && come in primo luogo carattere. 8/01/98 di dispositivo stabilito stabilito del to
dello stampatore del am
di 1:18 allo stampatore stabilito dello screen
per archivare il dispositivo stabilito di gentemp.gtx
per archivare il page_no del endcase
del
del ********** di gentemp.gtx
= il line_no di 1
= il off
della sezione comandi del top_margin
lnk_var = ''
vanno first_rec
se .not svuotano (filtro ())il filter_str del
= il
del filtro () se il brk_no del endif
del endif
dello skip
del &filter_str
di .not = il brk_num di 1
= “1 '
fatto = at_top del &done_cond
= .t.
return '' il choice
del maintmnu
* VARIABLES
del
*L
function riservato tutti come la scelta del prompt*
= 0
prompt1 =„ aggiungono “il
prompt2 =„ elemosinano “il
prompt3 =„ copia “il
prompt4 =„ Del “il
prompt5 =„ estremità “il
prompt6 =„ Filt “il
prompt7 =„ lista “il
prompt8 =„ Modi “il
prompt9 =„ dopo “il
prompt10 =
„ di Prev “prompt11 = prompt12 =„ macera “il
prompt13 =
„ di salto “prompt14 =
„ del riscontro “prompt15 =
* WINDOWS
„ dello zoom “definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ manutenzione del
ordina il menu„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
* hanno commentato per VFP
SE. F.
attivano il noshow
* 1 della finestra MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, 1 dice che 'aggiungere elemosinano la lista Modi della Copy Del End Filt Prev seguente rinunciato macera il Br/> ENDIF
* dello Zoom'< del riscontro di salto ha commentato per il TASTO FUNZIONE di VFP
*L
* ASSIGNMENT
l'etichetta chiave F7 fa il genhlp con l'UTENTE del && di programma () HELP
fa il prog_name di caso del case
=
“del CALENDARIO " sull'etichetta chiave F2 fa il mntmnuf con 2
sull'etichetta chiave F10 fa il mntmnuf con il otherwise
di 10
sull'etichetta chiave F2 fa il mntmnuf con 2
sull'etichetta chiave F8 fa il mntmnuf con 8
sull'etichetta chiave F9 fanno il mntmnuf con 9
sull'etichetta chiave F10 fanno il mntmnuf con 10
sull'etichetta chiave F11 fanno il mntmnuf con il endcase
* di 11
aggiunto per il
di VFP fanno lo s_choice di DispMenu
= la scelta del mChoice
= il mChoice
* hanno commentato per VFP
SE. F.
attivano la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.18-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.32-1 prompt8
@ 0.37-1 prompt9
@ 0.42-1 prompt10
@ 0.47-1 prompt11
@ 0.52-1 prompt12
@ 0.56-1 prompt13
@ 0.61-1 prompt14
@ 0.67-1 che il menu rapido di prompt15
a choice
ENDIF
* ha commentato per VFP
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= 'scelta della cassa del Br/> del quit'< = 1
= 'scelta della cassa del Br/> del add'< = opzione di 2
= 'scelta della cassa del Br/> del begin'< = opzione di 3
= 'scelta della cassa del Br/> del copy'< = opzione di 4
= 'scelta della cassa del Br/> del delete'< = opzione di 5
= 'scelta della cassa del Br/> del end'< = 6
definisce il fil_wndw della finestra a partire da 1.50 a 6.77 le doppie combinazioni colori 12
attivano l'intestazione del fil_wndw
della finestra = 'Br/> @ 1.00 del Filter'< dicono che spazio (13-len (intestazione) /2) + header
@ 3.04 dicono 'il Br/> del '< del @ 3.05 menu del Br/> del Cancel'< di richiamo 3.16 del Br/> del Set'< di richiamo '@ 'a fil_opt
se fil_opt = l'opzione di 1
= 'ha regolato il endif
del Br/> del filter'< se fil_opt = opzione di 2
= 'scelta di caso del fil_wndw
della finestra del rilascio del endif
del Br/> del filter'< dell'annullamento = opzione di 7
= 'scelta della cassa del Br/> del list'< = opzione di 8
= 'scelta della cassa del Br/> del modify'< = opzione di 9
= 'che scelta della cassa del Br/> del next'< = opzione di 10
= 'scelta della cassa del Br/> del previous'< = opzione di MAINTMNU
della finestra del rilascio di 11
= 'scelta della cassa del Br/> del quit'< = opzione di 12
= 'scelta della cassa del Br/> del retrieve'< = opzione di 13
= 'scelta della cassa del Br/> dello skip'< = opzione di 14
= “la scelta della cassa del Br/> del tally'< = l'opzione di 15
= “endcase
del Br/> dello zoom'< disattivano il option
* di MAINTMNU
return della finestra - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mntmnuf
parameter KeyF_no
del
function fa il caso KeyF_no = 2
del case
KeyF2 =. Caso KeyF_no = 5
di T.
KeyF5 =. Caso KeyF_no = 8
di T.
KeyF8 =. Caso KeyF_no = 9
di T.
KeyF9 =. Caso KeyF_no = 10
di T.
KeyF10 =. Caso KeyF_no = 11
di T.
KeyF11 =. Lo s_FkeyRec del endcase
di T.
= lo s_prgname del
di recno () = il choice
del plain
return
*L
function maintmnu2
* VARIABLES
del chr della tastiera del prog_name
(113) riservato tutti come la scelta del prompt*
= 0
prompt1 =„ Modi “il
prompt2 =„ rinunciano “il
prompt3 =„ Del “il
prompt4 =„ Filt “il
* se ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
* (di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
“di CRITCATS.DBF ")) prompt5 = prompt6 = endif
* WINDOWS
del
* definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ manutenzione del
ordina il menu (zoom)„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
SULL'ETICHETTA CHIAVE Alt+F12 SUSPEND
attivano il noshow
* 1 della finestra MAINTMNU 2 3 4 5 6
@ 0, 1 dice 'il Br/>
del Secondary'< del Del Filt Primary del Modi Quit se ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) =
* 1 2 3
“di CRITCATS.DBF ")) * 123456789012345678901234567890123456
@ 0, 1 dice 'il Br/> * richiamo del Secondary'< del Del Filt Primary del Modi Quit: 1 2 3 4 5 endif
*L
di 6
sull'etichetta chiave F2 fa mntmnuf22
sull'etichetta chiave F7 fa il genhlp con l'UTENTE HELP
del && di programma () se ((di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) = “CRITCATS.DBF ")) sull'etichetta chiave PgDn fa DispSecn
sull'etichetta chiave PgUp fa il endif
di DispPrim
attiva la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 prompt2
@ 0.11-1 prompt3
@ 0.15-1 prompt4
se (di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
radrizza (sistema (16.2), 12) = “CRITTERS.FXP„ .and a destra (dbf (), 12) =
“di CRITCATS.DBF ")) @ 0.20-1 prompt5
@ 0.28-1 che il menu rapido del endif
di prompt6
a choice
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= 'scelta della cassa del Br/> del quit'< = opzione di 1
= 'scelta della cassa del Br/> del modify'< = opzione di MAINTMNU
della finestra del rilascio di 2
= 'scelta della cassa del Br/> del quit'< = opzione di 3
= 'scelta della cassa del Br/> del delete'< = 4
definisce il fil_wndw della finestra a partire da 1.50 alle doppie combinazioni colori 6.77 12
attivano l'intestazione del fil_wndw
della finestra = 'Br/> @ 1.00 del Filter'< dicono spazio (13-len (intestazione) /2) + header
@ 3.04 dicono che 'il Br/> del '< del @ 3.05 menu del Br/> del Cancel'< di richiamo 3.16 del Br/> del Set'< di richiamo '@ 'a fil_opt
se il fil_opt = l'opzione di 1
= 'regolano il endif
del Br/> del filter'< se il fil_opt = l'opzione di 2
= 'scelta di caso del fil_wndw
della finestra del rilascio del endif
del Br/> del filter'< dell'annullamento = opzione di 5
= “Br/> del primary'< fanno la scelta di caso di DispPrim
= l'opzione di 6
= “Br/> del secondary'< fa il endcase
di DispSecn
disattiva la finestra MAINTMNU
se (di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizzano (dbf (), 12) = “CRITDOGS.DBF ") .or. ; il
(di destra (sistema (16.2), 12) = “CRITTERS.FXP„ .and radrizza (dbf (), 12) = “")
di CRITCATS.DBF sull'etichetta chiave PgDn
sul option
* del endif
return di PgUp
dell'etichetta - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
function mntmnuf22
KeyF2 =. Lo s_prgname di T.
= il choice
del plain
return
*L
function maintmnu3
* VARIABLES
del chr della tastiera del prog_name
(113) riservato tutti come la scelta del prompt*
= 4
prompt1 =„ elemosinano “il
prompt2 =„ estremità “il
prompt3 =„ Filt “il
Prompt4 =„ vanno “
prompt5 =„ lista “il
prompt6 =„ dopo “
prompt7 =„ Prev “il
prompt8 = prompt9 =„ macerano “il
prompt10 =„ salto “il
prompt11 =„ riscontro “il
prompt12 =„ < “
prompt13 =„ > “il
* WINDOWS
definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ rapporto del
ordina il menu„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
attivano il noshow
* 1 della finestra MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, 1 dice che 'elemosinare l'estremità Filt vanno lista Prev seguente rinunciato macera
*L
del riscontro di salto < > ' sull'etichetta chiave F7 fa il genhlp con l'UTENTE del && di programma () HELP
attiva la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.17-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.32-1 prompt8
@ 0.37-1 prompt9
@ 0.41-1 prompt10
@ 0.46-1 prompt11
@ 0.52-1 prompt12
@ il menu rapido di 0.54-1 prompt13
a choice
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= 'scelta della cassa del Br del quit' = opzione di 1
= 'scelta di caso del begin'< il Br/> = opzione di 2
= 'scelta della cassa del Br del end' = 3
definiscono il fil_wndw della finestra a partire da 1.50 a 6.77 le doppie combinazioni colori 12
attivano l'intestazione del fil_wndw
della finestra = 'Br/> @ 1.00 del Filter'< dicono che spazio (13-len (intestazione) /2) + header
@ 3.04 dicono 'il richiamo 3.05 del Br/> del '< del @ 'richiamo 3.16 'menu del Br/> del Set'< @ del Br/> del Cancel'< a fil_opt
se il fil_opt = l'opzione di 1
che = 'regolano il endif
del Br/> del filter'< se fil_opt = opzione di 2
= 'scelta di caso del fil_wndw
della finestra del rilascio del endif
del Br/> del filter'< dell'annullamento = 4
se di destra (sistema (16.3), 11) = 'l'opzione del Br/> di P_CONTR.FXP'< = 'al else
* del Br/> del printer'< fa la scelta di caso del endif
del && 11/27/93
del out_dev = l'opzione di 5
= 'scelta della cassa del Br/> del list'< = opzione di 6
= 'scelta della cassa del Br/> del next'< = opzione di 7
= 'Br del previous'< la scelta di caso di/> = l'opzione di MAINTMNU
della finestra del rilascio di 8
= 'scelta della cassa del Br/> del quit'< = opzione di 9
= 'scelta della cassa del Br/> del retrieve'< = opzione di 10
= 'scelta della cassa del Br/> dello skip'< = opzione di 11
= 'scelta della cassa del Br/> del tally'< = opzione di 12
= 'dalla scelta della cassa del Br/> del record'< = opzione di 13
= “al endcase
del Br/> del record'< disattivano il option
*L
function maintmnu4
* 10/19 di MAINTMNU
return della finestra - “menu4 aggiunti„ per permettere “vanno„ (stampa) da un maintnenace window.
* questo impianti lo stessi come il menu della stampa “vada„ ordine. Il choice
del
* VARIABLES
riservato tutti come la scelta del prompt*
= 0
prompt1 =„ aggiunge “il
prompt2 =„ elemosina “il
prompt3 =
„ della copia “prompt4 =
„ di Del “prompt5 =
„ dell'estremità “prompt6 =
„ di Filt “prompt7 =„ va “
prompt8 =
„ della lista “prompt9 =
„ di Modi “prompt10 =„ dopo “
prompt11 =
„ di Prev “prompt12 = prompt13 =„ macera “il
* nuovo Command
se di destra (sistema (16.2), 12) = else
del
“di CRITTERS.FXP„ .or radrizzano (sistema (16.3), 8) = “Br/> di USDA.FXP'< prompt14 =„ Sele “prompt14 = endif
del
„ di salto “prompt15 =
„ del riscontro “prompt16 =
* WINDOWS
„ dello zoom “definisce la finestra MAINTMNU da 95.0 a 105.190; il titolo„ manutenzione del
ordina il menu„; combinazioni colori dell'ombra del galleggiante del doppio del
2; la FONTE “Arial del
GRASSETTO„, 19
* SCREEN
SULL'ETICHETTA CHIAVE Alt+F12 SUSPEND
attiva il
* della finestra MAINTMNU ha commentato per VFP
SE. F.
se di destra (sistema (16.2), 12) = 'il Br/>* 1 di CRITTERS.FXP'< 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, 1 dice 'aggiungere elemosinano Copy Del End Filt vanno lista Modi Prev seguente rinunciato macera il else
@ 0, 1 del Br/> dello Zoom'< del riscontro di Sele dice che 'aggiungere elemosinano Copy Del End Filt vanno lista Modi Prev seguente rinunciato macera il Br/> ENDIF
ENDIF
* dello Zoom'< del riscontro di salto ha commentato per VFP
*L
se .not radrizzano (sistema (16.3), 11) =
“di ANIMALS.FXP " sull'etichetta chiave F1 fanno mntmnuf4 con 1
il endif
se .not radrizzano (sistema (16.3), 8) =
“di BIDS.FXP " sull'etichetta chiave F2 fa mntmnuf4 con il endif
di 2
se .not radrizzano (sistema (16.3), 12) =
“di CALENDAR.FXP " sul F3 chiave dell'etichetta che fanno mntmnuf4 con il endif
di 3
se .not radrizzano (sistema (16.3), 12) =
“di CONTRACT.FXP " sull'etichetta chiave F4 fanno mntmnuf4 con il endif
di 4
se .not radrizzano (sistema (16.3), 12) =
“di CRITTERS.FXP " sull'etichetta chiave F5 fanno mntmnuf4 con il endif
di 5
se .not. radrizzare (sistema (16.3), 11) =
“di INVOICE.FXP " sull'etichetta chiave F6 fanno mntmnuf4 con il endif
di 6
sull'etichetta chiave F7 fanno il genhlp con l'UTENTE che del && di programma () HELP
sull'etichetta chiave F8 fa mntmnuf4 con 8
se .not radrizzano (sistema (16.3), 10) =
“di PRICES.FXP " sull'etichetta chiave F9 fa mntmnuf4 con il endif
di 9
sull'etichetta chiave F10 fa mntmnuf4 con 10
sull'etichetta chiave F11 fa mntmnuf4 con 11
attiva la finestra MAINTMNU
fa lo s_choice di DispMenu
= la scelta del mChoice
= il mChoice
* ha commentato per VFP
SE. F.
@ 0, 1-1 prompt1
@ 0, 5-1 prompt2
@ 0, 9-1 prompt3
@ 0.14-1 prompt4
@ 0.18-1 prompt5
@ 0.22-1 prompt6
@ 0.27-1 prompt7
@ 0.30-1 prompt8
@ 0.35-1 prompt9
@ 0.40-1 prompt10
@ 0.45-1 prompt11
@ 0.50-1 prompt12
@ 0.55-1 prompt13
@ 0.59-1 prompt14
@ 0.64-1 prompt15
@ il menu rapido di 0.70-1 che prompt16
a choice
ENDIF
* ha commentato per VFP
fanno la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= 'scelta della cassa del Br/> del quit'< = l'opzione di 1
= 'scelta della cassa del Br/> del add'< = opzione di 2
= 'scelta della cassa del Br/> del begin'< = opzione di 3
= 'scelta della cassa del Br/> del copy'< = opzione di 4
= 'scelta della cassa del Br/> del delete'< = opzione di 5
= 'scelta della cassa del Br/> del end'< = 6
definisce il fil_wndw della finestra a partire da 1.50 a 6.77 le doppie combinazioni colori 12
attivano l'intestazione del fil_wndw
della finestra = 'Br/> @ 1.00 del Filter'< dicono che spazio (13-len (intestazione) /2) + header
@ 3.04 dicono 'il Br/> del '< del @ 3.05 menu del Br/> del Cancel'< di richiamo 3.16 del Br/> del Set'< di richiamo '@ 'a fil_opt
se il fil_opt = l'opzione di 1
= 'hanno regolato il endif
del Br/> del filter'< se fil_opt = opzione di 2
= 'scelta di caso del fil_wndw
della finestra del rilascio del endif
del Br/> del filter'< dell'annullamento = opzione di 7
= 'scelta della cassa del Br/> del go'< = opzione di 8
= 'scelta della cassa del Br/> del list'< = opzione di 9
= 'che scelta della cassa del Br/> del modify'< = opzione di 10
= 'scelta della cassa del Br/> del next'< = opzione di 11
= 'scelta della cassa del Br/> del previous'< = opzione di MAINTMNU
della finestra del rilascio di 12
= 'scelta della cassa del Br/> del quit'< = opzione di 13
= 'scelta della cassa del Br/> del retrieve'< = 14
l'opzione = 'scelta della cassa del Br/> dello skip'< = opzione di 15
= “scelta della cassa del Br/> del tally'< = opzione di 16
= “appunto del rele del vento MAINTMNU4
del rele del vento MAINTMNU4
del deac di MAINTMNU
del vento del rele di MAINTMNU
del vento del deac del endcase
del Br/> dello zoom'< come il option
*L
* del prompt*
return ha aggiunto per il mCHOICE PUBBLICO del
procedure DispMenu
di VFP, mGET, cCHOICE, DEPOSITO 0 del cCHOICES
a mCHOICE, "" del DEPOSITO del mGET
a cCHOICE, nCOL del cCHOICES
* = (WCOLS () /2.0) - 19
* aggiunge elemosina Copy Del End Filt va lista Modi che Prev seguente rinunciato macera il nPad del Br/>
dello Zoom'< del riscontro di salto = il nROW di 3
= il nCOL di 0
* 1
= 0
OTTENGONO CON nROW, nCOL,„ \ nCOL = nCol
del OTTENGONO CON nROW, nCOL nCOL = nCol del
OTTENGONO CON nROW, nCOL,„ \ " nCOL = nCol + 4 + nPad
OTTENGONO CON nROW, nCOL nCOL = nCol del
* 5
OTTENGONO CON nROW, nCOL, “\ nCOL = nCol
del OTTENGONO CON nROW, nCOL nCOL = nCol del
OTTENGONO CON nROW, nCOL nCOL = nCol del
OTTENGONO CON nROW, nCOL nCOL = nCol del
* 10
OTTENGONO CON nROW, nCOL nCOL = nCol del
OTTENGONO CON nROW, nCOL
+ 4 + nPad
OTTENGONO CON nROW, nCOL, “\ + 4 + nPad
OTTENGONO CON nROW, nCOL + 3 + nPad
OTTENGONO CON nROW, nCOL, “\ " nCOL = nCol del
* 15
+ 4 + nPad
OTTENGONO CON nROW, il nCOL,„ \ + 5 + nPad
OTTENGONO CON nROW, nCOL
* \ “, " aggiungono elemosinano Copy Del End Filt vanno lista Modi Prev seguente Rinunciato macerare il cCHOICES del Br/>
dello Zoom'< del riscontro di salto = il cCHOICES + “12Q " cCHOICE del
= mCHOICE del mCHOICE
del fnCUROBJ
PARAMETERS del
FUNCTION del fnCHOICE (cCHOICES, “Q„) = _CUROBJ
RETURN. nROW di T.
PROCEDURE GET
PARAMETERS, nCOL, cFUNC, bSKIP
nSIZE2 = LEN (STRTRAN (cFUNC,„ \ <")) + nROW del
di 2
@, nCOL OTTENGONO LA FUNZIONE “* “+IIF (bSKIP,„ \ \ “, "") +cFUNC del mGET; Il nROW VALIDO del
* del fnCUROBJ del
(@mCHOICE) @, nCOL OTTIENE LA FUNZIONE “* “+IIF (bSKIP,„ \ \ “, "") +cFUNC del mGET; DIFETTO VALIDO del
* del fnCUROBJ del
(@mCHOICE) 1 FORMATO 1, nSIZE2 nota VALIDA del
* del fnCUROBJ (@mCHOICE): nSIZE2 non è usato qualunque altro cCHOICES del fnCHOICE
PARAMETERS di place.
RETURN
FUNCTION, cDEF
HA LETTO il mCHOICE del mCHOICE
dell'OGGETTO del CICLO = il
RETURN IIF (mCHOICE di IIF (LASTKEY () =27, A (cDEF, cCHOICES), mCHOICE) > 0, estremità del
* di SUBSTR (cCHOICES, mCHOICE, 1), "") - aggiunta per VFP
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - suspend
del
function mntmnuf4
parameter KeyF_no
* fare il caso KeyF_no = 1
del case
KeyF1 =. Caso KeyF_no = 2
di T.
KeyF2 =. Caso KeyF_no = 3
di T.
KeyF3 =. Caso KeyF_no = 4
di T.
KeyF4 =. Caso KeyF_no = 5
di T.
KeyF5 =. Caso KeyF_no = 6
di T.
KeyF6 =. Caso KeyF_no = 8
di T.
KeyF8 =. Caso KeyF_no = 9
di T.
KeyF9 =. Caso KeyF_no = 10
di T.
KeyF10 =. Caso KeyF_no = 11
di T.
KeyF11 =. s_FkeyRec del endcase
di T.
= s_prgname del
di recno () = prog_name
se il prog_name = “PAGABILE„ ed altrimenti detto () = s_FkeyPag del
“di PAYDETL " = s_FkyMRec prescelto del payable
di 2
= choice
del plain
return
*L
function maintmnu5
* VARIABLES
del chr della tastiera del endif
del
di recno () (113) riservato tutti come la scelta del prompt*
= 0
prompt1 = prompt2 =
* WINDOWS
„ di Modi “definisce la finestra MAINTMNU da 22.0 a 24.79; il titolo„ manutenzione del
ordina il menu„; le combinazioni colori dell'ombra del galleggiante del doppio del
2
* SCREEN
SULL'ETICHETTA CHIAVE Alt+F12 SUSPEND
attivano il noshow
* 1 2
della finestra MAINTMNU @ 0, 1 dice che 'il Br rinunciato/>*L
del Modi'< sull'etichetta chiave F7 fa il genhlp con l'UTENTE del && di programma () HELP
attiva la finestra MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 il menu rapido di prompt2
a choice
fa la scelta di caso del case
= l'opzione di MAINTMNU
della finestra del rilascio di 0
= 'scelta della cassa del Br/>
del quit'< = opzione di MAINTMNU
della finestra del rilascio di 1
= 'scelta della cassa del Br/>
del quit'< = opzione di 2
= 'Br del modify'< il endcase
di/>
disattiva il out_dev
del option
*L
function di MAINTMNU
return della finestra definisce il fil_wndw della finestra a partire da 1.40 a 6.77 le doppie combinazioni colori 12
attivano l'intestazione del fil_wndw
della finestra = 'Br/> @ 1.00 del Print'< dicono che spazio (19-len (intestazione) /2) + header
@ 3.04 dicono 'il Br/> dello Screen'< di richiamo 3.05 del Br/> del '< del del @ '@ 3.16 menu del Br/>
del File'< di richiamo 3.26 del Br/> del Laser'< di richiamo '@ 'a fil_opt
se fil_opt = opzione di 1
= 'al endif
del Br/> dello screen'< se fil_opt = opzione di 2
= 'al endif
del Br/> del laser'< se fil_opt = 3
= 'al akl vicino del ********** del save_rec
del
*L
function del databases
/>return vicino del databases
return del all
della finestra di esposizione del fil_wndw
return '' restenv
del
*L
function per che i=1 al i_str del no_pages
= allo streptococco (i, 1)
se endfor
del endif
del usr_wndw&i_str
della finestra del rilascio del
di wexist ('i_str di usr_wndw'+) se wexist (“lo screen
@ 0.62 di acti del endif
del maintmnu
della finestra del rilascio del ")
dicono lo spazio (7)
@ 0.70 dicono lo spazio (9)
della finestra del rilascio del endif
del Br/> del file'< ''
*L
function restenvr
rilascio finestra usr_wndw
esposizione finestra all
di 1:55 se il prog_name = “OFFRE„ il prog_name di .or = “CONTRATTO„ .or. ; prog_name del
= prog_name di .or “della FATTURA„ = “SUBRENT„ .or. ; il prog_name del
= “TRACCIA„ il prog_name di .or = “di HELTHCRT " il
fa SpellChk con l'annotazione del && “di Rec„ (Rec) o il
del campo (Fld) se di destra (sistema (16.3), 8) = “USDA.FXP " il
fa il getfldA con„ di .t. “
fa il getfldB con il else
del
„ di .t. “fa il getfld con il
del ********** del endif
del endif
del
„ di .t. “se confermare (“salvo ")
aggiungono il blank
se di destra (sistema (16.3), 12) = il sele 2
del
“di CONTRACT.FXP " aggiunge il sele 3
del blank
aggiunge il blank
di/>/> = akl del ********** del
del rlock (): DHR - Am
di 12:37 del campo USDA.NAME 7/23/96 se prog_name =
“di DHR " usda = memo
di gather del
del ********** del endif
di usda.usda
se di destra (sistema (16.3), 12) = unlock
del endif
del sele 1
del memvar
di gather del sele 3
del memvar
di gather del sele 2
del
“di CONTRACT.FXP " * ripristinare il filter
se .not svuotano (filtro ())
* Controllare se record_no del filter
dei fiammiferi dell'annotazione = salto -1
dello skip
del
di recno () se il && di record_no del <> di recno () nessun match
=
del _begin () se il && del &at_eof rimuove il to
del filtro dal filter
va endif
che del endif
del endif
del record_no
il && di ritorno del sav_wind del endif
return .f.
*L
procedure di .t.
collegato a F10 dal w_name
di parametro del gen_hlp
sostituisce la fronte con wlrow (w_name), bcol con il wlcol (w_name); erow del
con wlrow (w_name) + wrows (w_name) + 1; ecol del
con il wlcol (w_name) + wcols (w_name) + && Ctrl-w del chr della tastiera di 1
(23) per uscire finestra con il set_bndry
* salto stabilito -1
del save
return
*L
function del boundaries
se top_mark del
del BOF () = top_mark del else
di 0
= salto 1
del endif
di salto 1
del
di recno () se bot_mark del
di eof () = bot_mark del else
di -1
= recno ()
endif
salto stp_prnt
del
*L
function di -1
return '' sullo zoom_no del escape
= sullo zoom_num di 1
= '1 ' brk_no del
= brk_num di 1
= '1 'il
seleziona il done_cond di 1
= '
return di &ndx_exp>last_val.or.eof () 'al n_vald_fld del val_fil
parameters del _print
*L
function, ref_fld, vald_alias, getpos, vald_fld del fld_size
= clear
dello screen
di acti del off
di vista del &n_vald_fld
if .f.
per i = 1 a 25
?
next
?
? “Parametri: “
? “n_vald_fld > " +n_vald_fld+ " < "
? “vald_fld > " +vald_fld+ " < "
? “ref_fld = “+ref_fld
? “vald_alias = “+vald_alias
? “getpos = “
?? getpos
? “fld_size = “
?? il at_eof riservato del fld_size
endif
, il at_bof, insieme del record_no
notifica il is_valid del off
= il at_eof di .f.
= 'at_bof del
di eof () '= 'save_alias del
del BOF () '= altrimenti detto () empty_field del
=. Il &vald_alias
di F.
fa il tipo di caso del case
(“vald_fld„) = 'srch_str del Br/> del D'< = streptococco (anno (m->vald_fld), 4) + streptococco (mese (vald_fld), 2)+str (giorno (vald_fld), tipo di caso di 2)
(“vald_fld„) = 'srch_str del Br/> del N'< = streptococco (vald_fld, fld_size)
se vald_fld = empty_field di 0
=. Srch_str del otherwise
del endif
di T.
= vald_fld
se len (disposizione (vald_fld)) = empty_field di 0
=. Endcase
del endif
di T.
se il tipo (“vald_fld„) = 'Br/> del N'< individua per &ref_fld = srch_str
if .f.
di ricerca del else
del
(dello srch_str)?
? “Cercando > " +srch_str+ " < "
se ()
? Else
del
? Endif
if .f.
del endif
endif
del
?
? “eof () = “
??
endif
di eof () se is_valid del found
del && di .not eof () = else
di .t.
se empty_field
se di destra (sistema (16.3), 12) = il is_valid del
“di CRITTERS.FXP " = il is_valid del else
di .f.
= i leftpos del off
dello srch_str
di ricerca del on
del else
del endif
di .t.
= il
dello iif (getpos > 40.4.43) definiscono il brws_wndw della finestra da 6, leftpos a 15, leftpos+30; il galleggiante dello zoom del sistema del
coltiva le combinazioni colori vicine dell'ombra 10
sull'etichetta chiave ENTRA nel
del chr della tastiera (23) attiva il noshow
del brws_wndw della finestra passa in rassegna l'ultimo noappend nomodify il clear
dello screen
di acti del off
di vista del brws_wndw
if .f.
della finestra del rilascio del brws_wndw
della finestra del nodelete per i = 1 a 25
?
next
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < " il
endif
fanno il tipo di caso del case
(“ref_fld„) = 'Br/>if .f.
del C'? “Il campo è
del CARATTERE "? “tipo (ref_fld) = > " +type (ref_fld) + " < "
? “ref_fld = > " +ref_fld+ " < "
? “il &ref_fld = > nome del
“del m->name
sul &ref_fld
della tastiera del suspend
endif
* di ENTER
* dell'etichetta fa il n_vald_fld di caso del case
= = is_valid del gets
di esposizione del &ref_fld
= n_vald_fld di caso di .t.
= anml_name del
“del m->anml_name " = is_valid del gets
di esposizione del &ref_fld
= n_vald_fld di caso di .t.
= crit_name del
“del m->crit_name " = is_valid del gets
di esposizione del &ref_fld
= n_vald_fld di caso di .t.
= job_no del
“di m->job_no " = is_valid del gets
di esposizione del &ref_fld
= n_vald_fld di caso di .t.
= map_no del
“di m->map_no " = is_valid del gets
di esposizione del &ref_fld
= tipo di caso del endcase
di .t.
(ref_fld) = 'tipo di caso del
del dtoc della tastiera del Br/> del D'< (&ref_fld) (ref_fld) = 'ltrim della tastiera del Br/> del N'< (streptococco (&ref_fld))il endcase
del
sull'etichetta chiave ENTRA nel && riassegna il endif
if .f.
del endif
del value
?
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
“del is_valid= "?? l'insieme prescelto del &save_alias
del is_valid
endif
notifica il vald_fld del orig_val_fil
parameters del is_valid
*L
function del off
return, il ref_fld, i vald_alias, i getpos, lo screen
clear
for i = 1 del off
acti di vista del fld_size
set a 25
?
next
?
? “Parametri: “
? “vald_fld > " +vald_fld+ " < "
? “ref_fld = “+ref_fld
? “vald_alias = “+vald_alias
? “getpos = “
?? getpos
? “fld_size = “
?? il at_eof riservato del fld_size
, il at_bof, insieme del record_no
notifica il is_valid del off
= il at_eof di .f.
= 'at_bof del
di eof () '= 'save_alias del
del BOF () '= altrimenti detto () empty_field del
=. Il &vald_alias
di F.
fa il tipo di caso del case
(“vald_fld„) = 'srch_str del Br/> del D'< = streptococco (anno (m->vald_fld), 4) + streptococco (mese (vald_fld), 2)+str (giorno (vald_fld), tipo di caso di 2)
(“vald_fld„) = 'srch_str del Br/> del N'< = streptococco (vald_fld, fld_size)
se vald_fld = empty_field di 0
=. Srch_str del otherwise
del endif
di T.
= vald_fld
se len (disposizione (vald_fld)) = empty_field di 0
=. Endcase
del endif
di T.
se il tipo (“vald_fld„) = 'Br/> del N'< individua per &ref_fld = srch_str
di ricerca del else
del
(dello srch_str)?
? “Cercando > " +srch_str+ " < " il
if hanno trovato () il
?
else
? Endif
del
endif
?
? “eof () = “
??
di eof () se is_valid del found
del && di .not eof () = else
di .t.
se empty_field
se di destra (sistema (16.3), 12) = il is_valid del
“di CRITTERS.FXP " = il is_valid del else
di .f.
= i leftpos del off
dello srch_str
di ricerca del on
del else
del endif
di .t.
= il
dello iif (getpos > 40.4.43) definiscono il brws_wndw della finestra da 6, leftpos a 15, leftpos+30; il galleggiante dello zoom del sistema del
coltiva le combinazioni colori vicine dell'ombra 10
sull'etichetta chiave ENTRA nel
del chr della tastiera (23) attiva il noshow
del brws_wndw della finestra passa in rassegna l'ultimo noappend nomodify il clear
dello screen
di acti del off
di vista del brws_wndw
*if .f.
della finestra del rilascio del brws_wndw
della finestra del nodelete per i = 1 a 25
?
next
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
se
del chrsaw ()? “L'amplificatore di tastiera non è " else
del
? “L'amplificatore di tastiera è " endif
*endif
del
fa il tipo di caso del case
(ref_fld) = 'Br/> del C'? “Il campo è
del CARATTERE "? “tipo (ref_fld) = > " +type (ref_fld) + " < "
? “ref_fld = > " +ref_fld+ " < "
? “&ref_fld = > " +&ref_fld+ " < " tipo di caso del plain
del && del &ref_fld della tastiera del
(ref_fld) = 'tipo di caso del
del dtoc della tastiera del Br/> del D'< (&ref_fld) (ref_fld) = 'ltrim della tastiera del Br/> del N'< (streptococco (&ref_fld))il endcase
/>*is_valid = .t.
sull'etichetta chiave ENTRA nel && riassegna il endif
if .f.
del endif
del value
?
se
del chrsaw ()? “L'amplificatore di tastiera non è vuoto. “
? „ L'amplificatore contiene: > "
?? 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
del
? “L'amplificatore di tastiera è " endif
endif
del
?
? “> " +type (ref_fld) + " < "
? “> " +ref_fld+ " < "
? “> " +&ref_fld+ " < "
?
“del is_valid= "?? l'insieme prescelto del &save_alias
del suspend
*endif
del is_valid
* notifica il getcond di parametri del var_get
del is_valid
*L
function del off
return, il fld_usg
* freccia sinistra Check
* questa funzione è stato generato perché Donna ha voluto colpire la freccia sinistra Key
* e fare andare il cursore all'ultimo campo dello schermo precedente. A this
* è installato per i contratti. 10/05/99 di am
di 10:19 se di destra (sistema (16.2), 12) =
“di CONTRACT.FXP " se page_no = 1
se LArrow =. T.
LArrow =. F.
NewOnum = _curobj di 28
= endif
akl=.F.
se di destra (sistema (16.2), 11) = “INVOICE.FXP„ .and radrizzano (sistema (16.7), 12) del endif
del endif
di NewOnum
=
akl=.T.
“di FS_SPELL.FXP " attivano lo zoom_num del x_zoom
del &getcond
*L
function del endif
return dello spell_win
della finestra = lo streptococco (zoom_no, at_bof di 1)
= at_eof del at_bof&zoom_num
= at_eof&zoom_num
ndx_var = first_page del ndx_var&zoom_num
= val (substr (page_seq&zoom_num, 1.1))il last_page del
= (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1))
* se una nuova pagina, visualizza il nuovo screen
se il page_no del page_no
del <> di first_page = il first_page
fanno il redisp_fld del disscr
= il endif
di .t.
* nuova zona prescelta dello zoom, ha regolato la nuova parte superiore e il marks
della parte inferiore seleziona il record_no del &zoom_num
= il
di recno () se zoom_no = 1 reccount di .or () = top_mark di 0
= bot_mark di 0
= else
di -1
lnk_var = &lnk_var
di ricerca del lnk_var&zoom_num
se endif
di salto -1
del
del BOF di .not () se BOF() top_mark del
= top_mark del else
di 0
= endif
del
di recno () se bot_mark del endif
dello skip
del
di .not eof () = && -2 da determinare in zoom_no del endif del _end
di funcion = nel
function y2kfix1
parameter FieldName
* di 1
return '' che denomina sintassi: y2kfix1 valido (sistema (18))
MoValu = streptococco (mese (m.&FieldName), 2, 0)
DyValu = streptococco (giorno (m.&FieldName), 2.0)
YrValu = streptococco (anno (m.&FieldName), 4,0)
YrRHT = di destra (YrValu, 2)
se <= val val 99
YrLFT del >= 80 .and (di YrRHT) (YrRHT) = “19 " else
YrLFT del
= “20 " endif
YrValu del
= &FieldName di YrLFT+YrRHT
=
return del ctod„/„/““(di MoValu+ di +DyValu+ +YrValu). Il *
* del
* del *** del del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** di T.
*L
il resto di questa biblioteca sarà l'ultima volta per i nuovi schermi del campo di scrolling con *
* l'abilità a dal primo campo dello schermo corrente al campo del *
* dello schermo precedente, dato che lo schermo corrente non è lo schermo del *
* primo. In quale la chiave del è ignorata. La chiave del *
* non è stata cambiata in nessun modo. Arrotolare - multi pubblicare il *
* di di 2:07 della finestra 10/16/95 ha aggiunto il - 10/29/95 di _newadd
del
function del *** del del ********** del del ********** del del ********** del del ********** del del ********** del del ************************** del *
del *
* di di 2:10 se lo zoom_no = 1
vanno endif
del bottom
fa lo str_empty
fa il default
= terminazione del _newmodify
del
*L
function del
return del
return del newadd_rec () '' _newcopy
*=============================================================================
function/> = '' = .f.
sull'etichetta chiave PGUP fa NewPageUp
sull'etichetta chiave PGDN fa NewPageDn
se getcond del modify_key
=„ “G„ fld_usg " getcond di $ del else
del
=„ fld_usg .and .not “di G„ $. Il fld_usg " getcond del endif
del
=„ 'il
“di K„ $ del fld_usg di G'$ " se di destra (sistema (16.3), 8) =
“di USDA.FXP " fa il getfldA con il
„ di .t. “fa il getfldB con il else
del
„ di .t. “fa il getfld con lo s_lastkey del read
del endif
del
„ di .t. “= il
di lastkey () * CLEANUP
sull'etichetta chiave PGUP
su stat stabilito stabilito chiave del to
del messaggio di PGDN
dell'etichetta fuori da && questo ha dovuto essere messo dentro perché lo STAT del && di SET
FUORI da solo non ha cancellato il message
se $ più akl_test 'il on
che di stat del Br/> del Yy'< il endif
del on
di esca se s_lastkey = 27 terminazione di Esc
del && =
di ritorno '' endif
* controllo del
per lo s_recno del duplicate
= il &ndx_var
di ricerca del
di recno () se allow_dup&zoom_num
= dismsg (chr (7) + “terminazione del ")
dell'annotazione del duplicato = endif
del return
di .t.
s_recno
* visualizzare i campi di occhiata e il variables
fa il lookup
fa il calcul con .t.
se di destra (sistema (16.3), 8) = “USDA.FXP " di .t.
fa il getfldA con il fanno il getfldB con il else
„ di .t. “/> fanno il getfld con il akl libero del ********** del gets
del endif
del
„ di .t. “: In primo luogo, controllare l'ortografia del 3/19/96 di am
di 1:55 se il prog_name = “OFFRE„ il prog_name di .or = “CONTRATTO„ .or. ; prog_name del
= prog_name di .or “della FATTURA„ = “SUBRENT„ .or. ; il prog_name del
= “TRACCIA„ il prog_name di .or = “HELTHCRT " il
fa SpellChk con “Rec„ annotazione del && (Rec) o il
del campo (Fld) se di destra (sistema (16.3), 8) = “USDA.FXP " il
fa il getfldA con„ .f. “il
fa il getfldB con„ .f. “il else
del
fa il getfld con„ .f. “il
del ********** del endif
del endif
del
fa il calcul con .t.
se abort
di .not se confermare (“salvo il save_rec record del ")
=. Il memo
di gather di T.
se di destra (sistema (16.3), 12) = lo s_lastkey del
*L
function NewPageDn
del endif
/>return “di CONTRACT.FXP " il
il sele 2
il gather il memvar
il sele 3
il gather il memvar
il sele 1
il endif
il endif
di lastkey () fanno il _curobj di caso del case
< il _curobj di 20
= il _curobj di caso di 20
= il _curobj di 20
= il _curobj di caso di 21
= il _curobj di 21
= lo s_lastkey del endcase
return
*==========================================================================
function NewPageUp
di 22
= il
di lastkey () fa il _curobj di caso del case
= il _curobj di 20
= il _curobj di caso di 1
= il _curobj di 21
= il _curobj di caso di 20
= il _curobj di 22
= lo spelling
* del controllo del endcase
return
*L
function SpellChk
parameters CheckType
* di 21
per controllare l'ortografia, un campo alla volta, “
* di SPELLCHK VALIDO (“Fld ") ““@… OTTENGONO„ a statement.
nel off
dell'orologio se CheckType = && “di Fld„ questo controlli un campo poichè è exited.
FieldToCheck =
FieldText = m.&FieldToCheck
di VarRead () se .not svuotano (disposizione (FieldText))il
fa fs_modal con. T.. Endif
del endif
di F.
se CheckType = && “di Rec„ questo controlli TUTTI I campi in un bu_cancel di screen.
= 0 && se i cancles dell'utente, FS_SPELL () lo regolino al numero del field_max di 1.
= del && di FCOUNT () dei campi nel record.
PER il field_num = 1 al ciclo del && del field_max tramite tutto lo schermo fields.
SE TIPO (CAMPO (field_num)) $ di && “di MC„ se il fld_name del carattere o dell'appunto field.
= il && del CAMPO (field_num) determinano name.
del campo contents.
del giacimento dell'estratto del && di m.&fld_name = di fld_2check SE len (disposizione (fld_2check)) > lle lettere di 1 bisogno 2 del && per funzionare with.
* spazio in bianco di ÚÄÄÄÄLeave dato che usato soltanto per passare in lima names.
* ³ ÚÄÄÄÄPass nella copia dell'appunto da essere checked.
* arresto di ³ ³ ÚÄÄÄÄDon't dopo ogni memo.
* v
= FS_SPELL ("", @fld_2check. Chiamata Foxspell Checker.
del && del F.) m.&fld_name = fld_2check
ENDIF
ENDIF
SE bu_cancel = 1 && se l'utente annullato, allora FINESTRA di ATTESA di exit.
“rinunci il controllo ortografico! “lo s_sel del endif
del
EXIT
ENDIF
NEXT
= (0)
seleziona il on
return dell'orologio del
del use
del use
WORDS3
del use
WORDS2
di WORDS1
(s_sel). T.
* EOF GENLBR.PRG
class= del
|
