Имя: Пароль:
1C
 
1С 8.3 Отображения диапазона вместо списка номеров
0 Олеся999
 
07.07.15
08:41
http://lvkr.ru/f/frWSvb/800.jpg
Изначально задаем диапазон  от и до и нажимаем кнопку "Ввести диапазон".

Надоумьте пожалуйста, как осуществить запись в строку,  что бы  было видно  диапазон 222222-222231 в место списка со всеми номерами.


Код:


&НаКлиенте
Процедура ВвестиДиапазон(Команда)
    Если ДиапазонОт = 0 Тогда
        ПоказатьПредупреждение(, "Задайте начало диапазона", 5);
        ТекущийЭлемент = Элементы.ДиапазонОт;
        Возврат;
    КонецЕсли;
    Если ДиапазонДо = 0 Тогда
        ПоказатьПредупреждение(, "Задайте окончание диапазона", 5);
        ТекущийЭлемент = Элементы.ДиапазонДо;
        Возврат;
    КонецЕсли;
    Если ДиапазонОт >= ДиапазонДо Тогда
        ПоказатьПредупреждение(, "Начало диапазона должно быть меньше окончания", 5);
        ТекущийЭлемент = Элементы.ДиапазонОт;
    КонецЕсли;
    //Если Элементы.Продукция1Продукция.Пустая() Тогда
    //    ПоказатьПредупреждение(, "Выберите продукцию", 5);
    //    ТекущийЭлемент = Элементы.Продукция1Продукция;
    //КонецЕсли;
    ИсходнаяДл = СтрДлина(ДиапазонОт);
    Для Сч = ДиапазонОт По ДиапазонДо Цикл
        НС = Объект.Товары.Добавить();
        // Надо дополнить до исходной длинны строки
        ЧислоСтр        = Формат(Сч, "ЧДЦ=; ЧН=Пусто; ЧГ=0");
        НС.ШК            = Лев("0000000", ИсходнаяДл - СтрДлина(ЧислоСтр)) + ЧислоСтр;
        НС.Продукция    = Элементы.Продукция.ТекущиеДанные.Продукция;
        НС.Количество   = "1";
    КонецЦикла;
    ДиапазонОт = "";
    ДиапазонДо = "";
    
    //    //вввввввввввввввввввввввввввв
    //  тзРез = Объект.Товары.Выгрузить();
    //  тзРез.Свернуть("Продукция","Количество");
    //  тзРез.Сортировать("Продукция");
    //  Объект.Продукция.Загрузить(тзРез);
      ВвестиДиапазонНаСервере()

КонецПроцедуры
1 Лефмихалыч
 
07.07.15
09:03
Вот так что ли не догадалась?
Дапазон = ""+ДиапазонОт+"-"+ДиапазонДо;

или в чем проблема?
2 ИС-2
 
naïve
07.07.15
09:08
Диапазон = ""+Товары[0].ШК+"-"Товары[ТЧ.Количество()-1].ШК;
3 Олеся999
 
07.07.15
09:44
(1) (2)  Это место      //ДиапазонОт = "";
                    //ДиапазонДо = "";
Нужно вставить ?
4 Олеся999
 
07.07.15
10:20
По отладке вроде создает диапазон ...а как его туду затолкать чтобы создавала только одну строку ?
http://lvkr.ru/f/qHS1w0/1280.jpg
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.