Author |
Message |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 15 Nov 2007 18:41 Subject: УРОК 202. Окно ввода средствами QINPUT |
Вы еще в aValid прорисовку добавьте В Makerefer ? |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 15 Nov 2007 18:35 Subject: УРОК 202. Окно ввода средствами QINPUT |
Дак в итоге не работает ?
Да нет, типа работает
Только та часть, которая была закрыта справочником или его тенью - восстанавливается позже, чем обновляется.
Было до раскрытия справочника: Ляляля
Выбрали в справочнике: Тратата
После всего получаем: Лятата
(например).
Пройдешь справочник вверх-вниз без Ф2 - перерисовывается нормально. |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 15 Nov 2007 18:27 Subject: УРОК 202. Окно ввода средствами QINPUT |
а вот это надо бы попробовать сделать сначала в MAKEREFERУра, работает {||part_v->( SETSCOPE() ),SayScreen(left(field->name,lName),nTop+2,nLeft+35,'N/BG')}Вот только если раскрыть справочник, то при выборе значения вначале отрабатывает Sa ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 15 Nov 2007 17:54 Subject: УРОК 202. Окно ввода средствами QINPUT |
Ну вот, при начальной отрисовке справочника текущее значение названия рисуется, рамка рисуется. //определим bScrInit
bScrInit:={||DISPBOX(nTop,nLeft,nBot,nRight,("╔═╗║╝═╚║ "),&q ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 12 Nov 2007 23:04 Subject: УРОК 202. Окно ввода средствами QINPUT |
Ну да, попробовал вариант 2 в таком виде: bScrInit:={||SayScreen(tname,11,45,'N/BG'),2}
Результат есть - сразу при формировании окна диалога название текущего значения (tname) рисуется.
Но теперь надо вручную рамку вокруг окна диалога отрисовать, и обновить название его при изменении. Но это уже во вторник, надеюсь. |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 12 Nov 2007 22:46 Subject: УРОК 202. Окно ввода средствами QINPUT |
Да вот, чтобы продвинуться - надо часа на 3 хотя-бы засесть за комп. Пока не получается  |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 09 Nov 2007 19:19 Subject: УРОК 202. Окно ввода средствами QINPUT |
Понял. Попробую  |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 09 Nov 2007 15:45 Subject: УРОК 202. Окно ввода средствами QINPUT |
По всей видимости надо переделывать окно запроса на вариант 2
это без построения станлартной картинки.
Прорисовывать ее самому а поля размещать через указание координатВ смысле без QINPUT ? |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 08 Nov 2007 22:00 Subject: УРОК 202. Окно ввода средствами QINPUT |
ОК, пробую.
Вот такая конструкция - работает:bScrInit:={||SayAndWait(tname),1}
А вот такая - нет:bScrInit:={||SayScreen(tname,11,45,'N/BG'),1}
И такая - нет:bScrInit:={||dispoutat ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 08 Nov 2007 12:25 Subject: УРОК 202. Окно ввода средствами QINPUT |
Владимир сегодня к сожалению только вечеромПонял. Жду. У меня пока тупик, идей нет, только тыком наугад.  |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 08 Nov 2007 08:31 Subject: УРОК 202. Окно ввода средствами QINPUT |
В очередной раз пересчитав запятые, нашел 2 лишних в определении s_t:
//определим справочник типов
part_t->( MAKEREFER("s_t","Тип партнера",2,{" Код "," Тип "},; //1-4
{3,5,16}, "n/w, ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 07 Nov 2007 22:30 Subject: УРОК 202. Окно ввода средствами QINPUT |
Выкладываю:
function main()
Local p_vid,p_typ,p_post,tname:=''
Local aRef,bScrInit_v,bScrInit_t,bTest
Local aSet,aSetKey
altd()
aSet:=SaveSet()
aSetKey:=SaveSetKey ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 07 Nov 2007 22:06 Subject: УРОК 202. Окно ввода средствами QINPUT |
Что-то притихли.
Не получается ?
Да вот, злые клиенты оторвали от компа, добрался обратно только к вечеру
Что-то ничего не получается. Подтянул текущее NAME в переменную tname. Поменял MakeRefer s_t как предложено:,{"CODE","NAME"},{"aIn[1]","tnam ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 07 Nov 2007 12:53 Subject: УРОК 202. Окно ввода средствами QINPUT |
Нуу какие молодцы
Объявим для начала некую переменную допустим tname
До QINPUT на основании поиска в базе заносим туда имя
типа.
Вот про имя типа можно еще, как для прапорщиков (или даже как для генералов)
И вообще, я его правильно - в MakeRefer - определяю? А то в QInput, похоже, тоже такой параметр есть.
Дальше исправляем справочник так чтобы эта переменная заполнялась
значением имени. ... |
Topic: УРОК 202. Окно ввода средствами QINPUT |
vla
Replies: 73
Views: 350619
|
Forum: Программирование в БЭСТ-4 Posted: 07 Nov 2007 12:28 Subject: УРОК 202. Окно ввода средствами QINPUT |
Что получилось в результате многократного подсчета запятых и экспериментов с bScrInit:
Скоп работает.
Справочники ведут себя как нужно - при ручной правке не открываются, если такое значение есть.
Не работает bScrInit. Совсем. Хотя в какой-то момент работал, но только после нажатия Ф2.
Ну и несколько забегая вперед - как организовать добавление в справочники на ходу ?
function main()
Local p_vi ... |
|