________»
@ 3,1 SAY «Причина звільнення: __________»
@ 4,1 SAY «ІПН: _________________________»
@ 5,1 SAY «Серія свідоцтво. налогоплатель.: _"
@ 6,1 SAY «Номер свідоцтво. налогоплатель.: _"
@ 7,1 SAY «Дата свідоцтво. налогоплатель.: __ »
@ 18,4 SAY «гортають»
@ 18,29 SAY «ЗАПИС»
@ 16,0,16,77 BOX
@ 17,26,19,26 BOX
@ 17,52,19,52 BOX
STORE 6 TO holid, date_dis, reason_d, inn, series_tax, num_tax,;
date_tax, up, down, next, previos, find, print, exit
STORE «* Відпустки: ____________________» TO MPROMPTS
@ 1,0 GET holid FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 2,30 GET date_dis SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2
@ 3,30 GET reason_dis SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 4,30 GET inn SIZE 1,12 WHEN edit =. t. COLOR SCHEME 2
@ 5,30 GET series_tax SIZE 1,14 WHEN edit =. t. COLOR SCHEME 2
@ 6,30 GET num_tax SIZE 1,14 WHEN edit =. t. COLOR SCHEME 2
@ 7,30 GET date_tax SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2
STORE «* ВПЕРЕД» TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE «* НАЗАД» TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE «* НАСТУПНА» TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ПОПЕРЕДНЯ» TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ШУКАТИ» TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ДРУК» TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
STORE «* ВИХІД» TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLE
RETURN_TRIP.PRGorg_num1, editj
DEFINE WINDOW win3 FROM 3, 11 TO 20, 68 NOGROW;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW;
NOFLOAT NOZOOM COLOR R + / Nedit =. t.WINDOW win4
@ 0,1 SAY «[Ctrl + T]-видалити запис, [Ctrl + N]-створити нову, [Ctrl + W]-зберегти і вийти»
@ 1,30 SAY «[Ctrl + F]-пошук поля» WINDOW win3
BROWSE FOR org_num=org_num1 TITLE «Відрядження» LOCK 0;
FIELDS start_trp: H=«Дата початку:», closed_trp: H=«Дата закінчення:»,;
destinat: H=«Місце призначення:»
REPLACE org_num WITH org_num1 FOR org_num=0WINDOW win4
@ 0,26 SAY «Натисніть [ESC] для виходу»
@ 1,28 SAY «[Ctrl + F]-пошук поля» WINDOW win3
