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