НаборЗаписей = РегистрыСведений.НумерацияДоговоров.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Период.Установить(НачалоГода(Дата)); НаборЗаписей.Отбор.Организация.Установить(Организация); НаборЗаписей.Прочитать(); Если НаборЗаписей.Количество() = 0 Тогда НовыйНомер = НаборЗаписей.Добавить(); НовыйНомер.Организация = Организация; НовыйНомер.Период = НачалоГода(Дата); НовыйНомер.Номер = 2; ном=1; ИначеЕсли НаборЗаписей.Количество() = 1 Тогда НовыйНомер = НаборЗаписей[0]; ном = НовыйНомер.Номер; НовыйНомер.Номер = ном+1; КонецЕсли; НаборЗаписей.Записать(); Номер = Организация.Префикс + "-" + Ном + "/" + Строка(Прав(Год(ТекущаяДата()),2));
//Установить курс Валюты USD КурсыВалют = РегистрыСведений.КурсыВалют; НаборКурсов = КурсыВалют.СоздатьНаборЗаписей(); Доллар = Справочники.Валюты.НайтиПоНаименованию("USD"); НаборКурсов.Отбор.Валюта.Установить(Доллар); НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата())); НаборКурсов.Прочитать(); Если НаборКурсов.Количество() = 0 Тогда НовыйКурс = НаборКурсов.Добавить(); НовыйКурс.Валюта = Доллар; НовыйКурс.Период = ТекущаяДата(); ИначеЕсли НаборКурсов.Количество() = 1 Тогда НовыйКурс = НаборКурсов[0]; Иначе Предупреждение("Курс валюты задается один раз в день.", 60); Возврат; КонецЕсли; НовыйКурс.Курс = 31.44; НовыйКурс.Кратность = 1; НаборКурсов.Записать();
//В регистр были ошибочно записаны штрихкоды. // Нужно по заданным Номенклатуре (Товар) и Характеристике (ХарактеристикаТовара) найти эту запись и заменить там штрихкод. Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ШтрихкодыНоменклатуры.Штрихкод КАК Штрихкод |ИЗ | РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры |ГДЕ | ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура И | ШтрихкодыНоменклатуры.Характеристика = &Характеристика"; Запрос.УстановитьПараметр("Номенклатура", Товар); Запрос.УстановитьПараметр("Характеристика", ХарактеристикаТовара); Выборка = Запрос.Выполнить().Выбрать(); Если НЕ Выборка.Следующий() Тогда ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи(); ТекЗапись.Номенклатура = Товар; Если ЗначениеЗаполнено(ХарактеристикаТовара) Тогда ТекЗапись.Характеристика = ХарактеристикаТовара; Иначе ТекЗапись.Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка(); КонецЕсли; ТекЗапись.Штрихкод = ?(ПустаяСтрока(ШтрихКод),РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13(), Штрихкод); Попытка ТекЗапись.Записать(); Исключение КонецПопытки; Иначе НайденныйШтрихкод = Выборка.Штрихкод; ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи(); ТекЗапись.Штрихкод = НайденныйШтрихкод; ТекЗапись.Прочитать(); ТекЗапись.Штрихкод = Штрихкод; Попытка ТекЗапись.Записать(); Исключение КонецПопытки; КонецЕсли;