Перенос документов из ТИСа 7.7 в 1С 8.2 Бухгалтерия.
03.08.2012
10:48
#1
"Добрый день, всем.
Прошу сильно не ругать, в 1С я новичок.
В 1С ТИС вводится документ "ВозвратОтПокупателя" на основании "Реализации".
В 1С 8.2 Бухгалтерии при переносе документов, создаю документ КорректировкаРеализаций, с помощю документа "ВозвратОтПокупателя", который буду переносить из 1С 7.7 .
Не могу получить данные документа "ВозвратОтПокупателя" документа основание.
Подскажите пожалуйста как получить ДокОснование.
Данные организации, даты и т.д. могу получить, а основание ни как не могу вытащить. (Даже ошибка не вылетает)
Ниже приведен пример кода.
..................
ДокТисВОП = V7.CreateObject("Документ.ВозвратОтПокупателя");
ДокТисВОП.ВыбратьДокументы(ДатаНач,ДатаКон);
Пока ДокТисВОП.ПолучитьДокумент() > 0 Цикл
Если ДокТисВОП.Проведен() = 0 Тогда
Продолжить;
КонецЕсли;
Если НЕ(СокрЛП(ДокТисВОП.Фирма.Наименование) = СокрЛП(ТекФирма)) Тогда
Продолжить;
КонецЕсли;
НайденныйДокумент = НайтиДокумент(ДокТисВОП.ТекущийДокумент(),"КорректировкаРеализации");
Если НайденныйДокумент.Пустая() Тогда
НачатьТранзакцию();
НашлиОшибку = 0;
ТекДок = Документы.КорректировкаРеализации.СоздатьДокумент();
ТекДок.ВидОперации = Перечисления.ВидыОперацийИсправленияПоступленияРеализации.СогласованноеИзменение;
ТекДок.ДокументРеализации = ДокТисВОП.ТекущийДокумент().ДокОснование;
//ТекДок.ДокументРеализации = ДокТисВОП.ДокОснование;
ТекДок.Дата = ДокТисВОП.ДатаДок;
ТекДок.Организация = Организация;
............."
Прошу сильно не ругать, в 1С я новичок.
В 1С ТИС вводится документ "ВозвратОтПокупателя" на основании "Реализации".
В 1С 8.2 Бухгалтерии при переносе документов, создаю документ КорректировкаРеализаций, с помощю документа "ВозвратОтПокупателя", который буду переносить из 1С 7.7 .
Не могу получить данные документа "ВозвратОтПокупателя" документа основание.
Подскажите пожалуйста как получить ДокОснование.
Данные организации, даты и т.д. могу получить, а основание ни как не могу вытащить. (Даже ошибка не вылетает)
Ниже приведен пример кода.
..................
ДокТисВОП = V7.CreateObject("Документ.ВозвратОтПокупателя");
ДокТисВОП.ВыбратьДокументы(ДатаНач,ДатаКон);
Пока ДокТисВОП.ПолучитьДокумент() > 0 Цикл
Если ДокТисВОП.Проведен() = 0 Тогда
Продолжить;
КонецЕсли;
Если НЕ(СокрЛП(ДокТисВОП.Фирма.Наименование) = СокрЛП(ТекФирма)) Тогда
Продолжить;
КонецЕсли;
НайденныйДокумент = НайтиДокумент(ДокТисВОП.ТекущийДокумент(),"КорректировкаРеализации");
Если НайденныйДокумент.Пустая() Тогда
НачатьТранзакцию();
НашлиОшибку = 0;
ТекДок = Документы.КорректировкаРеализации.СоздатьДокумент();
ТекДок.ВидОперации = Перечисления.ВидыОперацийИсправленияПоступленияРеализации.СогласованноеИзменение;
ТекДок.ДокументРеализации = ДокТисВОП.ТекущийДокумент().ДокОснование;
//ТекДок.ДокументРеализации = ДокТисВОП.ДокОснование;
ТекДок.Дата = ДокТисВОП.ДатаДок;
ТекДок.Организация = Организация;
............."
03.08.2012
10:59
#2
ТекДок.ДокументРеализации = это ссылка на объект базы приемника
ДокТисВОП.ТекущийДокумент().ДокОснование = это ссылка на объект базы источника (можно писать просто ДокТисВОП.ДокОснование)
конструкция, которую вы написали применима только к базовым типам, например, Строке, Числу...
Но это же объекты агрегатных типов. Нужно для ДокТисВОП.ДокОснование поискать в приемнике соответствие, видимо где то среди документов вида "РеализацияТоваровУслуг" так же как вы ищите его для соответствия РеализацияТоваровУслуг->РеализацияТоваровУслуг.
ДокТисВОП.ТекущийДокумент().ДокОснование = это ссылка на объект базы источника (можно писать просто ДокТисВОП.ДокОснование)
конструкция, которую вы написали применима только к базовым типам, например, Строке, Числу...
Но это же объекты агрегатных типов. Нужно для ДокТисВОП.ДокОснование поискать в приемнике соответствие, видимо где то среди документов вида "РеализацияТоваровУслуг" так же как вы ищите его для соответствия РеализацияТоваровУслуг->РеализацияТоваровУслуг.
Два сканера при работе в терминалеОграничение доступа к организациям определенным пользователям 1с 8
Читают тему
(гостей: 1)