Реализация конфигурации "1С: Предприятие"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



?вание систем управления. Учебное пособие для вузов [Текст] / Н. И. Архипова. - М.: Издательство ПРИОР, 2002 г. - 214 с.

. Харитонов, С.А. Секреты профессиональной работы с 1С:Бухгалтерией 8. УЧЕТ ОСНОВНЫХ СРЕДСТВ [Текст] / С.А. Харитонов, Д.В. Чистов, М.: Инфра-М, 2003 г. - 280 с

.Михайлов, А. 1С: Предприятие 8.2 системное программирование [Текст] / А. Михайлов, М: OOO 1С-Паблишинг 2009 г. - 218 с.

.Дубянский, В. 1С: Предприятие. Конфигурирование и администрирование для начинающих [Текст] / В. Дубянский, СПб: БХВ-Петербург, 2010 г. - 170 с.

.Радченко, М.Г. - Практическое пособие разработчика [Текст] / М.Г. Радченко, М: OOO 1С-Паблишинг 2009 г. - 169 с.

.Михайлов, С. Е. 1С программирование как дважды два [Текст] / С. Е. Михайлов, М.: Издательство ПРИОР, 2009 г. - 214 с.

. Харитонов, С.А. - Введение в конфигурирование в системе 1С - Предприятие 8.2. Основные объекты [Текст]/ , С.А. Харитонов СПб.: Питер, 2010. - 89 с.

.Самарина, Е.В. - Описание языка 1С8 в виде CHM. Удобный справочник [Текст]/ Самарина, Е.В. М., 2010 г. - 567 с.

.Козырев, Д.В. - Профессиональная разработка в системе 1СПредприятие 8 [Текст] / Д.В. Козырев, М. 1С-Учебный центр №3, 2009 г. - 103 с.

. 1С:Предприятие [Электронный ресурс] // Официальный сайт 1С. - Режим доступа к электрон. дан.:

. Учебник по 1С, база знаний, форум [Электронный ресурс] // Режим доступа к электрон. дан.:

. Варианты работы системы 1С:Предприятие 8 [Электронный ресурс] // Режим доступа к электрон. дан.:

. Системные требования 1С:Предприятия 8 [Электронный ресурс] // Режим доступа к электрон. дан.:

. Рекомендации по выбору оборудования для работы с 1С:Предприятием 8 [Электронный ресурс] // Режим доступа к электрон. дан.:

Приложение А

ЛИСТИНГ ПРОГРАММЫ

автоматизация подсистема программный интерфейс

РеализацияТоваровУслуг

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

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");

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

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

СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");

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

ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;

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

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

СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Получатель = Шапка.Получатель;

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

ЕстьСкидки = Ложь;

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

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

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

НомерСтроки = 0;

Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл

НомерСтроки = НомерСтроки + 1;

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

ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;

ОбластьСтроки.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);

Если Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда

ОбластьСтроки.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);

КонецЕсли;

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

КонецЦикла;

Если ТаблицаУслуги <> Неопределено Тогда

Сумма = ТаблицаУслуги.Итог("Сумма");

Иначе

Сумма = 0;

СуммаНДС = 0;

КонецЕсли;

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

ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

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

Если Шапка.УчитыватьНДС Тогда

ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС1");

Если СуммаНДС <> 0 Тогда

Иначе

ОбластьМакета.Параметры.ВсегоНДС = "-";

ОбластьМакета.Параметры.НДС = "Без налога (НДС)";

КонецЕсли;

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

КонецЕсли;

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

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

Заявка

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

Попытка

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

ЭлементыФормы.Ответственный.Значение = Справочники.Сотрудники.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя).Ссылка;

//ЭлементыФормы.Организация.Значение = Справочники.Организации.НайтиПоНаименованию("").Ссылка;

КонецЕсли;

Исключение

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

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

ЗаказПоставщику

Перем мДеревоМакетов;

Перем Цена;

Перем Сумма;

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

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);// Вставить содержимое обработчика.

Всего = Строка(ЭтотОбъект.Товары.Итог("Сумм