Процедура ОбработкаПроведения(Отказ, Режим)

 

	Движения.Хозрасчетный.Очистить();

	Движения.Хозрасчетный.Записать();

	Движения.Хозрасчетный.Записывать = Истина;

	Для Каждого ТекСтрокаТовары Из Товары Цикл		

		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1

		Запрос.Текст = "ВЫБРАТЬ

		|	ХозрасчетныйОстатки.КоличествоОстатокДт

		|ИЗ

		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки

		|ГДЕ

		|	ХозрасчетныйОстатки.Счет = &Счет

		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1

		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";

		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1

		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);

		Запрос.УстановитьПараметр("Субконто2",Склад1);

		Выборка = Запрос.Выполнить().Выбрать();

		Если Выборка.Следующий() Тогда

			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда

				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 

				Отказ = Истина;

				Возврат;

			КонецЕсли;   

		Иначе

			Сообщить("нет остатка на складе1"); 

			Отказ = Истина;

			Возврат;

		КонецЕсли;   



		Движение = Движения.Хозрасчетный.Добавить();

		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем

		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем

		Движение.Период = Дата;

		Движение.КоличествоКт = ТекСтрокаТовары.Количество;

		Движение.ДатаЗаписи = Дата;

		Движение.Содержание = "Перемещение";

		

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,

                "Номенклатура",ТекСтрокаТовары.Номенклатура);

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,

                "Склады",Склад1);

		

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,

                "Номенклатура",ТекСтрокаТовары.Номенклатура);

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,

                "Склады",Склад2);

		//Или так

		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;

		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;

		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;

		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;

	КонецЦикла;



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

 Процедура ОбработкаПроведения(Отказ, Режим) 



    СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент); 

    

    Пока СторнируемыеДвижения.Следующий() Цикл 

        Проводка = Движения.Хозрасчетный.Добавить(); 

        Проводка.Период = Дата; 

        Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 

        Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 

            Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл 

            Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 

        Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 

        Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 

        Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 

        Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 

        Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 

        Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 

        Проводка.Организация = СторнируемыеДвижения.Организация; 

        Проводка.Содержание = СторнируемыеДвижения.Содержание; 

        Проводка.Сумма = - СторнируемыеДвижения.Сумма; 

    КонецЦикла; 



    Движения.Хозрасчетный.Записать(); 



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