Обмен между 1С 7.7 и 1С 8 через "ЗначениеВСтрокуВнутр"

20.03.12

Интеграция - Обмен между базами 1C

Функция разбора строки, содержащей таблицу значений, полученной из 1С 7.7 методом "ЗначениеВСтрокуВнутр"

Часто приходилось встречать обмен м/у конфигурациями написанными в 1С 7.7 посредством методов "ЗначениеВСтрокуВнутр" и "ЗначениеВСтрокуВнутр". В настоящее время возникла необходимость написать обмен м/у 7.7 и 8.2. Из 7.7 выгружается таблица значений в которой находятся различного рода данные (за исключением ссылочных). Дабы не переписывать обмен полностью а только на стороне 1С 8.2 предлагаю вашему вниманию заготовку функции по разбору таблицы. Почему заготовку - потому что данная функция работает упрощенно с типами данных, без преобразования, и имеет еще некоторые недостатки которые для моей задачи не существенны. Все же надеюсь что кому то это наработка поможет.

&НаСервере
Функция ПолучитьТаблицуЗначенийИз1С77(Адрес)

   
Таблица        = Новый ТаблицаЗначений;
   
ЧтениеТХТ      = Новый ЧтениеТекста(Адрес);
   
МассивТипов    = Новый Массив;
   
ИндексСтроки   = 0;

   
//Сформируем массив начальных строк типов данных
   
МассивТипов.Добавить("{" + """"+ "S"+""""+",");
   
МассивТипов.Добавить("{" + """"+ "D"+""""+",");
   
МассивТипов.Добавить("{" + """"+ "N"+""""+",");
   
МассивТипов.Добавить("{" + """"+ "U"+""""+",");
   
МассивТипов.Добавить("{" + """"+ "B"+""""+",");

   
Строка = ЧтениеТХТ.ПрочитатьСтроку();

   
ПерваяСтрока = Истина;
    Пока
Строка <> Неопределено Цикл

       
//Первую строку отбросим
       
Если ПерваяСтрока Тогда

           
Строка       = ЧтениеТХТ.ПрочитатьСтроку();
           
ПерваяСтрока = Ложь;
            Продолжить;
        КонецЕсли;

       
//Проверим является ли данная строка типом
        //Если строка является типом то это есть строка колонки
        //Если строка Типом не является то это есть новая колонка

       
Если СтрДлина(Строка) = 1 Тогда  Строка = ЧтениеТХТ.ПрочитатьСтроку(); Продолжить; КонецЕсли;
        Если
Строка      = "}}}}" Тогда Строка = ЧтениеТХТ.ПрочитатьСтроку(); Продолжить; КонецЕсли;
        Если
Строка      = "},"   Тогда Строка = ЧтениеТХТ.ПрочитатьСтроку(); Продолжить; КонецЕсли;

       
//Это строка с названием новой колонки
       
Если МассивТипов.Найти(Лев(Строка,5)) = Неопределено Тогда
           
Колонка = СтрЗаменить(Строка, ",", Символы.ПС);
           
Колонка = СтрПолучитьСтроку(Колонка, 1);

           
//Уберем дополнительные символы
           
Колонка = Лев (Колонка, СтрДлина(Колонка) - 1);
           
Колонка = Прав(Колонка, СтрДлина(Колонка) - 2);

           
Таблица.Колонки.Добавить(Колонка);
           
ИндексСтроки = 0;
        Иначе
//Это строка со значением

           
Значение = Лев(Строка, СтрДлина(Строка)-3);
           
Значение =Прав(Значение, СтрДлина(Строка)-29);


            //Уберем доп символы кавычек из строки значения
           
Пока Лев(Значение, 1) = """" Цикл
               
Значение = Прав(Значение, СтрДлина(Значение)-1);
            КонецЦикла;

            Пока
Прав(Значение, 1) = """" Цикл
               
Значение = Лев(Значение, СтрДлина(Значение)-1);
            КонецЦикла;

           
//Добавим колонки которых нет
           
Если Таблица.Количество()< ИндексСтроки+1 Тогда
               
Таблица.Добавить();
            КонецЕсли;

           
//УстановимЗначениеСтроки
           
ИскомаяСтрока = Таблица.Получить(ИндексСтроки);
           
ИскомаяСтрока[Колонка]  =  Значение;

           
ИндексСтроки = ИндексСтроки+ 1;
        Конецесли;
       
Строка = ЧтениеТХТ.ПрочитатьСтроку();
    КонецЦикла;

    Возврат
Таблица;
КонецФункции

Использование функции:

1. На выходе из 1С 7.7 мы имеем таблицу с заранее известными колонками. Допустим есть две колонки "Расчетный счет" и "Организация". Значение строк табличной части - номер Р/С и ИНН организации

2. С помощью метода "ЗначениеВСтроку" записываем нашу таблицу в txt файл.

3.В 1С 8.2 в обработке прописываем вызов вышеописаной функции. В качестве параметра - передадим адрес текстового файла полученного в пункте 2.

4. Результатом вызова функции будет таблица аналогичная таблице записанной в текстовый файл в пункте 2.

5. Поскольку структура таблицы в 1С 7.7 нам известна - мы можем привести типы для таблицы полученной в 4. Например даты будут идти строкой типа 20120312, с помощью функции Дата() можно преобразовать ее к нужному типу.

Данная функция используется на практике при переносе платежных поручений из 1С 7.7 в 1С 8.2

См. также

SALE! 20%

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Обмен между базами 1C Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) в продаже с 2015 года, постоянно работаем над их развитием | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

45650 36520 руб.

04.08.2015    159680    363    267    

345

SALE! 15%

[ED3] Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

25080 22572 руб.

12.06.2017    134933    722    291    

388

SALE! 20%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | В продаже с 2019г. | Воспользовались более 176 предприятий! | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

34650 27720 руб.

15.04.2019    68417    178    138    

111

SALE! 20%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Воспользовались более 79 предприятий! | Предлагаем приобрести готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | В продаже с 2020г. | Оперативно обновляем правила до актуальных релизов 1С | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

43450 34760 руб.

03.12.2020    34168    80    58    

78

SALE! 10%

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.87.x) и УТ 11.5 (11.5.16.x).

28000 25200 руб.

23.07.2020    46289    196    64    

158

SALE! 10%

Перенос данных из БП 3.0 в УТ 11 / КА 2 / ERP 2. Переносятся начальные остатки, документы и справочники

Обмен между базами 1C Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

В продаже с 2014г. | Воспользовались более 122 предприятий! | Перенос данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных)

50722 45650 руб.

31.10.2014    231399    124    327    

296

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9207    9    8    

10

SALE! 10%

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.223.x) и БП 3.0 (3.0.149.x). Правила подходят для версии ПРОФ и КОРП.

28000 25200 руб.

15.12.2021    20247    132    38    

90
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. NPMar 22.03.12 16:30 Сейчас в теме
Спасибо большое! Особенно за то, что не нужно копить балл для скачиания. Думаю, что мне это пригодится при переходе на восмерку, которую только буду изучать.
2. AvalonE2008 100 23.03.12 00:55 Сейчас в теме
Пожалуйста, надеюсь поможет. ОБРАТИТЕ ВНИМАНИЕ, в публикации есть опечатки. Функция для работы со строкой полученной посредство ЗначениеВСтрокуВнутр а не ЗначениеВСтроку.
3. avcherkasov 102 16.10.13 11:47 Сейчас в теме
Большое спасибо, очень пригодилось.
4. AvalonE2008 100 16.10.13 12:10 Сейчас в теме
(3)Рад что пригодилось :)
5. bes-kkm 06.02.14 18:13 Сейчас в теме
Спасибо большое!!!!!!!!!!!!!
6. user636219_dmitriy.gomzin 13.12.16 16:27 Сейчас в теме
Спасибо большое. пригодилось.
7. v.l. 434 16.07.19 20:09 Сейчас в теме
Автор, спасибо.
Прикрутил семерочные ДБФ базы как внешний источник данных, и в некоторых местах таблица значений с формы сохранялась как строка неограниченной длины (привет таблице 1SBLOB).

И надо было распарсить... Восьмерочная процеду ЗначениеИзСтрокиВнутр не понимала семерочный формат, пытался парсить, разбивать на строки, заменять литералы "0", на пустые строки, высчитывать фигурные скобки... Много мороки.

Немного преобразовал, чтобы не писать временный файл, обошелся
ЧтениеТХТ    = Новый ТекстовыйДокумент;
ЧтениеТХТ.ДобавитьСтроку(Адрес);

Соответственно чтение строки в цикле Для:
КолвоСтрок = ЧтениеТХТ.КоличествоСтрок();
Для Сч = 2 По КолвоСтрок Цикл
	Строка = ЧтениеТХТ.ПолучитьСтроку(Сч);

Еще раз спасибо!
8. alexander-bu 1 21.11.20 09:46 Сейчас в теме
Автор, спасибо.
Нашел ошибку:
В файле, полученном из 7.7, нет запятой после последнего значения в колонке:

{"Код","Код","1","0","0",{"S","0","0","0","0","0"},"","0",
{
{"S","0","0","0","0","0","8200000000"},
{"S","0","0","0","0","0","8000000000"}
}

Поэтому должно быть условие:

			//После последнего значения нет запятой, поэтому надо срезать справа 2 символа, а не 3
			Если Прав(Строка, 1) = "," Тогда
				Значение = Лев(Строка, СтрДлина(Строка)-3);
				Значение =Прав(Значение, СтрДлина(Строка)-29);
			Иначе
				Значение = Лев(Строка, СтрДлина(Строка)-2);
				Значение =Прав(Значение, СтрДлина(Строка)-28);
			КонецЕсли;	
Показать
9. babybu 29 04.02.21 12:27 Сейчас в теме
Спасибо, пригодилось!
Оставьте свое сообщение