REPLACE org_num WITH org_num1 FOR org_num=0
ACTIVATE WINDOW win4
@ 0,26 SAY «Натисніть [ESC] для виходу»
@ 1,28 SAY «[Ctrl + F]-пошук поля» WINDOW win3
BROWSE FOR org_num=org_num1 TITLE «Відпустки» NOAPPEND NOMODIFY NODELETE 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=«Дата закінчення:» TOP=0FOR org_num=org_num1WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUEaWINDOW win4WINDOW win3holid_num WITH f.PRGorg_num1, edit
SELECT d
DEFINE WINDOW win3 FROM 3, 13 TO 20, 67 NOGROW;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW;
NOFLOAT NOZOOM COLOR R + / Nedit =. 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 oth_lang: H=«Мова:», level: H=«Рівень володіння:»
REPLACE org_num WITH org_num1 FOR org_num=0
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 oth_lang: H=«Мова:», level: H=«Рівень володіння:» TOP=0FOR org_num=org_num1
DO WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUE
ENDDOa
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE LANG_NUM WITH f.PRGorg_num1, edit
SELECT h
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 + / Nedit =. 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 date_mov: H=«Дата:», reason_mov: H=«Підстава:», depart: H=«Відділ:»,;
post_mov: H=«Посада:», method_mov: H=«Режим роботи:»
REPLACE o...
