Загрузка справочников и документов из Excel и *.dbf

03.12.09

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Обработка, с помощью которой можно загрузить данные из Экселя в документ или справочник (далее просто «документ»). Пока можно создавать документы без табличной части (обещаю доделать табличную часть). При создании документа, если реквизит ссылается на справочник, в соответствующем справочнике, при отсутствии такого элемента, создаётся новый.
Пока не решил проблему с записью элементов справочника, имеющих владельца.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
-
.epf 20,20Kb
222
222 Скачать (1 SM) Купить за 1 850 руб.

При переносе данных пришлось писать много обработок, потом просто стали дописывать предыдущую для следующего случая. В конечном  счете, стало жалко потраченных сил и немного подрезав функциональные свойства, хочу выложить этот загрузчик, тем более для 8.0 ничего похожего не нашёл.

При помощи этой обработки можно загрузить данные из Экселя в документ или справочник (далее просто «документ»). Пока можно создавать документы без табличной части (обещаю доделать табличную часть). При создании документа, если реквизит ссылается на справочник, в соответствующем справочнике, при отсутствии такого элемента, создаётся новый.
Пока не решил проблему с записью элементов справочника, имеющих владельца.

Вообще много писать нечего, если будут вылетать ошибки – не ругайте, пишите, исправлю. Просто в процессе «подрезания» - с целью унификации, могло что-то нарушиться.

См. также

Перенос данных 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. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 руб.

12.06.2017    143218    818    297    

426

SALE! 10%

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

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

35000 31500 руб.

23.07.2020    53296    234    73    

191

SALE! 10%

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

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

35000 31500 руб.

15.12.2021    24785    174    51    

132

SALE! 10%

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

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

53111 47800 руб.

03.12.2020    37205    99    66    

95

SALE! 10%

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

48278 43450 руб.

25.02.2015    171963    307    258    

384

SALE! 10%

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

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Предлагаем качественное и проверенное временем решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам. При выходе новых релизов конфигураций 1C оперативно выпускаем обновление переноса данных.

55778 50200 руб.

24.04.2015    195825    155    244    

284

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

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016    187726    598    521    

530

SALE! 10%

Перенос данных 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 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

55778 50200 руб.

15.04.2019    72753    184    151    

125
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. пользователь 02.12.09 20:30
Сообщение было скрыто модератором.
...
3. annak2980 03.12.09 12:31 Сейчас в теме
А обработка выглядела наверно так:
Функция ИмпортEXL(Параметры)
Эксель = новый COMОбъект("Excel.Application");
Попытка
Эксель.DisplayAlerts = 0;
ИмяФайла = Параметры.ИмяФайла;
Файл = Эксель.Workbooks.Open(ИмяФайла);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

тзВыписка = Новый ТаблицаЗначений;
тзВыписка.Колонки.Добавить("НомерПП");
тзВыписка.Колонки.Добавить("Приход");
тзВыписка.Колонки.Добавить("Расход");
тзВыписка.Колонки.Добавить("ОКПО");
тзВыписка.Колонки.Добавить("Контрагент");
тзВыписка.Колонки.Добавить("МФО");
тзВыписка.Колонки.Добавить("РСчет");
тзВыписка.Колонки.Добавить("Содержание");

ВыбранныйЛист = Эксель.Sheets(1);
//можно еще и цикл по перебору листов организовать
//Или , например пеосмотрим, сколько колонок
ВсегоКолонок = ВыбранныйЛист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = ВыбранныйЛист.Cells(1,1).SpecialCells(11).Row;

для Строка = 1 по ВсегоСтрок цикл

//далее построчно разбираем клеточки
ТекДата = СокрЛП(ВыбранныйЛист.Cells(Строка,8).Value);
ТекДата = Лев(ТекДата,10);
Если ТекДата <> Формат(Параметры.ДатаДок,"ДФ=dd.MM.yyyy") Тогда
Продолжить;
КонецЕсли;

РС1 = СокрЛП(ВыбранныйЛист.Cells(Строка,21).Value);
//наш счет
РС2 = СокрЛП(ВыбранныйЛист.Cells(Строка,17).Value);
//счет корреспондента
ДК = СокрЛП(ВыбранныйЛист.Cells(Строка,3).Value);
//движение по дебету или кредиту

Если РС1 = Параметры.РСчет Тогда

Если ДК = "К" Тогда // списание со счета

НовСтрока = тзВыписка.Добавить();
НовСтрока.МФО = СокрЛП(ВыбранныйЛист.Cells(Строка,18).Value);
НовСтрока.РСчет= РС2;

сСумма = СокрЛП(ВыбранныйЛист.Cells(Строка,7).Value);
НовСтрока.Расход= сСумма;
НовСтрока.Приход= 0;
НовСтрока.Контрагент = СокрЛП(ВыбранныйЛист.Cells(Строка,16).Value);
НовСтрока.ОКПО= СокрЛП(ВыбранныйЛист.Cells(Строка,19).Value);

ИначеЕсли ДК = "Д" Тогда
// поступление на наш р/с

НовСтрока = тзВыписка.Добавить();
НовСтрока.МФО = СокрЛП(ВыбранныйЛист.Cells(Строка,18).Value);
НовСтрока.РСчет = РС2;

сСумма = СокрЛП(ВыбранныйЛист.Cells(Строка,7).Value);
сСумма = СтрЗаменить(сСумма," ","");

НовСтрока.Расход = 0;
НовСтрока.Приход = сСумма;
НовСтрока.Контрагент = СокрЛП(ВыбранныйЛист.Cells(Строка,16).Value);
НовСтрока.ОКПО= СокрЛП(ВыбранныйЛист.Cells(Строка,19).Value);

КонецЕсли;

Иначе
Продолжить;
КонецЕсли;

НовСтрока.Содержание = СокрЛП(ВыбранныйЛист.Cells(Строка,12).Value);

КонецЦикла;
Попытка
Эксель.Application.Quit();
Исключение
КонецПопытки
Возврат тзВыписка;
КонецФункции

Такое каждый малосведующий в 8-ке накропает быстро в каждом конкретном случае - перенос данных из Foxpro, загрузка из банковской выписки, перенос табелей в ЗУП и прочее.
Ничего нового.

P.S. Текст моего примера ламерский, но какая статья такие и комментарии.
2. sytkosa 119 03.12.09 10:10 Сейчас в теме
4. Boroda 90 03.12.09 14:08 Сейчас в теме
Что-то последнее время тут пиарщиков развелось много...: рекламу сделают, распишут..., а на выходе "ноль". Только текст голый...
5. WWW123 82 03.12.09 18:19 Сейчас в теме
annak2980 - совпадения конечно есть:
- Эксель = новый COMОбъект("Excel.Application");
- КонецЕсли;
-Попытка
Вот пожалуй и всё...

Eugeneer 02.12.2009 20:30:42
Вообще есть типовая обработка на ИТС
http://infostart.ru/public/19504/
Вообшето сказано по русски ДЛЯ 8.0



6. WWW123 82 03.12.09 18:21 Сейчас в теме
И только 8SiriuS8 заметил, что файл не прилепился, остальные просто хотели быть услышанными
7. dreamland 2 03.10.11 21:04 Сейчас в теме
Данная обработка на каких конфигурациях тестировалась? Мне надо конкретно для Бухгалтерии предприятия 2.0 и для Управления производственным предприятием 1.3
Оставьте свое сообщение