Функция загрузки из dbf
Разработка - Системная интеграция - Файловые протоколы обмена, FTP
Функция возвращает таблицу значений с колонками, имена которых заданы в списке колонок. Далее по этой ТЗ легко заполнить, например, табличную часть используя ЗаполнитьЗначенияСвойств().
&НаСервере
// Функция загружает данные из указанного dbf файла в таблицу значений.
// Параметры:
// ИмяФайла - строка - полный путь к файлу.
// Кодировка - КодировкаXBase.
// СписокКолонок - СписокЗначений - список колонок, которые будут прочитаны,
// СписокКолонок.Значение - имя колонки в dbf файле,
// СписокКолонок.Представление - имя колонки в таблице значений,
// СписокКолонок.Пометка - читать колонку из файла; истина = читать,
// ложь = колонка будет создана в итоговой ТЗ, но не заполнена.
//
Функция ЗаполнитьТЗизDBF(ИмяФайла, Кодировка, СписокКолонок)
// Открытие файла данных
ФайлДанных = Новый XBase(ИмяФайла);
ФайлДанных.Кодировка = Кодировка;
Если Не ФайлДанных.Открыта() Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось открыть файл " + ИмяФайла;
Сообщение.Сообщить();
Возврат Неопределено;
КонецЕсли;
// Переменные и объекты, что бы не создавать постоянно в цикле
ОписаниеБулево = Новый ОписаниеТипов("Булево");
ОписаниеДаты = Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.Дата));
// Создание таблицы значений
ТабЗнач = Новый ТаблицаЗначений;
Для Каждого Поле из ФайлДанных.Поля Цикл
Колонка = СписокКолонок.НайтиПоЗначению(Поле.Имя);
Если Колонка <> Неопределено Тогда
Если Поле.Тип = "L" Тогда
Тип = ОписаниеБулево;
ИначеЕсли Поле.Тип = "D" Тогда
Тип = ОписаниеДаты;
ИначеЕсли (Поле.Тип = "N") ИЛИ (Поле.Тип = "F") Тогда
Тип = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(Поле.Длина, Поле.Точность));
Иначе
Тип = Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(Поле.Длина));
КонецЕсли;
ТабЗнач.Колонки.Добавить(Колонка.Представление, Тип);
КонецЕсли;
КонецЦикла;
// Заполнение строк таблицы
Если (ТабЗнач.Колонки.Количество() <> 0) И (ФайлДанных.Первая()) Тогда
Пока Истина Цикл
СтрокаТаб = ТабЗнач.Добавить();
Для Каждого Поле из ФайлДанных.Поля Цикл
Колонка = СписокКолонок.НайтиПоЗначению(Поле.Имя);
Если (Колонка <> Неопределено) И Колонка.Пометка Тогда
СтрокаТаб[Колонка.Представление] = ФайлДанных[Поле.Имя];
КонецЕсли;
КонецЦикла;
Если Не ФайлДанных.Следующая() Тогда Прервать; КонецЕсли;
КонецЦикла;
КонецЕсли;
ФайлДанных.ЗакрытьФайл();
Возврат ТабЗнач;
КонецФункции
Специальные предложения
Автор запретил комментарии
См. также
Перенос данных КА 1.1 => ERP 2 (ЕРП) (обработка переноса документов, остатков и справочной информации из "1С:Комплексная автоматизация, ред. 1.1" в "1С:ERP Управление предприятием, ред 2"). Обновлен до КА 1.1.115.х и ERP 2.4.10.х Промо
Обработка позволяет переносить из КА 1.1 в ERP 2 документы за выбранный период и остатки. Типовая обработка от фирмы 1С документы не переносит. Также исправлены ошибки типовой обработки. При выходе новых релизов обновление высылается бесплатно в течение года. Разработка будет полезна фирмам-франчайзи, которые периодически выполняют такой перенос данных для заказчиков. Вы можете один раз приобрести обработку переноса, и потом бесплатно получать обновления в случае выхода новых релизов конфигураций 1С.
29700 руб.
Очный семинар по регулярному менеджменту Александра Фридмана "Вы или Хаос", 12 декабря 2019 г. , Санкт-Петербург Промо
Семинар по регулярному менеджменту от Александра Фридмана для собственников, первых лиц и топов. Технология управленческого планирования, комплексного управления временем и другими ресурсами, выполнением поручений, делами, информацией, контактами (встречи-звонки-почта).
от 11000 до 29000 рублей
Преобразование XML в таблицу значений или иной объект 1С методом XSL преобразования 41
24.10.2019 4353 kraspila 25
Готовые переносы данных из различных конфигураций 1C Промо
Рекомендуем готовые решения для переноса данных из различных конфигураций 1C. C техподдержкой от разработчиков и гарантией от Инфостарт.
Подборка программ для взаимодействия с ЕГАИС Промо
ЕГАИС (Единая государственная автоматизированная информационная система) - автоматизированная система, предназначенная для государственного контроля за объёмом производства и оборота этилового спирта, алкогольной и спиртосодержащей продукции. Инфостарт рекомендует подборку проверенных решений для взаимодействия с системой.
Перенос данных БП 3.0 => УТ 11 / КА 2 / ERP 2 (ЕРП) (перенос остатков, документов и справочной информации из "1С:Бухгалтерия предприятия 8", ред.3.0). Обновлено до БП 3.0.73.х, УТ 11.4.10.х, КА 2.4.10.х., ERP 2.4.10.х! Промо
Переносятся документы за выбранный период, справочная информация и остатки по счетам бух. учета в программу УТ 11 / КА 2 / ЕРП 2 (ERP). Переносятся все возможные виды операций ввода остатков на нужную дату. Есть отбор по периоду переноса документов и фильтр по организации, доступен выбор даты ввода остатков. Если нужно переносить что-то дополнительно, то обычно бесплатно добавляем это в перенос . Смотрите видеодемонстрацию со звуком - советами по переносу и рекомендациями настройки программ.
29700 руб.
Новый раздел на Инфостарте - Electronic Software Distribution Промо
Инфостарт напоминает: на нашем сайте можно купить не только ПО, связанное с 1С. В нашем арсенале – ESD-лицензии на ПО от ведущих вендоров: Microsoft, Kaspersky, ESET, Dr.Web, Аскон и другие.
- Низкие цены, без скрытых платежей и наценок
- Оперативная отгрузка
- Возможность оплаты с личного счета (кешбек, обмен стартмани на рубли и т.п.)
- Покупки идут в накопления для получения скидочных карт лояльности Silver (5%) и Gold (10%)
Иерархия справочника Сверху Вниз. Получаем произвольное количество родителей "верхнего" уровня 7
28.03.2019 2909 obsfromekb 11
Перенос данных БП 2.0 => УТ 11 / КА 2 / ERP 2 (перенос остатков, документов и справочников из "1С:Бухгалтерия предприятия 8", ред. 2.0 в "1С:Управление торговлей 8", ред.11 / КА 2 / ERP 2). Обновлено до УТ 11.4.10.х, КА 2.4.10.х, ERP 2.4.10.х! Промо
Перенос позволяет загрузить в УТ 11 / КА 2 / ERP 2 документы за выбранный период, справочную информацию и остатки по счетам бух. учета. Переносятся остатки денежных средств, взаиморасчетов, остатки товаров и материалов на складах. Переносятся девятнадцать основных видов документов за выбранный период и вся нормативно-справочная информация. Есть фильтр по организации. Если нужно переносить что-то дополнительно, то обычно бесплатно дорабатываю правила (перед покупкой согласуйте необходимые доработки).
29700 руб.
Онлайн-курс "Технология выполнения проектов ERP-класса – процессный подход". Третий поток. Курс проходит с 21 января по 18 марта 2020 года. Промо
Курс разработан Внедренческим центром «Раздолье». Курс предназначен для подготовки аналитиков, архитекторов и руководителей проектов автоматизации процессов управления с использованием комплексных ИТ-систем (1С:ERP, 1С:УХ, 1С:КА, 1С:УТ). В основе курса лежит методика применения процессного подхода.
9000 рублей
Нумерация колонок субконто при выгрузке набора записей регистра бухгалтерии в таблицу значений 6
14.01.2019 3053 The Ded 3
Программы для исполнения 54-ФЗ Промо
С 01.02.2017 контрольно-кассовая техника должна отправлять электронные версии чеков оператору фискальных данных - правила установлены в 54-ФЗ ст.2 п.2. Инфостарт предлагает подборку программ, связанных с применением 54-ФЗ, ККТ и электронных чеков.
Универсальные функции ЗУП 3.1 / ЗКГУ 3.1, которые помогут в разработке 506
14.11.2018 39230 GeterX 94
Перенос данных УПП 1.3 => ERP 2 (ЕРП) / УТ 11 / КА 2.х (обработка переноса документов, остатков и справочников из "1С:Управление производственным предприятием, ред. 1.3" в ERP / УТ 11 / КА 2). Обновлен до УПП 1.3.127.х, КА 2.4.10.х и ERP 2.4.10.х! Промо
Обработка позволяет переносить из УПП 1.3 в ERP 2 документы за выбранный период и остатки. Типовая обработка от фирмы 1С документы не переносит. Также исправлены ошибки типовой обработки. При выходе новых релизов обновление высылается бесплатно в течение года. Разработка будет полезна фирмам-франчайзи, которые периодически выполняют такой перенос данных для заказчиков. Вы можете один раз приобрести обработку переноса, и потом бесплатно получать обновления при выходе новых релизов конфигураций 1С.
29700 руб.
Добавление расшифровки в стандартные и добавленные внешние отчеты со стандартной формой отчета на СКД 73
27.09.2018 7323 bmk74 3
Функция НайтиФайлы() в каталоге netshare на Linux - обход ошибки работы 6
19.09.2018 3863 drmaxart 1
Подборка решений для взаимодействия со ФГИС «Меркурий» Промо
С 1 июля 2019 года все компании, участвующие в обороте товаров животного происхождения, должны перейти на электронную ветеринарную сертификацию (ЭВС) через ФГИС «Меркурий». Инфостарт предлагает подборку программ, связанных с этим изменением.
Простой способ программно открыть заполненную форму нового (незаписанного) документа в тонком клиенте 15
09.06.2018 8189 Serge R 12
Программы для исполнения 488-ФЗ: Маркировка товаров Промо
1 января 2019 года вступил в силу ФЗ от 25.12.2018 № 488-ФЗ о единой информационной системе маркировки товаров с использованием контрольных (идентификационных) знаков, который позволяет проследить движение товара от производителя до конечного потребителя. Инфостарт предлагает подборку программ, связанных с применением 488-ФЗ и маркировкой товаров.
