При переборе элементов справочника, перебирает только 999 элементов? ((((

Форум 1С: Одинэс.Ру
Найти!

При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
25.02.2009 - 19:49
 Подскажите плиз, код:
 
Процедура КнопкаВыполнитьНажатие(Кнопка)
 
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВыбранныйСправочник.Ссылка
|ИЗ
| Справочник.";
 
Запрос.Текст = Запрос.Текст + Справочник.Метаданные().Имя;
 
Запрос.Текст = Запрос.Текст + " КАК ВыбранныйСправочник
|
|УПОРЯДОЧИТЬ ПО
| ВыбранныйСправочник.Код";
 
Строка = "";
счетчик1 = 1;
 
Пока счетчик1 <= Справочник.Метаданные().ДлинаКода-1 цикл
строка = строка + "0";
счетчик1 = счетчик1 + 1;
КонецЦикла;
 
Выборка = Запрос.Выполнить().Выбрать();
 
ЭлементыФормы.Индикатор.МаксимальноеЗначение = Выборка.Количество();
ЭлементыФормы.Индикатор.Значение = 0;
 
П = 0;
Пока Выборка.Следующий() Цикл
ЭлементСправочника = Выборка.Ссылка.ПолучитьОбъект();
П  = П + 1;
КолСтр = СтрДлина(Строка(П));
КолНулей = 4 - КолСтр;
                Если КолНулей = 3 Тогда
Нули = "000";
ИначеЕсли КолНулей = 2 Тогда
Нули = "00";
ИначеЕсли КолНулей = 1 Тогда
Нули = "0";
Иначе
Прервать;
Сообщить("Больше нулей нет!");
КонецЕсли;
 
ЭлементСправочника.Код = "Ю"+Нули+Строка(П);
ЭлементСправочника.Записать();
Сообщить("Обработали: "+Строка(П));
     КонецЦикла;
КонецПроцедуры
 
Так вот перебирает 999 элементов справчоника и цикл завершается. Почему?
Спасибо.
 
PS я только начал изучать 8.1. Спасибо.
К списку тем 1 > К списку форумов

Интересные темы

odines.ru
26.04.2024 - 16:13
 Смотри также:
Подскажите про нулевые остатки запросом через КурсыВалют
Скопировал форму из одного справочника в другой,... подскажите плз
Как реализовать... список документов чтобы хранился в одном документе

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

lalex23
1 - 25.02.2009 - 20:00
 а у вас не возникает подозрения, что цифра 999 как-то связана со строками
 
П  = П + 1;
КолСтр = СтрДлина(Строка(П));
КолНулей = 4 - КолСтр;
и
Иначе
Прервать;
Сообщить("Больше нулей нет!");
КонецЕсли;

попробуйте вместо манипуляций с нулями воспользоваться кодом:
ЭлементСправочника.Код = "Ю" + Формат(П,"ЧЦ=" + Справочник.Метаданные().ДлинаКода-1 + "; ЧВН=; ЧГ=0")

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
2 - 25.02.2009 - 20:12
 Спасибо, за подсказку. Блин я нашел ошибку - почему то после 999 элемента, переменная "П" становится 1 000. КолСтр = 5 (КолСтр = СтрДлина(Строка(П));), когда должна по идее выдавать 4, т.е. учитывается пробел между 1 и 0 (1 000). Как возможно получить 1000, без пробела? Спасибо.    

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

lalex23
3 - 25.02.2009 - 20:14
 (2) я же уже написал:
ЭлементСправочника.Код = "Ю" + Формат(П,"ЧЦ=" + Справочник.Метаданные().ДлинаКода-1 + "; ЧВН=; ЧГ=0")

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
4 - 25.02.2009 - 20:15
 3) Окей, спасибо. Сделаю.

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
5 - 25.02.2009 - 20:29
 3) Я плохо ориентируюсь )) Выскакивает окно с ошибкой: Преобразование значения к типу Число не может быть выполнено. В чем ошибка?
П = 0;
Пока Выборка.Следующий() Цикл
ЭлементСправочника = Выборка.Ссылка.ПолучитьОбъект();
П  = П + 1;
ЭлементСправочника.Код = "Ж" + Формат(К,"ЧЦ=" + Справочник.Метаданные().ДлинаКода-1 + "; ЧВН=; ЧГ=0");
ЭлементСправочника.Записать();
Сообщить("Обработали: "+Строка(П));
КонецЦикла;

Интересные темы

odines.ru
26.04.2024 - 16:13
 Смотри также:
Есть проблема с итогами
09 счет и убытки прошлого периода
запрос

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

Пудель
6 - 25.02.2009 - 20:38
 Чудовищно.

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
7 - 25.02.2009 - 20:46
 прошу помочь.

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

Пудель
8 - 25.02.2009 - 20:48
 Неявное преобразование типов помните как происходит?

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

Исчо
9 - 25.02.2009 - 21:05
 (2)СтрокаБезпробела = СтрЗаменить(СтрокаСПробелом, Символ(160), "");

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
10 - 25.02.2009 - 21:06
 все равно не могу разобраться. ( в чем ошибка?

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

КонецЦикла
11 - 25.02.2009 - 21:17
 Ну где же Петя с фразой про порог вхождения в снеговика?

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

гр534
12 - 25.02.2009 - 21:29
 Исчо) Огромное спасибо за помощь.

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

lalex23
13 - 26.02.2009 - 02:57
 млин, скобочки забыл :(

Re: При переборе элементов справочника, перебирает только 999 элементов? ((((

lalex23
14 - 26.02.2009 - 02:58
 млин, лажанулсо :(
ЭлементСправочника.Код = "Ю" + Формат(П,"ЧЦ=" + Строка(Справочник.Метаданные().ДлинаКода-1) + "; ЧВН=; ЧГ=0")
К списку тем 1 > К списку форумов

Добавить новое сообщение

Ваше имя:
Тема сообщения:
Сообщение:
« Организация восстановления последовательности в УТ НДФЛ расчитывает - сплошные корректировки »
© 2009 Форум 1С: Одинэс.Ру