Помогите изменить нумерацию у документов: отсечь справа нули. Например, номер вида 180-окл0000 надо сделать 180-окл.
Вот код:
&НаСервере
Процедура ИзменитьНумерациюНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КадровыйПеревод.Ссылка
|ИЗ
| Документ.КадровыйПеревод КАК КадровыйПеревод
|ГДЕ
| КадровыйПеревод.Номер ПОДОБНО &ПрефиксПеревода
| И КадровыйПеревод.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
| И КадровыйПеревод.ПометкаУдаления = ЛОЖЬ";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Об= ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
Пока Прав(об.Номер, 1) = "0" Цикл
// вот здесь как отсечь нули, чтобы из 180-окл0000 получить 180-окл
об.записать();
КонецЦикла;
КонецЦикла;
обНомер = об.Номер;
Пока Прав(обНомер, 1) = "0" Цикл
обНомер = Лев(обНомер, СтрДлина(обНомер) - 1);
КонецЦикла;
об.Номер = обНомер;
об.записать();
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс