Хочу создать папку
Подскажите, а что делать, если я хочу создать папку. Нажимаю правую кнопку, а там нет функции создать (нажимаю на рабочем столе. Раньше работало, а теперь нет)
Связанные записи
Нет связанных записей.
Функции часть — у
//реквизиты проводок
Для Инд = 1 По Метаданные.РеквизитПроводки() Цикл
Рекв=Метаданные.РеквизитПроводки(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЕсли;
КонецЦикла;
//общие реквизиты документов
Для Инд = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
Рекв=Метаданные.ОбщийРеквизитДокумента(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЕсли;
КонецЦикла;
ИначеЕсли гРежим="Графа" Тогда
ВыбАттр.ДобавитьЗначение(ИсхАтр, ИсхПред);
КонецЕсли;
ТекСтр=ВыбАттр.НайтиЗначение(ИсхАтр);
Если (ТекСтр=0)И(ВыбАттр.РазмерСписка()>0) Тогда
ТекСтр=1;
КонецЕсли;
ВыбАттр.ТекущаяСтрока(ТекСтр);
ПриВыбАттр();
Стр = "";
ПолучитьТип(Стр, 0, 0);
Если Стр = «Неопределенный» Тогда
Форма.ВыбФильтр.НазначитьТип(ТипЗначенияСтр(ИсхЗнач));
КонецЕсли;
ВыбФильтр=ИсхЗнач;
ТекФильтр=ВыбФильтр;
ВыбУсловие.ДобавитьЗначение(«=»);
ВыбУсловие.ДобавитьЗначение(«>»);
ВыбУсловие.ДобавитьЗначение(«<»);
ВыбУсловие.ДобавитьЗначение(«<=»);
ВыбУсловие.ДобавитьЗначение(«>=»);
ВыбУсловие.ДобавитьЗначение(«<>»);
ВыбУсловие.ДобавитьЗначение(«В»);
ТекСтр=ВыбУсловие.НайтиЗначение(ИсхУсл);
Если (ВыбУсловие.НайтиЗначение(ИсхУсл)=0) Тогда
ТекСтр=1;
КонецЕсли;
ВыбУсловие.ТекущаяСтрока(ТекСтр);
КонецЕсли;
Форма.Параметр=ПолучитьПустоеЗначение();
Связанные записи
Нет связанных записей.
Функции часть — т
гДокМД=гСписокИсхПараметров.Получить(«Объект»);
//общие реквизиты
Для Инд = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
Рекв=Метаданные.ОбщийРеквизитДокумента(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор,
Рекв.Представление());
КонецЕсли;
КонецЦикла;
// Реквизиты шапки...
Для Инд = 1 По гДокМД.РеквизитШапки() Цикл
Рекв=гДокМД.РеквизитШапки(Инд);
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЦикла;
//табличная часть
Для Инд = 1 По гДокМД.РеквизитТабличнойЧасти() Цикл
Рекв=гДокМД.РеквизитТабличнойЧасти(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор,
Рекв.Представление());
КонецЕсли;
КонецЦикла;
ИначеЕсли гРежим="Операция" Тогда
гСпрМД="Операция";
ВыбАттр.ДобавитьЗначение(«Документ», «Документ операции»);
ВыбАттр.ДобавитьЗначение(«СуммаОперации», «Сумма операции»);
ВыбАттр.ДобавитьЗначение(«Содержание», «Содержание операции»);
//реквизиты операций
Для Инд = 1 По Метаданные.РеквизитОперации() Цикл
Рекв=Метаданные.РеквизитОперации(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЕсли;
КонецЦикла;
ВыбАттр.ДобавитьЗначение(«Дебет.Счет», «Счет дебета проводки»);
ВыбАттр.ДобавитьЗначение(«Кредит.Счет», «Счет кредита проводки»);
ВыбАттр.ДобавитьЗначение(«СубконтоДт», «Субконто дебета [...]
Функции часть — с
гСписокИсхПараметров=Форма.Параметр;
Если ПустоеЗначение(гСписокИсхПараметров)=0 Тогда
гРежим = гСписокИсхПараметров.Получить(«Режим»);
ИсхАтр = гСписокИсхПараметров.Получить(«Атрибут»);
ИсхПред = гСписокИсхПараметров.Получить(«Представление»);
ИсхУсл = СокрЛП(гСписокИсхПараметров.Получить(«Условие»));
ИсхЗнач = гСписокИсхПараметров.Получить(«Значение»);
ФлИспользовать = гСписокИсхПараметров.Получить(«ВклУсловие»);
Если ПустоеЗначение(ИсхАтр)=1 Тогда
ФлИспользовать=1;
КонецЕсли;
ВыбАттр.УдалитьВсе();
Если гРежим="Регистр" Тогда
гТекРегистр=гСписокИсхПараметров.Получить(«Объект»);
Для Инд=1 По гТекРегистр.Измерение() Цикл
ВыбАттр.ДобавитьЗначение(гТекРегистр.Измерение(Инд).Идентификатор,гТекРегистр.Измерение(Инд).Представление());
КонецЦикла;
Для Инд=1 По гТекРегистр.Реквизит() Цикл
ВыбАттр.ДобавитьЗначение(гТекРегистр.Реквизит(Инд).Идентификатор,гТекРегистр.Реквизит(Инд).Представление());
КонецЦикла;
ВыбАттр.ДобавитьЗначение(«Текущий документ»,"Текущий документ");
ИначеЕсли гРежим="Справочник" Тогда
гСпрМД=гСписокИсхПараметров.Получить(«Объект»);
//владелец
Если СокрЛП(гСпрМД.Владелец)<>"Метаданные" Тогда
ВыбАттр.ДобавитьЗначение(гСпрМД.Владелец.Идентификатор, «Владелец»);
КонецЕсли;
//родитель
Если гСпрМД.КоличествоУровней > 1 Тогда
ВыбАттр.ДобавитьЗначение(гСпрМД.Идентификатор, «Родитель»);
КонецЕсли;
//Наименование
ВыбАттр.ДобавитьЗначение(«Наименование», «Наименование»);
Для Инд = 1 По гСпрМД.Реквизит() Цикл
ВыбАттр.ДобавитьЗначение(гСпрМД.Реквизит(Инд).Идентификатор, гСпрМД.Реквизит(Инд).Представление());
КонецЦикла;
ИначеЕсли гРежим="Документ" Тогда
Связанные записи
Нет связанных записей.
Функции часть — р
Процедура Выбрать()
Перем СтрПредставления;
ТекСтр=ВыбАттр.ТекущаяСтрока();
Если ТекСтр=0 Тогда
Предупреждение(«Внимание!Не выбрано измерение регистра!»);
Возврат;
КонецЕсли;
ТекИзмерение=ВыбАттр.ПолучитьЗначение(ТекСтр,СтрПредставления);
Если ПустоеЗначение(ТекИзмерение)=1 Тогда
Предупреждение(«Внимание!Не выбрано измерение регистра!»);
Возврат;
КонецЕсли;
Если (СтрПредставления="Родитель")ИЛИ(СтрПредставления="Владелец") Тогда
ТекИзмерение=СтрПредставления;
КонецЕсли;
ТекСтр=ВыбУсловие.ТекущаяСтрока();
Если ТекСтр=0 Тогда
Предупреждение(«Внимание!Не выбрано условие!»);
Возврат;
КонецЕсли;
ТекУсловие=ВыбУсловие.ПолучитьЗначение(ТекСтр);
Если ПустоеЗначение(ТекИзмерение)=1 Тогда
Предупреждение(«Внимание!Не выбрано условие!»);
Возврат;
КонецЕсли;
гСписокИсхПараметров.УдалитьВсе();
гСписокИсхПараметров.ДобавитьЗначение(ТекИзмерение,"Атрибут");
гСписокИсхПараметров.ДобавитьЗначение(СтрПредставления,"Представление");
гСписокИсхПараметров.ДобавитьЗначение(ТекУсловие,"Условие");
гСписокИсхПараметров.ДобавитьЗначение(ВыбФильтр,"Значение");
гСписокИсхПараметров.ДобавитьЗначение(ФлИспользовать,"ВклУсловие");
Если (СтрМД = «СубконтоДт») Или (СтрМД = «СубконтоКт») Тогда
гСписокИсхПараметров.ДобавитьЗначение(ВыбВидСубконто.Идентификатор(), «ВидСубконто»);
Иначе
гСписокИсхПараметров.ДобавитьЗначение(ПолучитьПустоеЗначение(«ВидСубконто»), «ВидСубконто»);
КонецЕсли;
Форма.Параметр=гСписокИсхПараметров;
Форма.Закрыть();
КонецПроцедуры
Связанные записи
Нет связанных записей.
Функции часть — п
КонецЕсли;
Стр = ТипЗначен + ?(ВидЗначен = «„,“»,".") + ВидЗначен;
СтрТип = СокрЛП(ТипЗначен);
КонецЕсли;
Если гРежим = «Операция» Тогда
Если СтрМД = «Документ» Тогда
сзВидовБухДокументов = СоздатьОбъект(«СписокЗначений»);
Для Сч = 1 По Метаданные.Документ() Цикл
ДокМД = Метаданные.Документ(Сч);
Если СокрЛП(ДокМД.БухгалтерскийУчет) = «1» Тогда
Иден = ДокМД.Идентификатор;
Пред = ДокМД.Представление();
сзВидовБухДокументов.ДобавитьЗначение(Иден, Пред);
КонецЕсли;
КонецЦикла;
Поз = ПолучитьПустоеЗначение();
ВидЗначен = ПолучитьПустоеЗначение();
Если сзВидовБухДокументов.ВыбратьЗначение(ВидЗначен, «Выберите вид документа операции», Поз, , 0) = 0 [...]
Функции часть — н
ПолучитьТип(Стр,Длина,Точность);
Если Стр = «Неопределенный» Тогда
сзТипов = СоздатьОбъект(«СписокЗначений»);
сзТипов.ДобавитьЗначение(«ВидСубконто», «Вид субконто»);
сзТипов.ДобавитьЗначение(«Справочник»);
сзТипов.ДобавитьЗначение(«Документ»);
сзТипов.ДобавитьЗначение(«Перечисление»);
сзТипов.ДобавитьЗначение(«ПланСчетов», «План cчетов»);
сзТипов.ДобавитьЗначение(«Счет»);
сзТипов.ДобавитьЗначение(«Число»);
сзТипов.ДобавитьЗначение(«Строка»);
сзТипов.ДобавитьЗначение(«Дата»);
ТипЗначен = "«;
ВидЗначен = „«;
Длина = 0;
Точность = 0;
Поз = ПолучитьПустоеЗначение();
Если сзТипов.ВыбратьЗначение(ТипЗначен, „Выберите тип реквизита“, Поз, , 0) = 0 Тогда
Возврат;
КонецЕсли;
Если ТипЗначен = „Число“ Тогда
Если ВвестиЗначение(Длина,»Введите длину числа“, «Число», 2, 0) = 0 Тогда
Возврат;
КонецЕсли;
Если ВвестиЗначение(Точность,»Введите точность числа", «Число», 1, 0) = 0 Тогда
Возврат;
КонецЕсли;
ИначеЕсли ТипЗначен [...]
Функции часть — м
Процедура ПриВыбАттр()
Перем Стр, Длина, Точность;
ВыбФильтр = ПолучитьПустоеЗначение();
ВыбФильтр=0;
ФлГруппа=0;
ВыбУсловие.ТекущаяСтрока(1);
Если ВыбАттр.ТекущаяСтрока()=0 Тогда
Возврат;
КонецЕсли;
СтрМД=ВыбАттр.ПолучитьЗначение(ВыбАттр.ТекущаяСтрока());
Если ПустаяСтрока(СтрМД)=1 Тогда
Форма.ВыбФильтр.НазначитьТип("");
Возврат;
КонецЕсли;
ПолучитьТип(Стр,Длина,Точность);
Если Длина>0 Тогда
Форма.ВыбФильтр.НазначитьТип(Стр,Длина,Точность);
Иначе
Форма.ВыбФильтр.НазначитьТип(Стр);
КонецЕсли;
Если (Стр = «Строка») И (СокрЛП(ВыбФильтр) = «0») Тогда
ВыбФильтр = "";
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеВыбораЗначения(ЭлемДиалога)
Перем Стр, Длина, Точность, ВыбЗначение;
Если СокрЛП(ЭлемДиалога) <> «ВыбФильтр» Тогда Возврат КонецЕсли;
ВыбЗначение = ПолучитьПустоеЗначение();
Если ВыбАттр.ТекущаяСтрока()=0 Тогда
Возврат;
КонецЕсли;
СтрМД=ВыбАттр.ПолучитьЗначение(ВыбАттр.ТекущаяСтрока());
Если ПустаяСтрока(СтрМД)=1 Тогда
Форма.ВыбФильтр.НазначитьТип("");
Возврат;
КонецЕсли;
Связанные записи
Нет связанных записей.
Функции часть — л
МДАттр = Метаданные.ОбщийРеквизитДокумента(СтрМД);
Если МДАттр.Выбран()=0 Тогда
МДАттр = Метаданные.РеквизитОперации(СтрМД);
КонецЕсли;
Если МДАттр.Выбран()=0 Тогда
МДАттр = Метаданные.РеквизитПроводки(СтрМД);
КонецЕсли;
СтрТип = МДАттр.Тип;
СтрВид = МДАттр.Вид;
Если СтрВид <> «« Тогда
СтрТип = СтрТип + „.“ + СтрВид;
КонецЕсли;
Длина = МДАттр.Длина;
Точность = МДАттр.Точность;
КонецЕсли;
Тип = СтрТип;
ИначеЕсли гРежим=»Графа» Тогда
СтрТип = гСписокИсхПараметров.Получить(«ТипГрафы»);
Длина = гСписокИсхПараметров.Получить(«Длина»);
Точность = гСписокИсхПараметров.Получить(«Точность»);
Если СокрЛП(СтрТип) = «Выражение» Тогда СтрТип = «Число» КонецЕсли;
Тип = СтрТип;
КонецЕсли;
Возврат Тип;
КонецФункции
Процедура ПриВыбореУсловия()
Перем Стр,Длина,Точность;
СтрТип=ПолучитьТип(Стр,Длина,Точность);
Если [...]