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

29.06.21

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

Запись файлов в в 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

См. также

SALE! 10%

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

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

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

50722 45650 руб.

26.05.2020    34139    10    67    

16

Загрузка документов в 1С (7.7) из табличных файлов Excel,OpenOffice,1C,DBF,TXT (обработка)

Файловый обмен (TXT, XML, DBF), FTP Загрузка и выгрузка в Excel Платформа 1С v7.7 Конфигурации 1cv7 Платные (руб)

Обработка решает поставленную задачу по вводу документов, а кроме того обладает важной функцией: настраивается на ассортимент конкретного поставщика, запоминая соответствие между его номенклатурой и «нашей». Т.е. фактически – является самообучающейся системой ввода накладных. У разных поставщиков могут быть накладные различного типа, с разным количеством полей, поэтому для каждого из них может быть сохранена своя собственная настройка диалоговой формы так, что любая поступающая накладная может быть обработана. По отношению к программе "1С:Предприятие 7.7" данное решение является внешними файлами. Для использования данного продукта не требуется вносить изменения в алгоритм существующих программ или используемых конфигураций.

2400 руб.

10.12.2009    76639    58    93    

68

Выгрузка документа Поступление товаров на комиссию из 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    2742    6    ksnik    0    

6

Робот-загрузчик и архив документов. Распознавание/загрузка сканов документов в 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    7917    1    12    

9

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

3

Выгрузка из 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    8456    52    Kuzya_brаtsk    8    

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