Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[1С:Предприятие 7.7]

Можно ли в запросе определить поведен ли документ? (7.7, опер. учет)

IceBeerg
читатель
офлайн
Дата регистрации: 06.10.2004
Сообщений: 803
Пост №1
 
15.04.2011 17:14

"<pre>|ОбрабатыватьДокументы все;<br><br>...<br>|Удорожание = Документ.УдорожаниеТовара.ТекущийДокумент;<br><br>...<br>|Условие(Удорожание.Проведен()=0);<br>...</pre><br><br>Писшет: "Значение не представляет агрегатный объект: 2".<br>Собстевено, сабж."

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №2
 
15.04.2011 17:35

А сразу их отбирать?

IceBeerg
читатель
офлайн
Дата регистрации: 06.10.2004
Сообщений: 803
Пост №3
 
15.04.2011 17:40

"<pre> </pre><br>> А сразу их отбирать?<br>В запросе нужны документы не только данного вида, не проведенные, но и другие.<br>Пробовал через внешнюю функцию, не работает.<br><pre>Функция Проведено(ВхДок)<br> Док=СоздатьОбъект("Документ.УдорожаниеТовара");<br> Док.НайтиДокумент(ВхДок);<br> Возврат Док.Проведен();<br>КонецФункции<br>//<br>Процедура Сформировать()<br> Перем Запрос, ТекстЗапроса, Таб;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |Период с ВыбНачПериода по ВыбКонПериода;<br> |ОбрабатыватьДокументы все;<br> |Товар = Документ.УдорожаниеТовара.Товар, Документ.РасходнаяДолг.Товар, Документ.РасходнаяКредит1Эт.Товар, Документ.РасходнаяКредит2Эт.Товар, Документ.РасходнаяНал.Товар, Документ.РасходнаяРеализ.Товар, Документ.РасходнаяНалЧЛ.Товар;<br> |Количество = Документ.УдорожаниеТовара.Количество, Документ.РасходнаяДолг.Количество, Документ.РасходнаяКредит1Эт.Количество, Документ.РасходнаяКредит2Эт.Количество, Документ.РасходнаяНал.Количество, Документ.РасходнаяРеализ.Количество, Документ.РасходнаяНалЧЛ.Количество;<br> |Удорожание = Документ.УдорожаниеТовара.ТекущийДокумент;<br> |Расходная = Документ.РасходнаяДолг.ТекущийДокумент, Документ.РасходнаяКредит1Эт.ТекущийДокумент, Документ.РасходнаяКредит2Эт.ТекущийДокумент, Документ.РасходнаяНал.ТекущийДокумент, Документ.РасходнаяРеализ.ТекущийДокумент, Документ.РасходнаяНалЧЛ.ТекущийДокумент;<br> |Функция КоличествоСумма = Сумма(Количество);<br> |Группировка Товар без групп;<br> |Группировка Удорожание;<br> |Группировка Расходная;<br> |Группировка СтрокаДокумента;<br> |Условие(Проведено(Удорожание)=0);<br> |"//}}ЗАПРОС<br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> // Подготовка к заполнению выходных форм данными запроса<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> // Заполнение полей "Заголовок"<br> Таб.ВывестиСекцию("Заголовок");<br> Состояние("Заполнение выходной таблицы...");<br> Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);<br> Пока Запрос.Группировка(1) = 1 Цикл<br> // Заполнение полей Товар<br> Если Запрос.КоличествоСумма=0 Тогда<br> Продолжить;<br> КонецЕсли;<br> Таб.ВывестиСекцию("Товар");<br> Пока Запрос.Группировка(2) = 1 Цикл<br> // Заполнение полей Удорожание<br> Таб.ВывестиСекцию("Удорожание");<br> Пока Запрос.Группировка(3) = 1 Цикл<br> // Заполнение полей Расходная<br> Таб.ВывестиСекцию("Расходная");<br> Пока Запрос.Группировка(4) = 1 Цикл<br> // Заполнение полей СтрокаДокумента<br> Таб.ВывестиСекцию("СтрокаДокумента");<br> КонецЦикла;<br> КонецЦикла;<br> КонецЦикла;<br> КонецЦикла;<br> // Заполнение полей "Итого"<br> Таб.ВывестиСекцию("Итого");<br> // Вывод заполненной формы<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать", """");<br>КонецПроцедуры</pre><br><br>Прийдется все таки, действительно, сначала свормировать список не проведенных документов данного вида и потом уже в условии его использовать."

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №4
 
15.04.2011 17:47

"Не пора ли нам подумать о переходе на платформу 8 !? ;)"

IceBeerg
читатель
офлайн
Дата регистрации: 06.10.2004
Сообщений: 803
Пост №5
 
15.04.2011 18:06

"> Не пора ли нам подумать о переходе на платформу 8 !? ;)<br>Язык в процессе изучения, потом переписывание нестандартной конфы с 7.7 под 8, потом смена двух "полудохлых" ПК и переход. ;)"

Тэра
читатель
офлайн
Дата регистрации: 25.12.2008
Сообщений: 22390
Пост №6
 
15.04.2011 18:17

и вперед, в светлое будущее!

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №7
 
15.04.2011 22:57

жесть

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №8
 
15.04.2011 23:00

такой запрос может "зарабоатть" ?

Shwed
читатель
офлайн
Дата регистрации: 26.07.2006
Сообщений: 87
Пост №9
 
16.04.2011 09:51

"> > Не пора ли нам подумать о переходе на платформу 8 !? ;)<br>> Язык в процессе изучения, потом переписывание нестандартной конфы с 7.7 под 8, потом смена двух "полудохлых" ПК и переход. ;)<br> <br>и изучение языка заново в 8"

IceBeerg
читатель
офлайн
Дата регистрации: 06.10.2004
Сообщений: 803
Пост №10
 
18.04.2011 10:18

> такой запрос может "зарабоатть" ?<br>Да, не заработал, но это был тестовый варинт, никак не обработанный еще, только из построителя.

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация