diff --git a/src/cf/Catalogs/узКонтрагенты/Ext/ManagerModule.bsl b/src/cf/Catalogs/узКонтрагенты/Ext/ManagerModule.bsl new file mode 100644 index 000000000..c3f827c11 --- /dev/null +++ b/src/cf/Catalogs/узКонтрагенты/Ext/ManagerModule.bsl @@ -0,0 +1,16 @@ +Процедура ПроверитьИИсправитьВидыКонтактнойИнформации() Экспорт + МассивВидовКонтактойИнформации = Новый Массив(); + МассивВидовКонтактойИнформации.Добавить(ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.узEmailКонтрагенты")); + МассивВидовКонтактойИнформации.Добавить(ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.узТелефонКонтрагенты")); + + ЕстьОшибки = Ложь; + Для каждого пВидкКонтактнойИнформации из МассивВидовКонтактойИнформации цикл + Если НЕ ЗначениеЗаполнено(пВидкКонтактнойИнформации.Тип) Тогда + ЕстьОшибки = Истина; + Конецесли; + Конеццикла; + + Если ЕстьОшибки Тогда + узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_3_035(); + Конецесли; +КонецПроцедуры \ No newline at end of file diff --git a/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form.xml b/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form.xml index ddb04414d..1094fcfa0 100644 --- a/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form.xml +++ b/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form.xml @@ -10,6 +10,7 @@ ПриЧтенииНаСервере ПриОткрытии ПередЗакрытием + ПередЗаписью ПриСозданииНаСервере ПередЗаписьюНаСервере ОбработкаПроверкиЗаполненияНаСервере diff --git a/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form/Module.bsl index c35e10801..7c3de6add 100644 --- a/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узКонтрагенты/Forms/ФормаЭлемента/Ext/Form/Module.bsl @@ -117,6 +117,10 @@ // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецПроцедуры +&НаКлиенте +Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) + ПроверитьИИсправитьВидыКонтактнойИнформацииНаСервере(); +КонецПроцедуры #КонецОбласти @@ -209,3 +213,8 @@ // Конец СтандартныеПодсистемы.КонтактнаяИнформация #КонецОбласти + +&НаСервере +Процедура ПроверитьИИсправитьВидыКонтактнойИнформацииНаСервере() + Справочники.узКонтрагенты.ПроверитьИИсправитьВидыКонтактнойИнформации(); +КонецПроцедуры \ No newline at end of file