on_mov
? Відділ: , depart
? Посада: , post_mov
? Режим роботи: , method_mov
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Кваліфікаційний розряд: , qual_num
qual_num1=qual_numiFILTER TO org_num=org_num1TOPn=1 TO qual_num1
? Дата: , date_qual, Підстава: , reas_qual
? Кваліфікація: , qualificat
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Відрядження: , trial_num=trial_numjFILTER TO org_num=org_num1TOPn=1 TO trips1
? Дата початку: , start_trp, Дата закінчення: , closed_trp
? Місце призначення: , destinat
? REPLICATE ( - , 39) nFILTER TOa
? SPACE (25), Відпустки: , holid_num_num1=holid_num11FILTER TO org_num=org_num1TOPn=1 TO holid_num1
? Вид відпустки: , kind_hol
? Підстава: , basis_hol
? За час з: , with_hol, За час по: , on_hol
? Дата початку: , d_st_hol, Кількість днів: , amount
? Дата закінчення: , d_en_hol
? REPLICATE ( - , 39) nFILTER TOaCLEARPRINTER OFFCONSOLE ON.PRGWINDOW win3 FROM 3, 11 TO 20, 69 NOGROW; NOZOOM SHADOW CLOSE; Виберіть запис і натисніть lt; ESCAPE gt; COLOR SCHEME 10WINDOW win3NOAPPEND NOMODIFY NODELETE LOCK 0 FIELDS org_num: H= Таб. N: raquo ;,;: H= Прізвище: raquo ;, name: H= Ім'я: , patron: H= батькові: WINDOW win3.PRG Індексую таблиці NOWAIT WINDOWaON org_num TO stuff.idxcON date_begin TO educat.idxdON oth_lang TO language.idxeON date_verd TO convict.idxfON date_relat TO family.idxgON date_wrk TO workcard.idxhON date_mov TO moving.idxiON date_qual TO qualific.idxjON start_trp TO bus_trip.idx11ON with_hol TO holiday.idxCLEAR.PRGWINDOW win3 FROM 7, 10 TO 13, 70 NOGROW; NOZOOM CLOSE COLOR SCHEME 12
ACTIVATE WINDOW win3
@ 0,12 SAY ЦЕ дію знищить всі дані
@ 1,13 SAY Ви впевнені в його необхідності?
STORE 2 TO no, yes * НІ TO MPROMPTS
@ 3,19 GET no FUNCTION MPROMPTS SIZE 1, 8 * ТАК TO MPROMPTS
@ 3,30 GET yes FUNCTION MPROMPTS SIZE 1, 8CYCLEWINDOW win3yes=2 Ініціалізація таблиць NOWAIT WINDOWabcdefghij11CLEAR.PRGasearch.prg
_peject= after PRINTER ONCONSOLE OFF Друк NOWAIT WINDOW=ALLTRIM (company)
? space ((80-len (n))/2), n
?
? SPACE (28), Про Т Д Е Л К А Д Р О В
? REPLICATE ( - , 79)
? SPACE (26), Коротка довідка про співробітника
? REPLICATE ( - , 79)=alltrim (surname) + + alltrim (name) + + alltrim (patron)
? space ((80-len (n))/2), n
? laquo;raquo;=MONTH(birth_date)d=1=laquo;январяraquo;d=2=laquo;февраляraquo;d=3=laquo;мартаraquo;d=4=laquo;апреляraquo;d=5=laquo;маяraquo;d=6=laquo;июняraquo;d=7=laquo;июляraquo;d=8=laquo;августаraquo;d=9=laquo;сентябряraquo;d=10=laquo;октябряraquo;d=11=laquo;ноябряraquo;d=12=laquo;декабряraquo;sex=laquo;Жraquo; OR sex= е
sx1=laquo;Родиласьraquo;=laquo;уроженкаraquo;=laquo;Окончилаraquo;=laquo;Родилсяraquo;=laquo;уроженецraquo;=laquo;Окончилraquo;
ENDIF
? , sx1, DAY (birth_date), n, YEAR (birth_date), року,
? , ALLTRIM (national), , , sx2, ALLTRIM (birthplace), ,
? має , ALLTRIM (citizen), громадянство.
? , sx3, ALLTRIM (NAME_EDU), .
? Сімейний стан: , ALLTRIM (mar_status), . Raquo;
? В даний час працює на посаді: , ALLTRIM (cur_post), ,
? в підрозділі: , ALLTRIM (subdivis), .
? Домашня адреса: , ALLTRIM (address), , , ALLTRIM (region), район. Raquo;
? Домашній телефон: , telephone
?
? SPACE (60), DATE (), г aCLEARPRINTER OFFCONSOLE ON.PRGALL
QUIT
