/p>
SELECT b
DELETE FOR org_num=org_num1
SELECT c
DELETE FOR org_num=org_num1
SELECT d
DELETE FOR org_num=org_num1
SELECT e
DELETE FOR org_num=org_num1
SELECT f
DELETE FOR org_num=org_num1
SELECT g
DELETE FOR org_num=org_num1
SELECT h
DELETE FOR org_num=org_num1
SELECT i
DELETE FOR org_num=org_num1
SELECT j
DELETE FOR org_num=org_num1
SELECT 11
DELETE FOR org_num=org_num1
ENDIF
SELECT a_W.PRGedit, type, up, down, next, previos, find, print, exit, eduadd, forlang,;, structfam, pass, bok, purpos, qualcateg, tripsbus, holid
list=1
exit=5COLOR TO N / W + A
IF RECCOUNT ()=0
APPEND BLANK
ENDIF
DEFINE WINDOW win0 FROM 0, 0 TO 2, 79 NOGROW;
NOFLOAT NOZOOM COLOR W + / N
DEFINE WINDOW win1 FROM 3, 0 TO 24, 79 NOGROW;
NOFLOAT NOZOOM COLOR GR + / B
DO WHILE exit <> 1
ACTIVATE WINDOW win0
CLEAR
@ 0,8 SAY ALLTRIM (surname) + « »+ ALLTRIM (name) +« »+ ALLTRIM (patron)
IF type=1
@ 0,63 SAY «ПЕРЕГЛЯД ДАНИХ»
ENDIF
IF type=2
@ 0,57 SAY «РЕДАКТИРОВАНИЕ ДАНИХ»
ENDIF
IF type=3
@ 0,61 SAY «ДОДАВАННЯ ДАНИХ»
ENDIF
IF list=1
@ 0,0 SAY «Екран 1»
DO wiev1.prg WITH edit
ENDIF
IF list=2
@ 0,0 SAY «Екран 2»
DO wiev2.prg WITH edit
ENDIF
IF list=3
@ 0,0 SAY «Екран 3»
DO wiev3.prg WITH edit
ENDIF
IF list=4
@ 0,0 SAY «Екран 4»
DO wiev4.prg WITH edit
ENDIF
IF list=5
@ 0,0 SAY «Екран 5»
DO wiev5.prg WITH edit
ENDIF
IF previos=1
SKIP - 1
IF BOF () =. t.
GO BOTTOM
ENDIF
ENDIF
IF next=1
SKIP 1
IF EOF () =. t.
GO TOP
ENDIF
ENDIF
IF down=1
IF list <> 1
list=list - 1...
