gifts2017

Даун из Access'а

Опубликовал Joint (Joint) в раздел Обмен - Обмен с другими системами

Загрузка данных из произвольной базы Acces в справочники произвольной конфигурации V8.

Давным, давно.. когда 8ка была еще маленькой, пришлось писать загрузку, собственно вот она. Пользуйтесь, код открыт т.е. холява.

Загрузка данных из произвольной базы Acces в справочники произвольной конфигурации V8. (8.1.12)

Назначение и возможности: .. (этот же текст там кнопочка на форме - вопросик)

Обработка предназначена для загрузки
данных из произвольной таблицы или запроса Access.
в произвольные реквизиты справочника.
Имеется возможность устанавливать предопределенные
значений атрибутов справочника.
Формирование значения текстовых реквизитов конкатенацией полей таблицы.
Формирование групп справочника и принадлежности к группе справочника.
Повторной выгрузки с перезаписью существующих элементов,
с синхронизацией по коду или наименованию.
Есть возможность предварительного просмотра таблиц и запросов Access.
Правила сопоставления данных записываются во внешний текстовый файл настройки.
Для взаимодействия с Access используется DAO-Jet, возможно производить вызов
запароленных баз.

Эксплуатация:

При открытии обработки анализируется конфигурация справочников.
После выбора пути к базе и нажатия кнопки "Access" анализируется состав базы
и в табличку загружается структура таблиц и запросов.
Дальше вы просто кликаете на элементы справочника и
поля таблиц и запросов - создаетет таблицу соответствия данных.

Пример правил:

Полн. наименование справочника - Rec.Fields("Comment").Value+" "+Rec.Fields("Firm").Value+" "+Rec.Fields("Model").Value
Где Rec.Fields("бла бла").Value - обращение к полю записи таблицы/запроса.


Родитель (значение правила) - лСпр.НайтиПоНаименованию(Rec.Fields("Comment").Value)


Где лСпр - обращение к формируемому справочнику.



// ---

© Касяк И. Роман aka Joint
/ ---

эта.. там если надо к запароленной базе подключиться, раскомментируйте 3 строчки в процедуре подключения.

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
-
.1239295828 23,83Kb
27.03.14
356
.1239295828 23,83Kb 356 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. marmyshev 15.04.09 10:20
Однозначно плюс! ;)
Я столько мучился с переносом данных...
2. blazh I (blazh) 17.04.09 16:12
Плюс!
Спасибо! До Access`а руки не доходили, а в резерве иметь надо было.
3. Matfelon (matfelon) 06.11.09 16:49
Во-первых, спасибо и плюс.

Во-вторых, небольшой комментарий: название колонок в accesse'е может быть с пробелом, а в 1С, соответственно, не может. Тогда нужно чуть-чуть изменить модуль основной формы:

строка 574:
лТЗ.Колонки.Добавить(СтрЗаменить(лИмяПоля, " ", ""),,лИмяПоля,10);

строка 615;
лНовСтрока[лКолонка.Имя] = Rec.Fields(лКолонка.Заголовок).Value;
4. vinnipyx 20.03.10 23:25
Спасибо большое. Весь google прошарил, не где подобного нет или все коммерческое. Очень помог,просто ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО :!: :!: :!:
5. Павел Колмаков (Stimcool) 24.03.10 12:45
Огромное спасибо, отличная обработка. Вот только в 8.2 отказывается работать((
6. vinnipyx 12.04.10 16:38
Разобрался только в половине обработки
7. Андрей (andryus) 28.02.11 16:48
А как сохранить в одном поле 1С несколько значений из Access. Например в Access ФИО разделено на три колонки (фамилия, имя, отчество), а нужно загрузить в физические лица в поле наименование объединение данных 3-х колонок
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа