Имя: Пароль:
1C
1С v8
Подменить форму выбора справочника
0 егаис
 
06.06.17
10:36
Подскажите, каким образом можно подменить форму выбора субконто для определенного типа значения субконто.
Создана произвольная форма списка справочника ОС, и необходимо именно ее открывать при выборе субконто в документе требование-накладная. (создан новый счет с аналитикой "ОС")?
1 piter3
 
06.06.17
10:37
А как связаны требование накладная и ОС?
2 егаис
 
06.06.17
10:38
(1) собираем затраты по ОС на новом счете.
3 piter3
 
06.06.17
10:42
(2)А разве не на 08 счет.
4 егаис
 
06.06.17
10:45
(3) Вы не по теме...
создан новый аналитический счет с субконто "ОС" и "Статьи затрат". Ежемесячно собираем расходы в разрезе ОС. В конце месяца их распределяем на 20.
Вопрос не в этом...
5 Мимохожий Однако
 
06.06.17
10:47
(0) Откуда открываешь? При открытии программно можно указать твою новую форму
6 егаис
 
06.06.17
10:53
&НаКлиенте
Процедура НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    
    ДанныеОбъекта = БухгалтерскийУчетКлиентСервер.ДанныеУстановкиПараметровСубконто(
        Объект, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
    
Если (ДанныеОбъекта.СчетУчет = НужныйНамСчет) и (Элемент.Имя = "Субконто1") Тогда
СтандартнаяОбработка = Ложь;
//дальше как?
Иначе
    ОбщегоНазначенияБПКлиент.НачалоВыбораЗначенияСубконто(ЭтотОбъект, Элемент, СтандартнаяОбработка, ДанныеОбъекта);
    
КонецПроцедуры
7 егаис
 
06.06.17
10:53
(5) из требования-накладной
8 piter3
 
06.06.17
10:55
ОткрытьФорму
9 егаис
 
06.06.17
12:36
блин, туплю, открывает в режиме формы списка и все
&НаКлиенте
Процедура НачалоВыбораСубконто(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    
    ДанныеОбъекта = БухгалтерскийУчетКлиентСервер.ДанныеУстановкиПараметровСубконто(
        Объект, ПараметрыУстановкиСвойствСубконто(ЭтотОбъект));
    
    Если (ДанныеОбъекта.СчетУчета = СчетУчетЗатратОСНаСервере()) и (Элемент.Имя = "Субконто1") Тогда
        СтандартнаяОбработка = Ложь;
        
        ПараметрыОткрытия = Новый Структура;
        ПараметрыОткрытия.Вставить("ЗакрыватьПриВыборе", Истина);
        ПараметрыОткрытия.Вставить("РежимВыбора", Истина);
        
        ОткрытьФорму("Справочник.ОсновныеСредства.Форма.ФормаВыбораПоРегНомеру", ПараметрыОткрытия, ЭтаФорма);
    Иначе
           ОбщегоНазначенияБПКлиент.НачалоВыбораЗначенияСубконто(ЭтотОбъект, Элемент, СтандартнаяОбработка, ДанныеОбъекта);
    КонецЕсли;

КонецПроцедуры
10 егаис
 
06.06.17
12:50
решил, закрываем
форму списка не выставил в режим выбора (
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс