Имя: Пароль:
1C
1С v8
Конвертация данных Документ уатКорректировкаЗаписейРегистров
0 spiller26
 
05.12.12
12:29
Регистр Накопления "уатОстаткиАгрегатов" остатки в новую посредствам формирования документа "уатКорректировкаЗаписейРегистров"
Источник (КА + УАТ)
Приемник (КА + УАТ Проф)
- ПКО "уатКЗР_ОстаткиАгрегатов"
Источник: пуст
Приемник: ДокументСсылка.уатКорректировкаЗаписейРегистров
- ПКС
Комментарий
Дата
уатОстаткиАгрегатов = "Набор движений регистра накопления"
ТаблицаРегистровНакопления = Табличная часть
- ПВД
ОстаткиАгрегатов = Произвольный алгоритм
Перед Обработкой

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

СтрокаРегистров = ИсходящиеДанные.ТаблицаРегистровНакопления.Добавить();
СтрокаРегистров.Имя = "уатОстаткиАгрегатов";
СтрокаРегистров.Представление = "Остатки агрегатов на складах (уат)";

//Запрос РегистрНакоплений.уатОстаткиАгрегатов.Остатка
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|    уатОстаткиАгрегатовОстатки.Склад,
|    уатОстаткиАгрегатовОстатки.СерияНоменклатуры,
|    уатОстаткиАгрегатовОстатки.КоличествоОстаток
|ИЗ
|    РегистрНакопления.уатОстаткиАгрегатов.Остатки КАК уатОстаткиАгрегатовОстатки";
Выборка = Запрос.Выполнить().Выбрать();
//
Пока Выборка.Следующий() Цикл
   СтрокаРН = ИсходящиеДанные.уатОстаткиАгрегатов.Добавить();
   СтрокаРН.Активность        = Истина;
   СтрокаРН.ВидДвижения        = "Приход";
   СтрокаРН.Период            = Параметры.ДатаОст;
   СтрокаРН.СерияНоменклатуры    = Выборка.СерияНоменклатуры;
   СтрокаРН.Склад                = Выборка.Склад;
   СтрокаРН.Количество        = Выборка.КоличествоОстаток;
   Сообщить(Выборка.СерияНоменклатуры);
КонецЦикла;    
//
ВыгрузитьПоПравилу(,,ИсходящиеДанные,,"уатКЗР_ОстаткиАгрегатов");

Выгружаю все ОК (заполняет, просматривал выгруженные данные xml)
После закрузки создается док, но нет Движений, ПУСТО.
Пробовал по аналогии с документом "КорректировкаЗаписейРегистров"
Где загвоздка? Помогите, плиз.
1 Naumov
 
05.12.12
12:31
и в куда ты выгружаешь? уатКорректировкаЗаписейРегистров - это тупо регистратор, не содержащий полезной информации.
2 spiller26
 
05.12.12
12:37
(1) Его можно использовать как ввод нач.остатков.
3 spiller26
 
05.12.12
13:00
Всё нашли проблему
В свойстве документа "уатКорректировкаЗаписейРегистров" Запись движения при проведении
стоит "Записывать выбранные"
-----------------------------------
нужно "Записывать модифицированные"

По аналогии с документом "КорректировкаЗаписейРегистров"

Убили пол дня.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой