Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.508 RSS
←   Май 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 02-06-2005

Автор
Калашников О.А.

Статистика

2.508 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: 1С для программиста


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Тимошенко Дмитрий
Статус: Студент
Рейтинг: 133
∙ повысить рейтинг >> 		Владимир Лазурко
Статус: Практикант
Рейтинг: 52
∙ повысить рейтинг >> 		Анатолий Ясень
Статус: Студент
Рейтинг: 46
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 1015
от 16.05.2009, 15:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 425, Экспертов: 34
В номере:Вопросов: 1, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 166962: 1с 7.7 Как сгруппировать в отчете(макет) дублирующие строки? Контрагенты повторяються несколько раз, если убрать цикл по торговым агентам цифры выходят другие...

Вопрос № 166.962
1с 7.7
Как сгруппировать в отчете(макет) дублирующие строки?
Контрагенты повторяються несколько раз, если убрать цикл по торговым агентам цифры выходят другие

Приложение:

Отправлен: 11.05.2009, 15:34
Вопрос задал: Mansur manas
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Владимир Лазурко
Здравствуйте, Mansur manas!

Я вижу такое решение: сформируйте таблицу значений со структурой запроса, и вместо вывода ячейки таблицы записывайте данные в таблицу значений.
В каждой группировке запроса вместо вывода секции таблицы, создавайте новую строку таблицы.
Затем сверните по нужным колонкам и потом выведите на печать уже из таблицы значений:
Код:

ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Агент", "Справочник.ТорговыеАгенты);
ТЗ.НоваяКолонка("Контрагент", "Справочник.Контрагенты");
ТЗ.НоваяКолонка("СуммаДолга", "Число");

Ит.ВыбратьСубконто(ВидыСубконто.ТорговыеАгенты);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ТорговыеАгенты) = 1 Цикл
 ТекА
 гент=Ит.Субконто(ВидыСубконто.ТорговыеАгенты) ;
 ТЗ.НоваяСтрока();
 ТЗ.Агент = ТекАгент;
 Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);
 Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
  ТекПокупатель=Ит.Субконто(ВидыСубконто.Контрагенты);
  СуммаОтгр = 0; 
  ДатаОтгр = ДАТА(0);
  ТЗ.НоваяСтрока();
  ТЗ.Агент = ТекАгент;
  ТЗ.Контрагент = ТекПокупатель;
  Если (Ит.СНД()-Ит.СНК())>СуммаДолга Тогда
   СуммаДолг=СуммаДолг+(Ит.СНД()-Ит.СНК());
   ТЗ.НоваяСтрока();
   ТЗ.Агент
= ТекАгент;
   ТЗ.Контрагент = ТекПокупатель;
   ТЗ.СуммаДолга = СуммаДолг;
  КонецЕсли;
 КонецЦикла;
КонецЦикла;

Таб.Свернуть("Агент, Контрагент", "СуммаДолга");
ПечАгент="";
ПечКонтрагент=""

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
 Если ПечАгент<>ТЗ.Агент Тогда // сменилась группировка по агенту - выводим строку с новым агентом, сбрасываем счетчик стро
 к
  ПечАгент = ТЗ.Агент;
  Таб.ВывестиСекцию("Агент");
  ПП=0;
  Продолжить;
 КонецЕсли;
 Если ПечКонтрагент<>ТЗ.Контрагент Тогда  // сменилась группировка по контрагента - выводим строку с новым контрагентом
  ПечКонтрагент = ТЗ.Контрагент;
  Таб.ВывестиСекцию("Контрагент");
  Продолжить;
 КонецЕсли;
 // а теперь осталось только вывести строку
 ПП=ПП+1;
 Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.Показать();


Если Вам необходимо в таблице показать и промежуточные итоги по Агенту или Контрагенту, то в той строке ТЗ, которая формируется в начале обхода группировки, прописывайте значений суммы:

Код:

...
Пока Ит.ПолучитьСубконто(ВидыСубконто.То
 рговыеАгенты) = 1 Цикл
 ТекАгент=Ит.Субконто(ВидыСубконто.ТорговыеАгенты) ;
 ТЗ.НоваяСтрока();
 ТЗ.Агент = ТекАгент;
 ТЗ.СуммаДолга = Ит.СНД()-Ит.СНК()
...


Это лишь пример. Если Вам необходимо подсчитать всю сумму задолженности - можете использовать метод таблицы значений Итог.

Успехов!
С уважением, Владимир.
---------
И как хотите, чтобы с вами поступали люди, так и вы поступайте с ними. (Евангелие от Луки, 6:31, совр. перевод)
Ответ отправил: Владимир Лазурко (статус: Практикант)
Ответ отправлен: 11.05.2009, 17:38

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 248949 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Спасибо

    Отвечает: Piter
    Здравствуйте, Mansur manas!

    Вринципе технология моего решения ничем не отличается, кроме универсальности.
    Для себя я написал универсальную функцию СгруппироватьТаблицу и испльзую ее по мере надобности
    (Простенький пример ее использования есть в комментариях)

    Приложение:

    Ответ отправил: Piter (статус: 3-й класс)
    Ответ отправлен: 13.05.2009, 09:36

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249073 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное