Форум

 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-индекс