Не проводится документ автоматически.

Процедура СоздатьПеремещение1(ДокументБух,Дата,Номер,Товары,Организация,Клиент,ВидТоваров)  Экспорт      //процедура только для создания перемещений Булочная
		
	
		
		Если  (ДокументБух.Пустая()) или (ДокументБух.Дата=Дата(1,1,1,0,0,0)) тогда
			НовыйДок = Документы.ПеремещениеТоваров.СоздатьДокумент();
		Иначе
				НовыйДок = ДокументБух.ПолучитьОбъект();
			
				Если НовыйДок.ПометкаУдаления тогда
					НовыйДок.УстановитьПометкуУдаления(Ложь);
					НовыйДок.Записать();
				КонецЕсли;	
			
				НовыйДок.Товары.Очистить();
		КонецЕсли;
		
		Если организация.Пустая() тогда
			НовыйДок.Организация = КОнстанты.ЕКС_ОсновнаяОрганизация.Получить();
		Иначе
			НовыйДок.Организация = Организация;
		КонецЕсли;
		
		НовыйДок.Номер = "Э"+СокрЛП(Номер);	
	    НовыйДок.Дата = Дата;
		
		НовыйДок.СкладПолучатель=Справочники.Склады.НайтиПоКоду("00015");
		НовыйДок.СкладОтправитель=Справочники.Склады.НайтиПоКоду("00-000004");
		//НовыйДок.Ответственный=
		
		
		

		Для Каждого Строка из Товары Цикл
			Если (Строка.Количество=0) или (Строка.Сумма=0) тогда Продолжить; КонецЕсли;
			НоваяСтрока = НовыйДок.Товары.Добавить();
			
			 Если Строка.Товар.НоменклатураБух.Пустая() ТОгда
			
			 	Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",Строка.Товар.Артикул);
			 	Если Номенклатура.Пустая() тогда
				 	Сообщить("Не нашел номенклатуру для товара "+СокрЛП(Строка.Товар));
				Иначе
					Об_Товар = Строка.Товар.ПолучитьОбъект();
					Об_Товар.НоменклатураБух = Номенклатура;
					Об_Товар.Записать();
				КонецЕсли; 
			 Иначе
				Номенклатура =Строка.Товар.НоменклатураБух;
			 КонецЕсли;	
			 
			 НоваяСтрока.Номенклатура = Номенклатура;
			 НоваяСтрока.ЕдиницаИзмерения = Номенклатура.ЕдиницаИзмерения;
			 НоваяСтрока.Количество = Строка.Количество * Строка.ЕдиницаИзмерения.Коэффициент * Строка.Товар.ЕКС_Вес;
			 НоваяСтрока.Коэффициент = 1;
			 НоваяСтрока.Цена = ?(НоваяСтрока.Количество=0,0,Строка.Сумма/(НоваяСтрока.Количество));
			 
			 Если СокрЛП(Организация.Код) = "2" тогда		//Хлебофф без НДС
				 НоваяСтрока.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
				 НоваяСтрока.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
			 Иначе
				 НоваяСтрока.СчетУчета = ПланыСчетов.Хозрасчетный.ГотоваяПродукция;
				 НоваяСтрока.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.ГотоваяПродукция;

			 КонецЕсли;			 
			 
				 	
		КонецЦикла;	
		
		
		ПровелДок = Истина;
		Попытка
			НовыйДок.Записать(РежимЗаписиДокумента.Запись);		
		Исключение
			ПровелДок = Ложь;
		КонецПопытки;
		
		
		Если НЕ ПровелДок тогда
			ПровелДок = Истина;
			
			Попытка
			НовыйДок.Записать(РежимЗаписиДокумента.Запись);

			Исключение
			ПровелДок = Ложь;
							
			КонецПопытки;
			КонецЕсли;
			
		
		ДокРеализацияТиУ = НовыйДок.Ссылка;
			
		
		
КонецПроцедуры

Процедура ОсновныеДействияФормыВторсырье(Кнопка)
	Док = Документы.ЕКС_ПриходнаяНакладная.Выбрать(НачалоДня(ДатаНач),КонецДня(ДатаКон));
	Пока док.Следующий() цикл
		Если Док.СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером Тогда Продолжить; КонецЕсли;
		Если Док.Проведен = ЛОЖЬ Тогда Продолжить; КонецЕсли;
		Если Док.СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.Введен = Ложь Тогда Продолжить; КонецЕсли;

		
		ОбДок = Док.ПолучитьОбъект();
		ОбДок.СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером;
		
		ОбДок.ЕКС_Редактор = СокрЛП(ПользователиКлиентСервер.ТекущийПользователь())+" " + ТекущаяДата();
		
		Попытка
			ОбДок.Записать(РежимЗаписиДокумента.Проведение);

		Исключение
			Сообщить(строка(док)+" "+строка(ОписаниеОшибки()));
			
			возврат;
		КонецПопытки;
		Сообщить(Обдок);
	КонецЦикла;	
КонецПроцедуры

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	СуммаДокумента = Товары.Итог("Сумма");
	
	
РежимЗаписиДокумента.Проведение)И (СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером) и (СокрЛП(Организация.Код) = "1" или СокрЛП(Организация.Код) = "2") тогда//(СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером) и (Организация = Константы.ЕКС_ОсновнаяОрганизация.Получить()) тогда
	Если Клиент<>Справочники.Контрагенты.НайтиПоКоду("00-000255") и ((СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером) и (СокрЛП(Организация.Код) = "1" или СокрЛП(Организация.Код) = "2")) тогда//(СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером) и (Организация = Константы.ЕКС_ОсновнаяОрганизация.Получить()) тогда
		
		ТЗ_Товары = Товары.Выгрузить();
		ВХК_МодульДляПриходнойНакладной.СоздатьДокументПостулпенияТиУ(ДокументБух,Дата,Номер,ТЗ_Товары,Организация,Клиент,ВидТоваров,ЕстьНДС);
		

	КонецЕсли;		
	
	Если Клиент=Справочники.Контрагенты.НайтиПоКоду("00-000255") и ((СтатусДокумента = Перечисления.ЕКС_СтатусДокумента.ПроверенБухгалтером) и (СокрЛП(Организация.Код) = "1" или СокрЛП(Организация.Код) = "2")) тогда
		
		
		ТЗ_Товары = Товары.Выгрузить();
		ВХК_МодульДляПриходнойНакладной.СоздатьПеремещение1(ДокументБух,Дата,Номер,ТЗ_Товары,Организация,Клиент,ВидТоваров);
	КонеЦЕсли;

	
	Если (РежимЗаписи = РежимЗаписиДокумента.ОтменаПроведения) тогда
		Если НЕ ДокументБух = Неопределено Тогда
			Если НЕ ДокументБух = Документы.ПоступлениеТоваровУслуг.ПустаяСсылка() тогда //или (ДокументБух.Дата=Дата(1,1,1,0,0,0))) тогда
				ВХК_МодульДляПриходнойНакладной.УдалитьБухДокумент(ДокументБух);
			КонецЕсли;
		КонецЕсли;	
	КонецЕсли;	
	

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