Бухгалтерский учет, налогообложение, отчетность, МСФО, анализ бухгалтерской информации, 1С:Бухгалтерия

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

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

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

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

"Написала обработку, которая добавляет недостающие нули слева к числу.

Процедура КнопкаВыполнитьНажатие(Кнопка)

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
             | Отправления.Ссылка,
             | Отправления.Номер,
             | Отправления.Дата
             |ИЗ
             | Документ.Отправления КАК Отправления
       |";


Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Док = Выборка.Ссылка.ПолучитьОбъект();
ДлинаНомера = СтрДлина( СокрЛП(Док.Номер) ); // получаю длину строки без пробелов
ДобавляемСимволы = 9 - ДлинаНомера; // число недостающих символов
НовНомер =Прав("000000000" + СокрЛП(Док.Номер), 9);
Док.Номер = НовНомер;
Док.Записать(РежимЗаписиДокумента.Запись);
КонецЦикла;

---------
т.к. при добавление к существующим номерам недостающие нули, могут вызвать ошибку неуникальности

было
009
09
станет
0000000­09
000000009
Вопрос. Как сравнить строки и на дубликат вместо первого "0" поставить "_"?


"

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

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

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

Читают тему:

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

1С бесплатно 1С-Отчетность 1С:ERP Управление предприятием 1С:Бесплатно 1С:Бухгалтерия 8 1С:Бухгалтерия 8 КОРП 1С:Бухгалтерия автономного учреждения 1С:Бухгалтерия государственного учреждения 1С:Бюджет муниципального образования 1С:Бюджет поселения 1С:Вещевое довольствие 1С:Деньги 1С:Документооборот 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и кадры государственного учреждения 1С:Зарплата и управление персоналом 1С:Зарплата и управление персоналом КОРП 1С:Комплексная автоматизация 8 1С:Лекторий 1С:Предприятие 1С:Предприятие 7.7 1С:Предприятие 8 1С:Розница 1С:Управление нашей фирмой 1С:Управление производственным предприятием 1С:Управление торговлей 1СПредприятие 8

Все теги