Автоматизированная система учета и контроля в розничной торговле
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ющие = СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Работающие);
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Сотрудники = Справочник.Сотрудники.ТекущийЭлемент;
|Группировка Сотрудники упорядочить по Сотрудники.Наименование, Сотрудники.Должность, Сотрудники.Оклад;
|"//}}ЗАПРОС
;
///Условие(Сотрудники.Родитель=""Работающие"");
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сотрудники");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Сотрудники
Если Запрос.Сотрудники.Наименование= "Работающие" Тогда
продолжить;
КонецЕсли;
Если Запрос.Сотрудники.Наименование= "Уволенные" Тогда
Прервать;
КонецЕсли;
Таб.ВывестиСекцию("Сотрудники");
КонецЦикла;
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сотрудники", "");
КонецПроцедуры
Модуль отчета ПланСчетов:
Процедура Сформировать()
Перем Сч,c1,c2,н;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Сч = СоздатьОбъект("Счет");
Таб.ВывестиСекцию("Шапка");
Сч.ВыбратьСчета();
Пока Сч.ПолучитьСчет() = 1 Цикл
Если Сч.Валютный=1 тогда
в="+"иначе в=".";
КонецЕсли;
Если Сч.Количественный=1 тогда
к="+"иначе к=".";
КонецЕсли;
Если Сч.Забалансовый=1 тогда
з="+"иначе з=".";
КонецЕсли;
Если Сч.Активный=1 тогда
а="А" иначе
Если Сч.Активный=2 тогда
а = "П" иначе
Если Сч.Активный=3 тогда
а="АП"
КонецЕсли;
КонецЕсли;
КонецЕсли ;
с1 = Сч.ВидСубконто(1);
с2 = Сч.ВидСубконто(2);
с3 = Сч.ВидСубконто(3);
Таб.ВывестиСекцию("Данные");
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать();
КонецПроцедуры
Модуль отчета ОстаткиНаСкладах:
Процедура ПриОткрытии()
ВыбДата=ТекущаяДата()+1;
КонецПроцедуры
Процедура ВыбДата()
Если ВыбДата>ПолучитьДатуТА() Тогда
ВыбДата=ПолучитьДатуТА();
КонецЕсли;
КонецПроцедуры
Процедура Флаг()
Если Флаг1=1 Тогда ВыбСклад="";
Форма.ВыбСклад.Редактирование(0); Иначе
Форма.ВыбСклад.Редактирование(1);
КонецЕсли
КонецПроцедуры
Процедура Сформировать()
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Товар = Регистр.ОстаткиСклада.Товар;
|Склад = Регистр.ОстаткиСклада.Склад;
|Количество = Регистр.ОстаткиСклада.Количество;
|ТекущийЭлемент = Справочник.Наменклатура.ТекущийЭлемент;
|Функция Кол = КонОст(Количество);
|Группировка Товар упорядочить по Товар.Наименование, Товар.ОтпускнаяЦена;
|Группировка Склад упорядочить по Склад.Наименование;
|Условие(Товар в ВыбТовар);
|Условие(Склад в ВыбСклад);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Сумма=0;
Й=0;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
Если Запрос.ЭтоГруппа("Товар") = 1 Тогда
КолВо="";
Цен="";
Сумм="";
Иначе
КолВо=Запрос.Кол;
Цен=Запрос.ЗначениеУпорядочивания(1,2);
Сумм=КолВо*Цен;
Сумма=Сумма+Сумм;
КонецЕсли;
Таб.ВывестиСекцию("Товар");
Пока Запрос.Группировка(2) = 1 Цикл
Таб.ВывестиСекцию("Склад");
КонецЦикла;
Й=Й+1;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица", "");
КонецПроцедуры
Модуль отчета Номенклатура:
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Номенклатура");
Спр=СоздатьОбъект("Справочник.Наменклатура"); //Создадим объект - Справочник Номенклатура
Спр.ВыбратьЭлементы();
таб.ВывестиСекцию("Шапка");
Пока Спр.ПолучитьЭлемент()=1 Цикл
если спр.текущийЭлемент().ЭтоГруппа() = 1 Тогда
гр = спр.текущийЭлемент();
таб.ВывестиСекцию("группа");
иначе
эл = спр.Наименование;
допинф = спр.ДопИнформация;
таб.ВывестиСекцию("элемент");
КонецЕсли;
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Номенклатура","");
КонецПроцедуры
Модуль отчета АнализПС:
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,,,, 1,, "С");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
Таб.ВывестиСекцию("Счет");
Таб.ВывестиСекцию("ПдвСчет");
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица","&