Автоматизированная информационная система "Справочная служба магазина"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
µализации товаров,
которые в процессе написания курсового проекта были реализованы.
Список литературы
1. Введение в конфигурацию 1С: Бухгалтерии 7. 7. -М., 2003 г.
. Компьютерная бухгалтерия 7.7.Азбука бухгалтера. М., 2003г.
. Комягина В.Б. 1С: Бухгалтерия. М., 2004 г.
. Муштоватый И.Ф. Компьютер для бухгалтеров. Ростов-на-Дону, 2005 г
. Самоучитель 1С: Бухгалтерии версий 7.5-7.7 в вопросах и ответах. Практическое пособие- М.: Триумф,2002г.
. Фигурнов В. 1С: Бухгалтерия 7.7: Руководство пользователя. М.: Фирма 1С.
. Чистов Д. В. Основы бухгалтерского учета в системе Windows: Учеб.Практикум по ведению бухучета в 1С: Бухгалтерии 7.0.
. 1С: Бухгалтерия. Версия 7.7: Руководство пользователя. М.: Фирма 1С.
. 1С: Предприятие. Версия7.7.: Описание встроенного языка. М. : Фирма 1С.
. 1С: Бухгалтерия 7.7. Практический курс. М., 2004 г.
Приложения
Приложение 1
Листинг программы
Глобальный модуль
Функция глВзятьКонтекст(Конт) Экспорт
Возврат Конт;
КонецФункции // глВзятьКонтекст()
Процедура глПодбор(Конт,Параметры="") Экспорт
Если ТипЗначенияСтр(Параметры) <> "СписокЗначений" Тогда
Параметры = СоздатьОбъект("СписокЗначений");
КонецЕсли;
// открываем форму подбора
Конт.ОткрытьПодбор("Товар", "ДляПодбора", Параметры);
КонецПроцедуры // глПодбор()
Модуль формы списка справочника Магазины
//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)
Процедура Печать()
Спр = СоздатьОбъект("Справочник.Магазины");
Спр.ИспользоватьДату(ИспользоватьДату());
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ЭтоГруппа() = 1 Тогда
Таб.ВывестиСекцию("Группа");
Иначе
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Магазины","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ
Модуль формы списка справочника Товар
//{{ПРОЦЕДУРА_ПЕЧАТИ(Печать)
Процедура Печать()
Спр = СоздатьОбъект("Справочник.Товар");
Спр.ИспользоватьДату(ИспользоватьДату());
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ЭтоГруппа() = 1 Тогда
Таб.ВывестиСекцию("Группа");
Иначе
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Товар","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ
Модуль формы списка ДляПодбора справочника Товар
Процедура Остатки()
Параметр = глВзятьКонтекст(Контекст);
ОткрытьФорму("Обработка.ПоказатьОстатки", Параметр);
ФормаТаблицыОстатков = Параметр; // через параметр возвращается контекст открытой формы обработки
КонецПроцедуры // Остатки()
Модуль документа Приход
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Регистр.ОстаткиТоваров.Товар=Товар;
Регистр.ОстаткиТоваров.Магазин=Магазин;
Регистр.ОстаткиТоваров.Количество=Количество;
Регистр.ОстаткиТоваров.ДвижениеПриходВыполнить();
КонецЦикла;
КонецПроцедуры
Модуль формы документа Расход
Процедура Подбор()
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Магазин, "Магазин");
Если Выбран() = 0 Тогда
Параметры.ДобавитьЗначение("Дата", "ТипГраницы");
Параметры.ДобавитьЗначение(ДатаДок, "ЗначениеГраницы");
Иначе
Параметры.ДобавитьЗначение("Позиция", "ТипГраницы");
Параметры.ДобавитьЗначение(ПолучитьПозицию(), "ЗначениеГраницы");
КонецЕсли;
Параметры.ДобавитьЗначение("Подбор номенклатуры в документ " + ПредставлениеВида() + " № " + НомерДок, "Заголовок");
глПодбор(Контекст, Параметры);
КонецПроцедуры // Подбор()
Процедура ОбработкаПодбора(ВыбрТов, Конт)
Кол = 1;
ЦенаТ=0;
Если ВвестиЧисло(Кол, "Введите количество товара", 14, 0) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТов;
Количество = Кол;
АктивизироватьСтроку();
КонецПроцедуры
Модуль документа Расход
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Регистр.ОстаткиТоваров.Товар=Товар;
Регистр.ОстаткиТоваров.Магазин=Магазин;
Регистр.ОстаткиТоваров.Количество=Количество;
Регистр.ОстаткиТоваров.ДвижениеРасходВыполнить();
КонецЦикла;
КонецПроцедуры
Модуль формы отчета ОстаткиТоваров
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Товар = Регистр.ОстаткиТоваров.Товар;
|Магазин = Регистр.ОстаткиТоваров.Магазин;
|Количество = Регистр.ОстаткиТоваров.Количество;
|Функция КоличествоКонОст = КонОст(Количество);