Примеры программирования 1С 8 - 1Code

1С 8.3 : Как загрузить табличный документ в таблицу значений

Функция ПолучитьТЗИзМакета(ТабДок, КолонкаИндекса = 1) Экспорт
    
    ТаблицаДанных = Новый ТаблицаЗначений;
    НомерКолонки = 0;
    Пока Истина Цикл
        НомерКолонки = НомерКолонки + 1;
        ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;
        Если ПустаяСтрока(ИмяКолонки) Тогда
            Прервать;
        КонецЕсли;        
        ТаблицаДанных.Колонки.Добавить(ИмяКолонки);
    КонецЦикла;
    
    СчетчикКолонок = НомерКолонки - 1;
    
    НомерСтроки = 1; ФлагПрерывания = Ложь;
    Пока Истина Цикл
        НомерСтроки = НомерСтроки + 1;
        Стр = ТаблицаДанных.Добавить();
        
        Для А = 1 ПО СчетчикКолонок Цикл
            ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;
            Если ПустаяСтрока(ТекстКолонки) Тогда
                Если А = КолонкаИндекса Тогда
                    Флагпрерывания = Истина;
                    ТаблицаДанных.Удалить(Стр);
                КонецЕсли;
            Иначе
                Стр[А - 1] = ТекстКолонки
            КонецЕсли;
            
            Если Флагпрерывания Тогда
                Прервать
            КонецЕсли;
        КонецЦикла;
        
        Если Флагпрерывания Тогда
            Прервать
        КонецЕсли;
    КонецЦикла;
    
    Возврат ТаблицаДанных
КонецФункции

Функция ПолучитьТЗИзМакета(ТабДок, КолонкаИндекса = 1) Экспорт

ТаблицаДанных = Новый ТаблицаЗначений;

НомерКолонки = 0;

Пока Истина Цикл

НомерКолонки = НомерКолонки + 1;

ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;

Если ПустаяСтрока(ИмяКолонки) Тогда

Прервать;

КонецЕсли;

ТаблицаДанных.Колонки.Добавить(ИмяКолонки);

КонецЦикла;

СчетчикКолонок = НомерКолонки - 1;

НомерСтроки = 1; ФлагПрерывания = Ложь;

Пока Истина Цикл

НомерСтроки = НомерСтроки + 1;

Стр = ТаблицаДанных.Добавить();

Для А = 1 ПО СчетчикКолонок Цикл

ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;

Если ПустаяСтрока(ТекстКолонки) Тогда

Если А = КолонкаИндекса Тогда

Флагпрерывания = Истина;

ТаблицаДанных.Удалить(Стр);

КонецЕсли;

Иначе

Стр[А - 1] = ТекстКолонки

КонецЕсли;

Если Флагпрерывания Тогда

Прервать

КонецЕсли;

КонецЦикла;

Если Флагпрерывания Тогда

Прервать

КонецЕсли;

КонецЦикла;

Возврат ТаблицаДанных

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

Второй вариант:

1С 8.3 : Как разбить строку с разделителями

Разделитель = ",";
    	Строки = СтрЗаменить("январь, февраль, март", Разделитель, Символы.ПС);
    	Для Индекс = 1 По СтрЧислоСтрок(Строки) Цикл
        Сообщить(СтрПолучитьСтроку(Строки, Индекс));
    	КонецЦикла;

Разделитель = ",";

Строки = СтрЗаменить("январь, февраль, март", Разделитель, Символы.ПС);

Для Индекс = 1 По СтрЧислоСтрок(Строки) Цикл

Сообщить(СтрПолучитьСтроку(Строки, Индекс));

КонецЦикла;

Устарело, в 8.3 следует использовать:

1С : Запрос. Как выгрузить справочник или ПВХ в дерево значений

Запрос = Новый Запрос();
   Запрос.Текст = 
   "ВЫБРАТЬ
   |    ПланВидовХарактеристик1.Ссылка КАК Реквизит1
   |ИЗ
   |    ПланВидовХарактеристик.ПланВидовХарактеристик1 КАК ПланВидовХарактеристик1
   |
   |УПОРЯДОЧИТЬ ПО
   |    Реквизит1 ИЕРАРХИЯ";
   
   Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

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

Запрос.Текст =

"ВЫБРАТЬ

| ПланВидовХарактеристик1.Ссылка КАК Реквизит1

|ИЗ

| ПланВидовХарактеристик.ПланВидовХарактеристик1 КАК ПланВидовХарактеристик1

|УПОРЯДОЧИТЬ ПО

| Реквизит1 ИЕРАРХИЯ";

Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

Индивидуальные ограничения (RLS) на план счетов

Регистр сведений «ДоступКБухгалтерскимСчетам» Измерения Пользователь Счет Ресурсы Чтение #ЧтениеСчет(«Ссылка») ЧтениеСчет

1С 8.3 : Как программно загрузить изображения (картинки) в реквизит объекта

Добавляем реквизит объекта “ДанныеКартинки” тип ХранилищеЗначения Добавляем в реквизит формы реквизи “СсылкаНаКартинку”, типа неограниченная строка Переносим его на форму и меняем вид на “Поле картинки”, свойство “РазмерКартинки”=АвтоРазмер Добавляем команду “ВыбратьИзображение”, переносим на форму и прописываем код обработки команды. пример:

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

У измерений регистра в свойствах проставить галку “Заполнять из данных заполнения” Примерный программный код:

1С 8.3 : Как получить предопределенное значение из клиента (перечисление, предопределенное значение справочника, предопределенный счет в плане счетов)

ТекущаяСтрока.ТехническоеСостояние = ПредопределенноеЗначение("Перечисление.ЛТПС_ТехническиеСостояния.Исправен");

1	ТекущаяСтрока.ТехническоеСостояние = ПредопределенноеЗначение("Перечисление.ЛТПС_ТехническиеСостояния.Исправен");

Описание: Возвращает ссылку на предопределенный элемент из предопределенных данных, прикладных перечислений и точек маршрута бизнес-процессов, а также значения системных перечислений. Доступность: Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер). Примечание: Результат выполнения кэшируется при первом обращении до изменения конфигурации или версии платформы.

1С 8.3 : Как выполнить создание на основании программно с открытием формы?

Обычно, в большинстве случаев когда объект вводится на основании, нужно открыть пользователю форму нового объекта, который введен на основании какого-то объекта. В этом случае достаточно просто передать параметр Основание в процедуру открытия формы:

ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка);
ОткрытьФорму("Документ.ПриходТовара.ФормаОбъекта", ПараметрыФормы);

1 2	ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка); ОткрытьФорму("Документ.ПриходТовара.ФормаОбъекта", ПараметрыФормы);

При этом отработает процедура ОбработкаЗаполнения в модуле объекта и, соответственно, те алгоритмы заполнения, которые в ней описаны.

1С 8.х : Как проверить принадлежность классу метаданных

Проверка принадлежности классу метаданных

Функция ПринадлежностьКлассуМетаданных(Класс, Объект) Экспорт
	Для Каждого МДОбъект Из Метаданные[Класс] Цикл
		Если МДОбъект = Объект Тогда
			Возврат Истина;
		КонецЕсли;
	КонецЦикла;
	Возврат Ложь;
КонецФункции // ПринадлежностьКлассуМетаданных()

Функция ПринадлежностьКлассуМетаданных(Класс, Объект) Экспорт

Для Каждого МДОбъект Из Метаданные[Класс] Цикл

Если МДОбъект = Объект Тогда

Возврат Истина;

КонецЕсли;

КонецЦикла;

Возврат Ложь;

КонецФункции // ПринадлежностьКлассуМетаданных()

1С 8.3 : Как определить пустую ссылку в запросе

Запрос.Текст =
    "ВЫБРАТЬ 
    |    усЕдиницыХранения.Ссылка
    |ИЗ
    |    Справочник.усЕдиницыХранения КАК усЕдиницыХранения

    // Пример 1. сравнение с не заполненным булевым значением:
    |ГДЕ
    |     усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь

    // Пример 2. но если это булево определено, то лучше так: // условие на отрицательное булево:
    |ГДЕ
    |     НЕ усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны

    // Пример 3. выборка по условию не заполненного поля, имеющего тип "справочник конкретного типа"
    |ГДЕ
    |    усЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.усОбластиОтбора.ПустаяСсылка)

    // Пример 3а. выборка по условию не заполненного поля, имеющего тип "документ конкретного типа"
    |ГДЕ
    |    НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент.ПустаяСсылка)

    // Пример 3б. выборка по условию не заполненного поля, имеющего тип "документы разных типов" (составное поле)
    |ГДЕ
    |    (НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент1.ПустаяСсылка)
    |    ИЛИ НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент2.ПустаяСсылка) 
    |    ИЛИ ...(и т.д. - последовательно перечисляем условия для всех возможных типов этого составного поля))
    
    // Пример 4. или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:
    |ГДЕ
    |    усЕдиницыХранения.Наименование > """"

    // Пример 5. если нужно выбрать документы конкретного типа, при составном типе данных, например в регистре "ВыполняемыеЗадания" ресурс "Задание" имеет составной тип, среди значений которого возможен документ "Отбор"
    |ГДЕ
    |    ВЫРАЗИТЬ(РегистрСведенийВыполняемыеЗадания.Задание КАК Документ.Отбор) ССЫЛКА Документ.Отбор

    // Пример 5а. Еще аналогичный пример, когда нужно выбрать документы конкретного типа
    |	ВЫБОР
    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.ПоступлениеТоваровУслуг) ССЫЛКА Документ.ПоступлениеТоваровУслуг
    |			ТОГДА ""ПоступлениеТоваровУслуг""
    |		КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.РеализацияТоваровУслуг) ССЫЛКА Документ.РеализацияТоваровУслуг
    |			ТОГДА ""РеализацияТоваровУслуг""
    |		ИНАЧЕ """"
    |	КОНЕЦ КАК ВидДокумента


    // Пример 6. выбор по условию не определенного значения:
    |ГДЕ
    |    СохраненныеНастройки.Пользователь = НЕОПРЕДЕЛЕНО

    // Пример 7. выбор по виду движения "Приход" регистра накопления, "Расход" - аналогично):
    |ГДЕ
    |    РегТоварыВРознице.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)


    // Пример 8. Как в запросе указать, что выполнять запрос не нужно (например, 
нужно программно в зависимости от какого-то условия вернуть пустой результат запроса - Запрос.Текст = СтрЗаменить(Запрос.Текст, "ГДЕ Док.Ссылка = &ДокументСсылка", "ГДЕ ЛОЖЬ");). 
Для этого достаточно добавить условие "Где Ложь". 
Кстати, независимо от объема запрашиваемых в выборке данных, такой запрос будет выполнен мгновенно.
    |ГДЕ ЛОЖЬ

    // Пример 9. Проверка на то, что результат выполнения запроса содержит данные:
    Если НЕ Запрос.Выполнить().Пустой() Тогда

    // Пример 10. выбор по условию не заполненной даты:
    |ГДЕ
    |    тбСтроки.ДатаОтмены = ДАТАВРЕМЯ(1, 1, 1)

Запрос.Текст =

"ВЫБРАТЬ

| усЕдиницыХранения.Ссылка

|ИЗ

| Справочник.усЕдиницыХранения КАК усЕдиницыХранения

// Пример 1. сравнение с не заполненным булевым значением:

|ГДЕ

| усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны = Ложь

// Пример 2. но если это булево определено, то лучше так: // условие на отрицательное булево:

|ГДЕ

| НЕ усЕдиницыХранения.РазрешитьОтборИзРезервнойЗоны

// Пример 3. выборка по условию не заполненного поля, имеющего тип "справочник конкретного типа"

|ГДЕ

| усЕдиницыХранения.АктивнаяОбластьОтбора = ЗНАЧЕНИЕ(Справочник.усОбластиОтбора.ПустаяСсылка)

// Пример 3а. выборка по условию не заполненного поля, имеющего тип "документ конкретного типа"

|ГДЕ

| НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент.ПустаяСсылка)

// Пример 3б. выборка по условию не заполненного поля, имеющего тип "документы разных типов" (составное поле)

|ГДЕ

| (НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент1.ПустаяСсылка)

| ИЛИ НашРегистрСведений.Документ = ЗНАЧЕНИЕ(Документ.НашДокумент2.ПустаяСсылка)

| ИЛИ ...(и т.д. - последовательно перечисляем условия для всех возможных типов этого составного поля))

// Пример 4. или наоборот, если нужно выбрать заполненное значение типа "строка", то поможет условие:

|ГДЕ

| усЕдиницыХранения.Наименование > """"

// Пример 5. если нужно выбрать документы конкретного типа, при составном типе данных, например в регистре "ВыполняемыеЗадания" ресурс "Задание" имеет составной тип, среди значений которого возможен документ "Отбор"

|ГДЕ

| ВЫРАЗИТЬ(РегистрСведенийВыполняемыеЗадания.Задание КАК Документ.Отбор) ССЫЛКА Документ.Отбор

// Пример 5а. Еще аналогичный пример, когда нужно выбрать документы конкретного типа

| ВЫБОР

| КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.ПоступлениеТоваровУслуг) ССЫЛКА Документ.ПоступлениеТоваровУслуг

| ТОГДА ""ПоступлениеТоваровУслуг""

| КОГДА ВЫРАЗИТЬ(агСоответствиеДокументов.ДокументБУ КАК Документ.РеализацияТоваровУслуг) ССЫЛКА Документ.РеализацияТоваровУслуг

| ТОГДА ""РеализацияТоваровУслуг""

| ИНАЧЕ """"

| КОНЕЦ КАК ВидДокумента

// Пример 6. выбор по условию не определенного значения:

|ГДЕ

| СохраненныеНастройки.Пользователь = НЕОПРЕДЕЛЕНО

// Пример 7. выбор по виду движения "Приход" регистра накопления, "Расход" - аналогично):

|ГДЕ

| РегТоварыВРознице.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)

// Пример 8. Как в запросе указать, что выполнять запрос не нужно (например,

нужно программно в зависимости от какого-то условия вернуть пустой результат запроса - Запрос.Текст = СтрЗаменить(Запрос.Текст, "ГДЕ Док.Ссылка = &ДокументСсылка", "ГДЕ ЛОЖЬ");).

Для этого достаточно добавить условие "Где Ложь".

Кстати, независимо от объема запрашиваемых в выборке данных, такой запрос будет выполнен мгновенно.

|ГДЕ ЛОЖЬ

// Пример 9. Проверка на то, что результат выполнения запроса содержит данные:

Если НЕ Запрос.Выполнить().Пустой() Тогда

// Пример 10. выбор по условию не заполненной даты:

|ГДЕ

| тбСтроки.ДатаОтмены = ДАТАВРЕМЯ(1, 1, 1)

1C 8.3 : БСП 2.2. Оптимальное чтение единичного реквизита (или нескольких через запятую реквизитов) объекта (например основного договора).

Разместить в общем модуле сервера (ОбщийМодульСервер) функцию, пример:

Функция ПолучитьОсновнойДоговор(Знач Контрагент) Экспорт

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

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

Функция ПолучитьОсновнойДоговор(Знач Контрагент) Экспорт

СтруктураДанных=ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Контрагент, "ОсновнойДоговор");//для нескольких: "Наименование, ИНН, КПП, ОсновнойДоговор"

Возврат СтруктураДанных.ОсновнойДоговор;

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

1C 8.2 : Как программно создать карту бизнес-процесса

Через объект XDTO достаточно просто со схемой работать. По крайней мере, достаточно наглядно код выглядит. При этом главное добавить точки, их расположение и координаты линий, а всякие цвета/шрифты можно и непосредственно в графической схеме задавать. Зато можно шестиугольные точки действия делать, например, если линий более 4 в point добавить 🙂

1С 8.3 : Нативная сериализация объектов 1С в XML (на примере таблицы значений)

ОбъектXDTO=СериализаторXDTO.ЗаписатьXDTO(ТаблицаЗначений);
	ЗаписьХМЛ= Новый ЗаписьXML;
	ЗаписьХМЛ.УстановитьСтроку();
	ФабрикаXDTO.ЗаписатьXML(ЗаписьХМЛ, ОбъектXDTO);
	ТекстXML=ЗаписьХМЛ.Закрыть();

ОбъектXDTO=СериализаторXDTO.ЗаписатьXDTO(ТаблицаЗначений);

ЗаписьХМЛ= Новый ЗаписьXML;

ЗаписьХМЛ.УстановитьСтроку();

ФабрикаXDTO.ЗаписатьXML(ЗаписьХМЛ, ОбъектXDTO);

ТекстXML=ЗаписьХМЛ.Закрыть();

1С 8.3 : Как регистрировать проблемы в журнале регистрации связанных с отсутствием прав на объекты у пользователей

&НаСервереБезКонтекста
Процедура УстановитьНаСервере()
	ОписанияОтказВДоступе=Новый Массив;
	
	ОтказВДоступе =
	Новый ОписаниеИспользованияСобытияОтказВДоступеЖурналаРегистрации;	
	ОписанияОтказВДоступе.Добавить(ОтказВДоступе);


	ИспользованиеСобытия = Новый ИспользованиеСобытияЖурналаРегистрации;
	ИспользованиеСобытия.Использование = Истина;
	ИспользованиеСобытия.ОписаниеИспользования = ОписанияОтказВДоступе;
	
	УстановитьИспользованиеСобытияЖурналаРегистрации(
	"_$Access$_.AccessDenied",
	ИспользованиеСобытия);
КонецПроцедуры

&НаСервереБезКонтекста

Процедура УстановитьНаСервере()

ОписанияОтказВДоступе=Новый Массив;

ОтказВДоступе =

Новый ОписаниеИспользованияСобытияОтказВДоступеЖурналаРегистрации;

ОписанияОтказВДоступе.Добавить(ОтказВДоступе);

ИспользованиеСобытия = Новый ИспользованиеСобытияЖурналаРегистрации;

ИспользованиеСобытия.Использование = Истина;

ИспользованиеСобытия.ОписаниеИспользования = ОписанияОтказВДоступе;

УстановитьИспользованиеСобытияЖурналаРегистрации(

"_$Access$_.AccessDenied",

ИспользованиеСобытия);

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

1С 8.х : Пример гениального запроса

"ВЫБРАТЬ
| Выбрать.Где
|ИЗ
| Справочник.Выбрать КАК Выбрать
|ГДЕ
| Выбрать.Где = &Где"

"ВЫБРАТЬ

| Выбрать.Где

|ИЗ

| Справочник.Выбрать КАК Выбрать

|ГДЕ

| Выбрать.Где = &Где"