| Author | 
	Message | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 15 Nov 2007 18:41   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	| Вы еще в aValid прорисовку добавьте В Makerefer ? | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 15 Nov 2007 18:35   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Дак в итоге не работает ?
 Да нет, типа работает    
 Только та часть, которая была закрыта справочником или его тенью - восстанавливается позже, чем обновляется.
 Было до раскрытия справочника: Ляляля
 Выбрали в справочнике: Тратата
 После всего получаем: Лятата
 (например).
 Пройдешь справочник вверх-вниз без Ф2 - перерисовывается нормально. | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 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: 14454993 
	 | 
	 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: 14454993 
	 | 
	 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: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 12 Nov 2007 22:46   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Да вот, чтобы продвинуться - надо часа на 3 хотя-бы засесть за комп. Пока не получается    | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 09 Nov 2007 19:19   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Понял. Попробую    | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 09 Nov 2007 15:45   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	По всей видимости надо переделывать окно запроса на вариант 2
 это без построения станлартной картинки.
 Прорисовывать ее самому а поля размещать через указание координатВ смысле без QINPUT ? | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 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: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 08 Nov 2007 12:25   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Владимир сегодня к сожалению только вечеромПонял. Жду. У меня пока тупик, идей нет, только тыком наугад.   | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 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: 14454993 
	 | 
	 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: 14454993 
	 | 
	 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: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 07 Nov 2007 12:53   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Нуу какие молодцы    
 Объявим для начала некую переменную допустим tname
 До QINPUT на основании поиска в базе заносим туда имя
 типа. 
 Вот про имя типа можно еще, как для прапорщиков (или даже как для генералов)    
 И вообще, я его правильно - в MakeRefer - определяю? А то в QInput, похоже, тоже такой параметр есть.
 Дальше исправляем справочник так чтобы эта переменная заполнялась 
 значением имени.  ... | 
  
  
	   Topic: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	vla 
	   
	  Replies: 73 
	  Views: 14454993 
	 | 
	 Forum: Программирование в БЭСТ-4   Posted: 07 Nov 2007 12:28   Subject: УРОК 202. Окно ввода средствами QINPUT | 
  
  
	Что получилось в результате многократного подсчета запятых     и экспериментов с bScrInit:
 Скоп работает.
 Справочники ведут себя как нужно - при ручной правке не открываются, если такое значение есть.
 Не работает bScrInit. Совсем. Хотя в какой-то момент работал, но только после нажатия Ф2.
 Ну и несколько забегая вперед - как организовать добавление в справочники на ходу ?
 
 function main()
 Local p_vi ... | 
  
  
	|    |