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

29.06.21

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

–2

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

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

	Наименование	Файл	Версия	Размер
	Запись файлов в zip-архив из 1с 7.7: .ert 7,00Kb 8	.ert	1.0	7,00Kb	8	Скачать

Данная обработка создает 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

–2

См. также

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

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v7.7 НДС Абонемент ($m)

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

1 стартмани

14.02.2023 2361 5 ksnik 0

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

Файловый обмен (TXT, XML, DBF), FTP Учет документов Распознавание документов и образов Платформа 1С v7.7 Платформа 1С v8.3 Платформа 1C v8.2 Конфигурации 1cv8 Конфигурации 1cv7 Россия Платные (руб)

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

10800 руб.

13.10.2022 7172 1 12

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

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

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

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

2 стартмани

03.05.2022 4979 24 sthinks 2

Реестр необлагаемых по 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 4269 5 AndKovalchuk 0

Выгрузка из 1С ТиС 9.2 в 1С БП 3.0 с дополнительными фильтрами по Фирме, Складу, Контрагенту, Проекту, Автору и Юрлицу

Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Оперативный учет 7.7 1С:Торговля и склад 7.7 1С:Бухгалтерия 3.0 Бухгалтерский учет Управленческий учет Абонемент ($m)

Обработка и правила обмена данными для выгрузки документов и всех связанных с ними справочников из 1С7.7 ТиС 9.2 в 1С8.3 БП 3.0 через файл XML. В типовых конфигурациях уже есть такое решение. Это немного доработанные правила и сама обработка выгрузки, добавлена возможность устанавливать отбор по выгружаемым документам по Фирме, Контрагенту, Складу, Проекту, Автору, ЮрЛицу. А также это внешняя обработка, что даёт возможность адаптировать её под нетиповую ТиС. Обработка и правила тестировались на платформах: 1С: Предприятие 7.7 и 1С: Предприятие 8.3.18.1334. На типовых конфигурациях: «Торговля + склад», редакция 9.2 (7.70 1004) и «Бухгалтерия предприятия» редакция 3.0 (3.0.96.30).

1 стартмани

13.08.2021 7832 43 Kuzya_brаtsk 8

Выгрузка УПД И УКД в формате ЭДО для Бухгалтерии 7.7 (ПУБ 7.7, УСН 7.7, ТиС 7.7, Комплексной 7.7)

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

Обмениваемся УПД (УКД) с различными контрагентами через СБИС. А чтобы загрузить УПД (УКД) из 7.7 в Сбис, используем данную обработку, которая создает файл в формате XML, который можно импортировать в систему электронного документооборота. Для конфигурации "Бухгалтерский учет" (тестировалась на релизе 7.70.663) Для конфигурации "Упрощенная система налогообложения" ( тестировалась на релизе 7.70.305) Для конфигурации "Торговля и Склад 7.7" (тестировалась на релизе 7.70.1007)

1 стартмани

31.07.2021 13457 161 AndKovalchuk 27

Внешняя компонента для преобразования файлов из/в кодировку Base64 в 1С 7.7

Разработка внешних компонент Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Эта внешняя компонента Base64.dll предназначена для платформы 1С версии 7.7. Используется для преобразования файлов из/в кодировку Base64 из встроенного языка 1С Предприятие. Компонента тестировалась на базе конфигурации Бухгалтерский учет для Казахстана, редакции 7.70.257.

10 стартмани

06.04.2021 8868 13 softmaker 9

Комментарии

В избранное Подписаться на ответы

Свернуть все

1. bulpi 211 10.06.18 09:50 Сейчас в теме

Автор, судя по лаконичности, Вы из Спарты. Ну хоть пару слов напишите, как реализовано и зачем.

2. sirm 7 10.06.18 22:36 Сейчас в теме

Краткость... далее по тексту:) В первом варианте была ссылка на источник. Сейчас исправлю. Спасибо.

3. CheBurator 3115 01.10.18 01:12 Сейчас в теме

под какими виндами будет работать?

4. sirm 7 10.10.18 08:33 Сейчас в теме

Пробовал под XP и Win7. Под десяткой не пробовал.
А вообще для всех, где есть встроенный механизм архивирования Windows.

5. JetBrain 76 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

Показать