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

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

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

Многообразие современных информационных технологий требует уточнения и корректировки методики экономической эффективности по каждому конкретному проекту. Например, для экономической оценки внедрения коммуникационной системы источниками эффективности выступают снижение затрат на организацию обмена информацией, увеличение скорости передачи информации, повышение управляемости информационными ресурсами. Для оценки эффективности от внедрения автоматизированных систем документооборота - снижение трудоемкости и себестоимости подготовки, обработки и использования документов. Сложность заключается в правильном выборе источников эффективности.

Список использованной литературы

1. Астахов В.П.: Конфигуратор 1С. - М.: Юрайт, 2011.-295 с.

2. Зингер И. С. Информационное обеспечение в организационных системах управления. -- М., 2014. -- 688 с.

3. Ильина О. П., Смирнов И. А., Юровский А. Б. Служба информационного обеспечения. -- М., 2011. -- 346 с.

4. Кондраков Н.П.: Бухгалтерский учет. - М.: ИНФРА-М, 2012

5. Камышанченко Е. Н. Особенности внедрения современных информационных систем // М-во образования и науки РФ, НИУ БелГУ, Воронежский гос. ун-т, Харьковский национальный ун-т им. В.Н. Каразина; под ред.: Е.Н. Камышанченко, Ю.Л. Растопчиной ; рец.: Л.В. Соловьева, О.А. Ломовцева: Белгород: ИПК НИУ «БелГУ», 2012 -- 340 с.

6. Невешкина Е.В. Интернет сервисы. - М.: Дашков и К, 2012 -- 622 с.

7. Соснова Р.И.: Учет затрат на предприятии. - М под ред. д.э.н., проф. Ю.А. Бабаева: Бухгалтерский финансовый учет. - М.: РИОР, 2012 --411 с.

8. Соловьева Л.В. Разработка и внедрение программного обеспечения // БелГУ, Экономический фак., Воронежский гос. ун-т, Харьковский национальный ун-т им. В.Н. Карамзина, Международный Славянский ун-т; под науч. ред.: Е.Н. Камышанченко, С.Н. Растворцевой ; рец.: Л.В. Соловьева, О.А. Ломовцева: Современные проблемы социально-экономического развития России. - Белгород: БелГУ, 2011 -- 601 с.

9. Соловьева П.Р. Современные проблемы социально-экономического развития России. // : - Белгород: БелГУ, 2011 -- 298 с.

10. Воронова Е.Ю.: Управленческий учет. - М.: Юрайт, 2011 -- 348 с.

11. Зонова А.В. Автоматизация бизнеса. - СПб.: Питер, 2011 -- 388 с.

12. Камысовская С.В. Инфологическое моделирование. - М: КНОРУС, 2011 -- 117 с.

13. Котин М.: 1С: Предприятие 8.2.Управление небольшой фирмой. - СПб.: Питер, 2011-- 402 с.

14. Левкевич М.М.: Практический курс разработчика мобильных приложений . - М: ИНФРА-М, 2011 -- 601 с.

15. Миргородская Т.В.: Аудит. - М.: КНОРУС, 2011 -- 470 с.

16. Невешкина Е.В.: Бухгалтерский учет в торговле. - М.: Дашков и К, 2011 -- 504 с.

17. Пластинин А.М.:Разработка веб- приложений. - М: Дело и Сервис, 2011 -- 314 с.

18. Плотинин С.М.: Информационные системы предприятия. Под общ. ред. проф. Е.А. Мизиковского и проф. М.В.Мельник: - М: Магистр, 2011 -- 198 с.

19. Полянский Д.А.: Реляционные базы данных// под общ. ред. М.А. Вахрушиной: Бухгалтерский учет в сфере услуг. - М.: Ридд Гр1С, 2011 -- 601 с.

20. Полещук Т.А. Базы данных. - М: Вузовский учебник, ИНФРА-М, 2013 -- 355 с.

21. Удовикова А.А.Современные исследования в экономике, финансах и бизнесе: методы и технологии.// Ред.коллегия: к.с.н., профессор Т.П.Беликова; к.п.н., доцент А.В.Боева; к.ф.-м.н., старший преподаватель И.О.Гордеева; к.п.н., доцент И.И.Палашева; к.э.н., доцент - Старый Оскол: Оскол-Информ, 2015 -- 500 с.

22. Песоцкая Е.В. Информационные системы и технологии в экономике и управлении. // Санкт-Петербургский гос. ун-т экономики и финансов (СпбГУЭФ) ; под ред. В.В. Трофимова ; - М.: Юрайт, 2013 -- 254 с.

23. Селищев Н.: 1С: Предприятие 8.2. для бухгалтера. - СПб.: Питер, 2014 -- 404 с.

24. Терентьева Т.В. Методы разработки мобильных приложений. - М.: Вузовский учебник, 2011 -- 342 с.

Приложение

&НаКлиенте

Процедура ПередатьДанныеВКлуб(Команда)

ВыполнитьДействие («ПередатьДанныеВКлуб»)

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

&НаКлиенте

Процедура ПолучитьДанныеИзКлуба(Команда)

ВыполнитьДействие («ПолучитьДанныеИзКлуба», Истина)

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

Ниже отпишем процедуру «ВыполнитьДействие», указав начальное значение параметра «ОбновитьФорму» (параметра обновления) - «Ложь»:

&НаКлиенте

Процедура ПередатьДанныеВКлуб(Команда)

ВыполнитьДействие(«ПередатьДанныеВКлуб»)

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

&НаКлиенте

Процедура ПолучитьДанныеИзКлуба(Команда)

ВыполнитьДействие(«ПолучитьДанныеИзКлуба», Истина)

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

Процедура ВыполнитьДействие(ИмяДействия, ОбновитьФорму=Ложь)

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

Процедура ВыполнитьДействие(ИмяДействия, ОбновитьФорму=Ложь)

ТекущийОбъект=РеквизитФормыВЗначение(«Объект»);

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

ТекущийОбъект.ИмяДействия() (1)

«ТекущийОбъект. » +ИмяДействия+»()»

Процедура ВыполнитьДействие (ИмяДействия, ОбновитьФорму=Ложь)

ТекущийОбъект=РеквизитФормыВЗначение(«Объект»);

Выполнить («ТекущийОбъект. «+ИмяДействия+»()»);

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

Процедура ВыполнитьДействие(ИмяДействия, ОбновитьФорму=Ложь)

ТекущийОбъект=РеквизитФормыВЗначение(«Объект»);

Выполнить(«ТекущийОбъект. «+ИмяДействия+»()»);

Если ОбновитьФорму Тогда

Элементы.ОбменДанных.Обновить();

КонецЕсли;

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

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

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

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

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

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

ДанныеДанных=ВебСервис.ОбменДанных(Константы.КодМобильногоУстройства.Получить());

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

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

ДанныеДанных=ВебСервис.ОбменДанных(Константы.КодМобильногоУстройства.Получить());

Состав=РегистрацииСведений.ОбменДанных.СоздатьНаборЗаписей();

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

ДанныеДанных.Получить()

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределенно Тогда

Возврат

КонецЕсли;ДанныеДанных=ВебСервис.ОбменДанных(Константы.КодМобильногоУстройства.Получить());

Состав=РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Загрузить(ДанныеДанных.Получить());

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

Процедура ПолучитьДанныеИзКлуба() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

ДанныеДанных=ВебСервис.ОбменДанных(Константы.КодМобильногоУстройства.Получить());

Состав=РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Загрузить(ДанныеДанных.Получить());

Состав.Записать()

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

Процедура ПередатьДанныеВКлуб() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

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

Процедура ПередатьДанныеВКлуб() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли

Состав=РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Прочитать();

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

Процедура ПередатьДанныеВКлуб() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределенно Тогда

Возврат

КонецЕсли;

Состав=РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Прочитать();

ТаблицаСданными=Состав.Выгрузить();

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

ТаблицаСданными.Колонки

ТаблицаСданными.Колонки.ИмяПоля

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис=Неопределено Тогда

Возврат

КонецЕсли;

Состав=РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Прочитать();

ТаблицаСданными=Состав.Выгрузить();

ТаблицаСданными.Колонки.ИмяПоля.Имя = «Свойство»;

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

Процедура ПередатьДанныеВКлуб() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис = Неопределено Тогда

Возврат

КонецЕсли;

Состав = РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Прочитать();

ТаблицаСДанными=Состав.Выгрузить();

ТаблицаСДанными.Колонки.ИмяПоля.Имя = «Свойство»;

ДанныеДанных = Новый ХранилищеЗначения(ТаблицаСДанными, Новый СжатиеДанных(9));

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

Процедура ПередатьДанныеВКлуб() Экспорт

Перем ВебСервис;

Сервис.Подключить(ВебСервис, «СервисРегистрации»);

Если ВебСервис = Неопределено Тогда

Возврат

КонецЕсли;

Состав = РегистрыСведений.ОбменДанных.СоздатьНаборЗаписей();

Состав.Прочитать();

ТаблицаСДанными = Состав.Выгрузить();

ТаблицаСДанными.Колонки.ИмяПоля.Имя = «Свойство»;

ДанныеДанных = Новый ХранилищеЗначения(ТаблицаСданными, Новый СжатиеДанных(9));

ВебСервис.ПолучитьОбменДанных(ДанныеДанных,Константы, КодМобильногоУстройства.Получить());

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

Функция Участник(Устройство)

КонецФункции // Участник()

Функция Участник()

Возврат Справочники.УчастникКлуба.НайтиПоКоду(Устройство)

КонецФункции // Участник()

Функция ОбменДанных(Код_устройства)

Значение=Справочники.УчастникКлуба.ОбменДанныхУчастника(Участник(Код_устройства));

КонецФункции

Функция ОбменДанных(Код_устройства)

Значение=Справочники.УчастникКлуба.ОбменДанныхУчастника(Участник(Код_Устройства));

Возврат Новый ХранилищеЗначения(Значение, Новый СжатиеДанных(9));

КонецФункции

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

КонецФункции // ()

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос=Новый Запрос;

КонецФунции // ()

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос=Новый Запрос;

НашЗапрос.Текст=

КонецФункции //()

ПланВидовХарактеристикСсылка.ВидСвойствоУчастника

- Значение - Характеристика.ВидСвойстваУчастника

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос = Новый Запрос;

НашЗапрос.Текст=”ВЫБРАТЬ

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойстваУчастника.Свойство) КАК ИмяПоля,

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойстваУчастника.Значение)

|ИЗ

| РегистрСведений.СВойстваУчастника КАК СвойстваУчастнка

| ГДЕ

| СвойстваУЧастника.Участник = $Участник”

КонецФункции // ОбменДанныхУчастника()

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос=Новый Запрос;

НашЗапрос.Текст=”ВЫБРАТЬ

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойстваУчастника.Свойство),

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойствоУчастника.Значение)

| ИЗ

| РегистрСведений.СвойстваУчастника КАК СвойстваУчастника

| ГДЕ

| СвойстваУчастника.Участник=$Участник”;

НашЗапрос.УстановитьПараметр(«Участник», Участник);

КонецФункции // ОбменДанныхУчастника()

Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос=Новый Запрос;

НашЗапрос.Текст=”ВЫБРАТЬ

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойстваУчастника.Свойство),

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойствоУчастника.Значение)

| ИЗ

| РегистрСведений.СвойстваУчастника КАК СвойстваУчастника

| СвойстваУчастника.Участник=$Участник”;

НашЗапрос.УстановитьПараметр(“Участник”, Участник);

Результат=НашЗапрос.Выполнить();

КонецФункции Функция ОбменДанныхУчастника(ЗНАЧ Участник) Экспорт

НашЗапрос=Новый Запрос;

НашЗапрос.Текст=”ВЫБРАТЬ

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойстваУчастника.Свойство),

| ПРЕДСТАВЛЕНИЕССЫЛКИ(СвойтвоУчастника.Значение)

| ИЗ

| РегистрСведений.СвойстваУчастника КАК СвойстваУчастника

| ГДЕ

| СвойствоУчастника.Участник = $Участник”;

НашЗапрос.УстановитьПараметр(«Участник», Участник);

Результат=НашЗапрос.Выполнить();

Возврат Результат.Выгрузить()

КонецФункции // ОбменДанныхУчастника()

Функция ПолучитьОбменДанных(Данные, Код_устройства)

// Вставить содержимое обработчика.

КонецФункции

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Функция ПолучитьОбменДанных(Данные,Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Набор.Отбор.Участник.Установить(Участник);

Таким образом, мы получим четвертую команду попытки:

Функция ПолучитьОбменДанных(Данные,Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Набор.Отбор.Участник.Установить(Участник);

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Набор.Отбор.Установить(Участник);

Для каждого СтрокаДанных Из ТаблицаДанными Цикл

КонецЦикла;

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

КонецФункции

Функция ПолучитьАнкетныеДаныне(Даныне, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Набор.ОтборУстановить(Участник);

Для каждого СтрокаДанных Из ТаблицаСДанными Цикл

Запись=РегистрыСведений.СвойстваУчастника.СоздатьМенеджерЗаписи();

КонецЦикла;

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчатника.СоздатьНаборЗаписей();

Набор.Отбор.Установить(Участник);

Для каждого СтрокаДанных Из ТаблицаСДанными Цикл

Запись=РегистрыСведений.СвойстваУчастника.СоздатьМенеджерЗаписи();

Запись.Участик=Участник;

КонецЦикла;

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

Функция ПолучитьОбменДанных(Данные, Код_устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрыСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Набор.Отбор.Установить(Участник);

Для каждого СтрокаДанных Из ТаблицаСДанными Цикл

Запись=РегистрыСведений.СвойстваУчастника.СоздатьМенеджерЗаписи();

Запись.Участник=Участник;

Запись.Свойство=ПланыВидовХарактеристик.ВидСвойстваУчатсника.НайтиПоНаименованию(СокрЛП(СтрокаДанных.Свойство));

КонецЦикла;

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

Функция ПолучитьОбменДанных(Данные,Код_Устройства)

Попытка

ТаблицаСДанными=Данные.Получить();

Участник=Участник(Код_устройства);

Набор=РегистрСведений.СвойстваУчастника.СоздатьНаборЗаписей();

Набор.Отбор.Установить(Участник);

Для каждого СтрокаДанных Из ТаблицаСДанными Цикл

Запись=РегистрыСведений.СвойстваУчастника.СоздатьМенеджерЗаписи();

Запись.Участник=Участник;

Запись.Свойство=ПланыВидовХарактеристик.ВидСвойстваУчастника.НайтиПоНаименованию(СокрЛП(СтрокаДанных.Свойство));

Запись.Значение=СтрокаДанных.Значение;

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

КонецЦикла;

Возврат Истина

Исключение

Возврат Ложь

КонецПопытки;

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

...