ify"> SELECT f
INDEX ON date_relat TO family.idx
SELECT g
INDEX ON date_wrk TO workcard.idx
SELECT h
INDEX ON date_mov TO moving.idx
SELECT i
INDEX ON date_qual TO qualific.idx
SELECT j
INDEX ON start_trp TO bus_trip.idx
SELECT 11
INDEX ON with_hol TO holiday.idxCLEAR.PRGWINDOW win3 FROM 7, 10 TO 13, 70 NOGROW;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 12
ACTIVATE WINDOW win3
@ 0,12 SAY «ЦЕ дію знищить всі дані»
@ 1,13 SAY «Ви впевнені в його необхідності?»
STORE 2 TO no, yes
STORE «* НІ» TO MPROMPTS
@ 3,19 GET no FUNCTION MPROMPTS SIZE 1, 8
STORE «* ТАК» TO MPROMPTS
@ 3,30 GET yes FUNCTION MPROMPTS SIZE 1, 8
READ CYCLE
RELEASE WINDOW win3
IF yes=2
RETURN
ENDIF «Ініціалізація таблиць» NOWAIT WINDOW
SELECT a
ZAP
SELECT b
ZAP
SELECT c
ZAP
SELECT d
ZAP
SELECT e
ZAP
SELECT f
ZAP
SELECT g
ZAP
SELECT h
ZAP
SELECT i
ZAP
SELECT j
ZAP
SELECT 11
ZAP
WAIT CLEAR.PRGasearch.prg
_peject=«after»
SET PRINTER ON
SET CONSOLE OFF
PRINTJOB «Друк» NOWAIT WINDOW
n=ALLTRIM (company)
? space ((80-len (n)) / 2), n
? «»
? SPACE (28), «Про Т Д Е Л К А Д Р О В»
? REPLICATE («-», 79)
? SPACE (26), «Коротка довідка про співробітника»
? REPLICATE («-», 79)
n=alltrim (surname) + « »+ Alltrim (name) +« »+ Alltrim (patron)
? space ((80-len (n)) / 2), n
? «»
d=MONTH (birth_date)
IF d=1
n=«січня»
ENDIF
IF d=2
n=«Лютий»
ENDIF
IF d=3
n=«Березня»
ENDIF
IF d=4
n=«апреля»
ENDIF
IF d=5
n=«травня»
ENDIF
IF d=6
n=«Червень»
