Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Создание ОперацияБух
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Конфигурация "1С:Конвертация данных"
Irzik
При переходе на Бухгалтерия 2.0 никак не получается перенос ОперацииБух , точнее табличной части.
В правилах обмена уже использовался прием передачи через Входящие данные.
Помогите примером, кто сталкивался уже с таким. Спасибо
Anderson
Irzik @ Вчера, 14:17 необходимо зарегистрироваться для просмотра ссылки ,
А точнее можно вопрос описать. С какой конфигурации, с помощью какой конвертации переносите?
Irzik
Anderson @ Сегодня, 0:50 необходимо зарегистрироваться для просмотра ссылки ,
Переношу из Бухгалтерии 2.0 в Бухгалтерию 2.0. Использую КонвертациюДанных 2.
sava1
Там надо переносить движения документа. Нет там табличной части.
Irzik
В этом форуме была аналогичная тема необходимо зарегистрироваться для просмотра ссылки, но все равно не понятно.
При выгрузки файла структуры метаданных конфигурации я по регистрамБухгалтерия ставлю галочку "только у документов без проведения"..
Я не переношу движения документов, т.к. алгоритмы движения в базах отличаются. В частности при переносе документа Начисление Зарплаты" переношу просто документ, не провожу его и при этом хочу создать по какому-то алгоритму ОперацияБух, в которой будут нужные свернутые мне проводки. Сами движения в Регистре Бух я смогу сделать при загрузке, но но не понятно откуда их взять (набор данных)
sava1
Irzik @ Сегодня, 15:41 необходимо зарегистрироваться для просмотра ссылки ,
поставьте птичку на движения (метаданных) и в правилах конвертации документа увидите движения.
Irzik
необходимо зарегистрироваться для просмотра ссылки

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


Запрос.УстановитьПараметр("Регистратор", Источник);

    
    Хозрасчетный = Новый ТаблицаЗначений;
    Хозрасчетный.Колонки.Добавить("Содержание");
    //Хозрасчетный.Колонки.Добавить("СчетДт");
    //Хозрасчетный.Колонки.Добавить("СубконтоДт");
    //Хозрасчетный.Колонки.Добавить("СчетКт");
    //Хозрасчетный.Колонки.Добавить("СубконтоКт");
    Хозрасчетный.Колонки.Добавить("Организация");
    //Хозрасчетный.Колонки.Добавить("Сумма");
    //Хозрасчетный.Колонки.Добавить("Регистратор");

    ВходящиеДанные = Новый Структура("Дата, Организация, Содержание ");

    ВходящиеДанные.Дата = Источник.Дата;
    ВходящиеДанные.Организация = Источник.Организация;
       ВходящиеДанные.Содержание  = "Зарплата "+Источник;

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