n="justify">? « Квартира: », flat_p
SKIPnFILTER TOa
? SPACE (25), «Трудова книжка:», record_num_num1=record_numgFILTER TO org_num=org_num1
GO TOPn=1 TO record_num1
? « Дата постановки: », date_wrk,« Дата звільнення: », date_dism
? « Назва установи: », name_wrk
? « Посада: », post_wrk
? « Причина: », reason_wrk
? « Підстава: », basis_wrk
? REPLICATE («-», 39)
SKIPnFILTER TOa
? SPACE (25), «Призначення і переміщення:», purpos_num_num1=purpos_numhFILTER TO org_num=org_num1
GO TOPn=1 TO purpos_num1
? « Дата: », date_mov,« Підстава: », reason_mov
? « Відділ: », depart
? « Посада: », post_mov
? « Режим роботи: », method_mov
? REPLICATE («-», 39)
SKIPnFILTER TOa
? SPACE (25), «Кваліфікаційний розряд:», qual_num_num1=qual_numiFILTER TO org_num=org_num1
GO TOPn=1 TO qual_num1
? « Дата: », date_qual,« Підстава: », reas_qual
? « Кваліфікація: », qualificat
? REPLICATE («-», 39)
SKIPnFILTER TOa
? SPACE (25), «Відрядження:», trial_num=trial_numjFILTER TO org_num=org_num1
GO TOPn=1 TO trips1
? « Дата початку: », start_trp,« Дата закінчення: », closed_trp
? « Місце призначення: », destinat
? REPLICATE («-», 39)
SKIPnFILTER TOa
? SPACE (25), «Відпустки:», holid_num_num1=holid_num11FILTER TO org_num=org_num1
GO TOPn=1 TO holid_num1
? « Вид відпустки: », kind_hol
? « Підстава: », basis_hol
? « За час з: », with_hol,« За час по: », on_hol
? « Дата початку: », d_st_hol,« Кількість днів: », amount
? « Дата закінчення: », d_en_hol
? REPLICATE («-», 39)
SKIPn
SET FILTER TO
SELECT aCLEAR
ENDPRINTJOB
SET PRINTER OFF
SET CONSOLE ON.PRGWINDOW win3 FROM 3, 11 TO 20, 69 NOGROW; NOZOOM SHADOW CLOSE; «Виберіть запис і натисніть » COLOR SCHEME 10WINDOW win3
BROWSE NOAPPEND NOMODIFY NODELETE LOCK 0 FIELDS org_num: H=«Таб. N: »,;
surname: H=«Прізвище:», name: H="Ім'я:», patron: H=«батькові:» WINDOW win3
RETURN.PRG «Індексую таблиці» NOWAIT WINDOW
SELECT a
INDEX ON org_num TO stuff.idx
SELECT c
INDEX ON date_begin TO educat.idx
SELECT d
INDEX ON oth_lang TO language.idx
SELECT e
INDEX ON date_verd TO convict.idx
