|
|
Необходимо выгрузить что-то подобное Прайс-листа в двф. Из документа "Поступление Товаров и Услуг" выгрузить данные в определенный промежуток времени таким образом, чтобы повторяющие материалы стояли одной строкой со средней ценой. Затруднение возникает в том, что часть документов надо брать без НДС, а часть с НДС. НДС задается в другом объекте. В результате объединение не получается. Если можно, подскажите правильный вариант.Фрагмент:
Если пустаястрока(ИмяФайла)=1 тогда
предупреждение ("Укажите каталог");
Возврат;
КонецЕсли;
Если пустаястрока(ПодразделениеОрг) =1 Тогда
Предупреждение("Выберите организацию");
Возврат;
КонецЕсли;
ДБФ = Новый XBase;
ДБФ.Поля.Добавить("end_dat","D"); // дата окончания выгрузки
ДБФ.Поля.Добавить("km","S",12); // Код материала (НомНомер)
ДБФ.Поля.Добавить("name","S",100); // Наименование материала
ДБФ.Поля.Добавить("price","N",15,2 ); // средняя цена материала
ДБФ.Поля.Добавить("kei","S",100); // Единица измерения материала
ДБФ.СоздатьФайл(ИмяФайла);
ДБФ.Кодировка=КодировкаXBase.OEM;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваровУслуг.Номер КАК Номер,
| ПоступлениеТоваровУслуг.Ссылка,
| ПоступлениеТоваровУслуг.Дата КАК ДатаСоставления,
| ПоступлениеТоваровУслуг.НомерВходящегоДокумента КАК НомерСопроводительногоДокумента,
| ПоступлениеТоваровУслуг.Организация,
| ПоступлениеТоваровУслуг.ПодразделениеОрганизации,
| ВЫРАЗИТЬ(ПоступлениеТоваровУслуг.ПодразделениеОрганизации.НаименованиеПолное КАК СТРОКА(200)) КАК ПредставлениеПодразделения,
| ПоступлениеТоваровУслуг.УчитыватьНДС
|ИЗ
| Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
|ГДЕ
| ПоступлениеТоваровУслуг.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаОкон
| И ПоступлениеТоваровУслуг.Ссылка.ПодразделениеОрганизации = &ПодразделениеОрг
| И ПоступлениеТоваровУслуг.Ссылка.Проведен
| ";
Запрос.УстановитьПараметр("ДатаНач", НачалоДня(ДатаНач));
Запрос.УстановитьПараметр("ДатаОкон", КонецДня(ДатаОкон));
Запрос.УстановитьПараметр("ПодразделениеОрг", ПодразделениеОрг);
Результат = Запрос.Выполнить();
Шапка = Результат.Выбрать();
Пока Шапка.Следующий() Цикл
Доки=Шапка.ссылка;
ЗапросПоТоварам = Новый Запрос;
ЗапросПоТоварам.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваровУслугТовары.Номенклатура,
| ПоступлениеТоваровУслугТовары.СтавкаНДС КАК СтавкаНДС,
| СУММА(ПоступлениеТоваровУслугТовары.Цена) КАК Цена,
| СУММА(ПоступлениеТоваровУслугТовары.Количество) КАК Количество,
| ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения,
// | СУММА(ПоступлениеТоваровУслугТовары.Количество * ПоступлениеТоваровУслугТовары.Цена/1.18) КАК Поле1
| СУММА(ПоступлениеТоваровУслугТовары.Количество * ПоступлениеТоваровУслугТовары.Цена) КАК Поле1
| ПОМЕСТИТЬ вт
|ИЗ
| Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
|ГДЕ
|ПоступлениеТоваровУслугТовары.Ссылка = &Доки
| СГРУППИРОВАТЬ ПО
| ПоступлениеТоваровУслугТовары.Номенклатура,
| ПоступлениеТоваровУслугТовары.СтавкаНДС,
| ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения
|;
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| вт.Номенклатура,
| вт.Поле1 / вт.Количество КАК Поле1
|ИЗ
| вт КАК вт
|";
ЗапросПоТоварам.УстановитьПараметр("Доки", Доки);
Результат = ЗапросПоТоварам.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если Шапка.УчитыватьНДС=Истина Тогда
ДБФ.Добавить();
ДБФ.end_dat=ДатаОкон;
ДБФ.km=ВыборкаДетальныеЗаписи.Номенклатура.НомНомер;
ДБФ.name=ВыборкаДетальныеЗаписи.Номенклатура;
ДБФ.kei=ВыборкаДетальныеЗаписи.Номенклатура.БазоваяЕдиницаИзмерения.Код;
Сумма=ВыборкаДетальныеЗаписи.Поле1;
Сумма1=Окр(Число(Сумма)*100/118,2,0);
ДБФ.price=Сумма1;
ДБФ.Записать();
Иначе
ДБФ.Добавить();
ДБФ.end_dat=ДатаОкон;
ДБФ.km=ВыборкаДетальныеЗаписи.Номенклатура.НомНомер;
ДБФ.name=ВыборкаДетальныеЗаписи.Номенклатура;
ДБФ.kei=ВыборкаДетальныеЗаписи.Номенклатура.БазоваяЕдиницаИзмерения.Код;
Сумма=ВыборкаДетальныеЗаписи.Поле1;
Сумма1=Окр(Число(Сумма)*100/118,0);
ДБФ.price=Сумма;
ДБФ.Записать();
КонецЕсли;
КонецЦикла;
КонецЦикла;
ДБФ.ЗакрытьФайл();
Где ошибка, понятно, рассматривается документ-строки и записывается в файл. Если и будет объединение, то внутри документа. А вот как правильно записать, затрудняюсь. |
|
Обработки
