Файл: Разработка и реализация конфигурации “Интернет-кафе” в среде 1С:Предприятие.pdf

В финальной главе под названием тестирование разработанного прикладного решения, приведены экранные формы рабочей программы и БД, а также процесса обработки тестовых данных (различные сообщения и другие элементы диалога, которые возникают в процессе обработки). Данное описание программного кода показано в приложениях.

Список использованной литературы

1. Заика А.А. Разработка прикладных решений для платформы 1С:Предприятие 8 в режиме «Управляемое приложение» / А.А. Заика. – 2-е изд., испр. – Москва: Национальный Открытый Университет «ИНТУИТ», 2018. – 239 с.
2. Заика А.А. Основы разработки прикладных решений для 1С:Предприятие 8.1 / А.А. Заика. – 2-е изд., испр. – Москва: Национальный Открытый Университет «ИНТУИТ», 2018. – 208 с.
3. Заика А.А. Основы разработки для платформы 1С:Предприятие 8.2 в режиме «Управляемое приложение» / А.А. Заика. – 2-е изд., испр. – Москва: Национальный Открытый Университет «ИНТУИТ», 2018. – 254 с.
4. http://dok1c.narod.ru/
5. http://1c.ru/

Приложение

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.Счет.ПолучитьМакет("Печать");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Счет.Автор,

| Счет.Дата,

| Счет.Комментарий,

| Счет.Номер,

| Счет.Скидка,

| Счет.Столик,

| Счет.СуммаДокумента,

| Счет.Фирма,

| Счет.ТЧЗаказ.(

| НомерСтроки,

| Номенклатура,

| Цена,

| Коэффициент,

| Количество,

| Сумма

| )

|ИЗ

| Документ.Счет КАК Счет

|ГДЕ

| Счет.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьТЧЗаказШапка = Макет.ПолучитьОбласть("ТЧЗаказШапка");

ОбластьТЧЗаказ = Макет.ПолучитьОбласть("ТЧЗаказ");

Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьТЧЗаказШапка);

ВыборкаТЧЗаказ = Выборка.ТЧЗаказ.Выбрать();

Пока ВыборкаТЧЗаказ.Следующий() Цикл

ОбластьТЧЗаказ.Параметры.Заполнить(ВыборкаТЧЗаказ);

ТабДок.Вывести(ОбластьТЧЗаказ, ВыборкаТЧЗаказ.Уровень());

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ПриходнаяНакладная.ПолучитьМакет("ПриходнаяНакладная");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| ПриходнаяНакладная.Дата,

| ПриходнаяНакладная.Контрагент,

| ПриходнаяНакладная.Номер,

| ПриходнаяНакладная.Склад,

| ПриходнаяНакладная.СуммаДокумента,

| ПриходнаяНакладная.Фирма,

| ПриходнаяНакладная.ТЧПриход.(

| НомерСтроки,

| Номенклатура,

| Цена,

| Коэффициент,

| Количество,

| Сумма,

| Номенклатура.Код

| )

|ИЗ

| Документ.ПриходнаяНакладная КАК ПриходнаяНакладная

|ГДЕ

| ПриходнаяНакладная.Ссылка В(&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПоставщик = Макет.ПолучитьОбласть("Поставщик");

ОбластьПокупатель = Макет.ПолучитьОбласть("Покупатель");

ОбластьШапка = Макет.ПолучитьОбласть("Шапка");

ОбластьСтрока = Макет.ПолучитьОбласть("Строка");

ОбластьЛинияСнизу = Макет.ПолучитьОбласть("ЛинияСнизу");

Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

// Если ВставлятьРазделительСтраниц Тогда

// ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

// КонецЕсли;

ОбластьЗаголовок.Параметры.ТекстЗаголовка = "Приходная накладная № " + Выборка.Номер;

ТабДок.Вывести(ОбластьЗаголовок);

ОбластьПоставщик.Параметры.Поставщик = Выборка.Контрагент.ПолноеНаименование;

ТабДок.Вывести(ОбластьПоставщик);

ОбластьПокупатель.Параметры.Покупатель = Выборка.Фирма.ПолноеНаименование;

ТабДок.Вывести(ОбластьПокупатель);

ТабДок.Вывести(ОбластьШапка);

// Шапка.Параметры.Заполнить(Выборка);

// ТабДок.Вывести(Шапка, Выборка.Уровень());

ВыборкаТЧ = Выборка.ТЧПриход.Выбрать();

Пока ВыборкаТЧ.Следующий() Цикл

ОбластьСтрока.Параметры.Заполнить(ВыборкаТЧ);

ТабДок.Вывести(ОбластьСтрока, ВыборкаТЧ.Уровень());

КонецЦикла;

ТабДок.Вывести(ОбластьЛинияСнизу);