Добавить в корзинуПозвонить
Найти в Дзене
Про 1С

Как в документе "Заказ поставщику" в 1С Комплексная автоматизация 2.5. добавить общую сумму НДС

Так уже получилось, что типовая конфигурация 1С Комплексная автоматизация 2.5. не предусмотрела вывод суммы НДС в форму документа. Но конкретно в нашем случае, нашим менеджерам отдела закупок очень важный реквизит Здесь без создания расширения или размещения куска кода в существующее расширение никак не обойтись 1. После того как создали (нашли текущее) расширение, необходимо зайти в модуль формы документа "Заказ поставщику" 2. Найти процедуру ПриСозданииНаСервере 3. Добавить её в расширение 4. Открывается модуль формы расширения с пустой процедурой И в эту процедуру процедуру необходимо поместить следующий кусок кода В итоге Процедура должна выглядеть примерно следующим образом Фрагмент кода прилагается :) &НаСервере
Процедура ИСЛПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
ГруппаИтого = ЭтаФорма.Элементы.Найти("ГруппаИтого");
ГруппаСтраницыВсего = ЭтаФорма.Элементы.Найти("ГруппаСтраницыВсего");
НоваяГруппаСуммаНДС = ЭтаФорма.Элементы.Вставить("ГруппаСуммаНДС", Тип("Г

Так уже получилось, что типовая конфигурация 1С Комплексная автоматизация 2.5. не предусмотрела вывод суммы НДС в форму документа.

Но конкретно в нашем случае, нашим менеджерам отдела закупок очень важный реквизит

Здесь без создания расширения или размещения куска кода в существующее расширение никак не обойтись

1. После того как создали (нашли текущее) расширение, необходимо зайти в модуль формы документа "Заказ поставщику"

2. Найти процедуру ПриСозданииНаСервере

3. Добавить её в расширение

-2
-3
-4

4. Открывается модуль формы расширения с пустой процедурой

-5

И в эту процедуру процедуру необходимо поместить следующий кусок кода

-6

В итоге Процедура должна выглядеть примерно следующим образом

-7

Фрагмент кода прилагается :)

&НаСервере
Процедура ИСЛПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)

ГруппаИтого = ЭтаФорма.Элементы.Найти("ГруппаИтого");
ГруппаСтраницыВсего = ЭтаФорма.Элементы.Найти("ГруппаСтраницыВсего");


НоваяГруппаСуммаНДС = ЭтаФорма.Элементы.Вставить("ГруппаСуммаНДС", Тип("ГруппаФормы"),ГруппаСтраницыВсего.Родитель,ГруппаСтраницыВсего);
НоваяГруппаСуммаНДС.Заголовок = "Сумма НДС";
НоваяГруппаСуммаНДС.Вид = ВидГруппыФормы.ОбычнаяГруппа;
НоваяГруппаСуммаНДС.ОтображатьЗаголовок = ЛОЖЬ;
НоваяГруппаСуммаНДС.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;


НовыйЭлементСуммаНДС = ЭтаФорма.Элементы.Добавить("СуммаНДС", Тип("ПолеФормы"),НоваяГруппаСуммаНДС);
НовыйЭлементСуммаНДС.Заголовок = "Сумма НДС";
НовыйЭлементСуммаНДС.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлементСуммаНДС.ПутьКДанным = "СуммаНДСЗаказано";
НовыйЭлементСуммаНДС.ТолькоПросмотр=Истина;

КонецПроцедуры

Итог радует глаз мне и менеджеру отдела закупок :)

-8

ВАЖНО!!! Повторюсь.

Данная информация больше предназначена для разработчиков.

Убедительная просьба все эксперименты проводить на копиях базы.

Как, только добиваетесь нужного результата, только после этого расширение, добавляете (обновляете) на основной базе.

Всем добра :)