Загрузка документов "Операция" по счетам из Excel за период

06.10.11

Интеграция - Загрузка и выгрузка в Excel

Внешняя обработка для 1С 8.2 УПП
Должна работать и БП (не проверял)

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

Наименование Файл Версия Размер
Загрузка ОперацияБух по счетам из Excel за период
.zip 17,77Kb
150
.zip 17,77Kb 150 Скачать

Стояла задача слить две базы только по движениям БУ за период по всем счетам бух. учета. База-источник - Бухгалтерия 7.7, база-приемник УПП 8.2. Остатки из 7.7 были выгружены через XML-обмен по правилам конвертации с сайта http://users.v8.1c.ru/. А вот с оборотами там конфуз получился )). Как оказалось, их там просто нет.

Парсить XML времени и желания особого не было т.к требовали обороты "вчера". Было принято решение выгрузить все движения из 7.7 в Excel и загрузить в УПП 8.2 документ ОперацияБух (бухгалтеров данный факт устраивал).

Была написана обработка загрузки из Excel по различным счетам учета, т.е обработка по счету получает субконто и определяет СправочникМенеджер или ПеречислениеМенеджер. Далее ищет ссылку в нужном справочнике или перечислении на субконто по наименованию для занесения в документ ОперацияБух и регистр бухгалтерии.

См. также

SALE! 10%

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

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

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

10560 9504 руб.

29.10.2014    210161    620    524    

439

Загрузка номенклатуры 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    150711    367    375    

501

Маркетплейсный загрузчик для 12-ти маркетплейсов в "БП 3", "УТ 11", "КА 2", ERP, УНФ

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 Бухгалтерский учет 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Управленческий учет Платные (руб)

Реальный помощник, с помощью которого Вы сделаете необходимые документы для Wildberries, OZON, ЯндексМаркет, Мегамаркет, Aliexpress, "Детский мир", Казань-Экспресс, "Леруа Мерлен", ЭНФАНТА (Акушерство), ЛаМода, Летуаль, "Твой дом" в документы "Отчет комиссионера (агента) о продажах" и другие, может работать в "Бухгалтерия 3", "Бухгалтерия 3 КОРП", УТ 11, УНФ, КА 2, ERP. Возможность подключить любые маркетплейсы. Анализ продаж ОЗОН. 30 дней БЕСПЛАТНОГО пользования!

1800 руб.

12.08.2021    31893    226    63    

117

SALE! 20%

Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы

Загрузка и выгрузка в Excel Оптовая торговля Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

5000 4000 руб.

09.11.2016    214919    925    886    

939

Загрузка данных отчета о реализации товаров из Excel файла СберМегаМаркет

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Загрузка данных отчета о реализации товаров из сервиса СберМегаМаркет для конфигурации: Бухгалтерия предприятия, редакция 3.0; Управление торговлей, редакция 11 и Управление нашей фирмой, редакция 3.0 в документ "Отчет комиссионера (агента) о продажах".

4800 руб.

07.06.2022    15073    79    0    

60

SALE! 30%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

6000 5520 руб.

04.06.2019    101372    296    173    

312
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. gutentag 253 07.10.11 10:51 Сейчас в теме
Нет, в Бухгалтерии-2.0 не работает, а жаль очень нужная и полезная вещь в жизни простого бухгалтера!
Буду очень признателен, если доработете обработку для бух-2.0
Спасибо!
---
..Обработка открывается, но выдает ошибку:
{Форма.Форма.Форма(112)}: Получение элемента по индексу для значения не определено
Перечисление = Перечисления[Соответствие1.Получить(ТекСубконто.ВидСубконто.ТипЗначения.Типы()[0])];
10. Sykoky 6 12.02.12 15:20 Сейчас в теме
Надоело исправлять ошибки, переписал на скорую руку.
Следующий код необходимо вставить ВМЕСТО процедуры КнопкаВыполнитьНажатие




Перем ЛистExcel;

Процедура ЗаписьДанных(СтрокаExcel, СубТип, СубКод, Счет, Субконто, Сообщать=Ложь, Д_К = "Д")
СчЦикла = 0;

Для каждого ТекСубконто Из Счет.ВидыСубконто Цикл

СубкДт = ЛистExcel.Cells(СтрокаExcel,СубТип+СчЦикла).Value;
КодДт = ЛистExcel.Cells(СтрокаExcel,СубКод+СчЦикла).Value;
СчЦикла = СчЦикла + 1;

Если (СокрЛП(КодДт) = Неопределено) Тогда
Если Сообщать Тогда
сообщить("Параметр №"+СчЦикла+" пуст");
КонецЕсли;
Продолжить;
КонецЕсли;
Попытка
СДт = Справочники[Соответствие.Получить(ТекСубконто.ВидСубконто.ТипЗначения.Типы()[0])].НайтиПоКоду(КодДт, Истина);
Если СДт = Неопределено Тогда
Сообщить("Не найдено " + Д_К + СчЦикла + " субконто "+ КодДт);
Иначе
// Сообщить("Найдено Д" + СчЦикла + " субконто " + КодДт + " " + СДт);
КонецЕсли;
Исключение
Попытка
Перечисление = Перечисления[Соответствие1.Получить(ТекСубконто.ВидСубконто.ТипЗначения.Типы()[0])];
СДт = ПолучитьЗначениеПеречисления(СубкДт, Перечисление);
Исключение
Попытка
СДт = Документы.Партия.НайтиПоНомеру(КодДт);
// Если НЕ СДт.Пустая() Тогда
// КонецЕсли;
Исключение
Сообщить("Ошибка субконто " + Д_К + СчЦикла + КодДт);
КонецПопытки;
КонецПопытки;
КонецПопытки;

Попытка
ОбщегоНазначения.УстановитьСубконто(Счет, Субконто, СчЦикла, СДт, Сообщать);
Исключение
Сообщить("Не установлен " + Д_К + СчЦикла);
КонецПопытки;

Если СчЦикла=3 Тогда
Прервать; // В 7-ке из всего 3
КонецЕсли;

КонецЦикла;

КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)

СоздатьТипы();

Попытка
Файл = ПолучитьCOMОбъект(ПутьКФайлу);
Исключение
Предупреждение("На компе не установлен Excel.");
Возврат
КонецПопытки;

xlCellTypeLastCell = 11;
ЛистExcel = Файл.Sheets(1);
ПоследняяСтрокаExcel = ЛистExcel.Cells.SpecialCells(xlCellTypeLastCell).Row;

Если ПоследняяСтрокаExcel < НомерПервойСтроки Тогда
Предупреждение("НЕ ВЕРНО указана первая строка или в файле Excel первая закладка пуста.");
Возврат;
КонецЕсли;


СтарДатаВремя = "20111231000001"; //********* времянка на 1-й цикл.

НачатьТранзакцию();
СчетчикЦикла = 0;

Для СтрокаExcel = НомерПервойСтроки По ПоследняяСтрокаExcel Цикл
СчетчикЦикла = СчетчикЦикла +1;
Состояние("Строка "+СчетчикЦикла+" из "+ПоследняяСтрокаExcel);

ОбработкаПрерыванияПользователя();


// ***************** Определение строк Excel
ДатаИзXLS = ЛистExcel.Cells(СтрокаExcel,1).Value; // Тут у меня дата такого формата 01.01.2010 и далее нужно ее перевести в формат 1С
СчДт = ЛистExcel.Cells(СтрокаExcel,4).Value;
СчДт = СтрЗаменить(СчДт,".","");
СчКт = ЛистExcel.Cells(СтрокаExcel,5).Value;
СуммаОперации = ЛистExcel.Cells(СтрокаExcel,6).Value;
Количество = ЛистExcel.Cells(СтрокаExcel,26).Value;
Содержание = ЛистExcel.Cells(СтрокаExcel,27).Value;
// ******************


РазделительСтрок = Символы.ПС; // Получим нужный формат даты (20100101230000) из (01.01.2010)
Результат = СтрЗаменить(ДатаИзXLS, ".", РазделительСтрок);
День = СокрЛП(СтрПолучитьСтроку(Результат, 1));
Месяц = СокрЛП(СтрПолучитьСтроку(Результат, 2));
Год = Лев(СокрЛП(СтрПолучитьСтроку(Результат, 3)), 4);
Время = "000001";

ДатаВремя = Год+Месяц+День+Время;

Если СтарДатаВремя <> ДатаВремя
Тогда
Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ДатаВремя;
Док.Организация = Организация;
Док.Содержание = Содержание;
Док.Ответственный = Ответственный;
Док.Записать();

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Значение = Док.Ссылка;
НаборЗаписей.Отбор.Регистратор.Использование = Истина;

Сообщить("Создан документ ОперацияБух № " + Док.Ссылка);
КонецЕсли;

Движения = НаборЗаписей.Добавить();
Движения.Регистратор = Док.Ссылка;
Движения.Период = Док.Дата;
Движения.Организация = Док.Организация;

Движения.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СчДт);
Движения.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СчКт);
Движения.КоличествоДт = Количество;
Движения.КоличествоКт = Количество;
Движения.Сумма = СуммаОперации;


// ******************************

ЗаписьДанных(СтрокаExcel, 7, 20, Движения.СчетДт, Движения.СубконтоДт, Истина, "Д");

ЗаписьДанных(СтрокаExcel, 10, 23, Движения.СчетКт, Движения.СубконтоКт, Истина, "К");

//*********************************
Попытка
НаборЗаписей.Записать();
Исключение
Сообщить("Ошибка создания набора записей Регистра Бухгалтерии для документа" + Док.Ссылка +" Дт " +Строка(Движения.СчетДт) + " - Кт " + Строка(Движения.СчетКт));
КонецПопытки;

СтарДатаВремя = ДатаВремя;

КонецЦикла;
ЗафиксироватьТранзакцию();

Файл.Close();

Сообщить("Удачно");

Документы.ОперацияБух.ПолучитьФорму("ФормаСписка").Открыть();

КонецПроцедуры
2. 1vasia1 15 08.10.11 08:13 Сейчас в теме
Я попробую доделать ее и для бухгалтерии
Обработка будет скорее такойже но с флагом выбора (УПП vs БП) :)
Как скоро вам это нужно?
Сейчас просто голова другим заболела :)
3. gutentag 253 10.10.11 00:09 Сейчас в теме
(2) После 20-ого числа потребуется, но в любом случае, готов и далее потерпеть :) :)
Я в экселе делаю расчеты для производственного учета и по их данным, я операциями закрываю 25-счет(а ранее и 26-счет), распределяя его по заказам в дебет 20-счета.
---
спасибо!
4. 1vasia1 15 11.10.11 14:24 Сейчас в теме
Я проверил обработку на своем релизе (Бухгалтерия предприятия, редакция 2.0 (2.0.24.10)).
Все работает без доработки. :):)
5. 1vasia1 15 11.10.11 14:32 Сейчас в теме
1. Наверняка у вас с субконто проблема. Поверьте соответствие ваших столбцов в xls и шаблона который я выкладывал!
2. Проверьте, что субконто в excel совпадает по Наименованию(НЕ КОДУ) с субконто в (Справочнике или Перечислении).
Должно работать.
Напишите как тест прошел :).
Или пришлите мне пример своего файла.
6. 1vasia1 15 01.11.11 16:23 Сейчас в теме
Да забыл сказать обработина грузит по субконто(справочники и перечисления)
но не субконто-документы.
7. Sykoky 6 10.02.12 16:24 Сейчас в теме
Ага, грузит, аж 2 раза.

Ляп №1 - сбита нумерация колонок создаваемого DBF-файла и Excel'я начиная с Дебета.
Ляп №2 - при отсутствии выборки корректного счета смысл пытаться дальше что-то делать.
Ляп №3 - 1С 7.7 выгружает счет в виде (хх.уу.яя). А в 8-ке точки где-то есть в плане счетов?
Ляп №4 - при отсутствии найденного элемента Субконто торжественно пишем пустоту.

Полдня потратил, пока нашел/исправил.

Замечания к логике.
1. Искать субконто лучше по коду/полному коду. Наименования, особенно в Товаре, могут и повторяться.

Рекомендации.
1.Лучше выгрузку делать не одним гигантским фалом, а разбить по счетам/операциям - проще контролировать суммы и обороты, когда ищешь сбой.
2. Если делать выгрузку кода, а не наименования, то размер поля придется увеличить. Да и поиск по более короткой строке, а тем более по числу, выполняется намного шустрее...
8. Sykoky 6 10.02.12 16:26 Сейчас в теме
P.S.

Для конфы УТП еще необходимо заменить вызов
БухгалтерскийУчет.УстановитьСубконто
на
ОбщегоНазначения.УстановитьСубконто
9. Sykoky 6 11.02.12 21:42 Сейчас в теме
Ляп №5 - В 8-ке 4-ре Субконто, а в 7-ке три. А счетчик субконто проверяется на "1", "2", а вот на "3" кто-то забыл, т.е. в следующем цикле Субконто_3 = "", т.к. из файла его не загрузить.

Кстати, проверка субконто идет только на справочники и перечисления. А если это партия?
11. Sykoky 6 12.02.12 15:23 Сейчас в теме
П.С.

У меня документы - Партии. Кому необходимо изменить - не забываем исправить.
12. пользователь 24.04.17 16:47
Сообщение было скрыто модератором.
...
Оставьте свое сообщение