По теме из базы знаний
- Исправление дублирования документа выемки и ПКО в движениях денежных средств при обмене Розница 2.3 - УТ 11.4. (Расширение)
- Сервис регистрации ошибок 1С (пример создания)
- Сказ о том, как в одной крупной компании документооборот внедряли, или проблемы типовых обменов между КА и ДО
- Доработка проведения в ERP 2.5. (Регистры накопления, Регистры сведений)
- Версионирование объектов VS История данных
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2)Простите вот целый код с проверкой регистра еще
//151321 Проверка регистра
Функция НетЗаписейУведомленияORDRSP(Ссылка)
Проверка = ложь;
Запрос = новый Запрос();
Запрос.УстановитьПараметр("ТекущийЗаказ",Ссылка);
Запрос.Текст = "ВЫБРАТЬ
| УведомленияORDRSP.ЗаказПокупателя
|ИЗ
| РегистрСведений.УведомленияORDRSP КАК УведомленияORDRSP
|ГДЕ
| УведомленияORDRSP.ЗаказПокупателя <> &ТекущийЗаказ
| И УведомленияORDRSP.ОтправленВРучную <> ИСТИНА";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() тогда
Проверка=Истина;
КонецЕсли;
Возврат Проверка;
КонецФункции
//151321 Создание записи регистра
Процедура РегистрУведомленияORDRSP()
Если НетЗаписейУведомленияORDRSP(Ссылка) тогда
запись = РегистрыСведений.УведомленияORDRSP.СоздатьМенеджерЗаписи();
запись.ЗаказПокупателя = Ссылка;
запись.ЗаказEDI = ПолучитьЗаказEDI();
запись.УникальныйИдентификатор = Новый УникальныйИдентификатор();
запись.ОтправленВРучную = Ложь;
запись.ВариантЗаполнения = Перечисления.ВариантыЗаполненияORDRSP.ПовкладкеМТСС;
запись.Состояние = Перечисления.СостоянияORDRSP.Ожидает;
запись.ДатаПостановки = ТекущаяДата();
запись.Записать();
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
//Проверка--151321
Если (ТорговаяТочка.АвтоматическаяОтправкаORDRSP и Контрагент.АвтоматическаяОтправкаORDRSP)= Истина
и торговаяточка.ВариантОтправкиORDRSP = Перечисления.ВариантыОтправкиORDRSP.ПриКаждомИзменении
и торговаяточка.ВариантЗаполненияORDRSP = Перечисления.ВариантыЗаполненияORDRSP.ПовкладкеМТСС
и НЕ (ТоварыSFA = ссылка.ТоварыSFA)Тогда
РегистрУведомленияORDRSP();
КонецЕсли; ПоказатьПроцедура РегистрУведомленияORDRSP()
Если НетЗаписейУведомленияORDRSP(Ссылка) тогда
запись = РегистрыСведений.УведомленияORDRSP.СоздатьМенеджерЗаписи();
запись.ЗаказПокупателя = Ссылка;
запись.ЗаказEDI = ПолучитьЗаказEDI();
запись.УникальныйИдентификатор = Новый УникальныйИдентификатор();
запись.ОтправленВРучную = Ложь;
запись.ВариантЗаполнения = Перечисления.ВариантыЗаполненияORDRSP.ПовкладкеМТСС;
запись.Состояние = Перечисления.СостоянияORDRSP.Ожидает;
запись.ДатаПостановки = ТекущаяДата();
запись.Записать();
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
//Проверка--151321
Если (ТорговаяТочка.АвтоматическаяОтправкаORDRSP и Контрагент.АвтоматическаяОтправкаORDRSP)= Истина
и торговаяточка.ВариантОтправкиORDRSP = Перечисления.ВариантыОтправкиORDRSP.ПриКаждомИзменении
и торговаяточка.ВариантЗаполненияORDRSP = Перечисления.ВариантыЗаполненияORDRSP.ПовкладкеМТСС
и НЕ (ТоварыSFA = ссылка.ТоварыSFA)Тогда
РегистрУведомленияORDRSP();
КонецЕсли; Показать
Если у тебя есть состояние, это состояние является ресурсом для измерения Заказ,
если переводить на русский то для Уникального заказа может изменяться значение состояния,
Если уникальность записи у тебя в рамках заказ + заказEDI тогда и измерения должно быть Заказ + ЗаказEDI.
если переводить на русский то для Уникального заказа может изменяться значение состояния,
Если уникальность записи у тебя в рамках заказ + заказEDI тогда и измерения должно быть Заказ + ЗаказEDI.
для набораЗаписей ты можешь читать данные из регистра и проводить манипуляции с ними и не нужен тебе запрос.
набор = РегистрыСведений.УведомленияORDRSP.СоздатьНаборЗаписей();
набор.Отбор.Заказ.Уставноить(Ссылка);
набор.Прочитать();
После этого ты можешь пройти в цикле по записям и изменить Ресурсы
// Записи присуствуют
Для Каждого Запись из набор Цикл
.....
КонецЦикла;
// Записи отсуствуют
Если Набор.Количество() = 0 тогда
Запись = набор.Добавить();
Запись.ЗаказПокупателя = Ссылка;
.......
КонецЕсли;
Набор.Записать(); Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот