Вывести историю по всем адресам либо по выбранному.

@MARI2 · Регистрация: 20.02.2017

Author24 — интернет-сервис помощи студентам

Может кто-нибудь знает что я делаю не так. Нужно вывести историю по всем адресам либо по выбранному.

1C

//*******************************************
 
Процедура Сформировать() 
тз = создатьОбъект("ТаблицаЗначений");
        тз.НоваяКолонка("Номер_заявки");
        тз.НоваяКолонка("Рабочий");
        тз.НоваяКолонка("Дата_начала");
        тз.НоваяКолонка("Дата_конца");
        тз.НоваяКолонка("Перенос");
 
    
    
Если ПустоеЗначение(выбАдрес)=1 Тогда
        ТекАдрес="все Адреса";
    Иначе
        ТекАдрес=выбАдрес;
        КонецЕсли;
 
 
        
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Таб.ВывестиСекцию("Шапка");
        тз.ВыбратьСтроки();
    
Пока тз.ПолучитьСтроку()=1 Цикл 
    
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Номер_заявки = Справочник.Время_работы.Номер_заявки;
|Рабочий = Справочник.Время_работы.Рабочий;
|Дата_начала = Справочник.Время_работы.Дата_начала;
|Дата_конца = Справочник.Время_работы.Дата_конца;
|Перенос = Справочник.Время_работы.Перенос;
|Адрес = Справочник.Адреса.Наименование;
//|Группировка  Номер_заявки;
|Условие(Адрес = ВыбАдрес);
|";
 
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
    Возврат;
КонецЕсли;  
 
Пока Запрос.Группировка() = 1 Цикл 
    тз.Номер_заявки = Запрос.Номер_заявки;
    тз.Рабочий = Запрос.Рабочий;
    тз.Дата_начала = Запрос.Дата_начала;
    тз.Дата_конца = Запрос.Дата_конца; 
    тз.Перенос = Запрос.Перенос; 
КонецЦикла;
 
//  Если ПустоеЗначение(выбАдрес) = 0 Тогда
    Таб.ВывестиСекцию("Строка_1"); //КонецЕсли;
        КонецЦикла; 
 
    Таб.Опции(0);
    Таб.Показать();        
КонецПроцедуры

@Xomych · 03.04.2017, 16:45

1C

1
2
3

|Адрес = Справочник.Адреса.Наименование; - это строка, а выбАдрес это ссылка
//|Группировка  Номер_заявки;
|Условие(Адрес = ВыбАдрес)

Поэтому

1C

1 2	Адрес = Справочник.Адреса.ТекущийЭлемент; \|Условие(Адрес = ВыбАдрес)

Вообще лучше писать условие так

1C

1	\|Условие (Адрес в ВыбАдрес)

Тогда можно и по выбранному и по группе и по всему справочнику, если не выбран

Добавлено через 6 минут
И да, Запрос в цикле это не тру, старайся избегать этого
Хотя, посмотрел внимательно у тебя вообще какой-то бред написан
нахрена тебе тз, если ты с ней ничего не делаешь, сразу из запроса не проще вывести? Но это сам смотри

Добавлено через 6 минут

1C

    тз = создатьОбъект("ТаблицаЗначений");
    тз.НоваяКолонка("Номер_заявки");
    тз.НоваяКолонка("Рабочий");
    тз.НоваяКолонка("Дата_начала");
    тз.НоваяКолонка("Дата_конца");
    тз.НоваяКолонка("Перенос");  
    
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = "
    |Номер_заявки = Справочник.Время_работы.Номер_заявки;
    |Рабочий = Справочник.Время_работы.Рабочий;
    |Дата_начала = Справочник.Время_работы.Дата_начала;
    |Дата_конца = Справочник.Время_работы.Дата_конца;
    |Перенос = Справочник.Время_работы.Перенос;
    |Адрес = Справочник.Адреса.ТекущийЭлемент;
    //|Группировка  Номер_заявки;
    |Условие(Адрес в ВыбАдрес);
    |";
     
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;  
     
    Пока Запрос.Группировка() = 1 Цикл 
        тз.НоваяСтрока();
        тз.Номер_заявки = Запрос.Номер_заявки;
        тз.Рабочий = Запрос.Рабочий;
        тз.Дата_начала = Запрос.Дата_начала;
        тз.Дата_конца = Запрос.Дата_конца; 
        тз.Перенос = Запрос.Перенос; 
    КонецЦикла;
    
    Если ПустоеЗначение(выбАдрес)=1 Тогда
        ТекАдрес="все Адреса";
    Иначе
        ТекАдрес=выбАдрес;
    КонецЕсли;
 
 
        
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Таб.ВывестиСекцию("Шапка");
                         
    //правда нахрена тебе тз, если ты с ней ничего не делаешь, сразу из запроса не проще вывести?
    тз.ВыбратьСтроки();
    Пока тз.ПолучитьСтроку()=1 Цикл 
    
 
//  Если ПустоеЗначение(выбАдрес) = 0 Тогда
        Таб.ВывестиСекцию("Строка_1"); //КонецЕсли;
    КонецЦикла; 
 
    Таб.Опции(0);
    Таб.Показать();

	03.04.2017, 16:45