Здравствуйте. При настройке 1С "Предприятие" возникла следующая проблема: при попытке "Обмена данными" (Обмен данными\Выгрузка счетов на оплату\Загрузка взаиморасчетов с клиентам) появляется вот такое сообщение:
Недопустимое значение параметра (параметр номер '1')


Процедура СформироватьТекстЗапросаИПолучитьЗагруженныеОбороты()
                       
   СКД = ПолучитьИзВременногоХранилища(АдресСКД);    // Отладчик ругается на эту строку.
   УстановитьПоляОтбораПоСКД(СКД);
   
   КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СКД));
   КомпоновщикНастроек.ЗагрузитьНастройки(СКД.НастройкиПоУмолчанию);
   КомпоновщикНастроек.Восстановить();
   
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
   МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СКД,
          КомпоновщикНастроек.ПолучитьНастройки(), , ,
          Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
   
   ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);
   
   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
   ТаблицаРезультатаКомпановки = ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
   
   ПостроительЗапроса = Новый ПостроительЗапроса();
   Источник = Новый ОписаниеИсточникаДанных(ТаблицаРезультатаКомпановки);
   ПостроительЗапроса.ИсточникДанных = Источник;
   ПостроительЗапроса.Выполнить();
   
   РезультатЗапроса = ПостроительЗапроса.Результат.Выбрать();
   
   Если НЕ СохранятьИзмененияПользователя Тогда
       Объект.Реализация.Очистить();
       Объект.Оплата.Очистить();
   Иначе
       мТаблицаОплат = Объект.Оплата.Выгрузить();
       Объект.Оплата.Очистить();
   КонецЕсли;
   
   Пока РезультатЗапроса.Следующий() Цикл
       
       Если НЕ СохранятьИзмененияПользователя Тогда
           Если РезультатЗапроса.ВидыДвиженийПриходРасход = Перечисления.CRM_ВидыДвиженийПриходРасход.Приход Тогда
               НоваяСтрока = Объект.Реализация.Добавить();
           ИначеЕсли РезультатЗапроса.ВидыДвиженийПриходРасход = Перечисления.CRM_ВидыДвиженийПриходРасход.Расход Тогда
               НоваяСтрока = Объект.Оплата.Добавить();
           КонецЕсли;
           ЗаполнитьЗначенияСвойств(НоваяСтрока, РезультатЗапроса);
           ДобавитьСвязанныеДокументы(РезультатЗапроса, РезультатЗапроса.ВидыДвиженийПриходРасход);
       Иначе // Скорректируем ТЧ Оплаты, т.к. в реализации было удаление строки
           Если РезультатЗапроса.ВидыДвиженийПриходРасход = Перечисления.CRM_ВидыДвиженийПриходРасход.Расход Тогда
               НоваяСтрока = Объект.Оплата.Добавить();
               ЗаполнитьЗначенияСвойств(НоваяСтрока, РезультатЗапроса);
               
               МассивСтрок = мТаблицаОплат.НайтиСтроки(Новый Структура("ИдентификаторДокумента, ИдентификаторКорДокумента",РезультатЗапроса.ИдентификаторДокумента,РезультатЗапроса.ИдентификаторКорДокумента));
               Если НЕ МассивСтрок.Количество() = 0 Тогда
                   НоваяСтрока.Счет = МассивСтрок[0].Счет;
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;
       
   КонецЦикла;
   
   Если НЕ мВремТаблицаРеализации.Количество() = 0 Тогда
       Для Каждого СтрокаРеализации ИЗ Объект.Реализация Цикл
           СтрокаТЗ = мВремТаблицаРеализации.Найти(СтрокаРеализации.ИдентификаторДокумента, "ИдентификаторДокумента");
           Если НЕ СтрокаТЗ = Неопределено Тогда
               СтрокаРеализации.Счет = СтрокаТЗ.Счет;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   
   Если НЕ мВремТаблицаОплаты.Количество() = 0 Тогда
       Для Каждого СтрокаОплаты ИЗ Объект.Оплата Цикл
           МасивСтрок = мВремТаблицаОплаты.НайтиСтроки(Новый Структура("ИдентификаторДокумента, ИдентификаторКорДокумента", СтрокаОплаты.ИдентификаторДокумента, СтрокаОплаты.ИдентификаторКорДокумента));
           Если НЕ МасивСтрок.Количество() = 0 Тогда
               СтрокаОплаты.Счет = МасивСтрок[0].Счет;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   
КонецПроцедуры



Служебные сообщения:

{Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения(154)}: Ошибка при вызове метода контекста (ПолучитьИзВременногоХранилища)
   СКД = ПолучитьИзВременногоХранилища(АдресСКД);    
Недопустимое значение параметра (параметр номер '1')



Прошу, помогите как можно скорее. Сам я в 1С лишь скромный эникейщик.

Собственно да, предугадал вопрос.

(16) А может это реквизит формы?

(18) Исходишь из логики: для чего нужна обработка? Что нужно получить для построения отчета? Пытаешься понять для чего нужен этот "АдресСКД"?

(21) -> (19)
(20) Верно построенное предположение. +1

Да вроде и там (Общие\общие формы) ничего такого не наблюдается.


Мда. Отчет-обработка.
> для чего нужен этот "АдресСКД"?
Понятия не имею, честно говоря.
Я имею ввиду, я даже не предполагаю, как он ДОЛЖЕН выглядеть.

(23) Отчет готовый есть? Что он должен формировать? Неужели не знаешь?

По идее это должен был быть импорт взаиморасчетов с клиентами.
(Ведомость и остатки). Есть пример, да.

(25) Уже не так все плохо. Копай дальше. )

(23) А глобальный поиск по конфе твоего "АдресСКД" делал?

>А глобальный поиск по конфе твоего "АдресСКД" делал?

Нет, конечно, ибо 1С изучал "давно и не правда". Как?

(28) )) Иконку "Папка с биноклем" видишь? Если - да, то это "Глобальный поиск".

"Есть папка с увеличительным стеклом", жмакнул, вот что нашло:

Поиск строки "АдресСКД"...
Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(154, 38) : СКД = ПолучитьИзВременногоХранилища(АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1095, 38) : СКД = ПолучитьИзВременногоХранилища(АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1139, 2) : АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1148, 38) : СКД = ПолучитьИзВременногоХранилища(АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1175, 2) : АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1274, 21) : Новый Структура("АдресСКД",АдресСКД));

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1274, 31) : Новый Структура("АдресСКД",АдресСКД));

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1277, 3) : АдресСКД = Результат.АдресСКД;

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1277, 24) : АдресСКД = Результат.АдресСКД;

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(270, 38) : СКД = ПолучитьИзВременногоХранилища(АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(277, 2) : АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(290, 2) : АдресСКД = Параметры.АдресСКД;

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(290, 23) : АдресСКД = Параметры.АдресСКД;

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(292, 38) : СКД = ПолучитьИзВременногоХранилища(АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(296, 52) : Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСКД)

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(313, 30) : СтруктураВозврата.Вставить("АдресСКД", АдресСКД);

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки.Форма.Модуль(313, 41) : СтруктураВозврата.Вставить("АдресСКД", АдресСКД);

Найдено вхождений: 17

(30) Лениво анализировать то, что ты тут постишь. Самому очень тяжело?

(30) Ну вот же:
Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1277, 3) : АдресСКД = Результат.АдресСКД;

Основная конфигурация Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаРаспределения.Форма.Модуль(1277, 24) : АдресСКД = Результат.АдресСКД;

Вот и смотри там, как этот АдресСКД получается, и для чего нужен :)))

Проблема в том, что для меня это в основном китайские иероглифы.
Точнее русские, но от этого только грустнее.




Ок, посмотрим-с.

(33) Тогда может тебе стоит забить на это, и позвать уже специалиста? :))))

Процедура Настройки(Команда)
   
   Результат = ОткрытьФормуМодально(
       "Обработка.CRM_ОбменДаннымиС1СБухгалтерия.Форма.ФормаНастройки",
           Новый Структура("АдресСКД",АдресСКД));
   
   Если Результат <> Неопределено Тогда
       АдресСКД = Результат.АдресСКД;
       СформироватьТекстЗапросаИПолучитьЗагруженныеОбороты();
       Модифицированность = Истина;
   КонецЕсли;
   
КонецПроцедуры

Цитируя мою начальницу "Я всё равно бы тыкалась по интернету, как и ты, а так хотя бы время свободное будет".

Собственно, сам-то я не сильно пряморукий писатель сайтов, но лучше у них просто нет.

(34)+100500 ))

>Если Результат <> Неопределено Тогда

Это вообще норма?

Если адрес хранилища, то скорее всего это путь к файлам. Посмотри на форме обработки нет ли реквизита с выбором файла или чего подобного?

Хм, кажется в общих формах формы "CRM_ОбменДаннымиС1СБухгалтерия" просто нет.

Где-то должен быть такой реквизит.

Есть поиск по ним?

(40) это не в общих формах - это в обработках

Ага, нашел.
Нет, у неё только реквизиты НачалоПериода, КонецПериода, УниверсальныйОбменДанными, ИмяФайлаОбмена, ДатаВыгрузкиДанных.

(44) есть реквизиты обработки, которую ты открываешь, а есть реквизиты формы - открываешь в этой обработке ФормуНастройки и переходишь на вкладку реквизиты.

(0) интересно, какого характера была "настройка". Может проще оттуда топать?

Ага, открыл. Есть.

Между объектом и компоновщиком настроек, тип "Строка".

И куда дальше тыкаться, добрые люди?

(49) Все ушли на обед. Я тоже скоро ухожу. )

(49) в (0) в реквизитах формы есть АдресСКД?

Да, есть!


offtop: Что ли самому потом пойти?

(52) открой модуль этой формы. Встань в самое начало и по Ctrl+F поищи АдресСКД. Место, где АдресСКД присваивается значение - "АдресСКД = ..."

в пользовательской открой и посмотри, он заполнен?

> открой модуль этой формы

Как, добрая душа?

>открой модуль этой формы
Ага, нашел, затупил, простите.

АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);


Вот это?

(57) поставь точку останова на этой строчке и посмотри заполнение параметра СКД.

> поставь точку останова на этой строчке
*тык F9* done!

>посмотри заполнение параметра СКД

Эм, поясни пожалуйста.

(59) смотри (5)

Что-то ни фига не происходит, оно просто выдаёт ошибку и продолжает работать дальше. (т.е. форма не вызывается, но и вылета нет).
И табло не вызывается по шифт+f9 теперь.

(61) варианты - конфигуратор закрыт. Если открыт - переоткрой всё снова, и поставь точку в этой строке. Если не заходит, поставь точку выше. Возможно (57) находится в другой процедуре и нужно поискать другое присвоение АдресСКД и там уже ставить точку и смотреть. Если ни то, ни другое - курить, почему не заходит в эту процедуру.

> Если ни то, ни другое - курить, почему не заходит в эту процедуру.

А возможно ли это закомментить и написать свое, аналогичное? Я имею ввиду, насколько там большая простыня должна быть?

(63) прежде чем что-то писать, нужно знать что писать.
лучше вспомнить, что в (0) настраивали

По идее - форму для "Загрузки взаиморасчетов с клиентам".

(65) Если больше присвоения АдресСКД в форме нет, то тогда в (57) смотри присвоение СКД, т.к. скорей всего что-то не присваивается. В какой процедуре находится?

(57) находится в "Сохранить настройки":



Процедура СохранитьНастройки()

   КомпоновщикНастроек.Восстановить();
   СКД = ПолучитьИзВременногоХранилища(АдресСКД);

   НастройкиСКД          = СКД.НастройкиПоУмолчанию;
   НастройкиКомпоновщика = КомпоновщикНастроек.ПолучитьНастройки();
   ОчиститьНастройкиКомпоновкиДанных(НастройкиСКД);
   СкопироватьНастройкиКомпоновкиДанных(НастройкиСКД, НастройкиКомпоновщика);

   АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);

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

(68) по Ctrl+F сделай поиск в модуле СохранитьНастройки - посмотри, в каких процедурах/функциях вызывается.

Вот здесь только:
Процедура ЗавершитьРедактирование(Команда)

   СохранитьНастройки();
   
   СтруктураВозврата = Новый Структура;
   СтруктураВозврата.Вставить("АдресСКД", АдресСКД);
   
   Закрыть(СтруктураВозврата);

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

В пользовательском режиме открой обработку Обработка.CRM_ОбменДаннымиС1СБухгалтерия (называется как в поле Синоним), посмотри, может что прояснится, какие-то параметры не установлены может.

>В пользовательском режиме
Т.е. не из конструктора?

просто 1с предприятие открой, открой эту обработку, найди какую-нибудь закладку, кнопку или что-нибудь с надписью "Настройки" и посмотри что там у тебя заполнено

*Вернулся с попкорном.

(73) отсыпь, я голодный)))

Так, нашел кнопку с надписью "настройки". Большую такую. И там до фига, но ничего про СКД что-то нема.

А сама обработка же не запускается, даже форма не появляется, тупо "Недопустимое значение параметра (параметр номер '1') ".

Кстати, господа, через 2 часа мой раочий день кончается, но завтра цирк продолжится.

*рабочий

(75) попробуй покурить правильное заполнение и сохранение настроек этой обработки

В этом проблема. Я по этой 1С CRM Стандарт мануалов вообще не нашел в инете. Может я что-то не так ищу? Или не знаю правильного названия?

(79) а, ну теперь понятно, откуда "настройка" из (0) пошла =)

Так объясните мне пожалуйста, в чем развязка этого детектива с 1С?)

так может на форме она имеет другое название. посмотри что-нибудь похожее или выложи ссыль на скан формы

+(82) формы настроек

+(81) или в конфигураторе полазай по полям формы настроек и через их свойства (ПКМ) смотри имя реквизита

И если что-то такое найду, что на что исправить?

если он в пользовательской пустой, то заполни. что вводить - уж извини, тебе лучше знать

Так, в пользовательской я его не нашел.
В реквизитах:
Имя: АдресСКД
Заголовок: Адрес СКД

Тип: Строка
Длина: 0


Основной реквизит - не выбрано.
Сохраняемые данные - не выбрано.

Функциональных опций - нет.
Проверка заполнения - не проверять.

(81) в (67) только пересохранение настроек. Должно быть где-то еще присвоение АдресСКД. Посмотри в процедурах ПриОткрытии и ПередОткрытием, и еще, кроме модуля формы, есть модуль объекта. ПКМ на обработку в дереве метаданных - открыть модуль объекта - там поищи присвоение АдресСКД.

Обработке я выбрал "Обмен данными 1С и т.п.", правой клавишей, модуль объекта - и девственно чистый лист распахнул свои объятья. Видимо опять не туда.

>процедурах ПриОткрытии и ПередОткрытием

А они-то где, добрый человек?

(89) вот в этой пусто? - Обработка.CRM_ОбменДаннымиС1СБухгалтерия?
ПриОткрытии и ПередОткрытием в модуле формы, но может и не быть.

отсылаю к (84) полазай по самой форме настроек, по свойствам всех полей найди эту долбаную "АдресСРМ" и глянь, какая надпись около него стоит на форме.

Да, оно пусто.

Процедура СкопироватьЭлементы(ПриемникЗначения, ИсточникЗначения, ПроверятьДоступность = Ложь, ОчищатьПриемник = Истина)
   
   Если ТипЗнч(ИсточникЗначения) = Тип("УсловноеОформлениеКомпоновкиДанных")
       Или ТипЗнч(ИсточникЗначения) = Тип("ВариантыПользовательскогоПоляВыборКомпоновкиДанных")
       Или ТипЗнч(ИсточникЗначения) = Тип("ОформляемыеПоляКомпоновкиДанных")
       Или ТипЗнч(ИсточникЗначения) = Тип("ЗначенияПараметровДанныхКомпоновкиДанных") Тогда
       
       СоздаватьПоТипу = Ложь;
       
   Иначе
       
       СоздаватьПоТипу = Истина;
       
   КонецЕсли;
   
   ПриемникЭлементов = ПриемникЗначения.Элементы;
   ИсточникЭлементов = ИсточникЗначения.Элементы;
   Если ОчищатьПриемник Тогда
       ПриемникЭлементов.Очистить();
   КонецЕсли;
   
   Для каждого ЭлементИсточник Из ИсточникЭлементов Цикл
       
       Если ТипЗнч(ЭлементИсточник) = Тип("ЭлементПорядкаКомпоновкиДанных") Тогда
           
           // Элементы порядка добавляем в начало
           Индекс = ИсточникЭлементов.Индекс(ЭлементИсточник);
           ЭлементПриемник = ПриемникЭлементов.Вставить(Индекс, ТипЗнч(ЭлементИсточник));
           
       Иначе
           
           Если СоздаватьПоТипу Тогда
               ЭлементПриемник = ПриемникЭлементов.Добавить(ТипЗнч(ЭлементИсточник));
           Иначе
               ЭлементПриемник = ПриемникЭлементов.Добавить();
           КонецЕсли;
           
       КонецЕсли;
       
       ЗаполнитьЗначенияСвойств(ЭлементПриемник, ЭлементИсточник);
       // В некоторых коллекциях необходимо заполнить другие коллекции
       Если ТипЗнч(ИсточникЭлементов) = Тип("КоллекцияЭлементовУсловногоОформленияКомпоновкиДанных") Тогда
           
           СкопироватьЭлементы(ЭлементПриемник.Поля, ЭлементИсточник.Поля);
           СкопироватьЭлементы(ЭлементПриемник.Отбор, ЭлементИсточник.Отбор);
           ЗаполнитьЭлементы(ЭлементПриемник.Оформление, ЭлементИсточник.Оформление);
           
       ИначеЕсли ТипЗнч(ИсточникЭлементов)    = Тип("КоллекцияВариантовПользовательскогоПоляВыборКомпоновкиДанных") Тогда
           
           СкопироватьЭлементы(ЭлементПриемник.Отбор, ЭлементИсточник.Отбор);
           
       КонецЕсли;
       
       // В некоторых элементах коллекции необходимо заполнить другие коллекции
       Если ТипЗнч(ЭлементИсточник) = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда
           
           СкопироватьЭлементы(ЭлементПриемник, ЭлементИсточник);
           
       ИначеЕсли ТипЗнч(ЭлементИсточник) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда
           
           СкопироватьЭлементы(ЭлементПриемник, ЭлементИсточник);
           
       ИначеЕсли ТипЗнч(ЭлементИсточник) = Тип("ПользовательскоеПолеВыборКомпоновкиДанных") Тогда
           
           СкопироватьЭлементы(ЭлементПриемник.Варианты, ЭлементИсточник.Варианты);
           
       ИначеЕсли ТипЗнч(ЭлементИсточник) = Тип("ПользовательскоеПолеВыражениеКомпоновкиДанных") Тогда
           
           ЭлементПриемник.УстановитьВыражениеДетальныхЗаписей (ЭлементИсточник.ПолучитьВыражениеДетальныхЗаписей());
           ЭлементПриемник.УстановитьВыражениеИтоговыхЗаписей(ЭлементИсточник.ПолучитьВыражениеИтоговыхЗаписей());
           ЭлементПриемник.УстановитьПредставлениеВыраженияДетальныхЗаписей(ЭлементИсточник.ПолучитьПредставлениеВыраженияДетальныхЗаписей ());
           ЭлементПриемник.УстановитьПредставлениеВыраженияИтоговыхЗаписей(ЭлементИсточник.ПолучитьПредставлениеВыраженияИтоговыхЗаписей ());
           
       КонецЕсли;
       
   КонецЦикла;
   
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьЭлементы(ПриемникЗначения, ИсточникЗначения, ПервыйУровень = Неопределено)
   
   Если ТипЗнч(ПриемникЗначения) = Тип("КоллекцияЗначенийПараметровКомпоновкиДанных") Тогда
       КоллекцияЗначений = ИсточникЗначения;
   Иначе
       КоллекцияЗначений = ИсточникЗначения.Элементы;
   КонецЕсли;
   
   Для каждого ЭлементИсточник Из КоллекцияЗначений Цикл
       
       Если ПервыйУровень = Неопределено Тогда
           ЭлементПриемник = ПриемникЗначения.НайтиЗначениеПараметра(ЭлементИсточник.Параметр);
       Иначе
           ЭлементПриемник = ПервыйУровень.НайтиЗначениеПараметра(ЭлементИсточник.Параметр);
       КонецЕсли;
       
       Если ЭлементПриемник = Неопределено Тогда
           Продолжить;
       КонецЕсли;
       
       ЗаполнитьЗначенияСвойств(ЭлементПриемник, ЭлементИсточник);
       Если ТипЗнч(ЭлементИсточник) = Тип("ЗначениеПараметраКомпоновкиДанных") Тогда
           
           Если ЭлементИсточник.ЗначенияВложенныхПараметров.Количество() <> 0 Тогда
               ЗаполнитьЭлементы(ЭлементПриемник.ЗначенияВложенныхПараметров, ЭлементИсточник.ЗначенияВложенныхПараметров, ПриемникЗначения);
           КонецЕсли;
           
       КонецЕсли;
       
   КонецЦикла;
   
КонецПроцедуры

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

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

&НаСервере
//Сохраняет настройки схемы компоновки
//
Процедура СохранитьНастройки()

   КомпоновщикНастроек.Восстановить();
   СКД = ПолучитьИзВременногоХранилища(АдресСКД);

   НастройкиСКД          = СКД.НастройкиПоУмолчанию;
   НастройкиКомпоновщика = КомпоновщикНастроек.ПолучитьНастройки();
   ОчиститьНастройкиКомпоновкиДанных(НастройкиСКД);
   СкопироватьНастройкиКомпоновкиДанных(НастройкиСКД, НастройкиКомпоновщика);

   АдресСКД = ПоместитьВоВременноеХранилище(СКД, Новый УникальныйИдентификатор);

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


////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   
   //crack start crack end// CRM_ЗащитаСервер.ПолучитьЗащищеннуюОбработку().ПриСозданиеНаСервере(ЭтаФорма, Отказ, СтандартнаяОбработка);
   
   АдресСКД = Параметры.АдресСКД;
   
   СКД = ПолучитьИзВременногоХранилища(АдресСКД);

   Если СКД <> Неопределено Тогда
       КомпоновщикНастроек.Инициализировать(
           Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСКД)
           );
       КомпоновщикНастроек.ЗагрузитьНастройки(СКД.НастройкиПоУмолчанию);
       КомпоновщикНастроек.Восстановить();
   КонецЕсли;
   
КонецПроцедуры

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ОСТАЛЬНЫХ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ ФОРМЫ

&НаКлиенте
Процедура ЗавершитьРедактирование(Команда)

   СохранитьНастройки();
   
   СтруктураВозврата = Новый Структура;
   СтруктураВозврата.Вставить("АдресСКД", АдресСКД);
   
   Закрыть(СтруктураВозврата);

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



И приоткрытии закрытии тоже нет.

вот и заполняй, там скорее всего диалог выбора файла

отсылаю к (84) полазай по самой форме настроек, по свойствам всех полей найди эту долбаную "АдресСРМ" и глянь, какая надпись около него стоит на форме

Нет, там не пусто. Там вообще какая-то левая форма с двумя memo-подобными полями и одной кнопочкой ОКэй.

можешь обработку на почту прислать?

С удовольствием, скажи только как.

Без проблем, скажи только как.

(95) ну вот же присвоение - АдресСКД = Параметры.АдресСКД;
Поставь там точку и запусти обработку в пользовательском режиме, как написано в (5), и по Shift+F9 посмотри содержание Параметры.АдресСКД или Параметры вообще.

в конфигураторе плавой клавишей на обработкук -> сохранить как внешнюю обработку, отчет, выбираешь место и вуаля. отошли на [email protected]

(100) посылаю.

(99) В том то и дело, что не переключается оно, не останавливается. И Shift+F9 никакой реакции не вызывает.

(101) ну а ты обработку в пользовательском режиме запускаешь?

Как же я её запущу, если форма её даже не вызывается, а ошибку выдает?

получил

Надеюсь то, что нужно отправил.

вроде да

(103) не знаю, что там за конфа. Через Операции - Обработки в пользовательском режиме, что нельзя?

> Через Операции - Обработки в пользовательском режиме, что нельзя?
Подробнее, пожалуйста.

а что за конфа, правда, а то у меня не открывается. совсем

(108) ну в пользовательском режиме в меню есть доступ к обработкам?

Ох, чувствую себя полнейшим идиотом. Что означает конфа?

Я не знаю как запустить пользовательский режим, простите меня.

Ох, было весело, расходимся до завтра. Спасибо за то, что возились со мной.

конфигурация какая. через "Справка" - "О программе"  можно посмотреть

Доброе утро всем, через час я буду на работе и шоу маст гоу он.

Конфигурация:

1С:CRM СТАНДАРТ, редакция 1.0 (1.0.6.2)
Copyright © ООО "1C", 2011. Все права защищены
(http://www.1c.ru)

Наименование: CRM

Режим: Файловый

(114) Запасся попкорном :)))

Ок, только что-то все дрессировщики разбежались, а через полчаса я либо забью на это (и мне дадут ещё более увлекательную задачу в 1С), либо кто-то придет и даст дельный совет здесь.