Запись файлов в 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 1 850 руб. Купить

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

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

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

Данная обработка создает 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С по "семерке" - сотрудники помогут вам выполнить переход в рамках техподдержки предлагаемого переноса данных!

61356 руб.

26.05.2020    37778    12    88    

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

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

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

1 стартмани

04.08.2025    1348    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    2069    1    quazare    0    

5
Выгрузка документа Поступление товаров на комиссию из 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    4222    9    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 и пр.), а также формировать архив сканированных документов.<br> Робот применяет до 5 способов распознавания. Максимальное качество загрузки документов из бесплатных OCR. Работает без Интернета.

10800 руб.

13.10.2022    10260    1    12    

9
Выгрузка документа Реализация ТМЦ с маркированными товарами в 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    44866    18    AlexHelmer    8    

5
Выгрузка УПД реализации в xml ФНС для ЭДО. Обработка для 1С: Торговля и склад 7.7

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

Выгрузка позволяет выгрузить xml-файл УПД из 1С Торговля и склад 7.7 для загрузки в ЭДО в формате по приказу ФНС № 820 от 19.12.2018.

1 стартмани

03.05.2022    7467    40    sthinks    5    

6
Реестр необлагаемых по 7 разделу декларации НДС операций

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

Выгрузка реестра необлагаемых НДС операций в ответ на требование налоговой инспекции. В формате xml согласно требованиям законодательства https://sbis.ru/formats/docFormatCard/120287/help/?scrollTo=description Реестр документов подаётся в ответ на требование налоговой о представлении пояснений. Начиная с 23 ноября 2020 года, его можно направлять по ТКС, в электронном виде в формате xml (письмо ФНС России от 12.11.2020 № ЕА-4-15/18589). Данная обработка просто выбирает необлагаемые суммы (не по ставке 0%) по книги продаж за выбранный квартал и включает их в реестр с кодом операции, который выбран в самой обработке.

1 стартмани

24.09.2021    5935    5    AndKovalchuk    0    

3
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. bulpi 217 10.06.18 09:50 Сейчас в теме
Автор, судя по лаконичности, Вы из Спарты. Ну хоть пару слов напишите, как реализовано и зачем.
JetBrain; +1 – Ответить
2. sirm 7 10.06.18 22:36 Сейчас в теме
Краткость... далее по тексту:) В первом варианте была ссылка на источник. Сейчас исправлю. Спасибо.
+ –1 Ответить
3. CheBurator 3232 01.10.18 01:12 Сейчас в теме
под какими виндами будет работать?
+ – Ответить
4. sirm 7 10.10.18 08:33 Сейчас в теме
Пробовал под XP и Win7. Под десяткой не пробовал.
А вообще для всех, где есть встроенный механизм архивирования Windows.
+ –1 Ответить
5. JetBrain 80 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
Показать
+ – Ответить
6. A1WEB 59 28.01.20 09:39 Сейчас в теме
Не рабочая, исходный код закрыт, поправить не возможно.
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация