Ceci a été écrit il y a 20 ans dans FoxPro pour le DOS. Je suis en cours d'évolution à Fox9. Pouvez-vous svp m'aider avec obtenir VFP pour changer les couleurs sur un menu ? Woulf I comme les articles d'option de menu pour avoir dépendre différent de couleur ce qui est choisi par les flèches haut/bas. Un autre problème que j'ai est quand je repose le curseur sur n'importe quel article de menu, le menu entier part. Je sais qu'I a inclus beaucoup de code ici, mais le code réel est en service très petit et facile à isolate.
Thank vous pour être là et m'aider avec mon début de problem.
* de Menu
* Environment
* supplémentaire pour VFP
CLAIREMENT ALL
* avez commenté pour VFP9
* PARAMETER
* supplémentaire pour VFP9
parm1_=. T.
parm2_=. DÉFAUT RÉGLÉ de T.
à l'akl_test
d'OFF
d'ÉCHO d'OFF
d'ENTRETIEN du
de c:\crit\CODE SI TYPE (« parm1_ ») = « Br/> de L'< akl_test = « else
* du
* de l'essai "
akl_test = « Y "
ELSE
akl_test = « N " akl_system PUBLIC de l'akl_system
du
ENDIF
ENDIF
= « Y "
* si type (« parm2_ ») = « akl_system du Br/>* de L'< = « N " de Y "
ELSE
SI parm1_ = « si parm2_ = akl_system du
* de « akl " = else
* du
* de « Y " akl_system = AFFICHAGE RÉGLÉ du Br/> de Y'< de « N " DÉVELOPPEMENT FLAGS
de l'endif
* de l'endif
* du
* SI le $ akl_test « À L'HORLOGE RÉGLÉE RÉGLÉE RÉGLÉE RÉGLÉE d'Off
* de VUE d'ON
* de STATUT d'ON
d'ÉVASION de VGA50
À L'HORLOGE RÉGLÉE de 48,69
ELSE
* à l'horloge de 24.69 tours au loin pour le modi_memo de VFP
ENDIF
* ENVIRONMENT
=. T.
SUR L'ÉTIQUETTE PRINCIPALE f12 FONT le _popcal
SUR L'ÉTIQUETTE PRINCIPALE ctrl+f12 FONT des rundos AVEC le
de « COMMAND.COM " SI (DESSUS (« clef », « ctrl+o ")) le
FONT LE PROCÉDÉ FIXE du fs_setup
ENDIF
au genlbr
= OPTION CLAIRE du
WINDOWS
d'envrnmnt () = » des « goodpass du
=. F.
FONT COLORS
* que tout le code de touche de FONCTION sera enlevé. Le s_zoom_no de SETTINGS
de TOUCHE de FONCTION = le s_lastkey de 0
= 0 && sauf le dernier s_prgname principal de l'entered
= '' && sauf le nom de programme using un s_FkeyRec du function
= 0 && sauf le s_FkeyPag de Number
de disque de touche de fonction = 0 && sauf le s_FkyMRec de Number
de page de touche de fonction = 0 && sauvent le nombre record PRINCIPAL de FKey. 1/10/97 && du
de 0h28 du matin (akl) ---- Le premier a eu besoin dans PAYABLE quand F1 du listmenu de Detail.
=. F. le && a fait nous viennent du menu de liste ? utilmenu du
=. F. le && a fait nous viennent du menu d'utilisation ?
du
KeyF1 =. Drapeau de && de F. - de n'importe quoi à Animals
KeyF2 =. Drapeau de && de F. - de n'importe quoi à Bids
KeyF3 =. Drapeau de && de F. - de n'importe quoi à Calendar
KeyF4 =. Drapeau de && de F. - de n'importe quoi à Contracts
KeyF5 =. Drapeau de && de F. - de n'importe quoi à Critters
KeyF6 =. Drapeau de && de F. - de n'importe quoi à Invoices
KeyF8 =. Drapeau de && de F. - de n'importe quoi à Payables
KeyF9 =. Drapeau de && de F. - de n'importe quoi à Prices
KeyF10 =. Drapeau de && de F. - de n'importe quoi à la production Companies
KeyF11 =. Drapeau de && de F. - de n'importe quoi à Receivables
* a commenté pour le choix = le 0
de VFP
* VARIABLES
prompt1 = » 1. les animaux « le
prompt2 = » 2. offres « le
prompt3 = » 3. le calendrier « le
prompt4 = » 4. contrats « le
prompt5 = » 5. créatures « le
prompt6 = » 6. factures « le
prompt7 = » 7. étiquettes « le
prompt8 = » 8. listes « le
prompt9 = » 9. prix « le
* prompt10 = copie « le
» de P. prompt10 = stat « le
» de S. prompt11 = utilités « le
des » d'U. prompt12 = » aide le «
prompt13 = » a stoppé le «
* a commenté pour VFP
* WINDOWS
* a commenté pour VFP
* définissent le crit de fenêtre de 2.2 à 22.75 ; titre » menu principal du
de créatures » ; arrangement de couleur d'ombre de flotteur de double du
2 ; la POLICE « Arial du
"BOLD" », 25
*Added pour VFP.
DÉFINISSENT le crit de FENÊTRE de 2.2 à 90.170 ; TITRE » menu principal du
de créatures « ; Arrangement de COULEUR d'OMBRE de FLOTTEUR de DOUBLE du
2 ; Br "BOLD"/> @ 0.34 de Yy'< de « Arial de POLICE du
», 25
* SCREEN
CLEAR
= éclatent le
ACTIVATE SCREEN
(de 2.2.22.75.50.1) SI le $ akl_test le « INDIQUENT que « l'essai sur le » else
* @ 0.70 de la COULEUR w+/N
* indiquent l'espace (9)
ENDIF
*L
* TRAITANT LOOP
FONT TANDIS QUE. T.
ACTIVENT le crit
de FENÊTRE FONT le s_choice du disscr
= le choix du mchoice
= le *
* du
* de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** du mchoice
que c'est un programme tempoary pour rechercher des reproductions dans un *
de .DBF SI .NOT Br/>* de Yy'< du $ akl_test le « font dup1chk
* font le
de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** du *
de dup2chk
ENDIF
* SUR L'ÉTIQUETTE PRINCIPALE f7 FONT le genhlp AVEC L'UTILISATEUR de && de PROGRAMME () HELP
FONT le choix de CAS de CASE
= 0 DÉGAGEMENTS du
de && Crit
de FENÊTRE SI le choix de CAS du
RETURN
ELSE
QUIT
ENDIF
de $ akl_test « Yy " = 1 .AND. (DOSSIER (« ANIMALS.PRG ").OR.FILE (« ANIMALS.FXP ")) le
FONT des animaux AVEC le choix de CAS du
de PROGRAMME () = 2 .AND. (DOSSIER (« BIDS.PRG ").OR.FILE (wbr/> de 'BIDS.FXP'<))Le
FONT des offres AVEC le choix de CAS du
de PROGRAMME () = 3 .AND. (DOSSIER (« CALENDAR.PRG ").OR.FILE (« CALENDAR.FXP ")) le
classent AVEC le choix de CAS du
de PROGRAMME () = 4 .AND. (DOSSIER (« CONTRACT.PRG ").OR.FILE (« CONTRACT.FXP ")) le
se contractent AVEC le choix de CAS du
de PROGRAMME () = 5 .AND. (DOSSIER (« CRITTERS.PRG ").OR.FILE (« CRITTERS.FXP ")) le
FONT des créatures AVEC le choix de CAS du
de PROGRAMME () = 6 .AND. (DOSSIER (« INVOICE.PRG ").OR.FILE (« INVOICE.FXP ")) le
facturent AVEC le choix de CAS du
de PROGRAMME () = 7 .AND. (DOSSIER (« P_LABELS.PRG ").OR.FILE (« P_LABELS.FXP ")) le
FONT des p_labels AVEC le choix de CAS du
de PROGRAMME () = 8 .AND. (DOSSIER (« LISTS.PRG ").OR.FILE (« LISTS.FXP ")) le
FONT le choix de CAS du lists
= 9 .AND. (DOSSIER (« PRICES.PRG ").OR.FILE (« PRICES.FXP ")) le
FONT des prix AVEC le choix de CAS du
* de PROGRAMME () = 10 .and. (dossier (« PRINT.PRG ").or.file (« PRINT.FXP ")) le
* FONT le choix de CAS du print
= 10 .AND. (DOSSIER (« STATS.PRG ").OR.FILE (« STATS.FXP ")) le
FONT le choix de CAS du stats
= 11 .AND. (DOSSIER (« UTILS.PRG ").OR.FILE (« UTILS.FXP ")) le
FONT le choix de CAS de l'utils
= 12 .AND. (DOSSIER (« CRITHELP.PRG ").OR.FILE (« CRITHELP.FXP ")) le
FONT le choix = le 13
de CAS du crithelp
SI l'akl de ********** du
SUSPEND
ELSE
QUIT
ENDIF
de $ akl_test « Yy " : Choice=14 supplémentaire pour F8 des offres au 2/25/96 choix payable de CAS du
de 2h08 du matin = 14 .AND. (DOSSIER (« PAYABLE.PRG ").OR.FILE (« PAYABLE.FXP ")) le
FONT payable AVEC l'akl de ********** du
de ********** du
de PROGRAMME () : Choice=15 supplémentaire pour F11 des offres aux sommes à recevoir 2/28/96 choix de CAS du
de 10h53 du matin = 15 .AND. (DOSSIER (« RECEIVE.PRG ").OR.FILE (« RECEIVE.FXP "))
FONT recevoir AVEC PROGRAMME ()
**********
ENDCASE
ENDDO
RETURN
*L
PROCEDURE disscr
PUBLIC mchoice, mget, cchoice, cchoices
MAGASIN 0 À mchoice, "" de MAGASIN du mget
au cchoice, le nCOL du cchoices
* = (WCOLS () /2.0) - 19
@ 1.34 INDIQUENT que « 2010 '
* laissés le ncol de Column
= nrow de 20
= 3
OBTIENNENT AVEC le nrow, ncol, » [\ <1] - nrow du
d'animaux le " = les 4
OBTIENNENT AVEC le nrow, ncol, « [\ <2] - les offres " nrow du
= 5
OBTIENNENT AVEC le nrow, ncol, » [\ <3] - le calendrier " nrow du
= 6
OBTIENNENT AVEC le nrow, ncol, « [\ <4] - les contrats " nrow du
= 7
OBTIENNENT AVEC le nrow, ncol, » [\ <5] - les créatures " nrow du
= 8
OBTIENNENT AVEC le nrow, ncol, « [\ <6] - ncol droit du column
du
* de factures " = nrow de 40
= 3
OBTIENNENT AVEC le nrow, ncol, » [\ <7] - Nrow du
d'étiquettes le " = les 4
OBTIENNENT AVEC le nrow, ncol, « [\ <8] - nrow du
de listes " = 5
OBTIENNENT AVEC le nrow, ncol, » [\ <9] - nrow du
des prix le " = les 6
OBTIENNENT AVEC le nrow, ncol, « [\ de stat " = 7
OBTIENNENT AVEC le nrow, ncol, » [\ d'utilités le " = les 8
OBTIENNENT AVEC le nrow, ncol, « [\ du
* = le nrow de 30
= le 10
OBTIENNENT AVEC le nrow, ncol, » [\ = des cchoices + « 12Q " cchoice du
= mchoice du mchoice
de PARAMÈTRES du fncurobj
du
RETURN
FUNCTION de fnchoice (cchoices, « Q ») = RETOUR du _CUROBJ
. Nrow de PARAMÈTRES de T.
ENDFUNC
PROCEDURE GET
, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc, » \ <")) + nrow de 2
@, ncol OBTIENNENT LA FONCTION de mget « * « +IIF (bskip, » \ \ « , "") +cfunc ; fnCUROBJ VALIDE du
(@mCHOICE) ; les cchoices de PARAMÈTRES du fnchoice
de l'arrangement de couleur du
1
RETURN
ENDPROC
FUNCTION, le cdef
ONT LU le mchoice du mchoice
d'OBJET de CYCLE = le
IIF DE RETOUR (mchoice d'IIF (LASTKEY () =27, À (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 de + " 2 3 4 5 6 7 8 9 10 COULEUR de 11
SET DE L'ARRANGEMENT 1 À ; le
« W+/B, W+/r, w/B, W+/B, W+/B, le r/w, GR+/RB, le N+/N, GR+/B, R+/B, + " des lettres du
* d'utilisateur de bureau du fond (1)
* de l'ordinateur de bureau (1)
* REÇOIVENT des lettres de champ que l'utilisateur de (2)
* OBTIENNENT titre d'utilisateur des lettres (4)
* d'Active de titre d'utilisateur du fond (3)
* de frontière d'utilisateur du caractère (3)
* de frontière d'utilisateur du fond (2)
* de champ le titre actif d'utilisateur du fond (4)
* titre inactif d'utilisateur des lettres (5)
* champ inactif du fond (5)
* choisi (champ de lettres (6)
* de ^A) choisi (le ^A) marque avec des lettres le fond (6)
* 1 2 3 4 5 6 7 8 9 10 COULEUR de 11
SET DE L'ARRANGEMENT 2 À ; menu du
* du
« w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + " marque avec des lettres des PROCÉDURES actives inactives de BIBLIOTHÈQUE GÉNÉRALE du
* du fond (6)
*
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* GENLBR.Prg (bibliothèque générale) d'option de menu des lettres (6)
* d'Active de Slection de menu du fond de titre de menu des lettres (4)
* des lettres (2)
* d'option de menu du fond (1)
* de lettres de menu de (1)
* d'option de menu du fond (2)
* de menu de frontière des caractères (3)
* de menu de frontière du fond (3)
* de titre inactif inactif de menu (4)
* : Le _add
de GENLBR.PRG
function si le zoom_no = les 1
vont l'endif
du bottom
font le str_empty
font le default
= () _begin
du
*L
function de
return '' si le top_mark = les 0
vont l'else
du top
vont l'endif
return du skip
du top_mark
'' le _beginr
du
*L
function vont to
du
*L
function du top
return ''/> = ndx_exp du _canscop
du
*L
function de
return de fltrsta () '' to
du
*L
function/> = ()/>return '' =
de système (14.1) vont last_rec du bottom
=
de recno () last_val = le &ndx_exp
vont first_rec du top
=
de recno () first_val = &ndx_exp
= _delete
du
*L
function de
return de _disstat () '' _copy
*L
function/> = ()/>return '' si zoom_no < no_zooms
* y a-t-il des disques d'enfants ? child_num du
= streptocoque (le zoom_no + 1, 1)
choisissent le &child_num
lnk_var = le &lnk_var
de recherche du lnk_var&child_num
si &at_eof
= dismsg endif
de &zoom_num
d'endif
de
de retour de &zoom_num
de
(de chr (7) + les « disques de subalterne existent ») '' si confirmer (« ")
de suppression si droit (système (16.3), 9) = « rec_del de Br/> d'ADOPT.FXP'< =. Endif
de T.
si droit (système (16.3), 12) = le « Br/> de CONTRACT.FXP'< choisissent l'endif
du delete
1
du delete
2
de 3
si droit (le système (16.3), 7) = « && de DHR.FXP » aucun dhr_delete de Flag
d'exposition = dhr_delete de repl de .t.
avec le && de saut de l'endif
du delete
de l'else
du reindex
du m->dhr_delete
replacent au prochain record
si && de &at_eof () si le dernier disque supprimé, vont au commencement du database
= endif
du
de _begin () si le &at_eof .and .not vident (le filtre ())
* aucuns disques est parti dans le filtre, enlève le to
/> = endif
du
de _begin () si le &at_eof
* dernier disque supprimé, () exp_N du _disstat
du
*L
function de/>
/>
= _quit/>return '' = maximum (len (first_val), len (filter ()))le
définissent le stat_wndw de fenêtre de 0.1 à 4,17+exp_N ; l'arrangement de couleur d'ombre du
7
activent le stat_wndw
de fenêtre si .not vident (le filtre ())le
@ 0.0 indiquent que le » filtre est : » + l'else
@ 0.0 du
de filtre () indiquent que » le filtre est : l'endif
@ 1.0 du Br/> d'Off'< indiquent » du disque : » + le first_val
@ 2.0 indiquent » pour enregistrer : '+ l'endif
du
« ne fait définir aucun de note d'attente du last_val
memo_field du memo_field
de l'is_edit
de paramètres du _editmemo
du
*L
function du stat_wndw
return de fenêtre de dégagement du
'' = memo_fld&zoom_num
si
= dismsg (de champ retour du ")
'' le memo_wndw de fenêtre de 12.30 à 18.73 ; titre « NOTE (ESC du
à la sortie ou au CTRL-W à économiser) » ; le flotteur de système du
élèvent l'arrangement de couleur étroit d'ombre de bourdonnement 11
si l'is_edit
modifient l'else
du memo_wndw
de fenêtre de &memo_field de note modifient la note _end
* du
*L
function de memo_wndw
l'endif
memo_wndw
return le '' vont au
de disque de bout (dernier disque d'enfant si bourdonné) si le >= 0
de bot_mark vont l'else
du saut -1
du bot_mark
si le bot_mark = les -1
vont l'else
du bottom
* trouver premier le disque en dehors du range
pour placer tandis que .t. pour le &at_eof
si le
d'EOF () * il est dernier disque dans le bot_mark du database
= le bot_mark de l'else
de -1
= endif
du
de recno () le saut _endr
du
*L
function de l'endif
l'endif
-1
return le '' vont paramètres du _list
du
*L
function de
return '' ndx_exp du _fromrcd
du
*L
function =
de système (14.1) si le first_rec du last_val
de <= de &ndx_exp = le
de recno () first_val = else
/> = endif
de dismsg (le « premier disque doit précéder le dernier disque »)/> = ()/>return '' que && du dbf_desc
cette commande est le because
sur le && principal de l'étiquette F7 font le && de _nohelp des 18) aides réglées du problème found.
de système (outre de la notification de && du
de && (le _nohelp est à cette page) -->> aucun fonctionnel ne peut s'appeler ! le && du
ni peut un .PRG
si droit (système (16.2), 12) = le && de « CRITTERS.FXP » aucun « SE DÉVELOPPENT » ! ! (11 heures !)le
définissent le brws_wndw de fenêtre de 9.4 à 19.54 ; dbf_desc de titre du
; l'else
de l'arrangement de couleur d'ombre de fin de flotteur de bourdonnement de système du
10
définissent le brws_wndw de fenêtre de 9.4 à 19.65 ; dbf_desc de titre du
; le flotteur de bourdonnement de système du
élèvent l'endif
de l'arrangement de couleur d'ombre 10
font le record_no du list&zoom_num
= l'aide réglée du brws_wndw
de fenêtre de dégagement du
de recno () sur le <<< de &&--- SE RAPPELER ! Enlever ce statements.
sur l'étiquette principale F7 font le genhlp avec arrêt du _modify
du
*L
function de/>
return '' = akl de ********** de .f.
: Offres - multi éditer la fenêtre que 10/16/95
de 2h07 du matin sur l'étiquette principale PGUP font PageUp
sur l'étiquette principale PGDN font le
de ********** de PageDn
si getcond du modify_key
= » « fld_usg " getcond de G » $ de l'else
du
= » « fld_usg .and .not de G le » $. Endif
* du
de fld_usg de « K » $ "--------- akl : Enlevé - n'a pas aimé la manière que cela a fonctionné 3/13/96 akl de ********** du
de 21h17 : Supplémentaire pour le calcul de balance automatique 2/11/96
* de 20h42 si ((prog_name = .and « PAYABLE » dit () = « PAYDETL ») .or. ;
* (le prog_name = « REÇOIVENT » .and dit () = « RECDETL »)) .and. ;
* (l'option = « copie » option de .or = « modifient le p_amount = le
* du ")
* de ********** de l'endif
de 0
*---------getcond du
= »
'de fld_usg de G'$ " si droit (système (16.3), 8) = « USDA.FXP » .and. ; le
redressent (le système (16.8), 10)
du <> le « G_USDA.FXP " font le getfldA avec le read
du getcond
si m->u_code_2 = « D » .or m->u_code_2 = le
de « C " font le getfldB avec l'else
de l'endif
du read
du getcond
font le getfld avec l'akl de ********** du getcond
: Permet à curseur au gisement d'UpArrow jusqu'ici 11/16/95
de 16h17 si droit (système (16.3), 9) = s_lastkey d'endif
de
de ********** d'endif
de read
d'else
de cycle
de
* akl de lastkey lus par/> () de ********** de CLEANUP
: Offres - multi éditer la fenêtre 10/16/95
de 2h07 du matin sur l'étiquette principale PgUp
sur l'akl principal de ********** du
de ********** de PgDn
d'étiquette : CRITTERS.PRG - La fenêtre multi poursuit l'écran de tours 7/28/98
de 22h06 si l'option = « modifient » .and. ; prog_name du
= « CRÉATURES » .and. ; le s_lastkey du
du
(dit () = « CRITDOGS » .or dit () = « CRITCATS ») = le && s_lastky2 juste dans le cas le CTRL-W pressé par utilisateur du premier screen
font le to
de message du
de ********** de l'endif
de DogUpDn
si .not. ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
le « de CRITCATS.DBF ")) * (akl) 4/10/99
de 23h43 * supplémentaire si rapport pour la condition suivante : 2/M/F5/N/Z
* L'écran de données est effacé et un écran d'utilisateur est activated.
* problème se produit SEULEMENT Chaud-En verrouillant des offres au Zoom.
du chien de créatures * aucun utilisateur que l'écran est activé parce que la quantité de données ne s'adaptera pas sur l'a
* écran d'utilisateur. Ainsi l'ordinateur de bureau est utilisé. (activer l'écran).
si .not. (système (16.5) = « SUR… » .and. ; le
redressent (système (16.6), 8) = « BIDS.FXP » .and. ; le
redressent (dbf (), 12) = Br/> de Yy'< de « CRITDOGS.DBF ») stat réglée du
outre du && que ceci a dû être mis dedans parce que la stat de && de l'endif
de l'endif
de SET
AU LOIN seul n'a pas effacé le message
si le $ akl_test le 'si .not. ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
le « de CRITCATS.DBF ")) si .not. (système (16.5) = « SUR… » .and. ; le
redressent (système (16.6), 8) = « BIDS.FXP » .and. ; le
redressent (dbf (), 12) = de « CRITDOGS.DBF ») l'endif
de l'endif
de l'endif
de l'on
de stat du
si s_lastkey = 27 l'arrêt = le .t.
d'Esc
de && de retour '' du
l'endif
si le modify_key
si de chk_dupl () de retour du
'' l'endif
de l'endif
du
font le lookup
font le calcul avec .t.
si droit (système (16.3), 8) = « USDA.FXP » .and. ; le
redressent (le système (16.8), 10) akl de ********** du
de 'fld_usg de G'$ " de <> « G_USDA.FXP " le
font le getfldA avec » .t. « le
font le getfldB avec » .t. « l'else
de
font le getfld avec » .t. « le gets
de l'endif
du
si le page_no < page_no du page
d'écran d'affichage de && de last_page le prochain = le page_no + les 1
font le disscr
font tandis que getcond du last_page
de <= de page_no = » : Offres - multi éditer la fenêtre 10/16/95 s_lastkey du
* de 2h07 du matin = '' && a commenté pour la clef F11 2/28/96
PgUpKey de 12h08 =. F.
PgDnKey =. F.
BTabKey =. F.
sur l'étiquette principale PGUP font PageUp
sur l'étiquette principale PGDN font PageDn
sur l'étiquette principale RÉTROGRADÉE font le
de ********** de TabBack
si droit (le système (16.3), 8) = le
de « USDA.FXP " font le getfldA avec le getcond
font le getfldB avec l'else
du getcond
font le getfld avec le read
de l'endif
du getcond
si .not. (PgUpKey .or. PgDnKey .or. S_lastkey du
de BTabKey) = endif
* akl du
de lastkey () de ********** de CLEANUP
: Offres - multi éditer la fenêtre 10/16/95
de 2h07 du matin sur l'étiquette principale PGUP
sur l'étiquette principale PGDN
sur la stat réglée réglée principale du to
de message du
de ********** de BACKTAB
d'étiquette outre du && que ceci a dû être mis dedans parce que la stat de && de SET
AU LOIN seul n'a pas effacé le && du message
elle devrait fonctionner. Découvrir pourquoi ?
si l'endif
de l'on
d'esca de l'on
de stat du Br/> de Yy'< de $ akl_test 'si s_lastkey = 27 arrêt d'Esc
de && = endif
de l'exit
de .t.
si s_lastkey de = page 18 && vers le haut de Key
si le page_no > le page_no de 1
= le page_no - 1
faire l'endif
de l'endif
du loop
du disscr
si s_lastkey de = page vers le bas Key
3 && si page_no du last_page
de page_no le < = le page_no + les 1
font l'endif
de l'endif
du loop
du disscr
si s_lastkey = 15 le && Tab
si page_no > page_no de 1
= page_no - 1
font le disscr
si page_no = 1
pour I = 1 au chr de clavier de 18
(endif
d'endif
d'endif
de loop
de next
de 9)
si le type (« LArrow ") = « L » && voient des contrats (akl) 10/05/99
de 10h43 du matin si le page_no = le page_no de 2
= les 1
font l'endif
de l'endif
du loop
du disscr
si page_no = first_page
* examiner pour assurer (clef écrite seulement à la première page) le *
* du
* de *** du de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** du &ndx_var
de recherche du
ceci SI le rapport était changé et a reproduit parce que quand vous BOURDONNEZ à une base de données vide du *
*, le système affiche toujours le message record du *
* d'erreur de « reproduction » quand le premier disque est écrit. Séparer SI les rapports semble le *
* pour fixer ce problème. La différence est SI rapport juste avant le *
* « = le dismsg… » rapport. Ils sont différents pour chaque état de ZOOM_NO. le
de *** du de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** du *
du *
* (akl) * employer ceci SI rapport si zoom_no = 1
si zoom_no = 1
si le prog_name = && de sortie du
de « CONTRAT " s'ajoutait parce que toujours obtenant le && du when
de message d'erreur dans le contrat et le ^W utilisé à la sortie. Je l'ai fait manière de && du this
parce que je sais que je witing une version de fenêtres de && de WINDOWS
du programme. Ce n'est pas combat de && du worth
actuellement 3/08/2000 else
du
de 14h09 (akl) si allow_dup&zoom_num
= dismsg (chr (7) + « arrêt du ")
de disque de reproduction = endif
de l'endif
de l'endif
de l'exit
de .t.
* employer ceci SI rapport si zoom_no > 1
si zoom_no > 1
si .not.
= dismsg (chr (7) + « disque de reproduction non permis - 2 arrêt du ")
(d'akl) = endif
de l'endif
de l'endif
de l'exit
de .t.
* montrer les champs et le variables
de consultation font le lookup
font le calcul avec .t.
si droit (le système (16.3), 8) = «
d'USDA.FXP le " font le getfldA avec »
de .t. le « font le getfldB avec » else
du
de .t. le « font le getfld avec » le gets
de l'endif
du
de .t. « si page_no < last_page
* montrer le prochain page_no du page
d'écran = le page_no + 1
font l'enddo de l'endif
de l'exit
de l'else
du disscr
tandis que l'endif
du last_page
de <= de page_no si .not. ((dit () = « PAYDETL » .or dit () = « RECDETL ") l'option de .and = « modifient le ")
font le calcul avec l'endif
de .t.
* reconstituer le number
de page si le page_no > le page_no de l'all
de vent de deact du first_page
= le first_page
font le disscr
si droit (le système (16.3), 8) = le
de « USDA.FXP " font le getfldA avec le
de » .f. « font le getfldB avec l'else
du
de » .f. « font le getfld avec le redisp_fld = l'endif
de l'endif
du
de » .f. « du gets
de .t.
si akl de ********** de l'abort
de .not : Vérifier l'épellation du 3/19/96
de 1h55 du matin si le prog_name = « OFFRE » le prog_name de .or = le « CONTRAT » .or. ; prog_name du
= prog_name de .or de « FACTURE » = « SUBRENT » .or. ; le prog_name du
= « TRACE » le prog_name de .or = « HELTHCRT " le
font SpellChk avec « REC » disque de && (Rec) ou le
de champ (Fld) si droit (le système (16.3), 8) = « USDA.FXP " le
font le getfldA avec » .f. « le
font le getfldB avec » .f. « l'else
du
font le getfld avec » .f. « le
de ********** de l'endif
de l'endif
du
si confirmer (« sauf le save_rec record de ")
=. T.
si dit () = « CRITDOGS » .or dit () = le
LastTKUpd de « CRITCATS " = le
de date () si dit () = le critters
du
de « CRITDOGS " remplacent LastTKupd par le critdogs
@ 0.67 du m->LastTKupd
indiquent que le critters
de l'else
du
du dtoc (m.lasttkupd) remplacent LastTKupd par le critcats
@ 2.60 du m->LastTKupd
indiquent le memo
de rassemblement de l'endif
de l'endif
du
de dtoc (lasttkupd) si droit (système (16.3), 12) = endif
du memvar
de rassemblement du sele 3
du memvar
de rassemblement du sele 2
du
de « CONTRACT.FXP " />
*L
PROCEDURE RunDOS
* de l'endif
l'endif
return le '' exécutent un programme de DOS ou un fichier séquentiel, ou appellent le command_
de PARAMÈTRES du
d'interprète du command
* de DOS (COMMAND.COM doit être dans le CHEMIN) SI le _DOS
ACTIVENT SCREEN
SAUF L'ÉCRAN à DOSscreen
@ 0.0 &command_ de /0 de COURSE d'ON
* de CURSEUR RÉGLÉ par/> de CLEAR
NewCommand_ de 3h08 du matin = && de GETENV (« COMSPEC ") ont ajouté ce code pour lire le && « COMMAND.COM » de &NewCommand_ de /0 de COURSE du true
. Ne peut pas toujours être le && COMMAND.COM du sure
sera CURSEUR RÉGLÉ par/> de running.
* OUTRE 11/29/94- DE L'ÉCRAN de RESTAURATION commenté du
du s_lastkey de DOSscreen
ENDIF
RETURN
*L
function PageDn
d'ÉCRAN de DÉGAGEMENT de DOSscreen
= du
de lastkey () si s_lastkey = 3
PgDnKey =.
du chr de clavier de T.
(23) si l'option = « modifient » .and. ; prog_name du
= « CRÉATURES » .and. ;
du
(dit () = le « CRITDOGS » .or dit () = « CRITCATS ») && de s_lastky2 = de s_lastkey juste dans le cas l'utilisateur a pressé CTRL-W du premier
de s_lastkey = de lastkey de l'endif
return
*L
function PageUp
de l'endif
du screen
() si s_lastkey = 18
* si .not. (prog_name = « CRÉATURES » .and. ; l'option du
* = « modifient » .and. ;
* (dit () = « CRITDOGS » .or dit () = « CRITCATS »))
PgUpKey =. Skip
du _next
de l'endif
return
*L
function de l'endif
du
* de chr de clavier de T.
(23) si &at_eof
=
=
de dismsg (chr (7) + « dernier ")
de _nextr
de
*L
function d'endif
/>return record '' si
=
= dismsg (chr (7) + « dernier ")
de
*L
function d'endif
/>return record '' = val (substr (le page_seq&zoom_num, len (page_seq&zoom_num), 1)) si le page_no < le page_no du last_page
= le page_no + les 1
font l'else
du disscr
= dismsg (« aucun autre endif
return '' le _nohelp
de ")
du
*L
function définissent le help_not de fenêtre de 0.30 à l'arrangement de couleur de 2.78 ombres 7
activent le mess_err du help_not
de fenêtre = 'désolé, aucune AIDE sont disponibles actuellement. '
du _prev
du
*L
function de help_not
/>
/>return '' si &at_bof
=
= dismsg (chr (7) + « premier disque saut -1
de _prevr
de
*L
function d'endif
")
return '' si
=
= dismsg (chr (7) + « premier disque first_page de _prepage
de
*L
function d'endif
")
return '' = val (substr (page_seq&zoom_num, 1.1))
si page_no > page_no du first_page
= page_no - 1
font le redisp_fld du disscr
= l'else
/> = dismsg (« autre copie de ********** du _print
du
*L
function de l'endif
")
return '' n'a pas choisi des entrées 9/07/98
de 21h27 (akl) si droit (système (16.2), 12) = « CRITTERS.FXP » .or. ; le
redressent (système (16.2), 12) = le « Br/> de P_LABELS.FXP'< font le
de ********** de l'endif
du prn_sele
l'on
d'évasion définissent le prnt_wndw de fenêtre de 0.43 à 2.78 ; l'arrangement de couleur d'ombre du
7
activent le s_readkey = le 0
@ 0.0 du prnt_wndw
de fenêtre disent la » impression - ESC pour arrêter '
=
d'init_rpt () si le s_readkey de = s_readkey 268 .or de = évasion 12 && était && de l'endif
du return
du prnt_wndw
de fenêtre de dégagement du pressed
a ajouté le courant ou tout l'USDA enregistre le
(de 02/05/02 akl) si droit (système (16.6), 10) = g_all de .and = « A « P_USDA.FXP » "
si système de .not (13) = « EN DIFFÉRÉ laser Br/> d'outp_dev de .or « de dot'< » de <> d'outp_dev de .or ' le s_recno de/> = le
de recno () vont brk_no du top
= 1
font le pgehdr
font tandis que le r_count du
de .not EOF () = les 0
font tandis que le <> 9
de r_count font le skip
du brkhdr
si r_count de l'endif
de l'exit
du
d'EOF () = r_count + enddo
de 1
si l'else
de l'endif
du s_recno
de l'enddo
de l'endif
de l'exit
du
d'EOF () si le système de .not (13) = « EN DIFFÉRÉ » laser » Br/> de <> « d'outp_dev de .or de dot'< de <> d'outp_dev de .or le 'font le rpthdr
font le pgehdr
font le rptbdy
font le line_no = le lns_per_pg
du rptftr
font l'endif
de l'endif
du pgeftr
si droit (système (16.2), 12) = copie réglée du Br/> de Y'< de $ d'akl_system de « P_LABELS.FXP » groupe de .and = 1
si 'à la copie réglée de l'else
de LPT1
à l'else
d'imprimeur de l'off
d'impression de l'eject
de l'on
d'impression de l'endif
de LPT1
/> = prnt_wndw
de fenêtre de dégagement de l'endif
du
d'end_rpt () si l'outp_dev = 'Br de screen' = off
d'évasion de l'endif
du
d'edit_txt () vont
*L
return le '' le s_curobj du _popcal
de/>function = le _curobj
* activent le screen
sur le clavier principal d'ESC d'étiquette » {CTRL+W} « + » {ENTRER} « le
* @ 24.0 disent que
du padc (le « ESC de presse à retourner à l'écran de saisie », 80) activent valide lu par/> de calculator
* @ 24,0
sur le _curobj principal = le _quit
de l'esc
d'étiquette de l'on
return
*L
function d'esca du s_curobj
si droit (système (16.2), 9) <> « PRINT.FXP » .and. ; le
redressent (le système (16.3), 8) <> précédent 'la fenêtre quand l'utilisateur stoppe peau réglée de l'endif
* du to
de filtre du Br/> de JOBS.FXP'< au de window
font la droite de cas du case
(système (16.2), 12) = 'le Br/> de CRITTERS.FXP'< font le zoom_no de cas du case
= le wind_hide de 1
= 'zoom_no de caisse du Br/> d'usr_wndw1'< = wind_hide du clear
de 2
= 'zoom_no de caisse du Br/> d'usr_wndw5'< = wind_hide du clear
de 3
= « zoom_no de caisse du Br/> d'usr_wndw4'< = wind_hide de 4
= « zoom_no de caisse du Br/> d'usr_wndw6'< = wind_hide de 5
= « s_zoom_no de l'endcase
du Br/> d'usr_wndw3'< = zoom_no
si zoom_no = 1 .or. Zoom_no de KeyF2
= zoom_no de l'else
de 0
= wind_hide de l'otherwise
de l'endif
de 1
= « alltrim d'usr_wndw'+ (streptocoque (zoom_no))zoom_no du
= zoom_no - 1
* supplémentaire si rapport pour la condition suivante : 2/M/F5/N/Z
* L'écran de données est effacé et un écran d'utilisateur est activated.
* problème se produit SEULEMENT Chaud-En verrouillant des offres au Zoom.
du chien de créatures * aucun utilisateur que l'écran est activé parce que la quantité de données ne s'adaptera pas sur l'a
* écran d'utilisateur. Ainsi l'ordinateur de bureau est utilisé. (activer l'écran).
si (système (16.5) = « SUR… » .and. ; le
redressent (système (16.6), 8) = « BIDS.FXP » .and. ; le
redressent (dbf (), 12) = l'endcase
de l'endif
du clear
du
de « CRITDOGS.DBF ») si wexist (« l'endif
du &wind_hide
de fenêtre de peau de ")
si le zoom_no > les 0
=
de x_zoom () vont le record_no
font le _retrieve
* du
*L
function de redisp_fld du disscr
= .t.
/>return '' la touche de validation et chercher le disque ; sinon trouvé replacer au d_function du record_no
= () au
si le memo
('') d'éparpillement ndx_var du
d'équilibre de <> font le clrfld
font le read
du getkey
* la stat réglée réglée du to
de message de CLEANUP
outre du && ceci a dû être mise dedans parce que la stat de && de SET
AU LOIN seul n'a pas effacé le message
si l'endif
de l'on
de stat du Br/> de Yy'< de $ akl_test « si && Esc
du <> 27 de lastkey () si programme (3) = les « TRAVAUX » .and dit () = équilibre de recherche d'else
de
d'équilibre de recherche de
des « TRAVAUX " (&ndx_var1a)endif
du
si &at_eof
= dismsg (« le ")
vont le record_no
*L
de l'endif
l'endif
/>
/>return '' : La nouvelle commande choisie 10/23/95 des paramètres du _select
du
function de 2h25 du matin où le && du dbf_desc
cette commande est le because
sur le && principal de l'étiquette F7 font le && de _nohelp des 18) aides réglées du problème found.
de système (outre de la notification de && du
de && (le _nohelp est à cette page) -->> aucun fonctionnel ne peut s'appeler ! le && du
ni peut un .PRG
si droit (système (16.2), 12) = le && de « CRITTERS.FXP » aucun « SE DÉVELOPPENT » ! ! (11 heures !)le
définissent le brws_wndw de fenêtre de 9.4 à 19.54 ; dbf_desc de titre du
; l'else
de l'arrangement de couleur d'ombre de fin de flotteur de bourdonnement de système du
10
définissent le brws_wndw de fenêtre de 9.4 à 19.65 ; dbf_desc de titre du
; le flotteur de bourdonnement de système du
élèvent l'endif
de l'arrangement de couleur d'ombre 10
font le record_no du sel&zoom_num
= l'aide réglée du brws_wndw
de fenêtre de dégagement du
de recno () sur le <<< de &&--- SE RAPPELER ! Enlever ce statements.
sur l'étiquette principale F1 font le genhlp avec le _skip
du
*L
function de ********** du
de/>
return '' * déplacer en avant/vers l'arrière plusieurs rec_count du records
= 0
définissent le skip_wndw de fenêtre de 11.29 à 13.52 ; l'arrangement de couleur d'ombre du
7
activent le skip_wndw
@ 00.00 de fenêtre disent des » disques de saut : « _skipr
du
*L
function de skip_wndw
l'endif
")
return du @Z 999999 ' » obtenir de rec_count image le rec_count
de saut du read
du
si &at_eof
=
= dismsg (chr (7) + « dernier endif
de ")
si &at_bof
=
= dismsg (chr (7) + « premier le '' * déplacer en avant/vers l'arrière plusieurs rec_count du records
= 0
définissent le skip_wndw de fenêtre de 11.29 à 13.52 ; l'arrangement de couleur d'ombre du
7
activent le skip_wndw
@ 00.00 de fenêtre disent des » disques de saut : « s_lastkey de
*L
function TabBack
de skip_wndw
endif
")
return du @Z 999999 ' » obtenir de rec_count image le rec_count
de saut du read
du
si
=
= dismsg (chr (7) + « dernier endif
de ")
si
=
= dismsg (chr (7) + « premier '' =
de lastkey () si s_lastkey = 15
BTabKey =. Le _tally
de l'endif
return
*L
function du
de chr de clavier de T.
(23) définissent le count_wndw de fenêtre de 0.35 à 2.78 ; l'arrangement de couleur d'ombre du
7
activent le count_wndw
@ 0.0 de fenêtre disent » compter… « le rec_count du
= le 0
= compte du
de _begin () tandis que &at_eof de .not au mess_str du rec_count
= au streptocoque (le rec_count, 6) + le » Br/>
de record'< si le rec_count > le mess_str de 1
= le mess_str + « le mess_str
d'attente de l'endif
du Br/> de s'< vont le count_wndw
return le '' _tallyr
de fenêtre de dégagement du record_no
du
*L
function définissent le count_wndw de fenêtre de 0.35 à 2.78 ; l'arrangement de couleur d'ombre du
7
activent le count_wndw
@ 0.0 de fenêtre disent » comptant… « le rec_count du
= le 0
= compte du
de _beginr () tandis que .not EOF () au mess_str du rec_count
= au streptocoque (le rec_count, 6) + » le mess_str
d'attente du Br/> de records'< vont le record_no
du
*L
function de count_wndw
/>return '' rep_file = l'espace (8)
définissent le file_wndw de fenêtre de 7.20 à 16.59 ; le titre du
» écrivent le nom de fichier de fax » ; l'arrangement de couleur d'ombre du
7
activent la fenêtre usr_wndw1
activent le file_wndw
@ 3 de fenêtre, 1 indiquent que le « on permet maximum de 8 caractères. le «
@ 4, 1 indiquent « le nom de fichier, vous entrez, le Br/> @ 5 de have'<, 1 indiquent » « .TXT » supplémentaire à la fin du nom. le '
@ 6, 1 indiquent que « n'employer aucun caractère spécial. le «
@ 1.15 obtiennent le read
du rep_file
rep_file = « c:\crit\fax\ " +alltrim (rep_file) + »
de .txt le " mettent le file_wndw
de fenêtre de dégagement du file_wndw
de fenêtre définissent le file_wndw de fenêtre de 7.18 à 19, 60 ; le titre du
» votre fax est prêt » ; l'arrangement de couleur d'ombre du
7
activent le file_wndw
@ 1 de fenêtre, 1 indiquent « après que le fax ait été imprimé, va " au
@ 2, 1 indiquent « le Systray, sur l'ordinateur de bureau, et commence " le
@ 3, 1 indiquent « WinFax, par Right-Clicking sur le fax " le
@ 4, 1 indiquent la « icône. Après, gauche-cliquer envoient dessus un fax… le «
@ 6, 1 indiquent « l'endroit de dossier : « +rep_file
@ 8, 1 indiquent « quand le fax a été envoyé, retour ici le "
@ 9, 1 indiquent « pour continuer à fonctionner en tant qu'avant. « file_wndw
de fenêtre de dégagement du read
du
si .not vident l'outp_dev (rep_file) du
= le 'file'< du _torcd
du
*L
function de l'endif
Br/>return '' = 14.1)
de système (si last_rec du first_val
de >= de &ndx_exp = record_no
last_val = else
/> = endif
de dismsg ndx_exp (le « dernier disque doit suivre le premier disque »)/> =
return '' le susp
de _disstat () du _zoom
* du
*L
function si les no_zooms = le zoom_no
= dismsg (« aucun else
de ")
de dossier de bourdonnement si droit (système (16.2), 12) = 'Br de CRITTERS.FXP'< /> font l'anml_type de cas du case
= 'zoom_no du Br/> de C'< = anml_type de cas de 3
= « zoom_no du Br/> de D'< = anml_type de cas de 2
= « zoom_no du Br/> d'E'< = anml_type de cas de 4
= « zoom_no du Br/> de F'< = otherwise
/>* = dismsg (« le type animal champ n'est pas le ")
A_Type = espace de C, de D, d'E, ou de F. (1)
définissent le file_wndw de fenêtre de 8.20 à 16.57 ; titre du
» manquant : Type animal » ; l'arrangement de couleur d'ombre du
7
activent la fenêtre usr_wndw1
activent le file_wndw
@ 1 de fenêtre, 1 indiquent « chaque animal doit avoir un TYPE que " le
@ 2, 1 indiquent que « décrit une catégorie générale. Le «
@ 3, 1 indiquent que « les entrées permises sont :
@ 4 de D, de C, de F, ou d'E ", 1 indiquent » (chien, chat, ferme, ou exotique.) le «
GoodType =. F.
font tandis que .not. GoodType
@ 4.34 obtiennent le read
A_Type d'A_Type
= le
(d'A_Type) si
GoodType d'A_Type $ le « DCFE " =. L'else
@ 6, 1 de T.
indiquent que » entrer svp : D, C, F, ou E le « enddo
du
EndIf
mettent l'anml_type = l'A_Type
du file_wndw
de fenêtre de dégagement du file_wndw
de fenêtre remplacent l'anml_type par le m->anml_type
@ 2, 65 indiquent le zoom_no de l'else
de l'endcase
du m->anml_type
= le zoom_no + l'endif
/> =
=
de _begin () * si une nouvelle page, montrent le nouveau screen
si page_no du page_no
de <> de first_page = endif
du first_page
si off
/> = dismsg (« on
de base de données/> = endif
return d'endif
de
de _add () le '' add_rec
* du
*L
function ajoutent un arrêt du record
= les no_rcds de .f.
= le &at_eof
* la remise au premier d_function du page
= () le
sur l'étiquette principale PGUP font PageUp
sur l'étiquette principale PGDN font PageDn
font tandis qu'akl de ********** du last_page
de <= de page_no : Offres - multi éditer la fenêtre 10/16/95 akl du
*+++++++++ de 2h07 du matin : Des offres - permettre le sur multi éditent Window
si droit (le système (16.3), 8) = le
de « BIDS.FXP " sur l'étiquette principale PGUP font le newPageUp
sur l'étiquette principale PGDN font le
* de ********** de l'endif
du newPageDn
--------- akl : Enlevé - n'a pas aimé la manière que cela a fonctionné 3/13/96 akl de ********** du
de 21h17 : Supplémentaire pour le calcul de balance automatique 2/11/96
de 20h42 si ((prog_name = .and « PAYABLE » dit () = « PAYDETL ») .or. ;
(le prog_name = « REÇOIVENT » .and dit () = « RECDETL »)) .and. ; p_amount du
du
(l'option = « copie » option de .or = « modifient ")) =
* de ********** de l'endif
de 0
---------le getcond du
= » « de G'$ de fld_usg " le
si droit (le système (16.3), 8) = « d'USDA.FXP le "
font le clrfld
@ 14, 1 indiquent le
@ 15, 1 de l'espace (57) indiquent le
de l'espace (57) @ que 16, 1 indiquent le
@ 17, 1 de l'espace (57) dire que le
de l'espace (57) font le getfldA avec le read
du getcond
si m->u_code_2 = « D » .or m->u_code_2 = «
de C le " font le getfldB avec l'else
de l'endif
du read
du getcond
font le getfld avec l'akl de ********** du getcond
: Permet le curseur au gisement d'UpArrow jusqu'ici. 12/15/95
de 18h59 si droit (le système (16.3), 9) = le
de « CALLS.FXP " a lu l'akl de ********** de l'endif
du
de ********** de l'endif
du read
de l'else
du cycle
: Offres - multi éditer la fenêtre 10/16/95 akl du
*+++++++++ de 2h07 du matin : Des offres - permettre le sur multi éditent Window
si droit (le système (16.3), 8) = le
de « BIDS.FXP " sur l'étiquette principale PGUP
sur la stat réglée réglée principale du to
de message du
de ********** de l'endif
de PGDN
d'étiquette outre du && ceci a dû être mis dedans parce que le MESSAGE de && de SET
ne semble pas fonctionner ! !
si $ « = le
de lastkey akl_test () si s_lastkey = 27 arrêt d'Esc
de && = endif
de l'exit
de .t.
si s_lastkey de = page 18 && vers le haut de Key
si page_no > page_no de 1
= page_no - 1
font l'endif
de l'endif
du loop
du disscr
si s_lastkey de = page vers le bas Key
3 && si le page_no < le page_no du last_page
= le page_no + les 1
font l'endif
de l'endif
du loop
du disscr
si contrôle de page_no = de first_page
* pour (clef écrite seulement le s_lastkey de l'endif
de l'on
de stat du Br/> de Yy'< de premier à la page) le
si .notallow_dup&zoom_num
si droit (système (16.3), 8) &ndx_var
de recherche de
de <> « USDA.FXP " si .not.
= dismsg (chr (7) + « arrêt de ")
de disque de reproduction = akl non permis de ********** d'endif
d'exit
de .t.
: La vérification individuelle supplémentaire de chaque zone de tri dans l'USDA 5/31/96 else
du
de 12h26 si le s_recno de l'endif
de l'exit
de m.usda = de 0
= le
de recno () disparaissent le top
placent pour m.name = name
si ()
= dismsg (chr (7) + le « nom de l'animal déjà en service. Choisir un arrêt = un endif
du
de nom ») de l'exit
de .t.
vont le top
placent pour m.usda = usda
si ()
= dismsg (chr (7) + « nombre de l'USDA déjà en service. Choisir nombre clair ») de l'exit
de .t.
si l'endif
de l'endif
du
de ********** de l'endif
de l'endif
du s_recno
du
de .not EOF () * montrer les champs de consultation et le variables
font le lookup
font le calcul avec .t.
si droit (le système (16.3), 8) = « USDA.FXP le "
font le getfldA avec » .t. le «
font le getfldB avec » .t. le « else
du
font le getfld avec » .t. « le de gets
de l'endif
du
un arrêt = un endif
du
si page_no < last_page
* montrer le prochain page_no du page
d'écran = le page_no + le 1
faire l'enddo de l'endif
de l'exit
de l'else
du disscr
tandis que le last_page
de <= de page_no * reconstituer le number
de page si le page_no > le page_no de l'all
de vent de deact du first_page
= le first_page
font le disscr
si droit (le système (16.3), 8) = le
de « USDA.FXP " font le getfldA avec le
de » .t. « font le getfldB avec l'else
du
de » .t. « font le getfld avec le redisp_fld de l'endif
du
de » .t. « = l'arrêt de l'endif
de .t.
= l'iif (arrêt, .t., le save_rec de .not ())
si abort
de .not si no_rcds
= () else
de l'endif
du
si le no_rcds
= else
du
de _quit () vont le record_no
* du
*L
function d'abort
l'endif
/>return '' un rapport/un line_no line
d'écran = un line_no + un 1
si le line_no = le lns_per_pg
font le pgeftr
du
de/> = d'adv_page () = rapport de l'adv_page
* du line_no
*L
function de .f.
return/page_no page
d'écran = page_no + 1
si droit (système (16.2), 12) = « && de CRITTERS.FXP » 9/09/98
de 21h11 (akl) si page_no = sel_yes + endif
si l'outp_dev = outp_dev de .or de « laser » = « l'else
@ line_no+1,0 de l'eject
du Br/> de dot'< indiquent le line_no = le top_margin
de l'endif
du
de réplique (chr (219), 76) de l'endif
du return
de 1
font reproduction d'ensemble du chk_dupl
* du
*L
function du pgehdr
return '' à .f. si la clef est une reproduction, ou au dupl_rec
de l'otherwise
de .t. si ((&at_bof) = (le &at_eof)) .or. '' = dupl_rec de l'allow_dup&zoom_num
de l'équilibre .or (ndx_var) = &ndx_var
de recherche de l'else
de .f.
si option = « dupl_rec du Br/> de M'< = dupl_rec de l'else
du &at_eof
du recno de <> de record_no () .and .not = endif
du &at_eof
de .not si dupl_rec
= dismsg (chr (7) + « l'else
de ")
vont niveau de coupure d'incrément de l'up
* du chng_brk
Parameters du dupl_rec
*L
function de l'endif
return de l'endif
du record_no
si « vers le haut de » = .t., l'otherwise
de décroissance si l'up
* nouveaux brk_field du condition
d'arrêt de rapport = new_cond réglés du brk_field&brk_num
= « le &brk_field<>m->&brk_field » + » .or. le « cond_size&brk_num du
= len le done_cond = le new_cond + le done_cond
* zone séparatrice du
(de new_cond) de magasin au &brk_field = au &brk_field
du variable
de mémoire * bourdonnement vers le haut si c'est « break
de bourdonnement un » si zoom_no du brk_zoom&brk_num
= zoom_no + zoom_num de 1
= streptocoque (le zoom_no, frst_child de 1)
= lnk_var&zoom_num
choisissent l'endif
du &frst_child
de recherche du &zoom_num
* incrémenter le brk_no du number
de coupure = le brk_no + le brk_num de 1
= le streptocoque (brk_no, 1)
fait = brk_no d'else
de &done_cond
= brk_no - brk_num de 1
= streptocoque (le brk_no, 1)
* réduire le done_cond = le substr du condition
d'arrêt de rapport (done_cond, 1+cond_size&brk_num)
* bourdonnement vers le bas si c'est un header
de paramètres du confirm
du
*L
function de l'endif
l'endif
le &zoom_num
1)
return de « bourdonnement » le break
si zoom_no du brk_zoom&brk_num
= zoom_no - zoom_num de 1
= streptocoque (le zoom_no, choisi '' définissent le con_wndw de fenêtre de 1.50 à 20.100 ; double arrangement de couleur du
12 ; POLICE « Arial du
"BOLD" », 20 && 1.2.5 ? , 6 ? , 8 ? , 10 ? , 11 ? , « 13 le '
activent le
du con_wndw
de fenêtre si (13-len (en-tête) /2) < 0
= dismsg (« erreur : En-tête trop longtemps. 13 l'endif
@ 1.00 du ")
de chars indiquent que l'espace (13-len (en-tête) /2) + le header
@ 3.00 indiquent » < > < > « le
@ 3.05 menu du Br/> de No'< du message de sollicitation 3.18 du Br/> de Yes'< de message de sollicitation « @ « aux retours d'ANNÉE du con_year
* CONTRACY du
*L
function de l'iif du con_wndw
return de fenêtre de dégagement du con_opt
(con_opt=1, .t., .f.) l'année du contrat comme spécifique par Rob
* pour son num_yr RÉGLÉ d'ON
de SIÈCLE de business.
= val (droit (dtoc (la date ()), 4)) SIÈCLE RÉGLÉ OFF
du -1981
si val (parti (dtoc (date ()), 4)) > le num_yr de 5
= le num_yr + le message
de paramètres du dismsg
du num_yr
*L
function de l'endif
return de 1
définissent le mess_wndw de fenêtre de 10,78-6-len (message) à 24.100 ; TITRE « message du
de créatures » ; LE FLOTTEUR ÉTROIT DU
ÉLÈVENT LE BOURDONNEMENT ; arrangement de couleur d'ombre du
7 ; Presse "BOLD" (message) d'attente vide du
de « Arial de POLICE du
», 20 le
activent le mess_wndw
de fenêtre si la » n'importe quelle clef pour continuer… « le message
de paramètres du dismsgt
du
*L
function de mess_wndw
l'endif
« le
return '' d'attente de l'else
du
» » + message + »… définissent le mess_wndw de fenêtre de 0,78-6-len (message) à 2.78 ; l'arrangement de couleur d'ombre du
7
activent le mess_wndw
de fenêtre si attente vide » presse du
(de message) toute clef à continuer… » ; attente de l'else
du temps mort 2
du
» » + message + »… » ;
*L
function DmsgQwQr
* de mess_wndw
endif
2
/>return '', attente ? (oui ou non) dégagement ? (oui ou non) le message de paramètres du
, WaitReply, CloseWin
définissent le mess_wndw de fenêtre de 0,78-6-len (message) à 2.78 ; l'arrangement de couleur d'ombre du
7
activent le mess_wndw
de fenêtre si WaitReply
si le
@ 0.1 (de message) indiquent 'presse n'importe quelle clef pour continuer… « l'else
@ 0.1 du read
du
indiquent que le message + »… « l'else
de l'endif
du read
du
si le
@ 0.1 (de message) indiquent '' l'else
@ 0.1 du
indiquent le message + »… 'l'endif
de l'endif
du
si CloseWin
*L
function dispage1
de l'endif
mess_wndw
/>return '' si le redisp_fld du first_page
de <> de page_no = le page_no de .t.
= le first_page
font le disscr
si droit (le système (16.3), 8) = « USDA.FXP " le
font le getfldA avec » .t. « le
font le getfldB avec » .t. « l'else
du
font le getfld avec edit_txt
du
*L
function de l'endif
le gets
return de » .t. « l'endif
du
que clair le '' définir le txt_wndw de fenêtre de 1.0 à 24.79 ; titre « COPIE du
À EXAMINER (ESC à sortir) » ; le flotteur de bourdonnement de système du
élèvent l'arrangement de couleur étroit 11
si Br/> de Yy'< du $ akl_test le 'modifient le && de txt_wndw de fenêtre du dossier gentemp.gtx .gtx = else
de GeneralTeXt
modifient le && de txt_wndw de fenêtre de noedit du dossier gentemp.gtx .gtx = le txt_wndw
return le '' end_rpt
de fenêtre de dégagement d'endif
de GeneralTeXt
du
*L
function si outp_dev = « laser » outp_dev de .or = 'le Br/> de dot'< si le bon (système (16.3), 11) <> « P_CONTR.FXP » .and. ; le
redressent (système (16.3), 10) <> « P_INVO.FXP » .and. ; le
redressent (système (16.5), 12) le <> « P_SUBRNT.FXP » .and. ; le
redressent (système (16.5), 10) Br/> de P_BIDS.FXP'< de <> 'si .not. ((droit (système (16.3), 12) = « P_LABELS.FXP » .or. ; le
redressent (système (16.3), 12) = « P_LABLS1.FXP » .or. ; le
redressent (système (16.3), 12) = « P_LABLS2.FXP ") .and. ; endif
de l'endif
de l'endif
de l'eject
du
du
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5)) si l'outp_dev = 'dispositif réglé réglé de l'endif
du to
d'imprimeur du Br/> de file'< le screen
* de/>
à/>return réglé le '' redressent (système (16.4), 10) && du <> « P_BIDS.FXP » (akl) 6/02/99
* .and de 12h33. ; le
* du && 2/20/94 (akl) redressent (système (16.3), 12) le <> 'l'envrnmnt
du Br/>
*L
function de P_LABELS.FXP'< sur l'erreur font l'errfix avec l'erreur (), message (), message (le 1), le program (), décimales réglées réglées que réglées de l'on
de console de l'off
de cloche du
de lineno () à l'ensemble de 10
a supprimé le dispositif réglé exclusif réglé exact réglé de l'off
de l'off
de l'on
aux multilocks réglés du screen
ensemble d'off
régénèrent à l'ensemble de 0
retraitent 1
du
*L
function du databases
off
off
à/>return étroit réglé réglé '', errormsg, errormsg1, le prgname, l'err_wndw
de fenêtre de dégagement du lineno
* font l'errnum de cas du case
de = dossier 108 && en service par l'another
si confirmer (« dossier en service, tentative ? else
du retry
du ")
si wexist (« endif
de fenêtre de dégagement de ")
/> = retour du
de restenv () à l'errnum de cas de l'endif
du &callmenu
= 109 verrouillés record de && par l'another
si confirmer (« enregistrent en service, tentative ? retour de l'else
du retry
du ")
à l'endif
du mainproc
* revenir à l'errnum de cas du &
de = dossier 110 && en service par l'another
= dismsg (le « dossier doit être opended exclusivement retour du ")
à l'on
d'esca de l'otherwise
*set du &callmenu
définissent l'err_wndw de fenêtre de 15.3 à 50.170 ; POLICE « Arial du
"BOLD" », 16 ; le
de l'arrangement de couleur d'ombre de flotteur de double du
2
activent l'err_wndw
@ 0.0 de fenêtre disent le « numéro de message d'erreur : » + ltrim (streptocoque (errnum))le
@ 1.0 indiquent le « message d'erreur : » + l'errormsg
@ 2.0 indiquent « la ligne du texte : » + errormsg1
@ 3.0 indiquent « le nom de programme : » + le prgname
@ 4.0 indiquent « la ligne nombre : » + ltrim (streptocoque (lineno))le
@ 5.0 indiquent le « objet : » + 2018)
= dismsg (« explode
parameters m_row1, m_col1, m_row2, le m_col2, m_cnt, le m_type
* du
*L
function de l'endcase
off
*set err_wndw
")
return le '' m_row1 = coin de main gauche supérieure de box.
* m_col1 = coin droit supérieur de box.
* m_row2 = coin inférieur de main gauche de box.
* m_col2 = droit inférieur a eu le coin du m_cnt de box.
* = du nombre d'étapes pour l'explosion détermine la vitesse qui enferment dans une boîte le m_type d'explodes.
* = le type d'explosion.
* 1 = tous les côtés éclatent immédiatement. le
* 2 = seulement les côtés explode.
* 3 = seulement le dessus et le bas explode.
* 4 = éclate de haut en bas. le
* 5 = éclate du fond à top.
* 6 = éclate de gauche à droite. le
* 7 = éclate de droite à gauche. l'écran de l'explode
save du
public à l'explode
r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
de/>c_pos2 = de m_col2
do = 1 && tout le magasin de sides.
((m_row2-m_row1) /2)+m_row1 à r_pos1, magasin de center
de rangée de && r_pos2 ((m_col2-m_col1) /2)+m_col1 à c_pos1, r_cnt de center
de colonne de && c_pos2 = (r_pos1-m_row1) c_cnt d'increment
de rangée de && de /m_cnt = (c_pos1-m_col1) m_type de cas d'increment
de colonne de && de /m_cnt = 2 magasin de côtés only.
de && ((m_col2-m_col1) /2)+m_col1 à c_pos1, c_cnt du center
de colonne du && c_pos2 = (c_pos1-m_col1) m_type de cas de l'increment
de colonne de && de /m_cnt de = le dessus et le bottom
3 && stockent ((m_row2-m_row1) /2)+m_row1 à r_pos1, r_cnt de center
de rangée de && r_pos2 = (r_pos1-m_row1) m_type de cas d'increment
de rangée de && de /m_cnt de =
4 && r_cnt de r_pos2 = de m_row1
= (m_row2-m_row1) m_type de cas d'increment
de rangée de && de /m_cnt de = le fond 5 && à top
r_cnt de r_pos1 = de m_row2
= (m_row2-m_row1) m_type de cas d'increment
de rangée de && de /m_cnt de =
6 && c_cnt de c_pos2 = de m_col1
= (m_col2-m_col1)m_type de cas de l'increment
de rangée de && de /m_cnt de = juste 7 && au left
c_cnt de c_pos1 = de m_col2
= (m_col2-m_col1) increment
endcase
do de rangée de && de /m_cnt tandis que r_pos1 <= m_row2 .and du >= m_row1 .and r_pos2. ; <= m_col2
@ r_pos1, c_pos1, r_pos2, boîte « im du >= m_col1 .and c_pos2 du
c_pos1 du c_pos2 ; : font le m_type = le 1
de cas du case
r_pos1 = r_pos1 - le r_cnt
r_pos2 = r_pos2 + r_cnt
c_pos1 = c_pos1 - le c_cnt
c_pos2 = c_pos2 + m_type de cas du c_cnt
= 2
c_pos1 = c_pos1 - le c_cnt
c_pos2 = c_pos2 + m_type de cas du c_cnt
= 3
r_pos1 = r_pos1 - le r_cnt
r_pos2 = r_pos2 + m_type de cas du r_cnt
= 4
r_pos2 = r_pos2 + m_type de cas du r_cnt
= 5
r_pos1 = r_pos1 - m_type de cas du r_cnt
= 6
c_pos2 = c_pos2 + m_type de cas du c_cnt
= 7
c_pos1 = c_pos1 - l'endcase
enddo
clear
*@ m_row1 du c_cnt
,m_col1, m_row2, boîte « im du m_col2 ; :
* (akl) du
*L
function de/>
return '' 5/11/99
* de 15h27 le prochain SI le rapport était enlevé pour permettre au message de filtre d'être displayed.
* si .not. ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
le « de CRITCATS.DBF ")) activent l'endif
du screen
* si .not vident (le filtre ())le
@ 0.70 indiquent le « filtre sur » l'else
* (akl) de la couleur w+/n
5/11/99
* de 15h27 le prochain SI le rapport était changé pour montrer le coin de Droit-Dessus de la boîte. le
font la droite de cas du case
(système (16.2), 12) = « CRITTERS.FXP » .and bien (dbf (), 12) = le « Br/> de CRITDOGS.DBF'< si PrimDisp
@ 0.70 indiquent « ÍÍÍÍÍÍÍÍÍ le " else
@ 0.70 du
indiquent « ÍÍÍÍÍÍÍÍÍ » « la droite de cas de l'endif
du
(système (16.2), 12) = « CRITTERS.FXP » .and bien (dbf (), 12) = le « Br/> de CRITCATS.DBF'< si PrimDisp
@ 0.70 indiquent que l'else
@ 0.70 du
de l'espace (09) indiquent « ÍÍ » « l'otherwise
de l'endif
du
de +space (06) @ 0.70 indiquent l'endif
de l'endcase
du
de l'espace (09) si dit () = le « Br/> de BIDS'< si le type (« s_recon_date ") = Br/> si le
@ 0, 1 (de s_recon_date) indiquent l'else
@ 0 du
de l'espace (25), 1 le « de D'< indiquent « la date reconditionnée : endif
de l'endif
de l'endif
de la couleur w+/n
« de +dtoc (s_recon_date) si .not. ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
le « de CRITCATS.DBF ")) * (akl) 4/10/99
de 23h43 * supplémentaire si rapport pour la condition suivante : 2/M/F5/N/Z
* L'écran de données est effacé et un écran d'utilisateur est activated.
* problème se produit SEULEMENT Chaud-En verrouillant des offres au Zoom.
du chien de créatures * aucun utilisateur que l'écran est activé parce que la quantité de données ne s'adaptera pas sur l'a
* écran d'utilisateur. Ainsi l'ordinateur de bureau est utilisé. (activer l'écran).
si .not. (système (16.5) = « SUR… » .and. ; le
redressent (système (16.6), 8) = « BIDS.FXP » .and. ; le
redressent (dbf (), 12) = fltrstar
du
*L
function de l'endif
/>
usr_wndw&page_num
return de « CRITDOGS.DBF ») le
activent le '' activent le screen
si .not vident (le filtre ())le
@ 0.70 indiquent le « filtre sur » l'else
@ 0.70 de la couleur w+/n
indiquent que l'endif
du
de l'espace (09) activent l'endif
EditFld du
de retour du
de dbf de l'usr_wndw
return '' des org_alias privés des paramètres prm1
du genhlp
du
*L
function, org_alias du hlp_topic
= dit () le
si « GENHLP.DBF » $ de fenêtre () '' =. Le rob de && de F. veut TOUT éditent des champs (de note) pour diriger le message d'aide de && du same
1/10/97
de 1h53 du matin (akl) si le
hlp_topic = l'else
du prog_name
si vide (système (18))
hlp_topic = else
de prm1
hlp_topic =
du système (18) si type (« &hlp_topic ") = « Br/> EditFld de M'< =. L'endif
de l'endif
de l'endif
de T.
si dossier de .not (« ")
de genhlp.DBF si dossier de .not (« ")
= dismsg (« retour non trouvé '' l'else
0
de ")
du
créent le genhlp de l'on
du genhlp
d'utilisation de l'endif
0
de l'endif
de l'use
de genhlp.str
si EditFld
placent pour l'équilibre (matière) = « l'else
du Br/> de BID'< placent pour l'équilibre (matière) = l'off
de l'endif
du hlp_topic
si le
d'EOF () si le modi_memo
apposent le blank
=
* de rlock () remplacent la matière avec le && prm1 est ceci un bogue ? ? le
remplacent la matière par le && hlp_topic si oui, ceci peut être la difficulté ! ! le && du
l'écran où un champ a pas le && du yet
choisi (A ou M), remplace un blank.
remplacent le front par 7, bcol avec 10 ; l'erow du
avec 16, ecol avec le && de l'else
de l'unlock
de 70
aucune aide disponible - ignorer ou alerter les msg ? ? ? endif
de l'endif
du
de retour du
'' si le modi_memo
définissent le help_wndw de fenêtre du front, bcol à l'erow, ecol ; titre « AIDE (ESC du
à la sortie ou au F10 à économiser) » ; le flotteur de bourdonnement de système du
élèvent l'else
de l'arrangement de couleur 11
définissent le help_wndw de fenêtre du front, bcol à l'erow, ecol ; titre « AIDE (ESC du
à la sortie) » ; l'endif
de l'arrangement de couleur de fin de bourdonnement de système du
11
si le modi_memo
si le
de rlock () sur l'étiquette principale F10 font le sav_wind avec la « AIDE (ESC à sortir ou F10 à économiser) « le
modifient l'unlock
du help_wndw
de fenêtre de détails de note sur l'else
/> = dismsg (« en service record d'aide, l'else
de l'endif
du ")
de tentative modifient l'use
de l'endif
du help_wndw
de fenêtre de noedit de détails de note si ! le
du getgrid
* VARIABLES
du
*L
function de help_wndw
l'endif
le &org_alias
/>return choisi vide (d'org_alias) '' privé tous comme le choix = le 0
du prompt*
prompt1 = » vont le «
prompt2 = »
de Modi le « prompt3 =
* WINDOWS
définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » grille du
commande le menu » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
activent le noshow
* 1 de la fenêtre MAINTMNU 2 3
@ 0, 1 indiquent que « disparaissent le Br de Quit'< de Modi/>*L
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () que HELP
activent la fenêtre MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 le menu prompt de prompt3
au choice
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= « choix de caisse du Br/> de quit'< = option de 1
= « choix de caisse du Br/> de go'< = option de 2
= « choix de caisse du Br/> de modify'< = l'option de MAINTMNU
de fenêtre de dégagement de 3
= « l'endcase
du Br/> de quit'< mettent l'option
*L
function getgrid2
* GetGrid2 de MAINTMNU
return de fenêtre a la commande choisie (de Sel) supplémentaire à la liste 3/21/96 choice
du
* VARIABLES
de 18h03 privé tous comme le choix = le 0
du prompt*
prompt1 = » vont le «
prompt2 = »
de Modi le « prompt3 = »
de Sel le « prompt4 =
* WINDOWS
définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » grille du
commande le menu » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
activent le noshow
* 1 de la fenêtre MAINTMNU 2 3 4
@ 0, 1 indiquent que « disparaissent le Br de Quit'< de Modi Sel/>*L
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () que HELP
activent la fenêtre MAINTMNU
@ 0, 1-1 prompt1
@ 0, 4-1 prompt2
@ 0, 9-1 prompt3
@ 0.13-1 le menu prompt de prompt4
au choice
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= « choix de caisse du Br/> de quit'< = option de 1
= « choix de caisse du Br/> de go'< = option de 2
= « le choix de caisse du Br/> de modify'< = l'option de 3
= « choix de caisse du Br/> de select'< = option de MAINTMNU
de fenêtre de dégagement de 4
= « l'endcase
du Br/> de quit'< mettent le getsel
de l'option
*L
function de MAINTMNU
return de fenêtre sur l'étiquette principale F7 font le genhlp avec le
de système (18) font la droite de cas du case
(système (16.2), 12) = « » <> de zoom_num de .and « de CRITTERS.FXP que 1 '
font la droite de cas de maintmnu2
(système (16.2), 12) = ' CONTRACT.FXP » .or bien (système (16.2), 11) = ' INVOICE.FXP » .or. ; le
redressent (système (16.2), 11) = ' ANIMALS.FXP » .or bien (système (16.2), 08) = ' BIDS.FXP » .or. ; le
redressent (système (16.3), 08) = ' CREW.FXP » .or bien (système (16.2), 12) = ' CRITTERS.FXP » .or. ; le
redressent (système (16.3), 07) = ' DHR.FXP » .or bien (système (16.3), 08) = ' ACTS.FXP » .or. ; le
redressent (système (16.3), 10)='AGENCY.FXP » .or bien (système (16.3), 08) = ' JOBS.FXP » .or. ; le
redressent (système (16.3), 08) = ' MAPS.FXP » .or bien (système (16.3), 11) = ' MEASURE.FXP » .or. ; le
redressent (système (16.3), 11) = ' PAYABLE.FXP » .or bien (système (16.3), 10)='PRICES.FXP » .or. ; le
redressent (système (16.3), 12) = ' PRODUCTN.FXP » .or bien (système (16.3), 10)='PETSHP.FXP » .or. ; le
redressent (système (16.3), 11) = ' RECEIVE.FXP » .or bien (système (16.3), 11) = ' SUBRENT.FXP » .or. ; le
redressent (système (16.3), 08) = ' USDA.FXP » .or bien (système (16.3), 12) = ' HELTHCRT.FXP » .or. ; le
redressent (système (16.3), 09) = le ' Br/>
d'ADOPT.FXP'< font le && maintmnu4 a ajouté le menu pour 'la droite de caisse du Br/>
de Go'< (le système (16.3), 9) = le 'Br/> de SETUP.FXP'< font l'otherwise
de maintmnu5
font le *
* du
* de ****** du de ********** du de ********** du de ********** du de ********** du de ************************** de l'option
*L
de l'endcase
return du maintmnu
pour des CRÉATURES que le menu standard d'entretien est remplacé par : dismsg du *
= du *
* du *
* MAINTMNU.prg du *
* (« erreur de Crit # 1 - code non activé. le
de ****** du de ********** du de ********** du de ********** du de ********** du de ************************** du ")
(de getsel) activent le message réglé du screen
à la dimension du
d'actn_pad de dimension de 0
(8.2) data_bar (dimension de 3)
recd_bar (dimension de 3)
recs_bar (dimension de 3)
edit_bar (dimension de 2)
addr_bar (dimension de 3)
scrn_bar (dimension de 2)
filt_bar (dimension de 2)
quit_bar (1)
* définir la garniture dans chaque actn_pad du popup
(1.1) = l'actn_pad du
de 'BASE DE DONNÉES '(2.1) = l'actn_pad du
de 'DISQUE '(3.1) = 'ENREGISTRE 'l'actn_pad du
(4.1) = l'actn_pad du
de 'EDIT '(5.1) = 'l'actn_pad du Br/> d'ADD'< (6.1) = 'ÉCRAN le 'actn_pad du
(7.1) = 'FILTRE le 'actn_pad du
(8.1) = 'A STOPPÉ le 'actn_pad du
(1.2) = 'BASE DE DONNÉES le 'actn_pad du
(2.2) = 'DISQUE le 'actn_pad du
(3.2) = 'des DISQUES le 'actn_pad du
(4.2) = 'l'actn_pad du
de 'ÉCRAN 'd'EDIT le 'actn_pad du
(5.2) = 'l'actn_pad du Br/> d'ADD'< (6.2) = (7.2) = l'actn_pad du
de 'FILTRE '(8.2) = 'STOPPER 'le
data_bar (1) = 'liste '
data_bar (2) = 'bourdonnement '
data_bar (3) = 'contrôle '
* data_bar (4) = 'stopper 'le
recd_bar (1) = 'Br/> de Retrieve'< recd_bar (2) = 'après '
recd_bar (3) = 'Br/> de Previous'< recs_bar (1) = 'commencer 'le
recs_bar (2) = 'extrémité '
recs_bar (3) = 'saut '
edit_bar (1) = 'modifier 'le
edit_bar (2) = 'éditer le Br/> de Memo'< addr_bar (2) = '
addr_bar (3) =
de 'copie 'scrn_bar (1) = 'prochain Br/> de Page'< scrn_bar (2) = 'Br/> de Page'< de Prev filt_bar (1) = le
'placer filtre 'filt_bar (2) =
'de filtre d'annulation 'quit_bar (1) = actn_pad 'stoppé 'de barre de menu de
, 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
de 8
de 3
de 3
de 3
de 2
de 3
de 2
de 2
@ 24.0 indiquent que le
de l'espace (80) a lu la barre de menu au sele_row, le clear
du save
de sele_col font le sele_row de cas du case
= l'opt_sel de 1
= sele_row data_bar de cas du
(de sele_col) = opt_sel de 2
= sele_row recd_bar de cas du
(de sele_col) = opt_sel de 3
= sele_row recs_bar de cas du
(de sele_col) = opt_sel de 4
= sele_row edit_bar de cas du
(de sele_col) = opt_sel de 5
= sele_row addr_bar de cas du
(de sele_col) = opt_sel de 6
= sele_row scrn_bar de cas du
(de sele_col) = opt_sel de 7
= opt_sel filt_bar de l'otherwise
du
(de sele_col) = 'Quit' du Br/> si Br/> @ 0.1 de Quit'< de <> d'opt_sel le 'indiquent le haut (équilibre (l'opt_sel)) l'endif
de la couleur w+/n
activent l'usr_wndw&page_num
return de fenêtre plus bas (équilibre (l'opt_sel))le getseli
du
*L
function activent le message réglé du screen
à la dimension du
d'actn_pad de dimension de 0
(5.2) data_bar (dimension de 4)
recd_bar (dimension de 7)
scrn_bar (dimension de 2)
filt_bar (dimension de 2)
quit_bar (1)
* définir la garniture dans chaque actn_pad du popup
(1.1) = 'BASE DE DONNÉES 'l'actn_pad du
(2.1) = 'DISQUE 'l'actn_pad du
(3.1) = 'ÉCRAN 'l'actn_pad du
(4.1) = 'FILTRE 'l'actn_pad du
(5.1) = l'actn_pad 'STOPPÉ 'du
(1.2) = 'BASE DE DONNÉES 'l'actn_pad du
(2.2) = 'DISQUE le 'actn_pad du
(3.2) = 'ÉCRAN le 'actn_pad du
(4.2) = 'FILTRE le 'actn_pad du
(5.2) = « A STOPPÉ « le
* data_bar (1) = iif (no_zooms = zoom_no, » \ - », le « ")
de bourdonnement data_bar (1) = 'liste '
data_bar (2) = 'contrôle '
data_bar (3) = 'bourdonnement '
data_bar (4) = 'stopper le '
recd_bar (1) = 'Br/> de Retrieve'< recd_bar (2) = 'après '
recd_bar (3) = 'Br/> de Previous'< recd_bar (4) = 'Commencer le '
recd_bar (5) = '
d'extrémité 'recd_bar (6) = '
de saut 'recd_bar (7) = '
de note 'scrn_bar (1) = 'prochain Br/> de Page'< scrn_bar (2) = 'Br/> de Page'< de Prev filt_bar (1) = 'placer le Br/> de Filter'< filt_bar (2) = 'Br/> de Filter'< d'annulation quit_bar (1) = actn_pad 'stoppé 'de barre de menu de
, menu 1, data_bar, menu 2, recd_bar, menu 3, scrn_bar, menu 4, filt_bar, menu 5, quit_bar, 1
@ 24.0 de 5
de 4
de 7
de 2
de 2
dire que le
de l'espace (80) a lu la barre de menu au sele_row, le clear
du save
de sele_col font le sele_row de cas du case
= l'opt_sel de 1
= sele_row data_bar de cas du
(de sele_col) = opt_sel de 2
= sele_row recd_bar de cas du
(de sele_col) = opt_sel de 3
= sele_row scrn_bar de cas du
(de sele_col) = opt_sel de 4
= opt_sel filt_bar de l'otherwise
du
(de sele_col) = 'l'endcase
du Br/> de Quit'< si le Br/> @ 0.1 de Quit'< de <> d'opt_sel 'indiquent le haut (équilibre (opt_sel)) l'endif
de la couleur w+/n
activent l'usr_wndw&page_num
return de fenêtre plus bas (équilibre (l'opt_sel))le getselr
du
*L
function sur l'étiquette principale F7 font le genhlp avec le
du système (18) font le *
* du
* de ****** du de ********** du de ********** du de ********** du de ********** du de ************************** de maintmnu3
return
pour des CRÉATURES que le menu standard d'entretien est remplacé par : dismsg du *
= du *
* du *
* MAINTMNU.prg du *
* (« erreur de Crit # 1 - code non activé. le
de ****** du de ********** du de ********** du de ********** du de ********** du de ************************** du ")
(de getselr) activent le message réglé du screen
à la dimension du
d'actn_pad de dimension de 0
(7.2) prnt_bar (dimension de 3)
data_bar (dimension de 3)
recd_bar (dimension de 2)
recs_bar (dimension de 3)
scop_bar (dimension de 3)
filt_bar (dimension de 2)
quit_bar (1)
* définir la garniture dans chaque actn_pad du popup
(1.1) = l'actn_pad du
de 'IMPRESSION '(2.1) = l'actn_pad du
de 'BASE DE DONNÉES '(3.1) = l'actn_pad du
de 'DISQUE '(4.1) = des 'DISQUES 'l'actn_pad du
(5.1) = 'PORTÉE 'l'actn_pad du
(6.1) = 'FILTRE 'l'actn_pad du
(7.1) = 'A STOPPÉ 'l'actn_pad du
(1.2) = 'COPIE 'l'actn_pad du
(2.2) = 'BASE DE DONNÉES 'l'actn_pad du
(3.2) = 'DISQUE 'l'actn_pad du
(4.2) = 'ENREGISTRE 'l'actn_pad du
(5.2) = 'PORTÉE 'l'actn_pad du
(6.2) = 'FILTRE 'l'actn_pad du
(7.2) = le
prnt_bar (1) = 'à imprimeur '
prnt_bar (2) = 'à
de dossier 'prnt_bar (3) = '
* à écran 'prnt_bar (4) = 'Br/>* de Report'< d'impression prnt_bar (5) = 'statut '
* prnt_bar (6) =
data_bar (1) = 'liste '
data_bar (2) = 'contrôle '
data_bar (3) = 'Br/>
de Status'< recd_bar (1) = 'après '
recd_bar (2) = 'Br/>
de Previous'< recs_bar (1) = 'commencer 'le
recs_bar (2) = 'extrémité '
recs_bar (3) = 'saut '
scop_bar (1) = 'Du '
scop_bar (2) = 'pour enregistrer '
scop_bar (3) = '
de portée d'annulation 'filt_bar (1) = '
placer filtre le 'filt_bar (2) = '
de filtre d'annulation 'quit_bar (1) = actn_pad 'stoppé 'de barre de menu de
, le menu 1, prnt_bar, le menu 2, data_bar, le menu 3, recd_bar, le menu 4, recs_bar, le menu 5, scop_bar, le menu 6, filt_bar, le menu 7, quit_bar, 1
de 7
de 3
de 3
de 2
de 3
de 3
de 2
a lu la barre de menu au sele_row, save
de/> font le sele_row de cas du case
= l'opt_sel de 1
= sele_row prnt_bar de cas du
(de sele_col) = opt_sel de 2
= sele_row data_bar de cas du
(de sele_col) = opt_sel de 3
= sele_row recd_bar de cas du
(de sele_col) = opt_sel de 4
= sele_row recs_bar de cas du
(de sele_col) = opt_sel de 5
= sele_row scop_bar de cas du
(de sele_col) = opt_sel de 6
= opt_sel filt_bar de l'otherwise
du
(de sele_col) = 'l'endcase
du Br/> de Quit'< si le Br/> @ 0.1 de Quit'< de <> d'opt_sel 'indiquent le haut (équilibre (l'opt_sel)) l'endif
de la couleur w+/n
activent l'usr_wndw
return de fenêtre plus bas (équilibre (l'opt_sel))l'init_rpt
du
*L
function font l'outp_dev de cas du case
= mouvement de && du <> « P_LABELS.FXP » de « laser » outp_dev de .or = le 'Br/> de dot'< si outp_dev = 'copie réglée du Br/> de dot'< à l'endif
de LPT1
si outp_dev = le 'Br/> de laser'< si bon (système (16.3), 12) à 95. Changer ceci quand possible.
si l'akl_system $ 'copie réglée du Br/> de Y'< à la copie réglée de l'else
de LPT1
à l'endif
de l'endif
de l'endif
de LPT1
si droit (système (16.3), 12) = 'le Br/>* de P_LABELS.FXP'< si le groupe = 1 groupe de .or de = groupe 2 .or = 3 commentait parce que le there
* n'est pas plus d'imprimante par points. 4/11/2000
* du
* (akl - 12/31/98 16h31) de 21h57 (akl) j'enlève ceci si rapport. Je ne sais pas vraiment pourquoi je l'ai mis in.
* que je me suis contredit. Voir précédent SI rapport, juste au-dessous du « laser ». Le
* après un long temps, enlèvent ceci SI et l'EXTRÉMITÉ statements.
* si bon (système (16.3), 12) mouvement de && du <> « P_LABELS.FXP » sur 95. Changer ceci quand possible.
si copie réglée du Br/> de Y'< de $ d'akl_system 'à la copie réglée de l'else
de LPT1
à l'endif
de l'endif
de l'endif
* de l'endif
* de LPT1
si droit (système (16.3), 11) = « P_CONTR.FXP » .or. ; le
redressent (système (16.3), 10) = « P_INVO.FXP » .or. ; le
redressent (système (16.3), 12) = le 'Br/> de P_SUBRNT.FXP'< si la copie réglée du Br/> de Y'< de $ d'akl_system 'à la copie réglée de l'else
de LPT1
à l'endif
de l'endif
de LPT1
font tandis que le système (13) = le « Br/> @ 0.0 d'OFFLINE'< indiquent que » l'imprimeur svp réglé sur la ligne… « s_readkey du read
du
=
de readkey () si le s_readkey de = s_readkey 268 .or de = évasion 12 && était dispositif réglé du pressed
à l'enddo
@ 0,0
@ 0.0 de l'endif
du return
de l'off
d'impression de l'on
de console du screen
disent » l'impression - ESC à arrêter 'dispositif réglé du
au printer
si outp_dev = 'le Br/> de laser'< * se déplacer à 95. Changer ceci si possible. < - pourquoi ? 11/14/01
si bon (système (16.3), 12) <> « P_LABELS.FXP » .and. ; le
redressent est-ce que (le système (16.5), 10) l'on
* @ 0.0 d'impression de l'off
de console du Br/> de P_BIDS.FXP'< de <> 'indiquent que le chr (27) + && de " E » initialisent le printer
? ? le chr (27) + outp_dev réglé réglé de cas de l'endif
de l'endif
de l'on
de console de l'off
d'impression du
de " E " = le « Br/> @ 0,0
@ 0.0 de file'< indiquent » l'impression - ESC pour cesser 'l'imprimante réglée du
pour classer le dispositif réglé du &rep_file
pour classer l'outp_dev de cas du &rep_file
= le « Br/> @ 0,0
@ 0.0 de screen'< indiquent » l'impression - ESC pour cesser « l'imprimante réglée du
pour classer le dispositif réglé de gentemp.gtx
pour classer l'akl de ********** de gentemp.gtx
: Les lignes se sont ajoutées pour arrêter l'into
de caractère de TOF éjectent le dossier de && en tant que d'abord caractère. 8/01/98 dispositif réglé réglé du to
d'imprimeur du
de 1h18 du matin à l'imprimeur réglé du screen
pour classer le dispositif réglé de gentemp.gtx
pour classer le page_no de l'endcase
du
de ********** de gentemp.gtx
= line_no de 1
= off
de console du top_margin
lnk_var = le ''
vont le first_rec
si .not vident (le filtre ())le filter_str du
= le
de filtre () si le brk_no de l'endif
de l'endif
du skip
du &filter_str
de .not = le brk_num de 1
= « 1 '
fait = at_top du &done_cond
= .t.
return '' le choice
du maintmnu
* VARIABLES
du
*L
function privé tous comme le choix = le 0
du prompt*
prompt1 = » ajoutent « le
prompt2 = » prient « le
prompt3 = » copie « le
prompt4 = » Del « le
prompt5 = » extrémité « le
prompt6 = » Filt « le
prompt7 = » liste « le
prompt8 = » Modi « le
prompt9 = » après le «
prompt10 = »
de Prev le « prompt11 = prompt12 = » rouissent le «
prompt13 = »
de saut le « prompt14 = »
de contrôle le « prompt15 = »
* WINDOWS
de bourdonnement le « définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » entretien du
commande le menu » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
* a commenté pour VFP
SI. F.
activent le noshow
* 1 de la fenêtre MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, 1 indiquent que 'ajouter prient la liste Modi de Copy Del End Filt que prochain Prev stoppé rouissent le Br/> ENDIF
* de Zoom'< de contrôle de saut a présenté pour la TOUCHE de FONCTION de VFP
*L
* ASSIGNMENT
ses observations sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () HELP
font le prog_name de cas du case
= le
de « CALENDRIER " sur l'étiquette principale F2 font le mntmnuf avec 2
sur l'étiquette principale F10 font le mntmnuf avec l'otherwise
de 10
sur l'étiquette principale F2 font le mntmnuf avec 2
sur l'étiquette principale F8 font le mntmnuf avec 8
sur l'étiquette principale F9 font le mntmnuf avec 9
sur l'étiquette principale F10 font le mntmnuf avec 10
sur l'étiquette principale F11 font le mntmnuf avec l'endcase
* de 11
supplémentaire pour le
de VFP font le s_choice de DispMenu
= le choix du mChoice
= le mChoice
* ont commenté pour VFP
SI. F.
activent la fenêtre 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 le menu que prompt de prompt15
au choice
ENDIF
* a commenté pour VFP
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= 'choix de caisse du Br/> de quit'< = 1
= 'choix de caisse du Br/> d'add'< = option de 2
= 'choix de caisse du Br/> de begin'< = option de 3
= 'choix de caisse du Br/> de copy'< = option de 4
= 'choix de caisse du Br/> de delete'< = option de 5
= 'choix de caisse du Br/> d'end'< = 6
définissent le fil_wndw de fenêtre de 1.50 à 6.77 que le double arrangement de couleur 12
activent l'en-tête du fil_wndw
de fenêtre = 'le Br/> @ 1.00 de Filter'< disent que l'espace (13-len (en-tête) /2) + le header
@ 3.04 indiquent 'le Br/> de '< de @ 3.05 menu du Br/> de Cancel'< du message de sollicitation 3.16 du Br/> de Set'< de message de sollicitation '@ 'au fil_opt
si fil_opt = l'option de 1
= 'a placé l'endif
du Br/> de filter'< si fil_opt = option de 2
= 'choix de cas du fil_wndw
de fenêtre de dégagement de l'endif
du Br/> de filter'< d'annulation = option de 7
= 'choix de caisse du Br/> de list'< = option de 8
= 'choix de caisse du Br/> de modify'< = option de 9
= 'choix de caisse du Br/> de next'< = option de 10
= 'choix de caisse du Br/> de previous'< = option de MAINTMNU
de fenêtre de dégagement de 11
= 'choix de caisse du Br/> de quit'< = option de 12
= 'choix de caisse du Br/> de retrieve'< = option de 13
= 'choix de caisse du Br/> de skip'< = option de 14
= « le choix de caisse du Br/> de tally'< = l'option de 15
= « l'endcase
du Br/> de zoom'< mettent l'option
* de MAINTMNU
return de fenêtre - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - le mntmnuf
parameter KeyF_no
du
function font le cas KeyF_no = 2
du case
KeyF2 =. Cas KeyF_no = 5
de T.
KeyF5 =. Cas KeyF_no = 8
de T.
KeyF8 =. Cas KeyF_no = 9
de T.
KeyF9 =. Cas KeyF_no = 10
de T.
KeyF10 =. Cas KeyF_no = 11
de T.
KeyF11 =. Le s_FkeyRec de l'endcase
de T.
= le s_prgname du
de recno () = le choice
du plain
return
*L
function maintmnu2
* VARIABLES
de chr de clavier du prog_name
(113) privé tous comme le choix = le 0
du prompt*
prompt1 = » Modi « le
prompt2 = » stoppent « le
prompt3 = » Del « le
prompt4 = » Filt « le
* si ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
* (droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
le « de CRITCATS.DBF ")) prompt5 = prompt6 = endif
* WINDOWS
du
* définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » entretien du
commande le menu (bourdonnement) » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
SUR L'ÉTIQUETTE PRINCIPALE Alt+F12 SUSPEND
activent le noshow
* 1 de la fenêtre MAINTMNU 2 3 4 5 6
@ 0, 1 indiquent 'le Br/>
de Secondary'< de Del Filt Primary de Modi Quit si ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) =
* 1 2 3
le « de CRITCATS.DBF ")) * 123456789012345678901234567890123456
@ 0, 1 indiquent 'le Br/> * message de sollicitation de Secondary'< de Del Filt Primary de Modi Quit : 1 2 3 4 5 endif
/>*L
sur l'étiquette principale F2 font mntmnuf22
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR HELP
de && de programme () si ((droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITCATS.DBF ")) sur l'étiquette principale PgDn font DispSecn
sur l'étiquette principale PgUp font l'endif
de DispPrim
activent la fenêtre MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 prompt2
@ 0.11-1 prompt3
@ 0.15-1 prompt4
si (droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
redressent (système (16.2), 12) = « CRITTERS.FXP » .and bien (dbf (), 12) =
le « de CRITCATS.DBF ")) @ 0.20-1 prompt5
@ 0.28-1 le menu que prompt de l'endif
de prompt6
au choice
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= 'choix de caisse du Br/> de quit'< = option de 1
= 'choix de caisse du Br/> de modify'< = option de MAINTMNU
de fenêtre de dégagement de 2
= 'choix de caisse du Br/> de quit'< = option de 3
= 'choix de caisse du Br/> de delete'< = 4
définissent le fil_wndw de fenêtre de 1.50 au double arrangement de couleur 6.77 12
activent l'en-tête du fil_wndw
de fenêtre = le 'Br/> @ 1.00 de Filter'< disent l'espace (13-len (en-tête) /2) + le header
@ 3.04 indiquent que 'le Br/> de '< de @ 3.05 menu du Br/> de Cancel'< du message de sollicitation 3.16 du Br/> de Set'< de message de sollicitation '@ 'au fil_opt
si le fil_opt = l'option de 1
= 'placent l'endif
du Br/> de filter'< si le fil_opt = l'option de 2
= 'choix de cas du fil_wndw
de fenêtre de dégagement de l'endif
du Br/> de filter'< d'annulation = option de 5
= le « Br/> de primary'< font le choix de cas de DispPrim
= l'option de 6
= « le Br/> de secondary'< font l'endcase
de DispSecn
mettent la fenêtre hors tension MAINTMNU
si (droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = « CRITDOGS.DBF ") .or. ; le
(droit (système (16.2), 12) = « CRITTERS.FXP » .and redressent (dbf (), 12) = le « ")
de CRITCATS.DBF sur l'étiquette principale PgDn
sur l'option
* de l'endif
return de PgUp
d'étiquette - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - le
function mntmnuf22
KeyF2 =. Le s_prgname de T.
= le choice
du plain
return
*L
function maintmnu3
* VARIABLES
de chr de clavier du prog_name
(113) privé tous comme le choix = le 4
du prompt*
prompt1 = » prient « le
prompt2 = » extrémité « le
prompt3 = » Filt « le
Prompt4 = » vont « le
prompt5 = » liste « le
prompt6 = » après « le
prompt7 = » Prev « le
prompt8 = le prompt9 = » rouissent « le
prompt10 = » saut « le
prompt11 = » contrôle « le
prompt12 = » < « le
prompt13 = » > le «
* WINDOWS
définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » rapport du
commande le menu » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
activent le noshow
* 1 de la fenêtre MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, 1 indiquent que 'prier l'extrémité Filt vont liste que prochain Prev stoppé
'/>*L
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () HELP
activent la fenêtre 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
@ le menu que prompt de 0.54-1 prompt13
au choice
le choix font du case
cas = l'option de MAINTMNU
de fenêtre de dégagement de 0
= 'choix de caisse de Br du quit' = option de 1
= 'choix de cas de begin'< le Br/> = option de 2
= 'choix de caisse de Br de l'end' = 3
définissent le fil_wndw de fenêtre de 1.50 à 6.77 le double arrangement de couleur 12
activent l'en-tête du fil_wndw
de fenêtre = 'le Br/> @ 1.00 de Filter'< disent que l'espace (13-len (en-tête) /2) + le header
@ 3.04 indiquent 'le message de sollicitation 3.05 du Br/> de '< de @ 'message de sollicitation 3.16 'menu du Br/> de Set'< @ du Br/> de Cancel'< au fil_opt
si le fil_opt = l'option de 1
= 'placent l'endif
du Br/> de filter'< si fil_opt = option de 2
= 'choix de cas du fil_wndw
de fenêtre de dégagement de l'endif
du Br/> de filter'< d'annulation = 4
si droit (système (16.3), 11) = 'l'option du Br/> de P_CONTR.FXP'< = 'à l'else
* du Br/> de printer'< font le choix de cas de l'endif
du && 11/27/93
d'out_dev = l'option de 5
= 'choix de caisse du Br/> de list'< = option de 6
= 'choix de caisse du Br/> de next'< = option de 7
= 'Br de previous'< le choix de cas de/> = l'option de MAINTMNU
de fenêtre de dégagement de 8
= 'choix de caisse du Br/> de quit'< = option de 9
= 'choix de caisse du Br/> de retrieve'< = option de 10
= 'choix de caisse du Br/> de skip'< = option de 11
= 'choix de caisse du Br/> de tally'< = option de 12
= 'de choix de caisse du Br/> de record'< = option de 13
= « à l'endcase
du Br/> de record'< mettent l'option
*L
function maintmnu4
* 10/19 de MAINTMNU
return de fenêtre - « menu4 supplémentaires » pour permettre « vont » (copie) d'un maintnenace window.
* ceci des travaux les mêmes que le menu d'impression « vont » commande. Le choice
du
* VARIABLES
privé tous comme le choix = le 0
du prompt*
prompt1 = » ajoutent « le
prompt2 = » prient « le
prompt3 = le
de » copie « prompt4 = le
de » Del « prompt5 = le
de » extrémité « prompt6 = le
de » Filt « prompt7 = » vont « le
prompt8 = le
de » liste « prompt9 = le
de » Modi « prompt10 = » après « le
prompt11 = le
de » Prev « prompt12 = le prompt13 = » rouissent « le
* nouveau Command
si droit (système (16.2), 12) = else
du
de « CRITTERS.FXP » .or redressent (le système (16.3), 8) = le « Br/> d'USDA.FXP'< prompt14 = » Sele le « prompt14 = » endif
du
de saut le « prompt15 = »
de contrôle le « prompt16 = »
* WINDOWS
de bourdonnement le « définissent la fenêtre MAINTMNU de 95.0 à 105.190 ; le titre » entretien du
commande le menu » ; arrangement de couleur d'ombre de flotteur de double du
2 ; la POLICE « Arial du
"BOLD" », 19
* SCREEN
SUR L'ÉTIQUETTE PRINCIPALE Alt+F12 SUSPEND
activent le
* de la fenêtre MAINTMNU a commenté pour VFP
SI. F.
si droit (système (16.2), 12) = le 'Br/>* 1 de CRITTERS.FXP'< 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, 1 indiquent 'ajouter prient Copy Del End Filt vont liste Modi que prochain Prev stoppé rouissent l'else
@ 0, 1 du Br/> de Zoom'< de contrôle de Sele indiquent que 'ajouter prient Copy Del End Filt vont liste Modi prochain Prev stoppé rouissent le Br/> ENDIF
ENDIF
* de Zoom'< de contrôle de saut a commenté pour VFP
*L
si .not redressent (système (16.3), 11) = le
de « ANIMALS.FXP " sur l'étiquette principale F1 font mntmnuf4 avec 1
l'endif
si .not redressent (système (16.3), 8) = le
de « BIDS.FXP " sur l'étiquette principale F2 font mntmnuf4 avec l'endif
de 2
si .not redressent (système (16.3), 12) = le
de « CALENDAR.FXP " sur le F-3 principal d'étiquette font mntmnuf4 avec l'endif
de 3
si .not redressent (système (16.3), 12) = le
de « CONTRACT.FXP " sur l'étiquette principale F4 font mntmnuf4 avec l'endif
de 4
si .not redressent (système (16.3), 12) = le
de « CRITTERS.FXP " sur l'étiquette principale F5 font mntmnuf4 avec l'endif
de 5
si .not. redresser (système (16.3), 11) = le
de « INVOICE.FXP " sur l'étiquette principale F6 font mntmnuf4 avec l'endif
de 6
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () que HELP
sur l'étiquette principale F8 font mntmnuf4 avec 8
si .not redressent (système (16.3), 10) = le
de « PRICES.FXP " sur l'étiquette principale F9 font mntmnuf4 avec l'endif
de 9
sur l'étiquette principale F10 font mntmnuf4 avec 10
sur l'étiquette principale F11 font mntmnuf4 avec 11
activent la fenêtre MAINTMNU
font le s_choice de DispMenu
= le choix du mChoice
= le mChoice
* a commenté pour VFP
SI. 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
@ le menu que prompt de 0.70-1 prompt16
au choice
ENDIF
* a commenté pour VFP
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= 'choix de caisse du Br/> de quit'< = l'option de 1
= 'choix de caisse du Br/> d'add'< = option de 2
= 'choix de caisse du Br/> de begin'< = option de 3
= 'choix de caisse du Br/> de copy'< = option de 4
= 'choix de caisse du Br/> de delete'< = option de 5
= 'choix de caisse du Br/> d'end'< = 6
définissent le fil_wndw de fenêtre de 1.50 à 6.77 que le double arrangement de couleur 12
activent l'en-tête du fil_wndw
de fenêtre = 'le Br/> @ 1.00 de Filter'< disent que l'espace (13-len (en-tête) /2) + le header
@ 3.04 indiquent 'le Br/> de '< de @ 3.05 menu du Br/> de Cancel'< du message de sollicitation 3.16 du Br/> de Set'< de message de sollicitation '@ 'au fil_opt
si le fil_opt = l'option de 1
= 'ont placé l'endif
du Br/> de filter'< si fil_opt = option de 2
= 'choix de cas du fil_wndw
de fenêtre de dégagement de l'endif
du Br/> de filter'< d'annulation = option de 7
= 'choix de caisse du Br/> de go'< = option de 8
= 'choix de caisse du Br/> de list'< = option de 9
= 'choix de caisse du Br/> de modify'< = option de 10
= 'choix de caisse du Br/> de next'< = option de 11
= 'choix de caisse du Br/> de previous'< = option de MAINTMNU
de fenêtre de dégagement de 12
= 'choix de caisse du Br/> de quit'< = option de 13
= 'choix de caisse du Br/> de retrieve'< = 14
l'option = 'choix de caisse du Br/> de skip'< = option de 15
= « choix de caisse du Br/> de tally'< = option de 16
= « note de rele du vent MAINTMNU4
de rele du vent MAINTMNU4
de deac de MAINTMNU
de vent de rele de MAINTMNU
de vent de deac de l'endcase
du Br/> de zoom'< comme l'option
*L
* du prompt*
return s'est ajoutée pour le mCHOICE PUBLIC du
procedure DispMenu
de VFP, mGET, le cCHOICE, le MAGASIN 0 du cCHOICES
au mCHOICE, "" de MAGASIN du mGET
au cCHOICE, nCOL du cCHOICES
* = (WCOLS () /2.0) - 19
* s'ajoutent prient Copy Del End Filt vont liste Modi que prochain Prev stoppé rouissent le nPad du Br/>
de Zoom'< de contrôle de saut = le nROW de 3
= le nCOL de 0
* 1
= 0
OBTIENNENT AVEC le nROW, nCOL, » \ nCOL = nCol
de OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
, « \ OBTIENNENT AVEC le nROW, nCOL, » \ " nCOL = nCol + 4 + le nPad
OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
* 5
, « \
, » \ OBTIENNENT AVEC le nROW, nCOL, « \ nCOL = nCol
de OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
, » \ OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
, « \
OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
* 10
, » \ OBTIENNENT AVEC le nROW, nCOL nCOL = nCol du
, « \ OBTIENNENT AVEC le nROW, nCOL + 4 + le nPad
OBTIENNENT AVEC le nROW, nCOL, « \ + 4 + le nPad
OBTIENNENT AVEC le nROW, nCOL + 3 + le nPad
OBTIENNENT AVEC le nROW, nCOL, « \ " nCOL = nCol du
* 15
+ 4 + le nPad
OBTIENNENT AVEC le nROW, nCOL, » \ + 5 + le nPad
OBTIENNENT AVEC le nROW, nCOL
*, le « \ " s'ajoutent prient Copy Del End Filt vont liste Modi prochain Prev Stoppé rouir le cCHOICES du Br/>
de Zoom'< de contrôle de saut = le cCHOICES + « 12Q " cCHOICE du
= mCHOICE du mCHOICE
du fnCUROBJ
PARAMETERS du
FUNCTION de fnCHOICE (cCHOICES, « Q ») = _CUROBJ
RETURN. nROW de T.
PROCEDURE GET
PARAMETERS, nCOL, cFUNC, bSKIP
nSIZE2 = LEN (STRTRAN (cFUNC, » \ <")) + nROW du
de 2
@, nCOL OBTIENNENT LA FONCTION de mGET « * « +IIF (bSKIP, » \ \ « , "") +cFUNC ; Le nROW VALIDE du
* de fnCUROBJ du
(@mCHOICE) @, nCOL OBTIENNENT LA FONCTION de mGET « * « +IIF (bSKIP, » \ \ « , "") +cFUNC ; DÉFAUT VALIDE du
* de fnCUROBJ du
(@mCHOICE) 1 TAILLE 1, note VALIDE du
* du fnCUROBJ nSIZE2 (@mCHOICE) : nSIZE2 n'est pas employé aucun autre cCHOICES du fnCHOICE
PARAMETERS de place.
RETURN
FUNCTION, le cDEF
A LU le mCHOICE du mCHOICE
d'OBJET de CYCLE = le
RETURN IIF (mCHOICE d'IIF (LASTKEY () =27, À (cDEF, cCHOICES), mCHOICE) > 0, extrémité de
* de SUBSTR (cCHOICES, mCHOICE, 1), "") - supplémentaire pour VFP
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - le suspend
du
function mntmnuf4
parameter KeyF_no
* faire le cas KeyF_no = 1
du case
KeyF1 =. Cas KeyF_no = 2
de T.
KeyF2 =. Cas KeyF_no = 3
de T.
KeyF3 =. Cas KeyF_no = 4
de T.
KeyF4 =. Cas KeyF_no = 5
de T.
KeyF5 =. Cas KeyF_no = 6
de T.
KeyF6 =. Cas KeyF_no = 8
de T.
KeyF8 =. Cas KeyF_no = 9
de T.
KeyF9 =. Cas KeyF_no = 10
de T.
KeyF10 =. Cas KeyF_no = 11
de T.
KeyF11 =. s_FkeyRec de l'endcase
de T.
= s_prgname du
de recno () = prog_name
si le prog_name = « PAYABLE » et dit () = s_FkeyPag du
de « PAYDETL " = s_FkyMRec choisi du payable
de 2
= choice
du plain
return
*L
function maintmnu5
* VARIABLES
de chr de clavier de l'endif
du
de recno () (113) privé tous comme le choix = le 0
du prompt*
prompt1 = le prompt2 = le
* WINDOWS
de » Modi « définissent la fenêtre MAINTMNU de 22.0 à 24.79 ; le titre » entretien du
commande le menu » ; l'arrangement de couleur d'ombre de flotteur de double du
2
* SCREEN
SUR L'ÉTIQUETTE PRINCIPALE Alt+F12 SUSPEND
activent le noshow
* 1 2
de la fenêtre MAINTMNU @ 0, 1 indiquent que 'le Br stoppé de Modi'*L
sur l'étiquette principale F7 font le genhlp avec l'UTILISATEUR de && de programme () que HELP
activent la fenêtre MAINTMNU
@ 0, 1-1 prompt1
@ 0, 6-1 le menu prompt de prompt2
au choice
font le choix de cas du case
= l'option de MAINTMNU
de fenêtre de dégagement de 0
= 'choix de caisse du Br/>
de quit'< = option de MAINTMNU
de fenêtre de dégagement de 1
= 'choix de caisse du Br/>
de quit'< = option de 2
= 'Br de modify'< l'endcase
de/>
mettent l'out_dev
de l'option
*L
function de MAINTMNU
return de fenêtre définissent le fil_wndw de fenêtre de 1.40 à 6.77 que le double arrangement de couleur 12
activent l'en-tête du fil_wndw
de fenêtre = le 'Br/> @ 1.00 de Print'< disent que l'espace (19-len (en-tête) /2) + le header
@ 3.04 indiquent 'Br/> de Screen'< du message de sollicitation 3.05 du Br/> de '< de de @ le '@ 3.16 menu du Br/>
de File'< du message de sollicitation 3.26 du Br/> de Laser'< de message de sollicitation '@ 'au fil_opt
si fil_opt = option de 1
= 'à l'endif
du Br/> de screen'< si fil_opt = option de 2
= 'à l'endif
du Br/> de laser'< si fil_opt = 3
= 'à akl étroit de ********** de save_rec
de
*L
function de databases
all
usr_wndw
restenvr
function/>*L
return de databases
return d'all
de vitrine d'exposition du fil_wndw
return '' restenv
du
*L
function pour i=1 à l'i_str du no_pages
= au streptocoque (I, 1)
si endfor
de l'endif
de l'usr_wndw&i_str
de fenêtre de dégagement du
de wexist ('i_str d'usr_wndw'+) si wexist (« le screen
@ 0.62 d'acti de l'endif
du maintmnu
de fenêtre de dégagement de ")
indiquent l'espace (7)
@ 0.70 indiquent l'espace (9)
de fenêtre de dégagement de l'endif
du Br/> de file'< '' étroit '' : D'abord, vérifier l'épellation du 3/19/96
de 1h55 du matin si le prog_name = « OFFRE » le prog_name de .or = le « CONTRAT » .or. ; prog_name du
= prog_name de .or de « FACTURE » = « SUBRENT » .or. ; le prog_name du
= « TRACE » le prog_name de .or = de « HELTHCRT "
font SpellChk avec le disque de && de « REC » (Rec) ou le
de champ (Fld) si droit (le système (16.3), 8) = « USDA.FXP " le
font le getfldA avec le » de .t. « le
font le getfldB avec l'else
du
de » .t. « font le getfld avec le
de ********** de l'endif
de l'endif
du
de » .t. « si confirmer (« sauf le ")
apposent le blank
si droit (système (16.3), 12) = « sele 2
du
de CONTRACT.FXP le " apposent le sele 3
du blank
apposent le blank
de/>/> = akl de ********** du
de rlock () : DHR - Champ USDA.NAME 7/23/96
de 0h37 du matin si prog_name =
de « DHR " l'USDA = memo
de rassemblement du
de ********** de l'endif
d'usda.usda
si droit (système (16.3), 12) = l'unlock
de l'endif
du sele 1
du memvar
de rassemblement du sele 3
du memvar
de rassemblement du sele 2
du
de « CONTRACT.FXP " * remettre à zéro le filter
si .not vident (filtre ())
* Vérifier si record_no du filter
d'allumettes de disque = saut -1
du skip
du
de recno () si le && de record_no de <> de recno () aucun match
=
de _begin () si le && de &at_eof enlèvent le to
de filtre du filter
vont l'endif
de l'endif
de l'endif
du record_no
le && que de retour de sav_wind de l'endif
return .f.
*L
procedure de .t.
lié à F10 par le w_name
de paramètre du gen_hlp
remplacent le front par le wlrow (w_name), bcol avec le wlcol (w_name) ; erow du
avec le wlrow (w_name) + wrows (w_name) + 1 ; ecol du
avec le wlcol (w_name) + wcols (w_name) + && CTRL-W du chr de clavier de 1
(23) pour sortir la fenêtre avec le set_bndry
* saut réglé -1
du save
return
*L
function du boundaries
si top_mark du
de BOF () = top_mark de l'else
de 0
= saut 1
de l'endif
du saut 1
du
de recno () si bot_mark du
d'EOF () = () stp_prnt
du
*L
function de -1
endif
de -1
= recno/>return '' sur le zoom_no de l'escape
= le zoom_num de 1
= '1 ' brk_no du
= brk_num de 1
= '1 'le
choisissent le done_cond de 1
= le
return de '&ndx_exp>last_val.or.eof () 'au n_vald_fld du val_fil
parameters du _print
*L
function, ref_fld, vald_alias, les getpos, vald_fld du fld_size
= clear
du screen
d'acti de l'off
de vue du &n_vald_fld
if .f.
pour I = 1 à 25
?
next
?
? « Paramètres : «
? « n_vald_fld > " +n_vald_fld+ " < "
? « vald_fld > " +vald_fld+ " < "
? « ref_fld = « +ref_fld
? « vald_alias = « +vald_alias
? « getpos = «
? ? getpos
? « fld_size = « le
? ? l'at_eof privé du fld_size
endif
, at_bof, ensemble du record_no
informent l'is_valid de l'off
= l'at_eof de .f.
= at_bof du
de 'EOF () '= des save_alias du
de 'BOF () '= dit () empty_field du
=. Le &vald_alias
de F.
font le type de cas du case
(« vald_fld ») = 'srch_str du Br/> de D'< = streptocoque (année (m->vald_fld), 4) + streptocoque (mois (vald_fld), 2)+str (jour (vald_fld), type de cas de 2)
(« vald_fld ») = 'srch_str de Br/> de N'< = streptocoque (le vald_fld, fld_size)
si vald_fld = empty_field de 0
=. Srch_str de l'otherwise
de l'endif
de T.
= vald_fld
si len (équilibre (le vald_fld)) = empty_field de 0
=. Endcase
de l'endif
de T.
si le type (« vald_fld ») = le 'Br/> de N'< placent pour le &ref_fld = le srch_str
if .f.
de recherche de l'else
du
(de srch_str) ?
? « Cherchant > " +srch_str+ " < "
si ()
? Else
du
? « " Endif
if .f.
de l'endif
endif
du
?
? « EOF () = «
? ?
endif
d'EOF () s'is_valid du found
de && de .not EOF () = else
de .t.
si empty_field
si droit (système (16.3), 12) = l'is_valid du
de « CRITTERS.FXP " = l'is_valid de l'else
de .f.
= les leftpos de l'off
du srch_str
de recherche de l'on
de l'else
de l'endif
de .t.
= le
d'iif (getpos > 40.4.43) définissent le brws_wndw de fenêtre de 6, leftpos à 15, leftpos+30 ; le flotteur de bourdonnement de système du
élèvent l'arrangement de couleur étroit d'ombre 10
sur l'étiquette principale ÉCRIVENT le
du chr de clavier (23) activent le noshow
de brws_wndw de fenêtre passent en revue le dernier noappend nomodify le clear
du screen
d'acti de l'off
de vue du brws_wndw
if .f.
de fenêtre de dégagement du brws_wndw
de fenêtre de nodelete pour I = 1 à 25
?
next
? « > " +type (ref_fld) + " < "
? « > " +ref_fld+ " < "
? « > " +&ref_fld+ " < "
endif
font le type de cas du case
(« ref_fld ») = le 'Br/>if .f.
de C'< ?
? Le « champ est le
de CARACTÈRE " ? « type (ref_fld) = > " +type (ref_fld) + " < "
? « ref_fld = > " +ref_fld+ " < "
? le « &ref_fld = > " nom du
de « m->name " de +&ref_fld+ " < "
sur le &ref_fld
de clavier du suspend
endif
* d'ENTER
* d'étiquette font le n_vald_fld de cas du case
= = is_valid du gets
d'exposition du &ref_fld
= n_vald_fld de cas de .t.
= anml_name du
de « m->anml_name " = is_valid du gets
d'exposition du &ref_fld
= n_vald_fld de cas de .t.
= crit_name du
de « m->crit_name " = is_valid du gets
d'exposition du &ref_fld
= n_vald_fld de cas de .t.
= job_no du
de « m->job_no " = is_valid du gets
d'exposition du &ref_fld
= n_vald_fld de cas de .t.
= map_no du
de « m->map_no " = is_valid du gets
d'exposition du &ref_fld
= type de cas de l'endcase
de .t.
(ref_fld) = 'type de cas du
de dtoc de clavier du Br/> de D'< (&ref_fld) (ref_fld) = 'ltrim de clavier du Br/> de N'< (streptocoque (&ref_fld))l'endcase
/>
sur l'étiquette principale ÉCRIVENT le && attribue à nouveau l'endif
if .f.
de l'endif
du value
?
? « > " +type (ref_fld) + " < "
? « > " +ref_fld+ " < "
? « > " +&ref_fld+ " < "
?
de « is_valid= " ? ? l'ensemble choisi du &save_alias
de l'is_valid
endif
informent le vald_fld de l'orig_val_fil
parameters de l'is_valid
*L
function de l'off
return, ref_fld, vald_alias, getpos, le screen
clear
for i = 1 de l'off
acti de vue du fld_size
set à 25
?
next
?
? « Paramètres : «
? « vald_fld > " +vald_fld+ " < "
? « ref_fld = « +ref_fld
? « vald_alias = « +vald_alias
? « getpos = «
? ? getpos
? « fld_size = « le
? ? l'at_eof privé du fld_size
, at_bof, ensemble du record_no
informent l'is_valid de l'off
= l'at_eof de .f.
= at_bof du
de 'EOF () '= des save_alias du
de 'BOF () '= dit () empty_field du
=. Le &vald_alias
de F.
font le type de cas du case
(« vald_fld ») = 'srch_str du Br/> de D'< = streptocoque (année (m->vald_fld), 4) + streptocoque (mois (vald_fld), 2)+str (jour (vald_fld), type de cas de 2)
(« vald_fld ») = 'srch_str de Br/> de N'< = streptocoque (le vald_fld, fld_size)
si vald_fld = empty_field de 0
=. Srch_str de l'otherwise
de l'endif
de T.
= vald_fld
si len (équilibre (le vald_fld)) = empty_field de 0
=. Endcase
de l'endif
de T.
si le type (« vald_fld ») = le 'Br/> de N'< placent pour le &ref_fld = le srch_str
de recherche de l'else
du
(de srch_str) ?
? « Cherchant > " +srch_str+ " < "
if ont trouvé () le
?
else
? « " Endif
du
endif
?
? « EOF () = «
? ?
d'EOF () s'is_valid du found
de && de .not EOF () = else
de .t.
si empty_field
si droit (système (16.3), 12) = l'is_valid du
de « CRITTERS.FXP " = l'is_valid de l'else
de .f.
= les leftpos de l'off
du srch_str
de recherche de l'on
de l'else
de l'endif
de .t.
= le
d'iif (getpos > 40.4.43) définissent le brws_wndw de fenêtre de 6, leftpos à 15, leftpos+30 ; le flotteur de bourdonnement de système du
élèvent l'arrangement de couleur étroit d'ombre 10
sur l'étiquette principale ÉCRIVENT le
du chr de clavier (23) activent le noshow
de brws_wndw de fenêtre passent en revue le dernier noappend nomodify le clear
du screen
d'acti de l'off
de vue du brws_wndw
*if .f.
de fenêtre de dégagement du brws_wndw
de fenêtre de nodelete pour I = 1 à 25
?
next
? « > " +type (ref_fld) + " < "
? « > " +ref_fld+ " < "
? « > " +&ref_fld+ " < "
?
si
de chrsaw () ? Le « amortisseur de clavier n'est pas " l'else
du
? Le « amortisseur de clavier est " l'endif
*endif
du
font le type de cas du case
(ref_fld) = le 'Br/> de C'< ?
? Le « champ est le
de CARACTÈRE " ? « type (ref_fld) = > " +type (ref_fld) + " < "
? « ref_fld = > " +ref_fld+ " < "
? « &ref_fld = > " +&ref_fld+ " < " type de cas du plain
de && de &ref_fld de clavier du
(ref_fld) = 'type de cas du
de dtoc de clavier du Br/> de D'< (&ref_fld) (ref_fld) = 'ltrim de clavier du Br/> de N'< (streptocoque (&ref_fld))l'endcase
/>*is_valid = .t.
sur l'étiquette principale ÉCRIVENT le && attribue à nouveau l'endif
if .f.
de l'endif
du value
?
si
de chrsaw () ? Le « amortisseur de clavier n'est pas vide. «
? Le » amortisseur contient : > "
? ? 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
du
? Le « amortisseur de clavier est " l'endif
endif
du
?
? « > " +type (ref_fld) + " < "
? « > " +ref_fld+ " < "
? « > " +&ref_fld+ " < "
?
de « is_valid= " ? ? l'ensemble choisi du &save_alias
du suspend
*endif
de l'is_valid
* informent le getcond de paramètres du var_get
de l'is_valid
*L
function de l'off
return, le fld_usg
* flèche gauche Check
* cette fonction a été créé parce que Donna a voulu frapper la flèche gauche Key
* et faire aller le curseur au dernier champ de l'écran précédent. Au this
* il est installé pour des contrats. 10/05/99
de 10h19 du matin si droit (système (16.2), 12) =
de « CONTRACT.FXP " si page_no = 1
si LArrow =. T.
LArrow =. F.
NewOnum = _curobj de 28
= endif
akl=.F.
si droit (système (16.2), 11) = « INVOICE.FXP » .and redressent (système (16.7), 12) de l'endif
d'endif
de NewOnum
= le
akl=.T.
de « FS_SPELL.FXP " activent le zoom_num du x_zoom
du &getcond
*L
function de l'endif
return du spell_win
de fenêtre = le streptocoque (zoom_no, at_bof de 1)
= at_eof d'at_bof&zoom_num
= at_eof&zoom_num
ndx_var = first_page de ndx_var&zoom_num
= val (substr (page_seq&zoom_num, 1.1))le last_page du
= (substr (le page_seq&zoom_num, len (page_seq&zoom_num), 1)) le
* si une nouvelle page, montrent le nouveau screen
si le page_no du page_no
de <> de first_page = le first_page
font le redisp_fld = l'endif
du disscr
de .t.
* nouvelle région choisie de bourdonnement, a placé le nouveau dessus et le marks
du fond choisissent le record_no du &zoom_num
= le
de recno () si zoom_no = 1 reccount de .or () = top_mark de 0
= bot_mark de 0
= else
de -1
lnk_var = le &lnk_var
de recherche du lnk_var&zoom_num
si l'endif
du saut -1
du
de BOF de .not () si BOF() top_mark du
= top_mark de l'else
de 0
= endif
du
de recno () si bot_mark de l'endif
du skip
du
de .not EOF () = && -2 à déterminer dans le zoom_no =
function y2kfix1
parameter FieldName
* d'endif du _end
de funcion de 1
return le '' appelle la syntaxe : y2kfix1 valide (système (18))
MoValu = streptocoque (mois (m.&FieldName), 2, 0)
DyValu = streptocoque (jour (m.&FieldName), 2.0)
YrValu = streptocoque (année (m.&FieldName), 4,0)
YrRHT = droit (YrValu, 2)
si <= val val 99
YrLFT de >= 80 .and (de YrRHT) (YrRHT) = « 19 " else
YrLFT de
= « 20 " endif
YrValu de
= &FieldName de YrLFT+YrRHT
=
return de ctod ( » de MoValu+/« » de +DyValu+/« +YrValu). Le *
* du
* de *** du de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** de T.
*L
le reste de cette bibliothèque sera pour les nouveaux écrans de champ de défilement avec le *
* la capacité au du premier champ de l'écran courant au champ du *
* pour la dernière fois de l'écran précédent, étant donné que l'écran courant n'est pas l'écran du *
* premier. Dans ce que la clef de est ignorée. La clef de le *
* n'a pas été changée de quelque façon. Le défilement - multi éditer la fenêtre 10/16/95 supplémentaire par/>* de *
du
function de *** du de ********** du de ********** du de ********** du de ********** du de ********** du de ************************** du *
du *
* de 2h10 du matin si le zoom_no = les 1
vont l'endif
du bottom
font le str_empty
font le default
= () _newcopy
*=============================================================================
function de
return ''/> =
return '' arrêt du _newmodify
du
*L
function = .f.
de newadd_rec () sur l'étiquette principale PGUP font NewPageUp
sur l'étiquette principale PGDN font NewPageDn
si getcond du modify_key
= » « G » $ fld_usg " getcond de l'else
du
= » fld_usg .and .not de « G » $. Le fld_usg " getcond de l'endif
du
= » '
de « K » $ de fld_usg de G'$ le " si droit (le système (16.3), 8) = «
d'USDA.FXP le " font le getfldA avec »
de .t. le « font le getfldB avec » else
du
de .t. le « font le getfld avec » le s_lastkey du read
de l'endif
du
de .t. « = le
de lastkey () * CLEANUP
sur l'étiquette principale PGUP
sur la stat réglée réglée principale du to
de message de PGDN
d'étiquette outre du && ceci a dû être mis dedans parce que la stat de && de SET
AU LOIN seul n'a pas effacé le message
si le $ akl_test 'l'on
de stat du Br/> de Yy'< l'endif
de l'on
d'esca si s_lastkey = 27 arrêt d'Esc
de && =
du retour de .t.
le '' endif
* contrôle du
pour le s_recno du duplicate
= le &ndx_var
de recherche du
de recno () si allow_dup&zoom_num
= dismsg (chr (7) + « arrêt de ")
de disque de reproduction = endif
de return
de .t.
s_recno
* montrer les champs et le variables
de consultation font le lookup
font le calcul avec .t.
si droit (le système (16.3), 8) = « USDA.FXP " font le getfldA avec le
font le getfldB avec l'else
de » .t. « /> font le getfld avec l'akl clair de ********** du gets
de l'endif
du
de » .t. « : D'abord, vérifier l'épellation du 3/19/96
de 1h55 du matin si le prog_name = « OFFRE » le prog_name de .or = le « CONTRAT » .or. ; prog_name du
= prog_name de .or de « FACTURE » = « SUBRENT » .or. ; le prog_name du
= « TRACE » le prog_name de .or = « HELTHCRT " le
font SpellChk avec « REC » disque de && (Rec) ou le
de champ (Fld) si droit (le système (16.3), 8) = « USDA.FXP " le
font le getfldA avec » .f. « le
font le getfldB avec » .f. « l'else
du
font le getfld avec » .f. « le
de ********** de l'endif
de l'endif
du
font le calcul avec .t.
si l'abort
de .not si confirmer (« sauf le save_rec record de ")
=. Le memo
de rassemblement de T.
si droit (système (16.3), 12) = s_lastkey du
*L
function NewPageDn
de l'endif
l'endif
l'endif
1
memvar
3
memvar
2
" le
return le '' de « CONTRACT.FXP = le
de lastkey () font le _curobj de cas du case
< le _curobj de 20
= le _curobj de cas de 20
= le _curobj de 20
= le _curobj de cas de 21
= le _curobj de 21
= le s_lastkey de l'endcase
return
*==========================================================================
function NewPageUp
de 22
= le
de lastkey () font le _curobj de cas du case
= le _curobj de 20
= le _curobj de cas de 1
= le _curobj de 21
= le _curobj de cas de 20
= le _curobj de 22
= le spelling
* de contrôle de l'endcase
return
*L
function SpellChk
parameters CheckType
* de 21
pour vérifier l'épellation, un champ à la fois, le
* « de SPELLCHK VALIDE (« Fld ") « dans « @… OBTIENNENT à » statement.
l'off
d'horloge si CheckType = « && de Fld » ceci vérifiera un champ car c'est exited.
FieldToCheck =
FieldText = m.&FieldToCheck
de VarRead () si .not vident (équilibre (FieldText))le
font fs_modal avec. T.. Endif
de l'endif
de F.
si CheckType = && de « REC » ceci vérifiera TOUS LES champs dans un bu_cancel de screen.
= 0 && si les cancles d'utilisateur, FS_SPELL () le placeront au nombre de field_max de 1.
= de && de FCOUNT () de champs dans le record.
POUR le field_num = 1 à la boucle de && de field_max par tout l'écran fields.
SI TYPE (CHAMP (le field_num)) $ de && de « MC » si le fld_name de note ou de caractère field.
= le && de CHAMP (field_num) déterminent le name.
du champ le contents.
du gisement d'extrait de && de fld_2check = de m.&fld_name SI len (équilibre (fld_2check)) du > lettres 1 besoin 2 de && pour travailler with.
* blanc de ÚÄÄÄÄLeave puisque seulement utilisé pour passer dans le dossier names.
* ³ ÚÄÄÄÄPass dans la copie de la note à être checked.
* arrêt de ³ ³ ÚÄÄÄÄDon't après chaque memo.
* v
= FS_SPELL ("", @fld_2check. Appel Foxspell Checker.
de && de F.) m.&fld_name = fld_2check
ENDIF
ENDIF
SI bu_cancel = 1 && si l'utilisateur décommandé, alors FENÊTRE d'ATTENTE d'exit.
« stoppait la vérification d'orthographe ! « le s_sel de l'endif
du
EXIT
ENDIF
NEXT
= (les 0)
choisissent l'on
return d'horloge du
de l'use
de l'use
WORDS3
de l'use
WORDS2
de WORDS1
(s_sel). T.
* EOF GENLBR.PRG
class= de
|
