Bсе - 1Code - Page 4

1С 8.3 : Как добавить произвольные кнопки в диалоге Вопрос и обработка их

Пример:

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

ПоказатьВопрос(Оповещение,
НСтр("ru = 'После удаления настроек форма будет открываться с настройками по умолчанию.'", "ru"),
	СписокКнопок, , Действие);

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

Действие = "ВыполнитьУдаление";

СписокКнопок = Новый СписокЗначений;

СписокКнопок.Добавить(Действие, НСтр("ru = 'Выполнить удаление'", "ru"));

СписокКнопок.Добавить(КодВозвратаДиалога.Отмена);

Оповещение = Новый ОписаниеОповещения(

"УдалитьВыполнитьВопросЗавершение", ЭтотОбъект, Действие);

ПоказатьВопрос(Оповещение,

НСтр("ru = 'После удаления настроек форма будет открываться с настройками по умолчанию.'", "ru"),

СписокКнопок, , Действие);

&НаКлиенте

Процедура УдалитьВыполнитьВопросЗавершение(Результат, Действие) Экспорт

Если Результат = Действие Тогда

УдалитьНаСервере();

ОбновитьСписокФорм();

ПрименитьФильтр();

ПоказатьОповещениеПользователя(НСтр("ru = 'Настройки удалены'", "ru"));

КонецЕсли;

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

1С 8.3 : Как проверить пересечения одного периода с другим

Если Макс(Начало1,Начало2) < Мин(Конец1,Конец2) Тогда
  Прересекаются = Истина;
Иначе
  Прересекаются = Ложь;
КонецЕсли;

Если Макс(Начало1,Начало2) < Мин(Конец1,Конец2) Тогда

Прересекаются = Истина;

Иначе

Прересекаются = Ложь;

КонецЕсли;

1С 8.3 : Как получить чистый текст из HTML

Построитель = Новый ПостроительDOM; ЧтениеHTML = Новый ЧтениеHTML; ЧтениеHTML.УстановитьСтроку(ЭтотОбъект.ТекстСообщенияHTML); ДокументHTML = Построитель.Прочитать(ЧтениеHTML); ЭтотОбъект.ТекстСообщенияЧистыйТекст=ДокументHTML.Тело.ТекстовоеСодержимое;

1С 8.3 : Как передать файл с сервера на клиент

Пример:

&НаКлиенте
Процедура ИнициироватьФайлШаблона()
ИмяФайлаНаСервере=ПолучитьXLSССервера();
	ИмяФайла=ПолучитьИмяВременногоФайла("xls");
	ПолучитьФайл(ИмяФайлаНаСервере, ИмяФайла, Ложь);
КонецПроцедуры

&НаКлиенте

Процедура ИнициироватьФайлШаблона()

ИмяФайлаНаСервере=ПолучитьXLSССервера();

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

ПолучитьФайл(ИмяФайлаНаСервере, ИмяФайла, Ложь);

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

1С 8.3 : Как передать файл с клиента на сервер

Пример:

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

&НаКлиенте

Процедура Загрузить(Команда)

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

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

1С 8.3 : В списке активных пользователей появилось приложение ImplAppID. Что это такое?

Это имя приложения имеет временный сеанс, который создается на время внутренних операций, выполняемых платформой до аутентификации пользователя ИБ, но требующих доступа к данным ИБ. Сеанс необходим, чтобы могли работать штатные механизмы проверки прав, сбора статистики и т.д.

1С 8.3 : СКД : Как получить значение текущей иерархии

Выбор
    Когда Уровень() > 0
        Тогда ВычислитьВыражение("Ссылка", , "Иерархия")
    Иначе Null
Конец

Выбор

Когда Уровень() > 0

Тогда ВычислитьВыражение("Ссылка", , "Иерархия")

Иначе Null

Конец

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

Пример:

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

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

//Вставить содержимое обработчика.

ПараметрыФормы = Новый Структура("Отбор,СформироватьПриОткрытии", Новый Структура("Документ,ИсходныйДокумент",Получитьпараметр(ПараметрКоманды),ИсходныйДокумент(ПараметрКоманды)),Истина);

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

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

1С 8.3 : Подключение своих форм вместо стандартных обработок 1C (недокументированная функция)

ДД = Новый ДвоичныеДанные("C:\Users\Alex\Desktop\ВнешняяОбработка1.epf");
    
НовЭлемент = Справочники.Обработка.СоздатьЭлемент();
НовЭлемент.Хранилище = Новый ХранилищеЗначения(ДД);
НовЭлемент.Записать();
      ExternalDataProcessors.Connect(ПолучитьНавигационнуюСсылку(НовЭлемент.Ссылка, "Хранилище"),"StandardActiveUsers", false);

ДД = Новый ДвоичныеДанные("C:\Users\Alex\Desktop\ВнешняяОбработка1.epf");

НовЭлемент = Справочники.Обработка.СоздатьЭлемент();

НовЭлемент.Хранилище = Новый ХранилищеЗначения(ДД);

НовЭлемент.Записать();

ExternalDataProcessors.Connect(ПолучитьНавигационнуюСсылку(НовЭлемент.Ссылка, "Хранилище"),"StandardActiveUsers", false);

или

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

Элемент формы «Дополнительный реквизит», имя складывается из Уникального идентификатора элемента справочника «НаборыДополнительныхРеквизитовИСведений» и уникального идентификатора записи плана видов характеристик «ДополнительныеРеквизитыИСведения», соответствующей «дополнительному реквизиту».

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

Чтобы выполнить перепроведение документов только по одному регистру, сохранив старые движения по остальным регистрам пишем запрос с выборкой необходимых нам документов, и в переборе его результатов вызываем процедуру перепроведения, представленную ниже…

1С 8.3 : Ошибка преобразования данных XDTO: Текст XML содержит недопустимый символ

ИСТОЧНИК ОШИБОК: Ситуации, когда возможно появление этой проблемы: — Обмен в распределенной базе данных. — Обновление конфигурации 1С. — Импорт из внешних источников в 1С. ПРОБЛЕМА: {Форма.Управляемая.Форма(1000)}: Ошибка при вызове метода контекста (ПолучитьСписокНаСервере) по причине: Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа. по причине: Ошибка преобразования данных XDTO: Запись значения свойства ‘v’: форма: Элемент имя: {http://v8.1c.ru/8.2/uobjects}v по причине: Текст XML содержит недопустимый символ в позиции 5 : ?{?{?U ВАРИАНТЫ РЕШЕНИЯ:

1С 8.3 : Где в 1С лежат файл(ы) лицензии

Файл лицензии (однопользовательской) лежит в каталоге C:\Documents and Settings\All Users\1C\1Cv8\conf или в каталоге: C:\ProgramData\1C\1Cv8\conf файл называется примерно так: 20120302155201.lic … В 8.2.14(528) платформа портила ключи при раздаче лицензий сервером (сам сталкивался). В 8.2.14(533) эту ошибку исправили.

1С 8.3 : Где выполняются модули (клиент/сервер), для чего они предназначены

Модуль управляемого приложения Предназначен в основном для того чтобы поймать момент запуска приложения и момент завершения работы. Здесь же находятся обработчики, которые позволяют перехватить внешнее событие от оборудования. В модуле управляемого приложения отслеживается именно интерактивный запуск системы. События модуля управляемого приложения срабатывают при запуске тонкого клиента, Веб-клиента и Толстого клиента управляемого приложения. В модуль упр. приложения можно попасть из палитры свойств корневого узла конфигурации или из контекстного меню вызванного на корневом узле конфигурации.

1С 8.3 : Ошибка: Попытка получения неинициализированного значения параметра сеанса

Версия 8.2.18.102 Получили такую же ошибку. Решили следующим образом Ишем строку с помошью запорса

SELECT [FileName]
,[Creation]
,[Modified]
,[Attributes]
,[DataSize]
,[BinaryData]
FROM [Имя базы].[dbo].[ConfigSave]
where FileName like '%commit%'and Attributes = 0 and DataSize = 0

SELECT [FileName]

,[Creation]

,[Modified]

,[Attributes]

,[DataSize]

,[BinaryData]

FROM [Имя базы].[dbo].[ConfigSave]

where FileName like '%commit%'and Attributes = 0 and DataSize = 0

Если нашлась, удаляем