Имя: Пароль:
1C
1С v8
Управление торговлей редакции 10.3
0 Анастасия77721
 
22.01.15
18:46
Добрый вечер подскажите пожалуйста нужно в печатной форме вывести Руководителя организации пишу запрос а он мне вместо руководителя выводит значение "Таблица значений " подскажите в чем ошибка

Вот код

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("Руководитель", Перечисления.ОтветственныеЛицаОрганизации.Руководитель);
Запрос.Текст =
"ВЫБРАТЬ
    |    ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница,
    |    ОтветственныеЛицаОрганизации.ОтветственноеЛицо,
    |    ОтветственныеЛицаОрганизации.ФизическоеЛицо,
    |    ОтветственныеЛицаОрганизации.Должность
    |ИЗ
    |    РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации
    |ГДЕ
    |     ОтветственныеЛицаОрганизации.ОтветственноеЛицо = &Руководитель";
    
    Результат = Запрос.Выполнить().Выгрузить();
    Пока Результат.Следующий() Цикл
        Если
            Результат.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Руководитель Тогда
Область.Параметры.ФИОРуководителя_ОРГ = Результат.ФизическоеЛицо;
КонецЕсли;
КонецЦикла;
1 Dmitry1c
 
22.01.15
18:47
Результат = Запрос.Выполнить().Выгрузить();

замени на

Результат = Запрос.Выполнить().Выбрать();
2 Анастасия77721
 
22.01.15
19:05
Спасибо спасибо спасибо большое все получилось!
3 Анастасия77721
 
22.01.15
19:09
Ещё вопросик а не подскажите как его теперь просклонять?
4 vermouth
 
22.01.15
19:17
(3) namedecl.dll применяется в 1С: Рознице 1 (наверно, и не только)- оттуда можно и украсть пример
5 Анастасия77721
 
22.01.15
19:22
А namedecl.dll это функция?
6 nordbox
 
22.01.15
19:25
Настя, а фотку???
7 nordbox
 
22.01.15
19:25
Решу проблему за 1 мин )))
8 nordbox
 
22.01.15
19:30
Почту смотри
9 vermouth
 
22.01.15
19:34
(5) это компонента
10 FIXXXL
 
22.01.15
19:55
(0) посмотрите в типовых печатных формах как это делается, не изобретайте лисапед
11 Анастасия77721
 
22.01.15
20:00
(8) Спасибо!
12 Анастасия77721
 
22.01.15
20:02
(6) Есть же фото?
13 Анастасия77721
 
23.01.15
11:00
А подскажите ещё пожалуйста по аналогии сделала запрос для  Вывода Директора Контрагента а он выдаёт пустое значение . помогите подалуйста очень надо
вот код

Запрос = Новый Запрос ;
    Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка_Справочник_КонтактныеЛицаКонтрагентов);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    КонтактныеЛицаКонтрагентов.Должность,
    |    КонтактныеЛицаКонтрагентов.КонтактноеЛицо
    |ИЗ
    |    Справочник.КонтактныеЛицаКонтрагентов КАК КонтактныеЛицаКонтрагентов
    |ГДЕ
    |    КонтактныеЛицаКонтрагентов.Ссылка = &ТекущийДокумент";
    Шапка = Запрос.Выполнить().Выбрать();
    Пока Шапка.Следующий() Цикл
        Если
            Шапка.Должность = "Директор"      Тогда
            Область.Параметры.Контрагент = Шапка.КонтактноеЛицо;
    
     КонецЕсли;
КонецЦикла;
14 polosov
 
23.01.15
11:12
(13) Изучай типовую

    Отбор = Новый Структура("СтруктурнаяЕдиница, ОтветственноеЛицо");
    Отбор.СтруктурнаяЕдиница = Договор.Владелец;
    Отбор.ОтветственноеЛицо   = Перечисления.ОтветственныеЛицаОрганизации.Руководитель;
    СрезПоследних   = РегистрыСведений.ОтветственныеЛицаОрганизации.СрезПоследних(ТекущаяДата(), Отбор);

    Если СрезПоследних.Количество() < 1 Тогда
        
        ОрганизацияДиректорСсылка = Неопределено;
    Иначе
        
        ОрганизацияДиректорСсылка     = СрезПоследних[0].ФизическоеЛицо;
    КонецЕсли;
15 anatoly
 
23.01.15
11:12
(13) Шапка.Должность какого типа?
16 Анастасия77721
 
23.01.15
11:25
(15) Текст
17 Otkr
 
23.01.15
11:27
Если СокрЛП(Шапка.Должность) = "Директор"
18 polosov
 
23.01.15
11:33
Ааа так тебе ответственное лицо контрагента надо.

    КонтактныеЛица                = УправлениеКонтактами.ОпределитьКонтактноеЛицоКонтрагента(Контрагент);

Ну и потом переберешь контактных лиц и у кого "Найти(СтрокаКонтактныхЛиц, "директор") <> 0" тот и директор
19 polosov
 
23.01.15
11:34
(18) Вернее
Найти(СтрокаКонтактныхЛиц.ДолжностьКонтактногоЛица, "директор") <> 0

Как-то так
20 Анастасия77721
 
23.01.15
12:39
(18) и (19) а можно поподробнее куда мне эти строки вставить?
21 polosov
 
23.01.15
13:14
(20)
КонтактныеЛица                = УправлениеКонтактами.ОпределитьКонтактноеЛицоКонтрагента(КонтрагентСсылка);

Дир = Неопределено;
Для Каждого СтрокаКонтактныхЛиц ИЗ КонтактныеЛица  Цикл

  Если Найти(СтрокаКонтактныхЛиц.ДолжностьКонтактногоЛица, "директор") <> 0 Тогда
Дир = СтрокаКонтактныхЛиц.КонтактноеЛицо;
Прервать;
КонецЕСли;

КонецЦикла;  

Область.Параметры.ФИОРуководителя_ОРГ = Результат.ФизическоеЛицо.Наименование;



Это вместо кода в (0)
22 polosov
 
23.01.15
13:16
+(21) Тьфу вместо (13)
23 polosov
 
23.01.15
13:18
+(21) И концовка вот так

Область.Параметры.Контрагент = ?(Дир=Неопределено,"",Дир);