1С, Изменение кодовых страниц, для корректного отображения информации из dbf-файлов, Не читаемые символы, ADO

1С

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"

Теги: 1С, Кодовые страницы, dbf, Нечитаемые символы, ADO

1С, Вывод в колонку формы списка регистра информации, не связанной с регистром, Форма списка, Регистр

1С

//Поле формы списка не связано с каким-либо измерением, ресурсом или реквизитом регистра
Процедура РегистрСведенийСписокПриВыводеСтроки(Элемент,ОформлениеСтроки,ДанныеСтроки)
ОформлениеСтроки.Ячейки["Организация"].УстановитьТекст
(ДанныеСтроки.КакойТоРеквизитРегистра.КакойТоРеквизитРеквизитаРегистра.Наименование);
КонецПроцедуры;

Теги: 1С, Форма списка, Регистр

1С, Вывод структуры в Табличный документ, Структура, Табличный документ

1С

Процедура ПоказатьСтруктуру(Структ) Экспорт
   ТабДок = Новый ТабличныйДокумент;
   ОбластьЗаголвка = ТабДок.ПолучитьОбласть(1, , 1, );
   ДетальнаяСтрока = ТабДок.ПолучитьОбласть(1, , 1, );
   КоличествоКолонок = 2;

   Область = ОбластьЗаголвка.Область(1, 1);
   Область.Текст = "Ключ";
   Область.ЦветФона = WEBЦвета.Желтый;

   Область = ОбластьЗаголвка.Область(1, 2);
   Область.Текст = "Значение";
   Область.ЦветФона = WEBЦвета.Желтый;

   ТабДок.Вывести(ОбластьЗаголвка);

   Для Каждого СтрокаСтруктуры Из Структ Цикл
       Область = ДетальнаяСтрока.Область(1, 1);
       Область.Текст = Строка(СтрокаСтруктуры.Ключ);

       Область = ДетальнаяСтрока.Область(1, 2);
       Область.Текст = Строка(СтрокаСтруктуры.Значение);

       ТабДок.Вывести(ДетальнаяСтрока);
   КонецЦикла;

   ТабДок.Показать();
КонецПроцедуры

Теги: 1С, Вывод структуры в Табличный документ, Структура, Табличный документ

1С, Вывод Таблицы Значений в Табличный документ, Таблица значений, Табличный документ

1С

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

   Для КолонкаТЗ = 0 По КоличествоКолонок - 1 Цикл
       Область = ОбластьЗаголвка.Область(1, КолонкаТЗ + 1);
       Область.Текст = ТабЗначений.Колонки[КолонкаТЗ].Имя;
       Область.ЦветФона = WEBЦвета.Желтый;
   КонецЦикла;
   ТабДок.Вывести(ОбластьЗаголвка);

   Для Каждого СтрокаТЗ Из ТабЗначений Цикл
       Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл
           Область = ДетальнаяСтрока.Область(1, ТекущееПоле + 1);
           Область.Текст = СтрокаТЗ[ТекущееПоле];
       КонецЦикла;
       ТабДок.Вывести(ДетальнаяСтрока);
   КонецЦикла;

   Если Показать Тогда
       ТабДок.Показать();
   КонецЕсли;

   Если Не ФайлКудаСохранять = Неопределено Тогда
       Попытка
           ТабДок.Записать(ФайлКудаСохранять, ТипФайлаТабличногоДокумента.XLS);
       Исключение
       КонецПопытки;
   КонецЕсли;
КонецПроцедуры

Теги: 1С, Вывод Таблицы Значений в Табличный документ, Таблица значений, Табличный документ

1С, Пустая дата, Дата = Неопределено, Дата = ""

1С

Если РеквизитДата = Дата("00010101000000") Тогда
Сообщить("РеквизитДата = Неопределено");
КонецЕсли;

Теги: 1С, Пустая дата, Дата, Неопределено

1С, иерархический справочник, проверить является ли справочник иерархическим, ВыбратьИерархически

1С

Попытка
   Справочники["ВидСправочника"].ВыбратьИерархически();
   Сообщить("Справочник иерархический");
Исключение
   Сообщить("Справочник не иерархический");
КонецПопытки;

Теги: 1С, иерархический справочник, проверить является ли справочник иерархическим, ВыбратьИерархически