Универсальная смотрелка DBF-файлов [обновлено!]

25.03.16

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

Представляю Вам собственную универсальную смотрелку DBF-файлов. Собственно, для чего она нужна? Подробнее...

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

Наименование Файл Версия Размер
УниверсальнаяЧиталкаDBF.epf
.epf 8,62Kb
110
.epf 8,62Kb 110 Скачать

 

Представляю Вам собственную универсальную смотрелку DBF-файлов. Собственно, для чего она нужна?

Вообще-то я не ставил себе задачу - написать dbf-смотрелку, но у меня была необходимость написать некую универсальную функцию, которая "запихивала" бы содержание DBF-файла в табличную часть.

Т.е. написал функцию и "забыл" как она работает. Вот сама функция:


Функция DBFвТаблицу(ПутьКDBF, Кодировка)   //вер.1.5
   
ТаблицаДанных = Новый ТаблицаЗначений();
   
ФайлDBF=Новый XBase;
   
ФайлDBF.ОткрытьФайл(ПутьКDBF,,Истина);
    Если
Кодировка = "ANSI" Тогда
       
ФайлDBF.Кодировка = КодировкаXBase.ANSI;
    Иначе
       
ФайлDBF.Кодировка = КодировкаXBase.OEM;
    КонецЕсли;

    Для Каждого
ПолеDBF Из ФайлDBF.Поля Цикл
       
ТаблицаДанных.Колонки.Добавить(ПолеDBF.Имя,,ПолеDBF.Имя);
    КонецЦикла;
   
ФайлDBF.Первая();
    Пока НЕ
ФайлDBF.ВКонце() Цикл
       
ЗаполнитьЗначенияСвойств(ТаблицаДанных.Добавить(),ФайлDBF);
       
ФайлDBF.Следующая();
    КонецЦикла;
   
ФайлDBF.ЗакрытьФайл();
    Возврат
ТаблицаДанных;
КонецФункции

Как логическое продолжение (чтобы тупо не выкладывать эту функцию), решил написать программу, которая будет использовать эту функцию - получилась "смотрелка-dbf".

Для особых педантов сразу скажу - типизация пока не поддерживается, т.к. не было необходимости в этом.

Обработка сделана на Платформе 8.1, использовать ее можно в любой конфигурации или на "голой" платформе.

Кому будет полезна данная обработка:

1.Начинающим программистам 1с - вы можете посмотреть как загрузить dbf в память, автоматически создав необходимые колонки.

2.Простым пользователям - если вы грузите в 1с-ку какие-то dbf-файлы, с помощью этой программы - посмотрите, что грузите, перед записью в базу 1с.

 

Кому поможет, буду рад, если отблагодарите...

 

П.С. "Динозаврам 1с" эта программа будет малоинтересна...

 

См. также

SALE! 10%

[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 руб.

12.06.2017    134617    719    291    

387

Перенос данных из УПП 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 руб.

15.12.2021    20097    132    38    

90

SALE! 10%

Перенос данных из ERP 2 / КА 2 в ЗУП 3

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

Обработка позволяет не только перенести все документы, справочную информацию и начальные остатки из ERP 2 или КА 2 в ЗУП 3, но и организовать регулярный перенос данных между программами 1С:ERP 2 / КА 2 и 1С:ЗУП 3. Вы можете выбрать период отбора данных и установить фильтр по организациям, чтобы выгружать только необходимую информацию. Более того, перенос оперативно обновляется при выходе новых релизов программы 1С, так что вы всегда будете иметь самую актуальную версию обработки.

48278 43450 руб.

03.12.2020    34042    80    57    

78

SALE! 10%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0

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

Перенос позволяет настроить собственный обмен данными между указанными программами, альтернативный предлагаемому фирмой 1С. Перенос данных осуществляется из 1С:ERP 2 / 1С:КА 2 / 1С:УТ 11 в 1С:БП 3.0. Правила обмена оперативно обновляются при выходе новых релизов программы 1С, так что вы всегда будете иметь самую актуальную версию обработки.

38500 34650 руб.

15.04.2019    68206    176    136    

108

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

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

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

60000 руб.

05.10.2022    9156    9    8    

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 руб.

23.07.2020    46026    194    64    

153

SALE! 10%

Перенос данных из БП 3.0 в УНФ 3.0 / УНФ 1.6

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

Обработка позволяет начать вести учет в программе "1С:Управление нашей фирмой" редакции 3.0 или 1.6, то есть перенести в нее из существующей базы "1С:Бухгалтерия предприятия, ред. 3.0" начальные остатки на выбранную дату, документы за период времени и также всю необходимую справочную информацию. По вашему запросу мы можем бесплатно добавить в правила переноса дополнительные виды объектов (например, новые виды документов). Обработка по переходу на новую программу 1С включает в себя правила конвертации в формате XML, обработку для выгрузки и загрузки данных, а также инструкцию по работе.

50722 45650 руб.

10.07.2018    67287    41    118    

46

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

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

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 11.12.2023, версия 9.5 - 9.9)

13200 руб.

20.11.2015    150385    365    375    

499
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. artbear 1447 05.09.11 15:56 Сейчас в теме
(0) Вместо
Для Каждого ПолеDBF Из ФайлDBF.Поля Цикл
НомерКолонки=НомерКолонки+1;
НоваяСтрока[ПолеDBF.Имя]=ФайлDBF[ПолеDBF.Имя];
КонецЦикла;
Попробуй поюзать
ЗаполнитьЗначенияСвойств(НоваяСтрока, ФайлДБФ);
2. aximo 2027 05.09.11 16:30 Сейчас в теме
(1) согласен, но так как у меня - более "классически что-ли" и понятнее...
3. aximo 2027 05.09.11 16:31 Сейчас в теме
(0) просьба, можешь подсказать как выделять цветом код... я не нашел с ходу тегов
4. Alraune 1500 05.09.11 16:48 Сейчас в теме
5. artbear 1447 05.09.11 17:49 Сейчас в теме
(3) Когда у тебя будет ДБФ из хотя одной/двух тысяч строк, разницу сразу ощутишь :)
ЗЫ ВСЕГДА юзай ЗаполнитьЗначенияСвойств, а не ручной перебор имен.
ИМХО Это признак опытного разработчика 1cv8
6. aximo 2027 05.09.11 19:34 Сейчас в теме
(5) спасибо. исправил, стало быстрее.
8. alexk-is 6533 06.09.11 00:05 Сейчас в теме
(6) Чуть быстрее будет так...
Функция DBFвТаблицу(ПутьКDBF, Кодировка)
   
ТаблицаДанных = Новый ТаблицаЗначений();
   
ФайлDBF = Новый XBase;
   
ФайлDBF.ОткрытьФайл(ПутьКDBF,, Истина);
    Если
Кодировка = "ANSI" Тогда
       
ФайлDBF.Кодировка = КодировкаXBase.ANSI;
    Иначе
       
ФайлDBF.Кодировка = КодировкаXBase.OEM;
    КонецЕсли;
    Для Каждого
ПолеDBF Из ФайлDBF.Поля Цикл
       
ТаблицаДанных.Колонки.Добавить(ПолеDBF.Имя,, ПолеDBF.Имя);
    КонецЦикла;
   
ФайлDBF.Первая();
    Пока Не
ФайлDBF.ВКонце() Цикл
       
ЗаполнитьЗначенияСвойств(ТаблицаДанных.Добавить(), ФайлDBF);
       
ФайлDBF.Следующая();
    КонецЦикла;
   
ФайлDBF.ЗакрытьФайл();
    Возврат
ТаблицаДанных;
КонецФункции


А ещё быстрее будет так :)
artbear; ExS42; aximo; +3 Ответить
9. artbear 1447 06.09.11 10:03 Сейчас в теме
(8) Да, ФайлDBF.Следующая(); очень быстро работает.
7. anton.fly7 173 05.09.11 20:04 Сейчас в теме
а если будет колонка на 950 символов, как твоя обработина его покажет?
и еще, не проще ли смотреть DBF_ки в екселе?
10. DionisioSPb 07.09.11 15:50 Сейчас в теме
А вот я столкнулся, что при выполнении такого кода:

//--------------------
ОбъектXBase = Новый XBase;
ОбъектXBase.Кодировка = КодировкаXBase.OEM;
ОбъектXBase.поля.Добавить("KEY", "S", 50, 0);
ОбъектXBase.поля.Добавить("STR", "S", 50, 0);
ОбъектXBase.СоздатьФайл("C:\test.dbf");

ОбъектXBase.АвтоСохранение = Истина;

Значения = новый Структура("KEY, STR", "Значение KEY", "Значение строка");
ОбъектXBase.Добавить();
ЗаполнитьЗначенияСвойств(ОбъектXBase, Значения);
ОбъектXBase.Записать();
ОбъектXBase.ЗакрытьФайл();
//--------------------

Поле "KEY" не будет заполнено. Пришлось переделывать на Для Каждого ИмяПоляDBF Из ПоляDBF Цикл
Грустно...
11. echo77 1868 07.09.11 18:31 Сейчас в теме
Простым пользователям эта штука на хер не нужна, anton.fly7 правильно говорит - DBF проще смотреть с помощью excel/calc.
Куда сложнее обратное преобразование, у меня в публикациях была такая штука
12. defini 464 08.09.11 10:20 Сейчас в теме
echo77 пишет:
Простым пользователям эта штука на хер не нужна, anton.fly7 правильно говорит - DBF проще смотреть с помощью excel/calc.
правильно говорит - DBF проще смотреть с помощью excel/calc.


ИМХО смотреть дбф-ки удобнее дбф-навигатором и вьювером. Но никак не екселем.
13. jONES1979 08.09.11 10:43 Сейчас в теме
"Простым пользователем" ещё и похерить можно DBF-ку, открывая её Экселем и исправляя. А потом в нескажу-каком-банке её не примут, потому что убогие программисты этого банка толи "привязали" свою программу к какой-то устаревщей версии формата DBF, толи ещё чего.
14. djd.sf 08.09.11 11:04 Сейчас в теме
"Простым пользователем" ещё и похерить можно DBF-ку, открывая её Экселем и исправляя. А потом в нескажу-каком-банке её не примут, потому что убогие программисты этого банка толи "привязали" свою программу к какой-то устаревщей версии формата DBF, толи ещё чего.
Это ты про что? Разъясни пожалуйста, я не понимаю.
15. jONES1979 08.09.11 11:13 Сейчас в теме
Это пример из жизни, вместо того чтобы сформировать DBF c корректными данными, бухгалтеры открыли Екселем и подправили цифры. Но в банке их программа "подавилась" DBF-кой, не смогла открыть.
16. sommid 12.09.11 13:11 Сейчас в теме
Типизация очень даже може пригодиться. Например, для использования полученной таблицы в качестве виртуальной в запросе.
в свое функции писал так:
//----------------------------------------
Для каждого ТекКолонка из мФайл.Поля Цикл
    
    ТипДБФ = ТекКолонка.Тип;
    //возможные типы из Синтаксис-помощника: Содержит тип поля: "S"- строка, "N" - число, "D" - дата,
    //    "L" - булево, "F" - число, "M" - мемо поле (не поддерживается)
    
    Если ТипДБФ = "S" Тогда
        ТекТип = "Строка";
	ТекКвалификатор = Новый КвалификаторыСтроки(ТекКолонка.Длина);
	ТекОписаниеТипов = Новый ОписаниеТипов(ТекТип, , ТекКвалификатор);
	тз.Колонки.Добавить(ТекКолонка.Имя, ТекОписаниеТипов);

    ИначеЕсли ТипДБФ = "N" ИЛИ ТипДБФ = "F" Тогда
        ТекТип = "Число";
	ТекКвалификатор = Новый КвалификаторыЧисла(ТекКолонка.Длина, ТекКолонка.Точность);
	ТекОписаниеТипов = Новый ОписаниеТипов(ТекТип, ТекКвалификатор);
	тз.Колонки.Добавить(ТекКолонка.Имя, ТекОписаниеТипов);

    ИначеЕсли ТипДБФ = "D" Тогда
        ТекТип = "Дата";
	ТекОписаниеТипов = Новый ОписаниеТипов(ТекТип);
	тз.Колонки.Добавить(ТекКолонка.Имя, ТекОписаниеТипов);

    ИначеЕсли ТипДБФ = "L" Тогда
        ТекТип = "Булево";
	ТекОписаниеТипов = Новый ОписаниеТипов(ТекТип);
	тз.Колонки.Добавить(ТекКолонка.Имя, ТекОписаниеТипов);

    Иначе
        ТекТип = "";
	тз.Колонки.Добавить(ТекКолонка.Имя);

    КонецЕсли;
		
КонецЦикла;
Показать

//------------------------------------
17. help1Ckr 13.09.11 23:31 Сейчас в теме
Читалка в дбф удобная функция - иногда не удобно между окнами переключатся. Еще бы для xmlфайлов нормальную смотрелку сделали :D
18. help1Ckr 13.09.11 23:40 Сейчас в теме
Кстати, для большей пользы, не мешало бы добавить итоги по числовым полям.
19. Hamitova 15.09.11 07:50 Сейчас в теме
На 1С я перешла с Fox Pro, и мне показалась очень интересной и простой эта обработка. Спасибо...
20. aximo 2027 15.09.11 08:46 Сейчас в теме
(19) да пожалуйста. это у меня капля в море и еще идей непаханное поле ...
21. boriskud 19 19.10.11 10:28 Сейчас в теме
Спасибо! Функция пригодилась при написании процедуры загрузки в базу DBF файла.
22. anig99 2841 16.11.11 13:05 Сейчас в теме
(0) переделал под управляемые формы http://infostart.ru/public/98411/
(17) для xml вот есть - http://infostart.ru/public/84254/
23. xaker1C 20.12.11 18:05 Сейчас в теме
24. пользователь 04.01.12 10:57
Сообщение было скрыто модератором.
...
25. Waldor 127 29.01.12 17:24 Сейчас в теме
Спасибо. Оптимизировал свою дбф загрузку...
26. stormtg 13.02.12 14:41 Сейчас в теме
Спасибо, очень интересно
27. i132 122 16.02.12 16:27 Сейчас в теме
Получится немного быстрее если анализировать ответ ДБФ.Следующая();:

ЕстьЗаписи = ДбФ.Первая();
Пока ЕстьЗаписи Цикл
...
ЕстьЗаписи = ДБФ.Следующая();
КонецЦикла;

пример отчета на СКД по произвольному DBF файлу: http://infostart.ru/public/116645/
28. Созинов 14.03.12 10:04 Сейчас в теме
Спасибо. Думаю функция пригодится. Как раз планируем добить FoxPro. Остались последние секции, так что думаю можно будет перетащить остатки на 8.2 автоматом, а не заниматься этим вручную. Хотя от ручной работы полностью не избавиться (в foxpro по моему штрихкоды отсутствуют).
29. h_vitya 28.03.12 14:00 Сейчас в теме
Спасибо. Думаю функция пригодится. Как раз планируем добить FoxPro. Остались последние секции, так что думаю можно будет перетащить остатки на 8.2 автоматом, а не заниматься этим вручную. Хотя от ручной работы полностью не избавиться (в foxpro по моему штрихкоды отсутствуют).


Меня устраивает через Exel смотреть dbf
30. electronik 25.04.12 16:21 Сейчас в теме
Спасибо но хотелось узнать как предстоят дела с кодировками, ато при работе с ДБФ возникает кучу моментов кодировками ето здесь предусмотрено или нужно руками допиливать
31. aximo 2027 25.04.12 17:01 Сейчас в теме
(30) в моих задачах еще не случалось его допиливать под что-то... малая вероятность...
32. Alfer 16.01.14 19:26 Сейчас в теме
меня устраивает во всем - а некоторые моменты возьму на вооружение для дальнейшего использования
33. vvirus 20 21.05.14 08:29 Сейчас в теме
добавь определение типов данных DBF, при формировании таблицы - это поможет при загрузке ТЗ в запрос
пример есть тут http://infostart.ru/public/100001/
34. cheiser1982 209 15.12.14 13:18 Сейчас в теме
Адаптированно для управляемых форм платформы 8.3:
DBFViewer8_3 для управляемых форм
Оставьте свое сообщение