diff --git "a/onec-mid-base-11/src/Catalogs/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270.mdo" "b/onec-mid-base-11/src/Catalogs/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270.mdo" new file mode 100644 index 000000000..6f5cbb579 --- /dev/null +++ "b/onec-mid-base-11/src/Catalogs/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270/\320\224_\320\224\320\276\320\273\320\266\320\275\320\276\321\201\321\202\320\270.mdo" @@ -0,0 +1,49 @@ + + + + + + + + + + Д_Должности + + ru + Д должности + + true + Catalog.Д_Должности.StandardAttribute.Code + Catalog.Д_Должности.StandardAttribute.Description + DontUse + Use + Managed + Use + 2 + true + 9 + 25 + String + Variable + true + true + AsDescription + InDialog + BothWays + + НаиманованиеДолжности + + ru + Наиманование должности + + + String + + + + + + Use + Use + + diff --git "a/onec-mid-base-11/src/Catalogs/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260.mdo" "b/onec-mid-base-11/src/Catalogs/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260.mdo" new file mode 100644 index 000000000..55e3c7de6 --- /dev/null +++ "b/onec-mid-base-11/src/Catalogs/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260/\320\224_\320\232\320\276\320\275\321\202\320\260\320\272\321\202\320\275\321\213\320\265\320\233\320\270\321\206\320\260.mdo" @@ -0,0 +1,182 @@ + + + + + + + + + + Д_КонтактныеЛица + + ru + Д контактные лица + + true + Catalog.Д_КонтактныеЛица.StandardAttribute.Code + Catalog.Д_КонтактныеЛица.StandardAttribute.Description + DontUse + + Use + PredefinedDataName + + Use + + + + + Use + Predefined + + + + + + Use + Ref + + + + + + Use + DeletionMark + + + + + + Use + IsFolder + + Use + + + + + Use + Owner + true + + ShowError + Use + + + + + Use + Parent + true + + Use + + + + + Use + Description + + ru + ФИО + + + ShowError + Use + + + + + Use + Code + + Use + + + + Use + Managed + Use + + ru + КонтактныеЛица + + 2 + true + Catalog.Контрагенты + 9 + 25 + String + Variable + true + true + AsDescription + InDialog + BothWays + + КонтактныйТелефон + + ru + Контактный телефон + + + String + + 50 + + + + + + Use + Use + + + Должность + + ru + Должность + + + CatalogRef.Д_Должности + + + + + Use + Use + + + ДействуетНаОсновании + + ru + Действует на основании + + + String + + 150 + + + + + + Use + Use + + + Заметки + + ru + Заметки + + + String + + + + + + Use + Use + + diff --git a/onec-mid-base-11/src/Configuration/Configuration.mdo b/onec-mid-base-11/src/Configuration/Configuration.mdo index 8344836ca..9db401d6c 100644 --- a/onec-mid-base-11/src/Configuration/Configuration.mdo +++ b/onec-mid-base-11/src/Configuration/Configuration.mdo @@ -1213,6 +1213,8 @@ Catalog.УчетныеЗаписиСинхронизацииФайлов Catalog.УчетныеЗаписиЭлектроннойПочты Catalog.Файлы + Catalog.Д_КонтактныеЛица + Catalog.Д_Должности Document.ЗаказПокупателя Document.ОплатаОтПокупателя Document.ОплатаПоставщику diff --git "a/onec-mid-base-11/src/Documents/\320\227\320\260\320\272\320\260\320\267\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" "b/onec-mid-base-11/src/Documents/\320\227\320\260\320\272\320\260\320\267\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" index c0f99a8a8..9a156a130 100644 --- "a/onec-mid-base-11/src/Documents/\320\227\320\260\320\272\320\260\320\267\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" +++ "b/onec-mid-base-11/src/Documents/\320\227\320\260\320\272\320\260\320\267\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" @@ -6,7 +6,37 @@ // СтандартныеПодсистемы.ПодключаемыеКоманды ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); - // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + + // {{ Соколов Д.Ю.: Добавление реквизита формы "Д_КонтакноеЛицо" + + + ПраваяГруппа = Элементы.ГруппаШапкаПраво; + ЛеваяГруппа = Элементы.ГруппаШапкаЛево; + + ЭлементКонтактноеЛицо = Элементы.Добавить("Д_КонтактноеЛицо", Тип("ПолеФормы"), ПраваяГруппа); + ЭлементКонтактноеЛицо.Вид = ВидПоляФормы.ПолеВвода; + ЭлементКонтактноеЛицо.ПутьКДанным = "Объект.Д_КонтакноеЛицо"; + + ЭлементСкидка = Элементы.Добавить("Д_Скидка", Тип("ПолеФормы"), ЛеваяГруппа); + ЭлементСкидка.Вид = ВидПоляФормы.ПолеВвода; + ЭлементСкидка.Заголовок = "Согласованная скикда"; + ЭлементСкидка.ПутьКДанным = "Объект.Д_Скидка"; + ЭлементСкидка.УстановитьДействие("ПриИзменении", "ЭлементСкидкаПриИзменении"); + ЭлементСкидка.МаксимальноеЗначение = 100; + + КомандаПересчитатьСкидку = Команды.Добавить("Доб_ПересчитатьСкидку"); + КомандаПересчитатьСкидку.Действие = "Доб_ПересчитатьСкидку"; + + + ЭлементКнопкаСкидки = Элементы.Добавить("Д_КнопкаСкидка", Тип("КнопкаФормы"), ЛеваяГруппа); + ЭлементКнопкаСкидки.ИмяКоманды = "Доб_ПересчитатьСкидку"; + ЭлементКнопкаСкидки.Заголовок = "Пересчитать скидку"; + ЭлементКнопкаСкидки.Вид = ВидКнопкиФормы.ОбычнаяКнопка; + + + // Соколов Д.Ю. 06.10.2024 }} + КонецПроцедуры @@ -109,11 +139,21 @@ #Область СлужебныеПроцедурыИФункции + &НаКлиенте -Процедура РассчитатьСуммуСтроки(ТекущиеДанные) +Процедура РассчитатьСуммуСтроки(ТекущиеДанные) + + // {{ Соколов Д.Ю. 06.10.2024 - КоэффициентСкидки = 1 - ТекущиеДанные.Скидка / 100; - ТекущиеДанные.Сумма = ТекущиеДанные.Цена * ТекущиеДанные.Количество * КоэффициентСкидки; + // Расчет сумма строки с учетом скидки + + //ТекущиеДанные.Сумма = ТекущиеДанные.Цена * ТекущиеДанные.Количество; + + ТекущиеДанные.Сумма = ТекущиеДанные.Цена * ТекущиеДанные.Количество * ((100-Объект.Д_Скидка)/100); + + // Соколов Д.Ю. 06.10.2024 }} + + РассчитатьСуммуДокумента(); КонецПроцедуры @@ -124,6 +164,83 @@ КонецПроцедуры + +&НаКлиенте +Процедура ЭлементСкидкаПриИзменении(Элемент) + + // {{ Соколов Д.Ю. 06.10.2024 + + // При изменении поля скидка + + ЭлементСкидкаПриИзмененииПередАсинх(Элемент) + + // Соколов Д.Ю. 06.10.2024 }} + +КонецПроцедуры + +&НаКлиенте +Асинх Процедура ЭлементСкидкаПриИзмененииПередАсинх(Элемент) + + // {{ Соколов Д.Ю. 06.10.2024 + // Вывод вопроса для пользователя об пересчете скидки + + Если Элементы.Товары.ТекущиеДанные <> Неопределено ИЛИ Элементы.Товары.ТекущиеДанные <> Неопределено Тогда + + ТекстВопроса = "Изменить процент скидки? Пересчитать таблицы товаров и услуг?"; + ВариантОтвета = Новый СписокЗначений; + ВариантОтвета.Добавить(1, "Да"); + ВариантОтвета.Добавить(2, "Нет"); + + ОтветПользователя = Ждать ВопросАсинх(ТекстВопроса, ВариантОтвета); + + Если ОтветПользователя = 1 Тогда + + ПересчетСкидки(); + + КонецЕсли + + КонецЕсли; + + // Соколов Д.Ю. 06.10.2024 }} + +КонецПроцедуры + +&НаКлиенте +Процедура Доб_ПересчитатьСкидку(Команда) + + // {{ Соколов Д.Ю. 06.10.2024 + // Обработка нажатия кнопки ПересчитатьСкидку + + ПересчетСкидки() + + // Соколов Д.Ю. 06.10.2024 }} + +КонецПроцедуры + +&НаКлиенте +Процедура ПересчетСкидки() + + // {{ Соколов Д.Ю. 06.10.2024 + + // Процедура пересчета скидки и таблицах Товары и Услуги + + Для Каждого ТД Из Объект.Товары Цикл + + РассчитатьСуммуСтроки(ТД) + + КонецЦикла; + + Для Каждого ТД Из Объект.Услуги Цикл + + РассчитатьСуммуСтроки(ТД) + + КонецЦикла; + + // Соколов Д.Ю. 06.10.2024 }} + +КонецПроцедуры + + #Область ПодключаемыеКоманды // СтандартныеПодсистемы.ПодключаемыеКоманды diff --git "a/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\236\321\202\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" "b/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\236\321\202\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" index 606a43a09..0b5a9bf48 100644 --- "a/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\236\321\202\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" +++ "b/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\236\321\202\320\237\320\276\320\272\321\203\320\277\320\260\321\202\320\265\320\273\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" @@ -8,6 +8,14 @@ ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // {{ Соколов Д.Ю.: Добавление реквизита формы "Д_КонтакноеЛицо" + + ЭлементКонтактноеЛицо = Элементы.Вставить("Д_КонтактноеЛицо", Тип("ПолеФормы"),,Элементы.СуммаДокумента); + ЭлементКонтактноеЛицо.Вид = ВидПоляФормы.ПолеВвода; + ЭлементКонтактноеЛицо.ПутьКДанным = "Объект.Д_КонтакноеЛицо"; + // Соколов Д.Ю. 06.10.2024 }} + + КонецПроцедуры &НаКлиенте diff --git "a/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\237\320\276\321\201\321\202\320\260\320\262\321\211\320\270\320\272\321\203/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" "b/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\237\320\276\321\201\321\202\320\260\320\262\321\211\320\270\320\272\321\203/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" index 606a43a09..0b5a9bf48 100644 --- "a/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\237\320\276\321\201\321\202\320\260\320\262\321\211\320\270\320\272\321\203/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" +++ "b/onec-mid-base-11/src/Documents/\320\236\320\277\320\273\320\260\321\202\320\260\320\237\320\276\321\201\321\202\320\260\320\262\321\211\320\270\320\272\321\203/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" @@ -8,6 +8,14 @@ ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // {{ Соколов Д.Ю.: Добавление реквизита формы "Д_КонтакноеЛицо" + + ЭлементКонтактноеЛицо = Элементы.Вставить("Д_КонтактноеЛицо", Тип("ПолеФормы"),,Элементы.СуммаДокумента); + ЭлементКонтактноеЛицо.Вид = ВидПоляФормы.ПолеВвода; + ЭлементКонтактноеЛицо.ПутьКДанным = "Объект.Д_КонтакноеЛицо"; + // Соколов Д.Ю. 06.10.2024 }} + + КонецПроцедуры &НаКлиенте diff --git "a/onec-mid-base-11/src/Documents/\320\237\320\276\321\201\321\202\321\203\320\277\320\273\320\265\320\275\320\270\320\265\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" "b/onec-mid-base-11/src/Documents/\320\237\320\276\321\201\321\202\321\203\320\277\320\273\320\265\320\275\320\270\320\265\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" index 078927843..dc13768e8 100644 --- "a/onec-mid-base-11/src/Documents/\320\237\320\276\321\201\321\202\321\203\320\277\320\273\320\265\320\275\320\270\320\265\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" +++ "b/onec-mid-base-11/src/Documents/\320\237\320\276\321\201\321\202\321\203\320\277\320\273\320\265\320\275\320\270\320\265\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" @@ -6,7 +6,15 @@ // СтандартныеПодсистемы.ПодключаемыеКоманды ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); - // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // {{ Соколов Д.Ю.: Добавление реквизита формы "Д_КонтакноеЛицо" + Группа = Элементы.ГруппаШапкаПраво; + + ЭлементКонтактноеЛицо = Элементы.Добавить("Д_КонтактноеЛицо", Тип("ПолеФормы"), Группа); + ЭлементКонтактноеЛицо.Вид = ВидПоляФормы.ПолеВвода; + ЭлементКонтактноеЛицо.ПутьКДанным = "Объект.Д_КонтакноеЛицо"; + // Соколов Д.Ю. 06.10.2024 }} + КонецПроцедуры diff --git "a/onec-mid-base-11/src/Documents/\320\240\320\265\320\260\320\273\320\270\320\267\320\260\321\206\320\270\321\217\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" "b/onec-mid-base-11/src/Documents/\320\240\320\265\320\260\320\273\320\270\320\267\320\260\321\206\320\270\321\217\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" index 6d62a4903..6c2846282 100644 --- "a/onec-mid-base-11/src/Documents/\320\240\320\265\320\260\320\273\320\270\320\267\320\260\321\206\320\270\321\217\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" +++ "b/onec-mid-base-11/src/Documents/\320\240\320\265\320\260\320\273\320\270\320\267\320\260\321\206\320\270\321\217\320\242\320\276\320\262\320\260\321\200\320\276\320\262\320\243\321\201\320\273\321\203\320\263/Forms/\320\244\320\276\321\200\320\274\320\260\320\224\320\276\320\272\321\203\320\274\320\265\320\275\321\202\320\260/Module.bsl" @@ -6,7 +6,16 @@ // СтандартныеПодсистемы.ПодключаемыеКоманды ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); - // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + + // {{ Соколов Д.Ю.: Добавление реквизита формы "Д_КонтакноеЛицо" + Группа = Элементы.ГруппаШапкаПраво; + + ЭлементКонтактноеЛицо = Элементы.Добавить("Д_КонтактноеЛицо", Тип("ПолеФормы"), Группа); + ЭлементКонтактноеЛицо.Вид = ВидПоляФормы.ПолеВвода; + ЭлементКонтактноеЛицо.ПутьКДанным = "Объект.Д_КонтакноеЛицо"; + // Соколов Д.Ю. 06.10.2024 }} + КонецПроцедуры