Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Как проверить на уникальность номер документа?

Jlmel
читатель
офлайн
Дата регистрации: 09.10.2009
Сообщений: 48
Пост №1
 
16.03.2010 19:29

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

Вьюн
читатель
офлайн
Дата регистрации: 14.01.2007
Сообщений: 657
Пост №2
 
16.03.2010 21:22

" Как-то так, после<br>НовНомер =Прав("000000000" + СокрЛП(Док.Номер), 9);<br> добавить<br>НовДокСсылка = Документы[Док.Метаданные().Имя].НайтиПоНомеру(НовНомер, Док.Дата);<br>Если НЕ НовДокСсылка.Пустая() Тогда<br> НовНомер = "_" + Прав(НовНомер, 8);<br>КонецЕсли<br>"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация