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

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

(ant2)


MEMBER('ANT')

R PROCEDURE


SCREEN SCREEN PRE(SCR),WINDOW(1,3),AT(9,77),HUE(0,2)

ENTRY,USE(?FIRST_FIELD)

ROW(1,1) ENTRY,USE(MEM:NR)

NR COL(1) STRING(@n3),HUE(7,7)

ENTRY,USE(?LAST_FIELD)

.


EJECT

CODE

OPEN(SCREEN) !OPEN THE SCREEN

SETCURSOR !TURN OFF ANY CURSOR

DISPLAY !DISPLAY THE FIELDS

LOOP !LOOP THRU ALL THE FIELDS

SCR:NR = MEM:NR

ALERT !RESET ALERTED KEYS

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ACCEPT !READ A FIELD

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


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 ?MEM:NR

XRE:NREGION = MEM:NR !MOVE RELATED FIELDS

GET(XREG,XRE:K1) !READ THE RECORD

ACTION# = ACTION !SAVE ACTION

ACTION = 4 !REQUEST TABLE LOOKUP

REG !CALL LOOKUP PROCEDURE

IF ACTION !NO SELECTION WAS MADE

SELECT(?MEM:NR-1) ! BACK UP ONE FIELD

ACTION = ACTION# ! RESTORE ACTION

CYCLE ! GO TO TOP OF LOOP

.

SCR:NR = XRE:NREGION !DISPLAY LOOKUP FIELD

MEM:NR = XRE:NREGION !MOVE LOOKUP FIELD

DISPLAY(?MEM:NR) !AND DISPLAY IT

ACTION = ACTION# !RESTORE ACTION

MEN2


OF ?LAST_FIELD !FROM THE LAST FIELD

ACTION = 0 ! SET ACTION TO COMPLETE

RETURN ! AND RETURN TO CALLER

. .




Случайные файлы

Файл
103859.rtf
48622.rtf
125357.rtf
30776.rtf
777.doc




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