Frage : Fox9 - Haben eines Probleme, Farbe zu erhalten, um using zu arbeiten @… erhält und @… sagen

Geschrieben dieses 20 Jahr vor in FoxPro für DOS. Ich bin bei der Höhereinstufung zu Fox9. Können Sie mir mit dem Erhalten von VFP bitte helfen, um die Farben auf einem Menü zu ändern? Woulf I wie die Menüvorwählereinzelteile zum Haben ein unterschiedliches Farbenabhängen, was durch die Auf-/Ab-Pfeile vorgewählt. Ein anderes Problem, das ich habe, ist, wenn ich den Cursor auf jedem möglichem Menüeinzelteil stillstehe, das gesamte Menü weggeht. Ich weiß, dass I viel Code hier umfaßte, aber der tatsächliche Code, der gebräuchlich ist, sehr klein ist und einfach zu isolate.

Thank Sie für dort sein und das Helfen ich mit meinem problem.

* Anfang von HauptMenu
* Environment

* hinzugefügt für VFP
KLAR ALL

* für VFP9
* PARAMETER

* hinzugefügt für VFP9
parm1_= kommentierten. T.
parm2_=. T.

GESETZTE RÜCKSTELLUNG ZU c:\crit\CODE
GESETZTEM GESPRÄCH OFF
GESETZTEM ECHO OFF

ALLGEMEINEM akl_test
WENN ART („parm1_“) = „L'< Br/> akl_test = „y-"
ELSE
WENN parm1_ = „Test "
akl_test = „Y "
ELSE
akl_test = „N "
ENDIF
ENDIF

ALLGEMEINES akl_system
akl_system = „Y "

* wenn Art („parm2_“) = „L'< Br/>* akl_system = „N "
* else
* wenn parm2_ = „akl "
* akl_system = „Y "
* else
* akl_system = „N "
* endif
* endif

* ENTWICKLUNG FLAGS
WENN akl_test $ „Y'< Br/> GESETZTE ANZEIGE ZU VGA50
GESETZTEM ENTWEICHEN ON
GESETZTEM STATUS ON
* GESETZTEM ANSICHT Off
* GESETZTEM TAKTGEBER ZU 48,69
ELSE
* GESETZTEM TAKTGEBER zum Taktgeber mit 24.69 Umdrehungen weg für VFP
ENDIF

* ENVIRONMENT
modi_memo =. T.
AUF SCHLÜSSELaufkleber f12 TUN _popcal
AUF SCHLÜSSELaufkleber ctrl+f12 TUN rundos MIT „COMMAND.COM "

, WENN LEERES (AN („Schlüssel“, „ctrl+o "))
fs_setup
ENDIF

GESETZTES VERFAHREN zum genlbr
= envrnmnt ()
FREIE WINDOWS

WAHL =“ „
goodpass = TUN. F.

TUN COLORS

, das aller Funktionstastencode entfernt. FUNKTIONSTASTE SETTINGS
s_zoom_no = 0
s_lastkey = 0 && außer dem letzten Schlüsselentered
s_prgname = '' && außer dem Programmnamen using ein function
s_FkeyRec = 0 && außer Funktionstasten-Aufzeichnung Number
s_FkeyPag = 0 && außer Funktionstasten-Seite Number
s_FkyMRec = 0 && speichern FKey Hauptsatz-Zahl. 1/10/97 12:28 morgens (akl)
&& ---- Erstes brauchte in ZAHLBAREM als F1 vom Detail.
listmenu =. F., tat && wir kommen vom Listen-Menü?
utilmenu =. F., tat && wir kommen vom Util-Menü?

KeyF1 =. F. && Markierungsfahne - von allem zu Animals
KeyF2 =. F. && Markierungsfahne - von allem zu Bids
KeyF3 =. F. && Markierungsfahne - von allem zu Calendar
KeyF4 =. F. && Markierungsfahne - von allem zu Contracts
KeyF5 =. F. && Markierungsfahne - von allem zu Critters
KeyF6 =. F. && Markierungsfahne - von allem zu Invoices
KeyF8 =. F. && Markierungsfahne - von allem zu Payables
KeyF9 =. F. && Markierungsfahne - von allem zu Prices
KeyF10 =. F. && Markierungsfahne - von allem zur Produktion Companies
KeyF11 =. F. && Markierungsfahne - von allem zu Receivables

für VFP
* VARIABLES
Wahl = 0
prompt1 =“ 1. Tiere „
prompt2 =“ 2. Angebote „
prompt3 =“ 3. Kalender „
prompt4 =“ 4. Verträge „
prompt5 =“ 5. Lebewesen „
prompt6 =“ 6. Rechnungen „
prompt7 =“ 7. Aufkleber „
prompt8 =“ 8. Listen „
prompt9 =“ 9. Preise „
* prompt10 =“ P.-Druck „
prompt10 =“ S.-Notfall „
prompt11 =“ U.-Dienstprogramme „
prompt12 =“ Hilfe „
prompt13 =“ verließ „
* kommentierte für VFP

* WINDOWS
* kommentierte für VFP
* definieren Fenster crit von 2.2 bis 22.75;
Titel“ Lebewesen-Hauptmenü“;
Doppeltherbewegungsschatten-Farbenentwurf 2;
GUSS „fettes Arial“, 25

Added für VFP.
DEFINIEREN FENSTER crit VON 2.2 BIS 90.170;
TITEL“ Lebewesen-Hauptmenü „;
DOPPELT-HERBEWEGUNGS-SCHATTEN-FARBEN-Entwurf 2;
GUSS „Arial fettes“, explodieren 25

SCREEN
CLEAR
= (2.2.22.75.50.1) das

ACTIVATE SCREEN
, WENN akl_test $ „Yy'< Br/> @ 0.34 SAGEN, dass „Prüfung auf“ FARBE w+/N
* else
* @ 0.70 Raum sagen (9)
ENDIF
L
LOOP
VERARBEITEND TUN WÄHREND. T.

AKTIVIEREN FENSTER crit
TUN disscr
s_choice = mchoice
Wahl = mchoice

****************
* *
, das dieses ein tempoary Programm ist, zum nach der Duplikate in einem spezifischen .DBF
zu suchen, WENN .NOT akl_test $ „Yy'< Br/>* dup1chk
* tun, dup2chk
ENDIF
* *
****************

AUF SCHLÜSSELaufkleber f7 TUN genhlp MIT PROGRAMM () && BENUTZER tun HELP

CASE
FALL-Wahl = 0 &&
FREIGABE TUN FENSTER crit
WENN akl_test $ „JJ "
RETURN
ELSE
QUIT
ENDIF
FALL-Wahl = 1 .AND. (AKTE („ANIMALS.PRG ").OR.FILE („ANIMALS.FXP ")) TUN
Tiere MIT PROGRAMM ()
FALL-Wahl = 2 .AND. (AKTE („BIDS.PRG ").OR.FILE ('BIDS.FXP'< wbr/>))
TUN Angebote MIT PROGRAMM ()
FALL-Wahl = 3 .AND. (AKTE („CALENDAR.PRG ").OR.FILE („CALENDAR.FXP ")) eintragen
MIT PROGRAMM ()
FALL-Wahl = 4 .AND. (AKTE („CONTRACT.PRG ").OR.FILE („CONTRACT.FXP ")) abschließen
MIT PROGRAMM ()
FALL-Wahl = 5 .AND 5. (AKTE („CRITTERS.PRG ").OR.FILE („CRITTERS.FXP ")) TUN
Lebewesen MIT PROGRAMM ()
FALL-Wahl = 6 .AND. (AKTE („INVOICE.PRG ").OR.FILE („INVOICE.FXP ")) fakturieren
MIT PROGRAMM ()
FALL-Wahl = 7 .AND. (AKTE („P_LABELS.PRG ").OR.FILE („P_LABELS.FXP ")) TUN
p_labels MIT PROGRAMM ()
FALL-Wahl = 8 .AND. (AKTE („LISTS.PRG ").OR.FILE („LISTS.FXP ")) TUN
lists
FALL-Wahl = 9 .AND. (AKTE („PRICES.PRG ").OR.FILE („PRICES.FXP ")) TUN
Preise MIT PROGRAMM ()
* FALL-Wahl = 10 .and. (Akte („PRINT.PRG ").or.file („PRINT.FXP ")) TUN
* print
FALL-Wahl = 10 .AND. (AKTE („STATS.PRG ").OR.FILE („STATS.FXP ")) TUN
stats
FALL-Wahl = 11 .AND. (AKTE („UTILS.PRG ").OR.FILE („UTILS.FXP ")) TUN
utils
FALL-Wahl = 12 .AND. (AKTE („CRITHELP.PRG ").OR.FILE („CRITHELP.FXP ")) TUN
crithelp
FALL-Wahl = 13
, WENN akl_test $ „JJ "
SUSPEND
ELSE
QUIT
ENDIF
akl: Zusätzliches choice=14 für F8 von den Angeboten zur zahlbaren 2/25/96 2:08 am
FALL-Wahl = 14 .AND. (AKTE („PAYABLE.PRG ").OR.FILE („PAYABLE.FXP ")) TUN
zahlbares MIT PROGRAMM ()

akl: Zusätzliches choice=15 für F11 von Angebote zu Außenstände 2/28/96 10:53 am
FALL-Wahl = 15 .AND. (AKTE („RECEIVE.PRG ").OR.FILE („RECEIVE.FXP "))
TUN MIT empfangen PROGRAMM ()

ENDCASE
ENDDO
RETURN
L
PROCEDURE disscr

ALLGEMEIN mchoice, mget, cchoice, cchoices
SPEICHER 0 ZU mchoice, mget
SPEICHER "" zum cchoice, cchoices
SAGEN nCOL = RUNDES (WCOLS () /2.0) - 19

@ 1.34, dass „2010 '

* Column
ncol gelassen = 20

nrow = 3
MIT nrow ERHALTEN, ncol,“ [\ <1] - Tiere "
nrow = 4
ERHALTEN MIT nrow, ncol, „[\ <2] - Angebote "
nrow = 5
ERHALTEN MIT nrow, ncol,“ [\ <3] - Kalender "
nrow = 6
ERHALTEN MIT nrow, ncol, „[\ <4] - Verträge "
nrow = 7
ERHALTEN MIT nrow, ncol,“ [\ <5] - Lebewesen "
nrow = 8
ERHALTEN MIT nrow, ncol, „[\ <6] - Rechnungen "

* rechtes column
ncol = 40

nrow = 3
ERHALTEN MIT nrow, ncol,“ [\ <7] - Aufkleber "
nrow = 4
ERHALTEN MIT nrow, ncol, „[\ <8] - Listen "
nrow = 5
ERHALTEN MIT nrow, ncol,“ [\ <9] - Preise "
nrow = 6
ERHALTEN MIT nrow, ncol, „[\ nrow = 7
ERHALTEN MIT nrow, ncol,“ [\ nrow = 8
ERHALTEN MIT nrow, ncol, „[\
* mittlerem column
ncol = 30
nrow = 10
ERHALTEN MIT nrow, ncol,“ [\ cchoices = cchoices + „12Q "
cchoice = fnchoice (cchoices, „Q“)
RETURN

FUNCTION fncurobj
PARAMETER mchoice
mchoice = _CUROBJ
RÜCKKEHR. T.
ENDFUNC

PROCEDURE GET
PARAMETER nrow, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc,“ \ <")) + 2
@ nrow, ncol ERHALTEN mget FUNKTION „* „+IIF (bskip,“ \ \ „, "") +cfunc;
GÜLTIGES fnCUROBJ (@mCHOICE);
Farbenentwurf 1
RETURN
ENDPROC

FUNCTION fnchoice
PARAMETER cchoices, cdef
LASEN ZYKLUS-GEGENSTAND mchoice
mchoice = IIF (LASTKEY () =27, AN (cdef, cchoices), mchoice)
RÜCKHOLIIF (mchoice > 0, SUBSTR (cchoices, mchoice, 1), "")
ENDFUNC

~~~~~~

* COLORS
origschem1 = „W+/B, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B, + "
origschem2 = „BG/W, N/W, N/W, B/W, W/N, N/BG,W+/W, N+/N, B/W, W/N, + "

* 1 2 3 4 5 6 7 8 9 10 11
SET FARBE VON ENTWURF 1 ZU;
„W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + "
* Buchstaben des Tischplattenbenutzers des Schreibtisch-(1)
* des hintergrund-(1)
* ERHALTEN Feld-Buchstaben, (2)
, das Benutzer des Feld-Hintergrund-(2)
Benutzer-Rand-des Hintergrund-(3)
* Benutzer-Titel Benutzer-Rand-des Buchstaben-(3)
* Benutzer-Titelactive-der Buchstabe-(4)
* aktiven Benutzer-Titel des Hintergrund-(4)
* unaktivierter Benutzer-Titel der Buchstabe-(5)
* unaktiviertes Feld des Hintergrund-(5)
* auserwählt ERHALTEN (das Feld der ^A) Buchstabe-(6)
* auserwählt (^A) beschriftet Hintergrund (6)

* 1 2 3 4 5 6 7 8 9 10 11
SET FARBE VON ENTWURF 2 ZU;
„w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + "
* Menü beschriftet (1)
* Menü-Vorwähler-Menü-Titel-des Hintergrund-(4)
* Menü-Vorwähler-aktive Hintergrund (6)

*

~

* GENLBR.Prg (allgemeine Bibliothek) des Menü-Buchstabe-Hintergrund-(1)
* unaktivierter der Buchstabe-(2)
* Menü-Vorwähler-unaktivierter des Hintergrund-(2)
* Menü-Rand-der Buchstaben-(3)
* Menü-Rand-des Hintergrund-(3)
* Menü-Titel-unaktivierte der Buchstabe-(4)
* Menü Slection Active-der Buchstabe-(6)
*

* ALLGEMEINE BIBLIOTHEKS-VERFAHREN: GENLBR.PRG

function _add
, wenn zoom_no = 1
bottom
endif
gehen, tun str_empty
tun default
= ()
return ''
L
function _begin
, wenn top_mark = 0
top
else
gehen top_mark
skip
endif
return gehen, ''
L
function _beginr
top
return ''
L
function _canflt
, das gesetztes Filter to
= fltrsta ()
return ''
L
function _canfltr
gesetztes Filter to
= ()
return ''
L
function _canscop
ndx_exp = System (14.1)
gehen bottom
last_rec = das last_val recno ()
= &ndx_exp
gehen gehen top
first_rec = das first_val recno ()
= &ndx_exp
= _disstat ()
return ''
L
function _copy
= ()
return ''
L
function _delete
wenn zoom_no < no_zooms
gibt es irgendwelche Kindaufzeichnungen?
child_num = str (zoom_no + 1, 1)
das lnk_var vorwählen &child_num
= lnk_var&child_num
Suchvorgang &lnk_var
wenn .not &at_eof
= dismsg/> (chr (7) + „Untergebenaufzeichnungen existieren“),
auserwähltes &zoom_num
Rückkehr ''
endif
auserwähltes &zoom_num
endif

, wenn bestätigen („Löschung Rekord")

, wenn recht (System (16.3), 9) = „ADOPT.FXP'< Br/> rec_del =. T.
endif

, wenn recht (System (16.3), 12) = „CONTRACT.FXP'< Br/> 3
delete

auserwähltes 2
delete

auserwähltes 1
endif

vorwählen, wenn recht (System (16.3), 7) = „DHR.FXP“ && kein Erscheinen Flag
dhr_delete = .t.
repl dhr_delete mit m->dhr_delete
reindex
else
delete
endif

Zeilensprung && umsetzen zum folgenden record

r, wenn &at_eof () &&, wenn die letzte gelöschte Aufzeichnung, zum Anfang von database
= _begin ()
endif

gehen, wenn &at_eof .and .not leeren (Filter ())
* keine Aufzeichnungen verließ im Filter, entfernen das filter
gesetzte Filter to
= _begin ()
endif

, wenn &at_eof
* letzte Aufzeichnung jetzt gelöscht, Datenbank ()/>
/>

= _quit/>return ''
L
function _disstat
exp_N = maximal (len (first_val), len (filter ()))
definieren Fenster stat_wndw von 0.1 zu 4,17+exp_N;
Schatten-Farbenentwurf 7
aktivieren Fenster stat_wndw
, wenn .not leeren (Filter ())
@ 0.0 sagen, dass“ Filter ist: “ + Filter ()
sagen else
@ 0.0, dass“ Filter ist: Off'< Br/> endif
@ 1.0 sagen“ von der Aufzeichnung: “ + sagen first_val
@ 2.0“ zu notieren: '+ last_val
Protokollfeld ")
der Wartezeit ''
Freigabefenster stat_wndw
return ''
L
function _editmemo
Parameter is_edit

privates memo_field
memo_field = memo_fld&zoom_num

wenn leeres (memo_field)
= dismsg („lässt keine Rückkehr ''
endif
Fenster memo_wndw von 12.30 bis 18.73 definieren;
Titel „PROTOKOLL (ESC zu speichern zum Ausgang oder zu Ctrl-w)“;
Systemshin- und herbewegung wachsen Schatten-Farbenentwurf 11
des lauten Summens nahen, wenn is_edit
Protokoll &memo_field Fenster memo_wndw
else
ändern Protokoll memo_wndw
endif
memo_wndw
return ''
L
function _end
gehen Letztaufzeichnung (letztes Kindaufzeichnung, wenn Sie laut gesummt), zum
ändern, wenn bot_mark >= 0
bot_mark
Zeilensprung -1
else
gehen, wenn bot_mark = -1
bottom
else
gehen * finden erstes Aufzeichnung außerhalb des range
zu finden während .t. für &at_eof
wenn EOF ()
* es ist letzte Aufzeichnung database
im bot_mark = -1
else
im bot_mark = recno ()
endif
Zeilensprung endif
endif
-1
return ''
L
function gehen _endr
bottom
return ''
L
function _fromrcd
ndx_exp = System (14.1)
, wenn &ndx_exp <= last_val
first_rec = das first_val recno ()
= &ndx_exp
else
= dismsg („erste Aufzeichnung muss der letzten Aufzeichnung vorausgehen“),
endif
= ()
return ''
L
function _list
Parameter dbf_desc
, das && dieser Befehl erforderliches because
auf Schlüsselaufkleber F7 && ist, _nohelp && der gesetzten Hilfe des Systems-(18) Probleme found.
weg von der && (_nohelp ist auf dieser Seite),
&& Nachricht tun -->> kann kein Funktions benannt werden!
&& noch kann ein .PRG

, wenn recht (System (16.2), 12) = „das kein CRITTERS.FXP“ &&! „WACHSEN“! (11 Stunden!)
definieren Fenster brws_wndw von 9.4 bis 19.54;
Titel dbf_desc;
Systemssummenherbewegungsabschlußschatten-Farbenentwurf 10
else
definieren Fenster brws_wndw von 9.4 bis 19.65;
Titel dbf_desc;
Systems-Summenhin- und herbewegung wachsen nahes Schattenfarbenentwurf 10
endif

tun list&zoom_num

record_no = recno ()
Freigabefenster brws_wndw

gesetzte Hilfe auf && <<<--- ERINNERN! Entfernen dieses statements.
auf Schlüsselaufkleber F7 tun genhlp mit/>
return ''
L
function _modify
Abbruch = .f.

akl: Multi Angebote - am
2:07 des Fensters 10/16/95 auf Schlüsselaufkleber PGUP redigieren tun PageUp
auf Schlüsselaufkleber PGDN tun PageDn

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

*--------- akl: Entfernt - mochte nicht die Weise, die es 3/13/96 9:17 pm
********** akl funktionierte: Hinzugefügt für pm
* 8:42 der Berechnung 2/11/96 der elektronischen Waage wenn ((prog_name = „ZAHLBARES“ .and alias () = „PAYDETL“) .or. ;
* (prog_name = „EMPFANGEN“ .and alias () = „RECDETL“)) .and. ;
* (Wahl = „Kopie“ .or Wahl = „ändern ")
* p_amount = 0
* endif
**********
---------

getcond =“ 'G'$ fld_usg "

, wenn recht (System (16.3), 8) = „USDA.FXP“ .and. ;
berichtigen (System (16.8), 10) <> „G_USDA.FXP "
tun getfldA mit getcond
read

, wenn m->u_code_2 = „D“ .or m->u_code_2 = „C "
getfldB mit getcond
read
endif

else

tun getfld mit getcond

akl tun: Erlaubt Cursor zum pm
4:17 des Feldes 11/16/95 des UpArrow bis jetzt, wenn recht (System (16.3), 9) = „CALLS.FXP "
gelesenes cycle
else
read
endif

endif

s_lastkey = lastkey ()

CLEANUP
akl: Multi Angebote - am
2:07 des Fensters 10/16/95 auf Schlüsselaufkleber PgUp
redigieren auf Schlüsselaufkleber PgDn

akl: CRITTERS.PRG - Multi Fenster verfolgt pm
10:06 des Trick-Schirmes 7/28/98, wenn Wahl = .and „ändern“. ;
prog_name = „LEBEWESEN“ .and. ;
(alias () = „CRITDOGS“ .or alias () = „CRITCATS“)
s_lastkey = && s_lastky2 gerade im Fall das Benutzer gepresste Ctrl-w vom ersten screen
tun DogUpDn
endif

gesetztes Mitteilung to

wenn .not. ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF ")) das

* (akl) 4/10/99 11:43 pm
* addiert, wenn Aussage für die folgende Bedingung: 2/M/F5/N/Z
* Der Datenschirm gelöscht und ein Benutzerschirm ist activated.
* Problem auftritt, NUR beim Heiß-Befestigen von Angebote zu Zoom.
des Lebewesen-Hundes * kein Benutzer, den Schirm aktiviert, weil die Menge von Daten nicht auf a
* Benutzerschirm passt. So benutzt der Schreibtisch. (Schirm aktivieren).

wenn .not. (System (16.5) = „AUF…“ .and. ;
berichtigen (System (16.6), 8) = „BIDS.FXP“ .and. ;
berichtigen (dbf (), 12) = „CRITDOGS.DBF“)

gesetzter Notfall weg vom &&, das dieses innen gesetzt werden musste, weil der SET

endif

endif
&& Notfall WEG alleine nicht das message
wenn akl_test $ 'Yy'< Br/> wenn .not löschte. ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF "))

wenn .not. (System (16.5) = „AUF…“ .and. ;
berichtigen (System (16.6), 8) = „BIDS.FXP“ .and. ;
berichtigen (dbf (), 12) = „CRITDOGS.DBF“)

gesetztes Notfall on

endif

endif
endif

wenn s_lastkey = 27 && Esc
Abbruch = .t.
Rückkehr ''
endif

, wenn modify_key
, wenn chk_dupl ()
Rückkehr ''
endif
endif

lookup
tun, calcul mit .t.

wenn recht tun (System (16.3), 8) = „USDA.FXP“ .and. ;
berichtigen (System (16.8), 10) <> „G_USDA.FXP "
tun getfldA mit“ .t., „tun
getfldB mit“ .t., „
else
getfld mit“ .t. „
endif

, das freies gets

, wenn page_no < page
Schirm der last_page && Anzeige folgendes page_no = page_no + 1
disscr

tun tun, während page_no <= last_page
getcond =“ 'G'$ fld_usg "

********** akl: Multi Angebote - am
* 2:07 des Fensters 10/16/95 redigieren s_lastkey = '' && kommentierte für F11 pm
PgUpKey 0:08 des Schlüssels 2/28/96 =. F.
PgDnKey =. F.
BTabKey =. F.
auf Schlüsselaufkleber PGUP tun PageUp
auf Schlüsselaufkleber PGDN tun PageDn
auf RÜCKWÄRTS dem Schlüsselaufkleber tun TabBack
**********

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit getcond
tun getfldB mit getcond
else
tun getfld mit getcond
endif

read

wenn .not. (PgUpKey .or. PgDnKey .or. BTabKey)
s_lastkey = lastkey ()
endif

* CLEANUP
akl: Multi Angebote - am
2:07 des Fensters 10/16/95 auf Schlüsselaufkleber PGUP
auf Schlüsselaufkleber PGDN
auf Schlüsselaufkleber BACKTAB

gesetztem Mitteilung to
gesetztem Notfall weg vom && redigieren, das dieses innen gesetzt werden musste, weil der SET
&& Notfall WEG alleine nicht das message
&& löschte er bearbeiten sollte. Herausfinden warum?
wenn akl_test on
esca on
Notfall des $ 'Yy'< Brs/> gesetztes gesetztes endif

wenn s_lastkey = 27 && Esc
Abbruch = .t.
exit
endif

wenn s_lastkey = 18 && Seite herauf Key
, wenn page_no > 1
page_no = page_no - 1
disscr
loop
endif
endif

tun wenn s_lastkey = die 3 && Seite unten Key
, wenn page_no < last_page
page_no = page_no + 1
disscr
loop
endif
endif

wenn s_lastkey = 15 && rückseitiges Tab
wenn page_no > 1
page_no = page_no tun - 1
disscr
wenn page_no tun = 1
für i = 1 zum 18
Tastatur chr (9)
next
loop
endif
endif
endif

, wenn Art („LArrow ") = „L“ && Verträge (akl) 10/05/99 10:43 am
sehen, wenn page_no = 2
page_no = 1
disscr
loop
endif
endif

wenn page_no = first_page
tun * auf doppeltem (der Schlüssel eingegeben nur auf erster Seite)
Suchvorgang &ndx_var

****************** *
* *
* dieses überprüfen, WENN Aussage geändert und kopierte weil wenn Sie LAUT SUMMEN zu einer *
* leeren Datenbank, das System anzeigen immer die „Duplikatrekord“ Störung *
* Mitteilung, wenn die erste Aufzeichnung eingeführt. Trennen, WENN Aussagen das *
, zum dieses Probleme zu regeln. Der Unterschied ist, WENN Aussage kurz vor dem
* „= dismsg…“ Aussage. Sie sind für jeden Zustand von ZOOM_NO unterschiedlich. *
* (akl) *
****************** *

* dieses verwenden WENN Aussage wenn zoom_no = 1
wenn zoom_no = 1

, wenn prog_name = „VERTRAG "
Ausgang && hinzufügte, weil Fehlermeldung when
&& im Vertrag und das ^W immer, erhalten, das Ausgang benutzt. Ich tat es this
&& Weise, weil ich weiß, dass ich werde, eine WINDOWS
&& Fensterversion des Programms witing. Es ist nicht worth
&& Fighting diesmal 2:09 P.M. (akl) des 3/08/2000
else

wenn .not &at_eof .and .not allow_dup&zoom_num
= dismsg (chr (7) + „Duplikataufzeichnung nicht erlaubter ")
Abbruch = .t.
exit
endif

endif

endif

* dieses verwenden WENN Aussage wenn zoom_no > 1
wenn zoom_no > 1
wenn .not. (&at_eof .and allow_dup&zoom_num)
= dismsg (chr (7) + „nicht die erlaubte Duplikataufzeichnung - 2 (akl) ")
Abbruch = .t.
exit
endif
endif
endif

* Nachschlagenfelder und Berechnungs- variables
anzeigen tun lookup
tun calcul mit .t.

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
tun getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

freiem gets

wenn page_no < last_page
* folgendes Schirm page
page_no = page_no anzeigen + 1
tun disscr
else
exit
endif
enddo während page_no <= last_page
endif

wenn .not. ((alias () = „PAYDETL“ .or alias () = „RECDETL ") ändern .and Wahl = „")
tun calcul mit .t.
endif

* Seite number
wieder herstellen, wenn page_no > first_page
deact Wind all
page_no = first_page
disscr

tun, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .f. „
tun getfldB mit“ .f. „
else
tun getfld mit“ .f. „
endif

redisp_fld = .t.
freiem gets
endif

, wenn .not abort
akl: Die Rechtschreibung des Rekord3/19/96 1:55 am
überprüfen, wenn prog_name = .or prog_name = „VERTRAG“ .or „BIETET“. ;
prog_name = „RECHNUNG“ .or prog_name = „SUBRENT“ .or. ;
prog_name = „ABBILDET“ .or prog_name = „HELTHCRT "

tun SpellChk mit „Rec“ && Aufzeichnung &, (Rec) oder Feld (Fld)

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .f. „
, tun getfldB mit“ .f. „
else
tun getfld mit“ .f. „
endif

endif

, wenn bestätigen („außer Rekord")
save_rec =. T.
, wenn alias () = „CRITDOGS“ .or alias () = „CRITCATS "
LastTKUpd = Datum ()
sagen, wenn alias () = „CRITDOGS "
auserwähltes critters
LastTKupd durch m->LastTKupd
auserwähltes critdogs
@ 0.67 ersetzen, dass dtoc (m.lasttkupd)
else
auserwähltes critters
LastTKupd durch m->LastTKupd
auserwähltes critcats
@ 2.60 ersetzen, sagen dtoc (lasttkupd)
endif
endif
Versammlung memvar memo
, wenn recht (System (16.3), 12) = „CONTRACT.FXP "
sele 2
Versammlung memvar
sele 3
Versammlung memvar
sele 1
endif
endif
endif
return '' durchführen
L
PROCEDURE RunDOS
eine DOS-Programm- oder Reihenakte er oder hervorrufen das DOS command
* Interpret (COMMAND.COM muss im WEG sein),

PARAMETER command_
d_ SCREEN
AUSSER SCHIRM ZU DOSscreen
@ 0.0 CLEAR
EINGESTELLTES CURSOR ON

* DURCHLAUF-/0 &command_ AKTIVIEREN. Heraus kommentiert: 8/15/95 3:08 am

NewCommand_ = GETENV („COMSPEC ") && addierten diesen Code, um das true
DURCHLAUF-/0 &NewCommand_ && „COMMAND.COM“ zu lesen. Nicht immer sein sure
kann && COMMAND.COM ist running.
EINGESTELLTER CURSOR AUF && hinzufügte 11/29/94
* GESETZTEN CURSOR WEG VON kommentiertem
WIEDERHERSTELLUNGS-SCHIRM DOSscreen
FREIGABE-SCHIRM DOSscreen
ENDIF

RETURN
L
function PageDn
vom s_lastkey = lastkey () vom

wenn s_lastkey = 3
PgDnKey =. T.
Tastatur chr (23)

, wenn Wahl = .and „ändern“. ;
prog_name = „LEBEWESEN“ .and. ;
(alias () = „CRITDOGS“ .or alias () = „CRITCATS“)
s_lastky2 = s_lastkey && gerade im Fall der Benutzer betätigte Ctrl-w vom ersten screen
endif
endif

return
L
function PageUp
s_lastkey = lastkey ()

wenn s_lastkey = 18
* wenn .not. (prog_name = „LEBEWESEN“ .and. ;
* Wahl = „ändern“ .and. ;
* (alias () = „CRITDOGS“ .or alias () = „CRITCATS“))

PgUpKey =. T.
Tastatur chr (23)

* endif
endif

return
L
function _next
skip
wenn &at_eof
= _end ()
= dismsg (chr (7) + „letztes Rekord")
/>return ''
L
function _nextr
skip
wenn EOF ()
= _endr ()
= dismsg (chr (7) + „letztes Rekord")
/>return ''
L
function _nextpage
last_page = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)),
, wenn page_no < last_page
page_no = page_no + 1
disscr
else
tun = dismsg („kein anderes Seite ")
endif
return ''
L
function _nohelp

Fenster help_not von 0.30 bis Farbenentwurf 7
mit 2.78 Schatten aktivieren Fenster help_not

mess_err = 'traurig, keine HILFE ist vorhanden diesmal. '
/>
/>return ''
L
function _prev
Zeilensprung -1
, wenn &at_bof
= _begin ()
= dismsg (chr (7) + „erstes Aufzeichnung endif
")
return ''
L
function _prevr
Zeilensprung -1
, wenn BOF ()
= _beginr ()
= dismsg (chr (7) + „erstes Aufzeichnung endif
")
return ''
L
function _prepage
first_page = val (substr (page_seq&zoom_num, 1.1))
wenn page_no > first_page
page_no = page_no - 1
tun disscr
redisp_fld = .t.
else
= dismsg („kein anderes endif
")
return ''
L
function _print

Druck vorwählte Eintragungen 9/07/98 9:27 P.M. (akl)
br, wenn recht (System (16.2), 12) = „CRITTERS.FXP“ .or. ;
berichtigen (System (16.2), 12) = „P_LABELS.FXP'< Br/> tun prn_sele
endif

, das gesetztes Entweichen on

Fenster prnt_wndw von 0.43 bis 2.78 definieren;
Schatten-Farbenentwurf 7
aktivieren Fenster prnt_wndw

s_readkey = 0
@ 0.0 sagen“ Drucken - ESC, zum '
= init_rpt ()

, wenn s_readkey = das 268 .or s_readkey = das 12 && Entweichen pressed
Freigabefenster prnt_wndw
return
endif

&&, addierte war Strom oder allen USDA notiert (02/05/02 akl) das

, wenn recht (System (16.6), 10) = .and g_all = „A „P_USDA.FXP“ "
wenn .not System (13) = „INDIREKT“ .or outp_dev <> „Laser“ .or outp_dev <> 'dot'< Br/>
s_recno = recno ()
gehen top

brk_no = 1

tun pgehdr

tun, während .not EOF ()

r_count = 0

tun, während r_count <> 9
brkhdr

skip
wenn EOF ()
exit
endif

r_count = r_count + 1

enddo

wenn EOF ()
exit
endif

enddo

Goto- s_recno

endif

else

tun, wenn .not System (13) = „INDIREKT“ .or outp_dev <> „Laser“ .or outp_dev <> 'dot'< Br/> tun rpthdr
tun pgehdr
tun rptbdy
tun rptftr
line_no = lns_per_pg
tun pgeftr
endif
endif

, wenn recht (System (16.2), 12) = gesetzter Druck „des P_LABELS.FXP“ .and Gruppe = 1
wenn akl_system $ 'Y'< Brs/> zu LPT1
else
gesetztem Druck zu LPT1
endif
gesetztem Druck on
eject
gesetztem Druck off
gesetztem Drucker to
else
= end_rpt ()
endif

Freigabefenster prnt_wndw

, wenn outp_dev = 'screen'< Br/> = edit_txt ()
endif

gesetztes Entweichen off
record_no
return ''
L
function _popcal
s_curobj = _curobj
aktivieren screen

auf Schlüsselaufkleber-ESC-Tastatur“ {CTRL+W} „+“ {HEREINKOMMEN}, „

* @ 24.0 sagen, dass padc („Presse ESC, zum zum Dateneingabenschirm“, 80 zurückzugehen)
Fenster calculator
gelesenes gültiges aktivieren. T.
* @ 24,0

auf Schlüsselaufkleber esc

_curobj = s_curobj

gesetztem esca on
return
L
function _quit

, wenn recht (System (16.2), 9) <> „PRINT.FXP“ .and. ;
berichtigen (System (16.3), 8) <> 'JOBS.FXP'< Brs/> gesetztes endif

Fell das Fenster, wenn Benutzer to
Filter des vorhergehendes zum window
beendigt, tun case
Fallrecht (System (16.2), 12) = 'CRITTERS.FXP'< Br/> tun case
Fall zoom_no = 1
wind_hide = 'zoom_no Kasten des usr_wndw1'< Brs/> = 2
clear
wind_hide = 'zoom_no Kasten des usr_wndw5'< Brs/> = 3
clear
wind_hide = „zoom_no Kasten des usr_wndw4'< Brs/> = 4
wind_hide = „zoom_no Kasten des usr_wndw6'< Brs/> = 5
wind_hide = „usr_wndw3'< Br/> endcase

s_zoom_no = zoom_no
wenn zoom_no = 1 .or. KeyF2
zoom_no = 0
else
zoom_no = 1
endif

otherwise
wind_hide = „usr_wndw'+ alltrim (str (zoom_no))
zoom_no = zoom_no - 1

* addiert, wenn Aussage für die folgende Bedingung: 2/M/F5/N/Z
* Der Datenschirm gelöscht und ein Benutzerschirm ist activated.
* Problem auftritt, NUR beim Heiß-Befestigen von Angebote zu Zoom.
des Lebewesen-Hundes * kein Benutzer, den Schirm aktiviert, weil die Menge von Daten nicht auf a
* Benutzerschirm passt. So benutzt der Schreibtisch. (Schirm aktivieren).

wenn (System (16.5) = „AUF…“ .and. ;
berichtigen (System (16.6), 8) = „BIDS.FXP“ .and. ;
berichtigen (dbf (), 12) = „CRITDOGS.DBF“)

clear
endif

endcase

, wenn wexist („&wind_hide ")
Fellfenster &wind_hide
endif

, wenn zoom_no > 0
= x_zoom ()
record_no
gehen, disscr
redisp_fld = .t.
/>return ''
L
function _retrieve
Bestätigungstaste und Aufzeichnung zu suchen; wenn Sie nicht gefunden, record_no
zum d_function = () zum
umsetzen, wenn '' <> Ordnung (ndx_var)
Streuung memvar unbelegtes memo
clrfld
tun getkey

read

tun * CLEANUP
musste gesetzter Mitteilung to
gesetzter Notfall weg vom && dieses innen gesetzt werden, weil der SET
&& Notfall WEG alleine nicht das message
wenn akl_test on
Notfall des $ „Yy'< Brs/> gesetztes endif
wenn lastkey () <> 27 && Esc

wenn Programm löschte (3) = „JOBS“ .and alias () = „JOBS "
Suchvorgangordnung (&ndx_var1a)
else
Suchvorgang (&ndx_var)
endif

trimmen, wenn &at_eof
= dismsg („nicht gehen gefundenes ")
record_no
endif
/>
/>return ''
L
akl: Neue auserwählte am
function 2:25 des Befehls 10/23/95 _select
Parameter dbf_desc
, das && dieser Befehl erforderliches because
auf Schlüsselaufkleber F7 && ist, tun _nohelp && der gesetzten Hilfe des Systems-(18) Probleme found.
weg von der && (_nohelp ist auf dieser Seite),
&& Nachricht -->> kann kein Funktions benannt werden!
&& noch kann ein .PRG

, wenn recht (System (16.2), 12) = „das kein CRITTERS.FXP“ &&! „WACHSEN“! (11 Stunden!)
definieren Fenster brws_wndw von 9.4 bis 19.54;
Titel dbf_desc;
Systemssummenherbewegungsabschlußschatten-Farbenentwurf 10
else
definieren Fenster brws_wndw von 9.4 bis 19.65;
Titel dbf_desc;
Systems-Summenhin- und herbewegung wachsen nahes Schattenfarbenentwurf 10
endif

tun sel&zoom_num

record_no = recno ()
Freigabefenster brws_wndw

gesetzte Hilfe auf && <<<--- ERINNERN! Entfernen dieses statements.
auf Schlüsselaufkleber F1 tun genhlp mit/>
return ''

L
function _skip
* vorwärts/rückwärts verschieben einige records
rec_count = 0
definieren Fenster skip_wndw von 11.29 bis 13.52;
Schatten-Farbenentwurf 7
aktivieren Fenster skip_wndw
@ 00.00 sagen“ Zeilensprung-Aufzeichnungen: “ rec_count Abbildung erhalten „@Z 999999 '
read
Zeilensprung rec_count
wenn &at_eof
= _end ()
= dismsg (chr (7) + „letztes Rekord")
endif
wenn &at_bof
= _begin ()
= dismsg (chr (7) + „erstes Aufzeichnung skip_wndw
endif
")
return ''
L
function _skipr
vorwärts/rückwärts verschieben einige records
rec_count = 0
definieren Fenster skip_wndw von 11.29 bis 13.52;
Schatten-Farbenentwurf 7
aktivieren Fenster skip_wndw
@ 00.00 sagen“ Zeilensprung-Aufzeichnungen: “ rec_count Abbildung erhalten „@Z 999999 '
read
Zeilensprung rec_count
wenn EOF ()
= _endr ()
= dismsg (chr (7) + „letztes Rekord")
endif
wenn BOF ()
= _beginr ()
= dismsg (chr (7) + „erstes Aufzeichnung skip_wndw
endif
")
return ''
L
function TabBack
s_lastkey = lastkey ()
wenn s_lastkey = 15
BTabKey =. T.
Tastatur chr (23)
endif

return
L
function _tally
definieren Fenster count_wndw von 0.35 bis 2.78;
Schatten-Farbenentwurf 7
aktivieren Fenster count_wndw
@ 0.0 sagen“ die Zählung… „
von rec_count = von 0
= _begin ()
Zählimpuls während .not &at_eof rec_count

zum mess_str = zum str (rec_count, 6) +“ record'< Br/>
, wenn rec_count > 1
mess_str = mess_str + „s'< Br/> endif

Wartezeit mess_str
record_no
Freigabe-Fenster count_wndw
return ''
L
function _tallyr
gehen, definieren Fenster count_wndw von 0.35 bis 2.78;
Schatten-Farbenentwurf 7
aktivieren Fenster count_wndw
@ 0.0 sagen“,… „
rec_count = 0
= _beginr ()
Zählimpuls während .not EOF () rec_count
zum mess_str = zum str zählend (rec_count, 6) +“ mess_str
Wartezeit des records'< Brs/> gehen record_no
/>return ''
L
function _tofile
= Raum (8)
definieren Fenster file_wndw von 7.20 bis 16.59;
Titel“ eintragen Telefax-Dateinamen“;
Schatten-Farbenentwurf 7

aktivieren Fenster usr_wndw1
aktivieren Fenster file_wndw

@ 3, sagen 1, dass „Maximum von 8 Buchstaben erlaubt. „
@ 4, sagen 1 „den Dateinamen, hereinkommen Sie, werden have'< Br/> @ 5 n, sagen 1“ „.TXT“, das dem Ende des Namens hinzugefügt. '
@ 6, 1 sagen, „keine Sonderzeichen benutzen. „

@ 1.15 erhalten rep_file
read

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

entaktivieren Fenster file_wndw
Freigabe-Fenster file_wndw

definieren Fenster file_wndw von 7.18 bis 19, 60;
Titel“ Ihr Telefax ist bereit“;
Schatten-Farbenentwurf 7
aktivieren Fenster file_wndw

@ 1, 1 sagen „, nachdem das Telefax gedruckt worden geht, " zum
@ 2, sagen 1 „das Systray, auf dem Schreibtisch Right-Clicking und "
@ 3, sagen 1 „WinFax beginnt, indem er auf dem Telefax "
@ 4, sagen 1 „Ikone. Zunächst link-klicken senden an ein Telefax… „

@ 6, sagen 1 „Aktenposition: „+rep_file

@ 8, 1 sagen „, wenn das Telefax gesendet worden, Rückkehr hier "
@ 9, sagen 1 „fortzufahren, als vorher zu arbeiten. „
read

Freigabe-Fenster file_wndw

, wenn .not (rep_file)
outp_dev = 'file'< endif
Br/>return ''
L
function _torcd
= System (14.1)
wenn &ndx_exp >= first_val
last_rec = das last_val record_no
= &ndx_exp
else
= dismsg ndx_exp („letzte Aufzeichnung muss der ersten Aufzeichnung folgen“),
endif
= _disstat ()
return ''
L
function _zoom

* susp

wenn no_zooms = zoom_no
= dismsg („kein Summen-Akte ")
else
, wenn recht (System (16.2), 12) = 'CRITTERS.FXP'< Br leeren /> tun case
Fall anml_type = 'C'< Br/> zoom_no = 3
Fall anml_type = „D'< Br/> zoom_no = 2
Fall anml_type = „E'< Br/> zoom_no = 4
Fall anml_type = „F'< Br/> zoom_no = 5
otherwise

* = dismsg („ist die Tierart Feld NICHT C, D, E oder F. ")

A_Type = Raum (1)
definieren Fenster file_wndw von 8.20 bis 16.57; verfehlender
Titel“: Tierart“;
Schatten-Farbenentwurf 7

aktivieren Fenster usr_wndw1
aktivieren Fenster file_wndw

@ 1, sagen 1, „jedes Tier eine ART haben muss, die "
@ 2, 1 sagen, dass „eine allgemeine Kategorie beschreibt. Das „
@ 3, 1 sagen, dass „erlaubte Eintragungen sind: D, C, F oder E "
@ 4, sagen 1“ (Hund, Katze, Bauernhof oder exotisches.) „

GoodType =. F.

tun während .not. GoodType

@ 4.34 erhalten A_Type
read

A_Type = oberes (A_Type)

wenn A_Type $ „DCFE "
GoodType =. T.
else
@ 6, 1 sagen,“ bitte hereinkommen: D, C, F oder E „
EndIf

enddo

entaktivieren Fenster file_wndw
Freigabefenster file_wndw

anml_type = A_Type

ersetzen anml_type durch m->anml_type

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

= x_zoom ()
= _begin ()
* wenn eine neue Seite, neues screen
wenn first_page <> page_no
page_no = first_page
endif
wenn &at_eof
gesetztes esca off
= dismsg anzeigen („Datenbank leeres ")
gesetztes esca on
= _add ()
endif
endif

return ''
L
function add_rec
addieren einen record
Abbruch = .f.
no_rcds = &at_eof

* Zurückstellen zum ersten page
d_function = ()

auf Schlüsselaufkleber PGUP tun PageUp
auf Schlüsselaufkleber PGDN tun PageDn

tun, während page_no <= last_page

********** akl: Multi Angebote - am
*+++++++++ 2:07 des Fensters 10/16/95 redigieren akl: Angebote - auf multi erlauben redigieren Window
, wenn recht (System (16.3), 8) = „BIDS.FXP "
auf Schlüsselaufkleber PGUP tun newPageUp
auf Schlüsselaufkleber PGDN tun newPageDn
endif
**********

--------- akl: Entfernt - mochte nicht die Weise, die es 3/13/96 9:17 pm
akl funktionierte: Hinzugefügt für pm
8:42 der Berechnung 2/11/96 der elektronischen Waage wenn ((prog_name = „ZAHLBARES“ .and alias () = „PAYDETL“) .or. ;
(prog_name = „EMPFANGEN“ .and alias () = „RECDETL“)) .and. ;
(Wahl = „Kopie“ .or Wahl = „ändern "),)
p_amount = 0
endif

---------
getcond =“ „G'$ fld_usg "

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun clrfld
@ 14, sagen 1 Raum (57)
@ 15, 1 sagen Raum (57)
, @ 16, 1 sagen Raum (57)
@ 17, 1 sagen, dass Raum (57)

getfldA mit getcond
read

tun, wenn m->u_code_2 = „D“ .or m->u_code_2 = „C "
getfldB mit getcond
read
endif

else

tun getfld mit getcond

akl tun: Erlaubt Cursor zum Feld des UpArrow bis jetzt. 12/15/95 6:59 pm
, wenn recht (System (16.3), 9) = „CALLS.FXP "
las cycle
else
read
endif

endif

** akl: Multi Angebote - am
*+++++++++ 2:07 des Fensters 10/16/95 redigieren akl: Angebote - auf multi erlauben redigieren Window
, wenn recht (System (16.3), 8) = „BIDS.FXP "
auf Schlüsselaufkleber PGUP
auf Schlüsselaufkleber PGDN
endif
**********

gesetztem Mitteilung to
gesetztem Notfall weg vom && dieses musste innen gesetzt werden, weil die SET
&& MITTEILUNG nicht scheint zu arbeiten!!
wenn akl_test $ „Yy'< Brs/> gesetztes endif

s_lastkey = lastkey ()

wenn s_lastkey = 27 && Esc
Abbruch = .t.
exit
endif

wenn s_lastkey = 18 && Seite herauf Key
wenn page_no > 1
page_no = page_no - 1
tun disscr
loop
endif
endif

wenn s_lastkey = die 3 && Seite unten Key
, wenn page_no < last_page
page_no = page_no + 1
disscr
loop
endif
endif

wenn page_no = first_page
* Überprüfung auf doppeltes (der Schlüssel eingegeben nur auf on
Notfall des erstes Seite)
wenn .not tunallow_dup&zoom_num
, wenn recht (System (16.3), 8) <> „USDA.FXP "
Suchvorgang &ndx_var
wenn .not. (&at_eof)
= dismsg (chr (7) + „Duplikataufzeichnung nicht erlaubter ")
Abbruch = .t.
exit
endif
akl: Die zusätzliche einzelne Prüfung jedes Tastenfeld 0:26 pm
USDA-5/31/96 im else
, wenn m.usda = 0
exit
endif
s_recno = recno ()
gehen, top
finden für m.name = name
wenn gefundenes ()
= dismsg (chr (7) + „der Name des Tieres bereits gebräuchlich. Einen anderen Name“)
Abbruch = .t.
exit
endif
wählen gehen top
finden für m.usda = usda
wenn gefundenes ()
= dismsg (chr (7) + „die USDA-Zahl bereits gebräuchlich. Einen anderen Zahl“)
Abbruch = .t.
exit
endif
wählen, wenn .not EOF ()
Goto- s_recno
endif
endif

endif
endif

* Nachschlagenfelder anzeigen und Berechnungs- variables
tun lookup
tun calcul mit .t.

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
tun getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

freie gets

wenn page_no < last_page
* folgendes Schirm page
page_no = page_no + 1
anzeigen disscr
tun else
exit
endif
enddo, während page_no <= last_page

* Seite number
wieder herstellen, wenn page_no > first_page
deact Wind all
page_no = first_page

disscr

tun, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
tun getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

redisp_fld = .t.
endif

Abbruch = iif (Abbruch, .t., .not save_rec ())

wenn .not abort
wenn no_rcds
= set_bndry ()
endif
else
, wenn no_rcds
= _quit ()
else
record_no
endif
/>return ''
L
function adv_line
Fortschritt ein Report/Schirm line
ein line_no = ein line_no + ein 1
gehen, wenn line_no = lns_per_pg
pgeftr
= adv_page ()
endif
at_top = .f.
return line_no
L
function adv_page
Vorreport/Schirm page

page_no = page_no + 1

wenn recht tun (System (16.2), 12) = „CRITTERS.FXP“ && 9/09/98 9:11 P.M. (akl)
, wenn page_no = sel_yes + 1
return
endif
endif

, wenn outp_dev = „Laser“ .or outp_dev = „dot'< Br/> eject
else
@ line_no+1,0 Verdoppelung (chr (219), 76)
endif

line_no = top_margin

tun pgehdr
return ''
L
function chk_dupl

Satzduplikat zu .f., wenn der Schlüssel ein Duplikat ist oder .t. otherwise
zum privaten dupl_rec

sagen, wenn ((&at_bof) = (&at_eof)) .or. '' = Ordnung (ndx_var) .or allow_dup&zoom_num
dupl_rec = .f.
else
Suchvorgang &ndx_var
wenn Wahl = „M'< Br/> dupl_rec = record_no <> recno () .and .not &at_eof
else
dupl_rec = .not &at_eof
endif
wenn dupl_rec
= dismsg (chr (7) + „Duplikataufzeichnung nicht erlaubtes ")
else
record_no
endif
endif
return dupl_rec
L
function chng_brk
Parameters up
Stufensprung-Bruchniveau wenn „herauf“ = .t., Verminderung otherwise
wenn up
* gesetztes neues Reportendpunkt condition
brk_field = brk_field&brk_num
new_cond = „&brk_field<>m->&brk_field“ +“ .or. „
cond_size&brk_num = len (new_cond)
done_cond = new_cond + done_cond
* Speicherbruchfeld Gedächtnis variable
zum &brk_field = zum &brk_field
* lautes Summen oben, wenn es ein „lautes Summen“ break

wenn brk_zoom&brk_num
zoom_no = zoom_no + 1
zoom_num = str ist (zoom_no, 1)
frst_child = lnk_var&zoom_num
vorwählen &zoom_num
Suchvorgang &frst_child
endif
* Bruch number
brk_no = brk_no + 1
brk_num = str (brk_no, 1)
erhöhen getan = &done_cond
else
brk_no = brk_no - 1
brk_num = str um (brk_no, 1)
* das Reportendpunkt condition
done_cond = das substr verringern(done_cond, 1+cond_size&brk_num)
* lautes Summen unten, wenn es ein „lautes Summen“ break
wenn brk_zoom&brk_num
zoom_no = zoom_no ist - 1
zoom_num = str (zoom_no, 1)
endif
&zoom_num
/>return ''
L
function confirm
Parameter header
definieren Fenster con_wndw von 1.50 bis 20.100;
doppelter Farbenentwurf 12;
GUSS „Arial fett“, 20 && 1.2.5? , 6? , 8? , 10? , 11? , „13 '

aktivieren Fenster con_wndw

, wenn (13-len (Überschrift) /2) < 0
= dismsg („Störung: Überschrift zu lang. 13 Putzfrauen sagen maximales ")
endif
@ 1.00, dass Raum (13-len (Überschrift) /2) + header
@ 3.00 sagen“ < > < > „
@ 3.05 Menü des Brs/> No'< Aufforderung 3.18 des Aufforderung „Yes'< Brs/> @ „con_opt
Freigabefenster con_wndw
return iif (con_opt=1, .t., .f.)
L
function con_year
* CONTRACY zur JAHR-Rückkehr das Jahr des Vertrages, wie von Rob
* für sein business.

GESETZTES JAHRHUNDERT ON
num_yr spezifiziert = val (recht (dtoc (Datum ()), 4)) -1981
GESETZTES JAHRHUNDERT OFF

, wenn val (verlassen (dtoc (Datum ()), 4)) > 5
definieren num_yr = num_yr + 1
endif
return num_yr
L
function dismsg
Parameter message
Fenster mess_wndw von 10,78-6-len (Mitteilung) bis 24.100;
TITEL „Lebewesen-Mitteilung“;
NAHE HIN- UND HERBEWEGUNG WACHSEN LAUTES SUMMEN;
Schatten-Farbenentwurf 7;
GUSS „Arial fette“, 20 aktivieren
Fenster mess_wndw
, wenn leere (Mitteilung)
Wartezeit“ Presse jeder möglicher Schlüssel, zum… „von
else
Wartezeit““ + Mitteilung +“… „
endif
/>return ''
L
function dismsgt
Parameter message
fortzusetzen Fenster mess_wndw von 0,78-6-len (Mitteilung) bis 2.78 definieren;
Schatten-Farbenentwurf 7
aktivieren Fenster mess_wndw
, wenn leere (Mitteilung)
Wartezeit“ Presse irgendein Schlüssel zum fortzufahren…“ ;
TIMEOUT2
else
Wartezeit““ + Mitteilung +“…“ ;
endif
2
/>return ''
L
function DmsgQwQr
Anzeigen-Mitteilung, Wartezeit? (ja oder Nr.) Freigabe? (ja oder Nr.) definieren

Parameter Mitteilung, WaitReply, CloseWin

Fenster mess_wndw von 0,78-6-len (Mitteilung) bis 2.78;
Schatten-Farbenentwurf 7
aktivieren Fenster mess_wndw

, wenn WaitReply
sagen, wenn leeres (Mitteilung)
@ 0.1 'Presse jeden möglichen Schlüssel sagen, um… „
read
else
@ 0.1 fortzusetzen, dass Mitteilung +“… „
read
endif
else
, wenn leeres (Mitteilung)
@ 0.1 ''
else
@ 0.1 sagen, Mitteilung +“… '
endif
endif

sagen, wenn CloseWin
mess_wndw
/>return ''
L
function dispage1
, wenn page_no <> first_page
redisp_fld = .t.
page_no = first_page
disscr

tun, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
tun getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

freies gets
/>return ''
L
function edit_txt
Fenster txt_wndw von 1.0 bis 24.79 definieren;
Titel „AUSZUSORTIEREN DRUCK (ESC zum herauszunehmen)“;
Systems-Summenhin- und herbewegung wachsen nahen Farbenentwurf 11

, wenn akl_test $ 'Yy'< Br/> && txt_wndw Fenster der Akte gentemp.gtx .gtx = GeneralTeXt
else
ändern Akte gentemp.gtx noedit Fenster txt_wndw && .gtx = GeneralTeXt
endif
Freigabe-Fenster txt_wndw
return ''
L
function end_rpt
wenn outp_dev = „Laser“ .or outp_dev = 'dot'< Br/> wenn rechtes ändern (System (16.3), 11) <> „P_CONTR.FXP“ .and. ;
berichtigen (System (16.3), 10) <> „P_INVO.FXP“ .and. ;
berichtigen (System (16.5), 12) <> „P_SUBRNT.FXP“ .and. ;
berichtigen (System (16.5), 10) <> 'P_BIDS.FXP'< Br/> wenn .not. ((recht (System (16.3), 12) = „P_LABELS.FXP“ .or. ;
berichtigen (System (16.3), 12) = „P_LABLS1.FXP“ .or. ;
berichtigen (System (16.3), 12) = „P_LABLS2.FXP ") .and. ;
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5))
eject
endif
endif
endif

, wenn outp_dev = 'to
Drucker des file'< Brs/> gesetzte endif

gesetzte Vorrichtung zu screen

/>return ''

berichtigen (System (16.4), 10) <> „P_BIDS.FXP“ && (akl) 6/02/99 0:33 pm
* .and. ; && 2/20/94 (akl)
* berichtigen (System (16.3), 12) <> 'P_LABELS.FXP'< Br/>
L
function envrnmnt
auf Störung tun errfix mit Störung (), Mitteilung (), Mitteilung (1), program (), lineno ()
, das gesetzte Glocke off
gesetzte Konsole on
gesetzte Dezimalstriche 10
zum Satz on
gesetzte genaue off
gesetzte exklusive off
gesetzte Vorrichtung zu screen
gesetzten multilocks off
Satz 0
zum Satz wieder aufbereiten zu 1
off
off
/>return ''
L
function errfix
Parameter errnum erneuern, errormsg löschte, tun errormsg1, prgname, lineno
* Freigabe-Fenster err_wndw
case
Fall errnum = die 108 && Akte, die durch another
gebräuchlich ist, wenn bestätigen („die Akte gebräuchlich, Wiederholung? ")
retry
else
wenn wexist („chkf_wndw ")
Freigabefenster chkf_wndw
endif
= restenv ()
Rückkehr zum &callmenu
endif
Fall errnum = 109 && Rekordverschlossene durch another
, wenn bestätigen („, gebräuchliches, Wiederholung? ")
retry
else
Rückkehr mainproc
zum endif
* zum &
Fall errnum zurückgehen = die 110 && Akte, die durch another
= dismsg („Akte, gebräuchlich ist muss opended ausschließlich ")
Rückkehr zum &callmenu
otherwise
set esca on
sein definieren Fenster err_wndw von 15.3 bis 50.170;
GUSS „Arial fett“, 16;
Doppeltherbewegungsschatten-Farbenentwurf 2

aktivieren Fenster err_wndw
@ 0.0 sagen „Störungs-Zahl: “ + ltrim (str (errnum))
@ 1.0 sagen „Fehlermeldung: “ + sagen errormsg
@ 2.0 „Linie des Textes: “ + sagen errormsg1
@ 3.0 „Programm-Namen: “ + sagen prgname
@ 4.0 „Linie Zahl: “ + ltrim (str (lineno))
@ 5.0 sagen „Gegenstand: “ + System (2018)
= dismsg („endcase
off
set err_wndw
")
return ''
L
function explode
parameters m_row1, m_col1, m_row2, m_col2, m_cnt, m_type

m_row1 = obere linke Handecke von box.
* m_col1 = obere rechte Ecke von box.
* m_row2 = Ecke der untereren Linke Handvon box.
* m_col2 = niedrigeres rechtes Ecke box.
* von m_cnt = von Zahl der Schritte für Explosion feststellt die Geschwindigkeit, die explodes.
* m_type = Art von explosion.
* 1 = alle Seiten explodieren sofort.
* 2 = nur Seiten explode.
* 3 = nur Oberseite schachteln und unteres explode.
* 4 = explodiert von oben bis unten.
* 5 = explodiert von Unterseite zu top.
* 6 = explodiert von links nach rechts.
* 7 = explodiert von rechts nach links.

public explode
save Schirm zum explode

r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
c_pos2 = m_col2

do case
Fall m_type = 1 && aller sides.
Speicher ((m_row2-m_row1) /2)+m_row1 zu r_pos1, && r_pos2 Reihe center
Speicher ((m_col2-m_col1) /2)+m_col1 zu c_pos1, && c_pos2 Spalte center
r_cnt = (r_pos1-m_row1) /m_cnt && Reihe increment
c_cnt = (c_pos1-m_col1) /m_cnt && Spalte increment
Fall m_type = 2 && Seiten only.
Speicher ((m_col2-m_col1) speichern /2)+m_col1 zu c_pos1, && c_pos2 Spalte center
c_cnt = (c_pos1-m_col1) /m_cnt && Spalte increment
Fall m_type = die 3 && Oberseite und bottom
((m_row2-m_row1) /2)+m_row1 zu r_pos1, && r_pos2 Reihe center
r_cnt = (r_pos1-m_row1) /m_cnt && Reihe increment
Fall m_type = 4 && das horizontale
r_pos2 = m_row1
r_cnt = (m_row2-m_row1) /m_cnt && Reihe increment
Fall m_type = die 5 && Unterseite zum top
r_pos1 = m_row2
r_cnt = (m_row2-m_row1) /m_cnt && Reihe increment
Fall m_type = 6 && das von links nach rechts verlaufende
c_pos2 = m_col1
c_cnt = (m_col2-m_col1) /m_cnt && Reihe increment
Fall m_type = 7 && Recht zum left
c_pos1 = m_col2
c_cnt = (m_col2-m_col1) /m_cnt && Reihe increment
endcase

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

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

* (akl) 5/11/99 3:27 pm
* das folgende, WENN Aussage entfernt, um Filtermitteilung displayed.
* sein zu lassen wenn .not. ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF "))
aktivieren screen
* endif
, wenn .not leeren (Filter ())
@ 0.70 sagen „Filter auf“ Farbe w+/n
else
* (akl) 5/11/99 3:27 pm
* das folgende, WENN Aussage geändert, um die Recht-Oberseite Ecke des Kastens anzuzeigen.
tun case
Fallrecht (System (16.2), 12) = „CRITTERS.FXP“ .and nach rechts (dbf (), 12) = „CRITDOGS.DBF'< Br/>, wenn PrimDisp
@ 0.70 sagen, „ÍÍÍÍÍÍÍÍÍ "
else
@ 0.70 „ÍÍÍÍÍÍÍÍÍ“ „
endif

Fallrecht (System (16.2), 12) = „CRITTERS.FXP“ .and nach rechts sagen (dbf (), 12) = „CRITCATS.DBF'< Br/>, wenn PrimDisp
@ 0.70 sagen, dass Raum (09)
else
@ 0.70 „ÍÍ“ „+space (06)
endif

otherwise
sagen @ sagen 0.70 Raum (09)
endcase
endif

, wenn alias () = „BIDS'< Br/>, wenn Art („s_recon_date ") = „D'< Br/>, wenn leeres (s_recon_date)
@ 0, 1 Raum (25)
else
@ 0 sagen, 1 „überholtes Datum sagen: „+dtoc (s_recon_date) Farbe w+/n
endif
endif
endif

wenn .not. ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF ")) das

* (akl) 4/10/99 11:43 pm
* addiert, wenn Aussage für die folgende Bedingung: 2/M/F5/N/Z
* Der Datenschirm gelöscht und ein Benutzerschirm ist activated.
* Problem auftritt, NUR beim Heiß-Befestigen von Angebote zu Zoom.
des Lebewesen-Hundes * kein Benutzer, den Schirm aktiviert, weil die Menge von Daten nicht auf a
* Benutzerschirm passt. So benutzt der Schreibtisch. (Schirm aktivieren).

wenn .not. (System (16.5) = „AUF…“ .and. ;
berichtigen (System (16.6), 8) = „BIDS.FXP“ .and. ;
berichtigen (dbf (), 12) = „CRITDOGS.DBF“)
aktivieren Fenster endif
/>
usr_wndw&page_num
return ''
L
function fltrstar
aktivieren screen
, wenn .not leeren (Filter ())
@ 0.70 sagen, „Filter auf“ Farbe w+/n
else
@ 0.70 sagen, dass Raum (09)
endif
Fenster usr_wndw
return ''
L
function genhlp
Parameter prm1
private org_alias, hlp_topic

org_alias = alias ()
wenn „GENHLP.DBF“ $ dbf ()
Rückkehr ''
endif

EditFld = aktivieren. F. && ALLE Rob wünscht redigieren (Protokoll) Felder, um das 1:53 morgens (akl) der same
&& Hilfenmitteilung 1/10/97
zu zeigen, wenn das leere
hlp_topic = prog_name
else
, wenn leer (System (18))
hlp_topic = prm1
else
hlp_topic = System (18)
wenn Art („&hlp_topic ") = „M'< Br/> EditFld =. T.
endif
endif
endif

, wenn .not Akte („genhlp.DBF ")
, wenn .not Akte („genhlp.STR ")
= dismsg („genhlp.STR nicht gefundene ")
Rückkehr ''
else
auserwähltes 0
genhlp genhlp.str
use
endif
endif

vom auserwählten 0
Gebrauch genhlp

gesetzten genauen on
, wenn EditFld
für Ordnung (Thema) = „BID'< Br/> else
finden für Ordnung (Thema) = hlp_topic
endif
gesetztes genaues off

wenn EOF ()
finden, wenn modi_memo
blank
= rlock ()

* anfügen, ersetzen Thema mit && prm1 ist dieses eine Wanze??
ersetzen Thema durch hlp_topic && wenn ja, dieses kann die Verlegenheit sein!!
&& der Schirm, in dem ein Feld nicht das gewählte yet
&& hat (A oder M), ersetzt, ein blank.

ersetzen Braue durch 7, bcol mit 10;
erow mit 16, ecol mit 70
unlock
else
&& keine vorhandene Hilfe - Msg ignorieren oder alarmieren???
Rückkehr ''
endif
endif
, wenn modi_memo
Fenster help_wndw von der Braue, bcol zum erow, ecol definieren;
Titel „HILFE (ESC zu speichern zum Ausgang oder zu F10)“;
Systems-Summenhin- und herbewegung wachsen nahes Farbenentwurf 11
else
definieren Fenster help_wndw von der Braue, bcol zum erow, ecol;
Titel „HILFE (ESC zum Ausgang)“;
Systemssummenabschluss-Farbenentwurf 11
endif
wenn modi_memo
, wenn rlock ()
auf Schlüsselaufkleber F10 sav_wind mit „HILFE (ESC zum herauszunehmen oder zu speichern F10) „
tun, ändern Protokolldetailfenster help_wndw
unlock
auf Schlüsselaufkleber F10
else
= dismsg („Hilfen-Rekordgebräuchliche, Wiederholung ")
endif
else
ändern Protokolldetails noedit Fenster help_wndw
endif
use
wenn! leeres (org_alias)
endif
&org_alias
/>return ''
L
function getgrid
VARIABLES
“ gehen „das private choice
alle wie prompt*
Wahl = 0
prompt1 =
prompt2 =“ Modi „
prompt3 =“ geverlassenes „

* WINDOWS
definieren Fenster MAINTMNU von 22.0 bis 24.79;
Titel“ Rasterfeld beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
aktivieren Fenster MAINTMNU noshow
* 1 2 3
@ 0, sagen 1, dass „Modi Quit'< Br/>L
auf Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER gehen, den HELP

Fenster MAINTMNU
@ 0 aktivieren, 1-1 sofortiges prompt1
@ 0, 4-1 sofortiges prompt2
@ 0, 9-1 sofortiges prompt3
Menü zum choice

case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = „Kastenwahl des quit'< Brs/> = 1
Wahl = „Kastenwahl des go'< Brs/> = 2
Wahl = „Kastenwahl des modify'< Brs/> tun = 3
Freigabefenster MAINTMNU
entaktivieren Wahl = „quit'< Br/> endcase

Fenster MAINTMNU

return option
L
function getgrid2
* GetGrid2 hat den auserwählten (Sel) Befehl, der dem privaten pm
* VARIABLES
6:03 der Liste 3/21/96 privaten choice
alle wie prompt*
Wahl = 0
prompt1 =“ hinzugefügt, gehen „
prompt2 =“ Modi „
prompt3 =“ Sel „
prompt4 =“ geverlassenes „

* WINDOWS
definieren Fenster MAINTMNU von 22.0 bis 24.79;
Titel“ Rasterfeld beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
aktivieren Fenster MAINTMNU noshow
* 1 2 3 4
@ 0, sagen 1, dass „Modi Sel Quit'< Br/>L
auf Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER gehen, den HELP

Fenster MAINTMNU
@ 0 aktivieren, 1-1 sofortiges prompt1
@ 0, 4-1 sofortiges prompt2
@ 0, 9-1 sofortiges prompt3
@ 0.13-1 sofortiges prompt4
Menü zum choice

case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = „Kastenwahl des quit'< Brs/> = 1
Wahl = „Kastenwahl des go'< Brs/> = 2
Wahl tun = „Kastenwahl des modify'< Brs/> = 3
Wahl = „Kastenwahl des select'< Brs/> = 4
Freigabefenster MAINTMNU
Wahl = „quit'< Br/> endcase

entaktivieren Fenster MAINTMNU

return option
L
function getsel
auf Schlüsselaufkleber F7 tun genhlp mit System (18)

tun case
Fallrecht (System (16.2), 12) = „CRITTERS.FXP“ .and zoom_num <>, „, das 1 '
maintmnu2

Fallrecht (System (16.2), 12) = ' CONTRACT.FXP“ .or nach rechts tun (System (16.2), 11) = ' INVOICE.FXP“ .or. ;
berichtigen (System (16.2), 11) = ' ANIMALS.FXP“ .or nach rechts (System (16.2), 08) = ' BIDS.FXP“ .or. ;
berichtigen (System (16.3), 08) = ' CREW.FXP“ .or nach rechts (System (16.2), 12) = ' CRITTERS.FXP“ .or. ;
berichtigen (System (16.3), 07) = ' DHR.FXP“ .or nach rechts (System (16.3), 08) = ' ACTS.FXP“ .or. ;
berichtigen (System (16.3), 10)='AGENCY.FXP“ .or nach rechts (System (16.3), 08) = ' JOBS.FXP“ .or. ;
berichtigen (System (16.3), 08) = ' MAPS.FXP“ .or nach rechts (System (16.3), 11) = ' MEASURE.FXP“ .or. ;
berichtigen (System (16.3), 11) = ' PAYABLE.FXP“ .or nach rechts (System (16.3), 10)='PRICES.FXP“ .or. ;
berichtigen (System (16.3), 12) = ' PRODUCTN.FXP“ .or nach rechts (System (16.3), 10)='PETSHP.FXP“ .or. ;
berichtigen (System (16.3), 11) = ' RECEIVE.FXP“ .or nach rechts (System (16.3), 11) = ' SUBRENT.FXP“ .or. ;
berichtigen (System (16.3), 08) = ' USDA.FXP“ .or nach rechts (System (16.3), 12) = ' HELTHCRT.FXP“ .or. ;
berichtigen (System (16.3), 09) = ' ADOPT.FXP'< Br/>
tun && maintmnu4 hinzufügte Menü für 'Kastenrecht des Go'< Brs/>
(System (16.3), 9) = 'SETUP.FXP'< Br/> tun maintmnu5

otherwise
tun maintmnu

endcase
return option
*L
********************
* *
* für LEBEWESEN, die das Standardwartungsmenü durch ersetzt: *
* *
* MAINTMNU.prg *
* *
= dismsg („Crit Störung # 1 - Code nicht aktiviert. (getsel) ")
********************

aktivieren screen
gesetzte Mitteilung 0
Maß actn_pad (8.2)
zum Maß, das data_bar ist (3)
das Maß recd_bar (3)
das Maß recs_bar (3)
das Maß edit_bar (2)
das Maß addr_bar (3)
das Maß scrn_bar (2)
das Maß filt_bar (2)
das Maß quit_bar (1)

* Auflage in jedem popup
actn_pad (1.1) definieren = 'DATENBANK '
actn_pad (2.1) = 'SATZ '
actn_pad (3.1) = 'SATZ '
actn_pad (4.1) = 'EDIT '
actn_pad (5.1) = 'ADD'< Br/> actn_pad (6.1) = 'SCHIRM '
actn_pad (7.1) = 'FILTER '
actn_pad (8.1) = 'VERLIESS '
actn_pad (1.2) = 'DATENBANK '
actn_pad (2.2) = 'SATZ '
actn_pad (3.2) = 'SÄTZE '
actn_pad (4.2) = 'EDIT-'
actn_pad (5.2) = 'ADD'< Br/> actn_pad (6.2) = 'SCHIRM '
actn_pad (7.2) = 'FILTER '
actn_pad (8.2) = Das

data_bar (1) = 'Liste 'das
data_bar (2) = 'lautes Summen 'das
data_bar (3) = 'Tally 'das
* data_bar (4) = das
, das (1) = 'das Retrieve'< Br recd_bar ist,/> recd_bar (2) = 'zunächst 'das
recd_bar (3) = 'das Previous'< Br/> recs_bar (1) = das
, das (2) = 'Ende 'das
recs_bar, recs_bar ist (3) = 'Zeilensprung 'das
edit_bar (1) = das
, das (2) = 'das addr_bar Memo'< Br/> redigieren (2) = edit_bar ist, 'Löschung '
addr_bar (3) = 'Kopie '
scrn_bar (1) = 'folgendes Page'< Br/> scrn_bar (2) = 'Prev Page'< Br/> filt_bar (1) = 'Filter filt_bar einstellen '
(2) = 'Löschen-Filter 'das
quit_bar (1) = 'geverlassenes '

Menüstab actn_pad, 8
das Menü 1, data_bar, 3
das Menü 2, recd_bar, 3
das Menü 3, recs_bar, 3
das Menü 4, edit_bar, 2
das Menü 5, addr_bar, 3
das Menü 6, scrn_bar, 2
das Menü 7, filt_bar, 2
das Menü 8, quit_bar, 1
@ sagen 24.0, dass Raum (80)
Menüstab zum sele_row, sele_col save
clear
tun case
Fall sele_row = 1
opt_sel = data_bar (sele_col)
Fall sele_row = 2
opt_sel = recd_bar (sele_col)
Fall sele_row = 3
opt_sel = recs_bar (sele_col)
Fall sele_row = 4
opt_sel = edit_bar (sele_col)
Fall sele_row = 5
opt_sel = addr_bar (sele_col)
Fall sele_row = 6
opt_sel = scrn_bar (sele_col)
Fall sele_row = 7
opt_sel = filt_bar (sele_col)
otherwise
opt_sel = 'Quit'< lasBr/> endcase
, wenn opt_sel <> 'Quit'< Br/> @ 0.1 Oberleder (Ordnung (opt_sel) sagen) Farbe w+/n
endif
aktivieren Fenster usr_wndw&page_num
return niedriger (Ordnung (opt_sel))
L
function getseli
aktivieren screen
gesetzte Mitteilung 0
Maß actn_pad (5.2)
zum Maß, das data_bar ist (4)
das Maß recd_bar (7)
das Maß scrn_bar (2)
das Maß filt_bar (2)
das Maß quit_bar (1)

Auflage in jedem popup
actn_pad (1.1) definieren = 'DATENBANK '
actn_pad (2.1) = 'SATZ '
actn_pad (3.1) = 'SCHIRM '
actn_pad (4.1) = 'FILTER '
actn_pad (5.1) = 'GEVERLASSENES '
actn_pad (1.2) = 'DATENBANK '
actn_pad (2.2) = 'SATZ '
actn_pad (3.2) = 'SCHIRM '
actn_pad (4.2) = 'FILTER '
actn_pad (5.2) = „VERLIESS „

* data_bar (1) = iif (no_zooms = zoom_no,“ \ -“, „das lautes Summen ")
, das data_bar ist (1) = 'Liste 'das
data_bar (2) = 'Tally 'das
data_bar (3) = 'lautes Summen 'das
data_bar (4) = ''das
verlassen, das recd_bar ist (1) = 'das Retrieve'< Br/> recd_bar (2) = 'zunächst 'das
recd_bar (3) = 'das Previous'< Br/> recd_bar (4) = ''Das
anfangen, das recd_bar ist (5) = 'Ende 'das
recd_bar (6) = 'Zeilensprung 'das
recd_bar (7) = 'Protokoll 'das
scrn_bar (1) = 'das folgende Page'< Br/> scrn_bar (2) = 'das Prev Page'< Br/> filt_bar (1) = 'Filter'< Br/> filt_bar einstellen (2) = 'das Löschen Filter'< Br/> quit_bar (1) = 'geverlassenes '

Menüstab actn_pad, 5
das Menü 1, data_bar, 4
das Menü 2, recd_bar, 7
das Menü 3, scrn_bar, 2
das Menü 4, filt_bar, 2
das Menü 5, quit_bar, 1
@ 24.0 sagen, dass Raum (80)
Menüstab zum sele_row, sele_col save
clear
tun case
Fall sele_row = 1
opt_sel = data_bar (sele_col)
Fall sele_row = 2
opt_sel = recd_bar (sele_col)
Fall sele_row = 3
opt_sel = scrn_bar (sele_col)
Fall sele_row = 4
opt_sel = filt_bar (sele_col)
otherwise
opt_sel = 'Quit'< Br/> endcase
las, wenn opt_sel <> 'Quit'< Br/> @ 0.1 Oberleder (Ordnung (opt_sel) sagen) Farbe w+/n
endif
aktivieren Fenster usr_wndw&page_num
return niedriger (Ordnung (opt_sel))
*L
function getselr
auf Schlüsselaufkleber F7 tun genhlp mit System (18)
tun maintmnu3
return

********************
* *
* für LEBEWESEN, die das Standardwartungsmenü durch ersetzt: *
* *
* MAINTMNU.prg *
* *
= dismsg („Crit Störung # 1 - Code nicht aktiviert. (getselr) ")
********************

aktivieren screen
gesetzte Mitteilung 0
Maß actn_pad (7.2)
zum Maß, das prnt_bar ist (3)
das Maß data_bar (3)
das Maß recd_bar (2)
das Maß recs_bar (3)
das Maß scop_bar (3)
das Maß filt_bar (2)
das Maß quit_bar (1)

* Auflage in jedem popup
actn_pad (1.1) definieren = 'DRUCK '
actn_pad (2.1) = 'DATENBANK '
actn_pad (3.1) = 'SATZ '
actn_pad (4.1) = 'SÄTZE '
actn_pad (5.1) = 'BEREICH '
actn_pad (6.1) = 'FILTER '
actn_pad (7.1) = 'VERLIESS '

actn_pad (1.2) = 'DRUCK '
actn_pad (2.2) = 'DATENBANK '
actn_pad (3.2) = 'SATZ '
actn_pad (4.2) = 'SATZ '
actn_pad (5.2) = 'BEREICH '
actn_pad (6.2) = 'FILTER '
actn_pad (7.2) = 'das GEVERLASSENE '

prnt_bar (1) = 'zum Drucker 'das
prnt_bar (2) = 'zu Akte '
prnt_bar (3) = 'zum Schirm '
* prnt_bar (4) = 'Druck Report'< Br/>* prnt_bar (5) = 'Status '
* prnt_bar (6) = 'geverlassenes '

data_bar (1) = 'Liste '
data_bar (2) = 'Tally '
data_bar (3) = 'Status'< Br/>
recd_bar (1) = 'zunächst '
recd_bar (2) = 'Previous'< Br/>
recs_bar (1) = das
'anfangen ', das recs_bar ist (2) = 'Ende 'das
recs_bar (3) = 'Zeilensprung 'das

scop_bar (1) = 'Vom Rekord'
scop_bar (2) = ''das
notieren scop_bar (3) = 'Löschen-Bereich '

filt_bar (1) = 'Filter filt_bar einstellen '
(2) = 'Löschen-Filter 'das

quit_bar (1) = 'geverlassenes '

Menüstab actn_pad, 7
das Menü 1, prnt_bar, 3
das Menü 2, data_bar, 3
das Menü 3, recd_bar, 2
das Menü 4, recs_bar, 3
das Menü 5, scop_bar, 3
das Menü 6, filt_bar, 2
das Menü 7, quit_bar, 1
Menüstab zum sele_row, sele_col save
clear
tun case
Fall sele_row = 1
opt_sel = prnt_bar (sele_col)
Fall sele_row = 2
opt_sel = data_bar (sele_col)
Fall sele_row = 3
opt_sel = recd_bar (sele_col)
Fall sele_row = 4
opt_sel = recs_bar (sele_col)
Fall sele_row = 5
opt_sel = scop_bar (sele_col)
Fall sele_row = 6
opt_sel = filt_bar (sele_col)
otherwise
opt_sel = 'Quit'< Br/> endcase
, wenn opt_sel <> 'Quit'< Br/> @ 0.1 Oberleder (Ordnung (opt_sel) sagen) Farbe w+/n
endif
aktivieren Fenster usr_wndw
return niedriger (Ordnung (opt_sel))
L
function init_rpt

tun case
Fall outp_dev = „Laser“ .or outp_dev = 'dot'< Br/> wenn outp_dev = 'gesetzter Druck des dot'< Brs/> LPT1
zum endif

wenn outp_dev = 'laser'< Br/> wenn rechte (System (16.3), 12) <> „P_LABELS.FXP“ && Bewegung bis 95. Dieses ändern wenn possible.
wenn akl_system $ 'gesetzter Druck des Y'< Brs/> zu LPT1
else
gesetztem Druck LPT1
endif
endif
zum endif

, wenn recht (System (16.3), 12) = 'P_LABELS.FXP'< Br/>, wenn Gruppe = 1 .or Gruppe = die 2 .or Gruppe = 3 kommentierte, weil there
* nicht mehr Matrixdrucker ist. 4/11/2000 9:57 P.M. (akl)

* (akl - 12/31/98 4:31 P.M.)
* entferne ich dieses wenn Aussage. Ich nicht wirklich weiß, warum ich sie in.
* setzte, das ich widersprach. Vorhergehendes WENN Aussage, gerade unter „Laser“ sehen.
* nach einer langen Zeit, entfernen dieses WENN und ENDE statements.
* wenn rechte (System (16.3), 12) <> „P_LABELS.FXP“ && Bewegung bis 95. Dieses ändern wenn possible.

wenn gesetzter Druck des akl_system $ 'Y'< Brs/> zu LPT1
else
gesetztem Druck LPT1
endif
* endif

* endif
zum endif

, wenn recht (System (16.3), 11) = „P_CONTR.FXP“ .or. ;
berichtigen (System (16.3), 10) = „P_INVO.FXP“ .or. ;
berichtigen (System (16.3), 12) = 'P_SUBRNT.FXP'< Br/>, wenn gesetzter Druck des akl_system $ 'Y'< Brs/> zu LPT1
else
gesetztem Druck LPT1
endif
zum endif

tun, während System (13) = „OFFLINE'< Br/> @ 0.0 sagen, dass“ bitte eingestellter Drucker auf Linie… „
read
s_readkey = readkey ()

, wenn s_readkey = das 268 .or s_readkey = das 12 && Entweichen pressed
gesetzte Vorrichtung zu screen
gesetztem Konsole on
gesetztem Druck off
return
endif
enddo

@ 0,0
@ 0.0 war,“ Drucken - ESC sagen, zum zu stoppen '
gesetzte Vorrichtung zum printer
wenn outp_dev = 'laser'< Br/> * bis 95 bewegen. Dieses ändern, wenn möglich. < - warum? 11/14/01
wenn rechtes (System (16.3), 12) <> „P_LABELS.FXP“ .and. ;
berichtigen (System (16.5), 10) gesetztes gesetztes on
* @ 0.0 Druck off
Konsole des <> 'P_BIDS.FXP'< Brs/> sagen, dass chr (27) + " E“ && das printer
? initialisieren? chr (27) + " E "
gesetztes Druck off
gesetztes Konsole on
endif
endif

Fall outp_dev = „file'< Br/> @ 0,0
@ 0.0 sagen“ Drucken - ESC, zum '
des gesetzten Druckers zu stoppen, um &rep_file
gesetzte Vorrichtung zu archivieren, um &rep_file

Fall outp_dev zu archivieren = „screen'< Br/> @ 0,0
@ 0.0 sagen“ Drucken - ESC, zum „
des gesetzten Druckers zu stoppen, um gentemp.gtx
gesetzte Vorrichtung zu archivieren, um gentemp.gtx
akl zu archivieren: Linien hinzufügten tabe, um TOF Buchstabe gehendes into
zu stoppen ausstoßen && Akte als zuerst Buchstabe. 8/01/98 1:18 am
gesetzte Drucker to
gesetzte Vorrichtung screen

zum gesetzten Drucker, zum gentemp.gtx
der gesetzten Vorrichtung zu archivieren, um gentemp.gtx

endcase

page_no zu archivieren = 1
line_no = top_margin
das gesetzte Konsole off

lnk_var = ''
gehen first_rec

, wenn .not leeren (Filter ())
filter_str = Filter ()
, wenn .not &filter_str
skip
endif
endif

brk_no = 1
brk_num = „1 '
, das = &done_cond
at_top = .t.
return '' private
L
function maintmnu
VARIABLES
das private choice
alle wie prompt*
Wahl = 0
prompt1 =“ erfolgt, „
prompt2 =“ addieren, bitten „
prompt3 =“ Kopie „
prompt4 =“ Del „
prompt5 =“ Ende „
prompt6 =“ Filt „
prompt7 =“ Liste „
prompt8 =“ Modi „
prompt9 =“ zunächst „
prompt10 =“ Prev „
prompt11 =“ geverlassenes „
prompt12 =“ rösten „
prompt13 =“ Zeilensprung „
prompt14 =“ Tally „
prompt15 =“ lautes Summen „

* WINDOWS
definieren Fenster MAINTMNU von 22.0 bis 24.79;
Titel“ Wartung beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
* kommentierte für VFP
WENN. F.
aktivieren Fenster MAINTMNU noshow
* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, sagen 1, dass 'hinzufügen bitten Liste Modi Copydel End Filt, das folgendes beendigtes Prev Zeilensprung-Tally Zoom'< Br/> ENDIF
* Stellung nahm für VFP
L
FUNKTIONSTASTE ASSIGNMENT
zu Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER rösten, HELP

case
Fall prog_name = „KALENDER "
auf Schlüsselaufkleber F2 tun mntmnuf mit 2
auf Schlüsselaufkleber F10 tun mntmnuf mit 10

otherwise
auf Schlüsselaufkleber F2 tun mntmnuf mit 2
auf Schlüsselaufkleber F8 tun mntmnuf mit tun 8
auf Schlüsselaufkleber F9 tun mntmnuf mit 9
auf Schlüsselaufkleber F10 tun mntmnuf mit 10
auf Schlüsselaufkleber F11 tun mntmnuf mit 11

dem endcase

* hinzugefügt für VFP
tun DispMenu
s_choice = mChoice
Wahl = mChoice

* kommentierten für VFP
WENN. F.
aktivieren Fenster MAINTMNU
@ 0, 1-1 sofortiges prompt1
@ 0, 5-1 sofortiges prompt2
@ 0, 9-1 sofortiges prompt3
@ 0.14-1 sofortiges prompt4
@ 0.18-1 sofortiges prompt5
@ 0.22-1 sofortiges prompt6
@ 0.27-1 sofortiges prompt7
@ 0.32-1 sofortiges prompt8
@ 0.37-1 sofortiges prompt9
@ 0.42-1 sofortiges prompt10
@ 0.47-1 sofortiges prompt11
@ 0.52-1 sofortiges prompt12
@ 0.56-1 sofortiges prompt13
@ 0.61-1 sofortiges prompt14
@ 0.67-1, das sofortiges prompt15
Menü zum choice
ENDIF
* für VFP

tun case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 1
Wahl = 'Kastenwahl des add'< Brs/> = 2
Wahl = 'Kastenwahl des begin'< Brs/> = 3
Wahl = 'Kastenwahl des copy'< Brs/> = 4
Wahl = 'Kastenwahl des delete'< Brs/> = 5
Wahl = 'Kastenwahl des end'< Brs/> = 6
definieren Fenster fil_wndw von 1.50 bis 6.77, die doppelter Farbenentwurf 12
Fenster fil_wndw
Überschrift = 'Filter'< Br/> @ 1.00 sagen aktivieren, dass Raum (13-len (Überschrift) /2) + header
@ 3.04 sagen ' '< Br/> @ 3.05 Menü des Brs/> Cancel'< Aufforderung 3.16 des Aufforderung 'Set'< Brs/> @ 'zum fil_opt

wenn fil_opt = 1
einstellte Wahl = 'filter'< Br/> endif

wenn fil_opt = 2
Wahl = 'Löschen filter'< Br/> endif

Freigabefenster fil_wndw

Falwahl = 7
Wahl = 'Kastenwahl des list'< Brs/> = 8
Wahl = 'Kastenwahl des modify'< Brs/> = 9
Wahl = 'Kastenwahl des next'< Brs/> = 10
Wahl = 'Kastenwahl des previous'< Brs/> = 11
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 12
Wahl = 'Kastenwahl des retrieve'< Brs/> = 13
Wahl = 'Kastenwahl des skip'< Brs/> = 14
Wahl = „Kastenwahl des tally'< Brs/> = 15
Wahl = „zoom'< Br/> endcase

entaktivieren Fenster MAINTMNU
return option

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

function mntmnuf
parameter KeyF_no

case
Fall KeyF_no = 2
KeyF2 = tun. T.

Fall KeyF_no = 5
KeyF5 =. T.

Fall KeyF_no = 8
KeyF8 =. T.

Fall KeyF_no = 9
KeyF9 =. T.

Fall KeyF_no = 10
KeyF10 =. T.

Fall KeyF_no = 11
KeyF11 =. T.

endcase

s_FkeyRec = recno ()
s_prgname = private prog_name
Tastatur chr (113) plain

return
L
function maintmnu2
VARIABLES
das private choice
alle wie prompt*
Wahl = 0
prompt1 =“ Modi „
prompt2 =“ verlassen „
prompt3 =“ Del „
prompt4 =“ Filt „

, wenn ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12), = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF "))
prompt5 =“ Primär„
prompt6 =“ Sekundär„
* endif

* WINDOWS
definieren Fenster MAINTMNU von 22.0 bis 24.79;
Titel“ Wartung beherrscht Menü (lautes Summen)“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
AUF SCHLÜSSELaufkleber Alt+F12 SUSPEND
aktivieren Fenster MAINTMNU noshow
* 1 2 3 4 5 6
@ 0, sagen 1 'Del Filt Primary Secondary'< Br/>
Modiquit, wenn ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12), = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF "))
* 1 2 3
* 123456789012345678901234567890123456
@ 0, sagen 1 'Del Filt Primary Secondary'< Br/> * Aufforderung Modiquit: 1 2 3 4 5 6
endif
L
auf Schlüsselaufkleber F2 tun mntmnuf22
auf Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER HELP

, wenn ((recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12), = „CRITDOGS.DBF ") .or. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF ")) auf Schlüsselaufkleber PgDn tun DispSecn
auf Schlüsselaufkleber PgUp tun DispPrim
endif

aktivieren Fenster MAINTMNU
@ 0, 1-1 sofortiges prompt1
@ 0, 6-1 sofortiges prompt2
@ 0.11-1 sofortiges prompt3
@ 0.15-1 sofortiges prompt4

, wenn (recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12), = „CRITDOGS.DBF ") .or. ;
berichtigen (System (16.2), 12) = „CRITTERS.FXP“ .and nach rechts (dbf (), 12) = „CRITCATS.DBF "))
@ 0.20-1 sofortiges prompt5
@ 0.28-1, das sofortiges prompt6
endif

Menü zum choice

case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 1
Wahl = 'Kastenwahl des modify'< Brs/> = 2
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 3
Wahl = 'Kastenwahl des delete'< Brs/> = 4
definieren Fenster fil_wndw von 1.50 bis doppelten Entwurf der Farbe 6.77 tun 12
aktivieren Fenster fil_wndw
Überschrift = 'Filter'< Br/> @ 1.00 sagen, Raum (13-len (Überschrift) /2) + header
@ 3.04 sagen, dass ' '< Br/> @ 3.05 Menü des Brs/> Cancel'< Aufforderung 3.16 des Aufforderung 'Set'< Brs/> @ 'zum fil_opt

, wenn fil_opt = 1
Wahl = 'filter'< Br/> endif

einstellen, wenn fil_opt = 2
Wahl = 'Löschen filter'< Br/> endif

Freigabefenster fil_wndw
Falwahl = 5
Wahl = „primary'< Br/> DispPrim

Falwahl = 6
Wahl = „tun, secondary'< Br/> DispSecn
endcase

entaktivieren Fenster tun MAINTMNU

, wenn (recht (System (16.2), 12) = „CRITTERS.FXP“ .and (dbf (), 12) = „CRITDOGS.DBF ") .or berichtigen. ;
(recht (System (16.2), 12) = „CRITTERS.FXP“ .and berichtigen (dbf (), 12) = „CRITCATS.DBF ")
auf Schlüsselaufkleber PgDn
auf Schlüsselaufkleber PgUp
endif

return option

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

function mntmnuf22

KeyF2 =. T.
s_prgname = private prog_name
Tastatur chr (113) plain

return
L
function maintmnu3
VARIABLES
das private choice
alle wie prompt*
Wahl = 4
prompt1 =“ bitten „
prompt2 =“ Ende „
prompt3 =“ Filt „
Prompt4 =“ gehen „
prompt5 =“ Liste „
prompt6 =“ zunächst „
prompt7 =“ Prev „
prompt8 =“ geverlassenes „
prompt9 =“ rösten „
prompt10 =“ Zeilensprung „
prompt11 =“ Tally „
prompt12 =“ < „
prompt13 =“ > „

* WINDOWS
definieren Fenster MAINTMNU von 22.0 bis 24.79;
Titel“ Report beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
aktivieren Fenster MAINTMNU noshow
* 1 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, sagen 1, dass 'Ende Filt bitten gehen Liste, die folgendes beendigtes Prev Zeilensprung-Tally < > '
L
auf Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER rösten, HELP

Fenster MAINTMNU
@ 0 aktivieren, 1-1 sofortiges prompt1
@ 0, 5-1 sofortiges prompt2
@ 0, 9-1 sofortiges prompt3
@ 0.14-1 sofortiges prompt4
@ 0.17-1 sofortiges prompt5
@ 0.22-1 sofortiges prompt6
@ 0.27-1 sofortiges prompt7
@ 0.32-1 sofortiges prompt8
@ 0.37-1 sofortige prompt9
@ 0.41-1 sofortiges prompt10
@ 0.46-1 sofortiges prompt11
@ 0.52-1 sofortiges prompt12
@ 0.54-1, welches das sofortige prompt13
Menü zum choice

case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 1
Wahl = 'begin'< Br/> Falwahl = 2
Wahl = 'Kastenwahl des end'< Brs/> = 3
tun, definieren Fenster fil_wndw von 1.50 bis 6.77 doppelter Farbenentwurf 12
Fenster fil_wndw
Überschrift = 'Filter'< Br/> @ 1.00 sagen aktivieren, dass Raum (13-len (Überschrift) /2) + header
@ 3.04 sagen 'Aufforderung 3.05 des '< Brs/> @ 'Aufforderung 3.16 'Menü des Set'< Brs/> @ des Cancel'< Brs/> zum fil_opt

, wenn fil_opt = 1
Wahl = 'filter'< Br/> endif

wenn fil_opt = 2
Wahl = 'Löschen filter'< Br/> endif

Freigabefenster fil_wndw

Falwahl = 4
einstellen, wenn recht (System (16.3), 11) = 'Wahl des P_CONTR.FXP'< Brs/> = 'printer'< Br/> zum else
out_dev && 11/27/93
endif

Falwahl = 5
Wahl = 'Kastenwahl des list'< Brs/> = 6
Wahl = 'Kastenwahl des next'< Brs/> = 7
Wahl = 'previous'< Br tun /> Falwahl = 8
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 9
Wahl = 'Kastenwahl des retrieve'< Brs/> = 10
Wahl = 'Kastenwahl des skip'< Brs/> = 11
Wahl = 'Kastenwahl des tally'< Brs/> = 12
Wahl = 'von der Kastenwahl des record'< Brs/> = 13
Wahl = „record'< Br/> zum endcase

entaktivieren Fenster MAINTMNU
return option
L
function maintmnu4
10/19 - addierte „menu4“, zum zu erlauben „gehen“ (Druck) von einem maintnenace window.
* dieses Arbeiten die selben, die das Druck-Menü Befehl „gehen“. Private

* VARIABLES
das private choice
alle wie prompt*
Wahl = 0
prompt1 =“ addieren „
prompt2 =“ bitten „
prompt3 =“ Kopie „
prompt4 =“ Del „
prompt5 =“ Ende „
prompt6 =“ Filt „
prompt7 =“ gehen „
prompt8 =“ Liste „
prompt9 =“ Modi „
prompt10 =“ zunächst „
prompt11 =“ Prev „
prompt12 =“ geverlassenes „
prompt13 =“ rösten „
* neues auserwähltes Command
, wenn recht (System (16.2), 12) = „CRITTERS.FXP“ berichtigen .or (System (16.3), 8) = „USDA.FXP'< Br/> prompt14 =“ Sele „
else
prompt14 =“ Zeilensprung „
endif
prompt15 =“ Tally „
prompt16 =“ lautes Summen „

* WINDOWS
definieren Fenster MAINTMNU von 95.0 bis 105.190;
Titel“ Wartung beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2;
GUSS „fettes Arial“, 19

* SCREEN
AUF SCHLÜSSELaufkleber Alt+F12 SUSPEND
aktivieren Fenster MAINTMNU

* kommentierte für VFP
WENN. F.
, wenn recht (System (16.2), 12) = 'CRITTERS.FXP'< Br/>* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, sagen 1, 'hinzufügen, bitten Copy Del End Filt gehen Liste Modi, das folgendes beendigtes Prev Sele Tally Zoom'< Br/> else
@ 0 rösten, 1 sagen, dass 'hinzufügen bitten Copy Del End Filt gehen Liste Modi, folgendes beendigtes Prev Zeilensprung-Tally Zoom'< Br/> ENDIF
ENDIF
* kommentierte für VFP
L
, wenn .not rösten berichtigen (System (16.3), 11), = „ANIMALS.FXP "
auf Schlüsselaufkleber F1 tun mntmnuf4 mit 1
endif
, wenn .not (System (16.3), 8) = „BIDS.FXP "
auf Schlüsselaufkleber F2 mntmnuf4 mit 2
endif
, wenn .not berichtigen (System (16.3), 12) tun, = „CALENDAR.FXP "
auf Schlüsselaufkleber F3 tun mntmnuf4 mit 3
endif
, wenn .not berichtigen (System (16.3), 12), = „CONTRACT.FXP "
auf Schlüsselaufkleber F4 tun mntmnuf4 mit 4
endif
, wenn .not berichtigen berichtigen (System (16.3), 12), = „CRITTERS.FXP "
auf Schlüsselaufkleber F5 tun mntmnuf4 mit 5
endif
wenn .not. berichtigen (System (16.3), 11) = „INVOICE.FXP "
auf Schlüsselaufkleber F6 tun mntmnuf4 mit 6
endif
auf Schlüsselaufkleber F7 tun genhlp mit Programm () && BENUTZER, den, HELP
auf Schlüsselaufkleber F8 mntmnuf4 mit 8
, wenn .not berichtigen (System (16.3), 10) = „PRICES.FXP "
auf Schlüsselaufkleber F9 tun mntmnuf4 mit 9
endif
auf Schlüsselaufkleber F10 tun mntmnuf4 mit 10
auf Schlüsselaufkleber F11 tun mntmnuf4 mit 11

aktivieren Fenster MAINTMNU

tun DispMenu
s_choice = mChoice
Wahl = mChoice

kommentierte für VFP
WENN tun. F.
@ 0, 1-1 sofortiges prompt1
@ 0, 5-1 sofortiges prompt2
@ 0, 9-1 sofortiges prompt3
@ 0.14-1 sofortiges prompt4
@ 0.18-1 sofortiges prompt5
@ 0.22-1 sofortiges prompt6
@ 0.27-1 sofortiges prompt7
@ 0.30-1 sofortiges prompt8
@ 0.35-1 sofortiges prompt9
@ 0.40-1 sofortiges prompt10
@ 0.45-1 sofortiges prompt11
@ 0.50-1 sofortiges prompt12
@ 0.55-1 sofortiges prompt13
@ 0.59-1 sofortiges prompt14
@ 0.64-1 sofortiges prompt15
@ 0.70-1, welches das sofortige prompt16
Menü zum choice
ENDIF
* für VFP

kommentierte, tun case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 1
Wahl = 'Kastenwahl des add'< Brs/> = 2
Wahl = 'Kastenwahl des begin'< Brs/> = 3
Wahl = 'Kastenwahl des copy'< Brs/> = 4
Wahl = 'Kastenwahl des delete'< Brs/> = 5
Wahl = 'Kastenwahl des end'< Brs/> = 6
definieren Fenster fil_wndw von 1.50 bis 6.77, die doppelter Farbenentwurf 12
Fenster fil_wndw
Überschrift = 'Filter'< Br/> @ 1.00 sagen aktivieren, dass Raum (13-len (Überschrift) /2) + header
@ 3.04 sagen ' '< Br/> @ 3.05 Menü des Brs/> Cancel'< Aufforderung 3.16 des Aufforderung 'Set'< Brs/> @ 'zum fil_opt

wenn fil_opt = 1
Wahl = 'einstellten filter'< Br/> endif

wenn fil_opt = 2
Wahl = 'Löschen filter'< Br/> endif

Freigabefenster fil_wndw

Falwahl = 7
Wahl = 'Kastenwahl des go'< Brs/> = 8
Wahl = 'Kastenwahl des list'< Brs/> = 9
Wahl = 'Kastenwahl des modify'< Brs/> = 10
Wahl = 'Kastenwahl des next'< Brs/> = 11
Wahl = 'Kastenwahl des previous'< Brs/> = 12
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/> = 13
Wahl = 'Kastenwahl des retrieve'< Brs/> = 14
Wahl = 'Kastenwahl des skip'< Brs/> = 15
Wahl = „Kastenwahl des tally'< Brs/> = 16
Wahl = „zoom'< Br/> endcase

deac Wind MAINTMNU
rele Wind MAINTMNU

deac Wind MAINTMNU4
rele Wind MAINTMNU4

rele Protokoll wie prompt*
return option
L
hinzufügte für VFP
procedure DispMenu
ALLGEMEINES mCHOICE, mGET, cCHOICE, cCHOICES
SPEICHER 0 zum mCHOICE, mGET
SPEICHER "" zum cCHOICE, cCHOICES
* nCOL = RUNDES (WCOLS () /2.0) - 19

* hinzufügen bitten Copy Del End Filt gehen Liste Modi, das folgendes beendigtes Prev Zeilensprung-Tally Zoom'< Br/>
nPad rösten = 3
ERHALTEN nROW = 0
* 1
nCOL = 0
MIT nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
ERHALTEN MIT nROW, nCOL, „\ nCOL = nCol + 3 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL, „\ * 5
nCOL = nCol + 3 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
ERHALTEN MIT nROW, nCOL, „\ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 2 + nPad
ERHALTEN MIT nROW, nCOL, „\ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL,“ \ * 10
nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL, „\ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL, „\ nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 3 + nPad
ERHALTEN MIT nROW, nCOL, „\ * 15
nCOL = nCol + 4 + nPad
ERHALTEN MIT nROW, nCOL,“ \ nCOL = nCol + 5 + nPad
ERHALTEN MIT nROW, nCOL, „\
* hinzufügen bitten Copy Del End Filt gehen Liste Modi folgendes Prev Beendigt Zeilensprung-Tally Zoom'< Br/>
cCHOICES = cCHOICES rösten + „12Q "
cCHOICE = fnCHOICE (cCHOICES, „Q“)

FUNCTION fnCUROBJ
PARAMETERS mCHOICE
mCHOICE = _CUROBJ
RETURN. T.

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

@ nROW, nCOL ERHALTEN mGET FUNKTION „* „+IIF (bSKIP,“ \ \ „, "") +cFUNC;
ERHALTEN GÜLTIGES fnCUROBJ (@mCHOICE)

* @ nROW, nCOL mGET FUNKTION „* „+IIF (bSKIP,“ \ \ „, "") +cFUNC;
GÜLTIGE fnCUROBJ (@mCHOICE)
* RÜCKSTELLUNG 1 GRÖSSE 1, GÜLTIGE fnCUROBJ nSIZE2 (@mCHOICE)
* Anmerkung: nSIZE2 verwendet kein anderes place.
RETURN

FUNCTION fnCHOICE
PARAMETERS cCHOICES, cDEF
LAS ZYKLUS-GEGENSTAND mCHOICE
mCHOICE = IIF (LASTKEY () =27, AN (cDEF, cCHOICES), mCHOICE)
RETURN IIF (mCHOICE > 0, SUBSTR (cCHOICES, mCHOICE, 1), "")

* das Ende - hinzugefügt für VFP

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

function mntmnuf4
parameter KeyF_no

* suspend

case
Fall KeyF_no = 1
tun KeyF1 =. T.

Fall KeyF_no = 2
KeyF2 =. T.

Fall KeyF_no = 3
KeyF3 =. T.

Fall KeyF_no = 4
KeyF4 =. T.

Fall KeyF_no = 5
KeyF5 =. T.

Fall KeyF_no = 6
KeyF6 =. T.

Fall KeyF_no = 8
KeyF8 =. T.

Fall KeyF_no = 9
KeyF9 =. T.

Fall KeyF_no = 10
KeyF10 =. T.

Fall KeyF_no = 11
KeyF11 =. T.

endcase

s_FkeyRec = recno ()
s_prgname = prog_name

, wenn prog_name = „ZAHLBAR“ und alias () = „PAYDETL "
s_FkeyPag = 2
auserwähltes payable
s_FkyMRec = private recno ()
endif

Tastatur chr (113) plain

return
L
function maintmnu5
VARIABLES
das private choice
alle wie prompt*
Wahl = 0
prompt1 =“ geverlassenes „
prompt2 =“ Modi „

* WINDOWS
Fenster MAINTMNU von 22.0 bis 24.79 definieren;
Titel“ Wartung beherrscht Menü“;
Doppeltherbewegungsschatten-Farbenentwurf 2

* SCREEN
AUF SCHLÜSSELaufkleber Alt+F12 SUSPEND
aktivieren Fenster MAINTMNU noshow
* 1 2
@ 0, sagen 1, dass 'geverlassenes Modi'< Br/>L
auf Schlüsselaufkleber F7 genhlp mit Programm () && BENUTZER tun, den HELP

Fenster MAINTMNU
@ 0 aktivieren, 1-1 sofortiges prompt1
@ 0, 6-1 sofortiges prompt2
Menü zum choice

case
Falwahl = 0
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/>
= 1
Freigabefenster MAINTMNU
Wahl = 'Kastenwahl des quit'< Brs/>
= 2
Wahl = 'modify'< Br tun />
endcase

entaktivieren Fenster MAINTMNU

return option
L
function out_dev
definieren Fenster fil_wndw von 1.40 bis 6.77, die doppelter Farbenentwurf 12
Fenster fil_wndw
Überschrift = 'Print'< Br/> @ 1.00 sagen aktivieren, dass Raum (19-len (Überschrift) /2) + header
@ 3.04 sagen 'Br/> Screen'< Aufforderung 3.05 des '< Brs/> @ '@ 3.16 Menü des Brs/>
File'< Aufforderung 3.26 des Aufforderung 'Laser'< Brs/> @ 'zum fil_opt

wenn fil_opt = 1
Wahl = 'screen'< Br/> zum endif

wenn fil_opt = 2
Wahl = 'laser'< Br/> zum endif

wenn fil_opt = 3
Wahl = 'zu file'< Br/> endif

Freigabefenster fil_wndw
return ''
L
function restenv
für i=1 no_pages
zum i_str = zum str (i, 1)

, wenn wexist ('usr_wndw'+ i_str)
Freigabefenster usr_wndw&i_str
endif
endfor

, wenn wexist („maintmnu ")
Freigabefenster maintmnu
endif

acti screen
@ 0.62 Raum (7)
@ 0.70 sagen Raum (9)

Erscheinenfenster all
nahes databases
return ''
all
usr_wndw
restenvr
function/>L
return ''
L
function save_rec

akl: Zuerst die Rechtschreibung des Rekord3/19/96 1:55 am
überprüfen, wenn prog_name = .or prog_name = „VERTRAG“ .or „BIETET“. ;
prog_name = „RECHNUNG“ .or prog_name = „SUBRENT“ .or. ; mit
prog_name = „ABBILDET“ .or prog_name = „HELTHCRT "
tun SpellChk mit „Rec“ && & (Rec) Aufzeichnung, oder Feld (Fld)

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA“ .t. „
, getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

endif

, wenn bestätigen („außer Rekord")
blank
r, wenn recht (System (16.3), 12) tun, = „CONTRACT.FXP "
anfügen sele 2
blank
sele 3
anfügen blank
sele 1
endif
= rlock ()
akl: DHR - Am
12:37 des Feldes USDA.NAME 7/23/96, wenn prog_name = „DHR "
usda = usda.usda
endif

Versammlung memvar memo
, wenn recht (System (16.3), 12) = „CONTRACT.FXP "
sele 2
Versammlung memvar
sele 3
Versammlung memvar
sele 1
endif
unlock
das filter
zurückstellen, wenn .not leeren (Filter ())
* Überprüfen ob Aufzeichnungsgleiche filter
record_no = recno ()
skip
Zeilensprung -1
, wenn recno () <> record_no && kein match
= _begin ()
, wenn &at_eof && filter
gesetztes Filter to
entfernen, record_no
endif
endif
endif
gehen, welches das Rückhol.t.
endif
return .f.
L
procedure sav_wind &&, das mit F10 durch gen_hlp
Parameter w_name
verbunden, Braue durch wlrow (w_name) ersetzen, bcol mit wlcol (w_name);
erow mit wlrow (w_name) + wrows (w_name) + 1;
ecol mit wlcol (w_name) + wcols (w_name) + 1
Tastatur chr (23) && Ctrl-w, zum des Fensters mit save
return
L
function set_bndry
herauszunehmen * gesetzter boundaries
Zeilensprung -1
, wenn BOF ()
top_mark = 0
else
top_mark = recno ()
Zeilensprung 1
endif
Zeilensprung 1
, wenn EOF ()
bot_mark = -1
else
() -1
endif

return ''
L
function stp_prnt
auf escape
zoom_no = 1
zoom_num = '1 '
brk_no = 1
brk_num = '1 '
vorwählen 1
done_cond = '&ndx_exp>last_val.or.eof () '
return _print
L
function val_fil
parameters zum n_vald_fld, ref_fld, vald_alias, getpos, fld_size

vald_fld = &n_vald_fld

if .f.
gesetztes Ansicht off
acti screen
clear
für i = 1 zu 25
?
next

?
? „Parameter: „
? „n_vald_fld > " +n_vald_fld+ " < "
? „vald_fld > " +vald_fld+ " < "
? „ref_fld = „+ref_fld
? „vald_alias = „+vald_alias
? „getpos = „
?? getpos
? „fld_size = „
?? fld_size
endif

privates at_eof, at_bof, record_no
Satz melden off

is_valid = .f.
at_eof = 'EOF () '
at_bof = 'BOF () '

save_alias = alias ()
empty_field =. F.

auserwähltes &vald_alias

tun case
Fallart („vald_fld“) = 'D'< Br/> srch_str = str (Jahr (m->vald_fld), 4) + str (Monat (vald_fld), 2)+str (Tag (vald_fld), 2)

Fallart („vald_fld“) = 'N'< Br/> srch_str = str (vald_fld, fld_size),
wenn vald_fld = 0
empty_field =. T.
endif

otherwise
srch_str = vald_fld
, wenn len (Ordnung (vald_fld)) = 0
empty_field =. T.
endif
endcase

, wenn Art („vald_fld“) = 'N'< Br/> für &ref_fld = val (srch_str)
else
Suchvorgang srch_str

if .f.
finden?
? „Suchend > " +srch_str+ " < "
wenn gefundenes ()
? „Gefundenes "
else
? „NICHT gefundenes "
endif
endif

endif

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

wenn .not EOF () && found
is_valid = .t.
else
wenn empty_field
, wenn recht (System (16.3), 12) = „CRITTERS.FXP "
is_valid = .f.
else
is_valid = .t.
endif
else
gesetzte nahe on
Suchvorgang srch_str
gesetzte nahe off
leftpos = iif (getpos > 40.4.43)

Fenster brws_wndw von 6 definieren, leftpos bis 15, leftpos+30;
Systems-Summenhin- und herbewegung wachsen nahen Schattenfarbenentwurf 10

auf Schlüsselaufkleber EINTRAGEN Tastatur chr (23)

aktivieren Fenster brws_wndw noshow
grasen letztes noappend nomodify nodelete Fenster brws_wndw
Freigabefenster brws_wndw

if .f.
gesetztes Ansicht off
acti screen
clear
für i = 1 zu 25
?
next

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

case
Fallart („ref_fld“) = 'C'< Br/>if .f.
?
? „Feld ist BUCHSTABE "
? „Art (ref_fld) = > " +type (ref_fld) + " < "
? „ref_fld = > " +ref_fld+ " < "
? „&ref_fld = > " +&ref_fld+ " < "

auf Schlüsselaufkleber ENTER
* suspend
endif

* Tastatur &ref_fld

tun case
Fall n_vald_fld = „m->name "
Name = &ref_fld
Erscheinen gets
is_valid = .t.
Fall n_vald_fld = „m->anml_name "
anml_name = &ref_fld
Erscheinen gets
is_valid = .t.
Fall n_vald_fld = „m->crit_name "
crit_name = &ref_fld
Erscheinen gets
is_valid = .t.
Fall n_vald_fld = „m->job_no "
job_no = &ref_fld
Erscheinen gets
is_valid = .t.
Fall n_vald_fld = „m->map_no "
map_no = &ref_fld
Erscheinen gets
is_valid = .t.
endcase

Fallart (ref_fld) = 'dtoc Tastatur des D'< Brs/> (&ref_fld)

Fallart (ref_fld) = 'ltrim Tastatur des N'< Brs/> (str (&ref_fld))
endcase

auf Schlüsselaufkleber EINTRAGEN && wieder zuweist ursprüngliches value
endif
endif

if .f.
es?
? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "
? „is_valid= "
?? is_valid
endif

melden auserwählter &save_alias
Satz off

return is_valid
L
function orig_val_fil
parameters vald_fld, ref_fld, vald_alias, getpos, fld_size

set Ansicht off
acti screen
clear
for I = 1 zu 25
?
next

?
? „Parameter: „
? „vald_fld > " +vald_fld+ " < "
? „ref_fld = „+ref_fld
? „vald_alias = „+vald_alias
? „getpos = „
?? getpos
? „fld_size = „
?? fld_size

privates at_eof, at_bof, record_no
Satz melden off

is_valid = .f.
at_eof = 'EOF () '
at_bof = 'BOF () '

save_alias = alias ()
empty_field =. F.

auserwähltes &vald_alias

tun case
Fallart („vald_fld“) = 'D'< Br/> srch_str = str (Jahr (m->vald_fld), 4) + str (Monat (vald_fld), 2)+str (Tag (vald_fld), 2)

Fallart („vald_fld“) = 'N'< Br/> srch_str = str (vald_fld, fld_size),
wenn vald_fld = 0
empty_field =. T.
endif

otherwise
srch_str = vald_fld
, wenn len (Ordnung (vald_fld)) = 0
empty_field =. T.
endif
endcase

, wenn Art („vald_fld“) = 'N'< Br/> für &ref_fld = val (srch_str)
else
Suchvorgang srch_str

finden?
? „Suchend > " fanden +srch_str+ " < "
if ()
? „Gefundenes "
else
? „NICHT gefundenes "
endif

endif

?
? „EOF () = „
?? EOF ()

wenn .not EOF () && found
is_valid = .t.
else
wenn empty_field
, wenn recht (System (16.3), 12) = „CRITTERS.FXP "
is_valid = .f.
else
is_valid = .t.
endif
else
gesetzte nahe on
Suchvorgang srch_str
gesetzte nahe off
leftpos = iif (getpos > 40.4.43)

Fenster brws_wndw von 6 definieren, leftpos bis 15, leftpos+30;
Systems-Summenhin- und herbewegung wachsen nahen Schattenfarbenentwurf 10

auf Schlüsselaufkleber EINTRAGEN Tastatur chr (23)

aktivieren Fenster brws_wndw noshow
grasen letztes noappend nomodify nodelete Fenster brws_wndw
Freigabefenster brws_wndw

if .f.
gesetztes Ansicht off
acti screen
clear
für i = 1 zu 25
?
next

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

?
wenn chrsaw ()
? „Tastaturpuffer ist NICHT leeres "
else
? „Tastaturpuffer ist leeres "
endif

endif

tun case
Fallart (ref_fld) = 'C'< Br/>?
? „Feld ist BUCHSTABE "
? „Art (ref_fld) = > " +type (ref_fld) + " < "
? „ref_fld = > " +ref_fld+ " < "
? „&ref_fld = > " +&ref_fld+ " < "

Tastatur &ref_fld && plain

Fallart (ref_fld) = 'dtoc Tastatur des D'< Brs/> (&ref_fld)

Fallart (ref_fld) = 'ltrim Tastatur des N'< Brs/> (str (&ref_fld))
endcase

is_valid = .t.

auf Schlüsselaufkleber EINTRAGEN && wieder zuweist ursprüngliches value
endif
endif

if .f.
es?
wenn chrsaw ()
? „Tastaturpuffer ist NICHT leer. „
? “ Puffer enthält: > "
?? 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
? „Tastaturpuffer ist leeres "
endif
endif

?
? „> " +type (ref_fld) + " < "
? „> " +ref_fld+ " < "
? „> " +&ref_fld+ " < "
? „is_valid= "
?? is_valid
* suspend
endif

melden auserwählter &save_alias
Satz off

return is_valid
L
function var_get
Parameter getcond, verursacht fld_usg

* linker Pfeil Check
* diese Funktion, weil Donna den linken Pfeil Key
schlagen * und den Cursor zum letzten Feld des vorhergehenden Schirmes gehen lassen wollte. Am this
* es gegründet für Verträge. 10/05/99 10:19 am

, wenn recht (System (16.2), 12) = „CONTRACT.FXP "
wenn page_no = 1
wenn LArrow =. T.
LArrow =. F.
NewOnum = 28
_curobj = NewOnum
endif
endif
endif

akl=.F.

, wenn recht (System (16.2), 11) = „INVOICE.FXP“ .and (System (16.7), 12) = „FS_SPELL.FXP "
akl=.T.
aktivieren Fenster spell_win
endif

return &getcond
L
function x_zoom
zoom_num = str berichtigen (zoom_no, 1)
at_bof = at_bof&zoom_num
at_eof = das at_eof&zoom_num
ndx_var = ndx_var&zoom_num
first_page = val (substr (page_seq&zoom_num, 1.1))
last_page = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)),

wenn eine neue Seite, neues screen
anzeigen, wenn first_page <> page_no
page_no = first_page
disscr
redisp_fld = .t.
endif

tun * auserwählter neuer Summenbereich, einstellte neue Oberseite ch und Unterseite marks
vorwählen &zoom_num
record_no = recno ()

wenn zoom_no = 1 .or reccount () = 0
top_mark = 0
bot_mark = das lnk_var -1
else
= lnk_var&zoom_num
Suchvorgang &lnk_var
wenn .not BOF ()
Zeilensprung -1
endif
wenn BOF nn()
top_mark = 0
else
top_mark = recno ()
endif
, wenn .not EOF ()
skip
endif
bot_mark = im funcion _end
endif zoom_no = 1
return '' im

function y2kfix1
parameter FieldName

* Syntax benennend: gültiges y2kfix1 (System (18))

MoValu = str (Monat (m.&FieldName), 2, 0)
DyValu = str (Tag (m.&FieldName), 2.0)
YrValu = str (Jahr (m.&FieldName), 4,0)

YrRHT = recht (YrValu, 2)

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

YrValu = YrLFT+YrRHT

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

return. T.
*L
****************** *
* *
* der Rest dieser Bibliothek ist für die neuen Blätternfeldschirme mit *
* die Fähigkeit zum vom ersten Feld des gegenwärtigen Schirmes zum *
* zuletzt Feld des vorhergehenden Schirmes, angenommen, der gegenwärtige Schirm nicht der *
* erstes Schirm ist. In, welchem der Schlüssel ignoriert. Der Schlüssel *
* geändert worden in keiner Weise. Das In einer Liste verzeichnen - multi 2:07 morgens des Fensters 10/16/95 *
* redigieren addierte - von 10/29/95 2:10 morgens *
* *
****************** *

function _newadd
, wenn zoom_no = 1
bottom
endif
gehen, tun str_empty
tun default
= newadd_rec ()
return ''

=============================================================================

function _newcopy
= ()
return ''
L
function _newmodify
Abbruch = .f.

auf Schlüsselaufkleber PGUP tun NewPageUp
auf Schlüsselaufkleber PGDN tun NewPageDn

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

getcond =“ 'G'$ fld_usg "

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
, tun getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

read

s_lastkey = lastkey ()

* CLEANUP
auf Schlüsselaufkleber PGUP
auf Schlüsselaufkleber PGDN

gesetztem Mitteilung to
gesetztem Notfall weg vom && dieses musste innen gesetzt werden, weil der SET
&& Notfall WEG alleine nicht das message
wenn akl_test $ löschte 'tun gesetztes on
Notfall des Yy'< Brs/>, das gesetztes esca on
endif

, wenn s_lastkey = 27 && Esc
Abbruch = .t.
Rückkehr ''
endif

* Überprüfung auf duplicate
s_recno = recno ()
Suchvorgang &ndx_var

, wenn .not &at_eof .and .not allow_dup&zoom_num
= dismsg (chr (7) + „Duplikataufzeichnung nicht erlaubter ")
Abbruch = .t.
return
endif

Goto- s_recno

* Nachschlagenfelder und Berechnungs- variables
anzeigen lookup

tun, calcul mit .t.
, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .t. „
getfldB mit“ .t. „
else
tun getfld mit“ .t. „
endif

freiem gets

akl: Zuerst die Rechtschreibung des Rekord3/19/96 1:55 am
überprüfen, wenn prog_name = .or prog_name = „VERTRAG“ .or „BIETET“. ;
prog_name = „RECHNUNG“ .or prog_name = „SUBRENT“ .or. ;
prog_name = „ABBILDET“ .or prog_name = „HELTHCRT "

tun SpellChk mit „Rec“ && Aufzeichnung &, (Rec) oder Feld (Fld)

, wenn recht (System (16.3), 8) = „USDA.FXP "
tun getfldA mit“ .f. „
, tun getfldB mit“ .f. „
else
tun getfld mit“ .f. „
endif
endif

tun calcul mit .t.
wenn .not abort
, wenn bestätigen („außer Rekord")
save_rec =. T.
Versammlung memvar memo
, wenn recht (System (16.3), 12) = „CONTRACT.FXP "
endif
endif
1
memvar
3
memvar
2
/>return ''
L
function NewPageDn
s_lastkey = lastkey ()

case
Fall _curobj < 20
_curobj = 20

Fall _curobj = 20
_curobj = 21

Fall _curobj = 21
_curobj = 22

endcase
return

==========================================================================

function NewPageUp
s_lastkey = lastkey ()

tun, tun case
Fall _curobj = 20
_curobj = ERHALTEN 1

Fall _curobj = 21
_curobj = 20

Fall _curobj = 22
_curobj = das 21

endcase
return

L
function SpellChk
parameters CheckType
Überprüfung spelling

, zum der Rechtschreibung, ein Feld auf einmal zu überprüfen, gesetztes „GÜLTIGES SPELLCHK („Fld ") „
in das „@…“ statement.

gesetzte Taktgeber off

, wenn CheckType = „Fld“ && dieses ein Feld überprüft, da es exited.
FieldToCheck = VarRead ()
FieldText = m.&FieldToCheck

ist, wenn .not leeren (Ordnung (FieldText))
tun fs_modal mit. T.. F.
endif
endif

, wenn CheckType = „Rec“ && dieses ALLE Felder in einem screen.
bu_cancel = 0 && überprüft, wenn Benutzer cancles, FS_SPELL () es auf 1.
field_max = FCOUNT () && Zahl der Felder im gegenwärtigen record.

FÜR field_num = 1 AUF field_max && Schleife durch allen Schirm fields.
einstellen, WENN ART (FELD (field_num)) $ „Lux“ &&, wenn Protokoll oder Buchstabe field.
fld_name = FELD (field_num) && name.
des Feldes contents.

des fld_2check = m.&fld_name && Auszug-Feldes feststellen, WENN len (Ordnung (fld_2check)) > Buchstaben 1 && Notwendigkeit 2, zum von with.
zu bearbeiten * ÚÄÄÄÄLeave freier Raum, seit nur verwendet, um in Akte names.
zu überschreiten * ³ ÚÄÄÄÄPass in der Kopie des Protokolls, zum checked.
zu sein * ³ ³ ÚÄÄÄÄDon't Anschlag nach jedem memo.
* v V v
= FS_SPELL ("", @fld_2check. F.) && Anruf Foxspell Checker.
m.&fld_name = fld_2check
ENDIF

ENDIF

WENN bu_cancel = 1 &&, wenn der annullierte Benutzer, dann exit.
WARTEZEIT-FENSTER „Spellchecking beendigte! „
EXIT
ENDIF
NEXT

endif

s_sel = auserwähltes (0)

vorwählen WORDS1
use
auserwähltes WORDS2
use
auserwähltes WORDS3
use

auserwähltes (s_sel)

gesetztes Taktgeber on
return es. T.

* EOF GENLBR.PRG

Antwort : Fox9 - Haben eines Probleme, Farbe zu erhalten, um using zu arbeiten @… erhält und @… sagen

Verfahren sp_FinalDefCountList

erfordert a

NOCOUNT beim Anfang AN EINSTELLEN

wenn das @finalstring manchmal zurückgebracht werden muss, dann müssen Sie es als Ausgabeparameter aufstellen anstatt.

der Anfangsauslöser geschrieben sehr schlecht dadurch, dass er sorgt nicht für mehrfache Updates…

>>@CaseID EINSTELLEN = (auserwähltes tblLinkDefendantCounts.CaseID von den tblLinkDefendantCounts, EINGESETZT, WO tblLinkDefendantCounts.DefendantCountsID = INSERTED.DefendantCountsID)
>>EXEC sp_UpdateDefCaseCounts @CaseID

Notwendigkeiten, in einer Schleife verarbeitet zu werden.

Weitere Lösungen

Wort-Presse, die Frage bewirtet

asp.net: Mein Problem ist, benutze ich einen ajax Ergänzung Kalender, um BeginDate u. EndDate Werte einzutragen

Silverlight 4 UI Ereignisse

wie kann ich irgendeine Bildentschließung online ändern und sie zum lokalen PC dann innen sparen??

ZFS Sicherungshilfe Ubuntu 10.0.4 LTS

Form-Frage für Kristallreports

Betreffend INOTES in Lotos 8.5

Mühen, die ZWISCHEN Logik erhalten zu arbeiten

Spannungs-Sensor ermittelte einen Ausfall auf Bediener DELL-PowerEdge 2650

broadcom NIC teaming