воскресенье, 15 февраля 2015 г.

1с специалист задача 1.17



Решение:
Задача идентична предыдущей. Вижу только 2 отличия
1) Документ "План закупок" не нужно помечать на удаление, достаточно актуализировать его табличную часть.
2) Необходим отчет.

Задача достается нам почти на халяву.
Изменим обработку запроса в документ "План продаж"
ЕстьРазличия= Ложь;
ЕстьДок= Ложь;
Результат = Запрос.ВыполнитьПакет();
Если Не Результат[2].Пустой() Тогда
Выборка =   Результат[2].Выбрать();
Пока Выборка.Следующий() Цикл         
Док =   Выборка.Док;
Если ЗначениеЗаполнено(Выборка.Док)  Тогда
Док =  Док.ПолучитьОбъект();
ЕстьДок = истина;
КонецЕсли;

Если Выборка.Требуется <> Выборка.Заказано Тогда
ЕстьРазличия = Истина;
КонецЕсли;

КонецЦикла;

КонецЕсли;


Если Не ЕстьДок Тогда
НовДок = Документы.ПланЗакупок.СоздатьДокумент();
НовДок.Дата = Дата;
НовДок.СписокНоменклатуры.Загрузить(Результат[2].Выгрузить());
НовДок.Записать(РежимЗаписиДокумента.Запись);

ИначеЕсли ЕстьРазличия Тогда
Док.СписокНоменклатуры.Загрузить(Результат[2].Выгрузить());
Док.Записать(РежимЗаписиДокумента.Запись);

КонецЕсли;

Переходим к отчету.
ВЫБРАТЬ
ОстаткиНоменклатурыОстатки.Номенклатура,
ОстаткиНоменклатурыОстатки.Склад,
СУММА(ОстаткиНоменклатурыОстатки.КоличествоОстаток) КАК Остаток
ИЗ
РегистрНакопления.ОстаткиНоменклатуры.Остатки(&НаДату, ) КАК ОстаткиНоменклатурыОстатки

СГРУППИРОВАТЬ ПО
ОстаткиНоменклатурыОстатки.Номенклатура,
ОстаткиНоменклатурыОстатки.Склад

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

ВЫБРАТЬ
ПланированиеОбороты.Номенклатура,
"План закупок",
СУММА(ПланированиеОбороты.КоличествоОборот)
ИЗ
РегистрНакопления.Планирование.Обороты(&НаДату, &КонецНедели, , ) КАК ПланированиеОбороты

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

ПланированиеОбороты.Номенклатура



Скачать решение задачи 1.17


Все БЕСПЛАТНЫЕ курсы по работе в 1С:УТ 11.1


Вы можете скачать бесплатные видеокурсы по работе в 1С:УТ 11.1 перейдя по ссылке 



Комментариев нет:

Отправить комментарий