Запись файлов в zip-архив из 1С: 7.7

29.06.21

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

+3 –2
Запись файлов в в zip-архив штатными средствами windows без использования архиваторов типа WinZip, WinRar, 7zip и т.д. для 1С: 7.7.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Запись файлов в zip-архив из 1с 7.7:
.ert 7,00Kb ver:1.0
8 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Данная обработка создает zip-архив и сохраняет в него указанную папку с файлами.

Реализована штатными средствами Windows без применения архиваторов WinZip, WinRar,7zip и прочих.

Обработка вызывается обычным способом:

Спис = СоздатьОбъект("СписокЗначений");
Спис.ДобавитьЗначение(ИмяИсхКат,"ИмяИсхКат");
Спис.ДобавитьЗначение(ИмяКонКат,"ИмяКонКат");
Спис.ДобавитьЗначение(ИмяАрх,"ИмяАрх");
ОткрытьФорму("Обработка",Спис,ПутьКОбработке+"foldtoarc.ert");

где: ИмяИсхКат - папка с файлами для архивирования
ИмяКонКат - папка с архивом
ИмяАрх - имя файла zip-архива (обязательно с расширением .zip)
ПутьКОбработке - путь к файлу обработки

Причина создания: Архивация файлов выгрузки клиента для передачи архива получателю.

Источник идеи: http://hiprog.com/index.php?option=com_content&task=view&id=251661619&Itemid=35

Визуальный интерфейс отсутствует.

Релиз платформы 7.70.026.

Вступайте в нашу телеграмм-группу Инфостарт

обработка архив zip

+3 –2

См. также

Перенос данных из 1С:Бухгалтерия 7.7 в БП 3.0. Переносятся остатки, документы и справочники

Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1С:Бухгалтерия 7.7 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Бухгалтерия 7.7 в БП 3.0 | Продукт является развитием и исправлением ошибок стандартной обработки для выгрузки данных из 1С Бухгалтерии 7.7 в Бухгалтерию 3.0 | Перенос из 7.7 является сложным, и на рынке сложно найти специалистов 1С по "семерке" - сотрудники помогут вам выполнить переход в рамках техподдержки предлагаемого переноса данных!

58000 руб.

26.05.2020    39834    14    100    

19
ФИАС для 1С 7.7

Файловый обмен (TXT, XML, DBF), FTP 1С:Предприятие 7.7 1C77 Россия Платные (руб)

Класс 1С++ для подключения ФИАС (Федеральная информационная адресная система) к любой конфигурации 1С 7.7. Опционально доступно геокодирование адресов и хранение географических координат адресных элементов ФИАС в отдельной БД. В конфигурации, где для ведения адресов используется типовой интерфейс по работе с КЛАДР, встраивается за пару минут.

6100 руб.

15.11.2017    28439    32    71    

31
Выгрузка файлов в xml формате книги покупок и продаж из 1С: Бухгалтерии 7.7 релиз 7.70.672 по новой ставке НДС 22% в 2026 году

Регламентированный учет и отчетность Файловый обмен (TXT, XML, DBF), FTP Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет НДС Абонемент ($m)

Разработка позволяет выгружать файлы в xml формате книги покупок и продаж по новой ставке НДС 22% для сдачи регламентированной отчетности (Декларации НДС).

2 стартмани

15.04.2026    2781    48    user608421_alex_sh_777    24    

3
Импорт XML в 1С 7.7 во временный справочник

Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 7.7 Абонемент ($m)

Предлагается обработка, которая импортирует XML файл в справочник. Обработка облегчает обработку XML файлов за счет использования команд 1С 7.7 работы со справочниками и запросами. Тестировалось на релизе 7.70.027

1 стартмани

04.08.2025    2552    0    malovandrey    2    

4
Техническая выгрузка номенклатуры из ТиС 7.7 в JSON

Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Представляю Вам техническую обработку, которая позволяет выгрузить справочник номенклатуры ТиС 7.7 в удобочитаемый JSON.

10 стартмани

09.01.2025    3279    2    quazare    0    

6
Выгрузка документа Поступление товаров на комиссию из 1С 7.7 в универсальный формат EnterpriseData 1.12 для загрузки в 1С: Бухгалтерию 3

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 7.7 НДС Абонемент ($m)

Пример создания документа Поступление (акт, накладная, УПД) в 1С: Бухгалтерии 3 путем загрузки из XML универсального формата EnterpriseData 1.12 файла, сгенерированного обработкой документа "Реализация". Выгрузка реализации написана в самописной конфигурации на платформе 1С:Предприятие 7.7. Способ заполнения реквизитов поступления можно переделать под себя, выгрузка XML в универсальный формат EnterpriseData останется работоспособной.

1 стартмани

14.02.2023    5284    11    ksnik    0    

7
Робот-загрузчик и архив документов. Распознавание/загрузка сканов документов в 1С8(7.7), архив сканированных документов.

Файловый обмен (TXT, XML, DBF), FTP Учет документов Распознавание документов и образов Бухгалтер Пользователь 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 1.х 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Платные (руб)

Программный комплекс способный распознавать сотни листов за раз любых сканированных(фото) документов (УПД, ТОРГ12, СФ, паспорт и пр.) и загружать их в любую 1С (БП3.0, УТ, КА, УНФ, УПП, 1С7.7 ТиС, ЗУП3 и пр.), а также формировать архив сканированных документов.
Робот применяет до 5 способов распознавания. Максимальное качество загрузки документов из бесплатных OCR. Работает без Интернета.

10980 руб.

13.10.2022    11865    1    12    

10
Выгрузка документа Реализация ТМЦ с маркированными товарами в XML формата 5.02 (согласно 820 приказу ФНС) из 1С 7.7 ТиС для загрузки в Честный знак

Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Обмен с ГосИС Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Управленческий учет Абонемент ($m)

Выгрузка из 1С 7.7 ТиС 9.2 в XML реализованной оптом маркированной продукции для загрузки в Честный знак.

10 стартмани

10.08.2022    50240    20    AlexHelmer    8    

5
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. bulpi 219 10.06.18 09:50 Сейчас в теме
Автор, судя по лаконичности, Вы из Спарты. Ну хоть пару слов напишите, как реализовано и зачем.
JetBrain; +1 – Ответить
2. sirm 7 10.06.18 22:36 Сейчас в теме
Краткость... далее по тексту:) В первом варианте была ссылка на источник. Сейчас исправлю. Спасибо.
+ –1 Ответить
3. CheBurator 3235 01.10.18 01:12 Сейчас в теме
под какими виндами будет работать?
+ – Ответить
4. sirm 7 10.10.18 08:33 Сейчас в теме
Пробовал под XP и Win7. Под десяткой не пробовал.
А вообще для всех, где есть встроенный механизм архивирования Windows.
+ –1 Ответить
5. JetBrain 83 23.02.19 14:27 Сейчас в теме 
Функция ShellApp()                                       
	Попытка
		shell = СоздатьОбъект("shell.application");   		
	Исключение 
    	Сообщить("Не удалось создать объект shell.application!");   
		Возврат 0;
	КонецПопытки; 
	возврат shell;
КонецФункции

Function fZip(zipArchivePath, addPath)
         
    sh = ShellApp();
   
    oFSO = CreateObject("Scripting.FileSystemObject");
    
    If oFSO.FileExists(zipArchivePath) = 1 Then 
	    oFSO.DeleteFile(zipArchivePath);
    EndIf;

    fTarget = sh.Namespace(zipArchivePath);
    If fTarget <> "" Then
        oFSO.CreateTextFile(zipArchivePath).Write("PK" + Chr(5) + Chr(6) + string(chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)
		                                          +chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0))); //string(18,chr(0)) "PK                  "
        //oFSO = Nothing;
    EndIf;
    
    sh.Namespace(zipArchivePath).CopyHere(sh.Namespace(addPath).Items, 4);

    //While sh.Namespace(zipArchivePath).Items.Count = sh.Namespace(addPath).Items.Count Do
        //Sleep 500
    //EndDo;
    
    //sh = Nothing; 
    
EndFunction
Показать
imaster; +1 – Ответить
6. A1WEB 61 28.01.20 09:39 Сейчас в теме
Не рабочая, исходный код закрыт, поправить не возможно.
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация