next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ПОПЕРЕДНЯ TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ШУКАТИ TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ДРУК TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11 * ВИХІД TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11CYCLE_TRIP.PRGorg_num1, editjWINDOW win3 FROM 3, 11 TO 20, 68 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; start_trp: H= Дата початку: raquo ;, closed_trp: 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 Відрядження NOAPPEND NOMODIFY; 0 FIELDS start_trp: H= Дата початку: raquo ;, closed_trp: H='Дата
закінчення: laquo ;,;: H= Місце призначення: '
ENDIFTOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3trial_num WITH f.PRGorg_num1, editeWINDOW win3 FROM 3, 5 TO 20, 75 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_verd: H= Дата винесення вироку: raquo ;, article: 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 Наявність судимості ; NOMODIFY NODELETE LOCK 0; date_verd: H= Дата винесення вироку: raquo ;, article: H= Стаття: raquo ;,;: H= Термін: TOP=0FOR org_num=org_num1WHILE EOF ()= .f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3conv_num WITH f.PRGorg_num1, editcWINDOW win3 FROM 3, 0 TO 20, 79 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_begin: H= Поступив: , date_end: H= Закінчив: raquo ;,;
education: H= Освіта: , name_educ: H= Назва у/з: raquo ;,;: H= Диплом: , form_tr: H= Форма навчання: raquo ;,;: H= Кваліфікація: , special: 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 Освіта (додатково) NOAPPENDNODELETE LOCK 0 FIELDS date_begin: H= Поступив: raquo ;,; _end: H= Закінчив: raquo ;, education: H= Освіта: raquo ;,; _educ: H= Назва у/з: , dipl: H= Диплом: raquo ;,;
form_tr: H= Форма навчання: , qualific: H= Кваліфікація: raquo ;,;
special: H= Спеціальність: TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3EDU_NUM WITH f.PRGorg_num1, editfWINDOW win3 FROM 3, 0 TO 20, 79 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; relation: H= Ступінь споріднення: raquo ;, names: H= Прізвище, ініціали: raquo ;,;
date_relat: H= Дата народження: raquo ;, expense: 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; 0 F...
