Реализация конфигурации "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");
ТабДокумент.Вывести(ОбластьМакета);
Заявка
Процедура ПриОткрытии()
Попытка
Если ЭтоНовый() Тогда
ЭлементыФормы.Ответственный.Значение = Справочники.Сотрудники.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя).Ссылка;
//ЭлементыФормы.Организация.Значение = Справочники.Организации.НайтиПоНаименованию("").Ссылка;
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
ЗаказПоставщику
Перем мДеревоМакетов;
Перем Цена;
Перем Сумма;
Процедура ТоварыПриИзменении(Элемент)
ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);// Вставить содержимое обработчика.
Всего = Строка(ЭтотОбъект.Товары.Итог("Сумм