Подскажите где ошибка
Показывать по
10
20
40
сообщений
- 1
- 2
06.10.2006
12:12
#1
"Пожалуйста подскажите что делать.
Имеется текст запроса он работает, но по какому документу сформирован регистр не показывает, что нужно сделать?
ТекстЗапроса=ТекстЗапроса+"
|Товар=Регистр.НасосыРезерв.Насос;
|Двигатель=Регистр.НасосыРезерв.Двигатель;
|Уплотнение=Регистр.НасосыРезерв.Уплотнение;
|Плита=Регистр.НасосыРезерв.Плита;
|Подрезка=Регистр.Насосырезерв.ПодрезкаКолеса;
|Исполнение=Регистр.НасосыРезерв.Исполнение;
|Док = Регистр.НасосыРезерв.ТекущийДокумент;
|Колрез = Регистр.НасосыРезерв.Остаток;
|Товаровед = Регистр.НасосыРезерв.Товаровед;
|Контрагент = Регистр.НасосыРезерв.Контрагент;
|ЗарезервированоДо = Регистр.НасосыРезерв.ЗарезервированоДо;
|Группировка Товар упорядочить по Товар.Наименование;
|Группировка Двигатель Без Упорядочивания;
|Группировка Уплотнение Без Упорядочивания;
|Группировка Плита Без Упорядочивания;
|Группировка Подрезка Без Упорядочивания;
|Группировка Исполнение Без Упорядочивания;
|Группировка Товаровед Без Упорядочивания Без Групп;
|Группировка Док;
|Функция КонКолРез=КонОст(КолРез);
//|Условие (Товар в ВыбТовары);
//|Условие (Склад в ВыбСклад);
|";//}}ЗАПРОС
"
Имеется текст запроса он работает, но по какому документу сформирован регистр не показывает, что нужно сделать?
ТекстЗапроса=ТекстЗапроса+"
|Товар=Регистр.НасосыРезерв.Насос;
|Двигатель=Регистр.НасосыРезерв.Двигатель;
|Уплотнение=Регистр.НасосыРезерв.Уплотнение;
|Плита=Регистр.НасосыРезерв.Плита;
|Подрезка=Регистр.Насосырезерв.ПодрезкаКолеса;
|Исполнение=Регистр.НасосыРезерв.Исполнение;
|Док = Регистр.НасосыРезерв.ТекущийДокумент;
|Колрез = Регистр.НасосыРезерв.Остаток;
|Товаровед = Регистр.НасосыРезерв.Товаровед;
|Контрагент = Регистр.НасосыРезерв.Контрагент;
|ЗарезервированоДо = Регистр.НасосыРезерв.ЗарезервированоДо;
|Группировка Товар упорядочить по Товар.Наименование;
|Группировка Двигатель Без Упорядочивания;
|Группировка Уплотнение Без Упорядочивания;
|Группировка Плита Без Упорядочивания;
|Группировка Подрезка Без Упорядочивания;
|Группировка Исполнение Без Упорядочивания;
|Группировка Товаровед Без Упорядочивания Без Групп;
|Группировка Док;
|Функция КонКолРез=КонОст(КолРез);
//|Условие (Товар в ВыбТовары);
//|Условие (Склад в ВыбСклад);
|";//}}ЗАПРОС
"
06.10.2006
12:18
#2
Почему не показывает? Ведь если выбрать группировку Док, то Запрос.Док и будет документ, который сформировал движения. Если нет, то надо видеть текст кода , где обрабатыветься выполнение запроса
06.10.2006
12:43
#3
"Вот весь код
ТекстЗапроса=ТекстЗапроса+"
|Товар=Регистр.НасосыРезерв.Насос;
|Двигатель=Регистр.НасосыРезерв.Двигатель;
|Уплотнение=Регистр.НасосыРезерв.Уплотнение;
|Плита=Регистр.НасосыРезерв.Плита;
|Подрезка=Регистр.Насосырезерв.ПодрезкаКолеса;
|Исполнение=Регистр.НасосыРезерв.Исполнение;
|Док = Регистр.НасосыРезерв.ТекущийДокумент;
|Колрез = Регистр.НасосыРезерв.Остаток;
|Товаровед = Регистр.НасосыРезерв.Товаровед;
|Контрагент = Регистр.НасосыРезерв.Контрагент;
|ЗарезервированоДо = Регистр.НасосыРезерв.ЗарезервированоДо;
|Группировка Товар упорядочить по Товар.Наименование;
|Группировка Двигатель Без Упорядочивания;
|Группировка Уплотнение Без Упорядочивания;
|Группировка Плита Без Упорядочивания;
|Группировка Подрезка Без Упорядочивания;
|Группировка Исполнение Без Упорядочивания;
|Группировка Товаровед Без Упорядочивания Без Групп;
|Группировка Док;
|Функция КонКолРез=КонОст(КолРез);
|";//}}ЗАПРОС
Если Запрос.Выполнить(ТекстЗапроса)=0 тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка("Товар") = 1 Цикл
Пока Запрос.Группировка("Двигатель") = 1 Цикл
Пока Запрос.Группировка("Уплотнение") = 1 Цикл
Пока Запрос.Группировка("Плита") = 1 Цикл
Пока Запрос.Группировка("Подрезка") = 1 Цикл
Пока Запрос.Группировка("Исполнение") = 1 Цикл
МаркаНасоса_ = Запрос.Товар;
Двигатель_ = Запрос.Двигатель;
ТипСоединения = Запрос.Уплотнение.Родитель;
Плита_ = Запрос.Плита;
Таб.ВывестиСекцию("Строчка");
МаркаНасоса_ = """"; Двигатель_ = """";
ТипСоединения = """"; Плита_ = """"; КолНасосов_ = """";
Пока Запрос.Группировка("Товаровед") = 1 Цикл
Если ПустоеЗначение(Запрос.КонКолРез) = 0 Тогда
Товаровед_ = Запрос.Товаровед;
Получатель_ = Запрос.Контрагент;
Резерв_ = Запрос.КонКолРез;
Таб.ВывестиСекцию("Строчка3");
Товаровед_ = """"; Получатель_ = """"; Резерв_ = """";
Пока Запрос.Группировка("Док") = 1 Цикл
Документ_ = Запрос.Док;
Таб.ВывестиСекцию("Строчка3");
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Таб.Показать("Нормально");
"
ТекстЗапроса=ТекстЗапроса+"
|Товар=Регистр.НасосыРезерв.Насос;
|Двигатель=Регистр.НасосыРезерв.Двигатель;
|Уплотнение=Регистр.НасосыРезерв.Уплотнение;
|Плита=Регистр.НасосыРезерв.Плита;
|Подрезка=Регистр.Насосырезерв.ПодрезкаКолеса;
|Исполнение=Регистр.НасосыРезерв.Исполнение;
|Док = Регистр.НасосыРезерв.ТекущийДокумент;
|Колрез = Регистр.НасосыРезерв.Остаток;
|Товаровед = Регистр.НасосыРезерв.Товаровед;
|Контрагент = Регистр.НасосыРезерв.Контрагент;
|ЗарезервированоДо = Регистр.НасосыРезерв.ЗарезервированоДо;
|Группировка Товар упорядочить по Товар.Наименование;
|Группировка Двигатель Без Упорядочивания;
|Группировка Уплотнение Без Упорядочивания;
|Группировка Плита Без Упорядочивания;
|Группировка Подрезка Без Упорядочивания;
|Группировка Исполнение Без Упорядочивания;
|Группировка Товаровед Без Упорядочивания Без Групп;
|Группировка Док;
|Функция КонКолРез=КонОст(КолРез);
|";//}}ЗАПРОС
Если Запрос.Выполнить(ТекстЗапроса)=0 тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка("Товар") = 1 Цикл
Пока Запрос.Группировка("Двигатель") = 1 Цикл
Пока Запрос.Группировка("Уплотнение") = 1 Цикл
Пока Запрос.Группировка("Плита") = 1 Цикл
Пока Запрос.Группировка("Подрезка") = 1 Цикл
Пока Запрос.Группировка("Исполнение") = 1 Цикл
МаркаНасоса_ = Запрос.Товар;
Двигатель_ = Запрос.Двигатель;
ТипСоединения = Запрос.Уплотнение.Родитель;
Плита_ = Запрос.Плита;
Таб.ВывестиСекцию("Строчка");
МаркаНасоса_ = """"; Двигатель_ = """";
ТипСоединения = """"; Плита_ = """"; КолНасосов_ = """";
Пока Запрос.Группировка("Товаровед") = 1 Цикл
Если ПустоеЗначение(Запрос.КонКолРез) = 0 Тогда
Товаровед_ = Запрос.Товаровед;
Получатель_ = Запрос.Контрагент;
Резерв_ = Запрос.КонКолРез;
Таб.ВывестиСекцию("Строчка3");
Товаровед_ = """"; Получатель_ = """"; Резерв_ = """";
Пока Запрос.Группировка("Док") = 1 Цикл
Документ_ = Запрос.Док;
Таб.ВывестиСекцию("Строчка3");
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Таб.Показать("Нормально");
"
06.10.2006
12:52
#4
"А попробуй убрать проверку на нулевое количество остатка, что будет выдавать? :
Пока Запрос.Группировка("Товаровед") = 1 Цикл
//Если ПустоеЗначение(Запрос.КонКолРез) = 0 Тогда
Товаровед_ = Запрос.Товаровед;
Получатель_ = Запрос.Контрагент;
Резерв_ = Запрос.КонКолРез;
// Таб.ВывестиСекцию("Строчка3");
// Товаровед_ = """"; Получатель_ = """"; Резерв_ = """";
Пока Запрос.Группировка("Док") = 1 Цикл
Документ_ = Запрос.Док;
Таб.ВывестиСекцию("Строчка3");
КонецЦикла;
//КонецЕсли;
КонецЦикла;
"
Пока Запрос.Группировка("Товаровед") = 1 Цикл
//Если ПустоеЗначение(Запрос.КонКолРез) = 0 Тогда
Товаровед_ = Запрос.Товаровед;
Получатель_ = Запрос.Контрагент;
Резерв_ = Запрос.КонКолРез;
// Таб.ВывестиСекцию("Строчка3");
// Товаровед_ = """"; Получатель_ = """"; Резерв_ = """";
Пока Запрос.Группировка("Док") = 1 Цикл
Документ_ = Запрос.Док;
Таб.ВывестиСекцию("Строчка3");
КонецЦикла;
//КонецЕсли;
КонецЦикла;
"
06.10.2006
12:56
#5
"пробовал не помогает. Гланое остатки есть, а по каким документам не выводит, хотя эти документы существуют (естественно).
Если делать отчет типа
Таб = СоздатьОбъект("Таблица");
РегОстатки = СоздатьОбъект("Регистр.НасосыРезерв");
РегОстатки.ВременныйРасчет();
РассчитатьРегистрыНа('01.01.06');
РегОстатки.ВыбратьДвиженияСОстатками('06.10.06');
Пока РегОстатки.ПолучитьДвижение() = 1 Цикл
Насос_ = РегОстатки.Насос;
Остаток_ = РегОстатки.Остаток;
Документ_ = РегОстатки.ТекущийДокумент();
Таб.ВывестиСекцию("Строчка");
КонецЦикла;
Таб.Показать("Нормально");
то все нормаольно, а через запрос не хочет"
Если делать отчет типа
Таб = СоздатьОбъект("Таблица");
РегОстатки = СоздатьОбъект("Регистр.НасосыРезерв");
РегОстатки.ВременныйРасчет();
РассчитатьРегистрыНа('01.01.06');
РегОстатки.ВыбратьДвиженияСОстатками('06.10.06');
Пока РегОстатки.ПолучитьДвижение() = 1 Цикл
Насос_ = РегОстатки.Насос;
Остаток_ = РегОстатки.Остаток;
Документ_ = РегОстатки.ТекущийДокумент();
Таб.ВывестиСекцию("Строчка");
КонецЦикла;
Таб.Показать("Нормально");
то все нормаольно, а через запрос не хочет"
06.10.2006
13:03
#6
"А если вставить :
Таб = СоздатьОбъект("Таблица");
РегОстатки = СоздатьОбъект("Регистр.НасосыРезерв");
РегОстатки.ВременныйРасчет();
РассчитатьРегистрыНа('01.01.06');
РегОстатки.ВыбратьДвиженияСОстатками('06.10.06');
Пока РегОстатки.ПолучитьДвижение() = 1 Цикл
Насос_ = РегОстатки.Насос;
Остаток_ = РегОстатки.Остаток;
Товаровед_ = РегОстатки.Товаровед;
Документ_ = РегОстатки.ТекущийДокумент();
//
// и соотвественно в таблички вывести товароведа
//
Таб.ВывестиСекцию("Строчка");
КонецЦикла;
Таб.Показать("Нормально");
Что будет выводить?"
Таб = СоздатьОбъект("Таблица");
РегОстатки = СоздатьОбъект("Регистр.НасосыРезерв");
РегОстатки.ВременныйРасчет();
РассчитатьРегистрыНа('01.01.06');
РегОстатки.ВыбратьДвиженияСОстатками('06.10.06');
Пока РегОстатки.ПолучитьДвижение() = 1 Цикл
Насос_ = РегОстатки.Насос;
Остаток_ = РегОстатки.Остаток;
Товаровед_ = РегОстатки.Товаровед;
Документ_ = РегОстатки.ТекущийДокумент();
//
// и соотвественно в таблички вывести товароведа
//
Таб.ВывестиСекцию("Строчка");
КонецЦикла;
Таб.Показать("Нормально");
Что будет выводить?"
- 1
- 2
Читают тему
(гостей: 1)