92
Рейтинг

Aphanas
Алексей Апанасович

Регистрация: 30.07.2009 (14 лет назад)
Был(а) на сайте: 03.04.2024

Друзья

Подписчики 5

Дополнительная информация

Группы

Профессиональный разработчик

Рейтинг 92

Конфигурация "Учет финансов"
+4 –

Отчеты и формы Для всех Платформа 1С v8.3 Управленческий учет Абонемент ($m) Архив с данными Бюджетирование и планирование

Предназначена для учета и планирования личных (а может, и не только личных) финансов. Имеет функцию резервирования денежных средств в разрезе статей. Реализованы все необходимые отчеты, а также диаграммы.

1 стартмани

16.12.2018 27116 3 Aphanas 4

Редактор движений документа. Сохранение в XML, обмен между базами, замена регистратора.
+31 –

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 Абонемент ($m) Внешняя обработка (ert,epf) Корректировка данных Файловый обмен (TXT, XML, DBF), FTP

Редактор набора записей движений документа. Позволяет сохранить набор записей в XML, в настройки пользователя, прочитать сохраненный XML в другой идентичной базе, заменить регистратор. Можно изменять порядок записей, менять активность, как массово, так и по одной и др. Тонкий клиент, управляемые формы.

1 стартмани

07.09.2016 63440 187 Aphanas 5

Общий журнал (COM)
+7 –

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Windows Абонемент ($m) Внешняя обработка (ert,epf) Журнал регистрации

Универсальная обработка (УФ), общий журнал, работающий через COM-соединение с текущей базой. Служит примером к статье "Быстрая передача результата запроса на клиент через COM-соединение с текущей базой". Пригоден для повседневного использования.

1 стартмани

31.08.2016 15547 19 Aphanas 9

Быстрая передача результата запроса на клиент через COM-соединение с текущей базой
+43 –

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free) Нет файла Запросы

Способ ускорения передачи больших объемов данных с сервера на клиент, используя COM-соединение с текущей базой. Быстрее в 3-5 раз, по сравнению с обычными методами.

31.08.2016 18265 Aphanas 19

Обработка выгрузки результатов запросов в XML
+7 –

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 Россия Абонемент ($m) Внешняя обработка (ert,epf) Файловый обмен (TXT, XML, DBF), FTP

Обработка предназначена для выгрузки произвольных данных в XML. Подходит для организации обмена 1С и сторонних приложений. Данные определяются запросами и выгружаются в XML соответствующей структуры. Также выгружаются соответствующие схемы XML.

1 стартмани

30.07.2016 11731 30 Aphanas 1

Смотреть все

(26) Лучше с ограничениями, чем вообще ничего. Другого-то ничего так и не появилось. Табличный формат в 2023 нужен затем же, зачем он был нужен всегда. От года ничего не зависит. Excel и json это не то. Передавать таблицу в Excel или json это тоже самое, что передавать таблицу в Word - тоже можно, но неудобно.

Обмен › Загрузка из Еxcel в 1С › #24 01.12.23 4:18

(22) У нас нет табличного формата нормального. Был DBF когда-то, но его похоронили. Excel - это не таблица, это действительно хлам.

Обмен › Загрузка из Еxcel в 1С › #16 29.11.23 12:03

(12) Обработка загружает данные в какой-то регистр сведений. Соответствие полей задается в коде.

Чтение происходит на клиенте. Cells - переменная на уровне модуля, через неё осуществляется доступ к Excel (через COM). Функция "ПрочитатьЗаписи" - грузит таблицу в массив структур на клиенте, показывает прогресс-бар. Процедура "ЗагрузитьЗаписи" - пишет данные в БД на сервере, именно в ней приходится писать логику, как правило. Ниже немного кода, см. также вложение.

Спойлер

Код

&НаКлиенте
Функция ПрочитатьЗаписи(НачальнаяСтрока,КонечнаяСтрока)
   Записи = Новый Массив;
   
   КоличествоСтрок = КонечнаяСтрока-НачальнаяСтрока+1;
   
   ШагСостояния = Макс(Окр(КоличествоСтрок/100),1);
   
   НомерСтроки = 0;
   Для i = НачальнаяСтрока По КонечнаяСтрока Цикл
      НомерСтроки = НомерСтроки+1;
      Запись = ПолучитьЗапись();
      Записи.Добавить(Запись);
      
      Если НомерСтроки % ШагСостояния = 0 Тогда
         Состояние("Чтение таблицы...",НомерСтроки/КоличествоСтрок*100,""+НомерСтроки+"/"+КоличествоСтрок);
      КонецЕсли;
      
   КонецЦикла;
   
   Возврат Записи; 
КонецФункции

Процедура ЗагрузитьЗаписи(Знач Записи)
   
   ДобавляемыеТипы = Новый Массив;
   
   ИменаДокументов = Новый Соответствие;
   Для каждого ДокМД из Метаданные.Документы Цикл
      ИменаДокументов.Вставить(ДокМД.Представление(),ДокМД.Имя);
      ДобавляемыеТипы.Добавить(Тип("ДокументСсылка."+ДокМД.Имя));
   КонецЦикла;
   
   Табл = Новый ТаблицаЗначений;
   Табл.Колонки.Добавить("Документ",Новый ОписаниеТипов(ДобавляемыеТипы));
   Табл.Колонки.Добавить("ОсновноеСредство",Новый ОписаниеТипов("СправочникСсылка.ОбъектыЭксплуатации"));
   Табл.Колонки.Добавить("СрокПолезногоИспользованияБУ",Новый ОписаниеТипов("Число"));
   
   Для каждого Запись из Записи Цикл
      Стр = Табл.Добавить();
      Стр.Документ = Документы[ИменаДокументов[Запись.ДокументПредставлениеТипа]].ПолучитьСсылку(Новый УникальныйИдентификатор(Запись.ДокументУникальныйИдентификатор));
      Стр.ОсновноеСредство = Справочники.ОбъектыЭксплуатации.ПолучитьСсылку(Новый УникальныйИдентификатор(Запись.ОсновноеСредствоУникальныйИдентификатор));
      Стр.СрокПолезногоИспользованияБУ = Запись.СрокПолезногоИспользованияБУ;
   КонецЦикла;
   
   Запрос = Новый Запрос;
   Запрос.Текст = 
      "ВЫБРАТЬ
      |   Табл.Документ КАК Документ,
      |   Табл.ОсновноеСредство КАК ОсновноеСредство,
      |   Табл.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользованияБУ
      |ПОМЕСТИТЬ Табл
      |ИЗ
      |   &Табл КАК Табл
      |;
      |
      |////////////////////////////////////////////////////////////////////////////////
      |ВЫБРАТЬ
      |   ПараметрыАмортизацииОСБУ.Регистратор КАК Регистратор,
      |   ПараметрыАмортизацииОСБУ.ОсновноеСредство КАК ОсновноеСредство,
      |   Табл.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользованияБУ
      |ИЗ
      |   РегистрСведений.ПараметрыАмортизацииОСБУ КАК ПараметрыАмортизацииОСБУ
      |      ВНУТРЕННЕЕ СОЕДИНЕНИЕ Табл КАК Табл
      |      ПО ПараметрыАмортизацииОСБУ.Регистратор = Табл.Документ
      |         И ПараметрыАмортизацииОСБУ.ОсновноеСредство = Табл.ОсновноеСредство
      |ГДЕ
      |   ПараметрыАмортизацииОСБУ.СрокПолезногоИспользованияБУ <> Табл.СрокПолезногоИспользованияБУ";
   
   Запрос.УстановитьПараметр("Табл",Табл);
   
   Выборка = Запрос.Выполнить().Выбрать();
   
   НачатьТранзакцию();
   Пока Выборка.Следующий() Цикл
      
      Набор = РегистрыСведений.ПараметрыАмортизацииОСБУ.СоздатьНаборЗаписей();
      Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);
      Набор.Прочитать();
      
      Для каждого ЗаписьНабора из Набор Цикл
         Если ЗаписьНабора.ОсновноеСредство = Выборка.ОсновноеСредство Тогда
            ЗаписьНабора.СрокПолезногоИспользованияБУ = Выборка.СрокПолезногоИспользованияБУ;
         КонецЕсли;
      КонецЦикла;
      
      Если Набор.Модифицированность() Тогда
         Набор.ОбменДанными.Загрузка = Истина;
         Набор.Записать();
      КонецЕсли;
      
   КонецЦикла;
   ЗафиксироватьТранзакцию();
   
КонецПроцедуры

&НаКлиенте
Процедура Загрузить(Команда)
   Excel = Новый COMОбъект("Excel.Application");
   Workbook = Excel.Workbooks.Open(ИмяФайла);
   
   Sheet = Workbook.ActiveSheet;
   
   Count = Sheet.UsedRange.Rows.Count;
   Cells = Sheet.Cells;
   
   СоответствияПолей = Новый Соответствие;
   
   СоответствияПолей.Вставить("ДокументПредставлениеТипа",1);
   СоответствияПолей.Вставить("ДокументУникальныйИдентификатор",5);
   СоответствияПолей.Вставить("ОсновноеСредствоУникальныйИдентификатор",6);
   СоответствияПолей.Вставить("СрокПолезногоИспользованияБУ",7);
   
   Записи = ПрочитатьЗаписи(5,45252);
   //Записи = ПрочитатьЗаписи(5,27);
   
   //Сообщить(Count);
   
   Состояние("Загрузка...");
   ЗагрузитьЗаписи(Записи);
   
   Excel.DisplayAlerts = Ложь;
   Workbook.Close();
   Excel.Quit();
   
КонецПроцедуры

Прикрепленные файлы:

ЗагрузкаИзXLS2.epf

Обмен › Загрузка из Еxcel в 1С › #10 28.11.23 12:57

Поддержу идею. Я использую шаблон обработки, который просто немного допиливаю под конкретные загрузки. Какой-то универсальной обработкой не пользуюсь - что-то не нашел хорошего решения. Возможно плохо искал. Помню под 7.7 была обработка, которой все пользовались. Она была удобна, понятна и работала хорошо. Под v8 не встретил подобного. Есть много разных, но всё с какими-то недостатками.

Так что фрагмент кода или шаблон имеет право на существование, имхо.

Admin › Отечественные операционные системы › #5 17.11.23 8:32

(1) Разработчикам тоже это поставят. Лично я использую кучу софта помимо 1С - Araxis, XMLSpy, TextBoard и др. Было дело использовал Visual Studio как-то. Возвращаться в каменный век как-то не охота.

Публикации › Первый день архитектора 1С на новой работе › #19 06.10.23 7:29

Опа, так и я архитектор значит. Хотя по статусу чернорабочий больше

Обмен › Простой механизм универсального обмена между базами 1С › #13 22.09.23 11:36

(9)

Цитата
Если та конфигурация, куда вы переносите этот механизм будет развернута в среде Линукс, то механизмы СОМ в ней работать не будут.

Да, но чем это будет лучше?

Обмен › Простой механизм универсального обмена между базами 1С › #8 22.09.23 4:12

(3) Без доработки источника и приемника какая альтернатива будет? Через файлы? Это конечно намного более прогрессивный механизм... ((

Обмен › Простой механизм универсального обмена между базами 1С › #7 22.09.23 4:10

Обычно под словом "универсальный" понимают "работающий в любой конфигурации".
Здесь же какой-то WS упоминается, а потом еще и справочник...

92 Рейтинг

Aphanas Алексей Апанасович

Рейтинг 92

Конфигурация "Учет финансов" +4 –

Редактор движений документа. Сохранение в XML, обмен между базами, замена регистратора. +31 –

Общий журнал (COM) +7 –

Быстрая передача результата запроса на клиент через COM-соединение с текущей базой +43 –

Обработка выгрузки результатов запросов в XML +7 –

Комментарии

92
Рейтинг

Aphanas
Алексей Апанасович

Конфигурация "Учет финансов"
+4 –

Редактор движений документа. Сохранение в XML, обмен между базами, замена регистратора.
+31 –

Общий журнал (COM)
+7 –

Быстрая передача результата запроса на клиент через COM-соединение с текущей базой
+43 –

Обработка выгрузки результатов запросов в XML
+7 –