8.х Исправление ошибок в кодах в 1с

1.Подскажите как сделать так чтобы поле сотрудник заполнялось само текущим пользователем(Для этого установлен параметр сеанса текущий пользователь)

Вот код

Код:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Объект.Сотрудник=ПараметрыСеанса.ТекущийПользователь.Наименование;
КонецПроцедуры

//////////////////////////////
2.Возможно ли добавлять товар в документ в из табличной части справочника
В справочники "ВИДЫ СКИДОК" в табличной части содержатся товары на которые распространяется скидка


////////////////////
3.в документе запись на занятия необходимо при выборе услуги указывать (помещать в реквизит Объект.КоличествоЕдиниц) ее стоимость

код

Код:

&НаКлиенте
Процедура УслугаПриИзменении(Элемент) Объект.КоличествоЕдиниц=ЦеныТоваровИУслуг.РозничнаяЦенаЕдиницы(Объект.Дата,Объект.Услуга);
КонецПроцедуры

Общий модуль

Код:

Функция РозничнаяЦенаЕдиницы(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.КоличествоЕдиниц;
КонецФункции

/////////////////
4.необходимо в справочник клиенты в поле сумма покупки поместить сумму всех покупок клиента

Код:

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

и при каждой новой покупке ее перерасчитывать автоматически

Код:

&НаКлиенте
Процедура ОбработкаЗаписиНового(НовыйОбъект, Источник, СтандартнаяОбработка)
СуммаПокупок=ПолучитьСуммуПокупок ();
Если СуммаПокупок < 10000 Тогда
Объект.СкидкаКлиента=0;
ИначеЕсли СуммаПокупок<10000 Тогда
Объект.СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры

могу поподробнее с какого вопроса начать (первый уже решила)?

я пишу диплом по 1с для реальной фирмы, относительно второго вопроса, у меня в справочнике виды скидок хранится список товаров на которые распространяются условия акции, и мне надо в документе продажа со скидкой, при выборе товара выводить только те товары на которые действует акция, а они указаны в табл части справочника виды скидок
по поводу третьего вопроса компания использует свою систему расчета и она не только в рублях, но и в единицах, которые списываются с абонемента

да есть документ который фиксирует продажи не по акциям (продажу товаров услуг и абонементов с учетом персональной скидки)
а документ продажа со скидкой нужен только для продажи товаров по акции

потому что мне не удобно это делать, в документе продаж итак много сведений

--- Объединение сообщений, 10 май 2015 ---

да и какя разница в каком документе суть в том как брать товары на которые распространяется скидка

вы может ответить на ПОСТАВЛЕННЫЙ вопрос или нет?

КАК ЭТО СДЕЛАТЬ?

все работает, спасибо

--- Объединение сообщений, 10 май 2015 ---

а что делать с третьим вопросом?

цена не подставляется при выборе услуги