_end: H=«Закінчив:», education: H=«Освіта:»,;
name_educ: H=«Назва у / з:», dipl: H=«Диплом:»,;
form_tr: H=«Форма навчання:», qualific: H=«Кваліфікація:»,;
special: H=«Спеціальність:"
ENDIFTOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUE
ENDDOa
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE EDU_NUM WITH f.PRGorg_num1, edit
SELECT f
DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW;
NOFLOAT NOZOOM COLOR R + / N
IF edit =. t.
ACTIVATE WINDOW win4
@ 0,1 SAY «[Ctrl + T]-видалити запис, [Ctrl + N]-створити нову, [Ctrl + W]-зберегти і вийти»
@ 1,30 SAY «[Ctrl + F]-пошук поля»
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE «Склад сім'ї» LOCK 0;
FIELDS relation: H=«Ступінь споріднення:», names: H=«Прізвище, ініціали:»,;
date_relat: H=«Дата народження:», expense: H=«На утриманні:»
REPLACE org_num WITH org_num1 FOR org_num=0
ELSE
ACTIVATE WINDOW win4
@ 0,26 SAY «Натисніть [ESC] для виходу»
@ 1,28 SAY «[Ctrl + F]-пошук поля»
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE «Склад сім'ї» NOAPPEND NOMODIFY NODELETE;
LOCK 0 FIELDS relation: H=«Ступінь споріднення:»,;
names: H=«Прізвище, ініціали:», date_relat: H=«Дата народження:»,;
expense: H=«На утриманні:»
ENDIFTOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUE
ENDDOa
RELEASE WINDOW win4
RELEASE WINDOW win3famil_num WITH f.PRGorg_num1, edit11WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R + / Nedit= . t.WINDOW win4
@ 0,1 SAY «[Ctrl + T]-видалити запис, [Ctrl + N]-створити нову, [Ctrl + W]-зберегти і вийти»
@ 1,30 SAY «[Ctrl + F]-пошук поля» WINDOW win3
BROWSE FOR org_num=org_num1 TITLE «Відпустки» LOCK 0;
FIELDS kind_hol: H=«Вид відпустки:», basis_hol: H=«Підстава:»,;
with_hol: H=«За час з», on_hol: H=«За час по:»,;
d_st_hol: H=«Дата початку:», amount: H=«Кількість днів:»,;
d_en_hol: H=«Дата закінчення:» ...
