7.7 Как перенести из 1с 7.7 в 8.3 номенклатуру

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем Raideres, 4 фев 2018.

  1. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    547
    Симпатии:
    1
    Баллы:
    29
    Подскажите как перенести из 1с 7.7 в 8.3 Розница 2.2 номенклатуру?
  2. nomad_irk
    Online

    nomad_irk Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.889
    Симпатии:
    1.029
    Баллы:
    204
    Написать правила обмена в КонвертацияДанных 2.х
  3. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    547
    Симпатии:
    1
    Баллы:
    29
    а через com?
  4. nomad_irk
    Online

    nomad_irk Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.889
    Симпатии:
    1.029
    Баллы:
    204
    без разницы каким способом выполнять обмен информацией, нужно согласование структур хранения данных в ИБ.
  5. kisol
    Offline

    kisol Профессионал в 1С

    Регистрация:
    25 июл 2012
    Сообщения:
    606
    Симпатии:
    81
    Баллы:
    54
    Из тис в розницу есть типовой перенос
    nsk1C нравится это.
  6. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Главное чтобы ТиС был не древний... Т.е. релиз, выпущенные не раньше октября 2017. Иначе будет ошибка
  7. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    547
    Симпатии:
    1
    Баллы:
    29
    тут же задам вопрос не переносится цена почему то как будто он ее не видет
    СпрНоменкл77 = ПодключаемаяБаза77.CreateObject("Справочник.Промтовары");


    ДокументУЦ83 = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокументУЦ83.Дата = ТекущаяДата();
    ДокументУЦ83.Согласован = Истина;
    ДокументУЦ83.Ответственный = Пользователи.ТекущийПользователь();
    ДокументУЦ83.Комментарий = "Документ введен автоматически при переносе данных";
    ВидЦены83 = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная");
    ТЧВидЦены83 = ДокументУЦ83.ВидыЦен.Добавить();
    ТЧВидЦены83.ВидЦены = ВидЦены83;

    СпрНоменкл77.ВыбратьЭлементы();
    Пока СпрНоменкл77.ПолучитьЭлемент()=1 Цикл
    Если СпрНоменкл77.ЭтоГруппа()>0 Тогда
    продолжить;
    КонецЕсли;
    Если СпрНоменкл77.ПометкаУдаления() <> 0 Тогда
    продолжить;
    КонецЕсли;
    //Если СокрЛП(СпрНоменкл77.ЦенаПродажи)<> 0 тогда
    // продолжить;
    //КонецЕсли;
    НоваяСтрока83 = ДокументУЦ83.Товары.Добавить();
    НоваяСтрока83.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(СпрНоменкл77.Наименование));
    НоваяСтрока83.ВидЦены = ВидЦены83.Ссылка;
    НоваяСтрока83.Цена = СпрНоменкл77.ЦенаПродажи;
    НоваяСтрока83.ЦенаИзмененаВручную = Истина;

    //ДокументУЦ83.Товары.Свернуть("Номенклатура, ВидЦены, Цена");
    КонецЦикла;
    upload_2018-2-6_13-13-50.png
    upload_2018-2-6_13-14-5.png
    upload_2018-2-6_13-14-25.png
  8. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Что за конфигурация 7.7? Цена скорее всего - периодический реквизит. Нужно использовать метод Получить
  9. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    547
    Симпатии:
    1
    Баллы:
    29
    неуспел отписать что нашел СпрНоменкл77.ЦенаПродажи.Получить()
    спасибо
  10. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Получить(ТекущаяДата())
  11. TopicStarter Overlay
    Raideres
    Offline

    Raideres Опытный в 1С

    Регистрация:
    9 фев 2016
    Сообщения:
    547
    Симпатии:
    1
    Баллы:
    29
    Еще один вопросик
    Заполняю оприходование из 7.7. в 8.3
    РегистрПромтовары77.ВыбратьИтоги();
    Пока РегистрПромтовары77.ПолучитьИтог()=1 Цикл // Не забываем, что надо указывать наименование!
    Если РегистрПромтовары77.Количество= 0 тогда
    продолжить;
    КонецЕсли;
    Если РегистрПромтовары77.Количество < 0 тогда
    продолжить;
    КонецЕсли;

    сделал проверку на 0 и на меньше 0

    все вроде хорошо но
    в созданном оприходование 83 появилась пустая строка- незаполено наименование но стоит каличество=1
    подскажите сделать проверку на такой случай
  12. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Если ПустоеЗначение(ТутаВашТовар)=1 Тогда
    Продолжить;
    КонецЕсли;