DEFINE BAR 3 OF serv PROMPT « Ініціалізація бази » ;
COLOR SCHEME 3
ON SELECTION BAR 1 OF serv DO index.prg
ON SELECTION BAR 3 OF serv DO initial.prg
DEFINE POPUP lst FROM 1,34 SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF lst PROMPT « Коротка довідка про співробітника » ;
COLOR SCHEME 3
ON SELECTION BAR 1 OF lst DO referen.prg
SHOW MENU MAINMENU
ACTIVATE MENU MAINMENU.PRGa
edit =. f.
type=1r_w.prg WITH edit, type.PRGa
edit =. t.
type=2r_w.prg WITH edit, type.PRGa
edit =. t.
type=3BLANK
DO r_w.prg WITH edit, type_REC.PRGa
DEFINE WINDOW win3 FROM 2, 11 TO 23, 69 NOGROW;
NOFLOAT NOZOOM SHADOW CLOSE;
TITLE «Помітьте що видаляються записи [CTRL + T] і натисніть » COLOR SCHEME 10
ACTIVATE WINDOW win3
ON KEY LABEL ctrl + t DO dl_undl.prg WITH org_num
SET DELETED OFF
BROWSE NOAPPEND NOMODIFY LOCK 0 FIELDS org_num: H=«Таб. N: »,;
surname: H=«Прізвище:», name: H="Ім'я:», patron: H=«батькові:»
ON KEY LABEL ctrl + t
RELEASE WINDOW win3 «Видалення помічених записів» NOWAIT WINDOW
PACK
SELECT b
PACK
SELECT c
PACK
SELECT d
PACK
SELECT e
PACK
SELECT f
PACK
SELECT g
PACK
SELECT h
PACK
SELECT i
PACK
SELECT j
PACK
SELECT 11
PACK
WAIT CLEARDELETED ON_UNDL.PRGorg_num
org_num1=org_num
IF DELETED () =. t.
RECALL
SELECT b
RECALL FOR org_num=org_num1
SELECT c
RECALL FOR org_num=org_num1
SELECT d
RECALL FOR org_num=org_num1
SELECT e
RECALL FOR org_num=org_num1
SELECT f
RECALL FOR org_num=org_num1
SELECT g
RECALL FOR org_num=org_num1
SELECT h
RECALL FOR org_num=org_num1
SELECT i
RECALL FOR org_num=org_num1
SELECT j
RECALL FOR org_num=org_num1
SELECT 11
RECALL FOR org_num=org_num1
ELSE
DELETE <...
