Разработка подсистемы учета материальных средств с использованием пакета прикладных программ 1С: Предприятие 8.1 для ГУП СК "Ставрополькоммунэлектро"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ения.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));
ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ПоступлениеТоваровУслуг");
ЗапросПоТоварам.Текст = "
|ВЫБРАТЬ
| ЗапросПоТоварам.Номенклатура,
| ВЫРАЗИТЬ(ЗапросПоТоварам.Номенклатура.НаименованиеПолное КАК Строка(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,
| НомерСтроки";
ВыборкаСтрок = ЗапросПоТоварам.Выполнить().Выгрузить();
ТабДокумент = Новый ТабличныйДокумент;
// Задад