Разработка подсистемы учета материальных средств с использованием пакета прикладных программ 1С: Предприятие 8.1 для ГУП СК "Ставрополькоммунэлектро"

// Выводим шапку накладной

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

ОбластьМакета.Параметры.ТекстЗаголовка = РаботаСДиалогами.СформироватьЗаголовокДокумента(Шапка, "Накладная");

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

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

ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата), "ПолноеНаименование,");

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

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

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

ОбластьМакета.Параметры.ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата), "ПолноеНаименование,");

ОбластьМакета.Параметры.Получатель = Шапка.Организация;

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

// Вывести табличную часть

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

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

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

Сумма = 0;

СуммаНДС = 0;

Для Каждого ВыборкаСтрокТовары Из ВыборкаСтрок Цикл

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

ОбластьМакета.Параметры.НомерСтроки = ВыборкаСтрок.Индекс(ВыборкаСтрокТовары) + 1;

ОбластьМакета.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);

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

Сумма = Сумма + ВыборкаСтрокТовары.Сумма;

СуммаНДС = СуммаНДС + ВыборкаСтрокТовары.СуммаНДС;

КонецЦикла;

// Вывести Итого

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

ОбластьМакета.Параметры.Всего = ФормированиеПечатныхФорм.ФорматСумм(Сумма);

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

// Вывести ИтогоНДС

Если Шапка.УчитыватьНДС Тогда

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

ОбластьМакета.Параметры.ВсегоНДС = ФормированиеПечатныхФорм.ФорматСумм(СуммаНДС);

ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", "Сумма НДС:");

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

КонецЕсли;

// Вывести Сумму прописью

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

СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);

ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ВыборкаСтрок.Количество()

+ ", на сумму " + ФормированиеПечатныхФорм.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента);

ОбластьМакета.Параметры.СуммаПрописью = РаботаСДиалогами.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента);

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

// Вывести подписи

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

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

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

Возврат ТабДокумент;

КонецФункции // ПечатьПоступлениеТоваров()

// Функция формирует табличный документ с печатной формой накладной,

// разработанной методистами

//

// Возвращаемое значение:

// Табличный документ - печатная форма накладной

//

Функция ПечатьТОРГ12ЗаПоставщика()

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

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Запрос.УстановитьПараметр("ПустойКонтрагент", Справочники.Контрагенты.ПустаяСсылка());

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

|ВЫБРАТЬ

| Дата КАК Дата,

| ДатаВходящегоДокумента КАК ДатаДокумента,

| НомерВходящегоДокумента КАК НомерДокумента,

| Организация КАК Организация,

| ВЫБОР КОГДА Грузополучатель = &ПустойКонтрагент

| ТОГДА Организация

| ИНАЧЕ Грузополучатель КОНЕЦ КАК Грузополучатель,

| ВЫБОР КОГДА Грузоотправитель = &ПустойКонтрагент

| ТОГДА Контрагент

| ИНАЧЕ Грузоотправитель КОНЕЦ КАК Грузоотправитель,

| Организация КАК Плательщик,

| Контрагент,

| Контрагент КАК Поставщик,

| ДоговорКонтрагента.Представление КАК Основание,

| ВалютаДокумента,

| КурсВзаиморасчетов КАК Курс,

| КратностьВзаиморасчетов КАК Кратность,

| УчитыватьНДС,

| СуммаВключаетНДС

|ИЗ

| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг

|ГДЕ

| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент";

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

Шапка.Следующий();

ЗапросПоТоварам = Новый Запрос();

ЗапросПоТоварам.УстановитьПараметр("Курс", ОбщегоНазначения.КурсДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));

ЗапросПоТоварам.УстановитьПараметр("Кратность", ОбщегоНазначения.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));

ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ПоступлениеТоваровУслуг");

ЗапросПоТоварам.Текст = "

|ВЫБРАТЬ

| ЗапросПоТоварам.Номенклатура,

| ВЫРАЗИТЬ(ЗапросПоТоварам.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК ТоварНаименование,

| ЗапросПоТоварам.Номенклатура.Код КАК ТоварКод,

| ЗапросПоТоварам.ЕдиницаИзмерения.Наименование КАК БазоваяЕдиницаНаименование,

| ЗапросПоТоварам.ЕдиницаИзмерения.Код КАК БазоваяЕдиницаКодПоОКЕИ,

| ЗапросПоТоварам.ВидУпаковки,

| ЕСТЬNULL(ЗапросПоТоварам.КоличествоМест, 0) КАК КоличествоМест,

| ЕСТЬNULL(ЗапросПоТоварам.Количество, 0) КАК Количество,

| ЕСТЬNULL(ЗапросПоТоварам.Коэффициент, 0) КАК Коэффициент,

| ЕСТЬNULL(ЗапросПоТоварам.Коэффициент, 0) КАК КоличествоВОдномМесте,

| ЕСТЬNULL(ЗапросПоТоварам.Цена, 0) КАК Цена,

| ЕСТЬNULL(ЗапросПоТоварам.Сумма, 0) КАК Сумма,

| ЕСТЬNULL(ЗапросПоТоварам.СуммаНДС, 0) КАК СуммаНДС,

| ЗапросПоТоварам.СтавкаНДС,

| ЗапросПоТоварам.НомерСтроки,

| 2 КАК ID

|ИЗ

| (ВЫБРАТЬ

| ПоступлениеТоваровУслуг.Номенклатура КАК Номенклатура,

| СУММА(ПоступлениеТоваровУслуг.КоличествоМест) КАК КоличествоМест,

| СУММА(ПоступлениеТоваровУслуг.Количество) КАК Количество,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,

| ПоступлениеТоваровУслуг.ЕдиницаИзмерения КАК ВидУпаковки,

| ПоступлениеТоваровУслуг.Коэффициент КАК Коэффициент,

| ПоступлениеТоваровУслуг.Цена * &Курс / &Кратность КАК Цена,

| СУММА(ПоступлениеТоваровУслуг.Сумма * &Курс / &Кратность) КАК Сумма,

| СУММА(ПоступлениеТоваровУслуг.СуммаНДС * &Курс / &Кратность) КАК СуммаНДС,

| ПоступлениеТоваровУслуг.СтавкаНДС КАК СтавкаНДС,

| МИНИМУМ(ПоступлениеТоваровУслуг.НомерСтроки) КАК НомерСтроки

| ИЗ

| Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслуг

| ГДЕ

| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент

| СГРУППИРОВАТЬ ПО

| ПоступлениеТоваровУслуг.Номенклатура,

| ПоступлениеТоваровУслуг.СтавкаНДС,

| ПоступлениеТоваровУслуг.Цена * &Курс / &Кратность,

| ПоступлениеТоваровУслуг.ЕдиницаИзмерения,

| ПоступлениеТоваровУслуг.Коэффициент) КАК ЗапросПоТоварам

|ОБЪЕДИНИТЬ ВСЕ

|ВЫБРАТЬ

| ПоступлениеТоваровУслуг.Номенклатура,

ВЫРАЗИТЬ(ПоступлениеТоваровУслуг.Номенклатура.НаименованиеПолное КАК Строка(1000)),

| ПоступлениеТоваровУслуг.Номенклатура.Код,

ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.

Код,

| ПоступлениеТоваровУслуг.ЕдиницаИзмерения,

| 0,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Количество, 0),

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Коэффициент, 0),

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Коэффициент, 0),

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Цена, 0) * &Курс / &Кратность,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Сумма, 0) * &Курс / &Кратность,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.СуммаНДС, 0) * &Курс / &Кратность,

| ПоступлениеТоваровУслуг.СтавкаНДС КАК СтавкаНДС,

| ПоступлениеТоваровУслуг.НомерСтроки,

| 1

|ИЗ

| Документ.ПоступлениеТоваровУслуг.Оборудование КАК ПоступлениеТоваровУслуг

|ГДЕ

| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент

|ОБЪЕДИНИТЬ ВСЕ

|ВЫБРАТЬ

| " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",

| " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",

| NULL,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.

Наименование,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.

Код,

| NULL,

| 0,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Количество, 0),

| 1,

| 1,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Цена, 0) * &Курс / &Кратность,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Сумма, 0) * &Курс / &Кратность,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.СуммаНДС, 0) * &Курс / &Кратность,

| ПоступлениеТоваровУслуг.СтавкаНДС,

| ПоступлениеТоваровУслуг.НомерСтроки,

| 3

|ИЗ

| Документ.ПоступлениеТоваровУслуг.Услуги КАК ПоступлениеТоваровУслуг

|ГДЕ

| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент

|ОБЪЕДИНИТЬ ВСЕ

|ВЫБРАТЬ

| ПоступлениеТоваровУслуг.Номенклатура,

ВЫРАЗИТЬ(ПоступлениеТоваровУслуг.Номенклатура.НаименованиеПолное КАК Строка(1000)),

| ПоступлениеТоваровУслуг.Номенклатура.Код,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения. Наименование КАК БазоваяЕдиницаНаименование,

| ПоступлениеТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения. Код КАК БазоваяЕдиницаКодПоОКЕИ,

| NULL,

| 0,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Количество, 0),

| 0,

| 0,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Цена, 0) * &Курс / &Кратность,

| ЕСТЬNULL(ПоступлениеТоваровУслуг.Сумма, 0) * &Курс / &Кратность,

| 0,

| NULL,

| ПоступлениеТоваровУслуг.НомерСтроки,

| 4

|ИЗ

| Документ.ПоступлениеТоваровУслуг.ВозвратнаяТара КАК ПоступлениеТоваровУслуг

|ГДЕ

| ПоступлениеТоваровУслуг.Ссылка = &ТекущийДокумент

|УПОРЯДОЧИТЬ ПО

| ID,

| НомерСтроки";

ВыборкаСтрок = ЗапросПоТоварам.Выполнить().Выгрузить();

ТабДокумент = Новый ТабличныйДокумент;

// Зададим параметры макета

ТабДокумент.ПолеСверху = 0;

ТабДокумент.ПолеСлева = 0;

ТабДокумент.ПолеСнизу = 0;

ТабДокумент.ПолеСправа = 0;

ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_ТОРГ12";

Макет = ПолучитьОбщийМакет("ТОРГ12");

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

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

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

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

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

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

// Выводим общие реквизиты шапки

СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Контрагент, Шапка.ДатаДокумента);

СведенияОГрузоотправителе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузоотправитель, Шапка.ДатаДокумента);

СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента);

СведенияОГрузополучателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузополучатель, Шапка.ДатаДокумента);

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

ОбластьМакетаШапка.Параметры.ПредставлениеГрузополучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "ПолноеНаименование,ИНН,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет");

ОбластьМакетаШапка.Параметры.ПредставлениеПлательщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе);

// Если Значение поля Контрагент не заполнено, то это возможно только для

// вида операции "Ответственное хранение (купля-продажа/комиссия)".

// Выводим подвал документа

ОбластьМакетаПодвал.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(КоличествоСтрок,,",,,,,,,,0");

ОбластьМакетаПодвал.Параметры.ВсегоМестПрописью = ?(ИтогоМест = 0, "", ЧислоПрописью(ИтогоМест,,",,,С,,,,,0"));

ОбластьМакетаПодвал.Параметры.СуммаПрописью = РаботаСДиалогами.СформироватьСуммуПрописью(ИтогоСуммаСНДС, мВалютаРегламентированногоУчета);

ОбластьМакетаПодвал.Параметры.ДатаДокументаДень = """ """;

ОбластьМакетаПодвал.Параметры.ДатаДокументаМесяц = "";

ОбластьМакетаПодвал.Параметры.ДатаДокументаГод = " 20 года";

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

Возврат ТабДокумент;

КонецФункции // ПечатьТОРГ12ЗаПоставщика()

Размещено на Allbest.ru