Как проверить на уникальность номер документа?
16.03.2010
19:29
#1
"Написала обработку, которая добавляет недостающие нули слева к числу.
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Отправления.Ссылка,
| Отправления.Номер,
| Отправления.Дата
|ИЗ
| Документ.Отправления КАК Отправления
|";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Док = Выборка.Ссылка.ПолучитьОбъект();
ДлинаНомера = СтрДлина( СокрЛП(Док.Номер) ); // получаю длину строки без пробелов
ДобавляемСимволы = 9 - ДлинаНомера; // число недостающих символов
НовНомер =Прав("000000000" + СокрЛП(Док.Номер), 9);
Док.Номер = НовНомер;
Док.Записать(РежимЗаписиДокумента.Запись);
КонецЦикла;
---------
т.к. при добавление к существующим номерам недостающие нули, могут вызвать ошибку неуникальности
было
009
09
станет
0000000 09
000000009
Вопрос. Как сравнить строки и на дубликат вместо первого "0" поставить "_"?
"
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Отправления.Ссылка,
| Отправления.Номер,
| Отправления.Дата
|ИЗ
| Документ.Отправления КАК Отправления
|";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Док = Выборка.Ссылка.ПолучитьОбъект();
ДлинаНомера = СтрДлина( СокрЛП(Док.Номер) ); // получаю длину строки без пробелов
ДобавляемСимволы = 9 - ДлинаНомера; // число недостающих символов
НовНомер =Прав("000000000" + СокрЛП(Док.Номер), 9);
Док.Номер = НовНомер;
Док.Записать(РежимЗаписиДокумента.Запись);
КонецЦикла;
---------
т.к. при добавление к существующим номерам недостающие нули, могут вызвать ошибку неуникальности
было
009
09
станет
0000000
000000009
Вопрос. Как сравнить строки и на дубликат вместо первого "0" поставить "_"?
"
бухгалтерия бюджетного учреждения ред.(1.0.14.4) импорт из СЭДаКак в 1С 8.1 УПП сделать что б при печете выводился телефонный номер организации?
Читают тему
(гостей: 1)