Программирование на Атлантисе (VIP, FCOM, ARD), FastReport
	Модераторы:  m0p3e , edward_K , Модераторы 
			
		
		
			
				
																			
								Sheinina 							 
						Местный житель 			
		Сообщения:  366  		Зарегистрирован:  29 мар 2005, 17:49 		
		
											Откуда:  Москва 
							
						
		 
		
						
					
													
							
						
									
						Сообщение 
					 
								 Sheinina   »  28 ноя 2005, 16:44 
			
			
			
			
			
			Почему-то в списке получается только одна МЦ:
Код: Выделить всё 
Interface Sel_Kau_MC 'Выбор МЦ для аналитики' DoAccept, EscClose, Cyan;
show at (,,,);
view
var 
p_kod, p_name: string;
kod_gr       : string;
c_mc         : comp;
as select katmc.name, katmc.barkod, katmc.nrec, groupmc.nrec, groupmc.kod
where ((
    kod_gr       ==  groupmc.kod
and groupmc.nrec == katmc.cgroupmc
)) order o1 by katmc.name;
parameters p_kod, p_name, c_mc;
browse b1;    
   katmc.name    'Название' : [20], protect;
   katmc.barkod  'Ном.номер': [10], protect;
end;
HandleEvent
cmInit: {
... 
// определение kod_gr
   setorder(tiO1);
   if getfirst katmc = tsOK then {};
}  
cmDefault: { c_mc:=katmc.nrec; CloseInterface(cmOK);}
cmCancel:  { c_mc:=0; CloseInterface(cmCancel);}
end;
end.
Я точно знаю, что их там много...
Приношу свои извинения. Все решается описанием панели:
Код: Выделить всё 
panel P_MC table katmc;
browse b1;
...
end;
end;
 
			
			
									
						
										
						 
		 
				
		
		 
	 
				
		
		
			
				
																			
								Goblin 							 
						Местный житель 			
		Сообщения:  474  		Зарегистрирован:  29 мар 2005, 17:49 		
		
																Откуда:  Сибирь-матушка 
							
							
				Контактная информация: 
				
			 
				
		 
		
						
					
						 
		 
													
							
						
									
						Сообщение 
					 
								 Goblin   »  28 ноя 2005, 17:09 
			
			
			
			
			
			Можно просто для browse  указать table, панель здесь вовсе не обязательна - ежели только не собираетесь какие-то отдельные панельные события отлавливать ... 
  
cmCancel некорректен ... 
Ежели чего уже было , то при отказе выбора оно должно остаться , а в Вашем случае обнулится ... 
Так что  
c_mc:=0;  
убирать
			
			
									
						
							Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution ! 
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
			
						 
		 
				
		
		 
	 
				
		
		
			
				
																			
								Sheinina 							 
						Местный житель 			
		Сообщения:  366  		Зарегистрирован:  29 мар 2005, 17:49 		
		
											Откуда:  Москва 
							
						
		 
		
						
					
						 
		 
													
							
						
									
						Сообщение 
					 
								 Sheinina   »  28 ноя 2005, 17:12 
			
			
			
			
			
			Не нужно мне оставлять то что было. Энтот интерфейсик будет жить в TXO API, а там пусть лучше пустая аналитика сформируется, искать потом легче.
			
			
									
						
										
						 
		 
				
		
		 
	 
				
		
		
			
				
																			
								DarkAngel27 							 
						Местный житель 			
		Сообщения:  228  		Зарегистрирован:  29 мар 2005, 17:49 		
		
																Откуда:  Москва 
							
							
				Контактная информация: 
				
			 
				
		 
		
						
					
						 
		 
													
							
						
									
						Сообщение 
					 
								 DarkAngel27   »  29 ноя 2005, 11:04 
			
			
			
			
			
			Добавь в select  katmc.cgroupmc  
И лучше не пользоваться ORDER, а пройтись по индексу KATMC03...