|
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) Ну так проверь, в чем вопрос-то.
Можешь даже так.
Попытка
Если Док.Контрагент = ЗначениеВВидеСтроки Тогда
Таб.ВывестиСекцию("Строка");
КонецЕсли;
Исключение
Сообщить("Вот ту лажанулся с доком : "+Док.ТекущийДокумент());
КонецПопытки
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший