Спис = Новый СписокЗначений;
Спис.Добавить(1);
Спис.Добавить(2);
Спис.Добавить(3);
Спис.Добавить(4);
Спис.Добавить(5);
Результат = "";
Для Каждого Элем Из Спис Цикл
Результат = ?(Спис.Индекс(Элем) > 0,  Результат+","+Элем.Значение, Результат+Элем.Значение)     
КонецЦикла;

ГДЕ
    НЕ СпрНоменклатура.ЭтоГруппа И
    ЦеныНоменклатурыСрезПоследних.ВидЦены.Наименование = ""Розничная""

ПродажиСервер.ПолучитьЦенуПоОтбору(ПараметрыОтбора)
ЗакупкиСервер.ПолучитьЦенуПоОтбору(ПараметрыОтбора)

ЕстьОшибки = Ложь;
    
    Попытка
        
        ТЗ = Новый ТаблицаЗначений;
        ВыгрузитьЖурналРегистрации(ТЗ);
        
        // Запись ТЗ в РС
        Рег = РегистрыСведений.РегЖР.СоздатьНаборЗаписей();
        Рег.Загрузить(ТЗ);
        Рег.Записать();
        
    Исключение
        
        ЕстьОшибки = Истина;
        //Сообщить(ОписаниеОшибки());
        
    КонецПопытки;
    
    Если Не ЕстьОшибки Тогда
        // Очистка ЖР
        Фильтр = Новый Структура; // пустой фильтр
        ОчиститьЖурналРегистрации(Фильтр);
    КонецЕсли;

Цитата(roman457 @ 21.07.17, 14:24)

ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ТекДата, &УСловиеСоставное )

Процедура ПолеТабличногоДокументаРезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    Сп = Новый СписокЗначений;
    Сп.Добавить(1);
    Сп.Добавить(2);
    Рез = Сп.ВыбратьЭлемент("Выберите документ");
    Если Не Рез = Неопределено Тогда
        ОткрытьЗначение(Рез);
    КонецЕсли;

КонецПроцедуры

Процедура ПолеТабличногоДокументаРезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
Если ТипЗнч(Расшифровка) = Тип("СписокЗначений") Тогда
Если Расшифровка.Количество() > 1 Тогда
// документы в списке должны быть одного типа.
СтандартнаяОбработка = Ложь;
ФормаСп = Документы.РеализацияТоваровУслуг.ПолучитьФорму("ФормаСписка",,ЭтаФорма);
ФормаСп.Отбор.Ссылка.Использование = Истина;
ФормаСп.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
ФормаСп.Отбор.Ссылка.Значение = Расшифровка;
ФормаСп.Открыть();
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Цитата(Constantus @ 05.07.17, 13:47)

Область.Параметры.расшифровка = Документы.Рейс.НайтиПоНомеру(ВыборкаЭкс.Номер);

&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
    //Вставить содержимое обработчика
КонецПроцедуры

&НаСервере
Процедура ПриСохраненииДанныхВНастройкахНаСервере(Настройки)
    //Вставить содержимое обработчика
КонецПроцедуры

Цитата(Constantus @ 03.07.17, 11:56)

Мой.УстановитьДоступностьСкладов(ЭтаФорма,"ДокументСписок", "ПолеВыбора1", ПараметрыСеанса.ТекущийПользователь);

// на клиенте
Элементы.ИмяЭлементаСтолбцаТаблицы.ТолькоПросмотр = Истина;

Элементы.ТоварыНоменклатураАртикул.ТолькоПросмотр = Истина;

КоллекцияОкон = ПолучитьОкна();
    Для Каждого Окно Из КоллекцияОкон Цикл
        КоллекцияСодержимое = Окно.Содержимое;
        Для Каждого Содержимое Из КоллекцияСодержимое Цикл
            Сообщить(Содержимое.ИмяФормы);
        КонецЦикла;
    КонецЦикла;

&НаКлиенте
Процедура Отобор_СубТочки()
ЗначениеОтбора="" +Объект.Код;
СтолбецОтбора="СнабжКод";    
//==========================
Если ЗначениеОтбора="" Тогда
ЗначениеОтбора="----";
КонецЕсли;
//==========================
Отбор = СубТочкиСписок.Отбор.Элементы;
СубТочкиСписок.Отбор.Элементы.Очистить();
//==========================
ЭлементОтбора=СубТочкиСписок.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ПравоеЗначение=ЗначениеОтбора;
ЭлементОтбора.ЛевоеЗначение=Новый ПолеКомпоновкиДанных(СтолбецОтбора);
ЭлементОтбора.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.Использование=ИСТИНА;
//==========================
// Flexy
Элементы.МояКнопка.Доступность = Не Элементы.Список.ТекущаяСтрока = Неопределено;
//-----
КонецПроцедуры

СисИнфо = Новый СистемнаяИнформация;
Сообщить(СисИнфо.ВерсияОС); // OS
Сообщить(СисИнфо.ИнформацияПрограммыПросмотра); // Browser
Сообщить(СисИнфо.ТипПлатформы); // Platform type

Если фс.СуществуетФайл(Ссылка на файл) = 1 Тогда
Таб.ТекущийОбьект.Загрузить(СсылкаНаФайл);
...
Таб.Вывести();
...
Таб.Показать() / Таб.Напечатать()
.

ИмяФайла="";
ИмяНачКаталога = "";
Если ФС.ВыбратьФайл(0,ИмяФайла, ИмяНачКаталога,,,,) = 1 Тогда
    СсылкаНаФайл = ИмяНачКаталога+ИмяФайла;
КонецЕсли;

    
Рез = Таб.ЗначениеТекущейЯчейки("R1C1");
Если Рез < 0 Тогда
Секция = Таб.ПолучитьСекцию("Строка");
Секция.Область("Товар").ЦветТекста(225,225,225); // Область("R1C1:R2C2")
КонецЕсли;

Секция = Таб.ПолучитьСекцию("Строка");
Сумма = ПолучитьСумму(Запрос);
Если Сумма < 0 Тогда
Секция.Область("Товар").ЦветТекста(225,225,225); // Область("R1C1:R2C2")
КонецЕсли;
Таб.ВывестиСекцию(Секция);

Вчера = ТекущаяДата() - 1;