Перенос данных с 1с 7.7 Бухгалтерия в 1с 7.7 Транспорт

Форум Программирование Общие вопросы программирования (Dev)

1C77 1С:Бухгалтерия 7.7 Платформа 1С v7.7

1. Mister_1C 19.05.19 15:50 Сейчас в теме

Здравствуйте, возник вопрос. И не один. Вообщем, стоит цель перенести данные с одной 1с 7.7 в другую 1с 7.7. Все бы было хорошо если не одно но. В 1с 7.7 Бухгалтерии в документе не понятная для меня таблица. С которой надо вытягивать данные. И как к ней обратится, разумеется я не знаю. Подскажите пожалуйста что это за чудо такое? и как с ним бороться. И мне надо создать такую же табл в Транспорте. Но она не копируется в Бухгалтерии!)
Вот код перенос данных

Процедура Подключение()
//Объект для доступа
БазаOLE = СоздатьОбъект("V77.Application");   
СпрКонтрагент = СоздатьОбъект("Документ.Бухгалтерия");
//Варианты вызова
//Локальный:	V77L.Application
//Сетевой:	V77.Application
//SQL:	        V77S.Application

ПутьБазы          = "C:\Users\User\Desktop\программирование\НОВАЯ ДИЧЬ\База бухгалтерия грузоперевозки - копия\";
Пользователь      = "";
Пароль            = "";
МонопольныйРежим  = " /m";
ЗапускБезЗаставки = 0;

Подключено = БазаOLE.Initialize ( БазаOLE.RMTrade , "/d" +
                       СокрЛП(ПутьБазы) + " /n" + СокрЛП(Пользователь)+
                       " /p" + СокрЛП(Пароль) + МонопольныйРежим,
                       ?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));
Если Подключено = 0 Тогда
     Предупреждение("Подключение к базе "+Подключено+" не произведено. Проверьте настройки!");
Иначе
   //
    СпрOLE = БазаOLE.CreateObject("Документ.Выписка"); 
//    ЭтотКонтрагент = Справочник.Контрагент; 
    СпрOLE.ВыбратьДокументы(ДатаНач,ДатаКон);  
	
	
    Пока СпрOLE.ПолучитьДокумент()=1 Цикл
     //   Сообщить(СпрOLE.Наименование);
	 ТЗ = СоздатьОбъект("ТаблицаЗначений");
		СпрКонтрагент.Новый();
        СпрКонтрагент.Движение = СпрOLE.ТЗ.ВидДвижения; 
		СпрКонтрагент.Записать();
		// Прервать;
    КонецЦикла;
КонецЕсли;    
КонецПроцедуры

Показать

Благодарю за помощь!)

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

3. user856012 14 19.05.19 17:13 Сейчас в теме

(1)

Пока СпрOLE.ПолучитьДокумент()=1 Цикл

Вот до сих пор все было более-менее нормально, а дальше - "НОВАЯ ДИЧЬ", как вы совершенно правильно назвали свой опус.

Контрагент у вас на скриншоте - реквизит шапки документа (в Бухгалтерии?), а создавать вы пытаетесь элемент справочника Контрагенты в Транспорте.

Спрашивается, какую "непонятную таблицу" вы пытаетесь перенести из документа в справочник?

Короче, тут нечего поправлять, тут надо выкинуть все и писать код с нуля, предварительно четко поставив задачу.

2. acanta 19.05.19 16:06 Сейчас в теме

Вероятно ТЗ это реквизит формы, по Оле он недоступен.
Можно попробовать функцию глобального модуля в базе источнике, которая заполнить и вернёт вам эту таблицу.

4. Mister_1C 19.05.19 18:34 Сейчас в теме

(2)

ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("КоррСчет",,,,,,,);
	ТЗ.НоваяКолонка("Субконто1",,,,,,,);
	ТЗ.НоваяКолонка("Субконто2",,,,,,,);
	ТЗ.НоваяКолонка("Субконто3",,,,,,,);
	ТЗ.НоваяКолонка("Приход",,,,,,,);                  
	ТЗ.НоваяКолонка("СуммаВВалюте",,,,,,,);

5. user856012 14 19.05.19 18:58 Сейчас в теме

(4) И чего тут плюсовать? ТЗ создается в базе-приемнике, а обращается к ней автор в базе-источнике, где ее нет и никогда не было

Но даже если ее создать в источнике - что потом с ней делать в базе-приемнике? Через OLE передаются только простые типы данных: число, строка, дата - это азбука.

В-общем, напоминает гоголевского повара у Ноздрева:

Видно, что повар руководствовался более каким-то вдохновеньем и клал первое, что попадалось под руку: стоял ли возле него перец - он сыпал перец, капуста ли попалась - совал капусту, пичкал молоко, ветчину, горох - словом, катай-валяй, было бы горячо, а вкус какой-нибудь, верно, выдет.

Вот только в программировании такой подход не прокатывает.

Оставьте свое сообщение

E-mail: