Этому написало 20 год тому назад в FoxPro для DOS. Я в процессе модернизировать к Fox9. Можете вы пожалуйста помочь мне с получать, что VFP изменили цветы на меню? Woulf iий как детали выбора меню для того чтобы иметь по-разному цвет зависящ выбрано up/down стрелками. Другая проблема, котор я имею когда я отдыхаю стрелка на любом детале меню, все меню идет прочь. Я знаю I включило много Кодего здесь, но фактическое Кодий в пользе очень мало и легко к isolate.
Thank вы для быть там и помогать мне с моим стартом problem.
* главного Menu
* Environment
* добавленного для VFP
ЯСНО ALL
* прокомментировали для VFP9
* PARAMETER
* добавленного для VFP9
parm1_=. T.
parm2_=. НЕВЫПОЛНЕНИЕ ОБЯЗАТЕЛЬСТВА T.
УСТАНОВЛЕННОЕ К akl_test
OFF
ОТГОЛОСКА OFF
БЕСЕДЫ
c:\crit\CODE УСТАНОВЛЕННОМУ УСТАНОВЛЕННОМУ ОБЩЕСТВЕННОМУ ЕСЛИ ТИП («parm1_») = «br/> L'< akl_test = else
*
* «испытания "
akl_test = «y "
ELSE
akl_test = «n " akl_system akl_system
ENDIF
ENDIF
ОБЩЕСТВЕННОЕ = «y "
* если тип («parm2_») = «akl_system br/>* L'< = «n " «y "
ELSE
ЕСЛИ parm1_ = если parm2_ = akl_system
* «akl " = else
*
* «y " akl_system = ИНДИКАЦИЯ br/> Y'< «n " РАЗВИТИЕ FLAGS
endif
* endif
*
* ЕСЛИ akl_test $ «УСТАНОВЛЕННАЯ К ЧАСАМ Off
* ВЗГЛЯДА ON
* СОСТОЯНИЯ ON
ИЗБЕЖАНИЯ VGA50
УСТАНОВЛЕННЫМ УСТАНОВЛЕННЫМ УСТАНОВЛЕННЫМ УСТАНОВЛЕННЫМ К ЧАСАМ 48,69
ELSE
* УСТАНОВЛЕННЫМ К часам 24.69 поворотов для modi_memo VFP
ENDIF
* ENVIRONMENT
=. T.
НА КЛЮЧЕВОМ ЯРЛЫКЕ f12 ДЕЛАЮТ _popcal
НА КЛЮЧЕВОМ ЯРЛЫКЕ ctrl+f12 ДЕЛАЮТ rundos С
«COMMAND.COM " ЕСЛИ ПУСТОЕ (ДАЛЬШЕ («ключ», «ctrl+o "))
ДЕЛАЕТ ПРОЦЕДУРУ ПО fs_setup
ENDIF
УСТАНОВЛЕННУЮ К genlbr
= goodpass ВАРИАНТА = ''
ЯСНЫЕ WINDOWS
envrnmnt () =. F.
ДЕЛАЮТ COLORS
* все Кодий функциональной клавиши, котор извлекается. S_zoom_no SETTINGS
ФУНКЦИОНАЛЬНОЙ КЛАВИШИ = s_lastkey 0
= 0 && за исключением последнего ключевого s_prgname entered
= '' && за исключением имени программы using s_FkeyRec function
= 0 && за исключением s_FkeyPag Number
показателя функциональной клавиши = 0 && за исключением s_FkyMRec Number
страницы функциональной клавиши = 0 && сохраняют рекордное число FKey МАСТЕРСКОЕ. 1/10/97 &&
am 12:28 (akl) ---- Первому в ПОДЛЕЖАЩЕМ УПЛАТЕ когда F1 от listmenu Detail.
=. F. && сделало мы приходит от меню списка? utilmenu
=. F. && сделало мы приходит от меню Util?
KeyF1 =. Флаг && F. - от что-нибыдь к Animals
KeyF2 =. Флаг && F. - от что-нибыдь к Bids
KeyF3 =. Флаг && F. - от что-нибыдь к Calendar
KeyF4 =. Флаг && F. - от что-нибыдь к Contracts
KeyF5 =. Флаг && F. - от что-нибыдь к Critters
KeyF6 =. Флаг && F. - от что-нибыдь к Invoices
KeyF8 =. Флаг && F. - от что-нибыдь к Payables
KeyF9 =. Флаг && F. - от что-нибыдь к Prices
KeyF10 =. Флаг && F. - от что-нибыдь к продукции Companies
KeyF11 =. Флаг && F. - от что-нибыдь к Receivables
* прокомментировало для выбора VFP
* VARIABLES
= 0
prompt1 =» 1. животные «
prompt2 =» 2. заявкы «
prompt3 =» 3. календар «
prompt4 =» 4. подряда «
prompt5 =» 5. Critters «
prompt6 =» 6. фактуры «
prompt7 =» 7. ярлыка «
prompt8 =» 8. списка «
prompt9 =» 9. цены «
* prompt10 =» печать «
P. prompt10 =» Stats «
S. prompt11 =» общие назначения «
U. prompt12 =» помощь «
prompt13 =» прекратило «
* прокомментировало для VFP
* WINDOWS
* прокомментировало для VFP
* определяет crit окна от 2.2 до 22.75; название» меню
Critters главным образом»; цветовая схема 2 тени поплавка двойника
; КУПЕЛЬ «Arial
смелейшее», 25
*Added для VFP.
ОПРЕДЕЛЯЕТ crit ОКНА ОТ 2.2 ДО 90.170; НАЗВАНИЕ» меню
Critters главным образом «; Цветовая схема 2 ТЕНИ ПОПЛАВКА ДВОЙНИКА
; Br/> @ 0.34 Yy'< Arial смелейший», 25
* SCREEN
CLEAR
= взрывают
ACTIVATE SCREEN
(2.2.22.75.50.1) ЕСЛИ akl_test $ «КУПЕЛИ «
ГОВОРИТ, то «испытание на» else
* @ 0.70 ЦВЕТА w+/N
* говорит космос (9)
ENDIF
*L
* ОБРАБАТЫВАЯ LOOP
ДЕЛАЮТ ПОКА. T.
АКТИВИРУЮТ crit
ОКНА ДЕЛАЮТ s_choice disscr
= выбор mchoice
=
**
*, котор ********** ********** ********** ********** ********** ************************** mchoice
это будет tempoary программа для того чтобы искать дубликаты в специфически *
.DBF ЕСЛИ .NOT br/>* Yy'< akl_test $ «делает dup1chk
* делают
********** ********** ********** ********** ********** ************************** dup2chk
ENDIF
**
НА КЛЮЧЕВОМ ЯРЛЫКЕ f7 ДЕЛАЮТ genhlp С ПОТРЕБИТЕЛЕМ, то && ПРОГРАММЫ () HELP
ДЕЛАЕТ выбор СЛУЧАЯ CASE
= 0 crit
&& /> ЕСЛИ akl_test выбор СЛУЧАЯ
RETURN
ELSE
QUIT
ENDIF
$ «Yy " = 1 .AND. (АРХИВ («ANIMALS.PRG ").OR.FILE («ANIMALS.FXP "))
ДЕЛАЕТ животных С выбором СЛУЧАЯ
ПРОГРАММЫ () = 2 .AND. (АРХИВ («BIDS.PRG ").OR.FILE (wbr/> 'BIDS.FXP'<))
ДЕЛАЕТ заявкы С выбором СЛУЧАЯ
ПРОГРАММЫ () = 3 .AND. (АРХИВ («CALENDAR.PRG ").OR.FILE («CALENDAR.FXP "))
calendar С выбором СЛУЧАЯ
ПРОГРАММЫ () = 4 .AND. (АРХИВ («CONTRACT.PRG ").OR.FILE («CONTRACT.FXP "))
заключает контракт С выбором СЛУЧАЯ
ПРОГРАММЫ () = 5 .AND. (АРХИВ («CRITTERS.PRG ").OR.FILE («CRITTERS.FXP "))
ДЕЛАЕТ critters С выбором СЛУЧАЯ
ПРОГРАММЫ () = 6 .AND. (АРХИВ («INVOICE.PRG ").OR.FILE («INVOICE.FXP "))
выставляет счет С выбором СЛУЧАЯ
ПРОГРАММЫ () = 7 .AND. (АРХИВ («P_LABELS.PRG ").OR.FILE («P_LABELS.FXP "))
ДЕЛАЕТ p_labels С выбором СЛУЧАЯ
ПРОГРАММЫ () = 8 .AND. (АРХИВ («LISTS.PRG ").OR.FILE («LISTS.FXP "))
ДЕЛАЕТ выбор СЛУЧАЯ lists
= 9 .AND. (АРХИВ («PRICES.PRG ").OR.FILE («PRICES.FXP "))
ДЕЛАЕТ цены С выбором СЛУЧАЯ
* ПРОГРАММЫ () = 10 .and. (архив («PRINT.PRG ").or.file («PRINT.FXP "))
* ДЕЛАЕТ выбор СЛУЧАЯ print
= 10 .AND. (АРХИВ («STATS.PRG ").OR.FILE («STATS.FXP "))
ДЕЛАЕТ выбор СЛУЧАЯ stats
= 11 .AND. (АРХИВ («UTILS.PRG ").OR.FILE («UTILS.FXP "))
ДЕЛАЕТ выбор СЛУЧАЯ utils
= 12 .AND. (АРХИВ («CRITHELP.PRG ").OR.FILE («CRITHELP.FXP "))
ДЕЛАЕТ выбор СЛУЧАЯ crithelp
= 13
ЕСЛИ akl_test akl **********
SUSPEND
ELSE
QUIT
ENDIF
$ «Yy ":, то Добавленное choice=14 для F8 от заявк к 2/25/96 выборам подлежащему уплате СЛУЧАЯ am
2:08 = 14 .AND. (АРХИВ («PAYABLE.PRG ").OR.FILE («PAYABLE.FXP "))
ДЕЛАЕТ подлежащее уплате С akl **********
**********
ПРОГРАММЫ (): Добавленное choice=15 для F11 от заявк к Receivables 2/28/96 выборов СЛУЧАЯ am
10:53 = 15 .AND. (АРХИВ («RECEIVE.PRG ").OR.FILE («RECEIVE.FXP "))
СДЕЛАЙТЕ получить С ПРОГРАММА ()
**********
ENDCASE
ENDDO
RETURN
*L
PROCEDURE disscr
ОБЩЕСТВЕННО mchoice, mget, cchoice, cchoices
МАГАЗИН 0 К mchoice, "" МАГАЗИНА mget
К cchoice, nCOL cchoices
* = КРУГЛОЕ (WCOLS () /2.0) - 19
@ 1.34 ГОВОРИТ «2010 '
* ые ncol Column
= nrow 20
= 3
ПОЛУЧАЮТ С nrow, ncol,» [\ <1] - nrow
животных " = 4
ПОЛУЧАЮТ С nrow, ncol, «[\ <2] - заявкы " nrow
= 5
ПОЛУЧАЮТ С nrow, ncol,» [\ <3] - календар " nrow
= 6
ПОЛУЧАЕТ С nrow, ncol, «[\ <4] - подряды " nrow
= 7
ПОЛУЧАЕТ С nrow, ncol,» [\ <5] - Critters " nrow
= 8
ПОЛУЧАЮТ С nrow, ncol, «[\ <6] - ncol column
* фактур " правое = nrow 40
= 3
ПОЛУЧАЮТ С nrow, ncol,» [\ <7] - Nrow
ярлыков " = 4
ПОЛУЧАЮТ С nrow, ncol, «[\ <8] - nrow
списков " = 5
ПОЛУЧАЮТ С nrow, ncol,» [\ <9] - nrow
цен " = 6
ПОЛУЧАЮТ С nrow, ncol, «[\ Stats " = 7
ПОЛУЧАЮТ С nrow, ncol,» [\ общих назначений " = 8
ПОЛУЧАЮТ С nrow, ncol, «[\
* среднему = nrow 30
= 10
ПОЛУЧАЮТ С nrow, ncol,» [\ = cchoices + «12Q " cchoice
= mchoice mchoice
ПАРАМЕТРОВ fncurobj
RETURN
FUNCTION fnchoice (cchoices, «q») = ВОЗВРАЩЕНИЕ _CUROBJ
. Nrow ПАРАМЕТРОВ T.
ENDFUNC
PROCEDURE GET
, ncol, cfunc, bskip
nsize2 = LEN (STRTRAN (cfunc,» \ <")) + nrow 2
@, ncol ПОЛУЧАЮТ ФУНКЦИЮ «* «+IIF mget (bskip,» \ \ «, "") +cfunc; fnCUROBJ
ДЕЙСТВИТЕЛЬНОЕ (@mCHOICE); cchoices ПАРАМЕТРОВ fnchoice
цветовой схемы 1
/> RETURN
ENDPROC
FUNCTION, cdef
ПРОЧИТАЛИ mchoice mchoice
ПРЕДМЕТА ЦИКЛА =
ВОЗВРАЩЕННОЕ IIF IIF (LASTKEY () =27, НА (cdef, cchoices), mchoice) (mchoice > 0,
ENDFUNC
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* COLORS
1), "")/>origschem1 = «W+/B, W+/BG, GR+/B, GR+/B, R+/B, W+/GR, GR+/RB, N+/N, GR+/B, R+/B, + "
origschem2 = «BG/W, N/W, N/W, B/W, W/N, N/BG,W+/W, N+/N, B/W, W/N,
* 1 + " 2 3 4 5 6 7 8 9 10 ЦВЕТ 11
SET СХЕМЫ 1 К;
«W+/B, W+/r, w/B, W+/B, W+/B, r/w, GR+/RB, N+/N, GR+/B, R+/B, + " письма
* потребителя предпосылки (1)
* настольный компьютер (1)
* DeskTop ПОЛУЧАЕТ письма поля потребитель (2)
*, котор ПОЛУЧАЕТ названию потребителя пем (4)
* Active названия потребителя предпосылки (3)
* граници потребителя характера (3)
* граници потребителя предпосылки (2)
* поля активно название потребителя предпосылки (4)
* бездействующее название потребителя пем (5)
* бездействующее поле предпосылки (5)
* предпосылка (6)
* 1 пем отборного поля пем (6)
* (^A) отборная (^A) 2 3 4 5 6 7 8 9 10 ЦВЕТ 11
SET СХЕМЫ 2 К ; меню
*
«w/b, w/b, w/b, w+/b, W/N, w+/r, W+/W, N+/N, B/W, W/N, + " помечает буквами названия меню предпосылки (3)
* граници меню характеров (3)
* граници меню предпосылки (2)
* выбора меню пем (2)
* выбора меню предпосылки (1)
* пем меню (1)
* ПРОЦЕДУРЫ ПО ВООБЩЕ АРХИВА
* предпосылки (6)
*
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* GENLBR.Prg выбора меню пем (6)
* Active Slection меню предпосылки названия (4)
* бездействующего бездействующего бездействующие/>* активно (вообще архива): _add
GENLBR.PRG
function если zoom_no = 1
идут endif
, то bottom
делает str_empty
делает default
= () _begin
*L
function
return '' если top_mark = 0
идут else
top
идут endif
return, то skip
top_mark
'' _beginr
*L
function, котор идет to
*L
function top
return '' установленное/> = ndx_exp _canscop
*L
function
return fltrsta () '' to
*L
function установленное/> = ()/>return '' =
sys (14.1) идет last_rec bottom
=
recno () last_val = &ndx_exp
идет first_rec top
=
recno () first_val = &ndx_exp
= _delete
*L
function
return _disstat () '' _copy
*L
function/> = ()/>return '' если zoom_no < no_zooms
* все показатели детей? child_num
= str (zoom_no + 1, 1)
выбирает &child_num
lnk_var = &lnk_var
искати lnk_var&child_num
если &at_eof
= dismsg, то (endif
&zoom_num
endif
возвращения &zoom_num
chr (7) + «показатели подчиненного существуют») отборное '' отборное если подтвердите, то («")
Delete рекордное если право, то (sys (16.3), 9) = «rec_del br/> ADOPT.FXP'< =. Endif
T.
если право (sys (16.3), 12) = «br/> CONTRACT.FXP'< выбирает endif
, то delete
отборное 1
delete
отборное 2
3
если право, то (sys (16.3), 7) = && «DHR.FXP» отсутствие dhr_delete Flag
выставки = dhr_delete repl .t.
с && скипа endif
delete
else
reindex
m->dhr_delete
перемещает к следующему record
если &&, то &at_eof () если последний уничтоженный показатель, идет к началу database
= endif
, то
_begin () если &at_eof .and .not опорожняет, то (фильтр ())
* никакие показатели вышл в фильтр, извлекайте to
установленное/> = endif
_begin () если &at_eof
*, то последний показатель уничтоженный, () exp_N _disstat
*L
function/>
/>
= _quit/>return '' = максимально (len (first_val), len (filter ()))
определяет stat_wndw окна от 0.1 к 4,17+exp_N; цветовая схема 7
/> активирует stat_wndw
окна если .not опорожняют, то (фильтр ())
@ 0.0 говорит» фильтр является следующим: » + else
@ 0.0
фильтра () говорит» фильтр является следующим: endif
@ 1.0 br/> Off'< говорит» от показателя: » + first_val
@ 2.0 говорит» записать: '+ возвращение ")
поля памятки ожидания last_val
'' memo_field memo_field
is_edit
параметров _editmemo
*L
function stat_wndw
return окна отпуска
'' приватные = memo_fld&zoom_num
если пустое
= dismsg, то («не имеет endif
никакое '' определить memo_wndw окна от 12.30 до 18.73; название «ПАМЯТКА
(ESC к выходу или ctrl-W, котор нужно сохранить)»; поплавок системы
растет цветовая схема 11
если is_edit
дорабатывает else
memo_wndw
окна &memo_field памятки дорабатывает памятка _end
*
*L
function memo_wndw
endif
memo_wndw
return '' идет к
, то показателя последнего (последнее показателя ребенка если просигналено), то если >= 0
bot_mark идет else
, то скипа -1
bot_mark
если bot_mark = -1
идут else
bottom
* находите первое показатель вне range
для того чтобы размещать пока .t. для &at_eof
если
eof () *, то оно будут последним показателем в bot_mark database
= bot_mark else
-1
= endif
recno () скип _endr
*L
function endif
endif
-1
return '' идет параметры _list
*L
function
return '' ndx_exp _fromrcd
*L
function =
sys (14.1) если first_rec last_val
<= &ndx_exp =
recno () first_val = else
/> = endif
dismsg («первый показатель должен предшествовать последний показатель»)/> = ()/>return '' && dbf_desc
это командование будет необходимое because
на ключевом && ярлыка F7 делают && _nohelp помощей проблемы found.
SYS (18) установленных с извещения о &&
&& (_nohelp находится на этой странице) -->> никакую функциональную можно вызвать! &&
ни может .PRG
если право (sys (16.2), 12) = && «CRITTERS.FXP» никакое «РАСТЕТ»!! (11 час!)
определяет brws_wndw окна от 9.4 до 19.54; dbf_desc названия
; else
цветовой схемы 10
/> определяет brws_wndw окна от 9.4 до 19.65; dbf_desc названия
; поплавок сигнала системы
растет близкое endif
цветовой схемы 10
делает record_no list&zoom_num
= помощь brws_wndw
окна отпуска
recno () установленную на <<< &&--- ВСПОМНИТЕ! Извлекайте это statements.
на ключевом ярлыке F7 сделайте genhlp с (18) прекращени прекращение _modify
*L
function/>
return '' = akl ********** .f.
: Заявкы - Multi редактируйте am
2:07 окна 10/16/95 на ключевом ярлыке PGUP сделайте PageUp
на ключевом ярлыке PGDN сделайте
********** PageDn
если getcond modify_key
=» fld_usg " getcond «g» $ else
=» fld_usg .and .not «g» $. Endif
*
fld_usg «k» $ "--------- akl: Извлекли - не полюбил дорога, котор она работал 3/13/96 akl ********** pm
9:17: Добавлено для pm
* 8:42 вычисления 2/11/96 автоматического баланса если ((prog_name = псевдоним «ПОДЛЕЖАЩИЙ УПЛАТЕ» .and () = «PAYDETL») .or. ;
* (prog_name = «ПОЛУЧАЕТ» псевдоним .and () = «RECDETL»)) .and. ;
* (вариант = «экземпляр» вариант .or = «дорабатывает p_amount ")
* =
* ********** endif
0
*---------getcond
=» '
fld_usg G'$ " если право, то (sys (16.3), 8) = «USDA.FXP» .and. ;
выпрямляет (sys (16.8), 10)
<> «G_USDA.FXP " делает getfldA с read
getcond
если m->u_code_2 = «d» .or m->u_code_2 =
«c " делают getfldB с else
endif
read
getcond
делают getfld с akl ********** getcond
:, то Позволяет стрелку к UpArrow датировать поле 11/16/95 pm
4:17 если право, то (sys (16.3), 9) = s_lastkey endif
********** endif
read
else
cycle
/>
lastkey () * akl ********** CLEANUP
: Заявкы - Multi редактируйте am
2:07 окна 10/16/95 на ключевом ярлыке PgUp
на ключевом akl **********
********** PgDn
ярлыка: CRITTERS.PRG - Multi окно выслеживает pm
10:06 экрана 7/28/98 выходок если вариант = «дорабатывает» .and. ; prog_name
= «CRITTERS» .and. ; s_lastkey
(псевдонима () = псевдоним .or «CRITDOGS» () = «CRITCATS») = && s_lastky2 как раз в случае ctrl-W отжатый потребителем от первого screen
делают to
сообщения
********** endif
DogUpDn
установленное если .not. ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) * (akl) 4/10/99 pm
11:43 * добавленное если заявление для следующий условия:, то 2/M/F5/N/Z
* Экран данных стерт и экран потребителя будет activated.
* проблемой происходит ТОЛЬКО Горяч-Пользуясь ключом от заявк к Zoom.
собаки Critters * никакой потребитель, котор экран активирован потому что количество данных не приспособит на a
* экран потребителя. Так настольный компьютер использовано. (активируйте экран).
если .not. (sys (16.5) = «НА…» .and. ;
выпрямляет (sys (16.6), 8) = «BIDS.FXP» .and. ;
выпрямляет (dbf (), 12) = br/> Yy'< «CRITDOGS.DBF») stat
установленный с &&, котор это должно быть положено внутри потому что STAT && endif
endif
SET
самостоятельно не стер message
если akl_test $ 'если .not. ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) если .not. (sys (16.5) = «НА…» .and. ;
выпрямляет (sys (16.6), 8) = «BIDS.FXP» .and. ;
выпрямляет (dbf (), 12) = «CRITDOGS.DBF») endif
endif
endif
on
stat
установленное если s_lastkey = 27 прекращени прекращение Esc
&& = .t.
возвращения ''
/>
, то если modify_key
если chk_dupl () endif
'' endif
endif
делает lookup
, то делает calcul с .t.
если право, то (sys (16.3), 8) = «USDA.FXP» .and. ;
выпрямляет (sys (16.8), 10) 'akl **********
fld_usg G'$ " <> «G_USDA.FXP "
делает getfldA с» .t. «
делает getfldB с» .t. «else
делают getfld с» .t. «gets
endif
ясное если page_no < page_no page
экрана индикации && last_page следующее = page_no + 1
делают disscr
делают, то пока getcond last_page
<= page_no =»: Заявкы - Multi редактируйте s_lastkey am
* 2:07 окна 10/16/95 = '' && прокомментировал для F11 pm
PgUpKey 0:08 ключа 2/28/96 =. F.
PgDnKey =. F.
BTabKey =. F.
на ключевом ярлыке PGUP делают PageUp
на ключевом ярлыке PGDN делают PageDn
на ключевом ярлыке BACKTAB делают
********** TabBack
если право, то (sys (16.3), 8) =
«USDA.FXP " делает getfldA с getcond
делает getfldB с else
getcond
делает getfld с read
endif
getcond
если .not. (PgUpKey .or. PgDnKey .or. S_lastkey
BTabKey) = endif
lastkey () * akl ********** CLEANUP
: Заявкы - Multi редактируйте am
2:07 окна 10/16/95 на ключевом ярлыке PGUP
на ключевом ярлыке PGDN
на ключевом stat to
сообщения
********** BACKTAB
ярлыка установленном установленном с &&, котор это должно быть положено внутри потому что STAT && SET
самостоятельно не стер && message
он должен работать. Находите вне почему?
если akl_test endif
on
esca on
stat br/> Yy'< $ 'установленное установленное если s_lastkey = 27 прекращени прекращение Esc
&& = endif
exit
.t.
если s_lastkey = страница 18 && вверх по Key
, то если page_no > page_no 1
= page_no - 1
сделайте endif
endif
loop
disscr
если s_lastkey = страница вниз Key
, то 3 && если page_no last_page
page_no < = page_no + 1
делают endif
endif
loop
disscr
если s_lastkey = 15 && заднее Tab
если page_no > page_no 1
= page_no -, то 1
делают disscr
если page_no = 1
для I = 1 к chr клавиатуры 18
(endif
endif
endif
loop
next
9)
если тип («LArrow ") = «l» && видит подряды (akl) 10/05/99 am
, то 10:43 если page_no = page_no 2
= 1
делают endif
endif
loop
disscr
если page_no = first_page
*, то проверите для двойной (ключ вписанный только на первую страницу)
**
* *** ********** ********** ********** ********** ********** ************************** &ndx_var
искати
это ЕСЛИ заявление было изменено и дублировал потому что когда вы СИГНАЛИТ к базе данных *
* пустой, система всегда показывает «сообщение *
* ошибки дубликата рекордное» когда первый показатель вписан. Отделитесь ЕСЛИ заявления кажутся *
* для того чтобы зафиксировать эту проблему. Разница ЕСЛИ заявление только перед *
* «= dismsg…», то заявление. Они по-разному для каждого условия ZOOM_NO.
*** ********** ********** ********** ********** ********** ************************** *
*
* (akl) * используйте это ЕСЛИ заявление если zoom_no = 1
если zoom_no = 1
, то если prog_name = && выхода
«ПОДРЯДА " добавило потому что всегда получающ && when
сообщения ошибки в подряде и используемое ^W к выходу. Я сделал его дорога && this
потому что я знаю что я буду witing вариант окон && WINDOWS
программы. Это не будет бой && worth
в это время 3/08/2000 else
pm 2:09 (akl) если allow_dup&zoom_num
= dismsg, то (chr (7) + «прекращени прекращение ")
показателя дубликата позволенные = endif
endif
endif
exit
.t.
* используйте это ЕСЛИ заявление если zoom_no > 1
если zoom_no > 1
если .not. (
= dismsg (chr (7) + «позволенный показатель дубликата - 2 прекращени прекращение ")
(akl) = endif
endif
endif
exit
.t.
* покажите поля взгляда вверх и вычисленное variables
сделайте lookup
сделайте calcul с .t.
если право, то (sys (16.3), 8) =
«USDA.FXP " делает getfldA с
» .t. «делает getfldB с else
» .t. «делает getfld с gets
endif
» .t. «ясным если page_no < last_page
*, то покажите следующее page_no page
экрана = page_no + 1
делают enddo endif
exit
else
disscr
пока endif
last_page
<= page_no если .not. ((псевдоним () = псевдоним .or «PAYDETL» () = «RECDETL ") вариант .and = «дорабатывает ")
делает calcul с endif
.t.
* восстановите number
страницы если page_no > page_no all
ветра deact first_page
= first_page
делают disscr
, то если право, то (sys (16.3), 8) =
«USDA.FXP " делает getfldA с
» .f. «делает getfldB с else
» .f. «делает getfld с redisp_fld endif
» .f. «= endif
gets
.t.
ясным если akl ********** abort
.not:, то Проверите правописание рекордного 3/19/96 am
1:55 если prog_name = «ПРЕДЛАГАЕТ ЦЕНУ» prog_name .or = «ПОДРЯД» .or. ; prog_name
= prog_name .or «ФАКТУРЫ» = «SUBRENT» .or. ; prog_name
= «СОСТАВЛЯЕТ КАРТУ» prog_name .or = «HELTHCRT "
делает SpellChk с «Rec» показателем && (Rec) или
поля (Fld) если право, то (sys (16.3), 8) = «USDA.FXP "
делает getfldA с» .f. «
делает getfldB с» .f. «else
делает getfld с» .f. «
********** endif
endif
если подтвердите, то («за исключением рекордного save_rec ")
=. T.
если псевдоним () = псевдоним .or «CRITDOGS» () =
LastTKUpd «CRITCATS " =
даты () если псевдоним () = critters
«CRITDOGS " отборное заменяет ть LastTKupd с critdogs
@ 0.67, то m->LastTKupd
отборным говорит, то critters
else
dtoc (m.lasttkupd) отборное заменяет ть LastTKupd с critcats
@ 2.60 m->LastTKupd
отборным говорят memo
сбора endif
endif
dtoc (lasttkupd) memvar если право (sys (16.3), 12) = endif
memvar
сбора sele 3
memvar
сбора sele 2
«CONTRACT.FXP " />
*L
PROCEDURE RunDOS
* endif
endif
return '' исполняет программу DOS или командное файло, или призывает command_
ПАРАМЕТРОВ
переводчика command
* DOS (COMMAND.COM должно находиться в КУРСЕ) ЕСЛИ _DOS
АКТИВИРУЕТ SCREEN
ЗА ИСКЛЮЧЕНИЕМ ЭКРАНА К DOSscreen
@ 0.0 &command_ /0 БЕГА ON
* СТРЕЛКИ CLEAR
. Прокомментировано вне: 8/15/95 am
NewCommand_ 3:08 = && GETENV («COMSPEC ") добавили это Кодего для того чтобы прочитать && «COMMAND.COM» &NewCommand_ /0 БЕГА true
. Не может всегда быть && COMMAND.COM sure
будет СТРЕЛКА running.
НА && добавило СТРЕЛКУ 11/29/94
* УСТАНОВЛЕННУЮ С прокомментированного ЭКРАНА ВОССТАНОВЛЕНИЯ
ОТ s_lastkey DOSscreen
ENDIF
RETURN
*L
function PageDn
ЭКРАНА ОТПУСКА DOSscreen
=
lastkey () если s_lastkey = 3
PgDnKey =.
chr клавиатуры T.
(23) если вариант = «дорабатывает» .and. ; prog_name
= «CRITTERS» .and. ;
(псевдонима () = псевдоним .or «CRITDOGS» () = «CRITCATS») && s_lastky2 = s_lastkey как раз в случае потребитель отжало ctrl-W от первого
s_lastkey = lastkey endif
return
*L
function PageUp
endif
screen
() если s_lastkey = 18
* если .not. (prog_name = «CRITTERS» .and. ; вариант
* = «дорабатывает» .and. ;
* (псевдоним () = псевдоним .or «CRITDOGS» () = «CRITCATS»))
PgUpKey =. Skip
_next
endif
return
*L
function endif
* chr клавиатуры T.
(23) если &at_eof
=
=
, то dismsg (chr (7) + «последнее рекордное ")
_nextr
*L
function endif
/>return '' если
=
= dismsg, то (chr (7) + «последнее рекордное ")
*L
function endif
/>return '' = val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1)) если page_no < page_no last_page
= page_no + 1
делают else
disscr
= dismsg («никакое другое endif
return '' _nohelp
")
*L
function определяют help_not окна от 0.30 к цветовой схеме 7
активируют mess_err help_not
окна = 'огорченно, никакая ПОМОЩЬ имеющиеся в это время. '
_prev
*L
function help_not
/>
/>return '' если &at_bof
=
= dismsg, то (chr (7) + «первое показатель скип -1
_prevr
*L
function endif
")
return '' если
=
= dismsg, то (chr (7) + «первое показатель first_page _prepage
*L
function endif
")
return '' = val (substr (page_seq&zoom_num, 1.1))
если page_no > page_no first_page
= page_no -, то 1
делают redisp_fld disscr
= else
/> = dismsg («никакое другое печать ********** _print
*L
function endif
")
return '' не выбрало входы 9/07/98
pm 9:27 (akl) если право, то (sys (16.2), 12) = «CRITTERS.FXP» .or. ;
выпрямляет (sys (16.2), 12) = «br/> P_LABELS.FXP'< делает
********** endif
prn_sele
установленное on
избежания, котор определяет prnt_wndw окна от 0.43 до 2.78; цветовая схема 7
/> активирует s_readkey prnt_wndw
окна = 0
@ 0.0 говорит» печатание - ESC для того чтобы остановить '
=
init_rpt () если s_readkey = s_readkey 268 .or = избежание 12 && было &&, то endif
return
prnt_wndw
окна отпуска pressed
добавил течение или весь USDA записывает (
02/05/02 akl) если право, то (sys (16.6), 10) = g_all .and = «a «P_USDA.FXP» "
если sys .not (13) = «OFFLINE» лазер» br/>
«outp_dev .or dot'< <> outp_dev .or ' s_recno/> =
recno () идут brk_no top
= 1
делают pgehdr
делают пока r_count
.not eof () = 0
делают пока <> 9
r_count делает skip
brkhdr
если r_count endif
exit
eof () = r_count + enddo
1
если else
, то endif
s_recno
enddo
endif
exit
eof () переход если sys .not (13) = «OFFLINE» лазер» br/> <> «outp_dev .or dot'< <> outp_dev .or 'делает rpthdr
делает pgehdr
делает rptbdy
делает line_no rptftr
= lns_per_pg
делает endif
endif
pgeftr
если право (sys (16.2), 12) = печать br/> Y'< $ akl_system «P_LABELS.FXP» группа .and = 1
если 'установленная к печати else
LPT1
установленной к else
принтера off
печати eject
on
печати endif
LPT1
установленному установленному установленному/> = prnt_wndw
, то окна отпуска endif
end_rpt () если outp_dev = 'br screen' = off
избежания endif
edit_txt () установленное идет
*L
return '' s_curobj _popcal
/>function = _curobj
* активируют screen
на ключевой клавиатуре esc ярлыка» {CTRL+W} «+» {ВОЙДИТЕ} «
* @ 24.0 говорят
padc («ESC давления, котор нужно возвратить к экрану», 80 ввода данных) активирует действительное calculator
. T.
* @ 24,0
на ключевом _curobj esc
ярлыка = _quit
on
return
*L
function esca s_curobj
установленном если право, то (sys (16.2), 9) <> «PRINT.FXP» .and. ;
выпрямляет (sys (16.3), 8) <> 'установленное окно когда потребитель прекращает к мостовье endif
* to
фильтра br/> JOBS.FXP'< ранее window
делает право случая case
(sys (16.2), 12) = 'br/> CRITTERS.FXP'< делает zoom_no случая case
= wind_hide 1
= 'zoom_no случая br/> usr_wndw1'< = wind_hide clear
2
= 'zoom_no случая br/> usr_wndw5'< = wind_hide clear
3
= «zoom_no случая br/> usr_wndw4'< = wind_hide 4
= «zoom_no случая br/> usr_wndw6'< = wind_hide 5
= «s_zoom_no endcase
br/> usr_wndw3'< = zoom_no
если zoom_no = 1 .or. Zoom_no KeyF2
= zoom_no else
0
= wind_hide otherwise
endif
1
= «alltrim usr_wndw'+ (str (zoom_no))zoom_no
= zoom_no - 1
* добавленное если заявление для следующий условия:, то 2/M/F5/N/Z
* Экран данных стерт и экран потребителя будет activated.
* проблемой происходит ТОЛЬКО Горяч-Пользуясь ключом от заявк к Zoom.
собаки Critters * никакой потребитель, котор экран активирован потому что количество данных не приспособит на a
* экран потребителя. Так настольный компьютер использовано. (активируйте экран).
если (sys (16.5) = «НА…» .and. ;
выпрямляет (sys (16.6), 8) = «BIDS.FXP» .and. ;
выпрямляет (dbf (), 12) = endcase
endif
clear
«CRITDOGS.DBF») если wexist, то («endif
&wind_hide
окна мостовья ")
если zoom_no > 0
=
x_zoom () идут record_no
, то делают _retrieve
*
*L
function redisp_fld disscr
= .t.
/>return '' признавать ключа и изыскивать показатель; если о переместите к d_function record_no
= ()
, то если '' scatter
уравновешивания <> memo
(ndx_var) memvar пустое делает clrfld
делает read
getkey
*, то stat to
сообщения CLEANUP
установленный установленный с && это должен быть положен внутри потому что STAT && SET
самостоятельно не стер message
если akl_test endif
on
stat br/> Yy'< $ «установленное если && Esc
<> 27 lastkey () если программа, то (3) = псевдоним .and «РАБОТ» () = искать else
уравновешивания искати
«РАБОТ " (&ndx_var1a) уравновесьте (&ndx_var) endif
если &at_eof
= dismsg, то («ое ")
идет record_no
*L
endif
endif
/>
/>return '': Новое отборное командование 10/23/95 параметров _select
am
function 2:25 && dbf_desc
, котор это командование будет необходимое because
на ключевом && ярлыка F7 делает && _nohelp помощей проблемы found.
SYS (18) установленных с извещения о &&
&& (_nohelp находится на этой странице) -->> никакую функциональную можно вызвать! &&
ни может .PRG
если право (sys (16.2), 12) = && «CRITTERS.FXP» никакое «РАСТЕТ»!! (11 час!)
определяет brws_wndw окна от 9.4 до 19.54; dbf_desc названия
; else
цветовой схемы 10
/> определяет brws_wndw окна от 9.4 до 19.65; dbf_desc названия
; поплавок сигнала системы
растет близкое endif
цветовой схемы 10
делает record_no sel&zoom_num
= помощь brws_wndw
окна отпуска
recno () установленную на <<< &&--- ВСПОМНИТЕ! Извлекайте это statements.
на ключевом ярлыке F1 сделайте genhlp с (18) _skip
*L
function **********
/>
return '' * двиньте вперед/ОН назад нескольких rec_count records
= 0
определите skip_wndw окна от 11.29 до 13.52; цветовая схема 7
/> активирует skip_wndw
@ 00.00 окна говорит» показатели скипа: » получите _skipr
*L
function skip_wndw
endif
")
return @Z 999999 ' изображение rec_count «rec_count
скипа read
если &at_eof
=
= dismsg, то (chr (7) + «последнее рекордное endif
")
если &at_bof
=
= dismsg, то (chr (7) + «первое '' * двиньте вперед/ОН назад нескольких rec_count records
= 0
определите skip_wndw окна от 11.29 до 13.52; цветовая схема 7
/> активирует skip_wndw
@ 00.00 окна говорит» показатели скипа: » получите s_lastkey
*L
function TabBack
skip_wndw
endif
")
return @Z 999999 ' изображение rec_count «rec_count
скипа read
если
=
= dismsg, то (chr (7) + «последнее рекордное endif
")
если
=
= dismsg, то (chr (7) + «первое '' =
lastkey () если s_lastkey = 15
BTabKey =. _tally
endif
return
*L
function
chr клавиатуры T.
(23) определяет count_wndw окна от 0.35 до 2.78; цветовая схема 7
/> активирует count_wndw
@ 0.0 окна говорит» подсчитывать… «rec_count
= 0
= отсчет
_begin () пока &at_eof .not к mess_str rec_count
= str (rec_count, 6) +» br/>
record'< если rec_count > mess_str 1
= mess_str + «mess_str
ожидания endif
br/> s'< идут count_wndw
return '' _tallyr
, то окна отпуска record_no
*L
function определяет count_wndw окна от 0.35 до 2.78; цветовая схема 7
/> активирует count_wndw
@ 0.0 окна говорит» подсчитывающ… «rec_count
= 0
= отсчет
_beginr () пока .not eof () к mess_str rec_count
= str (rec_count, 6) +» mess_str
ожидания br/> records'< идет record_no
*L
function count_wndw
/>return '' rep_file = космос (8)
определяют file_wndw окна от 7.20 до 16.59; название
» вписывает Filename факса»; цветовая схема 7
/>
активирует окно usr_wndw1
активирует file_wndw
@ 3 окна, 1 говорит «максимум 8 характеров позволен. «
@ 4, 1 говорит «filename, вы входите, будете br/> @ 5 have'<, 1 говорит» «.TXT» добавленное к концу имени. '
@ 6, 1 говорит «не используйте никакие специальные символы. «
@ 1.15 получает read
rep_file
rep_file = «c:\crit\fax\ " +alltrim (rep_file) +»
.txt " выключает file_wndw
окна отпуска file_wndw
окна определяет file_wndw окна от 7.18 до 19, 60; название
» ваш факс готово»; цветовая схема 7
/> активирует file_wndw
@ 1 окна, 1 говорит «после того как факс был напечатан, идет к "
@ 2, 1 говорит «Systray, на настольный компьютер, и начинает "
@ 3, 1 говорит «WinFax, путем Right-Clicking на факсе "
@ 4, 1 говорит «икону. Затем, лев-щелкните дальше пошлите факс… «
@ 6, 1 говорит «положение архива: «+rep_file
@ 8, 1 говорят «когда факс был послан, возвращение здесь "
@ 9, 1 говорит «продолжать работать как раньше. «file_wndw
окна отпуска read
если .not опорожняют (rep_file) outp_dev
= 'file'< _torcd
*L
function endif
br/>return '' =
sys (14.1) если last_rec first_val
>= &ndx_exp = record_no
last_val = else
/> = endif
dismsg ndx_exp («последний показатель должен последовать за первым показателем»)/> =
return '' susp
_disstat () _zoom
*
*L
function если no_zooms = zoom_no
= dismsg («отсутствие else
")
архива сигнала если право, то (sys (16.2), 12) = 'br CRITTERS.FXP'< /> делают anml_type случая case
= 'zoom_no br/> C'< = anml_type случая 3
= «zoom_no br/> D'< = anml_type случая 2
= «zoom_no br/> E'< = anml_type случая 4
= «zoom_no br/> F'< = otherwise
/>* = dismsg («животным типом полем не будет ")
A_Type = космос c, d, e, или F. (1)
определяют file_wndw окна от 8.20 до 16.57; название
» пропуская: Животный тип»; цветовая схема 7
/>
активирует окно usr_wndw1
активирует file_wndw
@ 1 окна, 1 говорит «каждое животное должно иметь ТИП который "
@ 2, 1 говорит «описывает вообще категорию. «
@ 3, 1 говорит «позволенные входы являются следующими:
@ 4 d, c, f, или e ", 1 говорит» (собака, кот, ферма, или экзотическое.) «
GoodType =. F.
делают пока .not. GoodType
@ 4.34 получает read
A_Type A_Type
= верхнее
(A_Type) если
GoodType A_Type $ «DCFE " =. Else
@ 6 T.
, 1 говорит» пожалуйста войдите: D, c, f, или e «enddo
EndIf
выключают anml_type file_wndw
окна отпуска file_wndw
окна = A_Type
заменяют ть anml_type с m->anml_type
@ 2, 65 говорят zoom_no else
endcase
m->anml_type
= zoom_no + endif
/> =
=
_begin () * если новая страница, показывает новое screen
если page_no page_no
<> first_page = endif
first_page
если off
установленное/> = dismsg, то («on
базы данных пустое установленное/> = endif
return endif
_add () '' add_rec
*
*L
function добавляет прекращени прекращение record
= no_rcds .f.
= &at_eof
* возврат к первому d_function page
= ()
на ключевом ярлыке PGUP делают PageUp
на ключевом ярлыке PGDN делают PageDn
делают пока akl ********** last_page
<= page_no: Заявкы - Multi редактируйте akl am
*+++++++++ 2:07 окна 10/16/95: Заявкы - позвольте на Multi редактируйте Window
если право, то (sys (16.3), 8) =
«BIDS.FXP " на ключевом ярлыке PGUP делает newPageUp
на ключевом ярлыке PGDN делает
* ********** endif
newPageDn
--------- akl: Извлекли - не полюбил дорога, котор она работал 3/13/96 akl ********** pm
9:17: Добавлено для pm
8:42 вычисления 2/11/96 автоматического баланса если ((prog_name = псевдоним «ПОДЛЕЖАЩИЙ УПЛАТЕ» .and () = «PAYDETL») .or. ;
(prog_name = «ПОЛУЧАЕТ» псевдоним .and () = «RECDETL»)) .and. ; p_amount
(вариант = «экземпляр» вариант .or = «дорабатывает ")) =
* ********** endif
0
---------getcond
=» «G'$ fld_usg "
если право, то (sys (16.3), 8) = «USDA.FXP "
делает clrfld
@ 14, 1 говорит
@ 15 космоса (57), 1 говорит
космоса (57) @ 16, 1 говорит
@ 17 космоса (57), 1 скажите
космос (57) делает getfldA с read
getcond
если m->u_code_2 = «d» .or m->u_code_2 =
«c " делают getfldB с else
endif
read
getcond
делают getfld с akl ********** getcond
:, то Позволяет стрелку к UpArrow датировать поле. 12/15/95 pm
6:59 если право, то (sys (16.3), 9) =
«CALLS.FXP " прочитал akl ********** endif
********** endif
read
else
cycle
: Заявкы - Multi редактируйте akl am
*+++++++++ 2:07 окна 10/16/95: Заявкы - позвольте на Multi редактируйте Window
если право, то (sys (16.3), 8) =
«BIDS.FXP " на ключевом ярлыке PGUP
на ключевом stat to
сообщения
********** endif
PGDN
ярлыка установленном установленном с && это должен быть положен внутри потому что не кажется, что работает СООБЩЕНИЕ && SET
!!
если akl_test $ «установленные =
lastkey () если s_lastkey = 27 прекращени прекращение Esc
&& = endif
exit
.t.
если s_lastkey = страница 18 && вверх по Key
если page_no > page_no 1
= page_no -, то 1
делают endif
endif
loop
disscr
если s_lastkey = страница вниз Key
, то 3 && если page_no < page_no last_page
= page_no + 1
делают endif
endif
loop
disscr
если проверка page_no = first_page
* для двойной (ключ вписанный только на s_lastkey endif
on
stat br/> Yy'< первого страницу)
если .notallow_dup&zoom_num
если право, то (sys (16.3), 8) &ndx_var
искати
<> «USDA.FXP " если .not.
= dismsg (chr (7) + «прекращени прекращение ")
показателя дубликата позволенные = akl ********** endif
exit
.t.
: Добавленный индивидуальный проверять каждого ключевого поля в else
pm
0:26 USDA 5/31/96 если s_recno endif
exit
m.usda = 0
=
recno () идут, то top
размещает для m.name = name
если ое ()
= dismsg, то (chr (7) + «имя животного уже в пользе. Выберите другие прекращени прекращение
имени») = endif
exit
.t.
идите top
размещайте для m.usda = usda
если ое ()
= dismsg, то (chr (7) + «номер USDA уже в пользе. Выберите другие номера») = endif
exit
.t.
если endif
endif
********** endif
endif
s_recno
.not eof () переход * покажите поля взгляда вверх и вычисленное variables
делает lookup
делает calcul с .t.
если право, то (sys (16.3), 8) = «USDA.FXP "
делает getfldA с» .t. «
делает getfldB с» .t. «else
делает getfld с» .t. «gets
endif
прекращени прекращение
ясного если page_no < last_page
*, то покажите следующее page_no page
экрана = page_no + 1
сделайте enddo endif
exit
else
disscr
пока last_page
<= page_no * восстановите number
страницы если page_no > page_no all
ветра deact first_page
= first_page
делают disscr
, то если право, то (sys (16.3), 8) =
«USDA.FXP " делает getfldA с
» .t. «делает getfldB с else
» .t. «делает getfld с redisp_fld endif
» .t. «= прекращени прекращением endif
.t.
= iif (прекращени прекращением, .t., save_rec .not ())
если abort
.not если no_rcds
= set_bndry () else
, то endif
если no_rcds
= else
_quit () идет record_no
*
*L
function abort
endif
/>return '' рапорт/line_no line
экрана = line_no + 1
, то если line_no = lns_per_pg
делают pgeftr
/> = adv_page () = отчет о adv_page
* line_no
*L
function .f.
return предварительные/page_no page
экрана = page_no + 1
если право (sys (16.2), 12) =
если page_no = sel_yes + endif
если outp_dev = outp_dev .or «лазера» = «else
@ line_no+1,0 eject
br/> dot'< говорит line_no endif
replicate (chr (219), 76), то endif
return
1
= top_margin
делает дубликат комплекта chk_dupl
*
*L
function pgehdr
return '' к .f. если ключом будет дубликат, или к dupl_rec
, то otherwise
.t. приватному если ((&at_bof) =, то (&at_eof)) .or. '' = dupl_rec allow_dup&zoom_num
уравновешивания (ndx_var) .or = &ndx_var
искати else
.f.
если вариант = «dupl_rec br/> M'< = dupl_rec else
&at_eof
recno <> record_no () .and .not = endif
&at_eof
.not если dupl_rec
= dismsg, то (chr (7) + «else
")
идут уровень пролома инкремента up
* chng_brk
Parameters dupl_rec
*L
function endif
return endif
record_no
если «вверх по» = .t., otherwise
затухания если up
* установленные новые brk_field condition
прекращения рапорта = new_cond brk_field&brk_num
= «&brk_field<>m->&brk_field» +» .or. «cond_size&brk_num
= len done_cond = new_cond + done_cond
(new_cond) * поле пролома магазина к &brk_field variable
памяти = &brk_field
* сигнал вверх если будет break
«сигнала» если zoom_no brk_zoom&brk_num
= zoom_no + zoom_num 1
= str, то (zoom_no, frst_child 1)
= lnk_var&zoom_num
выбирает endif
&frst_child
искати &zoom_num
* инкрементируйте brk_no number
пролома = brk_no + brk_num 1
= str (brk_no, сделанное 1)
= brk_no else
&done_cond
= brk_no - brk_num 1
= str (brk_no, 1)
* уменьшите done_cond = substr condition
прекращения рапорта(done_cond, 1+cond_size&brk_num)
* сигнал вниз если будет header
параметров confirm
*L
function endif
endif
&zoom_num
1)
return «сигнала» break
если zoom_no brk_zoom&brk_num
= zoom_no -, то zoom_num 1
= str (zoom_no, '' определяет con_wndw окна от 1.50 до 20.100; цветовая схема 12
двойная; КУПЕЛЬ «Arial
смелейшее», 20 && 1.2.5? , 6? , 8? , 10? , 11? , «13 '
активируют
con_wndw
окна если (13-len (коллектор) /2) < 0
= dismsg, то («ошибка: Коллектор слишком длиной. 13 endif
@ 1.00 ")
чарсов максимальное говорит космос (13-len (коллектор) /2) + header
@ 3.00 говорят» < > < > «
@ 3.05 меню br/> No'< подсказки 3.18 br/> Yes'< подсказки «@ «к возвращениям ГОДА con_year
* CONTRACY
*L
function iif con_wndw
return окна отпуска con_opt
(con_opt=1, .t., .f.) год подряда как определено Rob
* для его num_yr ON
СТОЛЕТИЯ business.
УСТАНОВЛЕННОГО = val (право (dtoc (дата ()), 4)) СТОЛЕТИЕ OFF
-1981
УСТАНОВЛЕННОЕ если val, то (о (dtoc (дата ()), 4)) > num_yr 5
= num_yr + message
параметров dismsg
num_yr
*L
function endif
return 1
определяют mess_wndw окна от 10,78-6-len (сообщения) до 24.100; НАЗВАНИЕ «сообщение
Critters»; ПОПЛАВОК
БЛИЗКИЙ РАСТЕТ СИГНАЛ; цветовая схема 7 тени
; Ключ КУПЕЛИ
«Arial смелейшее», 20
активирует mess_wndw
окна если пустое ожидание
(сообщения)» давление любой для того чтобы продолжать… «message
параметров dismsgt
*L
function mess_wndw
endif
«
return '' ожидания else
'' + сообщение +»… определяет mess_wndw окна от 0,78-6-len (сообщения) до 2.78; цветовая схема 7
/> активирует mess_wndw
окна если пустое ожидание» давление
(сообщения) любой ключ, котор нужно продолжать…», то ; ожидание else
перерыва 2
'' + сообщение +»…» ;
*L
function DmsgQwQr
* mess_wndw
endif
2
/>return '', ожидание? (да или нет) отпуск? (да или нет) сообщение параметров
, WaitReply, CloseWin
определяет mess_wndw окна от 0,78-6-len (сообщения) до 2.78; цветовая схема 7
/> активирует mess_wndw
окна если WaitReply
если пустое
@ 0.1 (сообщения) говорит 'давление любой ключа для того чтобы продолжать… «else
@ 0.1, то read
говорит, то сообщение +»… «else
endif
read
если пустое
@ 0.1 (сообщения) говорит '' else
@ 0.1, то
говорит сообщение +»… 'endif
endif
если CloseWin
*L
function dispage1
, то endif
mess_wndw
/>return '' если redisp_fld first_page
<> page_no = page_no .t.
= first_page
делают disscr
, то если право (, тоsys (16.3), 8) = «USDA.FXP "
делает getfldA с» .t. «
делает getfldB с» .t. «else
делает getfld с edit_txt
*L
function endif
gets
return» .t. «endif
ясное '' определите txt_wndw окна от 1.0 до 24.79; название «ПЕЧАТЬ
, котор нужно ЭКРАНИРОВАТЬ (ESC, котор нужно выйти)»; поплавок сигнала системы
растет близкая цветовая схема 11
если br/> Yy'< akl_test $ 'дорабатывает && txt_wndw окна архива gentemp.gtx .gtx = else
GeneralTeXt
дорабатывает && txt_wndw окна noedit архива gentemp.gtx .gtx = endif
GeneralTeXt
txt_wndw
return '' end_rpt
окна отпуска
*L
function если outp_dev = «лазер» outp_dev .or = 'br/> dot'< если правое (sys (16.3), 11) <> «P_CONTR.FXP» .and. ;
выпрямляет (sys (16.3), 10) <> «P_INVO.FXP» .and. ;
выпрямляет (sys (16.5), 12) <> «P_SUBRNT.FXP» .and. ;
выпрямляет (sys (16.5), 10) br/> P_BIDS.FXP'< <> 'если .not. ((право (sys (16.3), 12) = «P_LABELS.FXP» .or. ;
выпрямляет (sys (16.3), 12) = «P_LABLS1.FXP» .or. ;
выпрямляет (sys (16.3), 12) = «P_LABLS2.FXP ") .and. ; endif
endif
endif
eject
(m.group = 2 .or m.group = 3 .or m.group = 4 .or m.group = 5)) если outp_dev = 'приспособление endif
to
принтера br/> file'< установленное установленное к screen
*/>
/>return '' выпрямляет, то (sys (16.4), 10) && <> «P_BIDS.FXP» (akl) 6/02/99 pm
* .and 0:33. ;
* && 2/20/94 (akl) выпрямляет (sys (16.3), 12) <> 'envrnmnt
br/>
*L
function P_LABELS.FXP'< на ошибке делает errfix с ошибкой (), сообщением (), сообщением (, котор 1), program (), десятичные дроби on
пульта off
колокола
lineno () установленные установленные установленные к комплекту 10
уничтожило приспособление off
off
on
установленное точно установленное исключительное установленное к multilocks screen
установленным комплект off
освежают к комплекту 0
reprocess к 1
*L
function databases
off
off
/>return '', errormsg, errormsg1, prgname, err_wndw
окна отпуска lineno
* делают errnum случая case
= архив 108 && в пользе another
если подтвердите, то («архив в пользе, повторенной попытке? else
retry
")
если wexist, то («endif
окна отпуска ")
chkf_wndw/> = возвращение
restenv () к errnum случая endif
&callmenu
= 109 запертых && рекордных another
если подтвердите, то («показатель в пользе, повторенной попытке? возвращение else
retry
")
к endif
mainproc
* возвратите к errnum случая &
= архив 110 && в пользе another
= dismsg («архив должен быть opended исключительн возвращением ")
к on
esca otherwise
*set &callmenu
определяет err_wndw окна от 15.3 до 50.170; КУПЕЛЬ «Arial
смелейшее», 16;
цветовой схемы 2
/> активирует err_wndw
@ 0.0 окна говорит «номер ошибки: » + ltrim (str (errnum))
@ 1.0 говорит «сообщение ошибки: » + errormsg
@ 2.0 говорит «линию текста: » + errormsg1
@ 3.0 говорят «имя программы: » + prgname
@ 4.0 говорит «линию номер: » + ltrim (str (lineno))
@ 5.0 говорит «предмет: » + 2018)
= dismsg («explode
parameters m_row1
*L
function endcase
off
*set err_wndw
")
return '', m_col1, m_row2, m_col2, m_cnt, m_type
* m_row1 = верхний левый угол руки box.
* m_col1 = верхний righthand угол box.
* m_row2 = угол руки нижней части box.
* m_col2 = более низкое правое имело угол m_cnt box.
* = количества шагов для взрыва обусловливает скорость которые кладут m_type explodes.
* = тип в коробку explosion.
* 1 = все стороны взрывают сразу.
* 2 = только стороны explode.
* 3 = только верхняя часть и нижнее explode.
* 4 = взрывает от верхней части к bottom.
* 5 = взрывает от дна к top.
* 6 = взрывает от левой стороны к right.
* 7 = взрывает от права к экрану explode
save left.
public к explode
r_pos1 = m_row1
r_pos2 = m_row2
c_pos1 = m_col1
/>c_pos2 = m_col2
do = 1 && весь магазин sides.
((m_row2-m_row1) /2)+m_row1 к r_pos1, магазину center
рядка && r_pos2 ((m_col2-m_col1) /2)+m_col1 к c_pos1, r_cnt center
col && c_pos2 = (r_pos1-m_row1) c_cnt increment
рядка && /m_cnt = (c_pos1-m_col1) m_type случая increment
col && /m_cnt = 2 магазин сторон only.
&& ((m_col2-m_col1) /2)+m_col1 к c_pos1, c_cnt center
col && c_pos2 = (c_pos1-m_col1) m_type случая increment
col && /m_cnt = верхняя часть 3 && и bottom
хранят ((m_row2-m_row1) /2)+m_row1 к r_pos1, r_cnt center
рядка && r_pos2 = (r_pos1-m_row1) m_type случая increment
рядка && /m_cnt = верхняя часть 4 && к bottom
r_cnt r_pos2 = m_row1
= (m_row2-m_row1) m_type случая increment
рядка && /m_cnt = дно 5 && к top
r_cnt r_pos1 = m_row2
= (m_row2-m_row1) m_type случая increment
рядка && /m_cnt = && 6 ое к right
c_pos2 = c_cnt m_col1
= (m_col2-m_col1) m_type случая increment
рядка && /m_cnt = право 7 && к left
c_cnt c_pos1 = m_col2
= (m_col2-m_col1) increment
endcase
do рядка && /m_cnt пока r_pos1 <= m_row2 .and >= m_row1 .and r_pos2. ; <= m_col2
@ r_pos1 >= m_col1 .and c_pos2
c_pos1, c_pos1, r_pos2, коробка «im c_pos2;: делает m_type случая case
= 1
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + r_cnt
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + m_type случая c_cnt
= 2
c_pos1 = c_pos1 - c_cnt
c_pos2 = c_pos2 + m_type случая c_cnt
= 3
r_pos1 = r_pos1 - r_cnt
r_pos2 = r_pos2 + m_type случая r_cnt
= 4
r_pos2 = r_pos2 + m_type случая r_cnt
= 5
r_pos1 = r_pos1 - m_type случая r_cnt
= 6
c_pos2 = c_pos2 + m_type случая c_cnt
= 7
c_pos1 = c_pos1 - endcase
enddo
clear
*@ m_row1 c_cnt
,m_col1, m_row2, коробка «im m_col2;:
*
*L
function/>
return '' (akl) 5/11/99 pm
* 3:27 следующее ЕСЛИ заявлением извлеклось для того чтобы позволить сообщение фильтра быть displayed.
* если .not. ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) активирует endif
screen
* если .not опорожняют, то (фильтр ())
@ 0.70 говорит «фильтр на» else
* цвета w+/n
(akl) 5/11/99 pm
* 3:27 следующее ЕСЛИ заявление было изменено для показа угла Прав-Верхней части коробки.
делает право случая case
(sys (16.2), 12) = «CRITTERS.FXP» .and справедливо (dbf (), 12) = «br/> CRITDOGS.DBF'< если PrimDisp
@ 0.70 говорит, то «ÍÍÍÍÍÍÍÍÍ " else
@ 0.70
говорят «ÍÍÍÍÍÍÍÍÍ» «право случая endif
(sys (16.2), 12) = «CRITTERS.FXP» .and справедливо (dbf (), 12) = «br/> CRITCATS.DBF'< если PrimDisp
@ 0.70 говорит, то else
@ 0.70
космос (09) говорит «ÍÍ» «otherwise
endif
+space (06) @ 0.70 говорят endif
endcase
космоса (09) если псевдоним () = «br/>, то BIDS'< если тип («s_recon_date ") = «br/> если пустое
@ 0 (s_recon_date), 1 говорит else
@ 0, то
космоса (25), 1 D'< говорит «Recon дату:, то «endif
endif
endif
цвета w+/n
+dtoc (s_recon_date) если .not. ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) * (akl) 4/10/99 pm
11:43 * добавленное если заявление для следующий условия:, то 2/M/F5/N/Z
* Экран данных стерт и экран потребителя будет activated.
* проблемой происходит ТОЛЬКО Горяч-Пользуясь ключом от заявк к Zoom.
собаки Critters * никакой потребитель, котор экран активирован потому что количество данных не приспособит на a
* экран потребителя. Так настольный компьютер использовано. (активируйте экран).
если .not. (sys (16.5) = «НА…» .and. ;
выпрямляет (sys (16.6), 8) = «BIDS.FXP» .and. ;
выпрямляет (dbf (), 12) = fltrstar
*L
function endif
/>
usr_wndw&page_num
return «CRITDOGS.DBF»)
активирует '' активирует screen
если .not опорожняют, то (фильтр ())
@ 0.70 говорит «фильтр на» else
@ 0.70 цвета w+/n
говорит endif
космос (09) активирует endif
EditFld
возвращения
dbf usr_wndw
return '' org_alias параметров prm1
genhlp
*L
function приватные, org_alias hlp_topic
=
псевдонима () если «GENHLP.DBF» $ окна () '' =. Rob && F. хочет ВСЕ редактирует поля (памятки) для того чтобы указать
am 1:53 сообщения 1/10/97 помощи && same
(akl) если пустое
hlp_topic = else
, то prog_name
если пусто, то (sys (18))
hlp_topic = else
prm1
hlp_topic =
sys (18) если тип («&hlp_topic ") = «br/> EditFld M'< =. Endif
endif
endif
T.
если архив, то .not («")
genhlp.DBF если архив, то .not («")
= dismsg («возвращение '' else
отборное 0
")
создают genhlp от on
genhlp
пользы endif
отборного 0
endif
use
genhlp.str
установленного точно если EditFld
размещает для уравновешивания (темы) = «else
br/> BID'< размещает для уравновешивания (темы) = off
endif
hlp_topic
установленное точно если
, то eof () если modi_memo
прилагает blank
=
*, то rlock () заменяет ть тема с && prm1 это черепашка??
заменяет ть тему с hlp_topic && если да, это может быть починка!! &&
экран где поле имеет не выбранное && yet
(a или m), заменяет ть blank.
заменяет ть чело с 7, bcol с 10; erow с 16, ecol
с && else
unlock
70
никакая имеющяяся помощь - проигнорируйте или предупредите msg??? endif
endif
возвращения
'' если modi_memo
определяет help_wndw окна от чела, bcol к erow, ecol; название «ПОМОЩЬ
(ESC к выходу или F10, котор нужно сохранить)»; поплавок сигнала системы
растет близкое else
цветовой схемы 11
определяет help_wndw окна от чела, bcol к erow, ecol; название «ПОМОЩЬ
(ESC к выходу)»; endif
цветовой схемы 11
/> если modi_memo
если
rlock () на ключевом ярлыке F10 делает sav_wind с «ПОМОЩЬЮ (ESC, котор нужно выйти или F10, котор нужно сохранить) «
, то дорабатывает unlock
help_wndw
окна деталей памятки на ключевом else
/> = dismsg, то («показатель помощи в пользе, else
endif
")
повторенной попытки дорабатывает use
endif
help_wndw
окна noedit деталей памятки если! пустое
getgrid
* VARIABLES
*L
function help_wndw
endif
&org_alias
/>return (org_alias) '' приватное приватное все как выбор prompt*
= 0
prompt1 =» идет «
prompt2 =
» Modi «prompt3 =» прекращенное «
* WINDOWS
определяет окно MAINTMNU от 22.0 до 24.79; название» решетка
управляет меню»; цветовая схема 2
/>
* SCREEN
активирует noshow
* 1 окна MAINTMNU 2 3
@ 0, 1 говорит «идет br/>*L
Quit'< Modi на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ && программы, котор () HELP
активирует окно MAINTMNU
@ 0, 1-1 проворное prompt1
@ 0, 4-1 проворных prompt2
@ 0, 9-1 проворное меню prompt3
к choice
делает выбор случая case
= вариант MAINTMNU
окна отпуска 0
= «выбор случая br/> quit'< = вариант 1
= «выбор случая br/> go'< = вариант 2
= «выбор случая br/> modify'< = вариант MAINTMNU
окна отпуска 3
= «endcase
br/> quit'< выключает option
*L
function getgrid2
* GetGrid2 MAINTMNU
return окна имеет отборное командование (Sel) добавленное к choice
pm
* VARIABLES
6:03 списка 3/21/96 приватному приватному все как выбор prompt*
= 0
prompt1 =» идет «
prompt2 =
» Modi «prompt3 =
» Sel «prompt4 =» прекращенное «
* WINDOWS
определяет окно MAINTMNU от 22.0 до 24.79; название» решетка
управляет меню»; цветовая схема 2
/>
* SCREEN
активирует noshow
* 1 окна MAINTMNU 2 3 4
@ 0, 1 говорит «идет br/>*L
Quit'< Modi Sel на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ && программы, котор () HELP
активирует окно MAINTMNU
@ 0, 1-1 проворное prompt1
@ 0, 4-1 проворных prompt2
@ 0, 9-1 проворных prompt3
@ 0.13-1 проворное меню prompt4
к choice
делает выбор случая case
= вариант MAINTMNU
окна отпуска 0
= «выбор случая br/> quit'< = вариант 1
= «выбор случая br/> go'< = вариант 2
= «выбор случая br/> modify'< = вариант 3
= «выбор случая br/> select'< = вариант MAINTMNU
окна отпуска 4
= «endcase
br/> quit'< выключают getsel
option
*L
function MAINTMNU
return окна на ключевом ярлыке F7 делают genhlp с
sys (18) делают право случая case
(sys (16.2), 12) =» <> zoom_num .and ««CRITTERS.FXP 1 ', котор
делает право случая maintmnu2
(sys (16.2), 12) = ' CONTRACT.FXP» .or справедливо (sys (16.2), 11) = ' INVOICE.FXP» .or. ;
выпрямляет (sys (16.2), 11) = ' ANIMALS.FXP» .or справедливо (sys (16.2), 08) = ' BIDS.FXP» .or. ;
выпрямляет (sys (16.3), 08) = ' CREW.FXP» .or справедливо (sys (16.2), 12) = ' CRITTERS.FXP» .or. ;
выпрямляет (sys (16.3), 07) = ' DHR.FXP» .or справедливо (sys (16.3), 08) = ' ACTS.FXP» .or. ;
выпрямляет (sys (16.3), 10)='AGENCY.FXP» .or справедливо (sys (16.3), 08) = ' JOBS.FXP» .or. ;
выпрямляет (sys (16.3), 08) = ' MAPS.FXP» .or справедливо (sys (16.3), 11) = ' MEASURE.FXP» .or. ;
выпрямляет (sys (16.3), 11) = ' PAYABLE.FXP» .or справедливо (sys (16.3), 10)='PRICES.FXP» .or. ;
выпрямляет (sys (16.3), 12) = ' PRODUCTN.FXP» .or справедливо (sys (16.3), 10)='PETSHP.FXP» .or. ;
выпрямляет (sys (16.3), 11) = ' RECEIVE.FXP» .or справедливо (sys (16.3), 11) = ' SUBRENT.FXP» .or. ;
выпрямляет (sys (16.3), 08) = ' USDA.FXP» .or справедливо (sys (16.3), 12) = ' HELTHCRT.FXP» .or. ;
выпрямляет (sys (16.3), 09) = ' br/>
ADOPT.FXP'< делает && maintmnu4 добавило меню для 'права случая br/>
Go'< (sys (16.3), 9) = 'br/> SETUP.FXP'< делает otherwise
maintmnu5
делает
**
* ****** ********** ********** ********** ********** ************************** option
*L
endcase
return maintmnu
для CRITTERS стандартное меню обслуживания, котор заменено с: dismsg *
**
= *
**
* MAINTMNU.prg («ошибка Crit # 1 - активированное Кодий.
****** ********** ********** ********** ********** ************************** ")
(getsel) активирует сообщение screen
установленное к размеру
actn_pad размера 0
(8.2) data_bar (размер 3)
recd_bar (размер 3)
recs_bar (размер 3)
edit_bar (размер 2)
addr_bar (размер 3)
scrn_bar (размер 2)
filt_bar (размер 2)
quit_bar (1)
* определите пусковую площадку в каждом actn_pad popup
(1.1) = actn_pad
'БАЗЫ ДАННЫХ '(2.1) = actn_pad
'ПОКАЗАТЕЛЯ '(3.1) = 'ЗАПИСЫВАЕТ 'actn_pad
(4.1) = actn_pad
'EDIT '(5.1) = 'actn_pad br/> ADD'< (6.1) = 'ЭКРАН 'actn_pad
(7.1) = 'ФИЛЬТР 'actn_pad
(8.1) = 'ПРЕКРАТИЛО 'actn_pad
(1.2) = 'БАЗА ДАННЫХ 'actn_pad
(2.2) = 'ПОКАЗАТЕЛЬ 'actn_pad
(3.2) = 'ПОКАЗАТЕЛИ 'actn_pad
(4.2) = actn_pad
'ЭКРАНА ''EDIT 'actn_pad
(5.2) = 'actn_pad br/> ADD'< (6.2) = (7.2) = actn_pad
'ФИЛЬТРА '(8.2) = 'ПРЕКРАТИТЕ '
data_bar (1) = 'список '
data_bar (2) = 'сигнал '
data_bar (3) = 'бирка '
* data_bar (4) = 'прекратите '
recd_bar (1) = 'br/> Retrieve'< recd_bar (2) = 'затем '
recd_bar (3) = 'br/> Previous'< recs_bar (1) = 'начните '
recs_bar (2) = 'конец '
recs_bar (3) = 'скип '
edit_bar (1) = 'доработайте '
edit_bar (2) = 'редактируйте br/> Memo'< addr_bar (2) =
addr_bar (3) =
'экземпляра 'scrn_bar (1) = 'следующий br/> Page'< scrn_bar (2) = 'br/> Page'< Prev filt_bar (1) = 'установите
фильтр 'filt_bar (2) = '
фильтра Cancel 'quit_bar (1) = 'прекращенное 'actn_pad адвокатского сословия меню
, меню 1 8
, data_bar, меню 2 3
, recd_bar, меню 3 3
, recs_bar, меню 4 3
, edit_bar, меню 5 2
, addr_bar, меню 6 3
, scrn_bar, меню 7 2
, filt_bar, меню 8 2
, quit_bar, 1
@ 24.0 говорят
космос (80) прочитало адвокатское сословие меню к sele_row, clear
save
sele_col делает sele_row случая case
= opt_sel 1
= data_bar sele_row случая
(sele_col) = opt_sel 2
= recd_bar sele_row случая
(sele_col) = opt_sel 3
= recs_bar sele_row случая
(sele_col) = opt_sel 4
= edit_bar sele_row случая
(sele_col) = opt_sel 5
= addr_bar sele_row случая
(sele_col) = opt_sel 6
= scrn_bar sele_row случая
(sele_col) = opt_sel 7
= filt_bar opt_sel otherwise
(sele_col) = 'Quit' br/> если br/> @ 0.1 Quit'< <> opt_sel 'говорит верхушку, то (уравновешивание (opt_sel)) endif
цвета w+/n
активирует usr_wndw&page_num
return окна более низко (уравновешивание (opt_sel))getseli
*L
function активирует сообщение screen
установленное к размеру
actn_pad размера 0
(5.2) data_bar (размер 4)
recd_bar (размер 7)
scrn_bar (размер 2)
filt_bar (размер 2)
quit_bar (1)
* определите пусковую площадку в каждом actn_pad popup
(1.1) = 'БАЗА ДАННЫХ 'actn_pad
(2.1) = 'ПОКАЗАТЕЛЬ 'actn_pad
(3.1) = 'ЭКРАН 'actn_pad
(4.1) = 'ФИЛЬТР 'actn_pad
(5.1) = 'ПРЕКРАЩЕННОЕ 'actn_pad
(1.2) = 'БАЗА ДАННЫХ 'actn_pad
(2.2) = 'ПОКАЗАТЕЛЬ 'actn_pad
(3.2) = 'ЭКРАН 'actn_pad
(4.2) = 'ФИЛЬТР 'actn_pad
(5.2) = «ПРЕКРАТИЛО «
* data_bar (1) = iif (no_zooms = zoom_no,» \ -», «")
сигнала data_bar (1) = 'список '
data_bar (2) = 'бирка '
data_bar (3) = 'сигнал '
data_bar (4) = 'прекратите '
recd_bar (1) = 'br/> Retrieve'< recd_bar (2) = 'затем '
recd_bar (3) = 'br/> Previous'< recd_bar (4) = 'Начните '
recd_bar (5) =
'конца 'recd_bar (6) =
'скипа 'recd_bar (7) =
'памятки 'scrn_bar (1) = 'следующий br/> Page'< scrn_bar (2) = 'br/> Page'< Prev filt_bar (1) = 'установите br/> Filter'< filt_bar (2) = 'br/> Filter'< Cancel quit_bar (1) = 'прекращенное 'actn_pad адвокатского сословия меню
, меню 1 5
, data_bar, меню 2 4
, recd_bar, меню 3 7
, scrn_bar, меню 4 2
, filt_bar, меню 5 2
, quit_bar, 1
@ 24.0 скажите что
космос (80) прочитало адвокатское сословие меню к sele_row, clear
save
sele_col делает sele_row случая case
= opt_sel 1
= data_bar sele_row случая
(sele_col) = opt_sel 2
= recd_bar sele_row случая
(sele_col) = opt_sel 3
= scrn_bar sele_row случая
(sele_col) = opt_sel 4
= filt_bar opt_sel otherwise
(sele_col) = 'endcase
br/> Quit'< если br/> @ 0.1 Quit'< <> opt_sel 'говорит верхушку, то (уравновешивание (opt_sel)) endif
цвета w+/n
активирует usr_wndw&page_num
return окна более низко (уравновешивание (opt_sel))getselr
*L
function на ключевом ярлыке F7 делает genhlp с
sys (18) делает
**
* ****** ********** ********** ********** ********** ************************** maintmnu3
return
для CRITTERS стандартное меню обслуживания, котор заменено с: dismsg *
**
= *
**
* MAINTMNU.prg («ошибка Crit # 1 - активированное Кодий.
****** ********** ********** ********** ********** ************************** ")
(getselr) активирует сообщение screen
установленное к размеру
actn_pad размера 0
(7.2) prnt_bar (размер 3)
data_bar (размер 3)
recd_bar (размер 2)
recs_bar (размер 3)
scop_bar (размер 3)
filt_bar (размер 2)
quit_bar (1)
* определите пусковую площадку в каждом actn_pad popup
(1.1) = actn_pad
'ПЕЧАТИ '(2.1) = actn_pad
'БАЗЫ ДАННЫХ '(3.1) = actn_pad
'ПОКАЗАТЕЛЯ '(4.1) = 'ПОКАЗАТЕЛИ 'actn_pad
(5.1) = 'ОБЪЕМ 'actn_pad
(6.1) = 'ФИЛЬТР 'actn_pad
(7.1) = 'ПРЕКРАТИЛО 'actn_pad
(1.2) = 'ПЕЧАТЬ 'actn_pad
(2.2) = 'БАЗА ДАННЫХ 'actn_pad
(3.2) = 'ПОКАЗАТЕЛЬ 'actn_pad
(4.2) = 'ЗАПИСЫВАЕТ 'actn_pad
(5.2) = 'ОБЪЕМ 'actn_pad
(6.2) = 'ФИЛЬТР 'actn_pad
(7.2) = 'ПРЕКРАЩЕННОЕ '
prnt_bar (1) = 'к принтеру '
prnt_bar (2) = 'к
архива 'prnt_bar (3) = 'к
* экрану 'prnt_bar (4) = 'br/>* Report'< печати prnt_bar (5) = 'состояние '
* prnt_bar (6) = 'прекращенное '
data_bar (1) = 'список '
data_bar (2) = 'бирка '
data_bar (3) = 'br/>
Status'< recd_bar (1) = 'затем '
recd_bar (2) = 'br/>
Previous'< recs_bar (1) = 'начните '
recs_bar (2) = 'конец '
recs_bar (3) = 'скип '
scop_bar (1) = 'От рекордного '
scop_bar (2) = 'записать '
scop_bar (3) = '
объема Cancel 'filt_bar (1) = 'установите
фильтр 'filt_bar (2) = '
фильтра Cancel 'quit_bar (1) = 'прекращенное 'actn_pad адвокатского сословия меню
, меню 1 7
, prnt_bar, меню 2 3
, data_bar, меню 3 3
, recd_bar, меню 4 2
, recs_bar, меню 5 3
, scop_bar, меню 6 3
, filt_bar, меню 7 2
, quit_bar, 1
прочитало адвокатское сословие меню к sele_row, save
/> делает sele_row случая case
= opt_sel 1
= prnt_bar sele_row случая
(sele_col) = opt_sel 2
= data_bar sele_row случая
(sele_col) = opt_sel 3
= recd_bar sele_row случая
(sele_col) = opt_sel 4
= recs_bar sele_row случая
(sele_col) = opt_sel 5
= scop_bar sele_row случая
(sele_col) = opt_sel 6
= filt_bar opt_sel otherwise
(sele_col) = 'endcase
br/> Quit'< если br/> @ 0.1 Quit'< <> opt_sel 'говорит верхушку, то (уравновешивание (opt_sel)) endif
цвета w+/n
активирует usr_wndw
return окна более низко (уравновешивание (opt_sel))init_rpt
*L
function делает outp_dev случая case
= движение && <> «P_LABELS.FXP» «лазера» outp_dev .or = 'br/> dot'< если outp_dev = 'печать br/> dot'< установленная к endif
LPT1
если outp_dev = 'br/> laser'< если правое (sys (16.3), 12) до 95. Измените это когда possible.
если akl_system $ 'печать br/> Y'< установленная к печати else
LPT1
установленной к endif
endif
endif
LPT1
если право (sys (16.3), 12) = 'br/>*, то P_LABELS.FXP'< если группа = 1 группа .or = группа 2 .or = 3 прокомментировала, то потому что there
* не будет больше принтера многоточия. 4/11/2000
*
* pm 9:57 (akl) 12/31/98 4:31 pm) (akl - я извлекаю это если заявление. Я реально не знаю почему я положил его in.
*, котор я противоречил. См. ранее ЕСЛИ заявление, как раз под «лазером».
* после долгого времени, извлекает это ЕСЛИ и КОНЕЦ statements.
* если правое (sys (16.3), 12) движение && <> «P_LABELS.FXP» до 95. Измените это когда possible.
если печать br/> Y'< $ akl_system 'установленная к печати else
LPT1
установленной к endif
endif
endif
* endif
* LPT1
если право (sys (16.3), 11) = «P_CONTR.FXP» .or. ;
выпрямляет (sys (16.3), 10) = «P_INVO.FXP» .or. ;
выпрямляет (sys (16.3), 12) = 'br/> P_SUBRNT.FXP'< если печать br/> Y'< $ akl_system 'установленная к печати else
LPT1
установленной к endif
endif
LPT1
делает, то пока sys (13) = «br/> @ 0.0 OFFLINE'< говорит» пожалуйста установленные s_readkey read
принтера он-лайн… «=
readkey () если s_readkey = s_readkey 268 .or = избежание 12 && было приспособлением pressed
установленным к enddo
@ 0,0
@ 0.0, то endif
return
off
печати on
пульта screen
установленному установленному говорят» печатание - ESC, котор нужно остановить 'приспособление
установленное к printer
если outp_dev = 'br/> laser'< * двиньте до 95. Измените это когда по возможности. < - почему? 11/14/01
если правое (sys (16.3), 12) <> «P_LABELS.FXP» .and. ;
выпрямляет (sys (16.5), 10) on
* @ 0.0 печати off
пульта br/> P_BIDS.FXP'< <> 'установленное установленное говорит chr (27) + && " e» выступает printer
?? chr (27) + outp_dev случая endif
endif
on
пульта off
печати
" e " установленное установленное = «br/> @ 0,0
@ 0.0 file'< говорит» печатание - ESC для того чтобы остановить 'принтер
установленный для того чтобы хранить приспособление &rep_file
установленное для того чтобы хранить outp_dev случая &rep_file
= «br/> @ 0,0
@ 0.0 screen'< говорит» печатание - ESC для того чтобы остановить «принтер
установленный для того чтобы хранить приспособление gentemp.gtx
установленное для того чтобы хранить akl ********** gentemp.gtx
: Линии добавили для того чтобы остановить into
характера TOF идя выкидывают архив && как сперва характер. 8/01/98 приспособлений to
принтера am
1:18 установленных установленных к принтеру screen
установленному для того чтобы хранить приспособление gentemp.gtx
установленное для того чтобы хранить page_no endcase
********** gentemp.gtx
= line_no 1
= off
пульта top_margin
установленное lnk_var = ''
идут first_rec
если .not опорожняют, то (фильтр ())filter_str
=
фильтра () если brk_no endif
endif
skip
&filter_str
.not = brk_num 1
= «1 ' сделанное
= at_top &done_cond
= .t.
return '' choice
maintmnu
* VARIABLES
*L
function приватное приватное все как выбор prompt*
= 0
prompt1 =» добавляют «
prompt2 =», то умоляют «
prompt3 =» экземпляр «
prompt4 =» Del «
prompt5 =» конец «
prompt6 =» Filt «
prompt7 =» список «
prompt8 =» Modi «
prompt9 =» затем «
prompt10 =
» Prev «prompt11 =» прекращенное «
prompt12 =» Ret «
prompt13 =
» скипа «prompt14 =
» бирки «prompt15 =
* WINDOWS
» сигнала «определяет окно MAINTMNU от 22.0 до 24.79; название» обслуживание
управляет меню»; цветовая схема 2
/>
* SCREEN
* прокомментировала для VFP
ЕСЛИ. F.
активируют noshow
* 1 окна MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13 14 15
@ 0, 1 говорит 'добавьте вымолите списку Modi Экземпляра Del Конца Filt следующее, котор прекращенное Prev Ret br/> ENDIF
* Zoom'< бирки скипа прокомментировало для ФУНКЦИОНАЛЬНОЙ КЛАВИШИ ASSIGNMENT
*L
*/> на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ && программы () HELP
делает prog_name случая case
=
«КАЛЕНДАРА " на ключевом ярлыке F2 делает mntmnuf с 2
на ключевом ярлыке F10 делает mntmnuf с otherwise
10
на ключевом ярлыке F2 делает mntmnuf с 2
на ключевом ярлыке F8 делает mntmnuf с 8
на ключевом ярлыке F9 делают mntmnuf с 9
на ключевом ярлыке F10 делают mntmnuf с 10
на ключевом ярлыке F11 делают mntmnuf при endcase
* 11
добавленное для
VFP делают s_choice DispMenu
= выбор mChoice
= mChoice
* прокомментировали для VFP
ЕСЛИ. F.
активируют окно MAINTMNU
@ 0, 1-1 проворных prompt1
@ 0, 5-1 проворных prompt2
@ 0, 9-1 проворных prompt3
@ 0.14-1 проворных prompt4
@ 0.18-1 проворных prompt5
@ 0.22-1 проворных prompt6
@ 0.27-1 проворных prompt7
@ 0.32-1 проворных prompt8
@ 0.37-1 проворных prompt9
@ 0.42-1 проворных prompt10
@ 0.47-1 проворных prompt11
@ 0.52-1 проворных prompt12
@ 0.56-1 проворных prompt13
@ 0.61-1 проворных prompt14
@ 0.67-1 проворное меню prompt15
, котор к choice
ENDIF
* прокомментировало для VFP
делает выбор случая case
= вариант MAINTMNU
окна отпуска 0
= 'выбор случая br/> quit'< = 1
= 'выбор случая br/> add'< = вариант 2
= 'выбор случая br/> begin'< = вариант 3
= 'выбор случая br/> copy'< = вариант 4
= 'выбор случая br/> delete'< = вариант 5
= 'выбор случая br/> end'< = 6
определяет fil_wndw окна от 1.50 до 6.77 двойная цветовая схема, котор 12
активирует коллектор fil_wndw
окна = 'br/> @ 1.00 Filter'< говорит космос (13-len (коллектор) /2) + header
@ 3.04 говорят 'br/> '< @ 3.05 меню br/> Cancel'< подсказки 3.16 br/> Set'< подсказки '@ 'к fil_opt
если fil_opt = вариант 1
= 'установил endif
br/> filter'< если fil_opt = вариант 2
= 'выбор случая fil_wndw
окна отпуска endif
br/> filter'< cancel = вариант 7
= 'выбор случая br/> list'< = вариант 8
= 'выбор случая br/> modify'< = вариант 9
= 'выбор случая br/> next'< = вариант 10
= 'выбор случая br/> previous'< = вариант MAINTMNU
окна отпуска 11
= 'выбор случая br/> quit'< = вариант 12
= 'выбор случая br/> retrieve'< = вариант 13
= 'выбор случая br/> skip'< = вариант 14
= «выбор случая br/> tally'< = вариант 15
= «endcase
br/> zoom'< выключают option
* MAINTMNU
return окна - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mntmnuf
parameter KeyF_no
function делает случай KeyF_no = 2
case
KeyF2 =. Случай KeyF_no = 5
T.
KeyF5 =. Случай KeyF_no = 8
T.
KeyF8 =. Случай KeyF_no = 9
T.
KeyF9 =. Случай KeyF_no = 10
T.
KeyF10 =. Случай KeyF_no = 11
T.
KeyF11 =. s_FkeyRec endcase
T.
= s_prgname
recno () = choice
plain
return
*L
function maintmnu2
* VARIABLES
chr клавиатуры prog_name
(113) приватное приватное все как выбор prompt*
= 0
prompt1 =» Modi «
prompt2 =» прекращают «
prompt3 =» Del «
prompt4 =» Filt «
* если ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
* (правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) prompt5 =» первичное «
prompt6 =» вторичное «endif
* WINDOWS
* определяет окно MAINTMNU от 22.0 до 24.79; название» обслуживание
управляет меню (сигналом)»; цветовая схема 2
/>
* SCREEN
НА КЛЮЧЕВОМ ЯРЛЫКЕ Alt+F12 SUSPEND
активирует noshow
* 1 окна MAINTMNU 2 3 4 5 6
@ 0, 1 говорит 'br/>
Secondary'< Del Filt Главным образом Modi Прекращать если ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) =
«CRITCATS.DBF ")) * 1 2 3
* 123456789012345678901234567890123456
@ 0, 1 говорит 'br/> Secondary'< Del Filt Главным образом Modi Прекращать * подсказку: 1 2 3 4 5 endif
*L
6
на ключевом ярлыке F2 делает mntmnuf22
на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ HELP
&& программы () если ((право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) = «CRITCATS.DBF ")) на ключевом ярлыке PgDn делает DispSecn
на ключевом ярлыке PgUp делает endif
DispPrim
активирует окно MAINTMNU
@ 0, 1-1 проворные prompt1
@ 0, 6-1 проворных prompt2
@ 0.11-1 проворных prompt3
@ 0.15-1 проворных prompt4
если (право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
выпрямляет (sys (16.2), 12) = «CRITTERS.FXP» .and справедливо (dbf (), 12) =
«CRITCATS.DBF ")) @ 0.20-1 проворных prompt5
@ 0.28-1 проворное меню endif
, котор prompt6
к choice
делает выбор случая case
= вариант MAINTMNU
окна отпуска 0
= 'выбор случая br/> quit'< = вариант 1
= 'выбор случая br/> modify'< = вариант MAINTMNU
окна отпуска 2
= 'выбор случая br/> quit'< = вариант 3
= 'выбор случая br/> delete'< = 4
определяет fil_wndw окна от 1.50 к двойной цветовой схеме 6.77 12
активируют коллектор fil_wndw
окна = 'br/> @ 1.00 Filter'< говорят космос (13-len (коллектор) /2) + header
@ 3.04 говорят 'br/> '< @ 3.05 меню br/> Cancel'< подсказки 3.16 br/> Set'< подсказки '@ 'к fil_opt
если fil_opt = вариант 1
= 'устанавливают endif
, то br/> filter'< если fil_opt = вариант 2
= 'выбор случая fil_wndw
окна отпуска endif
br/> filter'< cancel = вариант 5
= «br/> primary'< делают выбор случая DispPrim
= вариант 6
= «, то br/> secondary'< делает endcase
DispSecn
выключает окно MAINTMNU
если (право (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляют (dbf (), 12) = «CRITDOGS.DBF ") .or. ;
(правое (sys (16.2), 12) = «CRITTERS.FXP» .and выпрямляет (dbf (), 12) = «")
CRITCATS.DBF на ключевом ярлыке PgDn
на ключевом option
* endif
return PgUp
ярлыка - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
function mntmnuf22
KeyF2 =. S_prgname T.
= choice
plain
return
*L
function maintmnu3
* VARIABLES
chr клавиатуры prog_name
(113) приватное приватное все как выбор prompt*
= 4
prompt1 =» умоляют «
prompt2 =» конец «
prompt3 =» Filt «
Prompt4 =» идут «
prompt5 =» список «
prompt6 =» затем «
prompt7 =» Prev «
prompt8 =» прекращенное «
prompt9 =» Ret «
prompt10 =» скип «
prompt11 =» бирка «
prompt12 =» < «
prompt13 =» > «
* WINDOWS
определяет окно MAINTMNU от 22.0 до 24.79; название» рапорт
управляет меню»; цветовая схема 2
/>
* SCREEN
активирует noshow
* 1 окна MAINTMNU 2 3 4 5 6 7 8 9 10 11 12 13
@ 0, 1 говорит 'вымолите концу Filt идите список следующее, котор прекращенное Prev Ret
*L
бирка скипа < > ' на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ && программы () HELP
активирует окно MAINTMNU
@ 0, 1-1 проворное prompt1
@ 0, 5-1 проворных prompt2
@ 0, 9-1 проворных prompt3
@ 0.14-1 проворных prompt4
@ 0.17-1 проворных prompt5
@ 0.22-1 проворных prompt6
@ 0.27-1 проворных prompt7
@ 0.32-1 проворных prompt8
@ 0.37-1 проворных prompt9
@ 0.41-1 проворных prompt10
@ 0.46-1 проворных prompt11
@ 0.52-1 проворных prompt12
@ меню 0.54-1 проворное prompt13
, котор к choice
делает выбор случай case
= вариант MAINTMNU
окна отпуска 0
= 'выбор случая br quit' = вариант 1
= 'выбора случая begin'< br/> = варианта 2
= 'выбор случая br end' = 3
определяют fil_wndw окна от 1.50 до 6.77 двойная цветовая схема 12
активирует коллектор fil_wndw
окна = 'br/> @ 1.00 Filter'< говорит космос (13-len (коллектор) /2) + header
@ 3.04 говорят 'подсказку 3.05 br/> '< @ 'подсказка 3.16 'меню br/> Set'< @ br/> Cancel'< к fil_opt
если fil_opt = вариант 1
= 'устанавливают endif
br/> filter'< если fil_opt = вариант 2
= 'выбор случая fil_wndw
окна отпуска endif
br/> filter'< cancel = 4
, то если право (sys (16.3), 11) = 'вариант br/> P_CONTR.FXP'< = 'к else
* br/> printer'< делает выбор случая endif
&& 11/27/93
out_dev = вариант 5
= 'выбор случая br/> list'< = вариант 6
= 'выбор случая br/> next'< = вариант 7
= 'br previous'< выбор случая/> = вариант MAINTMNU
окна отпуска 8
= 'выбор случая br/> quit'< = вариант 9
= 'выбор случая br/> retrieve'< = вариант 10
= 'выбор случая br/> skip'< = вариант 11
= 'выбор случая br/> tally'< = вариант 12
= 'от выбора случая br/> record'< = вариант 13
= «к endcase
br/> record'< выключают option
*L
function maintmnu4
* 10/19 MAINTMNU
return окна - добавленные «menu4» для того чтобы позволить «идут» (печать) от maintnenace window.
* это работы эти же меню печати «идет» командование. Choice
* VARIABLES
приватное приватное все как выбор prompt*
= 0
prompt1 =» добавляет «
prompt2 =» умоляет «
prompt3 =
» экземпляра «prompt4 =
» Del «prompt5 =
» конца «prompt6 =
» Filt «prompt7 =» идет «
prompt8 =
» списка «prompt9 =
» Modi «prompt10 =» затем «
prompt11 =
» Prev «prompt12 =» прекращенное «
prompt13 =» Ret «
* новое отборное Command
если право, то (sys (16.2), 12) = else
«CRITTERS.FXP» .or выпрямляют (sys (16.3), 8) = «br/> USDA.FXP'< prompt14 =» Sele «prompt14 = endif
» скипа «prompt15 =
» бирки «prompt16 =
* WINDOWS
» сигнала «определяет окно MAINTMNU от 95.0 до 105.190; название» обслуживание
управляет меню»; цветовая схема 2 тени поплавка двойника
; КУПЕЛЬ «Arial
смелейшее», 19
* SCREEN
НА КЛЮЧЕВОМ ЯРЛЫКЕ Alt+F12 SUSPEND
активирует
* окна MAINTMNU прокомментировала для VFP
ЕСЛИ. F.
если право (sys (16.2), 12) = 'br/>* 1 CRITTERS.FXP'< 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
@ 0, 1 говорит 'добавьте умоляют Экземпляру Del Концу Filt идут список Modi следующее, котор прекращенное Prev Ret else
@ 0 br/> Zoom'< бирки Sele, 1 говорит, то 'добавьте вымолите Экземпляру Del Концу Filt идите список Modi следующее прекращенное Prev Ret br/> ENDIF
ENDIF
* Zoom'< бирки скипа прокомментировало для VFP
*L
если .not выпрямляют (sys (16.3), 11) =
«ANIMALS.FXP " на ключевом ярлыке F1 делают mntmnuf4 с 1
endif
если .not выпрямляют (sys (16.3), 8) =
«BIDS.FXP " на ключевом ярлыке F2 делает mntmnuf4 с endif
2
если .not выпрямляют, то (sys (16.3), 12) =
«CALENDAR.FXP " на ключевом F3 ярлыка делают mntmnuf4 с endif
3
если .not выпрямляют (sys (16.3), 12), то =
«CONTRACT.FXP " на ключевом ярлыке F4 делают mntmnuf4 с endif
4
если .not выпрямляют (sys (16.3), 12), то =
«CRITTERS.FXP " на ключевом ярлыке F5 делают mntmnuf4 с endif
5
если .not. выпрямите (sys (16.3), 11) =
«INVOICE.FXP " на ключевом ярлыке F6 сделайте mntmnuf4 с endif
6
на ключевом ярлыке F7 сделайте genhlp с ПОТРЕБИТЕЛЕМ && программы, котор () HELP
на ключевом ярлыке F8 делает mntmnuf4 с 8
если .not выпрямляют, то (sys (16.3), 10) =
«PRICES.FXP " на ключевом ярлыке F9 делает mntmnuf4 с endif
9
на ключевом ярлыке F10 делает mntmnuf4 с 10
на ключевом ярлыке F11 делает mntmnuf4 с 11
активирует окно MAINTMNU
делает s_choice DispMenu
= выбор mChoice
= mChoice
* прокомментировало для VFP
ЕСЛИ. F.
@ 0, 1-1 проворных prompt1
@ 0, 5-1 проворных prompt2
@ 0, 9-1 проворных prompt3
@ 0.14-1 проворных prompt4
@ 0.18-1 проворных prompt5
@ 0.22-1 проворных prompt6
@ 0.27-1 проворных prompt7
@ 0.30-1 проворных prompt8
@ 0.35-1 проворных prompt9
@ 0.40-1 проворных prompt10
@ 0.45-1 проворных prompt11
@ 0.50-1 проворных prompt12
@ 0.55-1 проворных prompt13
@ 0.59-1 проворных prompt14
@ 0.64-1 проворных prompt15
@ меню 0.70-1 проворное prompt16
, котор к choice
ENDIF
* прокомментировало для VFP
делают выбор случая case
= вариант MAINTMNU
окна отпуска 0
= 'выбор случая br/> quit'< = вариант 1
= 'выбор случая br/> add'< = вариант 2
= 'выбор случая br/> begin'< = вариант 3
= 'выбор случая br/> copy'< = вариант 4
= 'выбор случая br/> delete'< = вариант 5
= 'выбор случая br/> end'< = 6
определяет fil_wndw окна от 1.50 до 6.77 двойная цветовая схема, котор 12
активирует коллектор fil_wndw
окна = 'br/> @ 1.00 Filter'< говорит космос (13-len (коллектор) /2) + header
@ 3.04 говорят 'br/> '< @ 3.05 меню br/> Cancel'< подсказки 3.16 br/> Set'< подсказки '@ 'к fil_opt
если fil_opt = вариант 1
= 'установили endif
br/> filter'< если fil_opt = вариант 2
= 'выбор случая fil_wndw
окна отпуска endif
br/> filter'< cancel = вариант 7
= 'выбор случая br/> go'< = вариант 8
= 'выбор случая br/> list'< = вариант 9
= 'выбор случая br/> modify'< = вариант 10
= 'выбор случая br/> next'< = вариант 11
= 'выбор случая br/> previous'< = вариант MAINTMNU
окна отпуска 12
= 'выбор случая br/> quit'< = вариант 13
= 'выбор случая br/> retrieve'< = 14
вариант = 'выбор случая br/> skip'< = вариант 15
= «выбор случая br/> tally'< = вариант 16
= «памятка rele ветра MAINTMNU4
rele ветра MAINTMNU4
deac MAINTMNU
ветра rele MAINTMNU
ветра deac endcase
br/> zoom'< как option
*L
* prompt*
return добавил для mCHOICE
procedure DispMenu
VFP ОБЩЕСТВЕННОГО, mGET, cCHOICE, МАГАЗИНА 0 cCHOICES
К mCHOICE, "" МАГАЗИНА mGET
К cCHOICE, nCOL cCHOICES
* = КРУГЛОЕ (WCOLS () /2.0) - 19
* добавляет умоляет Экземпляру Del Концу Filt идет список Modi следующее, котор прекращенное Prev Ret nPad br/>
Zoom'< бирки скипа = nROW 3
= nCOL 0
* 1
= 0
ПОЛУЧАЮТ С nROW, nCOL,» \ nCOL = nCol
ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
, «\ ПОЛУЧАЮТ С nROW, nCOL,» \ + 4 + nPad
ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
* 5
, «\
,» \ ПОЛУЧАЮТ С nROW, nCOL, «\ nCOL = nCol
ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
,» \ ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
, «\
ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
* 10
,» \ ПОЛУЧАЮТ С nROW, nCOL nCOL = nCol
, «\ ПОЛУЧАЮТ С nROW, nCOL + 4 + nPad
ПОЛУЧАЮТ С nROW, nCOL, «\ + 4 + nPad
ПОЛУЧАЮТ С nROW, nCOL + 3 + nPad
ПОЛУЧАЮТ С nROW, nCOL, «\ " nCOL = nCol
* 15
+ 4 + nPad
ПОЛУЧАЮТ С nROW, nCOL,» \ + 5 + nPad
ПОЛУЧАЮТ С nROW, nCOL
*, «\ " добавляют умоляют Экземпляру Del Концу Filt идут список Modi следующее Prev Прекращено Ret cCHOICES br/>
Zoom'< бирки скипа = cCHOICES + «12Q " cCHOICE
= mCHOICE mCHOICE
fnCUROBJ
PARAMETERS
FUNCTION fnCHOICE (cCHOICES, «q») = _CUROBJ
RETURN. nROW T.
PROCEDURE GET
PARAMETERS, nCOL, cFUNC, bSKIP
nSIZE2 = LEN (STRTRAN (cFUNC,» \ <")) + nROW
2
@, nCOL ПОЛУЧАЮТ ФУНКЦИЮ «* «+IIF mGET (bSKIP,» \ \ «, "") +cFUNC; nROW
* fnCUROBJ
ДЕЙСТВИТЕЛЬНОЕ (@mCHOICE) @, nCOL ПОЛУЧАЕТ ФУНКЦИЮ «* «+IIF mGET (bSKIP,» \ \ «, "") +cFUNC; НЕВЫПОЛНЕНИЕ ОБЯЗАТЕЛЬСТВА
* fnCUROBJ
ДЕЙСТВИТЕЛЬНОЕ (@mCHOICE) 1 РАЗМЕР 1, ДЕЙСТВИТЕЛЬНОЕ примечание
* fnCUROBJ nSIZE2 (@mCHOICE): nSIZE2 не использовано любому другому cCHOICES fnCHOICE
PARAMETERS place.
RETURN
FUNCTION, cDEF
ПРОЧИТАЛО mCHOICE mCHOICE
ПРЕДМЕТА ЦИКЛА =
RETURN IIF IIF (LASTKEY () =27, НА (cDEF, cCHOICES), mCHOICE) (mCHOICE > 0, конец
* SUBSTR (cCHOICES, mCHOICE, 1), "") - добавленный для VFP
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - suspend
function mntmnuf4
parameter KeyF_no
* сделайте случай KeyF_no = 1
case
KeyF1 =. Случай KeyF_no = 2
T.
KeyF2 =. Случай KeyF_no = 3
T.
KeyF3 =. Случай KeyF_no = 4
T.
KeyF4 =. Случай KeyF_no = 5
T.
KeyF5 =. Случай KeyF_no = 6
T.
KeyF6 =. Случай KeyF_no = 8
T.
KeyF8 =. Случай KeyF_no = 9
T.
KeyF9 =. Случай KeyF_no = 10
T.
KeyF10 =. Случай KeyF_no = 11
T.
KeyF11 =. s_FkeyRec endcase
T.
= s_prgname
recno () = prog_name
если prog_name = «ПОДЛЕЖАЩЕ УПЛАТЕ» и псевдоним () = s_FkeyPag
«PAYDETL " = s_FkyMRec payable
2
отборное = choice
plain
return
*L
function maintmnu5
* VARIABLES
chr клавиатуры endif
recno () (113) приватное приватное все как выбор prompt*
= 0
prompt1 =» прекращенное «
prompt2 =
* WINDOWS
» Modi «определяют окно MAINTMNU от 22.0 до 24.79; название» обслуживание
управляет меню»; цветовая схема 2
/>
* SCREEN
НА КЛЮЧЕВОМ ЯРЛЫКЕ Alt+F12 SUSPEND
активирует noshow
* 1 2
окна MAINTMNU @ 0, 1 говорит 'прекращенный br/>*L
Modi'< на ключевом ярлыке F7 делает genhlp с ПОТРЕБИТЕЛЕМ && программы, котор () HELP
активирует окно MAINTMNU
@ 0, 1-1 проворное prompt1
@ 0, 6-1 проворное меню prompt2
к choice
делает выбор случая case
= вариант MAINTMNU
окна отпуска 0
= 'выбор случая br/>
quit'< = вариант MAINTMNU
окна отпуска 1
= 'выбор случая br/>
quit'< = вариант 2
= 'br modify'< endcase
/>
выключает out_dev
option
*L
function MAINTMNU
return окна определяет fil_wndw окна от 1.40 до 6.77 двойная цветовая схема, котор 12
активирует коллектор fil_wndw
окна = 'br/> @ 1.00 Print'< говорит космос (19-len (коллектор) /2) + header
@ 3.04 говорят 'br/> Screen'< подсказки 3.05 br/> '< @ '@ 3.16 меню br/>
File'< подсказки 3.26 br/> Laser'< подсказки '@ 'к fil_opt
если fil_opt = вариант 1
= 'к endif
br/> screen'< если fil_opt = вариант 2
= 'к endif
br/> laser'< если fil_opt = 3
= 'к akl ********** save_rec
*L
function databases
all
usr_wndw
restenvr
function/>*L
return '' databases
return all
окна выставки fil_wndw
return '' restenv
*L
function для i=1 к i_str no_pages
= str (I, 1)
если endfor
, то endif
usr_wndw&i_str
окна отпуска
wexist ('i_str usr_wndw'+) если wexist, то («screen
@ 0.62 acti endif
maintmnu
окна отпуска ")
говорят космос (7)
@ 0.70 говорят космос (9)
окна отпуска endif
br/> file'< близкому: Во-первых, проверите правописание рекордного 3/19/96 am
1:55 если prog_name = «ПРЕДЛАГАЕТ ЦЕНУ» prog_name .or = «ПОДРЯД» .or. ; prog_name
= prog_name .or «ФАКТУРЫ» = «SUBRENT» .or. ; prog_name
= «СОСТАВЛЯЕТ КАРТУ» prog_name .or = «HELTHCRT "
делает SpellChk с показателем && «Rec» (Rec) или
поля (Fld) если право (sys (16.3), 8) = «USDA.FXP "
делает getfldA с» .t. «
делает getfldB с else
» .t. «делает getfld с
********** endif
endif
» .t. «если подтвердите, то («за исключением рекордного ")
прилагают blank
если право, то (sys (16.3), 12) = sele 2
«CONTRACT.FXP " прилагает sele 3
blank
прилагает blank
/>/> = akl **********
rlock (): DHR - Am
12:37 поля USDA.NAME 7/23/96 если prog_name =
«DHR " usda = memo
, то сбора
********** endif
usda.usda
memvar если право (sys (16.3), 12) = unlock
endif
sele 1
memvar
сбора sele 3
memvar
сбора sele 2
«CONTRACT.FXP " * переустановите filter
, то если .not опорожняют, то (фильтр ())
* Проверите если record_no filter
спичек показателя = скип -1
, то skip
recno () если && record_no <> recno () отсутствие match
=
_begin () если && &at_eof извлекает to
, то фильтра filter
установленное идет endif
, то endif
endif
record_no
возвращенное && sav_wind endif
return .f.
*L
procedure .t. соединенное к F10 w_name
параметра gen_hlp
заменяет ть чело с wlrow (w_name), bcol с wlcol (w_name); erow
с wlrow (w_name) + wrows (w_name) + 1; ecol
с wlcol (w_name) + wcols (w_name) + && ctrl-W chr клавиатуры 1
(23) для того чтобы выйти окно с set_bndry
save
return
*L
function * установленным скипом -1
boundaries
если top_mark
bof () = top_mark else
0
= скип 1
, то endif
скипа 1
recno () если bot_mark
eof () = () stp_prnt
*L
function -1
endif
-1
= recno/>return '' на zoom_no escape
= zoom_num 1
= '1 ' brk_no
= brk_num 1
= '1 ', то
выбирает done_cond 1
= '
return &ndx_exp>last_val.or.eof () 'к n_vald_fld val_fil
parameters _print
*L
function, ref_fld, vald_alias, getpos, vald_fld fld_size
= clear
screen
acti off
взгляда &n_vald_fld
if .f.
установленному для I = 1 к 25
?
next
?
? «Параметры: «
? «n_vald_fld > " +n_vald_fld+ " < "
? «vald_fld > " +vald_fld+ " < "
? «ref_fld = «+ref_fld
? «vald_alias = «+vald_alias
? «getpos = «
?? getpos
? «fld_size = «
?? at_eof fld_size
endif
приватное, at_bof, комплект record_no
сообщает is_valid off
= at_eof .f.
= 'at_bof
eof () '= 'save_alias
bof () '= empty_field
псевдонима () =. &vald_alias
F.
отборное делает тип случая case
(«vald_fld») = 'srch_str br/> D'< = str (год (m->vald_fld), 4) + str (месяц (vald_fld), 2)+str (день (vald_fld), тип случая 2)
(«vald_fld») = 'srch_str br/> N'< = str (vald_fld, fld_size)
если vald_fld = empty_field 0
=. Srch_str otherwise
endif
T.
= vald_fld
если len, то (уравновешивание (vald_fld)) = empty_field 0
=. Endcase
endif
T.
если тип («vald_fld») = 'br/> N'< размещает для &ref_fld = val srch_str
if .f.
искати else
(srch_str)?
? «Изыскивающ > " +srch_str+ " < "
если ое ()
? «Ое " else
? «Ое " endif
if .f.
endif
endif
?
? «eof () = «
??
endif
eof () если is_valid found
&& .not eof () = else
.t.
если empty_field
если право (sys (16.3), 12) = is_valid
«CRITTERS.FXP " = is_valid else
.f.
= leftpos off
srch_str
искати on
else
endif
.t.
установленные близкие установленные близкие =
iif (getpos > 40.4.43) определяют brws_wndw окна от 6, то, leftpos до 15, leftpos+30; поплавок сигнала системы
растет близкая цветовая схема 10
на ключевом ярлыке ВПИСЫВАЕТ
chr клавиатуры (23) активирует noshow
brws_wndw окна просматривает последнее noappend nomodify clear
screen
acti off
взгляда brws_wndw
if .f.
окна отпуска brws_wndw
окна nodelete установленное для I = 1 к 25
?
next
? «> " +type (ref_fld) + " < "
? «> " +ref_fld+ " < "
? «> " +&ref_fld+ " < "
endif
делают тип случая case
(«ref_fld») = 'br/>if .f.
C'? «Полем будет
ХАРАКТЕР "? «тип (ref_fld) = > " +type (ref_fld) + " < "
? «ref_fld = > " +ref_fld+ " < "
? «&ref_fld = > имя
«m->name " " +&ref_fld+ " < "
на ключевом &ref_fld
клавиатуры suspend
endif
* ENTER
* ярлыка делает n_vald_fld случая case
= = is_valid gets
выставки &ref_fld
= n_vald_fld случая .t.
= anml_name
«m->anml_name " = is_valid gets
выставки &ref_fld
= n_vald_fld случая .t.
= crit_name
«m->crit_name " = is_valid gets
выставки &ref_fld
= n_vald_fld случая .t.
= job_no
«m->job_no " = is_valid gets
выставки &ref_fld
= n_vald_fld случая .t.
= map_no
«m->map_no " = is_valid gets
выставки &ref_fld
= тип случая endcase
.t.
(ref_fld) = 'тип случая
dtoc клавиатуры br/> D'< (&ref_fld) (ref_fld) = 'ltrim клавиатуры br/> N'< (str (&ref_fld))endcase
на ключевом ярлыке ВПИСЫВАЕТ && переподчиняет первоначально endif
if .f.
endif
value
?
? «> " +type (ref_fld) + " < "
? «> " +ref_fld+ " < "
? «> " +&ref_fld+ " < "
?
«is_valid= "?? комплект &save_alias
is_valid
endif
отборный сообщает vald_fld orig_val_fil
parameters is_valid
*L
function off
return, ref_fld, vald_alias, getpos, screen
clear
for iего = 1 off
acti взгляда fld_size
set к 25
?
next
?
? «Параметры: «
? «vald_fld > " +vald_fld+ " < "
? «ref_fld = «+ref_fld
? «vald_alias = «+vald_alias
? «getpos = «
?? getpos
? «fld_size = «
?? at_eof fld_size
приватное, at_bof, комплект record_no
сообщает is_valid off
= at_eof .f.
= 'at_bof
eof () '= 'save_alias
bof () '= empty_field
псевдонима () =. &vald_alias
F.
отборное делает тип случая case
(«vald_fld») = 'srch_str br/> D'< = str (год (m->vald_fld), 4) + str (месяц (vald_fld), 2)+str (день (vald_fld), тип случая 2)
(«vald_fld») = 'srch_str br/> N'< = str (vald_fld, fld_size)
если vald_fld = empty_field 0
=. Srch_str otherwise
endif
T.
= vald_fld
если len, то (уравновешивание (vald_fld)) = empty_field 0
=. Endcase
endif
T.
если тип («vald_fld») = 'br/> N'< размещает для &ref_fld = val srch_str
искати else
(srch_str)?
? «Изыскивающ > " +srch_str+ " < "
if нашли ()
? «Ое "
else
? «Ое " endif
endif
?
? «eof () = «
??
eof () если is_valid found
&& .not eof () = else
.t.
если empty_field
если право (sys (16.3), 12) = is_valid
«CRITTERS.FXP " = is_valid else
.f.
= leftpos off
srch_str
искати on
else
endif
.t.
установленные близкие установленные близкие =
iif (getpos > 40.4.43) определяют brws_wndw окна от 6, то, leftpos до 15, leftpos+30; поплавок сигнала системы
растет близкая цветовая схема 10
на ключевом ярлыке ВПИСЫВАЕТ
chr клавиатуры (23) активирует noshow
brws_wndw окна просматривает последнее noappend nomodify clear
screen
acti off
взгляда brws_wndw
*if .f.
окна отпуска brws_wndw
окна nodelete установленное для I = 1 к 25
?
next
? «> " +type (ref_fld) + " < "
? «> " +ref_fld+ " < "
? «> " +&ref_fld+ " < "
?
если
chrsaw ()? «Буфером клавиатуры не будет пустое " else
? «Буфером клавиатуры будет пустое " endif
*endif
делает тип случая case
(ref_fld) = 'br/> C'? «Полем будет
ХАРАКТЕР "? «тип (ref_fld) = > " +type (ref_fld) + " < "
? «ref_fld = > " +ref_fld+ " < "
? «&ref_fld = > " +&ref_fld+ " < " тип случая plain
&& &ref_fld клавиатуры
(ref_fld) = 'тип случая
dtoc клавиатуры br/> D'< (&ref_fld) (ref_fld) = 'ltrim клавиатуры br/> N'< (str (&ref_fld))endcase
/>*is_valid = .t.
на ключевом ярлыке ВПИСЫВАЕТ && переподчиняет первоначально endif
if .f.
endif
value
?
если
chrsaw ()? «Буфер клавиатуры не пуст. «
? » Буфер содержит: > "
?? 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
? «Буфером клавиатуры будет пустое " endif
endif
?
? «> " +type (ref_fld) + " < "
? «> " +ref_fld+ " < "
? «> " +&ref_fld+ " < "
?
«is_valid= "?? комплект &save_alias
suspend
*endif
is_valid
* отборный сообщает getcond параметров var_get
is_valid
*L
function off
return, было создано fld_usg
* левая стрелка Check
* эта функция потому что Донна хотело ударить левую стрелку Key
* и иметь стрелку пойти к последнему полю ранее экрана. На this
* оно setup для подрядов. 10/05/99 am
10:19 если право (sys (16.2), 12) =
«CONTRACT.FXP " если page_no = 1
если LArrow =. T.
LArrow =. F.
NewOnum = _curobj 28
= endif
NewOnum
endif
akl=.F.
если право (sys (16.2), 11) = «INVOICE.FXP» .and выпрямляют (sys (16.7), 12) endif
=
akl=.T.
«FS_SPELL.FXP " активируют zoom_num x_zoom
&getcond
*L
function endif
return spell_win
окна = str, то (zoom_no, at_bof 1)
= at_eof at_bof&zoom_num
= at_eof&zoom_num
ndx_var = first_page ndx_var&zoom_num
= val (substr (page_seq&zoom_num, 1.1))last_page
= val (substr (page_seq&zoom_num, len (page_seq&zoom_num), 1))
* если новая страница, показывает новое screen
, то если page_no page_no
<> first_page = first_page
делают redisp_fld disscr
= endif
, то .t.
* отборная новая зона сигнала, установило новую верхнюю часть и marks
дна выбирает record_no &zoom_num
=
recno () если zoom_no = 1 reccount .or () = top_mark 0
= bot_mark 0
= else
-1
lnk_var = &lnk_var
искати lnk_var&zoom_num
если endif
скипа -1
bof .not () если bof() top_mark
= top_mark else
0
= endif
recno () если bot_mark endif
skip
.not eof () = && -2, котор нужно быть определенный в zoom_no endif _end
funcion =
function y2kfix1
parameter FieldName
* 1
return '' вызывая синтаксис:, то действительное y2kfix1 (sys (18))
MoValu = str (месяц (m.&FieldName), 2, 0)
DyValu = str (день (m.&FieldName), 2.0)
YrValu = str (год (m.&FieldName), 4,0)
YrRHT = право (YrValu, 2)
если val <= 99
YrLFT >= 80 .and (YrRHT) val (YrRHT) = «19 " else
YrLFT
= «20 " endif
YrValu
= &FieldName YrLFT+YrRHT
=
return ctod» (MoValu+/» «+DyValu+/«+YrValu).
**
* *** ********** ********** ********** ********** ********** ************************** T.
*L
остальнои этого архива будет для новых экранов поля scrolling с *
* способность к от первого поля в настоящее время экрана к дали полю *
* на последнем месте ранее экрана, котор что в настоящее время экран не будет экраном *
* первого. В ключ проигнорирован. Ключ *
* не был изменен в любом случае. Перечислять - Multi редактируйте *
* am 2:07 окна 10/16/95 добавил - 10/29/95 _newadd
function *** ********** ********** ********** ********** ********** ************************** *
**
am 2:10 если zoom_no = 1
идут endif
, то bottom
делает str_empty
делает default
= () _newcopy
*=============================================================================
function
return ''/> =
return '' прекращени прекращение _newmodify
*L
function = .f.
newadd_rec () на ключевом ярлыке PGUP делает NewPageUp
на ключевом ярлыке PGDN делает NewPageDn
если getcond modify_key
=» «g», то $ fld_usg " getcond else
=» fld_usg .and .not «g» $. Fld_usg " getcond endif
=» '
«k» $ fld_usg G'$ " если право, то (sys (16.3), 8) =
«USDA.FXP " делает getfldA с
» .t. «делает getfldB с else
» .t. «делает getfld с s_lastkey read
endif
» .t. «=
lastkey () * CLEANUP
на ключевом ярлыке PGUP
на ключевом stat to
сообщения PGDN
ярлыка установленном установленном с && это должно быть положено внутри потому что STAT && SET
самостоятельно не стер message
если akl_test $ 'on
stat br/> Yy'< установленное установленное endif
on
, котор esca если s_lastkey = 27 прекращени прекращение Esc
&& =
возвращения '' endif
* проверка для s_recno duplicate
= &ndx_var
искати
recno () если allow_dup&zoom_num
= dismsg, то (chr (7) + «прекращени прекращение ")
показателя дубликата позволенные = endif
return
.t.
переход s_recno
* покажите поля взгляда вверх и вычисленное variables
, то делает lookup
делает calcul с .t.
если право, то (sys (16.3), 8) = «USDA.FXP " .t.
делает getfldA с делают getfldB с else
» .t. «/> делают getfld с akl ********** gets
endif
» .t. «ясным: Во-первых, проверите правописание рекордного 3/19/96 am
1:55 если prog_name = «ПРЕДЛАГАЕТ ЦЕНУ» prog_name .or = «ПОДРЯД» .or. ; prog_name
= prog_name .or «ФАКТУРЫ» = «SUBRENT» .or. ; prog_name
= «СОСТАВЛЯЕТ КАРТУ» prog_name .or = «HELTHCRT "
делает SpellChk с «Rec» показателем && (Rec) или
поля (Fld) если право, то (sys (16.3), 8) = «USDA.FXP "
делает getfldA с» .f. «
делает getfldB с» .f. «else
делает getfld с» .f. «
********** endif
endif
делает calcul с .t.
если abort
, то .not если подтвердите, то («за исключением рекордного save_rec ")
=. Memo
сбора T.
memvar если право (sys (16.3), 12) = s_lastkey
*L
function NewPageDn
endif
endif
endif
1
memvar
3
memvar
2
"
return '' «CONTRACT.FXP =
lastkey () делают _curobj случая case
< _curobj 20
= _curobj случая 20
= _curobj 20
= _curobj случая 21
= _curobj 21
= s_lastkey endcase
return
*==========================================================================
function NewPageUp
22
=
, то lastkey () делает _curobj случая case
= _curobj 20
= _curobj случая 1
= _curobj 21
= _curobj случая 20
= _curobj 22
= spelling
* проверки endcase
return
*L
function SpellChk
parameters CheckType
* 21
для того чтобы проверить правописание, одно поле одновременно, положенное «
* ДЕЙСТВИТЕЛЬНОГО SPELLCHK («Fld ") «в «@… ПОЛУЧАЮТ» statement.
установленное off
часов если CheckType = && «Fld» это проверит поле, то по мере того как будет exited.
FieldToCheck =
FieldText = m.&FieldToCheck
VarRead () если .not опорожняют, то (уравновешивание (FieldText))
делает fs_modal с. T.. Endif
endif
F.
если CheckType = && «Rec» это проверит ВСЕ поля в bu_cancel screen.
= 0 &&, то если cancles потребителя, FS_SPELL () установят его к номеру field_max 1.
= && FCOUNT () полей в в настоящее время record.
ДЛЯ field_num = 1 К петле && field_max до весь экран fields.
, то ЕСЛИ ТИП, то (ПОЛЕ (field_num)) $ && «MC» если fld_name памятки или характера field.
= && ПОЛЯ (field_num) обусловливают name.
поля contents.
, то поля выдержки && fld_2check = m.&fld_name ЕСЛИ len, то (уравновешивание (fld_2check)) > письма 1 потребности 2 && для работы with.
* пробела ÚÄÄÄÄLeave в виду того что только использовано для того чтобы пройти в архив names.
* ³ ÚÄÄÄÄPass в экземпляре памятки, котор нужно быть checked.
* стопом ³ ³ ÚÄÄÄÄDon't после каждого memo.
* v
= FS_SPELL ("", @fld_2check. Звонок Foxspell Checker.
&& F.) m.&fld_name = fld_2check
ENDIF
ENDIF
ЕСЛИ bu_cancel = 1 &&, то если отмененный потребитель, после этого ОКНО ОЖИДАНИЯ exit.
«прекратил spellchecking! «s_sel endif
EXIT
ENDIF
NEXT
= отборное (0)
выбирает on
return часов
use
use
отборное WORDS3
use
отборное WORDS2
WORDS1
отборное (s_sel) установленное. T.
* EOF GENLBR.PRG
class=
|
