Вход | Регистрация

1С:Предприятие ::

Метки: 

Конвертация данных. Договор в контрагентах.

Я
   ТутЯ
 
29.12.12 - 15:18
Доброго всем!
Переношу конфигурацию из 1с7.7 в 1с8.2. Все замечательно, кроме Договора и банковского счета в справочнике "Контрагенты".


В 1с7.7 в справочнике "Контрагенты" есть реквизиты "Номер договора"(Строка), "Дата договора"(Дата).
В 1с8.2 есть подчиненный справочник "Договоры".

Для ПКО "Контрагенты" создано ПКС:
источник- получить из входящих данных
приемник-"ДоговорПоУмолчанию"(ссылка на справочник.Договоры)
Правило конвертации "Договоры0002".
В "Перед выгрузкой" код:
Если Источник.ЭтоГруппа()=1 Тогда
    Отказ = 1;
ИначеЕсли Источник.ФлОбслуживаетсяПоДоговору = 0 Тогда
    Отказ = 1;
Иначе
    ИсходящиеДанные = СоздатьОбъект("СписокЗначений");
    ИсходящиеДанные.Установить("Владелец", Источник);  
    ИсходящиеДанные.Установить("Наименование", "Основной договор"); 
    ИсходящиеДанные.Установить("НомерДоговора", Источник.НомерДоговора); 
    ИсходящиеДанные.Установить("ДатаДоговора", Источник.ДатаДоговора); 
КонецЕсли;

В ПКО "Договоры0002" 
источник- пустой
приемник- СправочникСсылка.Договоры

в "Перед выгрузкой" Владелец
Значение = ВходящиеДанные.Получить("Владелец");

в "Перед выгрузкой" Наименование
Значение = ВходящиеДанные.Получить("Наименование");

"Перед выгрузкой" НомерДоговора
Значение = ВходящиеДанные.Получить("НомерДоговора");

"Перед выгрузкой" ДатаДоговора
Значение = ВходящиеДанные.Получить("ДатаДоговора");

Такая штука не работает. Подскажите, плиз, как надо.

С банковским счетом похожая ситуация.
 
 
   Aleksey
 
1 - 29.12.12 - 15:21
что то я не понял, а когда по твоему это правило должно отработать?
   ТутЯ
 
2 - 29.12.12 - 15:23
Когда выгружаю контрагентов
   ТутЯ
 
3 - 29.12.12 - 15:31
Оч прошу помочь...
   Mikhail Volkov
 
4 - 30.12.12 - 08:12
Какая-то древняя клюшка, вроде уже в 7.5 появились Договора и банковские счета. Попробуй вначале обновиться до последнего релиза...
   hhhh
 
5 - 30.12.12 - 09:02
(3) добавьте в 7.7 справочник Договоры
   Alex1979rak
 
6 - 30.12.12 - 11:59
(0) уточните параметры конфы, из которой выгружаете данные. что это за релиз?
   ТутЯ
 
7 - 04.01.13 - 13:57
Конфигурации самописанные. Вопрос закрыт.
Решение:
перед выгрузкой пишем 
Если Источник.ЭтоГруппа()=1 Тогда
    Отказ = 1;
ИначеЕсли Источник.ФлОбслуживаетсяПоДоговору = 0 Тогда
    Отказ = 1;
Иначе
    Значение = 1// точно не могу сказать надо или нет в данном случае
 
    ИсходящиеДанные = СоздатьОбъект("СписокЗначений");
    ИсходящиеДанные.Установить("Владелец", Источник);  
    ИсходящиеДанные.Установить("Наименование", "Основной"); 
    ИсходящиеДанные.Установить("НомерДоговора", Источник.НомерДоговора); 
    ИсходящиеДанные.Установить("ДатаДоговора", Источник.ДатаДоговора); 
    ВыгрузитьПоПравилу(,,ИсходящиеДанные,,"Договоры00002"); 
КонецЕсли;

Остается вопрос v8: Конвертация данных из строки в табличную часть.

Табличная часть заполняется, а подчинение не соображу где рисовать.


в ПКО Договоры00002 после загрузки:
Попытка
    Контра = Объект.Владелец.ПолучитьОбъект();     
    
    Сообщить("Договор:"+Объект.Ссылка+" Владелец: "+Контра);
 
    Контра.ДоговорПоУмолчанию = Объект.Ссылка; 
    Контра.Записать(); 
Исключение
КонецПопытки;
   ТутЯ
 
8 - 04.01.13 - 13:58
Сообщение (7) как-то перемешалось.
   ТутЯ
 
9 - 04.01.13 - 13:59
Текст в конце должен быть:

Остается вопрос v8: Конвертация данных из строки в табличную часть.

Табличная часть заполняется, а подчинение не соображу где рисовать.


Список тем форума
Рекламное место пустует Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует