v8: Програмнное создание документа, глюки или что?

 

&НаКлиенте

Процедура Загрузить(Команда)

	СоздатьДокументПродаж()

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



&НаСервере

Процедура СоздатьДокументПродаж()

ДокПродаж = Документы.ОтчетОРозничныхПродажах.СоздатьДокумент();

    

	//ДокПродаж.Дата               = КонецДня(ТекущаяДата());

	//ДокПродаж.Организация        = КассаМагазина.Владелец;

	//ДокПродаж.Склад              = ЗагружаемыйМагазин;

	//ДокПродаж.КассаККМ           = КассаМагазина;	

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

 

{Форма.Форма.Форма(355)}: Поле объекта не обнаружено (ОтчетОРозничныхПродажах)

	Новыйдокумент = Документы.ОтчетОРозничныхПродажах.СоздатьДокумент();   

 &НаСервере

Функция СоздатьДокументБланкЗаказа(тд)

	

	попытка

	НачатьТранзакцию();

	//	

	БланкЗаказа = Документы.БланкЗаказа.СоздатьДокумент();

	БланкЗаказа.Дата = ТекущаяДата();

	

	БланкЗаказа.Email = Объект.Email;

	БланкЗаказа.Фирма = Объект.Фирма;

	БланкЗаказа.Автор = Объект.Автор;

	БланкЗаказа.Важность = Объект.Важность;

	

	БланкЗаказа.Скидка = Объект.Скидка;

	БланкЗаказа.ДатаЦен = Объект.ДатаЦен;

	БланкЗаказа.ВидОплаты = Перечисления.ВидОплаты.Оплачено;

	БланкЗаказа.Контрагент = Объект.Контрагент;	

	

		

	БланкЗаказа.МестоЗабора = ?(ЗначениеЗаполнено(БланкЗаказа.Учреждение.МестоЗабора),БланкЗаказа.Учреждение.МестоЗабора, Объект.МестоЗабора);

	БланкЗаказа.МестоВыдачи = БланкЗаказа.МестоЗабора;

	БланкЗаказа.ПрефиксВыгрузки =  Объект.ПрефиксЗапроса;

	ИтоговаяСумма = ТаблицаИсследованийСерв.Итог("Цена");

	БланкЗаказа.СуммаДокумента = ИтоговаяСумма-(ИтоговаяСумма*Объект.Скидка.Процен/100);

	БланкЗаказа.СуммаОплаты = БланкЗаказа.СуммаДокумента;

	

	БланкЗаказа.Исследования.Загрузить(ТаблицаИсследованийСерв);

	Для Каждого стр из БланкЗаказа.Исследования Цикл

		стр.Артикул = стр.Наименование.Артикул;

		стр.КолВо = 1;

		стр.Сумма = стр.Цена;		

	КонецЦикла;

	

	БланкЗаказа.Записать(РежимЗаписиДокумента.Запись);

	//	

	ЗафиксироватьТранзакцию();

	Возврат БланкЗаказа.Ссылка;

исключение

		ОтменитьТранзакцию();

	конецПопытки;	



КонецФункции	



&НаКлиенте

Процедура Создать(Команда)

ДокСсылка =	СоздатьДокументБланкЗаказа(ТД);

ОткрытьЗначение(ДокСсылка);

ЭтаФорма.Закрыть();

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

   

 Документы["ОтчетОРозничныхПродажах"]