Имя: Пароль:
1C
1С v8
Документ, Форма списка
,
0 YaNick
 
24.10.11
12:37
Платформа 8.2, Бухгалтерия
Есть Форма списка, нужно добавить колонку в которой должно размещаться не реквизит документа а его поле.
Как это реализовать подскажите пожалуйста?
1 Wobland
 
24.10.11
12:40
>не реквизит документа а его поле
жажду подробностей
2 DrShad
 
24.10.11
12:41
пошел за попкорном
3 FIXXXL
 
24.10.11
12:43
(1)телепатирую: вычисляемое поле формы
4 Wobland
 
24.10.11
12:43
(3) тогда вычислять ПриПолученииДанных()
5 aleks-id
 
24.10.11
12:43
дотелепатирую: вычисляемое поле формы "Долг контрагента"
6 Wobland
 
24.10.11
12:44
(5) шаман ;)
7 kosts
 
24.10.11
12:45
(5) Или остатки на складе
8 aleks-id
 
24.10.11
12:46
(7) это документ а не справочник ;)
9 kosts
 
24.10.11
12:47
(0) Что то в этом роде


Перем СоответствиеСчетовВалютныйЛи;
Перем Перечисления_СтатусПересчета_Manual;

Процедура ТабличноеПоле1ПриПолученииДанных(Элемент, ОформленияСтрок)
   
   Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
       ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
       Если ДанныеСтроки.СтатусПересчета = Перечисления_СтатусПересчета_Manual или
           (Не СоответствиеСчетовВалютныйЛи[Данныестроки.СчетДт] и Не СоответствиеСчетовВалютныйЛи[Данныестроки.СчетКт])
       тогда
       Иначе
       КонецЕсли;    
   КонецЦикла;

КонецПроцедуры

Перечисления_СтатусПересчета_Manual = Перечисления.СтатусПересчета.Manual;
СоответствиеСчетовВалютныйЛи = новый Соответствие;

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
              |    Хозрасчетный.Ссылка КАК Счет,
              |    Хозрасчетный.Валютный КАК Валютный
              |ИЗ
              |    ПланСчетов.Хозрасчетный КАК Хозрасчетный";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
   СоответствиеСчетовВалютныйЛи.Вставить(Выборка.Счет, Выборка.Валютный);    
КонецЦикла;
10 DrShad
 
24.10.11
12:51
(9) а в процедуре нельзя сразу проверить валютный счет или нет? нафига соответствие?
11 kosts
 
24.10.11
12:54
(10) Для плана счетов вполне, а для таблиц и регистров кэш увеличивает быстродействие.
12 kosts
 
24.10.11
12:57
+ к (9)

Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
   ДанныеСтроки = ОформлениеСтроки.ДанныеСтроки;
   ОформлениеСтроки.Ячейки.Остаток.УстановитьТекст("");
   ОформлениеСтроки.Ячейки.Остаток.УстановитьКартинку(БиблиотекаКартинок);
   ОформлениеСтроки.Ячейки.Остаток.УстановитьФлажок(Истина);
   ОформлениеСтроки.Ячейки.Остаток.ЦветТекста = WEBЦвета.Васильковый;
   ОформлениеСтроки.Ячейки.Остаток.ЦветФона = WebЦвета.Красный;
   ОформлениеСтроки.Ячейки.Остаток.АвтоВысотаЯчейки = Истина;
   ОформлениеСтроки.Ячейки.Остаток.ВысотаЯчейки = 3;
КонецЦикла;