1С:Предприятие 8 - Заметки - 1Code

Автоматизация бизнес-процессов

Запуск регламентного задания в 1С програмно

Следующий код должен выполняться на сервере:

ИмяМетода = Метаданные.РегламентныеЗадания.ИМЯ_РЕГЛАМЕНТНОГО.ИмяМетода;

// Проверка, выполняется ли фоновое задание по очистке устаревших версий.
Отбор = Новый Структура;
Отбор.Вставить("ИмяМетода", ИмяМетода);
Отбор.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);
ФоновыеЗаданияОчистки = ФоновыеЗадания.ПолучитьФоновыеЗадания(Отбор);

Если ФоновыеЗаданияОчистки.Количество() = 0 Тогда

    НаименованиеФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
      НСтр("ru = 'Запуск вручную: %1'"), Метаданные.РегламентныеЗадания.ИМЯ_РЕГЛАМЕНТНОГО.Синоним);
    ФоновыеЗадания.Выполнить(ИмяМетода,,, НаименованиеФоновогоЗадания);

КонецЕсли;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

ИмяМетода = Метаданные.РегламентныеЗадания.ИМЯ_РЕГЛАМЕНТНОГО.ИмяМетода;

// Проверка, выполняется ли фоновое задание по очистке устаревших версий.

Отбор = Новый Структура;

Отбор.Вставить("ИмяМетода", ИмяМетода);

Отбор.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);

ФоновыеЗаданияОчистки = ФоновыеЗадания.ПолучитьФоновыеЗадания(Отбор);

Если ФоновыеЗаданияОчистки.Количество() = 0 Тогда

НаименованиеФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(

НСтр("ru = 'Запуск вручную: %1'"), Метаданные.РегламентныеЗадания.ИМЯ_РЕГЛАМЕНТНОГО.Синоним);

ФоновыеЗадания.Выполнить(ИмяМетода,,, НаименованиеФоновогоЗадания);

КонецЕсли;

Читать далее

GET-запрос к HTTP-серверу

Пример:

Заголовки=Новый Соответствие();
Заголовки.Вставить("Content-Type","application/xml");
Заголовки.Вставить("Accept","application/xml");

Запрос=Новый HTTPЗапрос();
Запрос.АдресРесурса="clients/list";
Запрос.Заголовки=Заголовки;

Соединение=Новый HTTPСоединение("api.yourserver.ru");//таким образом полный URL запроса http://api.yourserver.ru/clients/list
Ответ=Соединение.Получить(Запрос);
КодСостояния=Ответ.КодСостояния;
СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();	

Если КодСостояния=200 тогда
	ЧтениеXML=Новый ЧтениеXML;
	ЧтениеXML.УстановитьСтроку(СтрокаОтвета);
	Попытка
		КонтрагентыСписокXDTO=ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ФабрикаXDTO.Тип("http://api.yourserver.ru/xdto","ClientList"));
	Исключение
		Сообщить(СформироватьСообщениеОбОшибке(ИнформацияОбОшибке()));
		Предупреждение("Сервер прислал плохие данные!");
		Возврат;
	КонецПопытки;
	//обработка объекта XDTO	
Иначе
	//обработка ошибочных кодов
КонецЕсли;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

Заголовки=Новый Соответствие();

Заголовки.Вставить("Content-Type","application/xml");

Заголовки.Вставить("Accept","application/xml");

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

Запрос.АдресРесурса="clients/list";

Запрос.Заголовки=Заголовки;

Соединение=Новый HTTPСоединение("api.yourserver.ru");//таким образом полный URL запроса http://api.yourserver.ru/clients/list

Ответ=Соединение.Получить(Запрос);

КодСостояния=Ответ.КодСостояния;

СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();

Если КодСостояния=200 тогда

ЧтениеXML=Новый ЧтениеXML;

ЧтениеXML.УстановитьСтроку(СтрокаОтвета);

Попытка

КонтрагентыСписокXDTO=ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ФабрикаXDTO.Тип("http://api.yourserver.ru/xdto","ClientList"));

Исключение

Сообщить(СформироватьСообщениеОбОшибке(ИнформацияОбОшибке()));

Предупреждение("Сервер прислал плохие данные!");

Возврат;

КонецПопытки;

//обработка объекта XDTO

Иначе

//обработка ошибочных кодов

КонецЕсли;

Читать далее

Чтение файлов Excel в таблицу значений (автоматическое наименование столбцов)

Функция считывает содержимое страницы файла Excel в таблицу значений, автоматически именует столбцы таблицы по первой строке файла. Пробелы заменяются на «».

&НаСервере
Функция ПодготовитьТаблицуСДанными(ФайлАдресВХранилище)
	
	ИмяФайлаСервер = ПолучитьИмяВременногоФайла(".xlsx");
	ФайлИмпорта = ПолучитьИзВременногоХранилища(ФайлАдресВХранилище);
	ФайлИмпорта.Записать(ИмяФайлаСервер);
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	Попытка
		ТабличныйДокумент.Прочитать(ИмяФайлаСервер, СпособЧтенияЗначенийТабличногоДокумента.Текст);
	Исключение
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
	КонецПопытки;	
	
	ПЗ = Новый ПостроительЗапроса;
	ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());
	ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;
	ПЗ.ЗаполнитьНастройки();
	ПЗ.Выполнить();
	
	ТаблицаПромежуточныхДанных = ПЗ.Результат.Выгрузить();
	
	Возврат	ТаблицаПромежуточныхДанных;
	
КонецФункции

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

&НаСервере

Функция ПодготовитьТаблицуСДанными(ФайлАдресВХранилище)

ИмяФайлаСервер = ПолучитьИмяВременногоФайла(".xlsx");

ФайлИмпорта = ПолучитьИзВременногоХранилища(ФайлАдресВХранилище);

ФайлИмпорта.Записать(ИмяФайлаСервер);

ТабличныйДокумент = Новый ТабличныйДокумент;

Попытка

ТабличныйДокумент.Прочитать(ИмяФайлаСервер, СпособЧтенияЗначенийТабличногоДокумента.Текст);

Исключение

Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = ОписаниеОшибки();

Сообщение.Сообщить();

КонецПопытки;

ПЗ = Новый ПостроительЗапроса;

ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область());

ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять;

ПЗ.ЗаполнитьНастройки();

ПЗ.Выполнить();

ТаблицаПромежуточныхДанных = ПЗ.Результат.Выгрузить();

Возврат ТаблицаПромежуточныхДанных;

КонецФункции

Читать далее

Работа с JSON — Запись JSON средствами 1С

JSON (англ. JavaScript Object Notation) — текстовый формат обмена данными. В платформе 1С 8.3 сущеструет ряд механизмов упрощающих формирование и чтение JSON формата. Ниже описан пример записи JSON средствами 1С с применением структуры данных. В результате мы должны получить файл следующего содержания:

{
    "Номенклатура": "Тапочки",
    "Цвет": "Зеленый",
    "Размер": 44,
    "НаличиеМагазины": [
        "На Петровского",
        "На Ленина",
        "На Луне"
    ],
    "Поставщик": false
}

1

2

3

4

5

6

7

8

9

10

11

{

"Номенклатура": "Тапочки",

"Цвет": "Зеленый",

"Размер": 44,

"НаличиеМагазины": [

"На Петровского",

"На Ленина",

"На Луне"

],

"Поставщик": false

}

Пример кода 1С:

Читать далее

Ошибка в 1С:Комплексной автоматизации, редакция 2 (версия 2.2.3.178): Поле объекта не обнаружено (ВключитьВУчетнуюПолитику)

Недавно столкнулся с следующей ошибкой: Поле объекта не обнаружено (ВключитьВУчетнуюПолитику) Ошибка возникает при открытии документа «Реализация товаров и услуг» под правами менеджера по продажам Причина ошибки в отсутствии соответствующего изображения в библиотеке картинок, но можно обойти эту ошибку не снимая конфигурацию с поддержки, достаточно временно включить пользователям роль: «Право изменения статусов проверки документов». А также новое в релизе:

Читать далее

1С 8.3.9 : Расширение конфигурации

Механизм расширения конфигурации – это специальный механизм, предназначенный для доработки расширяемой конфигурации без изменения этой конфигурации (в том числе без снятия с поддержки). При рассмотрении механизма расширения конфигурации будут использоваться следующие термины: Расширяемая конфигурация – основная конфигурация информационной базы, для которой применяется расширение или для которой расширение разрабатывается. Расширение конфигурации – набор объектов конфигурации, подключаемых к расширяемой конфигурации и содержащий набор объектов, добавляемых к расширяемой конфигурации. Расширение может включать в себя как объекты расширяемой конфигурации, так и объекты, которые отсутствуют в расширяемой конфигурации. Собственный объект – самодостаточный объект конфигурации, который может находиться как в расширяемой конфигурации, так и в расширении (отчет, обработка или подсистема). Заимствованный объект – собственный объект, добавленный в расширение конфигурации. Расширяемый объект – собственный объект, для которого в заимствованном объекте изменены какие-либо параметры (свойства, формы и т. д.). Расширяющий объект – это заимствованный объект, в который внесены изменения относительно расширяемого объекта. Наличие в заимствованном объекте только контролируемых свойств не делает заимствованный объект расширяющим. Результирующий объект – это собственный объект плюс объединение всех расширяющих объектов (если расширений несколько). Если для собственного объекта нет расширяющих объектов – он становится результирующим «без изменений». Т.е. в конфигурации, с которой работает пользователь – все объекты являются результирующими, вне зависимости от наличия и количества установленных расширений. Расширяющее свойство – свойство заимствованного объекта, которое изменяет одноименное свойство расширяемого объекта. Контролируемое свойство – свойство заимствованного объекта, значение которого проверяется при подключении расширения к расширяемой конфигурации. Если при подключении расширения (в режиме 1С:Предприятие) значение контролируемого свойства в расширении не совпадет со значением этого же свойства в расширяемой конфигурации, расширение не будет подключено. Модифицируемое свойство – свойство заимствованного объекта, значение которого в результирующем объекте будет получаться из расширения.

Читать далее

1С 8.3 : Создание нового элемента справочника с заполнением, подстановкой и с оповещением

Открываем форму нового элемента справочника «ВидыИсходящихДокументов» с параметрами для заполнения ряда реквизитов Также передаем в седьмом параметре описание оповещения с обработчиком, вызываемым при закрытии формы созданного договора:

&НаКлиенте
Процедура СоздатьДоговорЗаказчика(Команда)
	
	тПараметр = Новый Структура;
	
	ТекДок = Новый ОписаниеОповещения("ВыполнитьПослеЗаписиДоговора", ЭтотОбъект, тПараметр);
	
	СтруктураНачУстановок = Новый Структура;
	СтруктураНачУстановок.Вставить("Проект",       Объект.Ссылка);
	СтруктураНачУстановок.Вставить("Получатель",   Объект.Заказчик);
	СтруктураНачУстановок.Вставить("ВидДокумента", ПредопределенноеЗначение("Справочник.ВидыИсходящихДокументов.Договор"));
	
	ОткрытьФорму("Справочник.ИсходящиеДокументы.ФормаОбъекта", СтруктураНачУстановок, ЭтаФорма,,,,ТекДок);
	
КонецПроцедуры

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

&НаКлиенте

Процедура СоздатьДоговорЗаказчика(Команда)

тПараметр = Новый Структура;

ТекДок = Новый ОписаниеОповещения("ВыполнитьПослеЗаписиДоговора", ЭтотОбъект, тПараметр);

СтруктураНачУстановок = Новый Структура;

СтруктураНачУстановок.Вставить("Проект", Объект.Ссылка);

СтруктураНачУстановок.Вставить("Получатель", Объект.Заказчик);

СтруктураНачУстановок.Вставить("ВидДокумента", ПредопределенноеЗначение("Справочник.ВидыИсходящихДокументов.Договор"));

ОткрытьФорму("Справочник.ИсходящиеДокументы.ФормаОбъекта", СтруктураНачУстановок, ЭтаФорма,,,,ТекДок);

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

Обработчик, вызываемый при закрытии созданного договора:

Читать далее

1С 8.3 : Динамический список : Сгруппировать по реквизиту, изменить оформление по условию, программно установить отбор в динамическом списке

Как программно сгруппировать по реквизиту динамический список:

&НаКлиенте
Процедура СгруппироватьПоТипу(Команда)
ГруппировкаСписка = Список.Группировка.Элементы;
ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");
КонецПроцедуры

1

2

3

4

5

6

&НаКлиенте

Процедура СгруппироватьПоТипу(Команда)

ГруппировкаСписка = Список.Группировка.Элементы;

ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));

ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");

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

Как программно изменить оформление по условию в динамическом списке:

Читать далее

1С 8.3 : Как получить в структуру многомерные данные? Как собрать информацию по установленным в форме журнала отборам?…

Как получить в структуру многомерные данные? Как собрать информацию по установленным в форме журнала отборам?

СтруктураОтборов = Новый Структура; 
СтруктураПараметровОтбора = Новый Структура;

Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл 
Если ЭлементОтбора.Использование Тогда 
СтруктураПараметровОтбора.Очистить(); 
СтруктураПараметровОтбора.Вставить("Имя", ЭлементОтбора.Имя); 
СтруктураПараметровОтбора.Вставить("ВидСравнения", ЭлементОтбора.ВидСравнения); 
СтруктураПараметровОтбора.Вставить("Значение", ЭлементОтбора.Значение); 
СтруктураПараметровОтбора.Вставить("ЗначениеПо", ЭлементОтбора.ЗначениеПо); 
СтруктураПараметровОтбора.Вставить("ЗначениеС", ЭлементОтбора.ЗначениеС); 
СтруктураПараметровОтбора.Вставить("Представление", ЭлементОтбора.Представление); 
СтруктураПараметровОтбора.Вставить("ПутьКДанным", ЭлементОтбора.ПутьКДанным); 
СтруктураПараметровОтбора.Вставить("ТипЗначения", ЭлементОтбора.ТипЗначения); 

СтруктураОтборов.Вставить(ЭлементОтбора.Имя, СтруктураПараметровОтбора); 
КонецЕсли; 
КонецЦикла;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

СтруктураОтборов = Новый Структура;

СтруктураПараметровОтбора = Новый Структура;

Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл

Если ЭлементОтбора.Использование Тогда

СтруктураПараметровОтбора.Очистить();

СтруктураПараметровОтбора.Вставить("Имя", ЭлементОтбора.Имя);

СтруктураПараметровОтбора.Вставить("ВидСравнения", ЭлементОтбора.ВидСравнения);

СтруктураПараметровОтбора.Вставить("Значение", ЭлементОтбора.Значение);

СтруктураПараметровОтбора.Вставить("ЗначениеПо", ЭлементОтбора.ЗначениеПо);

СтруктураПараметровОтбора.Вставить("ЗначениеС", ЭлементОтбора.ЗначениеС);

СтруктураПараметровОтбора.Вставить("Представление", ЭлементОтбора.Представление);

СтруктураПараметровОтбора.Вставить("ПутьКДанным", ЭлементОтбора.ПутьКДанным);

СтруктураПараметровОтбора.Вставить("ТипЗначения", ЭлементОтбора.ТипЗначения);

СтруктураОтборов.Вставить(ЭлементОтбора.Имя, СтруктураПараметровОтбора);

КонецЕсли;

КонецЦикла;

Как определить, есть ли в структуре элемент с ключом «Контрагент», и если есть, но содержит пустое значение справочника или Неопределено — удалить этот элемент?

Читать далее

1С 8.3 : Как перебрать элементы структуры? Как удалить элемент структуры? Как в структуре установить значение для элемента с определенным ключом?

Как перебрать элементы структуры?

Для Каждого Элемент из СтруктураПараметров Цикл 
Сообщить(Элемент.Ключ + ": " + Элемент.Значение); 
КонецЦикла;

1

2

3

Для Каждого Элемент из СтруктураПараметров Цикл

Сообщить(Элемент.Ключ + ": " + Элемент.Значение);

КонецЦикла;

Как удалить элемент структуры?

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

1

2

3

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

Как в структуре установить значение для элемента с определенным ключом?

Читать далее

1С 8.3 : Как можно узнать версию БСП, встроенную в конфигурацию?

Для того, чтобы узнать версию БСП, встроенную в конфигурацию необходимо выполнить: СтандартныеПодсистемыСервер.ВерсияБиблиотеки()

Читать далее

1С 8.3 : Условное оформление программно

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

СписокЗначенийНоменклатуры = Новый СписокЗначений;
Для Каждого СтрокаТовар Из Объект.Товары Цикл
	
	Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда
		ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию(
												СтрокаТовар.НоменклатураНабора,
												Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());
													
		Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда								
			Продолжить;
		КонецЕсли;
		
		Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда
			СписокЗначенийНоменклатуры.Добавить(СтрокаТовар.Номенклатура);
		КонецЕсли;
		
	КонецЕсли;
	
КонецЦикла;

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);
Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт",      Новый Шрифт(,,Истина));
</strong>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

СписокЗначенийНоменклатуры = Новый СписокЗначений;

Для Каждого СтрокаТовар Из Объект.Товары Цикл

Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда

ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию(

СтрокаТовар.НоменклатураНабора,

Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());

Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда

Продолжить;

КонецЕсли;

Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда

СписокЗначенийНоменклатуры.Добавить(СтрокаТовар.Номенклатура);

КонецЕсли;

КонецЕсли;

КонецЦикла;

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();

ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);

ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");

ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);

Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина));

</strong>

Читать далее

1С 8.3 : СКД : Как передать параметры отбора СКС и сформировать отчет

&НаКлиенте
Процедура РабочийВариант(Команда)
	ИмяОтчета = "КассоваяКнигаБезВариантов";
	ПараметрыФормы = Новый Структура;
	ПараметрыФормы.Вставить("СформироватьПриОткрытии",Истина);
	ПараметрыФормы.Вставить("ПользовательскиеНастройки",ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета,Новый Структура("НачалоПериода",ТекущаяДата()),"КассоваяКнигаПоДокументам"));
	ОткрытьФорму("Отчет." + ИмяОтчета + ".Форма", ПараметрыФормы);
КонецПроцедуры

1

2

3

4

5

6

7

8

&НаКлиенте

Процедура РабочийВариант(Команда)

ИмяОтчета = "КассоваяКнигаБезВариантов";

ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("СформироватьПриОткрытии",Истина);

ПараметрыФормы.Вставить("ПользовательскиеНастройки",ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета,Новый Структура("НачалоПериода",ТекущаяДата()),"КассоваяКнигаПоДокументам"));

ОткрытьФорму("Отчет." + ИмяОтчета + ".Форма", ПараметрыФормы);

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

Читать далее

1С 8.3 : Как добавить дополнительную вычисляемую колонку в табличной части управляемой формы

Иногда возникает необходимость вывода в табличное поле документа (или любого другого объекта, имеющего табличную часть) дополнительных колонок с данными, которые не содержатся непосредственно в табличной части. Реализовать это на платформе 1С: Предприятие 8.1 или 8.2 в режиме обычного приложения (без использования управляемых форм) было достаточно просто, чего не скажешь об управляемых формах в 1С 8.2. Реализация на платформе 1С: Предприятие 8.1 В начале коротко о том, как добавить дополнительную колонку в табличное поле на платформе 1С 8.1. Предположим, что у нас есть некий документ с табличной частью “Товары” (с колонками “Номенклатура” и “Количество”) и нам нужно вывести дополнительную колонку “Цена”, которая бы содержала данные реквизита “Цена” элементов справочника “Номенклатура”, выбранных в строках табличной части. Для этого нам достаточно добавить в форме документа новую колонку “Цена” в табличное поле, содержащее данные табличной части документа и написать следующий код в обработчике события “ПриПолученииДанных” этого табличного поля:

// обработчик события "ПриПолученииДанных" табличного поля "Товары"
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
 Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
  Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;
  Если ЗначениеЗаполнено(Номенклатура) Тогда
   ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;
   ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");
  КонецЕсли;
 КонецЦикла;
КонецПроцедуры

1

2

3

4

5

6

7

8

9

10

// обработчик события "ПриПолученииДанных" табличного поля "Товары"

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл

Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;

Если ЗначениеЗаполнено(Номенклатура) Тогда

ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;

ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");

КонецЕсли;

КонецЦикла;

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

Хочу обратить внимание на то, что строки табличного поля обрабатываются порциями, по мере прокрутки списка. Реализация на платформе 1С: Предприятие 8.2

Читать далее

Как удалить пользователей из базы, не зная логина/пароля, но имея доступ к SQL

Надо очистить таблицу Users и в таблице Params удалить запись users.usr

Читать далее