Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

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

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Конвертация данных Параметры.Вставить

Андрей_IP
читатель
офлайн
Дата регистрации: 30.09.2009
Сообщений: 18
Пост №1
 
10.09.2010 08:53

"Доброе утро :((<br><br>Имеются 2 конфигурации: Первая - CRM 8.2 v 1.0.9.1 Вторая - Бух 8.1 v 1.6.25.6.<br>Написал правило обмена для переноса: из CRM Документ.ЗаказПокупателя в БУХ Документ.Счет, соответственно за ним тянутся контрагенты, но без РегистрыСведений.КонтактнаяИнформация.<br>В правиле обмене (в Справочники -> Конрагенты) в ПЕРЕД_ВЫГРУЗКОЙ пишу код:<br><br>Запрос = Новый Запрос;<br>Запрос.Текст = "ВЫБРАТЬ<br>| КонтактнаяИнформация.Объект КАК Объект,<br>| КонтактнаяИнформация.Тип КАК Тип,<br>| КонтактнаяИнформация.Вид КАК Вид,<br>| ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000)) КАК Представление,<br>| КонтактнаяИнформация.Поле1 КАК Поле1,<br>| КонтактнаяИнформация.Поле2 КАК Поле2,<br>| КонтактнаяИнформация.Поле3 КАК Поле3,<br>| КонтактнаяИнформация.Поле4 КАК Поле4,<br>| КонтактнаяИнформация.Поле5 КАК Поле5,<br>| КонтактнаяИнформация.Поле6 КАК Поле6,<br>| КонтактнаяИнформация.Поле7 КАК Поле7,<br>| КонтактнаяИнформация.Поле8 КАК Поле8,<br>| КонтактнаяИнформация.Поле9 КАК Поле9,<br>| КонтактнаяИнформация.Поле10 КАК Поле10,<br>| ВЫРАЗИТЬ(КонтактнаяИнформация.Комментарий КАК СТРОКА(1000)) как Комментарий<br>|ИЗ<br>| Документ.ЗаказПокупателя КАК ЗаказПокупателя<br>| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация <br>| ПО ЗаказПокупателя.Контрагент = КонтактнаяИнформация.Объект<br>| ГДЕ ЗаказПокупателя.Проведен";<br><br>Запр = Запрос.Выполнить().Выгрузить();<br><br>Параметры.Вставить("ВыборкаИзРезультата", Запр);<br><br>// ПО ИДЕЕ ЭТО СТРУКТУРА И ПАРАМЕТР ВЫБОРКАИЗРЕЗУЛЬТАТА ДОЛЖЕН БЫТЬ ДОСТУПЕН ВО ВСЕХ ОБРАБОТЧИКАХ КАК //Параметры.ВыборкаИзРезультата<br><br>Вот. А в ПЕРЕЗ_ЗАГРУЗКОЙ у меня код который основан на этом параметре:<br><br>Сообщить(Параметры.Свойство("ВыборкаИзРезультата")); // ВЫДАЕТ ЛОЖЬ!! КАК БУДТО НЕ ПОНИМАЕТ<br><br>НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();<br><br>рез=Параметры.ВыборкаИзРезультата;<br> Для Каждого стр из рез Цикл<br> НовЗапись = НаборЗаписей.Добавить();<br> НовЗапись.Объект = стр.Объект;<br> НовЗапись.Тип = стр.Тип;<br> НовЗапись.Вид = стр.Вид;<br> НовЗапись.Представление = стр.Представление;<br> НовЗапись.Поле1 = стр.Поле1;<br> НовЗапись.Поле2 = стр.Поле2;<br> НовЗапись.Поле3 = стр.Поле3;<br> НовЗапись.Поле4 = стр.Поле4;<br> НовЗапись.Поле5 = стр.Поле5;<br> НовЗапись.Поле6 = стр.Поле6;<br> НовЗапись.Поле7 = стр.Поле7;<br> НовЗапись.Поле8 = стр.Поле8;<br> НовЗапись.Поле9 = стр.Поле9;<br> НовЗапись.Поле10 = стр.Поле10;<br> НовЗапись.Комментарий = стр.Комментарий;<br> НаборЗаписей.Записать();<br> КонецЦикла;<br><br>ВОПРОС: подскажите пож. почему не передается этот параметр (может я где-то ошибся, уже мозг взрывается ;<br>"

Андрей_IP
читатель
офлайн
Дата регистрации: 30.09.2009
Сообщений: 18
Пост №2
 
10.09.2010 10:52

"Задача: перенести контактную информацию контрагентов из CRM в БУХ<br>Рассказываю как, вдруг кому пригодится:<br>В правилах обмена данными Справочники.Контрагенты в ПКО ПОСЛЕ_ВЫГРУЗКИ добавляем код:<br><br>Запрос = Новый Запрос(" <br>|ВЫБРАТЬ<br>| ИСТИНА КАК Активность,<br>//| Ложь КАК ЗначениеПоУмолчанию, <br>| КонтактнаяИнформация.Объект,<br>| КонтактнаяИнформация.Тип,<br>| КонтактнаяИнформация.Вид,<br>| КонтактнаяИнформация.Представление,<br>| КонтактнаяИнформация.Поле1,<br>| КонтактнаяИнформация.Поле2,<br>| КонтактнаяИнформация.Поле3,<br>| КонтактнаяИнформация.Поле4,<br>| КонтактнаяИнформация.Поле5,<br>| КонтактнаяИнформация.Поле6,<br>| КонтактнаяИнформация.Поле7,<br>| КонтактнаяИнформация.Поле8,<br>| КонтактнаяИнформация.Поле9,<br>| КонтактнаяИнформация.Поле10,<br>| КонтактнаяИнформация.Комментарий<br>|ИЗ<br>| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация<br>|ГДЕ<br>| КонтактнаяИнформация.Объект = &Объект");<br><br>Запрос.УстановитьПараметр("Объект", Источник); <br>Выборка = Запрос.Выполнить().Выбрать();<br>Сообщить(Выборка.Количество());<br>Пока Выборка.Следующий() Цикл<br> ВыгрузитьПоПравилу(Выборка, , , , "КонтактнаяИнформация");<br>КонецЦикла;<br><br>А в ПКС в РегистрыСведений.КонтактнаяИнформация Ставим галочку "отключить" ЗначениеПоумолчанию.<br><br>Тема закрыта"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация