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