Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 19:45

Обезличивание данных. Скрытие персональной информации. Нужна срочная помощь.

Автор Varlant1n, 13 окт 2020, 11:53

0 Пользователей и 2 гостей просматривают эту тему.

MuI_I_Ika

Работает - да, не работает - нет.

Если она не работает, то вы не можете определить локальные переменные.
Если работает, то можете.

Varlant1n

Цитата: MuI_I_Ika от 20 окт 2020, 10:41
Работает - да, не работает - нет.

Если она не работает, то вы не можете определить локальные переменные.
Если работает, то можете.

Тогда не работает

MuI_I_Ika

Тогда ставите точку останова здесь: Пока Выборка.Следующий() Цикл

И смотрите сколько элементов в выборке.

Varlant1n

Цитата: MuI_I_Ika от 20 окт 2020, 10:46
Тогда ставите точку останова здесь: Пока Выборка.Следующий() Цикл

И смотрите сколько элементов в выборке.

Всё так же пусто

MuI_I_Ika


Varlant1n


MuI_I_Ika


Varlant1n

Цитата: MuI_I_Ika от 20 окт 2020, 12:24
База файловая или серверная? отладка подключена?

Я попробовал над всем поработать и почти всё исправил, но теперь у меня новая ошибка: "{Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(44)}: Получение элемента по индексу для значения не определено
      Если ТипЗнч(МетаданноеОбъект[МетаданноеРеквизит.Имя]) = Тип("Строка") Тогда"


&НаКлиенте
Процедура КомандаСмерти(Команда)

КомандаСмертиНаСервере();

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

&НаСервере
Процедура КомандаСмертиНаСервере()

Для каждого МетаданныеСправочника Из Метаданные.Справочники Цикл

МассивСтандартныхРеквизитов = Новый Массив;

Для каждого НаименованияРеквизита Из МетаданныеСправочника.Реквизиты Цикл

МассивСтандартныхРеквизитов.Добавить(Новый Структура("Имя", НаименованияРеквизита));

КонецЦикла;


Выборка = Справочники[МетаданныеСправочника.Имя].Выбрать();
Пока Выборка.Следующий() Цикл

МетаданноеОбъект = Выборка.ПолучитьОбъект();


ОбезличиваниеДанных(МетаданноеОбъект, МассивСтандартныхРеквизитов);
            ОбезличиваниеДанных(МетаданноеОбъект, МетаданныеСправочника.Реквизиты);

КонецЦикла;

КонецЦикла;

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

&НаСервере
Процедура ОбезличиваниеДанных(МетаданноеОбъект, СтандартныеРеквизиты)

х = 1;

Для Каждого МетаданноеРеквизит Из СтандартныеРеквизиты Цикл

Если ТипЗнч(МетаданноеОбъект[МетаданноеРеквизит.Имя]) = Тип("Строка") Тогда

МетаданноеОбъект[МетаданноеРеквизит.Имя] = МетаданноеРеквизит.Имя + х;

х = х + 1

КонецЕсли;

КонецЦикла;

МетаданноеОбъект.Записать();

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

IL2016

Цитата: Varlant1n от 20 окт 2020, 16:44Я попробовал над всем поработать
вам нужно получать все ссылки каждого справочника.
сделайте это, и можете сдавать работу преподу.

MuI_I_Ika

Видимо надо так: ТипЗнч(МетаданноеОбъект.Реквизиты[МетаданноеРеквизит.Имя])

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск