Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Программное заполние производственного календаря , в самописной базе регл. заданием через COMОбъект из УПП          
AldemaH Подменю пользователя
сообщение 18.11.16, 13:54
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 1 раз
Рейтинг: 0

Есть база УПП в которой ведется регл. Производственный календарь. Пытаюсь по его данным заполнить взятый из упп в самописную конфу календарь с помощью регламентированного задания. Доступ и запрос в роди проверил - в норме.
Но толком не могу понять как теперь полученные данные правильно вложить во вновь добавленный календарь.
Ниже код проблемы начинаются на этапе работы с набором записей.

Подкинте идеи в чем проблема. Зам уже загонялся.

процедура загрузкаИзУпп2(днач,дкон) экспорт
    
    ПараметрСоединения = "Srvr=******;Ref=*****;Usr=******;Pwd=******";
    
    V8 = Новый COMОбъект("V83.COMConnector");
    Попытка
        ком = V8.Connect(ПараметрСоединения);
    Исключение
    КонецПопытки;
    
    датанач=началодня(днач);
    датаКон=КонецДня(дкон);
    
    Запрос = ком.NewObject("Запрос");
    Запрос.Текст ="ВЫБРАТЬ
    |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря КАК ДатаКалендаря,
    |    РегламентированныйПроизводственныйКалендарь.Год КАК Год,
    |    РегламентированныйПроизводственныйКалендарь.Пятидневка КАК Пятидневка,
    |    РегламентированныйПроизводственныйКалендарь.Шестидневка КАК Шестидневка,
    |    РегламентированныйПроизводственныйКалендарь.КалендарныеДни КАК КалендарныеДни,
    |    РегламентированныйПроизводственныйКалендарь.ВидДня КАК ВидДня
    |ИЗ
    |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
    |ГДЕ
    |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря МЕЖДУ &ДатаНач И &ДатаКон
    |";
    Запрос.УстановитьПараметр("ДатаНач", датанач);
    Запрос.УстановитьПараметр("ДатаКон", датаКон);
    
    Результат = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    
    //Сообщить(ВыборкаДетальныеЗаписи);
    НаборЗаписей = РегистрыСведений.РегламентированныйПроизводственныйКалендарь.СоздатьНаборЗаписей();
    //НаборЗаписей.Отбор.ДатаКалендаря.Установить(ВыборкаДетальныеЗаписи.ДатаКалендаря);
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            НовЗапись                      = НаборЗаписей.Добавить();
            НовЗапись.ВидДня             = ВыборкаДетальныеЗаписи.ВидДня;
            НовЗапись.Пятидневка         = ВыборкаДетальныеЗаписи.Пятидневка;
            НовЗапись.Год                = ВыборкаДетальныеЗаписи.Год;
            НовЗапись.КалендарныеДни     = ВыборкаДетальныеЗаписи.КалендарныеДни;
            НовЗапись.Шестидневка        = ВыборкаДетальныеЗаписи.Шестидневка;
            НаборЗаписей.Записать(Истина);
    КонецЦикла;    
    
конецпроцедуры

Vofka Подменю пользователя
сообщение 18.11.16, 14:04
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

Какая конкретно проблема? Или какая ошибка?

AldemaH Подменю пользователя
сообщение 18.11.16, 14:14
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 1 раз
Рейтинг: 0

Vofka @ Сегодня, 14:04 * ,
Если пишу в цикле "НаборЗаписей.Добавить();" выдает: Запись с такими ключевыми полями существует.
Пишу "НаборЗаписей.Получить();" выдает недостаточно фактических параметров.

Vofka Подменю пользователя
сообщение 18.11.16, 15:36
Сообщение #4

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

AldemaH, через НаборЗаписей, в данном случае, скорее всего у вас добавить ничего не получится. Добавляйте каждую запись через МенеджерЗаписи:

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Запись = РегистрыСведений.РегламентированныйПроизводственныйКалендарь.СоздатьМенеджерЗаписи();
   ...
   Запись.Записать(Истина);
КонецЦикла;


Ещё, наверное, у вас не заполнятся свойства ВидДня и остальные ссылочные, т.к. это ссылки из другой базы данных. Короче, если с этим буду проблемы, то поищите по форуму или в интернете, информации на этот счет хватает.

Спасибо сказали: AldemaH,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 24.04.24, 11:54
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!