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

29.06.21

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

–2

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

Скачать файл

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

Наименование		SM	По подписке [?]	Купить один файл
Запись файлов в zip-архив из 1с 7.7: .ert 7,00Kb 8	8	1 SM	Скачать	Купить за 1 850 руб.

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

См. также

Правила обмена Комплексная конфигурация 4.5 (1С 7.7) - Бухгалтерия предприятия 3.0 (1С 8.3)

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

Правила предназначены для переноса справочников и остатков по всем счетам.

2000 руб.

02.06.2015 42856 45 33

Выгрузка документа Поступление товаров на комиссию из 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 2982 8 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 8142 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 25199 16 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 5861 31 sthinks 4

Реестр необлагаемых по 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 4620 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 8737 54 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С:Бухгалтерия 1.6 1С:Упрощенное налогообложение 7.7 Россия Бухгалтерский учет Абонемент ($m)

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

1 стартмани

31.07.2021 15689 223 AndKovalchuk 50

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

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

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

Показать