Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Автоматизована інформаційна система "Довідкова служба магазину"

Реферат Автоматизована інформаційна система "Довідкова служба магазину"





>

| Обробляти НеПомеченниеНаУдаленіе;

| Магазин = Документ.Расход.Магазін;

| Товар = Документ.Расход.Товар;

| Кількість = Документ.Расход.Колічество;

| Функція КолічествоСумма = Сума (Кількість);

| Угруповання Магазин;

| Угруповання Товар;

| Умова (Магазин в ВибМагазін);

| Умова (Товар в ВибТовар);

| "/ /}} ЗАПИТ

;

// Якщо помилка в запиті, то вихід з процедури

Якщо Запрос.Виполніть (ТекстЗапроса) = 0 Тоді

Повернення;

КонецЕсли;

// Підготовка до заповнення вихідних форм даними запиту

Таб = СоздатьОб'ект ("Таблиця");

Таб.ІсходнаяТабліца ("Сформувати");

// Заповнення полів "Тема"

Таб.ВивестіСекцію ("Тема");

Стан ("Заповнення вихідний таблиці ...");

Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);

Поки Запрос.Группіровка (1) = 1 Цикл

// Заповнення полів Магазин

Таб.ВивестіСекцію ("Магазин");

Поки Запрос.Группіровка (2) = 1 Цикл

// Заповнення полів Товар

Таб.ВивестіСекцію ("Товар");

КонецЦікла;

КонецЦікла;

// Заповнення полів "Разом"

Таб.ВивестіСекцію ("Разом");

// Висновок заповненої форми

Таб.ТолькоПросмотр (1);

Таб.Показать ("Сформувати", "");

КонецПроцедури

Модуль форми обробки В«ПоказатьОстаткіВ»

Мінл Об'ектАналіза, КонтСправочніка;

Мінл Залишки;

Процедура ЗаполнітьКолонкіТабліци ()

СпособПоказа =

ТабліцаФорми.Очістіть ();

Якщо СпособПоказа = "магазинам" Тоді

Залишки = СоздатьОб'ект ("Регістр.ОстаткіТоваров");

ТабліцаФорми.НоваяКолонка ("Магазин", "Справочнік.Магазіни",,,, 20,, 1);

ТабліцаФорми.НоваяКолонка ("Залишок", "Рядок",,,, 7,, 2);

ТабліцаФорми.НоваяКолонка ("Одиниця", "Рядок",,, "Од.", 5,, 2);

КонецЕсли;

КонецПроцедури// ЗаполнітьКолонкіТабліци ()

Процедура ЗаполнітьПоМагазінам ()

ТаблОстатков = СоздатьОб'ект ("ТабліцаЗначеній");

Остаткі.В...


Назад | сторінка 14 з 16 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Якщо імпортний товар на митному складі
  • Реферат на тему: Якщо на товар закінчився термін придатності
  • Реферат на тему: Форми документів та порядок їх заповнення для проведення процедури "Мо ...
  • Реферат на тему: Заповнення форми персоніфікованого обліку ПУ-3
  • Реферат на тему: Форми податкової звітності з податку на доходи фізичних осіб. Порядок запо ...