База данных страховой компании (DOCA2)

Посмотреть архив целиком

(ant1)


MEMBER('ANT')

GBO1 PROCEDURE

SCREEN SCREEN PRE(SCR),WINDOW(12,73),AT(6,6),HUE(15,5)

ROW(2,24) PAINT(1,21),HUE(11,5)

ROW(11,22) PAINT(1,31),HUE(30,1)

ROW(1,1) STRING('+-{71}+')

ROW(2,1) REPEAT(10);STRING('¦<0{71}>¦') .

ROW(12,1) STRING('+-{71}+')

ROW(2,24) STRING('<128>àíàëèòè÷åñêèå<0>òàáëèöû') ROW(11,30)

STRING('íà÷àëüíàÿ<0>ñîðòèðîâêà')

COL(25) STRING('F2 -')

ENTRY,USE(?FIRST_FIELD)

ENTRY,USE(?PRE_MENU)

MENU,USE(MENU_FIELD"),REQ

ROW(4,5) STRING('1. <145>âåäåíèÿ îá èçìåíåíèè îòäåëüíûõ ' |

& 'ïîêàçàòåëåé äåÿòåëüíîñòè <145,142>')

ROW(5,5) STRING('2. <128>àíàëèç ïîêàçàòåëåé ðàçâèòèÿ ' |

& 'ñòðàõîâûõ îðãàíèçàöèé')

ROW(6,5) STRING('3. <142>îáúåì ïîñòóïëåíèé è âûïëàò íà 1 ' |

& 'ðàáîòíèêà ñòðàõîâîé îðãàíèçàöèè')

. .

EJECT

CODE

OPEN(SCREEN) !OPEN THE MENU SCREEN

SETCURSOR !TURN OFF ANY CURSOR

MENU_FIELD" = '' !START MENU WITH FIRST ITEM

LOOP !LOOP UNTIL USER EXITS

ALERT !TURN OFF ALL ALERTED KEYS

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(F2_KEY) !ALERT HOT KEY

ACCEPT !READ A FIELD OR MENU CHOICE

IF KEYCODE() = F2_KEY !ON HOT KEY

UPDATE(?) ! RETRIEVE FIELD

SAVACTN# = ACTION ! SAVE ACTION

S ! CALL HOT KEY PROCEDURE

ACTION = SAVACTN# ! RESTORE ACTION

SELECT(?) ! DO SAME FIELD AGAIN

CYCLE ! AND LOOP AGAIN

.

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?PRE_MENU !PRE MENU FIELD CONDITION

IF KEYCODE() = ESC_KEY ! BACKING UP?

SELECT(?-1) ! SELECT PREVIOUS FIELD

ELSE ! GOING FORWARD

SELECT(?+1) ! SELECT MENU FIELD

.

OF ?MENU_FIELD" !FROM THE MENU FIELD

EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE

AT1 !

AT2 !

AT3 !

. . .







Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.