Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 10:05

С какой радости не является значением объектного типа???

Автор Nail2010, 09 мар 2011, 06:03

0 Пользователей и 1 гость просматривают эту тему.

cska-fanat-kz

Кто-то еще сегодня не выспался )))

Вот это

|    РеализацияТоваровУслугУслуги.Ссылка.Комментарий ПОДОБНО ""Приходный кассовый ордер""

надо выкинуть...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Nail2010

Мне важно что бы это просто работало, я даже 2 разных запроса просто сделаю, один с условием КОММЕНТАРИЙ ПОДОБНО "ПКО" а второй (НЕ Комментарий ПОДОБНО "ПКО").
Клякса, код после запроса, присланный тобой, оставлять без изменений?

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

Nail2010

Запрос.УстановитьПараметр("НачПериода",НачПериода);<BR>Запрос.УстановитьПараметр("КонПериода",КонПериода);<BR>Запрос.УстановитьПараметр("Комментарий","Приходный кассовый ордер");<BR><BR>Выборка=Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);<BR><BR>ДописываемыйПланСчетов=ПланыСчетов.Хозрасчетный.ПрибылиИУбыткиЕНВД;<BR><BR>Пока Выборка.Следующий() цикл<BR>     Объект=Выбока.Ссылка.ПолучитьОбъект();<BR>     ВыборкаПоДоку=Выборка.Выбрать();<BR>     Пока ВыборкаПоДоку.Следующий() цикл<BR>           Если ВыборкаПоДоку.ТабЧасть=1 тогда<BR>           Строка=?(ВыборкаПоДоку.ТабЧасть=1,Объект.Товары[ВыборкаПоДоку.НомерСтроки],Объект.Услуги[ВыборкаПоДоку.НомерСтроки]);<BR>           Строка.СчетДоходовБУ=ДописываемыйПланСчетов;<BR>     КонецЦикла;<BR>     Объект.Записать();<BR>КонецЦикла;<BR>

Klyacksa

ЦитироватьКто-то еще сегодня не выспался )))
в точку ;)
да, из второй табличной части тоже надо выкинуть условие, разумеется.

ЦитироватьМне важно что бы это просто работало, я даже 2 разных запроса просто сделаю
Довели человека  :D

2Nail2010:
если мы убираем переменную "Комментарий" из запроса, то и задавать ее не надо. А так - оставляем :)
xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

Nail2010

А, ребята! Еще что важно - Комментарий - это не реквизит табЧасти!!!! Это реквизит самого документа.
Поэтому проверяемое условие- не  ВЫБОР КОГДА РеализацияТоваровУслугУслуги.Ссылка.Комментарий,
а
ВЫБОР КОГДА РеализацияТоваровУслуг.Ссылка.Комментарий (!!!).
Выходит, текст запроса опять по-другому надо делать...

Nail2010

И если не трудно, запостите пожалуйста текст Запроса ВМЕСТЕ с текстом кода...

Klyacksa

Нет, с Комментарием все правильно. У нас нет в рассмотрении таблицы РеализацияТоваровУслуг, у нас есть две - РеализацияТоваровУслугТовары и РеализацияТоваровУслугУслуги :)
xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

Klyacksa

Запрос.Текст="ВЫБРАТЬ
|    РеализацияТоваровУслугТовары.Ссылка КАК Ссылка,
|    РеализацияТоваровУслугТовары.НомерСтроки,
|    ВЫБОР КОГДА РеализацияТоваровУслугТовары.Ссылка.Комментарий ПОДОБНО ""Приходный кассовый ордер""
|         ТОГДА Значение(Планысчетов.Хозрасчетный.ПрибылиИУбыткиЕНВД)
|         ИНАЧЕ Значение(Планысчетов.Хозрасчетный.ПрибылиИУбыткиНеЕНВД)
|     КОНЕЦ КАК НовыйСчетДоходовБУ,
|      1 КАК ТабЧасть
|ИЗ
|    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
|ГДЕ
|    РеализацияТоваровУслугТовары.СчетДоходовБУ= Значение(ПланСчетов.Хозрасчетный.ПустаяСсылка)
|    И РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|    РеализацияТоваровУслугУслуги.Ссылка,
|    РеализацияТоваровУслугУслуги.НомерСтроки,
|    ВЫБОР КОГДА РеализацияТоваровУслугУслуги.Ссылка.Комментарий ПОДОБНО ""Приходный кассовый ордер""
|         ТОГДА Значение(Планысчетов.Хозрасчетный.ПрибылиИУбыткиЕНВД)
|         ИНАЧЕ Значение(Планысчетов.Хозрасчетный.ПрибылиИУбыткиНеЕНВД)
|     КОНЕЦ,
|      2
|ИЗ
|    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
|ГДЕ
|    РеализацияТоваровУслугУслуги.СчетДоходовБУ= Значение(ПланСчетов.Хозрасчетный.ПустаяСсылка)
|    И РеализацияТоваровУслугУслуги.Ссылка.Дата МЕЖДУ &НачПериода И &КонПериода
|ИТОГИ ПО
|    Ссылка";

Запрос.УстановитьПараметр("НачПериода",НачПериода);
Запрос.УстановитьПараметр("КонПериода",КонПериода);

Выборка=Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока Выборка.Следующий() цикл
    Объект=Выбока.Ссылка.ПолучитьОбъект();
    ВыборкаПоДоку=Выборка.Выбрать();
    Пока ВыборкаПоДоку.Следующий() цикл
          Строка=?(ВыборкаПоДоку.ТабЧасть=1,Объект.Товары[ВыборкаПоДоку.НомерСтроки],Объект.Услуги[ВыборкаПоДоку.НомерСтроки]);
          Строка.СчетДоходовБУ=ВыборкаПоДоку.НовыйСчетДоходовБУ;
    КонецЦикла;
    Объект.Записать();
КонецЦикла;

xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

cska-fanat-kz

2 Klyacksa,

Если не трудно напишите ему окончательный текст запроса...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Nail2010

Дело в том что реквизит Комментарий есть только в таблице " РеализацияТоваровУслуг".  - В таб.частях такого поля НЕТ....

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск