Имя: Пароль:
1C
1С v8
БП 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
решилось
связь по типу не нащначил
Основная теорема систематики: Новые системы плодят новые проблемы.