Имя: Пароль:
1C
1C 7.7
v7: Помогите с отбором в журнале
0 anagk
 
01.11.12
11:10
Вот код, не могу почему здесь не могу выбрать по Контрагенту
Процедура Печать()
   Док = СоздатьОбъект("Документ");
   Док.ИспользоватьЖурнал("Счета",1);
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Печать");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
   Док.ВыбратьДокументы(НачалоИнтервала(),КонецИнтервала());
   Пока Док.ПолучитьДокумент() = 1 Цикл
       Если Док.Контрагент = ЗначениеВВидеСтроки Тогда
           Таб.ВывестиСекцию("Строка");
       КонецЕсли;
   КонецЦикла;
   Таб.ВывестиСекцию("Подвал");
   Таб.Показать("Печать Счета","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ
1 anagk
 
01.11.12
11:11
В "ЗначениеВВидеСтроки" заносится Наименование контрагента (строка)
2 Zmich
 
01.11.12
11:11
(0). Что есть ЗначениеВВидеСтроки?
3 anagk
 
01.11.12
11:12
на Док.Контрагент - ругается
4 VladZ
 
01.11.12
11:12
(0) Что больше: четыре мышки или два гуся?
5 anagk
 
01.11.12
11:12
На форме журнала текстовое поле куда заносим Нимаенование Контрагента
6 Zmich
 
01.11.12
11:13
(2). Тогда используй метод справочника НайтиПоНаименованию.
Строка <> Ссылка
7 Zmich
 
01.11.12
11:13
(6) к (1)
8 anagk
 
01.11.12
11:13
Док.Контрагент.Нимаенование - тоже не идет..
9 anagk
 
01.11.12
11:13
блин сори - Наименование
10 viktor_vv
 
01.11.12
11:14
Так у тебя в док попадают документы, в которых нет реквизита "Контрагент".
11 viktor_vv
 
01.11.12
11:16
(5) И почему бы на форму не кинуть поле с типом значения Справочник.Контаргенты ?
12 VladZ
 
01.11.12
11:16
(3) Добавить контроль на наличие данного реквизита.
13 anagk
 
01.11.12
11:16
как это нет РЕКВИЗИТА? ведь в форму списка журнала - попадает
14 anagk
 
01.11.12
11:17
сейчас попробуем с полем..Справочник.Контрагенты
15 Bahon
 
01.11.12
11:17
+10, да и журнал посмотри, сколько видов доков там, да и во всех ли есть этот реквизит
16 anagk
 
01.11.12
11:18
да есть, это проверял - обычным выводом без условия
17 viktor_vv
 
01.11.12
11:19
(13) Ну так проверь, в чем вопрос-то.

Можешь даже так.
Попытка
       Если Док.Контрагент = ЗначениеВВидеСтроки Тогда
           Таб.ВывестиСекцию("Строка");
       КонецЕсли;
Исключение
Сообщить("Вот ту лажанулся с доком : "+Док.ТекущийДокумент());
КонецПопытки