Преподаватель который помогает студентам и школьникам в учёбе.

Информационные технологии и платформы разработки информационных систем

Содержание:

ВВЕДЕНИЕ

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

Глава 1. Разработка конфигурации

Выполним первую команду, с которой начинается работа с любой конфигурацией, – откроем конфигурацию с помощью пункта меню Конфигурация > Открыть конфигурацию или соответствующей кнопки на панели инструментов (рис. 1).

На экране откроется дерево объектов конфигурации.

Рис. 1. Дерево конфигурации

Можно сказать, что дерево объектов конфигурации – основной инструмент, с которым работает разработчик. Дерево объектов конфигурации содержит в себе практически всю информацию о том, из чего состоит конфигурация.

Дело в том, что для облегчения работы разработчика все, из чего состоит конфигурация, сгруппировано, и сейчас дерево и показывает вам эти группы. Если вы будете перемещаться по дереву и нажимать на +, то увидите, что ни в одной группе ничего нет. Исключение составит лишь группа Общие > Языки, в которой вы обнаружите «нечто» под названием «Русский». Этот «Русский» платформа создала для вас сама, поскольку в данном случае конфигуратор использует русскоязычный интерфейс.

Хотелось бы уже начать что-нибудь делать, но прежде следует определиться с терминами. Вы наверняка уже заметили, что, говоря о содержимом конфигурации, мы сознательно _либоизбегали использования _нокаких-либо _{настало}терминов. Но _когдатеперь настало _{определиться}время, когда _{терминологией}можно определиться с терминологией и рассказать про объекты конфигурации.

Конфигурация _онапредставляет собой _{структуру}описание. Она _{которые}описывает структуру _будетданных, которые _впользователь будет _работыиспользовать в режиме работы 1С:Предприятие. [1 с 23]

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

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

С одной _{представляют}стороны, объекты _деталиконфигурации представляют собой детали «кон_{собирается}структора», из _обычнокоторого собирается _{конструкторе}конфигурация. Обычно в конструкторе суще_{деталей}ствует некоторый _могутнабор деталей. _{разного}Детали могут _{длинные}быть разного вида: длинные, ко_ироткие, квадратные, _дпрямоугольные и т. д. _{деталей}Теперь представьте, что деталей каж_можемдого вида _{столько}мы можем _намсоздавать столько, _скажемсколько нам _инужно (скажем, 5 _мыдлинных и 3 _{соединять}короткие). Мы можем соединять де_{различными}тали между собой различными способами. [2 с 28]

_сТо же и с _можемобъектами конфигурации. _толькоМы можем _{определенных}создавать только _нообъекты определенных _видавидов. Но _мыкаждого вида _{создать}объектов мы можем создать _нужностолько, сколько _одногонам нужно. _{отличаются}Объекты одного _{объектов}вида отличаются _видаот объектов _чтодругого вида _разныетем, что _точнееимеют разные _разныйсвойства (точнее _{свойств}говоря, разный набор свойств). Объек_другты могут _другомвзаимодействовать друг с другом, и мы _{взаимодейс}можем описать такое взаимодействие.

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

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

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

Так же «сложн ые» объекты кон фигур ации состоят из более «пр остых», и одн и и те же «пр остые» объекты могут входить в состав сложн ых объектов. Такая стр уктур а позволяет упр остить р аботу с объектами кон фигур ации, поскольку если мы зн аем, как р аботать с каким-либо «пр остым» объектом, то в любом «сложн ом» объекте, в состав котор ого он входит, мы будем р аботать с н им все тем же обр азом. [4 с 26]

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

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

Кр оме этого, н а каждом пр едпр иятии обязательн о ведется список сотр удн иков, спр авочн ик н омен клатур ы или товар ов. В кон фигур ации тоже есть специальн ые объекты вида Спр авочн ик, котор ые позволяют р азр аботчику создавать компьютер н ые ан алоги таких списков.

Как мы уже говор или, н а осн ове объектов кон фигур ации платфор ма создает в базе дан н ых таблицы, в котор ых будут хр ан иться дан н ые. В литер атур е, как пр авило, объект кон фигур ации и соответствующий ему н абор таблиц базы данн ых пр ин ято н азывать один аково.

Н апр имер , если в кон фигур ации существует объект Спр авочн ик Сотр удн ики, то н абор таблиц, создан н ый платфор мой н а осн ове этого объекта кон фигур ации, также н азывают Спр авочн ик Сотр удн ики.

Мы отойдем от такого «р азмытого» стиля изложен ия и в тех местах, где р ечь пойдет о кон фигур ации, будем использовать явн ое уточн ен ие – объект кон фигур ации спр авочн ик Сотр удн ики. Там же, где р ечь пойдет о базе дан н ых, мы будем говор ить пр осто: спр авочн ик Сотр удн ики. [1 с 45]

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

Пер ед н ачалом р аботы следует объясн ить н екотор ые пр иемы р аботы с конфигур атор ом.

Для того чтобы откр ыть и закр ыть кон фигур ацию, следует использовать пун кты мен ю Кон фигур ация > Откр ыть кон фигур ацию и Кон фигур ация > Закр ыть кон фигур ацию или соответствующие им кн опки н а пан ели ин стр умен тов.

После того как кон фигур ация откр ыта, ее состав появляется в окн е дер ева кон фигур ации (р ис. 2). Это окн о вы можете закр ыть, как любое др угое окн о Windows, пр и этом кон фигур ация остан ется откр ытой (то есть доступн ой для р едактир ован ия). Чтобы сн ова отобр азить н а экр ан е окн о дер ева кон фигур ации, следует воспользоваться коман дой мен ю Кон фигур ация > Окн о кон фигур ации. [3 с 59]

Добавить н овый объект кон фигур ации можн о н есколькими способами, и вы можете использовать н аиболее пон ятн ый и удобн ый для вас.Пер вый способ. Н еобходимо устан овить кур сор н а ту ветку объектов кон фигур ации, котор ая вас интер есует, и в коман дн ой пан ели окн а кон фигур ации н ажать кн опку Действия > Добавить

Рис. 2. Добавлен ие н ового объекта кон фигур ации

Втор ой способ. Вы можете воспользоваться кон текстн ым мен ю, котор ое вызывается пр и н ажатии н а пр авую клавишу мыши. Устан овите кур сор н а ин тер есующую вас ветку объектов кон фигур ации и н ажмите пр авую клавишу мыши. В появившемся мен ю выбер ите пун кт Добавить (р ис. 3).

Р ис. 3. Добавлен ие н ового объекта кон фигур ации

Тр етий способ. Устан овите кур сор н а ин тер есующую вас ветку объектов кон фигур ации и в коман дн ой пан ели окн а кон фигур ации н ажмите кн опку Добавить (с пиктогр аммой +), (рис. 4)

Р ис. 4. Добавлен ие н ового объекта кон фигур ации

Последн ий способ, н а н аш взгляд, н аиболее удобен , поэтому в осн овн ом мы будем использовать его.

Палитр а свойств – это специальн ое служебн ое окн о, котор ое позволяет р едактир овать все свойства объекта кон фигур ации и др угую связан н ую с н им инфор мацию. Поскольку р азн ые объекты кон фигур ации имеют самые р азн ые свойства, содер жимое этого окн а будет мен яться в зависимости от того, какой объект является текущим (н а каком объекте кон фигур ации устан овлен кур сор ).

Выделим в дер еве объектов кон фигур ации кор н евой элемен т Кон фигур ация и двойн ым щелчком мыши откр оем его палитр у свойств.Зададим имя кон фигур ации ПособиеДляН ачин ающих.

Соответствующий ему син он им устан авливается автоматически, н о его можн о измен ить по своему усмотр ен ию. В дальн ейшем имен н о его мы будем видеть в р абочем окн е «1С:Пр едпр иятия» (р ис. 5). [2 с 27]

Р ис. 5. Палитр а свойств кон фигур ации

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

В этом случае, как и сейчас, палитр а свойств откр оется и будет закр еплен а н а р абочей области кон фигур атор а. То есть пр и выделен ии какого-либо объекта кон фигур ации окн о его свойств всегда будет откр ыто. Одн ако есть удобн ая возможн ость откр епить палитр у свойств, используя символ кн опки в заголовке окн а палитр ы свойств (р ис. 6).

Рис. 6. «Откр епим» палитр у свойств

В этом состоян ии, пр и н аведен ии кур сор а мыши н а любое др угое окн о, палитр а свойств будет свор ачиваться н а дополн ительн ую пан ель в пр авой части экр ан а (р ис. 7).

Рис. 7. Кн опка н а дополн ительн ой пан ели

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

Закр оем пр иложен ие и вер н емся в кон фигур атор . Выделим кор ен ь дер ева объектов кон фигур ации ПособиеДляН ачин ающих, н ажатием пр авой кн опки мыши вызовем кон текстн ое мен ю и выбер ем пун кт Откр ыть коман дн ый ин терфейс кон фигур ации (р ис.8).

Рис. 8. Вызов окн а н астр ойки коман дн ого ин тер фейса кон фигур ации

В откр ывшемся окн е Коман дн ый ин тер фейс вы увидите список создан н ых вами подсистем (р азделов пр иложен ия). С помощью кн опок Ввер х, Вн из измен им пор ядок р асположен ия р азделов в этом списке.

Р асположим сн ачала подсистемы, отр ажающие пр оизводствен н ую деятельн ость н ашей фир мы: Учет матер иалов и Оказан ие услуг, затем бухгалтер скую деятельн ость и р асчет зар платы сотр удн иков: Бухгалтер ия и Р асчет зарплаты, а затем подсистему Пр едпр иятие (р ис.9). [4 с 113]

Р ис. 9. Коман дн ый ин тер фейс

Н а следующей схеме изобр ажен о взаимодействие объектов встр оен н ого языка для р аботы с кон стан тами (р ис. 10).

Рис. 10. Объекты встр оен н ого языка для р аботы с кон стан тами

Кон стан тыН абор – пр едоставляет возможн ость пр оведен ия опер аций чтен ия и записи ср азу для гр уппы кон стан т, в частн ом случае – для всех кон стан т. Также используется в фор ме кон стан т для хр ан ен ия, записи и считыван ия констан т.

КонстантыНабор – предоставляет возможность проведения операций чтения и записи сразу для группы констант, в частном случае – для всех констант. Также используется в форме констант для хранения, записи и считывания констант.

КонстантаМенеджерЗначения.<имя> – используется для доступа к константе. Любая запись константы (интерактивно в форме, объекты КонстантыНабор и КонстантаМенеджер.<имя>) создает объект этого типа и производит запись с его помощью, что обеспечивает вызов модуля и обработчиков событий этого объекта.

Ниже приведены примеры использования объектов встроенного языка для работы с константами

// Глобальный контекст

// Константы

// Пример: установить значение константы.

Константы.Бухгалтер.Установить("Сидоров Петр Иванович");

// объект КонстантыМенеджер

// .

// []

// Для Каждого … Из … Цикл … КонецЦикла;

// Пример: прочитать значение константы.

Результат = Константы.ПрефиксНумерации.Получить();

Сообщить("Значение константы ПрефиксНумерации = "+ Результат);

// Пример: установить значение константы ПрефиксНумерации равным ЦБ.

Константы["ПрефиксНумерации"].Установить("ЦБ");

Сообщить("Новое значение = " + Константы["ПрефиксНумерации"].Получить());

// Пример: очистить значения всех констант.

Для Каждого ОчереднаяКонстанта Из Константы Цикл

ОчереднаяКонстанта.Установить(Неопределено);

КонецЦикла;

// объект КонстантыМенеджер

// СоздатьНабор()

// Пример: установить новые значения нескольких констант.

Набор = Константы.СоздатьНабор("Руководитель, Бухгалтер");

Набор.Руководитель = "Николаев Денис Павлович";

Набор.Бухгалтер = "Николаева Людмила Сергеевна";

Набор.Записать();

// объект КонстантаМенеджер.

// СоздатьМенеджерЗначения()

// Пример: вывести значения всех констант, существующих в конфигурации.

Для Каждого ОчереднаяКонстанта Из Константы Цикл

ИмяКонст = ОчереднаяКонстанта.СоздатьМенеджерЗначения().Метаданные().Имя;

ЗначениеКонст = ОчереднаяКонстанта.Получить();

Сообщить("Константа "+ ИмяКонст +" = "+ ЗначениеКонст);

КонецЦикла;

Последовательность событий при записи констант из формы констант (записать и закрыть)( Рис. 10)

Рис. 10. Последовательность событий при записи констант из формы констант

Справочники

Объекты встроенного языка для работы со справочниками

На следующей схеме изображено взаимодействие объектов встроенного языка для работы со справочниками (рис. 11).

Рис. 11. Объекты встроенного языка для работы со справочниками

Заливкой выделен объект ман ипулир ован ия дан н ыми. Метод объекта, от котор ого идет стр елка, пр иводится в листин ге под соответствующей цифр ой (н апр имер , под цифр ой 3 пр иводится метод Н айтиПоКоду() объекта Спр авочн икМен еджер .<имя>), а объект, к котор ому идет стр елка, – это тип объекта, возвр ащаемого методом (н апр имер , Спр авочн икСсылка.<имя>).

Н иже пр иведен ы пр имер ы использован ия объектов встр оен н ого языка для р аботы со спр авочн иками (листин г 12).

Листинг 12. Пр имер ы использован ия объектов

// Глобальный контекст

// Справочники

// Пример: вывести все типы ссылок на элементы справочников, существующие в конфигурации.

Массив = Справочники.ТипВсеСсылки().Типы();

Для Каждого ОчереднойТип из Массив Цикл

Сообщить(ОчереднойТип);

КонецЦикла;

// объект СправочникиМенеджер

// .

// []

// Для Каждого … Из … Цикл … КонецЦикла;

// Пример: создать новую группу справочника "Номенклатура".

НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу();

НоваяГруппа.Наименование = "Моя новая группа";

НоваяГруппа.Записать();

// Пример: получить ссылку на справочник "Номенклатура".

Справочники["Номенклатура"].ПолучитьСсылку();

// объект СправочникМенеджер.

// НайтиПоКоду()

// НайтиПоНаименованию()

// НайтиПоРеквизиту()

// ПустаяСсылка()

// ПолучитьСсылку()

// .

// Пример: проверить, помечен ли на удаление элемент справочника "Номенклатура" с кодом 13.

Если Справочники.Номенклатура.НайтиПоКоду(13).ПометкаУдаления Тогда

Сообщить("Элемент с кодом 13 помечен на удаление");

КонецЕсли;

// Пример: является ли элемент справочника "Номенклатура" с наименованием "Услуги" группой.

Если Справочники.Номенклатура.НайтиПоНаименованию("Услуги", Истина).ЭтоГруппа Тогда

Сообщить("Элемент Услуги является группой");

КонецЕсли;

// Пример: проверить, что для всех элементов задан вид номенклатуры.

ПустаяСсылкаПеречисления = Перечисления.ВидыНоменклатуры.ПустаяСсылка();

Если Не Справочники.Номенклатура.НайтиПоРеквизиту("ВидНоменклатуры", ПустаяСсылкаПеречисления).Пустая() Тогда

Сообщить("Есть элементы, для которых не задан вид номенклатуры");

КонецЕсли;

// Пример: передать пустую ссылку в параметр метода.

Выборка = Справочники.Номенклатура.Выбрать(Справочники.Номенклатура.ПустаяСсылка());

// объект СправочникМенеджер.

// Выбрать()

// ВыбратьИерархически()

// Пример: вывести список элементов, расположенных в корне справочника.

Выборка = Справочники.Номенклатура.Выбрать(Справочники.Номенклатура.ПустаяСсылка());

Пока Выборка.Следующий() Цикл

Если Не Выборка.ЭтоГруппа Тогда

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

КонецЕсли;

КонецЦикла;

// Пример: удалить все элементы иерархического справочника.

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

Выборка.Удалить();

КонецЦикла;

// объект СправочникМенеджер.

// СоздатьГруппу()

// СоздатьЭлемент()

// Пример: создать новый элемент справочника "Сотрудники".

НовыйЭлемент = Справочники.Сотрудники.СоздатьЭлемент();

НовыйЭлемент.Наименование = "Смирнов Андрей Анатольевич";

// Заполнить табличную часть "ТрудоваяДеятельность".

НоваяСтрокаТабличнойЧасти = НовыйЭлемент.ТрудоваяДеятельность.Добавить();

НоваяСтрокаТабличнойЧасти.Организация = "ООО НТЦ";

НоваяСтрокаТабличнойЧасти.НачалоРаботы = Дата(2013,02,01);

НоваяСтрокаТабличнойЧасти.ОкончаниеРаботы = Дата(2013,08,31);

НоваяСтрокаТабличнойЧасти.Должность = "Программист";

НовыйЭлемент.Записать();

// объект СправочникОбъект., СправочникСсылка.

// Владелец

// Родитель

// Ссылка

// Пример: запретить изменение подчиненных элементов, если у

// владельца установлено соответствующее свойство

// "ИзмененияЗапрещены" в модуле формы элемента справочника.

Процедура ПередЗаписью(Отказ)

Если Владелец.ИзмененияЗапрещены Тогда Отказ = Истина;

КонецЕсли;

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

// объект СправочникСсылка.

// ПолучитьОбъект()

// СправочникОбъект.

// Скопировать()

// Пример: изменить наименование элемента справочника.

Элемент = Справочники.Номенклатура.НайтиПоКоду(10).ПолучитьОбъект();

Элемент.Наименование = "Мое новое наименование";

Элемент.Записать();

// Пример: заполнить справочник тестовыми данными.

Элемент = Справочники.Номенклатура.СоздатьЭлемент();

Элемент.Наименование = "Тестовый элемент";

Элемент.Записать();

Для ш = 1 по 1000 Цикл

НовыйЭлемент = Элемент.Скопировать();

НовыйЭлемент.Записать();

КонецЦикла;

// объект СправочникВыборка.

// Ссылка

// Пример: заполнить табличную часть документа

// "ПриходнаяНакладная" всеми элементами из указанной группы справочника "Номенклатура".

Выборка = Справочники.Номенклатура.ВыбратьИерархически(ПолеВвода1);

Пока Выборка.Следующий() Цикл

СсылкаНаНоменклатуру = Выборка.Ссылка;

Если СсылкаНаНоменклатуру.ЭтоГруппа Тогда

Продолжить;

КонецЕсли;

НоваяСтрока = Материалы.Добавить();

НоваяСтрока.Материал = СсылкаНаНоменклатуру;

КонецЦикла;

// объект СправочникВыборка.

// ПолучитьОбъект()

// Пример: пометить все элементы неиерархического справочника на удаление.

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

Выборка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

КонецЦикла;

Спр авочн ик Товар ы: Поставщики и Покупатели. Дополн ительн ые р еквизиты: Пр оизводитель, Цен а покупки, Н ацен ка (в %), Скидка (в %), Цен а пр одажи.(рис.13)

Р ис. 13 Создан ие спр авочн ика товар ы

Цен а пр одажи фор мир уется пр и вводе элемен та спр авочн ика.

Рис. 14 Окн о модуля фор мы элемен та

Р абота с докумен тами. Создаем 3 докумен та: заявка покупателя, пр иход товар а и пр одажа товар а.

Н а следующей схеме изобр ажен о взаимодействие объектов встр оен н ого языка для р аботы с докумен тами (р ис. 15).

Рис. 15. Объекты встр оен н ого языка для р аботы с докумен тами

Н иже пр иведен ы пр имер ы использован ия объектов встр оен н ого языка для р аботы с докумен тами (рис. 16).

// Глобальный контекст

// Документы

// Пример: вывести все типы ссылок на элементы справочников, существующие в конфигурации.

Массив = Документы.ТипВсеСсылки().Типы();

Для Каждого ОчереднойТип из Массив Цикл

Сообщить(ОчереднойТип);

КонецЦикла;

//объект ДокументыМенеджер

// .

// []

// Для Каждого … Из … Цикл … КонецЦикла;

// Пример: получить макет для печати документа "Оказание услуги".

Макет = Документы["ОказаниеУслуги"].ПолучитьМакет("Печать");

// Пример: получить ссылку на каждый из документов, существующих в конфигурации.

Для Каждого ОчереднойДокумент Из Документы Цикл

Ссылка = ОчереднойДокумент.ПолучитьСсылку();

…

КонецЦикла;

// объект ДокументМенеджер.

// НайтиПоНомеру()

// НайтиПоРеквизиту()

// ПустаяСсылка()

// Пример: Проверить, проведен ли документ ПриходнаяНакладная с номером 3.

Если Документы.ПриходнаяНакладная.НайтиПоНомеру(3).Проведен Тогда

Сообщить("Документ с номером 3 проведен");

КонецЕсли;

// Пример: Проверить, что во всех документах ПриходнаяНакладная заполнен реквизит Склад.

ПустаяСсылкаСклада = Справочники.Склады.ПустаяСсылка();

Если Не Документы.ПриходнаяНакладная.НайтиПоРеквизиту("Склад", ПустаяСсылкаСклада).Пустая() Тогда

Сообщить("Есть документы, у которых не заполнен реквизит Склад");

КонецЕсли;

// объект ДокументМенеджер.

// Выбрать()

// Пример: Выбрать все документы ПриходнаяНакладная за текущий месяц.

Выборка = Документы.ПриходнаяНакладная.Выбрать(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));

Пока Выборка.Следующий() Цикл

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

КонецЦикла;

// объект ДокументМенеджер.

// СоздатьДокумент()

// Пример: Создать новый документ ПриходнаяНакладная.

НовыйДокумент = Документы.ПриходнаяНакладная.СоздатьДокумент();

НовыйДокумент.Дата = ТекущаяДата();

НовыйДокумент.Склад = Справочники.Склады.Основной;

// Заполнить табличную часть Материалы

НоваяСтрокаТабличнойЧасти = НовыйДокумент.Материалы.Добавить();

НоваяСтрокаТабличнойЧасти.Материал = Справочники.Номенклатура.НайтиПоКоду(6);

НоваяСтрокаТабличнойЧасти.Количество = 10;

НоваяСтрокаТабличнойЧасти.Цена = 22.5;

НоваяСтрокаТабличнойЧасти.Сумма = 225;

НовыйДокумент.Записать();

// объект ДокументОбъект., объект ДокументСсылка.

// Ссылка

// Пример: в модуле объекта вызвать процедуру проверки заполнения реквизитов документа.

Если Не ПроверитьЗаполнениеРеквизитов(ЭтотОбъект.Ссылка) Тогда

Сообщить("Реквизиты документа не заполнены!");

КонецЕсли;

// объект ДокументСсылка., объект ДокументОбъект.

// ПолучитьОбъект()

// Скопировать()

// Пример: пометить документ на удаление.

НенужныйДокумент = Документы.ОказаниеУслуги.НайтиПоНомеру(13).ПолучитьОбъект();

НенужныйДокумент.УстановитьПометкуУдаления(Истина);

// объект ДокументВыборка.

// Ссылка

// Сформировать список ссылок на все документы "ПриходнаяНакладная" за текущий месяц.

СписокНакладных = Новый СписокЗначений;

Выборка = Документы.ПриходнаяНакладная.Выбрать(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));

Пока Выборка.Следующий() Цикл

СписокНакладных.Добавить(Выборка.Ссылка);

КонецЦикла;

// объект ДокументВыборка.

// ПолучитьОбъект()

// Пример: удалить все документы "ПриходнаяНакладная".

Выборка = Документы.ПриходнаяНакладная.Выбрать();

Пока Выборка.Следующий() Цикл

Выборка.ПолучитьОбъект().Удалить();

КонецЦикла;

Р ис. 16. Пр имер ы использован ия объектов

Докумен т Пр иход товар а включает дополн ительн ые р еквизиты в шапке докумен та: Фир ма, поставщик, Коммен тар ий; в табличн ой части: Н аимен ован ие, количество, Цен а, Сумма. (рис.17) [2 с 33]

Рис. 17 Окн о создан ия докумен та

Поле Н аимен ован ие имеет кн опку выбор а для выбор а товар а из спр авочн ика, это указывается в свойствах:

Рис.18 Окн о свойства Товар ы Н аимен ован ие

Поле Количество должн о иметь кн опку выбор а для вызова калькулятор а:

Рис.19 Окн о свойства Товар ы Количество

Зн ачен ие поля Цен а подставляется из спр авочн ика, и в модуле докумен та пр описываем пр оцедур у:

Пр оцедур а Товар ыН аимен ован иеПр иИзмен ен ии (Элемен т)

Стр ока=Элемен тыФор мы. Товар ы. ТекущиеДан н ые;

Стр ока. Цен а=Стр ока. Н аимен ован ие. Цен аПокупки;

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

Пр и измен ен ии количества измен яется сумма н а это число, пр описываем эту пр оцедур у в модуле докумен та:

Пр оцедур а Товар ыКолВоПр иИзмен ен ии (Элемен т)

Стр ока=Элемен тыФор мы. Товар ы. ТекущиеДан н ые;

Стр ока. Сумма=Стр ока. КолВо*Стр ока. Цен а;

СуммаДок=Товар ы. Итог ("Сумма");

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

Под табличн ой частью выводится итоговая сумма по всем стр окам.

Рис.20 Окн о докумен та Пр иход товар а

В модуле также пр описываем пр оцедур у пр и откр ытии:

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

Фир ма=Кон стан ты. Н аимен ован иеФир мы. Получить ();

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

Фор мир уется печатн ая фор ма докумен та виде в виде пр иходн ой н акладн ой:

Рис.21 Окн о печатн ой фор мы докумен та

Пр оцедур у пр описываем в модуле:

Пр оцедур а Печать1 (Элемен т)

ТабДок = Н овый Табличн ыйДокумен т;

Макет = Докумен ты. Пр иходТовар а. ПолучитьМакет ("Печать");

// Заголовок

Область = Макет. ПолучитьОбласть ("Заголовок");

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

// Шапка

Шапка = Макет. ПолучитьОбласть ("Шапка");

Шапка. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Шапка);

// Товары

Область = Макет. ПолучитьОбласть ("Товар ыШапка");

ТабДок. Вывести (Область);

КолВо = 0;

ОбластьТовар ы = Макет. ПолучитьОбласть ("Товар ы");

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

ОбластьТовар ы. Пар аметр ы. Заполн ить (ТекСтр окаТовар ы);

КолВо = КолВо + 1;

ТабДок. Вывести (ОбластьТовар ы);

КонецЦикла;

// вывод области "Всего"

Область = Макет. ПолучитьОбласть ("Всего");

Область. Пар аметр ы. ИтогСумма = Товар ы. Итог ("Сумма");

СуммаДок = Область. Пар аметр ы. ИтогСумма;

СуммаН ДС = СуммаДок - (СуммаДок/1.18);

Область. Пар аметр ы. СуммаН ДС = СуммаН ДС;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

// вывод области "Сумма"

Область = Макет. ПолучитьОбласть ("Сумма");

Область. Пар аметр ы. СуммаДокумен та = ЧислоПр описью (СуммаДок,, "Р убль, р убля, р ублей, м, копейка, копейки, копеек, ж");

Область. Пар аметр ы. КолВо = КолВо;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

ТабДок. Отобр ажатьСетку = Ложь;

ТабДок. Защита = Ложь;

ТабДок. ТолькоПр осмотр = Ложь;

ТабДок. Отобр ажатьЗаголовки = Ложь;

ТабДок. Показать ();

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

Докумен т Заявка Покупателя включает дополн ительн ые р еквизиты в шапке докумен та: Фир ма, Покупатель, Коммен тар ий; в табличн ой части: Н аимен ован ие, Количество, Цен а, Сумма. Поле Н аимен ован ие должн о иметь кн опку выбор а для выбор а товар а из спр авочн ика, поле Количество должн о иметь кн опку выбор а для вызова калькулятор а. Зн ачен ие поля Цен а должн о подставляться из спр авочн ика. Сумма в стр оке должн а р ассчитываться автоматически. Под табличн ой частью должн а выводиться итоговая сумма по всем стр окам. Должн а фор мир оваться печатн ая фор ма докумен та в виде Счета.

Рис. 22 Окн о печатн ой фор мы докумен та

Пр оцедур а Печатъ (Элемен т)

ТабДок = Н овый Табличн ыйДокумен т;

Макет = Докумен ты. ЗаявкиПокупателя. ПолучитьМакет ("Печать");

// Заголовок

Область = Макет. ПолучитьОбласть ("Заголовок");

ТабДок. Вывести (Область);

// Шапка

Шапка = Макет. ПолучитьОбласть ("Шапка");

Шапка. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Шапка);

// Товары

Область = Макет. ПолучитьОбласть ("Товар ыШапка");

ТабДок. Вывести (Область);

КолВо = 0;

ОбластьТовар ы = Макет. ПолучитьОбласть ("Товар ы");

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

ОбластьТовар ы. Пар аметр ы. Заполн ить (ТекСтр окаТовар ы);

КолВо = КолВо + 1;

ТабДок. Вывести (ОбластьТовар ы);

КонецЦикла;

// вывод области "Всего"

Область = Макет. ПолучитьОбласть ("Всего");

Область. Пар аметр ы. ИтогСумма = Товар ы. Итог ("Сумма");

СуммаДок = Область. Пар аметр ы. ИтогСумма;

СуммаН ДС = СуммаДок - (СуммаДок/1.18);

Область. Пар аметр ы. СуммаН ДС = СуммаН ДС;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

// вывод области "Сумма"

Область = Макет. ПолучитьОбласть ("Сумма");

Область. Пар аметр ы. КолВо = КолВо;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

ТабДок. Отобр ажатьСетку = Ложь;

ТабДок. Защита = Ложь;

ТабДок. ТолькоПр осмотр = Ложь;

ТабДок. Отобр ажатьЗаголовки = Ложь;

ТабДок. Показать ();

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

Докумен т Пр одажа товар а включает дополн ительн ые р еквизиты в шапке докумен та: Фир ма, Покупатель, Коммен тар ий; в табличн ой части: Н аимен ован ие, Количество, Цен а, Сумма. Поле Н аимен ован ие должн о иметь кн опку выбор а для выбор а товар а из спр авочн ика, поле Количество должн о иметь кн опку выбор а для вызова калькулятор а. Зн ачен ие поля Цен а должн о подставляться из спр авочн ика. Сумма в стр оке должн а р ассчитываться автоматически. Под табличн ой частью должн а выводиться итоговая сумма по всем стр окам. Должн а фор мир оваться печатн ая фор ма докумен та в виде р асходн ой н акладн ой. В печатн ых фор мах всех докумен тов р ассчитывается и указывается сумма Н ДС, общее количество н аимен ован ий товар а и сумма пр описью. Докумен ты должн ы иметь возможн ость записи без пр оведен ия и с пр оведен ием.

Текст пр оцедур пр описываем в модуле докумен та:

Пр оцедур а Товар ыН аимен ован иеПр иИзмен ен ии (Элемен т)

Стр ока=Элемен тыФор мы. Товар ы. ТекущиеДан н ые;

Стр ока. Цен а=Стр ока. Н аимен ован ие. Цен аПокупки;

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

Пр оцедур а Товар ыКолВоПр иИзмен ен ии (Элемен т)

Стр ока=Элемен тыФор мы. Товар ы. ТекущиеДан н ые;

Стр ока. Сумма=Стр ока. КолВо*Стр ока. Цен а;

СуммаДок=Товар ы. Итог ("Сумма");

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

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

Фир ма=Кон стан ты. Н аимен ован иеФир мы. Получить ();

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

Пр оцедур а Печать (Элемен т)

ТабДок = Н овый Табличн ыйДокумен т;

Макет = Докумен ты. Пр одажаТовар а. ПолучитьМакет ("Печать");

// Заголовок

Область = Макет. ПолучитьОбласть ("Заголовок");

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

// Шапка

Шапка = Макет. ПолучитьОбласть ("Шапка");

Шапка. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Шапка);

// Товары

Область = Макет. ПолучитьОбласть ("Товар ыШапка");

ТабДок. Вывести (Область);

КолВо = 0;

ОбластьТовар ы = Макет. ПолучитьОбласть ("Товар ы");

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

ОбластьТовар ы. Пар аметр ы. Заполн ить (ТекСтр окаТовар ы);

КолВо = КолВо + 1;

ТабДок. Вывести (ОбластьТовар ы);

КонецЦикла;

// вывод области "Всего"

Область = Макет. ПолучитьОбласть ("Всего");

Область. Пар аметр ы. ИтогСумма = Товар ы. Итог ("Сумма");

СуммаДок = Область. Пар аметр ы. ИтогСумма;

СуммаН ДС = СуммаДок - (СуммаДок/1.18);

Область. Пар аметр ы. СуммаН ДС = СуммаН ДС;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

// вывод области "Сумма"

Область = Макет. ПолучитьОбласть ("Сумма");

Область. Пар аметр ы. КолВо = КолВо;

Область. Пар аметр ы. Заполн ить (ЭтотОбъект);

ТабДок. Вывести (Область);

ТабДок. Отобр ажатьСетку = Ложь;

ТабДок. Защита = Ложь;

ТабДок. ТолькоПр осмотр = Ложь;

ТабДок. Отобр ажатьЗаголовки = Ложь;

ТабДок. Показать ();

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

Печатн ая фор ма в виде р асходн ой н акладн ой.

Рис. 23 Окн о печатн ой фор мы докумен та

Докумен т Пр одажа товар а фор мир уется н а осн ован ии докумен та Заявка покупателя. Пр оцедур а пр описывается в модуле объекта докумен та Пр одажа и стр оится с помощью кон стр уктор а:

Пр оцедур а Обр аботкаЗаполн ен ия (Дан н ыеЗаполн ен ия, Стан дар тн аяОбр аботка)

Если ТипЗн ч (Дан н ыеЗаполн ен ия) = Тип ("Докумен тСсылка. ЗаявкиПокупателя") Тогда

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

Покупатель = Дан н ыеЗаполн ен ия. Покупатель;

СуммаДок = Дан н ыеЗаполн ен ия. СуммаДок;

Фир ма = Дан н ыеЗаполн ен ия. Фир ма;

Для Каждого ТекСтр окаТовар ы Из Дан н ыеЗаполн ен ия. Товар ы Цикл

Н оваяСтр ока = Товар ы. Добавить ();

Н оваяСтр ока. КолВо = ТекСтр окаТовар ы. КолВо;

Н оваяСтр ока. Н аимен ован ие = ТекСтр окаТовар ы. Н аимен ован ие;

Н оваяСтр ока. Сумма = ТекСтр окаТовар ы. Сумма;

Н оваяСтр ока. Цен а = ТекСтр окаТовар ы. Цен а; Кон ецЦикла;

КонецЕсли;

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

Для того чтобы докумен т имел возможн ость записи с пр оведен ием, н ам н еобходимо создать р егистр н акоплен ия ОстаткиТовар а, котор ый имеет измер ен ия Товар ы и Кон тр аген т, р есур сы - сумма и количество. Пр оцедур а пр оведен ия описывается в модуле объекта каждого из докумен тов.

Докумен т Пр иходТовар а:

Пр оцедур а Обр аботкаПр оведен ия (Отказ, Р ежим)

// р егистр ОстаткиТовар а Пр иход

Движен ия. ОстаткиТовар а. Записывать = Истин а;

Движен ия. ОстаткиТовар а. Очистить ();

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

Движен ие = Движен ия. ОстаткиТовар а. Добавить ();

Движен ие. ВидДвижен ия = ВидДвижен ияН акоплен ия. Пр иход;

Движен ие. Пер иод = Дата;

Движен ие. Товар ы = ТекСтр окаТовар ы. Н аимен ован ие;

Движен ие. Кон тр аген т = Поставщик;

Движен ие. Сумма = ТекСтр окаТовар ы. Сумма;

Движен ие. КолВо = ТекСтр окаТовар ы. КолВо;

КонецЦикла;

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

Докумен т ЗаявкаПокупателя:

Пр оцедур а Обр аботкаПр оведен ия (Отказ, Р ежим)

// р егистр ОстаткиТовар а Пр иход

Движен ия. ОстаткиТовар а. Записывать = Истин а;

Движен ия. ОстаткиТовар а. Очистить ();

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

Движен ие = Движен ия. ОстаткиТовар а. Добавить ();

Движен ие. ВидДвижен ия = ВидДвижен ияН акоплен ия. Пр иход;

Движен ие. Пер иод = Дата;

Движен ие. Кон тр аген т = Покупатель;

Движен ие. Товар ы = ТекСтр окаТовар ы. Н аимен ован ие;

Движен ие. Сумма = ТекСтр окаТовар ы. Сумма;

Движен ие. КолВо = ТекСтр окаТовар ы. КолВо;

КонецЦикла;

Докумен т Пр одажаТовар а:

Пр оцедур а Обр аботкаПр оведен ия (Отказ, Р ежим)

// р егистр ОстаткиТовар а Р асход

Движен ия. ОстаткиТовар а. Записывать = Истин а;

Движен ия. ОстаткиТовар а. Очистить ();

Для Каждого ТекСтр окаТовар ы Из Товар ы Цикл

Движен ие = Движен ия. ОстаткиТовар а. Добавить ();

Движен ие. ВидДвижен ия = ВидДвижен ияН акоплен ия. Р асход;

Движен ие. Пер иод = Дата;

Движен ие. Товар ы = ТекСтр окаТовар ы. Н аимен ован ие;

Движен ие. Кон тр аген т = Покупатель;

Движен ие. Сумма = ТекСтр окаТовар ы. Сумма;

Движен ие. КолВо = ТекСтр окаТовар ы. КолВо;

КонецЦикла;

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

Р абота с жур н алами докумен тов. Создаем 2 жур н ала: Докумен ты по закупкам и Докумен ты по пр одажам. Жур н алы должн ы включать дополн ительн ые р еквизиты Кон тр аген т и Сумма по докумен ту. [3 с 118]

Р абота с отчетами. Создаем 4 отчета: Пр айс-лист, Остатки товар ов н а складе, Отчет по закупкам и Отчет по пр одажам. Отчёт Остатки товар ов н а складе должен иметь возможн ость детализации по отдельн ым товар ам. Отчёты по закупкам и пр одажам должн ы фор мир оваться за пер иод с детализацией по кон тр аген там. Существует н еобходимость осуществлен ия сложн ой обр аботки дан н ых, котор ую очен ь сложн о получить, н епоср едствен н о р аботая со спр авочн иками, докумен тами, р егистр ами и жур н алами, для выполн ен ия такой обр аботки существует механ изм запр осов. Запр осы мы используем пр и создан ии отчета Остатки, а остальн ые создаем с помощью схемы компон овки дан н ых.

Рис. 24 Окн о отчета Пр айс - лист

Рис. 25 Окн о отчета Отчет по закупкам

Рис. 26 Окн о отчета Отчет по пр одажам

Отчет Остатки товар ов н а складе создали с помощью запр оса, пр оцедур у пр описываем в модуле фор мы отчета.

Пр оцедур а Кн опкаСфор мир оватьН ажатие (Кн опка)

ТабДок = Н овый Табличн ыйДокумен т;

Макет = ЭтотОбъект. ПолучитьМакет ("Макет");

ОбластьМакета = Макет. ПолучитьОбласть ("Шапка");

ОбластьМакета. Пар аметр ы. ТекущаяДата = ТекущаяДата ();

ТабДок. Вывести (ОбластьМакета);

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

Если Товар ы. Н аимен ован ие <> "" Тогда

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

|Выбрать

| ОстаткиТовар аОстатки. Товар ы,

| ОстаткиТовар аОстатки. Товар ы. Н аимен ован ие КАК Н аимен ован ие,

| ОстаткиТовар аОстатки. КолВоОстаток КАК Количество

| Из

| Р егистр Н акоплен ия. ОстаткиТовар а. Остатки КАК ОстаткиТовар аОстатки

| Где

| ОстаткиТовар аОстатки. Товар ы В (&Товар ы)

|";

Иначе

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

|ВЫБРАТЬ

| ОстаткиТовар аОстатки. Товар ы,

| ОстаткиТовар аОстатки. Товар ы. Н аимен ован ие КАК Н аимен ован ие,

|ОстаткиТовар аОстатки. КолВоОстаток КАК Количество

| Из

| Р егистр Н акоплен ия. ОстаткиТовар а. Остатки КАК ОстаткиТовар аОстатки

|";

КонецЕсли;

Запр ос. Устан овитьПар аметр ("Товар ы", Товар ы);

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

Выбор ка = Р езультат. Выбр ать ();

Пока Выбор ка. Следующий () Цикл

ОбластьМакета = Макет. ПолучитьОбласть ("Товар ");

ОбластьМакета. Пар аметр ы. Товар = Выбор ка. Н аимен ован ие;

ОбластьМакета. Пар аметр ы. Количество = Выбор ка. Количество;

ТабДок. Вывести (ОбластьМакета);

КонецЦикла;

ТабДок. Показать ();

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

Р ис. 27 Окн о отчета Остатки

Создан ие пользователей.

В системе 1С: Пр едпр иятие 8.3 для автор изации используется список пользователей, для р азгр ан ичен ия полн омочий мы создаем в объекте р оли 2 пользователей и создаем 2 ин тер фейса, устан авливаем в каждом н абор пр ав, для р азр ешен ия доступа только к н еобходимым объектам.

Для р аботы с кон фигур ацией мы создали двух пользователей. Пер вый пользователь - Иван ов (Админ истр атор ) с полн ыми пр авами и ин тер фейсом, а втор ой - Петр ов (мен еджер ) с огр ан ичен н ыми пр авами (н ельзя р едактир овать кон стан ты) и с огр ан ичен н ым ин тер фейсом (н ет пун кта Опер ации в главн ом мен ю). [4 с 124]

Глава 2. Разработка управляемого приложения

Измен яем свойство кон фигур ации Осн овн ой р ежим запуска н а "Упр авляемое пр иложен ие". Создаем подсистемы Закупки и Пр одажи, и опр еделяем состав объектов каждой подсистемы.

Рис. 28 Окн о подсистемы

Для каждой подсистемы сфор мир овываем пан ель н авигации, действий Создать и Отчеты.

Рис. 29 Окн о р абочего стола

Рис. 30 Окн о подсистемы Закупки

Рис. 31 Окн о подсистемы Пр одажи

Сфор мир уем отчет по закупкам в упр авляемом пр иложен ии.

Рис. 32 Окн о отчета

Глава 3. Р еализация бизнес - процесса "Продажа товара"

Р ежим запуска "Обычн ое пр иложен ие". Создаем спр авочн ики Сотр удн ики (дан н ые: Иван ов, Петр ов, Сидор ов), Подр азделен ия (дан н ые: отдел пр одаж, склад), Р оли Исполн ителей (дан н ые: кладовщик, пр одавец, р уководитель отдела). В фор ме докумен та Заявка покупателя создаем р еквизит ОплатаСчета.

Создаем р егистр сведен ий Р егистр Адр есации.

Рис. 33 Окн о р егистр а

Опр еделяем пар аметр сеан са Текущий исполн итель.

Рис. 34 Окн о свойства

Создаем объект кон фигур ации Задача.

Рис. 35 Окн о свойства задачи

В модуле объекта опр еделяем обр аботчики событий.

Пр оцедур а Пер едВыполн ен ием (Отказ)

Если ДатаВыполн ен ия = '00010101' Тогда

ДатаВыполн ен ия = ТекущаяДата ();

Кон ецЕсли; Если Исполн итель. Пустая () Тогда

Исполн итель = Пар аметр ыСеан са. ТекущийИсполн итель;

КонецЕсли;

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

Пр оцедур а Пр иВыполн ен ии ()

Сообщить ("Задача выполн ен а: "+""""+Н аимен ован ие+"""");

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

Пр оцедур а Пр иЗаписи ()

Если ЭтоН овый () Тогда

Сообщить ("Сфор мир ован а задача: "+""""+Н аимен ован ие+"""");

Сообщить ("Исполн итель"+Исполн итель);

Сообщить ("Подр азделен ие"+подр азделен ие);

КонецЕсли;

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

Создаем объект кон фигур ации бизн ес - пр оцесс "Пр одажа товар а".

Рис. 36 Окн о свойства бизн ес - пр оцесса

Создаем кар ту мар шр ута.

Рис. 37 Окн о кар ты мар шр ута

Пр оцедур ы описываем в модуле объекта:

Пр оцедур а Стар тПер едСтар том (ТочкаМар шр утаБизн есПр оцесса, Отказ)

Н ужн оЗаписать = Ложь;

ЕСЛИ Счет. Пустая () ТОГДА

СчетОбъект = Докумен ты. ЗаявкиПокупателя. СоздатьДокумен т ();

СчетОбъект. Дата = ТекущаяДата ();

СчетОбъект. Записать ();

Счет = СчетОбъект. Ссылка;

Н ужн оЗаписать = Истин а;

КОНЕЦЕСЛИ;

ЕСЛИ Р асходн аяН акладн ая. Пустая () ТОГДА

Р асходн аяН акладн аяОбъект = Докумен ты. Пр одажаТовар а. СоздатьДокумен т ();

Р асходн аяН акладн аяОбъект. Дата = ТекущаяДата ();

Р асходн аяН акладн аяОбъект. Записать ();

Р асходн аяН акладн ая = Р асходн аяН акладн аяОбъект. Ссылка;

Н ужн оЗаписать = Истин а;

КОНЕЦЕСЛИ;

ЕСЛИ Н ужн оЗаписать ТОГДА

Записать ();

КОН ЕЦЕСЛИ;

СООБЩИТЬ ("Стар т бизн ес-пр оцесса: " + """" + ЭтотОбъект. МетаДан н ые (). Син он им+"""");

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

Пр оцедур а СчетОплачен Пр овер каУсловия (ТочкаМар шр утаБизн есПр оцесса, Р езультат)

Р езультат = Счет. ОплатаСчета;

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

Пр оцедур а ВыпискаСчетаОбр аботкаИн тер активн ойАктивации (ТочкаМар шр утаБизн есПр оцесса, Задача, Стан дар тн аяОбр аботка)

Счет. ПолучитьФор му ("Фор маДокумен та"). Откр ыть ();

Стан дар тн аяОбр аботка=Ложь;

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

Пр оцедур а ВыпискаСчетаПер едИн тер активн ымВыполн ен ием (ТочкаМар шр утаБизн есПр оцесса, Задача, Отказ)

Если Счет. Товар ы. Количество () =0 тогда

Отказ=Истин а;

КонецЕсли;

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

Пр оцедур а ВыпискаН акладн ойОбр аботкаИн тер активн ойАктивации (ТочкаМар шр утаБизн есПр оцесса, Задача, Стан дар тн аяОбр аботка)

Р асходн аяН акладн ая. ПолучитьФор му ("Фор маДокумен та"). Откр ыть ();

Стан дар тн аяОбр аботка=Ложь;

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

Пр оцедур а ВыпискаН акладн ойПер едИн тер активн ымВыполн ен ием (ТочкаМар шр утаБизн есПр оцесса, Задача, Отказ)

Если Р асходн аяН акладн ая. Товар ы. Количество () =0 тогда

Отказ=Истин а;

КонецЕсли;

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

Пр оцедур а Отгр узкаСоСкладаОбр аботкаИн тер активн ойАктивации (ТочкаМар шр утаБизн есПр оцесса, Задача, Стан дар тн аяОбр аботка)

Р асходн аяН акладн ая. ПолучитьФор му ("Фор маДокумен та"). Откр ыть ();

Стан дар тн аяОбр аботка=Ложь;

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

Пр оцедур а Н ор мальн оеЗавер шен иеПр иЗавер шен ии (ТочкаМар шр утаБизн есПр оцесса, Отказ)

Сообщить ("Завер шен ие бизн ес-пр оцесса: "+""""+ЭтотОбъект. Метадан н ые (). Син он им+"""");

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

Пр оцедур а Н етПр иЗавер шен ии (ТочкаМар шр утаБизн есПр оцесса, Отказ)

Сообщить ("Доср очн ое завер шен ие бизн ес-пр оцесса: "+""""+ЭтотОбъект. Метадан н ые (). Син он им+"""");

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

В модуле обычн ого пр иложен ия опр еделяем пр оцедур ы:

Пр оцедур а Пр иН ачалеР аботыСистемы ()

Пар аметр ыСеан са. ТекущийИсполн итель=Спр авочн ики. Сотр удн ики. Н айтиПоКоду (ИмяПользователя ());

ПодключитьОбр аботчикОповещен ия ("Обр аботчикОповещен ия");

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

Пр оцедур а Обр аботчикОповещен ия (ИмяСобытия, Пар аметр , Источн ик) Экспор т

Если ИмяСобытия="ЗаписьСчета" Тогда

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

Запр ос. Устан овитьПар аметр ("Пар ам", Источн ик. Ссылка);

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

|Задача. Ссылка

|Из

|Бизн есПр оцесс. Пр одажаТовар а КАК Пр одажаТовар а ЛЕВОЕ СОЕДИН ЕН ИЕ Задача. Задача. ЗадачиПоИсполн ителю КАК Задача

|ПО Пр одажаТовар а. Ссылка=Задача. Бизн есПр оцесс

|ГДЕ (Задача. Выполн ен а=Ложь) и (Пр одажаТовар а. Счет=&Пар ам)";

Выбор ка=Запр ос. Выполн ить (). Выбр ать ();

Пока Выбор ка. Следующий () Цикл

ТекущаяЗадача=Выбор ка. Ссылка. ПолучитьОбъект ();

Если ТекущаяЗадача. ТочкаМар шр ута=Бизн есПр оцессы. Пр одажаТовар а. ТочкиМар шр ута. ВыпискаСчета Тогда

Фор маСчета=ТекущаяЗадача. Бизн есПр оцесс. Счет. ПолучитьФор му ();

Если Фор маСчета. Откр ыта () =Истин а Тогда

Если Вопр ос ("Пометить задачу"""+ТекущаяЗадача. Н аимен ован ие+"""как выполн ен н ую?",Р ежимДиалогаВопр ос. ДаН ет) =КодВозвр атаДиалога. Да Тогда

ТекущаяЗадача. Выполн итьЗадачу ();

КонецЕсли;

Кон ецЕсли;

КонецЕсли;

Кон ецЦикла;

КонецЕсли;

Если ИмяСобытия="Списан ие" Тогда

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

Запр ос. Устан овитьПар аметр ("Пар ам", Источн ик. Ссылка);

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

|Задача. Ссылка

|Из

|ПО Пр одажаТовар а. Ссылка=Задача. Бизн есПр оцесс

|ГДЕ (Задача. Выполн ен а=Ложь) и (Пр одажаТовар а. Р асходн аяН акладн ая=&Пар ам)";

Выбор ка=Запр ос. Выполн ить (). Выбр ать ();

Пока Выбор ка. Следующий () Цикл

ТекущаяЗадача=Выбор ка. Ссылка. ПолучитьОбъект ();

Если ТекущаяЗадача. ТочкаМар шр ута=Бизн есПр оцессы. Пр одажаТовар а. ТочкиМар шр ута. ВыпискаН акладн ой Тогда

Фор маДокумен та=ТекущаяЗадача. Бизн есПр оцесс. Р асходн аяН акладн ая. ПолучитьФор му ();

Если Фор маДокумен та. Откр ыта () =Истин а Тогда

ТекущаяЗадача. Выполн итьЗадачу ();

КонецЕсли;

Кон ецЕсли;

КонецЕсли;

Кон ецЦикла;

КонецЕсли;

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

В модуле фор мы докумен та Заявка покупателя и Пр одажа товар а пр описываем пр оцедур у Пр иЗаписи для оповещен ия:

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

Оповестить ("ЗаписьСчета",, ЭтотОбъект);

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

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

Оповестить ("Списан ие",, ЭтотОбъект);

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

Р ис. 38 Окн о выполн ен н ого пр оцесса [3 с 66]

Глава 4. Анализ данных в системе 1С 8.3

Вводим в базу н е 15 н овых докумен тов, по р азн ому сочетая гр уппу товар ов. Создаем отчет Статистика, выполн яющий ан ализ дан н ых типа "Общая статистика". В модуле отчета пр описываем пр оцедур у:

Пр оцедур а Кн опкаСфор мир оватьН ажатие (Кн опка)

Ан ализ = Н овый Ан ализДан н ых;

Ан ализ. ТипАн ализа = Тип ("Ан ализДан н ыхОбщаяСтатистика");

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

Запр ос. Текст = "Выбр ать

|ОстаткиТовар а. Товар ы,

|ОстаткиТовар а. КолВо

|Из

|Р егистр Н акоплен ия. ОстаткиТовар а КАК ОстаткиТовар а";

Ан ализ. Источн икДан н ых = Запр ос. Выполн ить ();

Р езультатАн ализа = Ан ализ. Выполн ить ();

Постр оитель = Н овый Постр оительОтчетаАн ализаДан н ых ();

Постр оитель. Макет = Н еопр еделен о;

Постр оитель. ТипАн ализа = Тип ("Ан ализДан н ыхОбщаяСтатистика");

ТабДок = Н овый Табличн ыйДокумен т;

Постр оитель. Вывести (Р езультатАн ализа, ТабДок);

ТабДок. Показать ();

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

Р ис. 39 Окн о отчета

Создаем отчет ПоискАссоциаций, выполн яющий ан ализ дан н ых типа "Поиск ассоциаций". Пр оцедур у пр описываем в модуле:

Пр оцедур а Кн опкаСфор мир оватьН ажатие (Кн опка)

Ан ализ = Н овый Ан ализДан н ых;

Ан ализ. ТипАн ализа =Тип ("Ан ализДан н ыхПоискАссоциаций");

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

Запр ос. Текст = "Выбр ать

|ОстаткиТовар а. Р егистр атор ,

| ОстаткиТовар а. Товар ы

|Из

|Р егистр Н акоплен ия. ОстаткиТовар а КАК ОстаткиТовар а";

Ан ализ. Источн икДан н ых = Запр ос. Выполн ить ();

Ан ализ. Пар аметр ы. ТипОтсечен ияПр авил. Зн ачен ие = ТипОтсечен ияПр авилАссоциации. Избыточн ые;

Р езультатАн ализа = Ан ализ. Выполн ить ();

Постр оитель = Н овый Постр оительОтчетаАн ализаДан н ых ();

Постр оитель. Макет = Н еопр еделен о;

Постр оитель. ТипАн ализа = Тип ("Ан ализДан н ыхПоискАссоциаций");

ТабДок = Н овый Табличн ыйДокумен т;

Постр оитель. Вывести (Р езультатАн ализа, ТабДок);

ТабДок. Показать ();

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

Р ис. 40 Окн о отчета

Создаем отчет ПоискПоследовательн остей, выполн яющий ан ализ дан н ых типа "Поиск последовательн остей". Пр оцедур у пр описываем в модуле:

Пр оцедур а Кн опкаСфор мир оватьН ажатие (Кн опка)

Ан ализ = Н овый Ан ализДан н ых;

Ан ализ. ТипАн ализа =Тип ("Ан ализДан н ыхПоискПоследовательн остей");

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

Запр ос. Текст = "Выбр ать

|ОстаткиТовар а. Кон тр аген т,

|ОстаткиТовар а. Товар ы,

|ОстаткиТовар а. Пер иод

|Из

|Р егистр Н акоплен ия. ОстаткиТовар а КАК ОстаткиТовар а";

Ан ализ. Источн икДан н ых = Запр ос. Выполн ить ();

Ан ализ. Н астр ойкаКолон ок. Пер иод. ТипКолон ки = ТипКолон киАн ализаДан н ыхПоискПоследовательн остей. Вр емя;

Р езультатАн ализа = Ан ализ. Выполн ить ();

Постр оитель = Н овый Постр оительОтчетаАн ализаДан н ых ();

Постр оитель. Макет = Н еопр еделен о;

Постр оитель. ТипАн ализа = Тип ("Ан ализДан н ыхПоискПоследовательн остей");

ТабДок = Н овый Табличн ыйДокумен т;

Постр оитель. Вывести (Р езультатАн ализа, ТабДок);

ТабДок. Показать ();

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

Р ис. 41 Окн о отчета [1 с 122]

ЗАКЛЮЧЕНИЕ

Система 1С: Пр едпр иятие - ун ивер сальн ая система, вместе с кон фигур ацией пр едставляет готовое к использован ию пр огр аммн ое обеспечен ие для автоматизации деятельн ости пр едпр иятия.

В Ходе кур совой р аботы мы р аботали с зн акомыми для н ас объектами, это спр авочн ики, докумен ты, кон стан ты, р егистр ы н акоплен ия, а также позн акомились с н овыми - бизн ес - пр оцессами, задачами, р егистр сведен ий. Позн акомились с р аботой пр огр аммы н е только в р ежиме запуска "Обычн ое пр иложен ие", н о и в р ежиме "Упр авляемого пр иложен ия", котор ый отличается большим удобством использован ия ин тер фейса.

В отличие от 1С 7.7 восьмая вер сия н амн ого фун кцион альн ее и пр още, удобн ее как для пользователя, так и для р азр аботчика.

СПИСОК ИСПОЛЬЗУЕМОЕЙ ЛИТЕРАТУР Ы

Чистов П.А. Сбор н ик задач по р азр аботке н а платфор ме 1С:Пр едпр иятие (1С:Enterprise)/ М.: ООО "1С-Паблишин г", 2020. - 137 с.
Хр усталева Е. Ю. Электр он н ый ан алог издан ия "Р асшир ен ия кон фигур аций. Адаптация пр икладн ых р ешен ий с сохр ан ен ием поддер жки в облаках и н а земле. Р азр аботка в системе 1С:Пр едпр иятие 8.3. Издан ие 2/М.: ООО "1С-Паблишин г", 2018. – 287 с.
Р адчен ко М.Г. 1С:Пр огр аммир ован ие для н ачин ающих. Детям и р одителям, мен еджер ам и р уководителям. Р азр аботка в системе "1С:Пр едпр иятие 8.3"/М.: ООО "1С-Паблишин г", 2017. – 780 с.
В.В. Р ыбалка Hello, 1C! Пр имер быстр ой р азр аботки пр иложен ий н а платфор ме 1С:Пр едпр иятие 8.3. Вер сия 3/М.: ООО "1С-Паблишин г", 2014.- 417 с.