Дипломная работа: Автоматизация приема платежей на базе конфигурации "1С Предприятия 8.3" в ООО "ТК Винторг"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
76
14. Каплина С.А. Технология оптовой и розничной торговли. Р-н-Д.,
2007. – 348 с.
15. Смирнова, Г.Н. Проектирование экономических информационных
систем: учебник / Г.Н.Смирнова, А.А.Сорокин, Ю.Ф.Тельнов; под общ. ред.
Ю.Ф.Тельнова. – М.: Финансы и статистика, 2003. – 512 с.: ил.
16. Исаев, Г. Н. Информационные системы в экономике: учебник для
вузов/ Г. Н. Исаев. – 2-е изд.. – М.: Омега-Л, 2009. – 462 с.
17. Диго, С.М. БД: Проектирование и использование: учебник / С.М.
Диго. – М.:Изд-во Финансы и статистика, 2005. –592с.
18. Информационные системы в экономике: учебник для студентов
вузов / Под ред. Г. А. Титоренко. – 2-е изд., перераб. и доп. – М.: ЮНИТИ-ДАНА,
2008. – 463 с.
19. Козырев Д.И. 1С:Предприятие 8.0. Внедрение и адаптация
конфигурации «Бухгалтерия предприятия» (конфигурирование в типовом
решении). Методические материалы для слушателя сертифицированного курса.–
М: Фирма «1С», 2006г.
20. Гончаров Д.И. Введение в конфигурирование в системе
1С:Предприятие 8.0. Основные объекты. Методические материалы для слушателя
сертифицированного курса.– М: Фирма «1С», 2006г.
77
Приложение 1. Листинг программного кода
Модуль документа «Приход материалов»
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Для Каждого ТекСтрокаМатериал Из Акт Цикл
Движение = Движения.ОстаткиТоваров.ДобавитьПриход();
Движение.Период = Дата;
Движение.Материал = ТекСтрокаМатериал.Материал;
Движение.Количество = ТекСтрокаМатериал.Количество;
КонецЦикла;
Движения.ОстаткиТоваров.Записывать = Истина;
Движение = Движения.ОтчетПоставщики.ДобавитьПриход();
Движение.Период = Дата;
Движение.Клиент = Клиент;
А = 0;
Для Каждого ТекСтрокаМатериал Из Акт Цикл
А = А+ТекСтрокаМатериал.Количество*ТекСтрокаМатериал.Цена;
КонецЦикла;
Движение.Сумма = А;
Движения.ОтчетПоставщики.Записывать = Истина;
КонецПроцедуры
Модуль формы документа «Приход материалов»
&НаКлиенте
Процедура АктКоличествоПриИзменении(Элемент)
РассчитатьСумму();
КонецПроцедуры
&НаКлиенте
Процедура РассчитатьСумму()
СтрокаТЧ = Элементы.Акт.ТекущиеДанные;
СтрокаТЧ.Сумма = (СтрокаТЧ.Цена*СтрокаТЧ.Количество)-
(СтрокаТЧ.Цена*СтрокаТЧ.Количество)*Объект.Скидка/100;
КонецПроцедуры
&НаСервереБезКонтекста
Функция СкидкаДоговора(Договор)
Возврат Договор.Скидка;
КонецФункции
&НаКлиенте
Процедура АктМатериалПриИзменении(Элемент)
СтрокаТЧ = Элементы.Акт.ТекущиеДанные;
СтрокаТЧ.Цена = ЦенаМатериала(СтрокаТЧ.Материал);
СтрокаТЧ.Количество = 1;
РассчитатьСумму();
КонецПроцедуры
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Объект.Скидка = СкидкаДоговора(Объект.Договор);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ЦенаМатериала(Материалы)
Возврат Материалы.Стоимость;
КонецФункции
78
Модуль документа «Расход материалов»
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Для Каждого ТекСтрокаМатериал Из Акт Цикл
Движение = Движения.ОстаткиТоваров.ДобавитьРасход();
Движение.Период = Дата;
Движение.Материал = ТекСтрокаМатериал.Материал;
Движение.Количество = ТекСтрокаМатериал.Количество;
КонецЦикла;
Движения.ОстаткиТоваров.Записывать = Истина;
Движение = Движения.КассовыйОтчет.ДобавитьПриход();
Движение.Период = Дата;
Движение.Клиент = Клиент;
А = 0;
Для Каждого ТекСтрокаМатериал Из Акт Цикл
А = А+ТекСтрокаМатериал.Сумма;
КонецЦикла;
Движение.Сумма = А;
Движения.КассовыйОтчет.Записывать = Истина;
Движение = Движения.Прибыль.ДобавитьПриход();
Движение.Период = Дата;
Движение.Дата = Дата;
АА = 0;
Для Каждого ТекСтрокаТовар Из Акт Цикл
АА = АА+ТекСтрокаМатериал.Цена;
КонецЦикла;
Движение.Сумма = А;
Движение.РасходМ = АА;
Движение.Прибыль = А-АА;
Движения.Прибыль.Записывать = Истина;
КонецПроцедуры
Модуль формы документа «Расход материалов»
&НаКлиенте
Процедура АктКоличествоПриИзменении(Элемент)
РассчитатьСумму();
КонецПроцедуры
&НаКлиенте
Процедура АктЦенаПриИзменении(Элемент)
РассчитатьСумму();
КонецПроцедуры
&НаКлиенте
Процедура РассчитатьСумму()
СтрокаТЧ = Элементы.Акт.ТекущиеДанные;
СтрокаТЧ.Сумма = (СтрокаТЧ.Цена*СтрокаТЧ.Количество)+
(СтрокаТЧ.Цена*СтрокаТЧ.Количество)*СтрокаТЧ.Наценка/100-
(СтрокаТЧ.Цена*СтрокаТЧ.Количество)*Объект.Скидка/100-
(СтрокаТЧ.Цена*СтрокаТЧ.Количество)*Объект.КатегорияСкидка/100;
КонецПроцедуры
79
&НаКлиенте
Процедура КлиентПриИзменении(Элемент)
Объект.Скидка = СкидкаКлиента(Объект.Клиент);
КонецПроцедуры
&НаСервереБезКонтекста
Функция СкидкаКлиента(Клиент)
Возврат Клиент.Скидка;
КонецФункции
&НаСервереБезКонтекста
Функция СкидкаОбщая(Скидка)
Возврат Скидка.Скидка;
КонецФункции
&НаСервереБезКонтекста
Функция НаценкаМатериал(Материал)
Возврат Материал.Наценка;
КонецФункции
&НаСервереБезКонтекста
Функция ЦенаМатериала(Материал)
Возврат Материал.Стоимость;
КонецФункции
&НаКлиенте
Процедура КатегорияСкидкиПриИзменении(Элемент)
Объект.КатегорияСкидка = СкидкаОбщая(Объект.Категория);
КонецПроцедуры
&НаКлиенте
Процедура АктНаценкаПриИзменении(Элемент)
РассчитатьСумму();
КонецПроцедуры
&НаКлиенте
Процедура АктМатериалПриИзменении(Элемент)
СтрокаТЧ = Элементы.Акт.ТекущиеДанные;
СтрокаТЧ.Количество = 1;
СтрокаТЧ.Наценка = НаценкаМатериал(СтрокаТЧ.Материал);
СтрокаТЧ.Цена = ЦенаМатериала(СтрокаТЧ.Материал);
РассчитатьСумму();
КонецПроцедуры
Модуль формы отчета «Прайс-лист»
&НаКлиенте
Процедура СформироватьПрайс(Команда)
ЗаполнитьТабДок(ТабДок);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ЗаполнитьТабДок(ТабДок)
ТабДок.Очистить();
Макет = Отчеты.ПрайсЛист.ПолучитьМакет("Макет");
ОблШапка = Макет.ПолучитьОбласть("Шапка");
ОблТовар = Макет.ПолучитьОбласть("Товар");
ОблШапка.Параметры.ДатаОтчета = Формат(ТекущаяДата(),"ДЛФ=DD" );
ТабДок.Вывести(ОблШапка);
80
Выборка = Справочники.Материалы.ВыбратьИерархически();
Пока Выборка.Следующий() Цикл
ОблТовар.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОблТовар);
КонецЦикла;
КонецПроцедуры
Модуль формы отчета «Инвентаризация»
&НаКлиенте
Процедура СформироватьВедомость(Команда)
ЗаполнитьТабДок(ТабДок, ДатаОтчета);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ЗаполнитьТабДок(ТабДок, ДатаОтчета)
ТабДок.Очистить();
Макет = Отчеты.Инвентаризация.ПолучитьМакет("Макет");
ОблШапка = Макет.ПолучитьОбласть("Шапка");
ОблТовар = Макет.ПолучитьОбласть("Товар");
ОблШапка.Параметры.ДатаОтчета = ДатаОтчета;
ТабДок.Вывести(ОблШапка);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Материал,
| КоличествоОстаток
|ИЗ
| РегистрНакопления.ОстаткиТоваров.Остатки(&ДатаОтчета, ) ";
Запрос.УстановитьПараметр("ДатаОтчета", ДатаОтчета);
Результат = Запрос.Выполнить();
А = 1;
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ОблТовар.Параметры.Материал = Выборка.Материал;
ОблТовар.Параметры.Код = А;
А = А + 1;
ОблТовар.Параметры.Количество = Выборка.КоличествоОстаток;
ТабДок.Вывести(ОблТовар);
КонецЦикла;
КонецПроцедуры
Модуль формы отчета «Кассовый отчет»
&НаКлиенте
Процедура КассовыйОтчет(Команда)
ЗаполнитьТабДок(ТабДок, ДатаОтчета);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ЗаполнитьТабДок(ТабДок, ДатаОтчета)
ТабДок.Очистить();
Макет = Отчеты.КассовыйОтчет.ПолучитьМакет("Макет");
ОблШапка = Макет.ПолучитьОбласть("Шапка");
Источник: https://baza.diplomsite.ru/previewfile/2003

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ