1C Программирование и поддержка - [38] :: Прикладное программирование

St01en

Комментил все та же ошибка выполнения команды

Добавлено:
cybermerlin

Цитата:

скачал платную печатную форму там пароль на сам модуль.

Что за форма? Может на зеркале клуба профессионалов попросить можно.

Добавлено:
Вот сваял себе по первому вопросу код, который обрабатывает в документе Доставка строки с Клиентами, сравнивает путем запроса с регистром ВзаиморасчетыПокупателей на предмет долга, и выводит на печатную форму. Все бы хорошо, за исключением одного момента. Если в документе доставка присутствуют одинаковые контрагенты, допустим отгрузка им была произведена по двум направлениям - кондитерка и колбаса, то на печатную форму выводится дублируемая информация, то есть если дважды клиент в документе отгрузка, то дважды в печатной форме этот клиент и дважды повторяется перечень накладных по этим клиентам. Как избежать повторов в печатной форме?
Собственно сам код:

Код:

Процедура КасОтчЭксп()
    НачДата = Дата("01.01.1980");
    КонДата = ДатаДок;
    ДатаГлКр = ДатаДок-1;

    ТекстЗапроса = "
    |Период С НачДата По ДатаГлКр;
    |Контрагент = Регистр.ВзаиморасчетыПокупателей.Контрагент;
    |КредДокумент = Регистр.ВзаиморасчетыПокупателей.КредДокумент;
    |Долг = Регистр.ВзаиморасчетыПокупателей.Долг;
    |Группировка Контрагент;
    |Группировка КредДокумент;
    |Функция СуммаДолга = КонОст(Долг);";

    Запрос = СоздатьОбъект("Запрос");
    Запрос.Выполнить(ТекстЗапроса);

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("ДолгиКонтрагента");

    Таб.ВывестиСекцию("Шапка");

ТЗРасходные.ВыбратьСтроки();
    Пока ТЗРасходные.ПолучитьСтроку()>0 Цикл
    Пока Запрос.Группировка(1)=1 Цикл
    Если ТЗРасходные.Клиент=Запрос.Контрагент Тогда
    Если Запрос.Долг>0 Тогда
        Контрагент=Запрос.Контрагент;
    Иначе
        Продолжить;
    КонецЕсли;
    Иначе
    Продолжить;
    КонецЕсли;
        Таб.ВывестиСекцию("Контрагент");
    Пока Запрос.Группировка(2)=1 Цикл
    Если Запрос.Долг>0 Тогда
        КредДокумент=Запрос.КредДокумент;
        Долг=Запрос.Долг;
    Иначе
        Продолжить;
    КонецЕсли;
        Таб.ВывестиСекцию("Долг");

    КонецЦикла;
    КонецЦикла;
КонецЦикла;
    Таб.Опции(0);
    Таб.Показать();
КонецПроцедуры

Спасибо.

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101