9 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_qual: H=«Дата:», reas_qual: H=«Підстава:»,;
qualificat: 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 date_qual: H=«Дата:», reas_qual: H=«Підстава:»,;
qualificat: H=«Кваліфікаційний розряд:» TOP=0FOR org_num=org_num1WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUEa
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE qual_num WITH f.PRGorg_num1, editg
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 date_wrk: H=«Дата пост:», date_dism: H=«Дата звільняючи:»,;
name_wrk: H=«Назва установи:», post_wrk: H=«Посада:»,;
reason_wrk: H=«Причина:», basis_wrk: 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 date_wrk: H=«Дата пост:»,;
date_dism: H=«Дата звільняючи:», name_wrk: H=«Назва установи:»,;
post_wrk: H=«Посада:», reason_wrk: H=«Причина:»,;
basis_wrk: H=«Підстава:»
ENDIF
GO TOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF () =. f.
IF FOUND () =. t.
f=f +1
ENDIF
CONTINUE
END...
