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

Копирование данных из одного регистра сведений в другой

Автор ahmeda, 27 окт 2010, 04:59

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

ahmeda

Здравствуйте!
Подскажите пожалуйста, как скопировать содержимое регистра сведений в идентичный регистр той же базы (8.1).
Пробывал по аналогии со справочниками: выгрузить в XML получилось, а как залить (измерения, регистры) не пойму.
Измерения: Наименование, ЕдИзм;
Реквизит: Цена

Спасибо

Makifka

попробуйте обработку создать по загрузке из файла

progmikon

Цитата: Makifka от 27 окт 2010, 10:29
попробуйте обработку создать по загрузке из файла


Кстати, вариант.

Makifka

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

ahmeda

Цитата: Makifka от 27 окт 2010, 10:29
попробуйте обработку создать по загрузке из файла


да я и пытаюсь, только с кодом не получается

progmikon

Цитата: ahmeda от 27 окт 2010, 10:53
Цитата: Makifka от 27 окт 2010, 10:29
попробуйте обработку создать по загрузке из файла


да я и пытаюсь, только с кодом не получается
Посмотрите, пожалуйста тему https://forum-baza.ru/index.php?topic=5135.0. Там пример есть.

Если что-то не понятно - спрашивайте.

ahmeda

ДанныеXML = Новый ЧтениеXML;
ДанныеXML.ОткрытьФайл("Z:\kontragenty.xml");
Пока ДанныеXML.Прочитать() Цикл
   Пока ДанныеXML.Прочитать() Цикл
      Пока ДанныеXML.Прочитать() Цикл
         Если ВозможностьЧтенияXML(ДанныеXML) Тогда
            НовыйОбъект = ПрочитатьXML(ДанныеXML);
            НовыйОбъект.Записать();
         КонецЕсли;
      КонецЦикла;
   КонецЦикла;
КонецЦикла;
ДанныеXML.Закрыть();

Это код загрузки. А как указать что данные должны загрузиться в РегистрСведений.ОтпускныеЦены?
Я не объяснил свою схему: На общей форме я создал две кнопки:Кнопка1-выгрузка (работает), Кнопка2-загрузка (не работает)

progmikon


ahmeda

Цитата: progmikon от 27 окт 2010, 12:13
Код выгрузки какой?

Вот:

Процедура Кнопка3Нажатие(Элемент)
   Текст=Новый ТекстовыйДокумент;
    Выборка=РегистрыСведений.УстановкаЦен.Выбрать();
   Пока Выборка.Следующий() Цикл
    Стр=СтрЗаменить(Выборка.Номенклатура,Символ(34),"%квч%");
   ЕИ=Строка(Выборка.ЕдиницаИзмерения)+Символ(34);
   //Цена=Строка(Выборка.Цена)+Символ(34);
   Текст.ДобавитьСтроку(Стр+ЕИ);
   
КонецЦикла;
Текст.Записать("C:\11\текст.txt");
КонецПроцедуры

progmikon


Теги:

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

Рейтинг@Mail.ru

Поиск