Создание автоматизированной инфоpмационно-спpавочной системы расписания движения поездов и продажи билетов
Современные программные продукты для автоматизации ведения бухгалтерского учета. Описание автоматизированной системы для учета выбранного вида деятельности на предприятии в среде 1С. Технология инсталляции, запуска и работы с программным изделием.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 14.01.2013 |
| Размер файла | 3,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если ТипВагона="Плацкартный" Тогда
Надбавка=ЦенаБилета*100/100;
КонецЕсли;
Если ТипВагона="Купейный" Тогда
Надбавка=ЦенаБилета*250/100;
КонецЕсли;
Если ТипВагона="Люкс" Тогда
Надбавка=ЦенаБилета*400/100;
КонецЕсли;
ИтоговаяСумма=ЦенаБилета*Коэффициент+ЦенаБилета*18/100+Надбавка+ЦенаБилета*3/100+СтоимостьБелья;
КонецПроцедуры
Процедура МестоОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Основание=ВыбранноеЗначение;
Если ТипЗнч(Основание) = Тип("СправочникСсылка.Места") Тогда
ТипМеста = Основание.ТипМеста;
КонецЕсли;
КонецПроцедуры
Процедура ВагонОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Основание=ВыбранноеЗначение;
Если ТипЗнч(Основание) = Тип("СправочникСсылка.Вагоны") Тогда
ТипВагона=Основание.ТипВагона;
КонецЕсли;
КонецПроцедуры
Процедура ТарифПриИзменении(Элемент)
Отбор = Новый Структура("Тариф",Тариф);
Запись = РегистрыСведений.ИндексацияТарифов.ПолучитьПоследнее(Дата,Отбор);
Коэффициент = Запись.Коэффициент;
КонецПроцедуры
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ПродажаБилета.ПолучитьМакет("Печать");
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
Шапка.Параметры.СсылкаП=ЭтотОбъект.НомерПоезда.Ссылка;
Шапка.Параметры.СсылкаМ=ЭтотОбъект.Маршрут.Ссылка;
Шапка.Параметры.СсылкаС=ЭтотОбъект.СтанцияНазначения.Ссылка;
Шапка.Параметры.НДС="18%";
Шапка.Параметры.НДС="3%";
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
ФорматнаяСтрока="Л=ru_RU";
Шапка.Параметры.СуммаПрописью=ЧислоПрописью(ИтоговаяСумма,ФорматнаяСтрока,ПараметрыПредметаИсчисления);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Модуль Документа "Возврат билета"
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
СуммаВозврата=СуммаБилета-100;
КонецПроцедуры
Процедура ДокументОснованиеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Основание=ВыбранноеЗначение;
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ПродажаБилета") Тогда
Вагон = Основание.Вагон;
ВремяВПути = Основание.ВремяВПути;
ВремяСтоянки = Основание.ВремяСтоянки;
ДатаИВремяОтправления = Основание.ДатаИВремяОтправления;
ДатаИВремяПрибытия = Основание.ДатаИВремяПрибытия;
СуммаБилета = Основание.ИтоговаяСумма;
Маршрут = Основание.Маршрут;
Место = Основание.Место;
НомерПаспорта = Основание.НомерПаспорта;
НомерПоезда = Основание.НомерПоезда;
ДокументОснование = Основание.Ссылка;
СтанцияНазначения = Основание.СтанцияНазначения;
ТипВагона = Основание.ТипВагона;
ТипМеста = Основание.ТипМеста;
ФИО = Основание.ФИО;
КонецЕсли;
КонецПроцедуры
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ВозвратБилета.ПолучитьМакет("Печать");
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
Шапка.Параметры.СсылкаП=ЭтотОбъект.НомерПоезда.Ссылка;
Шапка.Параметры.СсылкаМ=ЭтотОбъект.Маршрут.Ссылка;
Шапка.Параметры.СсылкаС=ЭтотОбъект.СтанцияНазначения.Ссылка;
ПараметрыПредметаИсчисления="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
ФорматнаяСтрока="Л=ru_RU";
Шапка.Параметры.СуммаПрописью=ЧислоПрописью(СуммаВозврата,ФорматнаяСтрока,ПараметрыПредметаИсчисления);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Модуль Документа "Приходный кассовый ордер"
Процедура ДокументОснованиеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Основание=ВыбранноеЗначение;
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ПродажаБилета") Тогда
СуммаКОплате = Основание.ИтоговаяСумма;
Кассир = Основание.Кассир;
ДокументОснование = Основание.Ссылка;
КонецЕсли;
КонецПроцедуры
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ПриходныйКассовыйОрдер.ПолучитьМакет("Печать");
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
Шапка.Параметры.СсылкаС=ЭтотОбъект.Кассир.Ссылка;
Если ДокументОснование = Неопределено Тогда
Шапка.Параметры.СсылкаД=" ";
Иначе Шапка.Параметры.СсылкаД=ЭтотОбъект.ДокументОснование.Ссылка;
КонецЕсли;
Шапка.Параметры.СуммаКОплате = СуммаКОплате;
ПараметрыПредметаИсчисления = "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
ФорматнаяСтрока="Л=ru_RU";
Шапка.Параметры.СуммаПрописью = ЧислоПрописью(СуммаКОплате,ФорматнаяСтрока,ПараметрыПредметаИсчисления);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Модуль Документа "Расходный кассовый ордер"
Процедура ДокументОснованиеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Основание=ВыбранноеЗначение;
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ВозвратБилета") Тогда
Кассир = Основание.Кассир;
ДокументОснование = Основание.Ссылка;
СуммаКОплате = Основание.СуммаВозврата;
КонецЕсли;
КонецПроцедуры
Процедура Печать(Элемент)
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.РасходныйКассовыйОрдер.ПолучитьМакет("Печать");
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
Шапка.Параметры.СсылкаС=ЭтотОбъект.Кассир.Ссылка;
Если ДокументОснование = Неопределено Тогда
Шапка.Параметры.СсылкаД=" ";
Иначе Шапка.Параметры.СсылкаД=ЭтотОбъект.ДокументОснование.Ссылка;
КонецЕсли;
Шапка.Параметры.СуммаКОплате = СуммаКОплате;
ПараметрыПредметаИсчисления = "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
ФорматнаяСтрока="Л=ru_RU";
Шапка.Параметры.СуммаПрописью = ЧислоПрописью(СуммаКОплате,ФорматнаяСтрока,ПараметрыПредметаИсчисления);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Размещено на Allbest.ru
Подобные документы
Нормализация и схема базы данных, структура меню. Предназначение информационно-справочной системы. Покупка и бронирование билетов пассажирами. Программная реализация информационной системы. Справочники, документы, регистры, журналы, администрирование.
курсовая работа [1,2 M], добавлен 19.11.2010Сущность и принципы ведения бухгалтерского учета. Программные продукты ИС бухгалтерского учета. Классы программных продуктов ИС бухгалтерского учета. Технологический прогресс и перспективы его развития. Сетевая технология обработки бухгалтерских задач.
контрольная работа [37,1 K], добавлен 31.05.2015Требования к функциональным характеристикам информационной системы "Подписка". Функциональное проектирование автоматизированной системы ведения учета основных средств на предприятии. Проектирование базы данных автоматизированной системы ведения учета.
курсовая работа [753,0 K], добавлен 16.01.2015Технология выполнения работ по автоматизации систем управления. Адаптация автоматизированной системы "1С: Предприятие 8" для ООО "СтройРемонтПодряд". Обследование ведения учета заработной платы и кадров. Оценка экономической эффективности проекта.
дипломная работа [2,9 M], добавлен 15.02.2017Создание автоматизированной системы ведения оперативного учета на предприятии. Требования к составу и параметрам программно-технических средств. Выполнение программной части посредством интегрированной среды разработки MS Access с приложением Delphi.
дипломная работа [4,2 M], добавлен 21.10.2011Обоснование необходимости совершенствования информационной системы (ИС) ООО "Мехсервис". Анализ системы учета деятельности авторемонтного предприятия. Разработка концепции построения автоматизированной ИС. Описание продукта информационной технологии.
дипломная работа [2,7 M], добавлен 22.05.2012Создание программного обеспечения для автоматизации процесса администрирования сеансов кинотеатра и продажи билетов. Разработка приложений базы данных по учету управления продажи билетов в кинотеатре средствами Microsoft Access. Программный листинг.
курсовая работа [572,9 K], добавлен 15.04.2014Постановка задачи разработки автоматизированной системы управления в органах социальной защиты населения. Организация учета и распределения денежных средств. Логическая и физическая структуры базы данных. Методология работы с автоматизированной системой.
дипломная работа [1,9 M], добавлен 24.03.2010Разработка информационной системы для ведения учета вкладов в банке. Создание форм для поисковых систем, отчета, работы с базой. Организация пользовательского меню и сортировки данных. Описание входных документов. Общие требования к программному продукту.
курсовая работа [1,4 M], добавлен 04.11.2014Общая характеристика и организационная структура ОАО "Каравай". Комплексное проектирование автоматизированной системы учета готовой продукции для исследуемой организации в программной среде Borland Delphi 9.0. Оценка экономической эффективности проекта.
курсовая работа [1,9 M], добавлен 14.09.2012
