Процедура ОбработкаПроведения(Отказ, Режим)
 
	Движения.Хозрасчетный.Очистить();
	Движения.Хозрасчетный.Записать();
	Движения.Хозрасчетный.Записывать = Истина;
	Для Каждого ТекСтрокаТовары Из Товары Цикл		
		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1
		Запрос.Текст = "ВЫБРАТЬ
		|	ХозрасчетныйОстатки.КоличествоОстатокДт
		|ИЗ
		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
		|ГДЕ
		|	ХозрасчетныйОстатки.Счет = &Счет
		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1
		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";
		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1
		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);
		Запрос.УстановитьПараметр("Субконто2",Склад1);
		Выборка = Запрос.Выполнить().Выбрать();
		Если Выборка.Следующий() Тогда
			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда
				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 
				Отказ = Истина;
				Возврат;
			КонецЕсли;   
		Иначе
			Сообщить("нет остатка на складе1"); 
			Отказ = Истина;
			Возврат;
		КонецЕсли;   

		Движение = Движения.Хозрасчетный.Добавить();
		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем
		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем
		Движение.Период = Дата;
		Движение.КоличествоКт = ТекСтрокаТовары.Количество;
		Движение.ДатаЗаписи = Дата;
		Движение.Содержание = "Перемещение";
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Склады",Склад1);
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Склады",Склад2);
		//Или так
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;
	КонецЦикла;

КонецПроцедуры   

  ВидМенеджеры = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НайтиПоНаименованию("Менеджеры", Истина); 

// Добавить новый вид характеристик. 
Если ВидМенеджеры.Пустая() Тогда 
    ВидМенеджеры = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СоздатьЭлемент(); 
    ВидМенеджеры.Наименование = "Менеджеры"; 
    ВидМенеджеры.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.Пользователи"); 
    
    ВидМенеджеры.Записать(); 
КонецЕсли; 

// Получить нужный счет. 
Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); 
Если (Не Счет.Пустая()) И (Счет.ВидыСубконто.Найти(ВидМенеджеры) = Неопределено) Тогда 

    // Добавить новый вид субконто к счету. 
    ОбъектСчета = Счет.ПолучитьОбъект(); 
    НовыйВидСубконто = ОбъектСчета.ВидыСубконто.Добавить(); 
    НовыйВидСубконто.ВидСубконто = ВидМенеджеры; 
    НовыйВидСубконто.ТолькоОбороты = Истина; 
    НовыйВидСубконто.Суммовой = Истина; 
    
    ОбъектСчета.Записать(); 
КонецЕсли;