Имя: Пароль:
1C
1С v8
Помогите с переносом данных
0 dennisss
 
07.11.14
09:32
Переношу из одной конфы в другую приходные кассовые ордера.
При этом в Источнике нет справочника Организации и справочника ДоговорыКонтрагентов, а в Приемнике есть.
В ПКО документа в ПКС Договоры в обработчике "Перед выгрузкой" пишу следующее:

ИсходящиеДанные=Новый Структура;
ИсходящиеДанные.Вставить("Наименование","Основной");
ИсходящиеДанные.Вставить("Владелец",Источник.Контрагент);
оргструкт=Новый Структура;
Если СокрЛП(Источник.КассаККМ.Код)="000000004" Тогда
    оргструкт.Вставить("Код","000000001");
КонецЕсли;
Если СокрЛП(Источник.КассаККМ.Код)="000000002" Тогда
    оргструкт.Вставить("Код","000000002");
КонецЕсли;
ИсходящиеДанные.Вставить("Организация",оргструкт);
Значение=1;

А в ПКС Организация в обработчике "Перед выгрузкой" пишу:

Если СокрЛП(Источник.КассаККМ.Код)="000000004" Тогда
    ИсходящиеДанные.Вставить("Код","000000001");
КонецЕсли;
Если СокрЛП(Источник.КассаККМ.Код)="000000002" Тогда
    ИсходящиеДанные.Вставить("Код","000000002");
КонецЕсли;
Значение=1;

Организации в базе приемнике уже есть. Осуществляется поиск по коду.
Договор в базе Приемнике создается, но реквизит Организация не заполняется. Хотя в документе реквизит Организация заполняется.
Как сделать правильно?
1 13_Mult
 
07.11.14
09:53
Я бы для поиска Организации в ПКС у свойства Код задал бы (Значение = "000000001";)
Для кассы по аналогии
2 dennisss
 
07.11.14
10:40
Мне не нужно жестко задавать организацию. А задавать ее в зависимости от КассыККМ, которая указана в документе. Если бы надо было жестко задать - то проблем бы не было...
3 dennisss
 
07.11.14
12:59
Нашел. Надо было так:

ИсходящиеДанные=Новый Структура;
ИсходящиеДанные.Вставить("Наименование","Основной");
ИсходящиеДанные.Вставить("Владелец",Источник.Контрагент);
Если СокрЛП(Источник.КассаККМ.Код)="000000004" Тогда
    ИсходящиеДанные.Вставить("Организация","000000001");
КонецЕсли;
Если СокрЛП(Источник.КассаККМ.Код)="000000002" Тогда
    ИсходящиеДанные.Вставить("Организация","000000002");
КонецЕсли;

Значение=1;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс