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