Материалы сайта
Это интересно
База данных страховой компании
(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 . .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17