0
егаис
30.03.17
✎
12:43
|
Внешняя обработка, поля СчетЗатрат, ПодразделениеЗатрат, Субконто1, Субконто2, Субконто3.
Функционал заполнения взят с требования-накладной.
При выборе счета затрат все отрабатывает, кроме назначения вида субконто, приходится выбирать из списка.
Как решить сабж?
Сам код собственно
//модуль управления аналитикой затрат
&НаКлиенте
Процедура СчетЗатратПриИзменении(Элемент)
БухгалтерскийУчетКлиентСервер.УстановитьСвойстваСубконтоШапкиПриИзмененииСчета(
ЭтотОбъект, Объект, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
КонецПроцедуры
&НаКлиенте
Процедура Субконто1ПриИзменении(Элемент)
ПриИзмененииСубконто(1);
КонецПроцедуры
&НаКлиенте
Процедура Субконто1НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура Субконто2ПриИзменении(Элемент)
ПриИзмененииСубконто(2);
КонецПроцедуры
&НаКлиенте
Процедура Субконто2НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура Субконто3ПриИзменении(Элемент)
ПриИзмененииСубконто(3);
КонецПроцедуры
&НаКлиенте
Процедура Субконто3НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура ПриИзмененииСубконто(НомерСубконто)
БухгалтерскийУчетКлиентСервер.УстановитьСвойстваСубконтоШапкиПриИзмененииСубконто(
ЭтотОбъект, Объект, НомерСубконто, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
КонецПроцедуры
&НаКлиенте
Процедура НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДанныеОбъекта = БухгалтерскийУчетКлиентСервер.ДанныеУстановкиПараметровСубконто(
Объект, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
ОбщегоНазначенияБПКлиент.НачалоВыбораЗначенияСубконто(ЭтотОбъект, Элемент, СтандартнаяОбработка, ДанныеОбъекта);
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Функция ПараметрыУстановкиСвойствСубконто(Форма)
Результат = БухгалтерскийУчетКлиентСервер.ПараметрыУстановкиСвойствСубконтоПоШаблону(
"Субконто", "ПодразделениеЗатрат", "Субконто", "ПодразделениеЗатрат", "СчетЗатрат");
Результат.ЗначенияПоУмолчанию.Вставить(
ПредопределенноеЗначение("ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат"),
ОбщегоНазначенияКлиентСервер.ПредопределенныйЭлемент("Справочник.СтатьиЗатрат.СписаниеМатериалов"));
Результат.ДопРеквизиты.Вставить("Организация", Форма.Объект.Организация);
Возврат Результат;
КонецФункции
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
БухгалтерскийУчетКлиентСервер.УстановитьНачальныеСвойстваСубконтоШапки(
ЭтотОбъект, Объект, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
КонецПроцедуры
|
|