F.КодПункта = Константа.ФилиалФармнет;
	        F.ДобавитьПозициюВПакет(Товар.Наименование, 
	                        Товар.КодФармнет,
							Товар.ФармнетПроизвФлаг,
							Товар.ФармнетПроизвФлаг,
							"",
							"",
							"",
							"",
							"",
							Количество);   
			Стр=Стр+1;				
			Если Стр=40 Тогда 
				 F.ПодобратьПакет();
		         Сообщить("Подобрано");	
				 Стр=0;   
				 F.ОчиститьПакет();
			КонецЕсли;	 
		    Продолжить;