РИБ

Форум Программирование Общие вопросы программирования (Dev)

1С:Управление торговлей 11 Платформа 1С v8.3

1. sashasasha89 10.05.16 06:33 Сейчас в теме

Здравствуйте. При синхронизации у некоторых документов от имени одного пользователя проводятся некоторые документ или меняется их статус. Это видно в журнале регистраций. Проводятся они после завершения синхронизации (после 18-00). В настройках РИБ ни чего не менялось.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. sashasasha89 10.05.16 10:54 Сейчас в теме

И еще очень быстро растет журнал регистрации занимаю все место на диски и оперативную память. Вот ошибки в журнале: Область данных вспомогательные данные: 0, Область данных основные данные: 0

3. sashasasha89 11.05.16 06:57 Сейчас в теме

(2) sashasasha89, При этом в событие пишет: Управление доступом. Роль не найдена в метаданных.
При обновление ролей пользователя: ""? ЧтениеРасчетыПоДоговорамКредитовИДепозитов профиля групп доступа "кассир" не найдена в метаданных.

4. sashasasha89 11.05.16 07:07 Сейчас в теме

Таких записей подряд по штук двадцать каждые полчаса от одного пользователя.

Убрал у пользователя право "Кассир" ошибки перестали сыпаться. Но журнал регистрации растет.

5. sashasasha89 11.05.16 10:44 Сейчас в теме

Нашел причину - транзакции. Они в отборе были отключены и их поэтому не было в списке видно. Подскажите для чего они нужны и можно сделать чтобы они не писались?
База SQL.
Посмотрел в копии раньше намного меньше писалось транзакций.

6. sashasasha89 13.05.16 10:33 Сейчас в теме

Нашел момент когда за одну(!!!) секунду больше 300 записей в журнале регистрации и все транзакция. Кто-нибудь встречался с такой проблемой?

7. sashasasha89 17.05.16 06:05 Сейчас в теме

Причем это только в центральной базе. В периферийной базе журнал правильно пишется. Но вторая базе не обменивается с ЦБ по расписанию. Но я нашел причину. 12 мая в 15:00 регламентный задания выполнились датой 12.05.2099. И теперь как я понимаю он проверяет что дата выполненного задания больше текущего и не запускает регламентное задания. Попробовал вручную задание выполняется но дата остается старой. Подскажите как исправить?

8. sashasasha89 20.05.16 04:10 Сейчас в теме

В консоли занятий все включено.

Прикрепленные файлы:

9. sashasasha89 24.05.16 05:41 Сейчас в теме

Помогите. Если 1с в режиме предприятия запущена и даже ни чего не далеешь трнзакции всеравно пишется очень много. Ни кто не сталкивался с такой проблемой?

Прикрепленные файлы:

10. TODD22 18 24.05.16 07:05 Сейчас в теме

Если 1с в режиме предприятия запущена и даже ни чего не далеешь трнзакции всеравно пишется очень много. Ни кто не сталкивался с такой проблемой?

Так вроде же пишет что выполняется фоновое задание....

11. sashasasha89 24.05.16 10:11 Сейчас в теме

(10) TODD22, Фоновые задания новые не добовляли. Но раньше так много записей не делалось. Изза этих записей ЖР растет на 3 Гб в сутки. Раньше 1-2 записи в минуту с транзакции, а сейчас по 300-400 в секунду бывает.

12. TODD22 18 24.05.16 10:15 Сейчас в теме

(11) sashasasha89, Ну у тебя же в ЖР написано что это фоновое задание.
Останови все фоновые и запусти их заново....

13. sashasasha89 24.05.16 10:58 Сейчас в теме

(12) TODD22, На копии все регламентные операции отключил. Но когда работаешь в базе все равно "Транзакции" только теперь в тонком клиент по 10 штук каждую секунду. И только когда что то делаешь с документом. Намного лучше. Раньше были те же регламентные операции и работало все хорошо. Причем база риб. В перефирийной базе транзакций столько нет хоть регламентные операции те же самые. Там чучуть другая проблема.

14. TODD22 18 24.05.16 10:59 Сейчас в теме

(13) sashasasha89, В базе какие то доработки делали?

15. sashasasha89 24.05.16 11:03 Сейчас в теме

(14) TODD22, Фоновый задания запусил и опять посыпались.
Да были внесены кое какие изменения.
Возможно в коде исправить чтобы транзакции вообще не писались? И можно так?

16. TODD22 18 24.05.16 11:07 Сейчас в теме

(15) sashasasha89, Надо для начала посмотреть что за доработки были сделаны.... А то может вся проблема в них.

Возможно в коде исправить чтобы транзакции вообще не писались? И можно так?

Это всё сама платформа пишет. Так что скорее всего если не найти источник то нельзя.

17. sashasasha89 24.05.16 11:12 Сейчас в теме

(16) TODD22, Это примерно где искать. Как я понимаю есть в УТ 11.1 обработка "Журнал регистраций". В ней надо искать? У меня есть копия до обновления сравнение конфигураций наверно ничего не даст?

18. TODD22 18 24.05.16 11:17 Сейчас в теме

(17) sashasasha89, Как раз сравнение и нужно делать.
А началось после обновления? Может там какое нибудь отложенное обновление включается и что то пытается делать? Есть же такие функции в УТ. Обновление ставится, а потом фоновое задание обрабатывает данные в базе.

20. sashasasha89 24.05.16 12:04 Сейчас в теме

(18) TODD22, Примерно после обновления. Точно сказать не могу тк заметил когда ЖР съел все свободное место на диске.

19. sashasasha89 24.05.16 11:49 Сейчас в теме

Изменение в общем модуле → Штрихкодирование печатных форм, один документ и один справочник.

Изменения
*- Объект изменен -->- Объект присутствует только в основной конфигурации <--- Объект присутствует только в файле ^- Порядок объекта изменен - Конфигурация.УправлениеТорговлей - ОбщийМодуль.ШтрихкодированиеПечатныхФорм - Модуль - Различаются значения Изменено: 152 - 152 < "·ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);" > "·ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина); // Была Ложь (поменял чтоб читал штрих код документа)" - Справочник.СЦ_ВидыСостоянияЗаявки - Основная форма объекта - Catalogs - <--Catalog.СЦ_ВидыСостоянияЗаявки.Form.ФормаЭлемента - Основная форма списка - Catalogs - <--Catalog.СЦ_ВидыСостоянияЗаявки.Form.ФормаСписка - <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветКрасный - <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветЗеленый - <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветСиний - <--Справочник.СЦ_ВидыСостоянияЗаявки.Форма.ФормаСписка - <--Справочник.СЦ_ВидыСостоянияЗаявки.Форма.ФормаЭлемента - Документ.СЦ_КвитанцияПриемки - Модуль объекта - Различаются значения Изменено: 38 - 40 < "·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда" < "··Возврат;" < "·КонецЕсли;" > "//·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда" > "//··Возврат;" > "//·КонецЕсли;" Объект присутствует только в файле: 49 - 50 "//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+" "//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+ " типо мастер: "+Строка(Мастер)+" из проц: ЗаписатьИзменениеСостояниеЗаявкиВРегистр");" Изменено: 73 - 75 < "·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда" < "··Возврат;" < "·КонецЕсли;" > "·//Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда" > "·//·Возврат;" > "·//КонецЕсли;" Объект присутствует только в файле: 85 - 86 "//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+" "//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(Мастер)+" проц.: УстановитьОтветственного");" Объект присутствует только в файле: 98 - 99 "//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+" "//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(Мастер)+" из проц. УстановитьСтатусЗвонка");" Изменено: 108 - 124 < "··//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике" < "··Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл" < "···Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" < "····Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" < "·····Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();" < "·····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" < "······Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" < "······· ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" < "······· ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" < "······· ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" < "······· Сообщить("Контактный номер "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" < "····· ·КонецЕсли;" < "·····КонецЦикла;" < "·····Объект1.Записать();" < "····КонецЕсли;" < "···КонецЕсли;" < "··КонецЦикла;" > "··////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике" > "··//Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл" > "··//·Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" > "··//··Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" > "··//···Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();" > "··//···Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" > "··//····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" > "··//····· ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" > "··//····· ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" > "··//····· ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" > "··//····· Сообщить("Контактный номер "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" > "··//··· ·КонецЕсли;" > "··//···КонецЦикла;" > "··//···Объект1.Записать();" > "··//··КонецЕсли;" > "··//·КонецЕсли;" > "··//КонецЦикла;" Изменено: 144 - 145 < "···Выборка.Следующий();" < "···Если ЭтотОбъект.СостояниеЗаявки <> Выборка.СостояниеЗаявки Тогда" > "···Выборка.Следующий(); ВыбрМастер="";" > "···Если (ЭтотОбъект.СостояниеЗаявки <> Выборка.СостояниеЗаявки) или (ЭтотОбъект.Ответственный<>Выборка.Мастер) Тогда" Изменено: 149 - 149 < "····Если ЭтотОбъект.СостояниеЗаявки = Справочники.СЦ_ВидыСостоянияЗаявки.НайтиПоНаименованию("В работе") И НЕ ЭтотОбъект.Ответственный = Справочники.Пользователи.ПустаяСсылка() Тогда" > "···//·Если ЭтотОбъект.СостояниеЗаявки = Справочники.СЦ_ВидыСостоянияЗаявки.НайтиПоНаименованию("В работе") И НЕ ЭтотОбъект.Ответственный = Справочники.Пользователи.ПустаяСсылка() Тогда" Изменено: 152 - 156 < "····Иначе" < "·····НоваяЗапись.Мастер = ТекущийПользователь;·" < "·····НоваяЗапись.Подразделение = ТекущийПользователь.ТекущееПодразделение;" < "····КонецЕсли;" > "···//·Иначе" > "···//··НоваяЗапись.Мастер = ТекущийПользователь;·" > "···//··НоваяЗапись.Подразделение = ТекущийПользователь.ТекущееПодразделение;" > "···//·КонецЕсли;" < "····ВыбрМастер=НоваяЗапись.Мастер;" Объект присутствует только в файле: 160 - 162 "//····ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(ЭтотОбъект.Ссылка.Номер)+" "//·" от: "+Строка(ЭтотОбъект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(ВыбрМастер)+" проц.: ПриЗаписи");" "" Объект присутствует только в файле: 198 - 241 "·" "·//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Контрагенты" "·Попытка" "·Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл" "··Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" "···Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" "····Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();" "····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" "·····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" "······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" "······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" "······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" "······Сообщить("Контактный номер в справочнике контрагенты "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" "·····КонецЕсли;" "····КонецЦикла;" "····Объект1.Записать();" "···КонецЕсли;" "··КонецЕсли;" "·КонецЦикла;" "·//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Партнеры" "·Если ЭтотОбъект.Контрагент.Партнер.Пустая()=Ложь Тогда" "··Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.Партнер.КонтактнаяИнформация Цикл" "···Если Строка(ЭлементКонтактнаяИнформация.Тип)="Телефон" Тогда" "····Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" "·····Объект1 = ЭтотОбъект.Контрагент.Партнер.ПолучитьОбъект();" "·····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" "······Если Строка(ЭлементКонтактная.Тип)="Телефон" Тогда" "·······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" "·······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" "·······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" "·······Сообщить("Контактный номер в справочнике партнеры "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" "······КонецЕсли;" "·····КонецЦикла;" "·····Объект1.Записать();" "····КонецЕсли;" "···КонецЕсли;" "··КонецЦикла;" "" "·КонецЕсли;" "·Исключение" "·КонецПопытки;" "·" "·" Объект присутствует только в файле: 317 - 317 "·ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабДокумент, МакетДокумента, Обл, ЭтотОбъект.Ссылка);" Изменено: 434 - 475 < "КонецФункции" > "КонецФункции" < "" < "Процедура ОбработкаПроведения(Отказ, РежимПроведения)" < "·////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Контрагенты" < "·//Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл" < "·//·Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" < "·//··Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" < "·//···Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();" < "·//···Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" < "·//····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда" < "·//·····ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" < "·//·····ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" < "·//·····ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" < "·//·····Сообщить("Контактный номер в справочнике контрагенты "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" < "·//····КонецЕсли;" < "·//···КонецЦикла;" < "·//···Объект1.Записать();" < "·//··КонецЕсли;" < "·//·КонецЕсли;" < "·//КонецЦикла;" < "·////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Партнеры" < "·//Если ЭтотОбъект.Контрагент.Партнер.Пустая()=Ложь Тогда" < "·//·Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.Партнер.КонтактнаяИнформация Цикл" < "·//··Если Строка(ЭлементКонтактнаяИнформация.Тип)="Телефон" Тогда" < "·//···Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда" < "·//····Объект1 = ЭтотОбъект.Контрагент.Партнер.ПолучитьОбъект();" < "·//····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл" < "·//·····Если Строка(ЭлементКонтактная.Тип)="Телефон" Тогда" < "·//······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;" < "·//······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;" < "·//······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;" < "·//······Сообщить("Контактный номер в справочнике партнеры "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);" < "·//·····КонецЕсли;" < "·//····КонецЦикла;" < "·//····Объект1.Записать();" < "·//···КонецЕсли;" < "·//··КонецЕсли;" < "·//·КонецЦикла;" < "" < "·//КонецЕсли;" < "КонецПроцедуры" - Документ.СЦ_КвитанцияПриемки.Форма.ФормаСписка - Модуль - Различаются значения Объект присутствует только в файле: 56 - 56 "·ДокументОбъект.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя);" Изменено: 58 - 58 < "·Сообщить("" + ДокументОбъект + " Оборудование готово. Ответственный: " + ДокументОбъект.Ответственный ,СтатусСообщения.Информация);" > "//·Сообщить("" + ДокументОбъект + " Оборудование готово. Ответственный: " + ДокументОбъект.Ответственный ,СтатусСообщения.Информация);" Изменено: 86 - 86 < "Процедура КнопкаЗвонокЗаказчикуНаСервере(Результат,ДокументСсылка,Мастер)" > "Процедура КнопкаЗвонокЗаказчикуНаСервере(Результат,ДокументСсылка)" Объект присутствует только в файле: 88 - 88 "·Мастер = Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя);" Изменено: 107 - 107 < "·КнопкаЗвонокЗаказчикуНаСервере(Строка(Результат),ЭтотОбъект.ТекущийЭлемент.ТекущаяСтрока,ПолучитьМастераИзСписка(ЭтаФорма.Элементы.Подразделение));" > "·КнопкаЗвонокЗаказчикуНаСервере(Строка(Результат),ЭтотОбъект.ТекущийЭлемент.ТекущаяСтрока);" Объект присутствует только в файле: 314 - 343 "#КонецОбласти" "#Область ОбработчикиКомандФормы" "&НаКлиенте" "Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)" "·// ПодключаемоеОборудование" "//·Если Источник = "ПодключаемоеОборудование" И ВводДоступен() Тогда" "·Если Источник = "ПодключаемоеОборудование" Тогда" "··Если ИмяСобытия = "ScanData" Тогда" "···ОбработатьШтрихкоды(МенеджерОборудованияКлиент.ПреобразоватьДанныеСоСканераВСтруктуру(Параметр));" "··КонецЕсли;" "·КонецЕсли;" "·// Конец ПодключаемоеОборудование" "" "КонецПроцедуры" "" "&НаКлиенте" "Функция СсылкаНаЭлементСпискаПоШтрихкоду(Штрихкод)" "·" "·Менеджеры = Новый Массив();" "·Менеджеры.Добавить(ПредопределенноеЗначение("Документ.СЦ_КвитанцияПриемки.ПустаяСсылка"));" "·Возврат ШтрихкодированиеПечатныхФормКлиент.ПолучитьСсылкуПоШтрихкодуТабличногоДокумента(Штрихкод, Менеджеры);" "·" "КонецФункции" "" "" "&НаСервере" "Функция ВернемФормуДокумента(ТекКвит)" "·Возврат ТекКвит.Ссылка;" "КонецФункции" "" Изменено: 345 - 380 < "#КонецОбласти" > "&НаКлиенте" < "Процедура ОбработатьШтрихкоды(Данные)" < "·" < "·МассивСсылок = СсылкаНаЭлементСпискаПоШтрихкоду(Данные.Штрихкод);" < "·Если МассивСсылок.Количество() > 0 Тогда" < "·//·Элементы.Список.ТекущаяСтрока = МассивСсылок[0];" < "··Если ТипЗнч(МассивСсылок[0])=Тип("ДокументСсылка.СЦ_КвитанцияПриемки") Тогда" < "···Если МассивСсылок[0].Пустая()=Ложь Тогда" < "····Элементы.Список.ТекущаяСтрока = МассивСсылок[0];" < "····ОткрытьЗначение(ВернемФормуДокумента(МассивСсылок[0]));" < "····" < "···//·ТекКвит=МассивСсылок[0].ПолучитьОбъект();" < "···//·ТекКвит.ПолучитьФорму("ФормаДокумента").Открыть();" < "···КонецЕсли;" < "··КонецЕсли;" < "·Иначе" < "··ШтрихкодированиеПечатныхФормКлиент.ОбъектНеНайден(Данные.Штрихкод);" < "·КонецЕсли;" < "·" < "КонецПроцедуры" < "" < "&НаКлиенте" < "Процедура ПриОткрытии(Отказ)" < " ОписаниеОшибки = "";" < " ПоддерживаемыеТипыВО = Новый Массив();" < " ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");" < " Если Не МенеджерОборудованияКлиент.ПодключитьОборудованиеПоТипу(УникальныйИдентификатор, ПоддерживаемыеТипыВО, ОписаниеОшибки) Тогда" < " ТекстСообщения = НСтр("ru = 'При подключении оборудования произошла ошибка:" < " \|""%ОписаниеОшибки%"".'");" < " ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%", ОписаниеОшибки);" < " ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);" < " КонецЕсли;" < "" < "КонецПроцедуры" < "" < "#КонецОбласти" - Реквизиты - <--Реквизит - ИспользоватьПодключаемоеОборудование - <--Реквизит - ПоддерживаемыеТипыПодключаемогоОборудования - Элементы - Форма - События Обработка оповещения на клиенте < > ОбработкаОповещения При открытии на клиенте < > ПриОткрытии - ФормаКоманднаяПанель - ФормаГруппаКнопок - ФормаКнопкаОтветственный Доступность < Истина > Ложь - Документ.СЦ_КвитанцияПриемки.Форма.ФормаДокумента - Модуль - Различаются значения Объект присутствует только в файле: 403 - 404 "" "" Изменено: 416 - 417 < "··Форма = ПолучитьФорму("Справочник.Пользователи.Форма.ФормаСписка",ПараметрыФормы);" < "··Возврат Форма.ОткрытьМодально();" > "··Возврат ПолучитьТекущегоПользователя();" Объект присутствует только в файле: 472 - 472 "··Объект.Ответственный = Мастер; Объект присутствует только в файле: 510 - 511 "//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(Объект.Ссылка.Номер)+" "//·" от: "+Строка(Объект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+"типо мастер: "+Строка(Мастер)+" проц.: КнопкаОтветственныйНаСервере");" Изменено: 617 - 617 < "·Сообщить("" + Объект.Ссылка + " Оборудование выдал: " + Мастер ,СтатусСообщения.Информация);" > "·" Изменено: 628 - 630 < "·//·КнопкаВыданоИзСервисаНаСервере(Мастер);" < "··КнопкаВыданоИзСервисаНаСервере(Неопределено);" > "··КнопкаВыданоИзСервисаНаСервере(Мастер);" > "··Объект.Ответственный = Мастер; < "·//·КнопкаВыданоИзСервисаНаСервере(Неопределено);" Объект присутствует только в файле: 844 - 846 "//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(Объект.Ссылка.Номер)+" "//·" от: "+Строка(Объект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+"типо мастер: "+Строка(Мастер)+" проц.: ИзменитьСостояниеЗаявкиНаСервере");" "" Объект присутствует только в файле: 1101 - 1161 "КонецПроцедуры" "" "" "&НаСервере" "Процедура ВЗаказПокупателяИзЩтрихКода(ТекШтрихКод)" "·Запрос = Новый Запрос;" "·Запрос.Текст = " "··"ВЫБРАТЬ" "··\|·ШтрихкодыНоменклатуры.Штрихкод," "··\|·ШтрихкодыНоменклатуры.Номенклатура КАК Номенклатура" "··\|ИЗ" "··\|·РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры" "··\|ГДЕ" "··\|·ШтрихкодыНоменклатуры.Штрихкод = &ТекШтрихКод" "··\|" "··\|УПОРЯДОЧИТЬ ПО" "··\|·Номенклатура";" "·" "·Запрос.УстановитьПараметр("ТекШтрихКод", ТекШтрихКод);" "·" "·РезультатЗапроса = Запрос.Выполнить();" "·" "·ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();" "·" "·Пока ВыборкаДетальныеЗаписи.Следующий() Цикл" "··ПараметрыОтбора = Новый Структура;" "··ПараметрыОтбора.Вставить("Номенклатура", ВыборкаДетальныеЗаписи.Номенклатура);" "··НайдСтр=Объект.Работа.НайтиСтроки(ПараметрыОтбора);" "··Если НайдСтр.Количество()=0 Тогда" "···ТекущаяСтрока = Объект.Работа.Добавить();" "···ТекущаяСтрока.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;" "···ТекущаяСтрока.Количество = 1;" "···ТекущаяСтрока.Цена ·= ПолучитьЦенуНоменклатурыНаСервере(ВыборкаДетальныеЗаписи.Номенклатура);" "···ТекущаяСтрока.Мастер ·= НайтиИмяПользователяНаСервере();" "···ТекущаяСтрока.Единица ·= ПолучитьШтНаСервере();" "··Иначе" "···ТекущаяСтрока=НайдСтр[0];" "···ТекущаяСтрока.Количество=ТекущаяСтрока.Количество+1;" "···ТекущаяСтрока.Мастер ·= НайтиИмяПользователяНаСервере();" "··КонецЕсли;" "·КонецЦикла;" "" "КонецПроцедуры" "&НаКлиенте" "Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)" "·Если Источник = "ПодключаемоеОборудование" Тогда" "··Если ИмяСобытия = "ScanData" Тогда" "···ТекШтрихКод="";" "···Попытка" "····ТекШтрихКод=Параметр[0];" "···Исключение" "···КонецПопытки;" "···Если ТекШтрихКод="" Тогда" "····Возврат;" "···КонецЕсли;" "···ВЗаказПокупателяИзЩтрихКода(ТекШтрихКод);" "···Источник=""; //обнулим событие" "···Возврат;" "··КонецЕсли;" "·КонецЕсли;" "" - Элементы - Форма - События Обработка оповещения на клиенте < > ОбработкаОповещения - Страницы - ГруппаСостояние_Заявки - Ответственный Доступность < Истина > Ложь - СостояниеЗаявки - СостояниеЗаявкиКоманднаяПанель - СостояниеЗаявкиКнопкаОтветственный Доступность < Истина > Ложь - *Документ.СЦ_КвитанцияПриемки.Макет.Приемка - Рисунки - <--КартинкаШтрихкода

Изменения

***- Объект изменен
-->- Объект присутствует только в основной конфигурации
<--- Объект присутствует только в файле
^- Порядок объекта изменен

- ***Конфигурация.УправлениеТорговлей
- ***ОбщийМодуль.ШтрихкодированиеПечатныхФорм
- Модуль - Различаются значения
Изменено: 152 - 152
< "·ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);"
> "·ПараметрыШтрихкода.Вставить("ОтображатьТекст", Истина); // Была Ложь (поменял чтоб читал штрих код документа)"
- ***Справочник.СЦ_ВидыСостоянияЗаявки
- ***Основная форма объекта
- ***Catalogs
- <--Catalog.СЦ_ВидыСостоянияЗаявки.Form.ФормаЭлемента
- ***Основная форма списка
- ***Catalogs
- <--Catalog.СЦ_ВидыСостоянияЗаявки.Form.ФормаСписка
- <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветКрасный
- <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветЗеленый
- <--Справочник.СЦ_ВидыСостоянияЗаявки.Реквизит.ЦветСиний
- <--Справочник.СЦ_ВидыСостоянияЗаявки.Форма.ФормаСписка
- <--Справочник.СЦ_ВидыСостоянияЗаявки.Форма.ФормаЭлемента
- ***Документ.СЦ_КвитанцияПриемки
- Модуль объекта - Различаются значения
Изменено: 38 - 40
< "·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда"
< "··Возврат;"
< "·КонецЕсли;"
> "//·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда"
> "//··Возврат;"
> "//·КонецЕсли;"
Объект присутствует только в файле: 49 - 50
"//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+"
"//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+ " типо мастер: "+Строка(Мастер)+" из проц: ЗаписатьИзменениеСостояниеЗаявкиВРегистр");"
Изменено: 73 - 75
< "·Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда"
< "··Возврат;"
< "·КонецЕсли;"
> "·//Если СостояниеЗаявки = Выборка.СостояниеЗаявки И Мастер = Выборка.Мастер Тогда"
> "·//·Возврат;"
> "·//КонецЕсли;"
Объект присутствует только в файле: 85 - 86
"//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+"
"//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(Мастер)+" проц.: УстановитьОтветственного");"
Объект присутствует только в файле: 98 - 99
"//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(СсылкаДокумент.Номер)+"
"//·" от: "+Строка(СсылкаДокумент.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(Мастер)+" из проц. УстановитьСтатусЗвонка");"
Изменено: 108 - 124
< "··//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике"
< "··Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл"
< "···Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
< "····Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
< "·····Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();"
< "·····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
< "······Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
< "······· ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
< "······· ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
< "······· ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
< "······· Сообщить("Контактный номер "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
< "····· ·КонецЕсли;"
< "·····КонецЦикла;"
< "·····Объект1.Записать();"
< "····КонецЕсли;"
< "···КонецЕсли;"
< "··КонецЦикла;"
> "··////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике"
> "··//Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл"
> "··//·Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
> "··//··Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
> "··//···Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();"
> "··//···Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
> "··//····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
> "··//····· ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
> "··//····· ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
> "··//····· ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
> "··//····· Сообщить("Контактный номер "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
> "··//··· ·КонецЕсли;"
> "··//···КонецЦикла;"
> "··//···Объект1.Записать();"
> "··//··КонецЕсли;"
> "··//·КонецЕсли;"
> "··//КонецЦикла;"
Изменено: 144 - 145
< "···Выборка.Следующий();"
< "···Если ЭтотОбъект.СостояниеЗаявки <> Выборка.СостояниеЗаявки Тогда"
> "···Выборка.Следующий(); ВыбрМастер="";"
> "···Если (ЭтотОбъект.СостояниеЗаявки <> Выборка.СостояниеЗаявки) или (ЭтотОбъект.Ответственный<>Выборка.Мастер) Тогда"
Изменено: 149 - 149
< "····Если ЭтотОбъект.СостояниеЗаявки = Справочники.СЦ_ВидыСостоянияЗаявки.НайтиПоНаименованию("В работе") И НЕ ЭтотОбъект.Ответственный = Справочники.Пользователи.ПустаяСсылка() Тогда"
> "···//·Если ЭтотОбъект.СостояниеЗаявки = Справочники.СЦ_ВидыСостоянияЗаявки.НайтиПоНаименованию("В работе") И НЕ ЭтотОбъект.Ответственный = Справочники.Пользователи.ПустаяСсылка() Тогда"
Изменено: 152 - 156
< "····Иначе"
< "·····НоваяЗапись.Мастер = ТекущийПользователь;·"
< "·····НоваяЗапись.Подразделение = ТекущийПользователь.ТекущееПодразделение;"
< "····КонецЕсли;"
> "···//·Иначе"
> "···//··НоваяЗапись.Мастер = ТекущийПользователь;·"
> "···//··НоваяЗапись.Подразделение = ТекущийПользователь.ТекущееПодразделение;"
> "···//·КонецЕсли;"
< "····ВыбрМастер=НоваяЗапись.Мастер;"
Объект присутствует только в файле: 160 - 162
"//····ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(ЭтотОбъект.Ссылка.Номер)+"
"//·" от: "+Строка(ЭтотОбъект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+" типо мастер: "+Строка(ВыбрМастер)+" проц.: ПриЗаписи");"
""
Объект присутствует только в файле: 198 - 241
"·"

"·//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Контрагенты"
"·Попытка"
"·Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл"
"··Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
"···Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
"····Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();"
"····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
"·····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
"······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
"······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
"······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
"······Сообщить("Контактный номер в справочнике контрагенты "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
"·····КонецЕсли;"
"····КонецЦикла;"
"····Объект1.Записать();"
"···КонецЕсли;"
"··КонецЕсли;"
"·КонецЦикла;"
"·//Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Партнеры"
"·Если ЭтотОбъект.Контрагент.Партнер.Пустая()=Ложь Тогда"
"··Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.Партнер.КонтактнаяИнформация Цикл"
"···Если Строка(ЭлементКонтактнаяИнформация.Тип)="Телефон" Тогда"
"····Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
"·····Объект1 = ЭтотОбъект.Контрагент.Партнер.ПолучитьОбъект();"
"·····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
"······Если Строка(ЭлементКонтактная.Тип)="Телефон" Тогда"
"·······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
"·······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
"·······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
"·······Сообщить("Контактный номер в справочнике партнеры "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
"······КонецЕсли;"
"·····КонецЦикла;"
"·····Объект1.Записать();"
"····КонецЕсли;"
"···КонецЕсли;"
"··КонецЦикла;"
""
"·КонецЕсли;"
"·Исключение"
"·КонецПопытки;"
"·"
"·"
Объект присутствует только в файле: 317 - 317
"·ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабДокумент, МакетДокумента, Обл, ЭтотОбъект.Ссылка);"
Изменено: 434 - 475
< "КонецФункции"
> "КонецФункции"
< ""
< "Процедура ОбработкаПроведения(Отказ, РежимПроведения)"

< "·////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Контрагенты"
< "·//Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.КонтактнаяИнформация Цикл"
< "·//·Если ЭлементКонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
< "·//··Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
< "·//···Объект1 = ЭтотОбъект.Контрагент.ПолучитьОбъект();"
< "·//···Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
< "·//····Если ЭлементКонтактная.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента Тогда"
< "·//·····ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
< "·//·····ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
< "·//·····ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
< "·//·····Сообщить("Контактный номер в справочнике контрагенты "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
< "·//····КонецЕсли;"
< "·//···КонецЦикла;"
< "·//···Объект1.Записать();"
< "·//··КонецЕсли;"
< "·//·КонецЕсли;"
< "·//КонецЦикла;"
< "·////Обработчик Изменение номера телефона если он не совпадает с номером в справочнике Партнеры"
< "·//Если ЭтотОбъект.Контрагент.Партнер.Пустая()=Ложь Тогда"
< "·//·Для Каждого ЭлементКонтактнаяИнформация Из ЭтотОбъект.Контрагент.Партнер.КонтактнаяИнформация Цикл"
< "·//··Если Строка(ЭлементКонтактнаяИнформация.Тип)="Телефон" Тогда"
< "·//···Если НЕ ЭтотОбъект.КонтактныйНомер = ЭлементКонтактнаяИнформация.Представление Тогда"
< "·//····Объект1 = ЭтотОбъект.Контрагент.Партнер.ПолучитьОбъект();"
< "·//····Для Каждого ЭлементКонтактная ИЗ Объект1.КонтактнаяИнформация Цикл"
< "·//·····Если Строка(ЭлементКонтактная.Тип)="Телефон" Тогда"
< "·//······ЭлементКонтактная.НомерТелефона = ЭтотОбъект.КонтактныйНомер;"
< "·//······ЭлементКонтактная.НомерТелефонаБезКодов = ЭтотОбъект.КонтактныйНомер;"
< "·//······ЭлементКонтактная.Представление = ЭтотОбъект.КонтактныйНомер;"
< "·//······Сообщить("Контактный номер в справочнике партнеры "+Объект1+" изменен на: "+ЭлементКонтактная.НомерТелефона);"
< "·//·····КонецЕсли;"
< "·//····КонецЦикла;"
< "·//····Объект1.Записать();"
< "·//···КонецЕсли;"
< "·//··КонецЕсли;"
< "·//·КонецЦикла;"
< ""
< "·//КонецЕсли;"
< "КонецПроцедуры"
- ***Документ.СЦ_КвитанцияПриемки.Форма.ФормаСписка
- Модуль - Различаются значения
Объект присутствует только в файле: 56 - 56
"·ДокументОбъект.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя);"
Изменено: 58 - 58
< "·Сообщить("" + ДокументОбъект + " Оборудование готово. Ответственный: " + ДокументОбъект.Ответственный ,СтатусСообщения.Информация);"
> "//·Сообщить("" + ДокументОбъект + " Оборудование готово. Ответственный: " + ДокументОбъект.Ответственный ,СтатусСообщения.Информация);"
Изменено: 86 - 86
< "Процедура КнопкаЗвонокЗаказчикуНаСервере(Результат,ДокументСсылка,Мастер)"
> "Процедура КнопкаЗвонокЗаказчикуНаСервере(Результат,ДокументСсылка)"
Объект присутствует только в файле: 88 - 88
"·Мастер = Справочники.Пользователи.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя);"
Изменено: 107 - 107
< "·КнопкаЗвонокЗаказчикуНаСервере(Строка(Результат),ЭтотОбъект.ТекущийЭлемент.ТекущаяСтрока,ПолучитьМастераИзСписка(ЭтаФорма.Элементы.Подразделение));"
> "·КнопкаЗвонокЗаказчикуНаСервере(Строка(Результат),ЭтотОбъект.ТекущийЭлемент.ТекущаяСтрока);"
Объект присутствует только в файле: 314 - 343
"#КонецОбласти"
"#Область ОбработчикиКомандФормы"
"&НаКлиенте"
"Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)"
"·// ПодключаемоеОборудование"
"//·Если Источник = "ПодключаемоеОборудование" И ВводДоступен() Тогда"
"·Если Источник = "ПодключаемоеОборудование" Тогда"
"··Если ИмяСобытия = "ScanData" Тогда"
"···ОбработатьШтрихкоды(МенеджерОборудованияКлиент.ПреобразоватьДанныеСоСканераВСтруктуру(Параметр));"
"··КонецЕсли;"
"·КонецЕсли;"
"·// Конец ПодключаемоеОборудование"
""
"КонецПроцедуры"
""
"&НаКлиенте"
"Функция СсылкаНаЭлементСпискаПоШтрихкоду(Штрихкод)"
"·"
"·Менеджеры = Новый Массив();"
"·Менеджеры.Добавить(ПредопределенноеЗначение("Документ.СЦ_КвитанцияПриемки.ПустаяСсылка"));"
"·Возврат ШтрихкодированиеПечатныхФормКлиент.ПолучитьСсылкуПоШтрихкодуТабличногоДокумента(Штрихкод, Менеджеры);"
"·"
"КонецФункции"
""
""
"&НаСервере"
"Функция ВернемФормуДокумента(ТекКвит)"
"·Возврат ТекКвит.Ссылка;"
"КонецФункции"
""
Изменено: 345 - 380
< "#КонецОбласти"
> "&НаКлиенте"
< "Процедура ОбработатьШтрихкоды(Данные)"
< "·"
< "·МассивСсылок = СсылкаНаЭлементСпискаПоШтрихкоду(Данные.Штрихкод);"
< "·Если МассивСсылок.Количество() > 0 Тогда"
< "·//·Элементы.Список.ТекущаяСтрока = МассивСсылок[0];"
< "··Если ТипЗнч(МассивСсылок[0])=Тип("ДокументСсылка.СЦ_КвитанцияПриемки") Тогда"
< "···Если МассивСсылок[0].Пустая()=Ложь Тогда"
< "····Элементы.Список.ТекущаяСтрока = МассивСсылок[0];"
< "····ОткрытьЗначение(ВернемФормуДокумента(МассивСсылок[0]));"
< "····"
< "···//·ТекКвит=МассивСсылок[0].ПолучитьОбъект();"
< "···//·ТекКвит.ПолучитьФорму("ФормаДокумента").Открыть();"
< "···КонецЕсли;"
< "··КонецЕсли;"
< "·Иначе"
< "··ШтрихкодированиеПечатныхФормКлиент.ОбъектНеНайден(Данные.Штрихкод);"
< "·КонецЕсли;"
< "·"
< "КонецПроцедуры"
< ""
< "&НаКлиенте"
< "Процедура ПриОткрытии(Отказ)"
< " ОписаниеОшибки = "";"
< " ПоддерживаемыеТипыВО = Новый Массив();"
< " ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");"
< " Если Не МенеджерОборудованияКлиент.ПодключитьОборудованиеПоТипу(УникальныйИдентификатор, ПоддерживаемыеТипыВО, ОписаниеОшибки) Тогда"
< " ТекстСообщения = НСтр("ru = 'При подключении оборудования произошла ошибка:"
< " |""%ОписаниеОшибки%"".'");"
< " ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%", ОписаниеОшибки);"
< " ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);"
< " КонецЕсли;"
< ""
< "КонецПроцедуры"
< ""
< "#КонецОбласти"
- ***Реквизиты
- <--Реквизит - ИспользоватьПодключаемоеОборудование
- <--Реквизит - ПоддерживаемыеТипыПодключаемогоОборудования
- ***Элементы
- ***Форма
- ***События
Обработка оповещения на клиенте
<
> ОбработкаОповещения
При открытии на клиенте
<
> ПриОткрытии
- ***ФормаКоманднаяПанель
- ***ФормаГруппаКнопок
- ***ФормаКнопкаОтветственный
Доступность
< Истина
> Ложь
- ***Документ.СЦ_КвитанцияПриемки.Форма.ФормаДокумента
- Модуль - Различаются значения
Объект присутствует только в файле: 403 - 404
""
""
Изменено: 416 - 417
< "··Форма = ПолучитьФорму("Справочник.Пользователи.Форма.ФормаСписка",ПараметрыФормы);"
< "··Возврат Форма.ОткрытьМодально();"
> "··Возврат ПолучитьТекущегоПользователя();"
Объект присутствует только в файле: 472 - 472
"··Объект.Ответственный = Мастер;
Объект присутствует только в файле: 510 - 511
"//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(Объект.Ссылка.Номер)+"
"//·" от: "+Строка(Объект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+"типо мастер: "+Строка(Мастер)+" проц.: КнопкаОтветственныйНаСервере");"
Изменено: 617 - 617
< "·Сообщить("" + Объект.Ссылка + " Оборудование выдал: " + Мастер ,СтатусСообщения.Информация);"
> "·"
Изменено: 628 - 630
< "·//·КнопкаВыданоИзСервисаНаСервере(Мастер);"
< "··КнопкаВыданоИзСервисаНаСервере(Неопределено);"
> "··КнопкаВыданоИзСервисаНаСервере(Мастер);"
> "··Объект.Ответственный = Мастер;
< "·//·КнопкаВыданоИзСервисаНаСервере(Неопределено);"
Объект присутствует только в файле: 844 - 846
"//·ЗаписьЖурналаРегистрации("ЗапишемВРегистр.СостояниеЗаявки",УровеньЖурналаРегистрации.Информация,,,Строка(Объект.Ссылка.Номер)+"
"//·" от: "+Строка(Объект.Ссылка.Дата)+" автор: "+Пользователи.АвторизованныйПользователь()+"типо мастер: "+Строка(Мастер)+" проц.: ИзменитьСостояниеЗаявкиНаСервере");"
""
Объект присутствует только в файле: 1101 - 1161
"КонецПроцедуры"
""
""
"&НаСервере"
"Процедура ВЗаказПокупателяИзЩтрихКода(ТекШтрихКод)"
"·Запрос = Новый Запрос;"
"·Запрос.Текст = "
"··"ВЫБРАТЬ"
"··|·ШтрихкодыНоменклатуры.Штрихкод,"
"··|·ШтрихкодыНоменклатуры.Номенклатура КАК Номенклатура"
"··|ИЗ"
"··|·РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры"
"··|ГДЕ"
"··|·ШтрихкодыНоменклатуры.Штрихкод = &ТекШтрихКод"
"··|"
"··|УПОРЯДОЧИТЬ ПО"
"··|·Номенклатура";"
"·"
"·Запрос.УстановитьПараметр("ТекШтрихКод", ТекШтрихКод);"
"·"
"·РезультатЗапроса = Запрос.Выполнить();"
"·"
"·ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();"
"·"
"·Пока ВыборкаДетальныеЗаписи.Следующий() Цикл"
"··ПараметрыОтбора = Новый Структура;"
"··ПараметрыОтбора.Вставить("Номенклатура", ВыборкаДетальныеЗаписи.Номенклатура);"
"··НайдСтр=Объект.Работа.НайтиСтроки(ПараметрыОтбора);"
"··Если НайдСтр.Количество()=0 Тогда"
"···ТекущаяСтрока = Объект.Работа.Добавить();"
"···ТекущаяСтрока.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;"
"···ТекущаяСтрока.Количество = 1;"
"···ТекущаяСтрока.Цена ·= ПолучитьЦенуНоменклатурыНаСервере(ВыборкаДетальныеЗаписи.Номенклатура);"
"···ТекущаяСтрока.Мастер ·= НайтиИмяПользователяНаСервере();"
"···ТекущаяСтрока.Единица ·= ПолучитьШтНаСервере();"
"··Иначе"
"···ТекущаяСтрока=НайдСтр[0];"
"···ТекущаяСтрока.Количество=ТекущаяСтрока.Количество+1;"
"···ТекущаяСтрока.Мастер ·= НайтиИмяПользователяНаСервере();"
"··КонецЕсли;"
"·КонецЦикла;"
""
"КонецПроцедуры"
"&НаКлиенте"
"Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)"
"·Если Источник = "ПодключаемоеОборудование" Тогда"
"··Если ИмяСобытия = "ScanData" Тогда"
"···ТекШтрихКод="";"
"···Попытка"
"····ТекШтрихКод=Параметр[0];"
"···Исключение"
"···КонецПопытки;"
"···Если ТекШтрихКод="" Тогда"
"····Возврат;"
"···КонецЕсли;"
"···ВЗаказПокупателяИзЩтрихКода(ТекШтрихКод);"
"···Источник=""; //обнулим событие"
"···Возврат;"
"··КонецЕсли;"
"·КонецЕсли;"
""
- ***Элементы
- ***Форма
- ***События
Обработка оповещения на клиенте
<
> ОбработкаОповещения
- ***Страницы
- ***ГруппаСостояние_Заявки
- ***Ответственный
Доступность
< Истина
> Ложь
- ***СостояниеЗаявки
- ***СостояниеЗаявкиКоманднаяПанель
- ***СостояниеЗаявкиКнопкаОтветственный
Доступность
< Истина
> Ложь
- ***Документ.СЦ_КвитанцияПриемки.Макет.Приемка
- Рисунки
- <--КартинкаШтрихкода

21. TODD22 18 24.05.16 12:19 Сейчас в теме

А можешь отловить момент выполнения кода когда идут транзакции?
Может в этот момент включить замер производительности. Подождать немного и его выключить. Тогда он вроде как должен показать какие строки кода выполнялись в данный момент... что бы попробовать найти что в этот момент происходит.

22. sashasasha89 24.05.16 12:51 Сейчас в теме

(21) TODD22,

Прикрепленные файлы:

производительность.txt

23. TODD22 18 24.05.16 12:54 Сейчас в теме

(22) sashasasha89, В текстовом ничего не понятно...
смотришь когда идут эти транзакции включаешь замер... ждёшь секунд 10-20 и выключаешь... Затем смотришь... Лучше сделай скрин... нужны только верхние строки. Смотреть время выполнения и количество вызовов.

24. TODD22 18 24.05.16 12:56 Сейчас в теме

И больше ничего не делай в этот момент. Разделы никакие не открывай и тд.

25. sashasasha89 24.05.16 13:05 Сейчас в теме

(24) TODD22,

Прикрепленные файлы:

26. TODD22 18 24.05.16 17:29 Сейчас в теме

(25) sashasasha89, Не тут что то не то... Видимо так не поймёшь...
Посмотри регламентное задание должно быть которое обновляет базу в фоновом режиме. Попробуй его остановить....

27. TODD22 18 24.05.16 17:33 Сейчас в теме

Может обмен какой нибудь? У тебя в заданиях включены обмены с Документооборотом(а он нужен?) и тд.

28. sashasasha89 25.05.16 03:49 Сейчас в теме

(27) TODD22, Документооборот включен. Но он как я понимаю не нужен. Главное обмен что бы работал. Есть регламентное задание которое запускает обмен между РИБ.

29. sashasasha89 25.05.16 04:08 Сейчас в теме

Отключил интеграцию с документооборотом. Сейчас буду контролировать. А так подходит эта версия в регламентным заданием. В второй базе они не делаются и ЖР из за транзакций не растет. Теперь бы найти из за которого растет. Или вообще из за всех.

30. sashasasha89 25.05.16 05:03 Сейчас в теме

Записей на первый взгляд стало меньше. Но теперь есть новое от имени одно из пользователя идут транзакции начало и отмена.

Прикрепленные файлы:

31. TODD22 18 25.05.16 06:56 Сейчас в теме

(30) sashasasha89, То же скорее всего какие то фоновые задания включены.
выложи скрины всего списка фоновых заданий...
Поотключать надо ненужные... те что нужные пересмотреть периодичность. А то бывает поставят обмен каждые 30 секунд. А он нужен раз в сутки....

32. sashasasha89 25.05.16 07:01 Сейчас в теме

(31) TODD22,

Прикрепленные файлы:

33. TODD22 18 25.05.16 07:21 Сейчас в теме

"Слияние индекса ППД" включи сделай его один раз в сутки ночью например.

Так у тебя интеграция с Документооборотом есть? Если нет выключи задание.
"Обновление данных о доступности товаров для внешних пользователей" оно для чего то используется? То же отключи если не используется.

34. sashasasha89 25.05.16 07:33 Сейчас в теме

(33) TODD22,
"Слияние индекса ППД" делается ночью.
Интеграцию с документооборотом отключил.
"Обновление данных о доступности товаров для внешних пользователей" отключил тк в базе внешний пользователи отключены. Посмотрим что будет.

35. sashasasha89 25.05.16 07:40 Сейчас в теме

В Журнале регистраций сделал отбор по: Событие: Транзакция и Приложение: Фоновое задания.
За 10 минут ни одной записи.

36. sashasasha89 25.05.16 07:50 Сейчас в теме

И опять посыпались записи в ЖР. Значит не эти Регламентные задания.

37. TODD22 18 25.05.16 07:56 Сейчас в теме

(36) sashasasha89, Так может обмен какой нибудь запустился?
Смотри какие рег задания выполняются в тот момент когда у тебя в журнал запись идёт.

38. sashasasha89 25.05.16 09:01 Сейчас в теме

(37) TODD22, Я так и хочу. Буду отслеживать. Только есть закономерность: чем больше человек в базе, тем больше записей.

39. sashasasha89 25.05.16 12:18 Сейчас в теме

А по второму вопросу не подскажите? Во второй базе сменилось время на сервере и регламентные задания выполнились 2099 годом. Теперь они по расписанию не выполняются и если выполняешь их в ручную они выполняются но дата остается 2099 год. Копировал файл базы в другое место и запускал базу. Дату тогда он сбрасывает. Выполняю вручную и дата становиться правильной. Но расписание не срабатывает ни на одном регламентом задании. Хотел удалить и задать новое, но пишет что нельзя удалить.

40. TODD22 18 25.05.16 12:27 Сейчас в теме

(39) sashasasha89, Не... так не подскажу.... Надо разбираться.

41. sashasasha89 25.05.16 12:44 Сейчас в теме

Посмотрел вторую базу там тоже этих транзакций очень много и уже давно, но при этом больше чем за год ЖР чуть более 6 ГБ. А в этой базе (они одиннаковые) за месяц набирается на 60Гб. Раньше такого не было. Может это и не изза фоновых заданий с транзакциями. База в которой растет ЖР SQL, а вторая файловая.

42. TODD22 18 25.05.16 12:49 Сейчас в теме

(41) sashasasha89, Так сам ЖР лежит в файле SQLlite.
Я сам не смотрел прирост... но у меня на одной из баз ЖР был 100Гб. После чего я его порезал.... А то всё место занял на диске... но это за год.

43. sashasasha89 25.05.16 12:56 Сейчас в теме

(42) TODD22, C:\Program Files (x86)\1cv8\srvinfo\reg_1541. В этой папке еще 5 папок. В них файл 1Cv8.lgd. В одной из них за месяц файл вырос до 16 Гб в другой 43 ГБ. База SQL одна, а растет два файла в двух папка. Это правильно?

44. TODD22 18 25.05.16 12:57 Сейчас в теме

(43) sashasasha89, Не знаю... :) ЖР один. С расширением lgd. Что за второй файл?
БАза на sql точно одна? Прям в консоли кластера сервера 1С посмотри. Одна база или нет.

45. sashasasha89 25.05.16 12:58 Сейчас в теме

(44) TODD22, Да файл 1Cv8.lgd. В консоле две. Растет 2 папки. Но когда папки очищал. Все удалили. В SQL базу пересоздали опять появилось 5 папок. И две папки растет.

46. TODD22 18 25.05.16 16:46 Сейчас в теме

(45) sashasasha89,

В консоле две.

В консоли чего "две"? Две базы?
Вот для каждой базы свой ЖР.

47. sashasasha89 26.05.16 10:14 Сейчас в теме

(46) TODD22, Базы оказалось две. Во второй не работали - это копия основной. Её пока не стал удалить просто заблокировал выполнения регламентных заданий. В ней постоянно что то выполнялось. Теперь её ЖР не растет. Теперь буду контролировать основную. Вроде после отключения двух регламентных заданий ЖР стал значительно меньше расти, но всё же думаю больше чем должно.

48. sashasasha89 01.06.16 10:46 Сейчас в теме

Изза роста журнала регистрации его подчищал. Теперь стало нужно посмотреть данные. Но он не открывается.

49. TODD22 18 01.06.16 11:03 Сейчас в теме

(48) sashasasha89, Так значит порезал журнал за тот период. Его надо было тогда не удалять, а скопировать куда нибудь. И потом можно было бы открывать и просматривать.

50. sashasasha89 01.06.16 11:10 Сейчас в теме

(49) TODD22, Я и скопировал целиком файл 1Cv8.lgd

51. TODD22 18 01.06.16 11:15 Сейчас в теме

так и почему он не открывается?
Ошибку выдаёт?
вообще сам файл базы очень часто портится... где то на ИС даже были статьи как можно попытаться его восстановить.

52. sashasasha89 01.06.16 11:16 Сейчас в теме

Может быть это изза того что файл регистрации был в sql базе, а я его открываю в копии в файловой.

Ошибка формата файла журнала регистрации
по причине:
sqlite3_exec failed: database is locked
db: C:\Users\***\AppData\Local\Temp\2\v8_75EE_e.tmp
sql: PRAGMA journal_mode = delete

53. TODD22 18 01.06.16 11:24 Сейчас в теме

(52) sashasasha89,

По умолчанию журнал ведется в режиме DELETE .
PRAGMA journal_mode = DELETE
Это означает, что файл журнала удаляется после завершения транзакции. Сам факт наличия файла с журналом в этом режиме означает для SQLite, что транзакция не была завершена, база нуждается в восстановлении. Файл журнала имеет имя файла БД, к которому добавлено "-journal".

Не подскажу что с этим делать... но предполагаю что нужно гуглить....
http://infostart.ru/public/402536/ вот тут может что то полезное есть...

54. sashasasha89 01.06.16 11:32 Сейчас в теме

(53) TODD22, Спасибо. Попробую найти утилиту для открытия.

55. sashasasha89 03.06.16 07:26 Сейчас в теме

Два фоновых задания тех отключил. Но ЖР растет.

56. sashasasha89 09.06.16 06:06 Сейчас в теме

Выявил регламентное задание которое делает много записей в ЖР - Выполнение обмена по сценарию. Как раз это задание выполняет синхронизацию между базами РИБ. Оно стартует каждые пол часа (в 00 и 30 минут каждого часа) и выполняется 12 минут хотя раньше выполнялось моментально. И как раз в это время идут записи в ЖР.

57. TODD22 18 09.06.16 06:09 Сейчас в теме

(56) sashasasha89, А объём данных большой передаётся? На что 12 минут тратится? Сколько узлов в РИБе?
И что рег задание обмена так сильно раздувает ЖР?
В день на сколько растёт ЖР?

58. sashasasha89 09.06.16 06:26 Сейчас в теме

(57) TODD22, Размеры минимальные (1-20 кб). Оно начинается в 00 минут и висит что выполняется при этом в ЖР пишется огромное количество записей с транзакциями. Раньше оно выполнялось за секунды. В день примерно на гигабайт с копейками. Как временный вариант сделаю расписание 2 раза в день (в обед и вечером).

59. TODD22 18 09.06.16 06:31 Сейчас в теме

У меня такое то же с РИБом бывает. Какой нибудь узел начинает очень медленно прожовывать файл. Обмен вместо 5 минут может висеть по 20-40 минут. Обычно помогает "выгрузка/загрузка" базы. Только бэкап надо делать обязательно. А то было несколько раз то что при попытке загрузить в ту же базу падало с ошибкой и не грузилось при этом затерало старую базу. А из копии ничего не загружалось.

60. sashasasha89 09.06.16 08:28 Сейчас в теме

(59) TODD22, На копии попробую выгрузить\загрузить несколько раз и смотреть что будет. Потому что на копии тоже зависание происходит.

61. sashasasha89 09.06.16 19:08 Сейчас в теме

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

62. sashasasha89 10.06.16 04:31 Сейчас в теме

Вот ошибка при создании нового регламентного задания: "Недостаточно фактических параметров для метода фонового задания".

63. sashasasha89 14.07.16 10:01 Сейчас в теме

Все регламентные задания пересоздал копированием теперь выполняются по расписанию. Те зависшие 2099 годом пускай остаются их удалить нельзя (они предопределенные). Только проблема с одним (главным) регламентным заданием - синхронизация риб. Если я его создаю копированием оно не стартует - "Недостаточно фактических параметров для метода фонового задания". Подскажите в какую сторону копать?
Регламентные задания которые удалось оживить все предопределенные, а это одно нет.

64. sashasasha89 20.07.16 13:20 Сейчас в теме

Здравствуйте. Писал про проблему с синхронизацией из за зависших регламентных заданий. Проблему с регламентными заданиями решил. Но выявилась другая проблема. Одна база синхронизировалась по расписанию другая в ручную. Так вот не все документы при этом отправлялись из периферийной базы в центральную. Слышал что можно заново зарегистрировать объекты для обмена. Как это сделать и чтобы уже выгруженное не задвоилось?

Есть в синхронизации регистрация изменений но не знаю как туда добавить нужные за конкретную дату и чтобы не задвоилось?

65. sashasasha89 20.07.16 13:36 Сейчас в теме

Выбрать документ который нужно и его зарегистрировать в обмене. Они выгрузятся за все время? При загрузке в другую базу не задвоятся?

66. TODD22 18 20.07.16 13:49 Сейчас в теме

(65) sashasasha89,

Они выгрузятся за все время? При загрузке в другую базу не задвоятся?

Есть обработка где ты можешь настроить отборы или вручную указать только те документы что тебе нужны для обмена.
Если у тебя РИБ то повторно зарегистрированные документы задвоится не должны. Только обновится. Программа по идентификатору их найдёт и обновит их. То есть она будет считать что раз они зарегистрированы, значит в них что то меняли.

67. sashasasha89 20.07.16 13:55 Сейчас в теме

Всё разобрался. Оказалось все легко. Даже без обработки.

68. user590859_vova.apex 26.07.16 15:41 Сейчас в теме

попробуй сделать полное тестирование и исправление всех узлов.

Оставьте свое сообщение

E-mail: