3.3 Затраты на научно - исследовательские разработки

Затраты на выполнение исследований определяют по следующим статьям расходов:

1. Заработная плата разработчиков ;

2. Отчисления на социальное страхование;

3. Накладные и прочие расходы.

Табл. 3.6

Заработная плата разработчиков
№ этапа п/п	Длительность этапа (календ. дни)	Исполнители	Численность	Дневная ставка (руб.)	Заработная плата (руб.)	Удельный вес (%)
1.	4	Консультант	1	360	1140	7
2.	6	Начальник сектора, Инженер-Программист	1 1	360 300	3960	18
3.	16	Программист	1	270	4320	20
4.	45	Программист	1	240	10800	50
5.	4	Программист	1	240	960	5
	Итого:				21480	100

Единый социальный налог составляет 35,8% от заработной платы:

Зсс = 21480 · 0,358 = 7689,84 [руб].

К лабораторным расходам относится стоимость времени эксплуатации персонального компьютера Зои=Срс'Трс,

где Срс и Трс - стоимость единицы времени эксплуатации и время работы персонального компьютера соответственно (Срс = 100 руб./день, Трс = 71 день).

3ои=20·71 = 7100 (руб.)

В элементе «Амортизация оборудования» отражается сумма амортизационных отчислений в размере 10% от стоимости ПК.

3ам = 0.1 • Спк

Зам = 0.1·24000 = 2400 (руб.)

Накладные и прочие расходы составляют 90% от заработной платы:

Зн = 21480 · 0,9 = 19332 [руб],

З = 21480 + 7689,84 + 7100 + 2400 + 19332= 58001,84 [руб].

3.4 Оценка экономической эффективности

В результате НИР, при использовании разработанного ПО менеджером по закупкам, появилась возможность минимизировать переходящий и текущий складской запас, повысть эффективность использования складских площадей. В результате чего увеличилась оборачиваемость капитала компании. Дополнительным преимуществом является возможность прогнозировать товарный спрос, а значит минимизировать количество отказов клиентам по причине отсутствия номенклатурной позиции на складе. Это, в свою очередь влияет на престиж компании и доверие клиентов.

При переходе к новой стратегии управления закупками на основании товарного спроса средствами разработанного ПО, экономия составит не менее 1 % оборота, что при месячном обороте в 1 000 000 руб. составит

Энтпр= 1% · 12 000 000= 120 000 руб/год,

Уровень экономической эффективности затрат на НИР определяется по формуле:

Е = Э / З = 120 000 / 58001,84 = 2,068

Время окупаемости:

Т = 1 / E = 0,48

Вывод: полученный уровень экономической эффективности позволяет считать данную НИР экономически целесообразной.

Заключение

В ходе работы над дипломным проектом были решены следующие задачи:

Произведены преобразования структуры представления данных. Преобразован основной номенклатурный справочник, введены новые сущности – «система прайсов» и «каталог анализа и планирования». Внедрение в конфигурацию «1С: Предприятие» системы прайсов и каталога анализа и планирования позволило сформировать представление данных в наиболее естественной, удобной и привычной для сотрудников компании форме.

Добавлены документы – «заказ покупателя» и «заказ поставщику», позволяющие планировать заказы. Изменена система расчета цен.

Перенос системы расчета цен с «1С: Предприятие» позволил ликвидировать большое количество ручного труда, связанного с проставлением и расчетом цен реализации и контролем входных цен.

Разработан алгоритм вычисления объема заказа, опирающийся на средства статистического анализа и методы цифровой обработки информации.

Разработано программное обеспечение, формирующее заказы поставщикам, исходя из прогнозирования товарного спроса. Достоинством программы является возможность ее модернизации с учетом пожеланий пользователя, процесс модернизации упрощается благодаря тому, что сама программа находится во внешней обработке и внесение изменений в программу не влечет за собой необходимость изменения конфигурации системы «1С: Предприятие».

Список литературы

1. Г.Ф. Гордукалова Анализ информации. Методы, технологии, организация. – М.: Профессия, 2009 г. 512 с.

2. Основы логистики: Учебное пособие / Под ред. Л.Б. Миротина и В.И.Сергеева. – М.: ИНФРА-М, 1999. – 200 с.

3. Майкл Р. Линдерс, Харольд Е. Фирон – Управление снабжением и запасами. Логистика. Издательство Виктория - плюс, 2002 г., 768 с.

4. Щур Д.Л. Основы торговли. Оптовая торговля. – М.: Издательство «Дело и Сервис», 2005. – 656 с.

5. Т.Н. Усиков “1С: Предприятие. Эффективное программирование” Новое знание, 2004 г.448 c.

6. О. В. Бартеньев “1С: Предприятие: программирование для всех” Диалог - МИФИ, 2002 г. 464 c.

7. Баронов В.В., Калянов Г.Н., Попов Ю.И. и др. Автоматизация управления предприятием – М.: ИНФРА-М, 2000. (Серия «Секреты менеджмента»).

Приложение

Модуль программы формирования заказов

//----------

Функция Титул()

Если Пустое Значение (ВыбПрайс)=1 Тогда Возврат "<<Прайс не указан>>" Конец Если;

Х=?(Выб Прайс. Выбран()=0,"",

?(ВыбПрайс.Уровень()=1,""+ВыбПрайс,?(ВыбПрайс.Уровень()=2,ВыбПрайс.Родитель,""+ВыбПрайс.Родитель.Родитель+" - "+ВыбПрайс.Родитель)))+?(ВыбТовар.Выбран()=0,"",": "+ВыбТовар);

//?(ВыбПрайсЛогистика.Выбран()=0,"",?(ВыбПрайсЛогистика.Уровень()=1,"",?(ВыбПрайс.Уровень()=2,ВыбПрайс.Родитель,""+ВыбПрайс.Родитель.Родитель+" - "+ВыбПрайс.Родитель)))+?(ВыбТовар.Выбран()=0,"",": "+ВыбТовар)

Возврат Х;

КонецФункции // Титул

//----------

Процедура Товары Прайса (Прайс, Список Товаров) // Список товаров (указанной части) прайса

Прс=СоздатьОбъект("Справочник._Прайсы");

СпрТов=СоздатьОбъект("Справочник._Прайс_товар");

Если ПустоеЗначение(Прайс)=0 Тогда

Если Прайс.ЭтоГруппа()=1 Тогда

Прс.ИспользоватьРодителя(Прайс.ТекущийЭлемент()); // и переходим к перебору

Иначе // итак, единственная прайсовая группа, товар перечислен в подчинённом справочнике...

СпрТов.ИспользоватьВладельца(Прайс.ТекущийЭлемент());

СпрТов.ВыбратьЭлементы();

Пока СпрТов.ПолучитьЭлемент()=1 Цикл

Если СпрТов.Товар.Выбран()=0 Тогда Продолжить КонецЕсли;

Если СпрТов.Товар.ПометкаУдаления()=1 Тогда Продолжить КонецЕсли;

Если СпрТов.ПометкаУдаления()=1 Тогда Продолжить КонецЕсли;

Если СписокТоваров.Принадлежит(СпрТов.Товар.ТекущийЭлемент())=0 Тогда

СписокТоваров.ДобавитьЗначение(СпрТов.Товар.ТекущийЭлемент())

КонецЕсли

КонецЦикла;

Возврат

КонецЕсли;

КонецЕсли;

Прс.ВыбратьЭлементы();

Пока Прс.ПолучитьЭлемент()=1 Цикл

Если Прс.ЭтоГруппа()=1 Тогда Продолжить КонецЕсли;

// Выведем все товары-строки

СпрТов.ИспользоватьВладельца(Прс.ТекущийЭлемент());

СпрТов.ВыбратьЭлементы();

Пока СпрТов.ПолучитьЭлемент()=1 Цикл

Если СпрТов.Товар.Выбран()=0 Тогда Продолжить КонецЕсли;

Если СпрТов.Товар.ПометкаУдаления()=1 Тогда Продолжить КонецЕсли;

Если СпрТов.ПометкаУдаления()=1 Тогда Продолжить КонецЕсли;

Если СписокТоваров.Принадлежит(СпрТов.Товар.ТекущийЭлемент())=0 Тогда

СписокТоваров.ДобавитьЗначение(СпрТов.Товар.ТекущийЭлемент())

КонецЕсли

КонецЦикла;

КонецЦикла;

КонецПроцедуры // ТоварыПрайса

//------------

Функция НазваниеДня(ДатаХ)

i=НомерДняНедели(ДатаХ);

Если i=1 Тогда Возврат "понедельник" КонецЕсли;

Если i=2 Тогда Возврат "вторник" КонецЕсли;

Если i=3 Тогда Возврат "среда" КонецЕсли;

Если i=4 Тогда Возврат "четверг" КонецЕсли;

Если i=5 Тогда Возврат "пятница" КонецЕсли;

Если i=6 Тогда Возврат "суббота" КонецЕсли;

Если i=7 Тогда Возврат "воскресенье" КонецЕсли;

КонецФункции // НазваниеДня

//----------

Процедура ПоПрайсу()

Если Форма.Закладки.ТекущаяСтрока()=1 Тогда

ВыбТовар="";

ЕстьТовар=?(ВыбПрайс.Выбран()=0,0,?(ВыбПрайс.ЭтоГруппа()=1,0,1));

Форма.ВыбТовар.Видимость(ЕстьТовар);

Форма.ВТх.Видимость(ЕстьТовар);

Форма.ВТхх.Видимость(ЕстьТовар);

Если ВыбПрайс.Выбран()=0 Тогда Возврат КонецЕсли;

Голова=?(ВыбПрайс.Уровень()=1,ВыбПрайс,?(ВыбПрайс.Уровень()=2,ВыбПрайс.Родитель,ВыбПрайс.Родитель.Родитель));

ПризнакОтбора=СокрЛП(Голова);

КонецЕсли;

КонецПроцедуры // ПоПрайсу

//------------

Процедура ЗаказПоставщику()

Если ВыбЗаказ.Выбран()=0 Тогда

//Х="Предварительно в поле справа д.б. показан предыдущий заказ

//|или введён новый, без заполнения табличной части!";

Х="Предварительно в поле справа должен быть введён новый заказ

|без заполнения табличной части!";

Предупреждение(Х);

Возврат

КонецЕсли;

Если ВыбЗаказ.КоличествоСтрок()>0 Тогда

Если Вопрос("В указанном заказе строк в табличной части "+ВыбЗаказ.КоличествоСтрок()+"."+РазделительСтрок+

"Формируем заказ заново ?","Да+Нет")="Нет" Тогда Возврат КонецЕсли;

КонецЕсли;

ВЗ=СоздатьОбъект ("Документ."+ВыбЗаказ.Вид());

Если ВЗ.НайтиДокумент(ВыбЗаказ)=0 Тогда

Предупреждение ("СОШ-529");Возврат

КонецЕсли;

ВЗ.УдалитьСтроки();

ВЗ.ДатаОтгрузки=ВЗ.ДатаДок;

// Заполнение

ЕстьОШИБКИ=0;

ТП.ВыбратьСтроки();

Пока ТП.ПолучитьСтроку()=1 Цикл

Если ПустоеЗначение(ТП.Заказ)=1 Тогда Продолжить; КонецЕсли;

ВЗ.НоваяСтрока();

ВЗ.Номенклатура=ТП.Товар;

ЕстьЕД=1;

Если ТП.Товар.ЗакупочнаяЕдиница.Выбран()=0 Тогда

ЕстьЕД=0;

КонецЕсли;

Если ЕстьЕД=0 Тогда

Единица=ТП.Товар.БазоваяЕдиница.ТекущийЭлемент();

Сообщить ("Закупочная единица не указана или коэффициент<=1. Строка "+ТП.НомерСтроки+", товар: "+ТП.Товар);

Иначе

Единица=ТП.Товар.ЗакупочнаяЕдиница.ТекущийЭлемент();

КонецЕсли;

К=Единица.Коэффициент;

Если К < 1 Тогда

Сообщить("Нет коэффициента у единицы. Строка "+ТП.НомерСтроки+", товар: "+ТП.Товар,"!");

К=1;

ЕстьОШИБКИ=1

КонецЕсли;

Если К=1 Тогда

Кц=ТП.Заказ;

Иначе

//Кц=Цел(ТП.Заказ/К);

//Если Кц*К<>ТП.Заказ Тогда

//Сообщить("Указано количество не кратное упаковке (кф.уп."+К+"). Строка "+ТП.НомерСтроки+", товар: "+ТП.Товар,"!");

//ЕстьОШИБКИ=1

//КонецЕсли;

Кц=Цел(ТП.Заказ/К);

Если Кц*К<>ТП.Заказ Тогда Кц=Кц+1 КонецЕсли;

КонецЕсли;

ВЗ.Единица=Единица;

ВЗ.Коэффициент=К;

ВЗ.Количество=Кц;

глПересчетТаблЧасти(ВЗ.ТекущийДокумент(),"Номенклатура");

КонецЦикла;

ВЗ.Записать();

Х="Заказ сформирован."+?(ЕстьОШИБКИ=1," Есть ОШИБКИ !!!","");

Предупреждение(Х);

КонецПроцедуры // ЗаказПоставщику

//------------

Процедура ДиапазонПоДате(Дата0="",Дата1,Дата2)

Если ПустоеЗначение(Дата0)=0 Тогда

Если Дата0>ПолучитьДатуТА() Тогда Дата0=ПолучитьДатуТА(); Предупреждение("Итоги расчитаны по "+Дата0); КонецЕсли;

Понедельник=Дата(Дата0-НомерДняНедели(Дата0)+1);

Дата2=Дата(Понедельник-3);

КонецЕсли;

хх=НомерДняНедели(Дата0);

х=Число(Дата0Х)-Число(Дата0);

Если (х>7)ИЛИ(х<(8-хх)) Тогда Дата0Х=Дата(Дата0+7);КонецЕсли;

Если НЕ(НомерДняНедели(Дата2)=5) Тогда

Дата2=Дата(Дата2-НомерДняНедели(Дата2)+5);

КонецЕсли;

Понедельник=Дата(Дата2-НомерДняНедели(Дата2)+1);

Дата1=Дата(Понедельник-7*(ГлубинаАнализа-1));

РабочихДнейДоПоставки=Число(Дата0Х)-Число(Дата0)-3;

КонецПроцедуры // ДиапазонПоДате

//------------

Процедура Аппроксимация(Данные,А,В)

А=0;В=0;

Если ПустоеЗначение(Данные)=1 Тогда Возврат КонецЕсли;

Хсред=Данные.Итог("Х")/Данные.КоличествоСтрок();

Усред=Данные.Итог("У")/Данные.КоличествоСтрок();

Числитель=0;

Знаменатель=0;

Данные.ВыбратьСтроки();

Пока Данные.ПолучитьСтроку()=1 Цикл

Числитель=Числитель+(Данные.Х-Хсред)*Данные.У;

Знаменатель=Знаменатель+(Данные.Х-Хсред)*(Данные.Х-Хсред);

КонецЦикла;

Если Знаменатель=0 Тогда

А=Усред; В=0;

Иначе

В=Числитель/Знаменатель;

А=Усред-Хсред*Числитель/Знаменатель;

КонецЕсли;

КонецПроцедуры // Аппроксимация

//------------

Процедура АнализЛинейный() // Линейная апроксимация

Перем Прогноз,А,В,Хмин,Хмакс,Заказ;

ТП.Очистить();

ТТ.Выгрузить(ТП,,,"Товар,Остаток");

ТП.НоваяКолонка("ПрогнозПродаж","Число",7,0,"Прогноз",6);

ТП.НоваяКолонка("А","Число",17,0,"А",6);

ТП.НоваяКолонка("В","Число",17,0,"В",6);

ТП.НоваяКолонка("Мин","Число",17,0,"min",6);

ТП.НоваяКолонка("Макс","Число",17,0,"max",6);

ТП.НоваяКолонка("Заказ","Число",7,0,"Заказ",6);

Данные=СоздатьОбъект("ТаблицаЗначений");

Данные.НоваяКолонка("Х","Число",3,0);

Данные.НоваяКолонка("У","Число",7,0);

Если ТТ.КоличествоКолонок()<> ГлубинаАнализа+3 Тогда Сообщить("СОШ-682");Возврат КонецЕсли;

ном=0;

ТТ.ВыбратьСтроки();

Пока ТТ.ПолучитьСтроку()=1 Цикл

ном=ном+1;

ТП.ПолучитьСтрокуПоНомеру(ном);

Данные.УдалитьСтроки();

Для i=1 По ГлубинаАнализа Цикл

у=ТТ.ПолучитьЗначение(ном,i+3);

Если (ПустоеЗначение(у)=1)И(ПустоПропускать=1) Тогда // пропускаем

Иначе

Данные.НоваяСтрока();

Данные.Х=i;

Данные.У=у;

КонецЕсли;

КонецЦикла;

Если ПустоеЗначение(Данные)=1 Тогда Сообщить("Строку "+ТТ.ТекущаяСтрока()+" не обрабатываем.");Продолжить КонецЕсли;

Аппроксимация (Данные,А,В);

// Параметры заказа

//Прогноз1=А+В*(ГлубинаАнализа+1);

Прогноз2=А+В*(ГлубинаАнализа+2);

Расчётный Остаток На Моменть Поступления Заказа=Макс(ТТ.Остаток-ТТ.Расходимость*РабочихДнейДоПоставки,0);

Заказ=Прогноз2*1.3-РасчётныйОстатокНаМоментьПоступленияЗаказа;

Хмин=Прогноз2*0.5;

Хмакс=Прогноз2*1.5;

ТП.А=А;

ТП.В=В;

ТП.ПрогнозПродаж=Прогноз2;

ТП.Заказ=Заказ;

ТП.Мин=Хмин;

ТП.Макс=Хмакс;

КонецЦикла;

ТТ.ТекущаяСтрока(1);

ТП.ТекущаяСтрока(1);

Форма.Закладки.ТекущаяСтрока(3);

Форма.ИспользоватьСлой("Основной,Даты,Заказ", 2);

КонецПроцедуры // АнализЛинейный

//------------

Процедура УбратьОтрицательныеОстатки() // Возможна пересортица...

ТТ.ВыбратьСтроки();

Пока ТТ.ПолучитьСтроку()=1 Цикл

Если ТТ.Остаток<0 Тогда ТТ.Остаток=0; КонецЕсли;

КонецЦикла;

КонецПроцедуры // УбратьОтрицательныеОстатки

//------------

Процедура Хроника() // Построение графика продаж по неделям

СписокТоваров=СоздатьОбъект("СписокЗначений");

ТоварыПрайса(ВыбПрайс,СписокТоваров);

// Остаток расчитываем на конец предыдущей недели...

// Нет, берём текущий остаток, на рабочую дату.

ОстаткиПоТоварам=СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Остатки)

|Период с Дата0 по Дата0;

|Товар=Регистр.ОстаткиТМЦ.Номенклатура;

|КолВо = Регистр.ОстаткиТМЦ.Количество;

|Функция КО = КонОст(КолВо);

|Группировка Товар Без Групп;

|Условие (Товар В СписокТоваров);

|"//}}ЗАПРОС

;

Если Остатки По Товарам. Выполнить (ТекстЗапроса) = 0 Тогда Предупреждение("Запрос по остаткам не выполнен!");Возврат КонецЕсли;

ЗапросПоТоварам=Создать Объект ("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Товар)

|Период с Дата1 по Дата2;

|Товар=Регистр.ПартииНаличие.Номенклатура;

|КодОперации=Регистр.ПартииНаличие.КодОперации;

|КолВо = Регистр.ПартииНаличие.Количество;

//|Функция Закупка = Приход(КолВо) когда (КодОперации=глКО.Закупка);

//|Функция ВозвратПоставщику = Расход(КолВо) когда (КодОперации=глКО.ВозвратПоставщику);

|Функция Продажа = Расход(КолВо) когда (КодОперации=глКО.Продажа);

//|Функция ВозвратОтПокупателя = Приход(КолВо) когда (КодОперации=глКО.ВозвратОтПокупателя);

|Группировка Неделя;

|Группировка Товар Без Групп;

//|Без итогов;

|Условие (Товар В СписокТоваров);

|"//}}ЗАПРОС;

Если ЗапросПоТоварам.Выполнить(ТекстЗапроса) = 0 Тогда Предупреждение("Запрос по товарам не выполнен!");Возврат КонецЕсли;

ТТ.Очистить();

ТХ=СоздатьОбъект("ТаблицаЗначений");

ТХ.НоваяКолонка("Товар","Справочник.Номенклатура",,,,10);

ТХ.НоваяКолонка("Остаток","Число",7,0,"КонОст",5);

ТХ.НоваяКолонка("Расходимость","Число",7,0,"СрРсх",5);

КолонкиПрихода=СоздатьОбъект("СписокЗначений");

КолонкиРасхода=СоздатьОбъект("СписокЗначений");

Д=0;

Пока ЗапросПоТоварам.Группировка("Неделя") = 1 Цикл

День=Дата(ЗапросПоТоварам.Неделя);

Состояние(""+День);

Д=Д+1;

КолонкаРасхода="Д"+Д;

ТХ.НоваяКолонка(КолонкаРасхода,"Число",7,0,""+День,6);

КолонкиРасхода.ДобавитьЗначение(КолонкаРасхода);

Пока ЗапросПоТоварам.Группировка("Товар") = 1 Цикл

Товар=ЗапросПоТоварам.Товар.ТекущийЭлемент();

СтрокаХ=0;

Если ТХ.НайтиЗначение(Товар,СтрокаХ,1)=0 Тогда

ТХ.НоваяСтрока();

ТХ.Товар=Товар.ТекущийЭлемент();

Если ОстаткиПоТоварам.Получить(Товар.ТекущийЭлемент())=1 Тогда

//ОстаткиПоТоварам.Группировка("Товар");

ТХ.Остаток=Число(ОстаткиПоТоварам.КО);

КонецЕсли;

СтрокаХ=ТХ.КоличествоСтрок();

Иначе

ТХ.ПолучитьСтрокуПоНомеру(СтрокаХ);

КонецЕсли;

//Приход=ЗапросПоТоварам.Закупка-ЗапросПоТоварам.ВозвратПоставщику;

//Расход=ЗапросПоТоварам.Продажа-ЗапросПоТоварам.ВозвратОтПокупателя;

Расход=ЗапросПоТоварам.Продажа;

ТХ.Расходимость=ТХ.Расходимость+Расход;

//ТХ.УстановитьЗначение(СтрокаХ,КолонкаПрихода,Приход);

ТХ.УстановитьЗначение(СтрокаХ,КолонкаРасхода,Расход);

КонецЦикла;

КонецЦикла;

Если ПустоеЗначение(ТХ)=1 Тогда Предупреждение("Данных не найдено !");Возврат КонецЕсли;

ТХ.ВыбратьСтроки();

Пока ТХ.ПолучитьСтроку()=1 Цикл

ТХ.Расходимость=ТХ.Расходимость/Д;

КонецЦикла;

ТХ.Выгрузить(ТТ);

Форма.Закладки.ТекущаяСтрока(2);

Форма.ИспользоватьСлой("Основной,Даты,Планирование", 2);

КонецПроцедуры // Хроника

//------------

Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)

Если НомерЗакладки = 1 Тогда

Форма.ИспользоватьСлой("Основной,Анализ,Даты",2);

ПоПрайсу();

ИначеЕсли НомерЗакладки = 2 Тогда

Форма.ИспользоватьСлой("Основной,Даты,Планирование", 2);

ИначеЕсли НомерЗакладки = 3 Тогда

Форма.ИспользоватьСлой("Основной,Даты,Заказ", 2);

КонецЕсли;

КонецПроцедуры // ПриВыбореЗакладки

//------------

Процедура ПриОткрытии()

Если ПустоеЗначение(Дата0)=1 Тогда Дата0=РабочаяДата(); КонецЕсли;

Если Дата0>ПолучитьДатуТА() Тогда Дата0=ПолучитьДатуТА(); КонецЕсли;

ДиапазонПоДате(Дата0,Дата1,Дата2);

Спр = Форма.Параметр;

Если ПустоеЗначение(Спр) =0 Тогда

Если Спр.Вид() = "_Прайсы" Тогда

ВыбПрайс=Спр.ТекущийЭлемент();

КонецЕсли;

КонецЕсли;

Форма.ИспользоватьЗакладки(1);

Форма.Закладки.ДобавитьЗначение(1, "Анализ");

Форма.Закладки.ДобавитьЗначение(2, "Планирование");

Форма.Закладки.ДобавитьЗначение(3, "Заказ");

//Форма.Закладки.ДобавитьЗначение(4, "Данные");

//Форма.Закладки.ДобавитьЗначение(5, "Метод");

Форма.ИспользоватьСлой("Основной,Анализ,Даты",2);

ПоПрайсу();

КонецПроцедуры // ПриОткрытии

Размещено на Allbest.ru