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