FUNCTION QInput(nTop, nLeft, nBottom, nRight, aHeads,;
;// 6 7 8 9 10 11 12 13 14 15
nAppp, aRef, aPict, aWhen, aValid, nUnique, bScrInit, bPost, cFltr0, lSpec,;
;// 16 17 18 19 20 21 22 23
aGetBlock, bScrPost, cScope, bPreGet, bPostGet, nTag, lNoAppend, lNoRestScreen,;
;// 24 25 26 27 28 29 30
lGetBlock, cMessSave, bRestSave, bPostRead, lSubIndex, bSayHead, bKeyHead,;
;// 31 32 33 34 35 36 37
aActionKeys, aGetExtTypes, aGetContinue, aTab,lNoScopInFilter, nAuto, bAutoSetValBlock;
)
//lSpec должен присутствовать при входе не через InitList()
//lSpec='REFER'-вход из Refer:цвет,нет цикла,нет поддержки скроллинга,специфические When,Valid
//lSpec='RESTOFF'-вход из ProBase:все как в штатном режиме,но без восст.области
//lSpec='ONLY1INPUT'-нет цикла, вход не из initList и не из s_browse // Вася 002
//Если E VAL(bScrInit)->0,то редактирования не происходит вообще
// lNoAppend - .T., то добавление записи при любом nApp не происходит
// предпологается, что добавление и откат производитс
// в bPreGet и bPostGet
// также происходит сохранение полей даже если не было коррекции
// lGetBlock - .T. в фильтре на поле интервал aGetBlock вешаетс
// на два oGet и ему передается значение,oGet и nPoz ({|x,oGet,nPoz| })
// где nPoz 1-ый или 2-ой эл-т интервала
/// lNoRestScren - .T., то восстановление пред. состояния экрана
// в любом случае не происходит, предполагаетс
// что восстановление либо не требуется, либо
// выполняется в bPostDisp или bScrPost
// cMessSave - запрос о записи документа
// lSubIndex - .T. построение субиндекса при установке фильтра
// иначе ручного индекса
// aTab - передан из initlista. описание см. там же
//lNoScopInFilter - используется при фильтре: не включать скоп в FOR-индекс
|