Всем доброго времени суток!
Имеется необходимость объединить два простых запроса в один.
1) Выгружаем ОС по которые есть на 01 счете.
2) Выбираем нужные.
Прикрепляю файл обработки.
Заранее всем спасибо!
Имеется необходимость объединить два простых запроса в один.
1) Выгружаем ОС по которые есть на 01 счете.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаСведений", ДатаСведений);
Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.ОсновныеСредства);
Запрос.УстановитьПараметр("Организация", ТекОрганизация);
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| &Счет КАК Счет,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
| ОстаткиИОбороты.Субконто1 КАК Субконто1
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, &ДатаСведений, , , Счет = &Счет, , Организация = &Организация) КАК ОстаткиИОбороты
|АВТОУПОРЯДОЧИВАНИЕ
|";
ВыборкаНеСписанныхОС = Запрос.Выполнить().Выгрузить();
Показать2) Выбираем нужные.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаСведений", ДатаСведений);
Запрос.УстановитьПараметр("Организация", ТекОрганизация);
Запрос.Текст =
"ВЫБРАТЬ
| ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство КАК ОсновноеСредство
|ИЗ
| РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&ДатаСведений, Организация = &Организация) КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
|";
ВыборкаОС = Запрос.Выполнить().Выбрать();
ПоказатьПрикрепляю файл обработки.
Заранее всем спасибо!
Прикрепленные файлы:
ВыгрузкаОСНеПринятыхКУчету.erf
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(6) MyPuK_OLD,
ВЫБРАТЬ РАЗРЕШЕННЫЕ
&Счет КАК Счет,
ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
ОстаткиИОбороты.Субконто1 КАК Субконто1,
ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ИнвентарныйНомер
ИЗ
РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, &ДатаСведений, , , Счет = &Счет, , Организация = &Организация) КАК ОстаткиИОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&ДатаСведений, Организация = &Организация) КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
ПО ОстаткиИОбороты.Субконто1 = ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство
АВТОУПОРЯДОЧИВАНИЕ
Показать
или если нужны все данные
ВЫБРАТЬ РАЗРЕШЕННЫЕ
&Счет КАК Счет,
ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
ОстаткиИОбороты.Субконто1 КАК Субконто1,
ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ИнвентарныйНомер
ИЗ
РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, &ДатаСведений, , , Счет = &Счет, , Организация = &Организация) КАК ОстаткиИОбороты
ОБЪЕДИНЕНИЕ
ВЫБРАТЬ РАЗРЕШЕННЫЕ
&Счет,
0,
0,
ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство
ИЗ РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&ДатаСведений, Организация = &Организация) КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
ВЫБРАТЬ РАЗРЕШЕННЫЕ
&Счет КАК Счет,
ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
ОстаткиИОбороты.Субконто1 КАК Субконто1,
ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ИнвентарныйНомер
ИЗ
РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, &ДатаСведений, , , Счет = &Счет, , Организация = &Организация) КАК ОстаткиИОбороты
ОБЪЕДИНЕНИЕ
ВЫБРАТЬ РАЗРЕШЕННЫЕ
&Счет,
0,
0,
ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство
ИЗ РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&ДатаСведений, Организация = &Организация) КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаСведений", ДатаСведений);
Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.ОсновныеСредства);
Запрос.УстановитьПараметр("Организация", ТекОрганизация);
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| &Счет КАК Счет,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
| ОстаткиИОбороты.Субконто1 КАК ОсновноеСредство
|ПОМЕСТИТЬ ВтОстаткиИОборотыОс
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, &ДатаСведений, , , Счет = &Счет, , Организация = &Организация) КАК ОстаткиИОбороты
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ВтОстаткиИОборотыОс.Счет,
| ВтОстаткиИОборотыОс.СуммаКонечныйОстатокДт,
| ВтОстаткиИОборотыОс.СуммаКонечныйОстатокКт,
| ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство КАК ОсновноеСредство
|ИЗ
| ВтОстаткиИОборотыОс КАК ВтОстаткиИОборотыОс
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&ДатаСведений, Организация = &Организация) КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
| ПО ВтОстаткиИОборотыОс.ОсновноеСредство = ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство
|АВТОУПОРЯДОЧИВАНИЕ";
Показать
(14) Возьмите консоль запросов для управляемого приложения на ИТС и запустите в в БУХ 3.0 под толстым клиентом(управляемое приложение) этот запрос.
Я сначала пишу запросы там и смотрю результат, а уже потом в отладчике.
Результат в консоли очевидный и без ошибок чтения:)
Я сначала пишу запросы там и смотрю результат, а уже потом в отладчике.
Результат в консоли очевидный и без ошибок чтения:)
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот