Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
03.04.2009
Формат файла
.doc — Microsoft Word
Архив
19249.zip — 400.99 kb
  • avtomatizirovannoe-rabochee-mesto_19249_1.DOC — 96.5 Kb
  • avtomatizirovannoe-rabochee-mesto_19249_2.DOC — 42 Kb
Оцените работу
Хорошо  или  Плохо


Текст работы

************************************************************************************* Дополнение\Изменение данных ***********************************************************************PROCEDURE ins && Процедура Дополнения\ИзмененияPARAMETERS d_insord_a=order()
CLEAR
RELEASE KW,GW,XW,KS,ELC,TL,RD,OT,OR1,LG_TAHIDE POPUP servON KEY LABEL F1 DO HELP WITH 8ON KEY LABEL F7 DO N_YDOS_AND_KODsele aSTORE .F. TO _PAD_OTCHDEFINE POPUP YL FROM 4,10
n=recno()
m=1br=1DIMENSION yl_za(100,1)
go topi=1yl_za(i,1)=ylDO 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
br=br+1ENDDODIMENSION yl_za(m,1)
ON SELECTION POPUP YL DO YLIZ WITH PROMPT()
define window hp from 12,28 to 20,60 shadow color scheme 16DO CASECASE d_ins=1SCATTER MEMVAR BLANKSTORE 1 TO redset skip toCLOSE DATASELE iUSE HELPSELE aUSE RABOTSELE dUSE LGOTCASE d_ins=2IF RECCOUNT()=0RETURNELSEGO MEMVARSTORE 2 TO redENDIFENDCASEACTIVATE WINDOW INS=POS_CH2()
@ 1,10 GET m
@ 2,10 GET b picture '9999' VALID unic() ERROR 'Повтор Табеля'
@ 2,28 GET l picture '99999999'
@ 3,10 GET WHEN yliz_s()
@ 3,30 GET m PICTURE 'NNNN'
@ 3,40 GET _ra picture 'nnnn'
@ 4,10 GET _m picture '###.##' default ''
*@ 5,39 GET l_vo DISABLE*@ 3,2 GET yl_z FUNCTION '*I ' VALID YLIZ1() WHEN INS2() DEFA 1 SIZE 1,7@ 5,35 GET ec picture '999999'
@ 6,35 GET ec1 picture '999999'
@ 5,43 GET or1 FUNCTION '*C Ордер' VALID O_R() DEFA 0 COLOR SCHEME 16@ 6,43 GET lg_ta FUNC '*C Льгота' VALID vib_lg() DEFA .f.COLOR SCHEME 16@ 8,1 to 8,70 double@ 12,2 GET kw FUNCTION '*C Квартплата' DEFAULT .F. VALID KW_INS() COLOR SCHEME 16@



Ваше мнение



CAPTCHA