Реферат: Автоматизированное рабочее место

************************************************************************************* Дополнение\Изменение данных **

*********************************************************************

PROCEDURE ins && Процедура Дополнения\Изменения

PARAMETERS d_ins

ord_a=order()

Возможно вы искали - Реферат: Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы

CLEAR

RELEASE KW,GW,XW,KS,ELC,TL,RD,OT,OR1,LG_TA

HIDE POPUP serv

ON KEY LABEL F1 DO HELP WITH 8

ON KEY LABEL F7 DO N_YDOS_AND_KOD

Похожий материал - Реферат: Автоматизированные рабочие места и их оснащение информационными средствами

sele a

STORE .F. TO _PAD_OTCH

DEFINE POPUP YL FROM 4,10

n=recno()

m=1

Очень интересно - Реферат: Автоматизированные системы ведения истории болезни

br=1

DIMENSION yl_za(100,1)

go top

i=1

yl_za(i,1)=yl

Вам будет интересно - Реферат: Автоматизированные системы обработки информации и управления

DO WHILE !EOF()

DEFINE BAR (br) OF YL PROMPT yl_za(i,1)

IF yl=yl_za(i,1)

skip

loop

Похожий материал - Реферат: Автоматика

ENDIF

m=m+1

i=i+1

yl_za(i,1)=yl