Загрузка данных


Короче надо в 1С для конфигурации сделать задание:
1) Сделать чтобы сумма считалась автоматически в документе Заказ
Вот форма прошлого документа:

&НаСервере
Функция ПолучитьАртикул(Номенклатура)
	Возврат Номенклатура.Код;
КонецФункции

&НаСервере
Функция ПолучитьЕдиницуИзмерения(Номенклатура)
	Возврат Номенклатура.ЕдиницаИзмерения;
КонецФункции

// Автоподстановка артикула и единицы измерения
&НаКлиенте
Процедура СписокМатериаловНаименованиеПриИзменении(Элемент)
	ТекущаяСтрокаТЧ = Элементы.СписокМатериалов.ТекущиеДанные;
	ТекущаяСтрокаТЧ.Артикул = ПолучитьАртикул(ТекущаяСтрокаТЧ.Наименование); 
	ТекущаяСтрокаТЧ.ЕдиницаИзмерения = ПолучитьЕдиницуИзмерения(ТекущаяСтрокаТЧ.Наименование); 
КонецПроцедуры

&НаКлиенте
Процедура СписокМатериаловКоличествоПриИзменении(Элемент)
	СтрокаТЧ = Элементы.СписокМатериалов.ТекущиеДанные;
	РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);
КонецПроцедуры

2) Составить печатную форму для документа Заказ и подвал
Вот прошлая печатная форма и ее модуль менеджера:

Процедура Печать(ТабДок, Ссылка) Экспорт
	//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
	Макет = Документы.ПоступлениеТовара.ПолучитьМакет("Печать");
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ПоступлениеТовара.Дата,
	|	ПоступлениеТовара.Номер,
	|	ПоступлениеТовара.Поставщик,
	|	ПоступлениеТовара.СписокМатериалов.(
	|		НомерСтроки,
	|		Наименование,
	|		Артикул,
	|		ЕдиницаИзмерения,
	|		Количество,
	|		Цена,
	|		Сумма
	|	)
	|ИЗ
	|	Документ.ПоступлениеТовара КАК ПоступлениеТовара
	|ГДЕ
	|	ПоступлениеТовара.Ссылка В (&Ссылка)";
	Запрос.Параметры.Вставить("Ссылка", Ссылка);
	Выборка = Запрос.Выполнить().Выбрать();

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
	Шапка = Макет.ПолучитьОбласть("Шапка");
	ОбластьСписокМатериаловШапка = Макет.ПолучитьОбласть("СписокМатериаловШапка");
	ОбластьСписокМатериалов = Макет.ПолучитьОбласть("СписокМатериалов");
	ОбластьВсего = Макет.ПолучитьОбласть("Всего");
	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
	ТабДок.Очистить();

	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
		Если ВставлятьРазделительСтраниц Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;

		ТабДок.Вывести(ОбластьЗаголовок);

		Шапка.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Шапка, Выборка.Уровень());

		ТабДок.Вывести(ОбластьСписокМатериаловШапка);
		ВыборкаСписокМатериалов = Выборка.СписокМатериалов.Выбрать();
		ИтогСумма = 0;
		Пока ВыборкаСписокМатериалов.Следующий() Цикл
			ОбластьСписокМатериалов.Параметры.Заполнить(ВыборкаСписокМатериалов);
			ТабДок.Вывести(ОбластьСписокМатериалов, ВыборкаСписокМатериалов.Уровень());
			ИтогСумма = ИтогСумма + ВыборкаСписокМатериалов.Сумма;
		КонецЦикла;
		ОбластьВсего.Параметры.ИтогСумма = ИтогСумма;
		ОбластьВсего.Параметры.НДС = ИтогСумма * 22/100;
		ВсегоНаименований = ВыборкаСписокМатериалов.Количество();
		ОбластьПодвал.Параметры.ВсегоНаименований = ВсегоНаименований;
		ОбластьПодвал.Параметры.ИтогСумма = ИтогСумма;
		ФорматСтроки = "Л=ru_RU;ДП = Ложь";
		ПараметрПредмета = "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
		СуммаПрописью = ЧислоПрописью(ИтогСумма, ФорматСтроки, ПараметрПредмета);
		ОбластьПодвал.Параметры.СуммаПрописью = СуммаПрописью;
        ТабДок.Вывести(ОбластьВсего, Выборка.Уровень());
		ТабДок.Вывести(ОбластьПодвал, Выборка.Уровень());
		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	//}}
КонецПроцедуры