0
serg-lom89
20.05.13
✎
13:53
|
Подскажиете пжл,нужно что бы разбивалось по складам на которые поступает.Сразу секция склад а под ним поставщики
у меня что то криво((
Если Контр.Выбран()=1 Тогда
ТекстЗапроса = ТекстЗапроса+"
|Условие(Контр=Контрагент);";
КонецЕсли;
Если ВыбМХ.Выбран()=1 Тогда
ТекстЗапроса = ТекстЗапроса+"
|Условие(ВыбМХ=Склад);";
КонецЕсли;
Если (Запрос.Выполнить(ТекстЗапроса)=0) Тогда
Возврат;
КонецЕсли;
Если Развернуто=0 Тогда
Таб.ИсходнаяТаблица("Кратко");
Таб.ПараметрыСтраницы(1,100,,10,10,10,10,,,1);
Иначе
Таб.ИсходнаяТаблица("Развернуто");
Таб.ПараметрыСтраницы(2,100,,10,10,10,10,,,1);
КонецЕсли;
Таб.ВывестиСекцию("Шапка");
ТекСклад="";
Ном=0;
Пока Запрос.Группировка("Контрагент")= 1 Цикл
Если ТекСклад="" тогда
ТекСклад=Запрос.Склад;
Таб.ВывестиСекцию("Склад");
КонецЕсли;
Если ТекСклад=Запрос.Склад тогда
ТекСклад=Запрос.Склад;
Таб.ВывестиСекцию("Склад");
КонецЕсли;
Ном=Ном+1;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итог");
в чем ошибка?
|
|
5
Mikeware
20.05.13
✎
14:01
|
ошибка там же, где и всегда.....
--------
зы. берешь карандаш, листок бумаги, и _выполняешь_ написанный тобой код... как будто компьютер - это ты... и тогда сразу поймешь, что ты сделал неправильно...
|
|