10 WHEN edit=.t. COLOR SCHEME 2
@ 13,30 GET corps_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 14,30 GET flat_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2 * ВИХІД TO MPROMPTS
@ 18,34 GET end FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11CYCLEaWINDOW win3.PRGorg_num1, editiWINDOW win3 FROM 3, 10 TO 20, 69 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R +/Nedit=.t.WINDOW win4
@ 0,1 SAY '[Ctrl + T] -удалить запис, [Ctrl + N] -створити нову, [Ctrl + W] -
зберегти і вийти '
@ 1,30 SAY [Ctrl + F] -пошук поля
ACTIVATE WINDOW win3FOR org_num=org_num1 TITLE Кваліфікаційний розряд LOCK 0; date_qual: H= Дата: raquo ;, reas_qual: H= Підстава: raquo ;,;: H= Кваліфікаційний розряд: org_num WITH org_num1 FOR org_num=0WINDOW win4
@ 0,26 SAY Натисніть [ESC] для виходу
@ 1,28 SAY [Ctrl + F] -пошук поля WINDOW win3FOR org_num=org_num1 TITLE Кваліфікаційний розряд NOAPPENDNODELETE LOCK 0; date_qual: H= Дата: raquo ;, reas_qual: H= Підстава: raquo ;,;
qualificat: H= Кваліфікаційний розряд:
GO TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3qual_num WITH f.PRGorg_num1, editgWINDOW win3 FROM 3, 0 TO 20, 79 NOGROW; NOZOOM CLOSECOLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R +/Nedit=.t.WINDOW win4
@ 0,1 SAY '[Ctrl + T] -удалить запис, [Ctrl + N] -створити нову, [Ctrl + W] -
зберегти і вийти '
@ 1,30 SAY [Ctrl + F] -пошук поля
ACTIVATE WINDOW win3FOR org_num=org_num1 TITLE Трудова книжка LOCK 0; date_wrk: H= Дата пост: raquo ;, date_dism: H= Дата звільняючись: raquo ;,;
name_wrk: H= Назва установи: raquo ;, post_wrk: H= Посада: raquo ;,;
reason_wrk: H= Причина: , basis_wrk: H= Підстава:
REPLACE org_num WITH org_num1 FOR org_num=0WINDOW win4
@ 0,26 SAY Натисніть [ESC] для виходу
@ 1,28 SAY [Ctrl + F] -пошук поля WINDOW win3FOR org_num=org_num1 TITLE Трудова книжка NOAPPEND NOMODIFY; LOCK 0 FIELDS date_wrk: H= Дата пост: raquo ;,;
date_dism: H= Дата звільняючись: raquo ;, name_wrk: H= Назва установи: raquo ;,; _wrk: H= Посада: , reason_wrk: H= Причина: raquo ;, ;
basis_wrk: H= Підстава: TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3record_num WITH f.PRGa=alltrim (surname) + laquo ; + alltrim (name) + + alltrim (patron)
_peject= after PRINTER ONCONSOLE OFF
? space ((80-len (n))/2), n Друк NOWAIT WINDOW
? cFILTER TO org_num=org_num1TOPn=1 TO EDU_NUM1
? Поступив: , date_begin, Закінчив: , date_end
? Назва у/з: , name_educ
? Освіта: , education
? Диплом: , dipl
? Форма навчання: , form_tr
? Кваліфікація: , qualific
? Спеціальність: , special
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Володіння иностран. мовами: , LANG_NUM
LANG_NUM1=LANG_NUMd
SET FILTER TO org_num=org_num1TOPn=1 TO LANG_NUM1
? Мова: , oth_lang, Рівень володіння: , level
SKIPnFILTER TOa
? SPACE (25), Наявність судимості: , conv_num_num1=conv_numeFILTER TO org_num=org_num1TOPn=1 TO conv_num1
? Дата винесення вироку: , date_verd
? Стаття: , article, Термін: , period
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Склад сім'ї: , famil_num_f1=famil_numfFILTER TO org_num=org_num1TOPn=1 TO struct_f1
? Дата народження: , date_relat, Прізвище, ініціали: , names
? Ступінь споріднення: , relation, На утриманні: , expense
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (12), Паспортні дані: , passportbTOP=0FOR org_num=org_num1WHILE EOF () =. F.FOUND () =. T.=F + 1FILTER TO org_num=org_num1TOPn=1 TO f
? Ким виданий: , exp_given
? Дата видачі: , date_distr
? SPACE (25), Прописка:
? Індекс: , index_p
? Область: , area_p
? Район: , region_p
? Місто: , city_p
? Населений пункт: , point_p
? Вулиця: , street_p
? Будинок: , house_p
? Корпус: , corps_p
? Квартира: , flat_p
NEXT nFILTER TOa
? SPACE (25), Трудова книжка: , record_num_num1=record_numgFILTER TO org_num=org_num1TOPn=1 TO record_num1
? Дата постановки: , date_wrk, Дата звільнення: , date_dism
? Назва установи: , name_wrk
? Посада: , post_wrk
? Причина: , reason_wrk
? Підстава: , basis_wrk
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Призначення і переміщення: , purpos_num
purpos_num1=purpos_numhFILTER TO org_num=org_num1TOPn=1 TO purpos_num1
? Дата: , date_mov, Підстава: , reas...
