Для того чтобы записать файлы в ZIP-архив необходимо выполнить несколько простых действий:
* Создать архив с необходимыми параметрами, в который будут помещаться файлы.
* Поместить в архив необходимые файлы.
* Записать архив.

Создание объекта ЗаписьZIPФайла можно осуществить двумя путями - создать инициализированный объект или создав неинициализированный объект вызвать у него метод Открыть. В обоих случаях состав параметров является одинаковым. В самом простом случае требуется указать только имя файла, куда будет записан архив.

Для создания нового архива требуется указать:
* Имя файла, куда будет записан архив. Этот параметр является обязательным. Если такой файл уже существует на диске, он будет перезаписан!Пароль доступа к архиву. Если этот параметр пропущен или равен пустой строке, то шифрование производится не будет!
* Комментарий к архиву.
* Метод сжатия файлов в архиве. На выбор предоставляется возможность скопировать файлы в архив без сжатия или сжать их. По умолчанию файлы сжимаются.
* Уровень сжатия файлов в архиве. Можно выбирать между минимальным, оптимальным и максимальным сжатием. По умолчанию используется оптимальное сжатие
* Метод шифрования. Можно защитить архив методом шифрования ZIP 2.0, совместимым с большинством программ, или с помощью шифрования на основе новейшего стандарта AES с различной длиной ключа (128, 192 и 256 бит). Однако следует помнить, что данный метод может быть не совместим с некоторыми программами архивирования, например WinRAR.

После создания объекта необходимо добавить в него необходимые файлы, воспользовавшись методом Добавить. Он принимает на вход 3 параметра:
1. Полное имя файла или маску.
2. Режим сохранения путей к файлу. Можно сохранять полные пути, не сохранять пути совсем или сохранять пути относительно каталога. Режим обработки подкаталогов. Можно обрабатывать подкаталоги рекурсивно или не обрабатывать их. Параметр имеет смысл, если в качестве имени указана маска.

После того, как все необходимые файлы добавлены, можно записать архив на диск, воспользовавшись методом Записать().
Важно понимать, что до выполнения этого метода, никаких реальных действий по созданию архива не происходит. После записи архива на диск объект закрывает его и для работы со следующим архивом необходимо выполнить метод Открыть().

Пример:

Код 1C v 8.х

 Сейчас = ТекущаяДата();



// Создадим объект записи ZIP-архива

ЗаписьZIP = Новый ЗаписьZipФайла(ИмяАрхивногоФайла,

				ПарольАрхивногоФайла,

				"" + МетодСжатия + Символы.ПС + УровеньСжатия + Символы.ПС + МетодШифрования,

				МетодСжатия,

				УровеньСжатия,

				МетодШифрования);



// Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\MyFiles\File1.xml", РежимСохраненияПутейZIP.НеСохранятьПути);

ЗаписьZIP.Добавить("c:\MyFiles\MoreFiles\*.xml", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.НеОбрабатывать);



// Запишем архив на диск

ЗаписьZIP.Записать();



// Сообщим время, которое потребовалось для работы.

Сообщить("Упаковка заняла " + ТекущаяДата() - Сейчас) + " секунд(ы)");   

Особенности упаковки файлов по маске

Остановимся подробнее на особенностях упаковки файлов по маске.
Предположим, что у нас есть следующий файлы, которые нам необходимо поместить в архив:
c:\ZipTest\11.xls
c:\ZipTest\12.xls
c:\ZipTest\13.xls
c:\ZipTest\MoreFiles\14.xls
c:\ZipTest\MoreFiles\15.xls
c:\ZipTest\MoreFiles\16.xls

Код 1C v 8.х

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\11.xls", РежимСохраненияПутейZIP.СохранятьПолныеПути);

ЗаписьZIP.Добавить("c:\ZipTest\12.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути);

ЗаписьZIP.Добавить("c:\ZipTest\13.xls", РежимСохраненияПутейZIP.НеСохранятьПути);   

В результирующий архив будут помещены следующие файлы:
\ZipTest\11.xls
\12.xls
\13.xls

Код 1C v 8.х

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\*.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.НеОбрабатывать);   

В результирующий архив будут помещены следующие файлы:
\ZipTest\11.xls
\ZipTest\12.xls
\ZipTest\13.xls

Код 1C v 8.х

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\*.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);   

В результирующий архив будут помещены следующие файлы:
\ZipTest\11.xls
\ZipTest\12.xls
\ZipTest\13.xls
\ZipTest\MoreFiles\14.xls
\ZipTest\MoreFiles\15.xls
\ZipTest\MoreFiles\16.xls

Это выполняется в предопределенной процедуре ПриОткрытии модуля формы списка Журнала расчетов Зарплата.

Код 1C v 7.x

 процедура ПриОткрытии() // Предопределенная процедура

перем обр, флаг, сСотр_2, сОбр_2;

// Задаем доступные виды отбора (этот вызов может быть опущен)

ВидыОтбора("Родитель, Образование");

// Отображаем закладки отбора по реквизиту Образование

ЗакладкиОтбора("Образование");

// Установим представление по одному объекту

// Найдем для этого сотрудника, имеющего высшее образование

сСотр_2 = СоздатьОбъект("Справочник.Сотрудники_2");

сОбр_2 = СоздатьОбъект("Справочник.Образование_2");

// Выбираем вид образования обр

флаг = сОбр_2.Выбрать("Выберите вид образования","");

если флаг = 1 тогда

обр = сОбр_2.ТекущийЭлемент();

если сСотр_2.НайтиПоРеквизиту("Образование", обр, 1) = 1 тогда

// Отображаем записи по одному объекту

УстановитьПредставление(2, сСотр_2.ТекущийЭлемент());

конецЕсли;

конецЕсли;

сСотр_2 = 0;

сОбр_2 = 0;

// Для иных процедур модуля определим нтп

нтп = НачалоТекущегоПериода();

конецПроцедуры

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


Остановимся подробнее на некоторых элементах из списка регистра накопления подсистемы учета НДС:

- Регистр «НДС начисленный» предназначен для хранения информации о суммах НДС, начисленных к уплате в бюджет.

- Регистр «НДС предъявленный» предназначен для хранения информации о суммах НДС, предъявленных поставщиками приобретенных ценностей.

- Регистр «НДС расчеты с покупателями» предназначен для хранения информации о расчетах с покупателями для целей учета НДС. По сравнению со счетами учета расчетов с покупателями, содержит более подробную информацию о том, какие поступления оплат от покупателей относятся к конкретным документам реализации товаров (работ, услуг), а какие еще «не привязаны» к документам реализации.

- Регистр «НДС расчеты с поставщиками» предназначен для хранения информации о расчетах с поставщиками для целей учета НДС. По сравнению со счетами бухгалтерского учета расчетов с поставщиками, содержит более подробную информацию о том, какие оплаты поставщикам относятся к конкретным документам поступления товаров (работ, услуг).

- Регистр «НДС продажи» предназначен для хранения информации о записях книги продаж. По данным этого регистра строится отчет «Книга продаж» без всякой дополнительной обработки данных.

- Регистр «НДС покупки» предназначен для хранения информации о записях книги покупок. По данным этого регистра строится отчет «Книга покупок» без дополнительной обработки данных.

- Регистр «НДС с авансов» предназначен для хранения информации о суммах НДС, начисленного с полученных и выданных авансов и предоплат.

Проверять НДС можно (и нужно) не только с помощью стандартных бухгалтерских отчетов, но и универсальными отчетами «Остатки и обороты», «Список/кросс-таблица» (меню «Отчеты» - «Прочие»).

Рассмотрим несколько проверок:

1. Регистр «НДС начисленный» - Отчет «Остатки и обороты». Если есть остатки, то эти суммы не попали в книгу продаж и в декларацию по НДС. Такие суммы могут относиться только к операциям реализации, осуществленным до 01.01.2006, при условии, что налоговая база по НДС до 01.01.2006 определялась по оплате. В этом случае остаток по регистру и остаток по сч. 76.Н «Расчеты по НДС, отложенному для уплаты в бюджет» должны совпадать.
2. Регистр «НДС предъявленный» - Отчет «Остатки и обороты». Остатки должны совпадать с остатками по сч. 19 «НДС по приобретенным ценностям». Обороты по расходу в регистре должны совпадать с оборотом по кредиту 19 сч., по приходу – с оборотом по дебету 19 сч.
3. Регистр «НДС с авансов» - Отчет «Остатки и обороты» по виду ценности «Авансы полученные». Остатки должны совпадать с остатками на счете 76.АВ «НДС по авансам и предоплатам».
4. Регистр «НДС покупки» - Отчет «Список/кросс-таблица». Должно соблюдаться соответствие оборотов по дебету сч. 68.02 «Налог на добавленную стоимость» в корреспонденции со сч. 19.
5. Регистр «НДС расчеты с покупателями» - Отчет «Остатки и обороты». Остаток по регистру должен совпадать с остатком по сч. 62 «Расчеты с покупателями и заказчиками».

Разумеется, приведенный перечень проверок далеко не полный, его можно расширять в соответствии с необходимостью организаций.

Возникает вопрос, по каким причинам возможны расхождения между счетами бухгалтерского учета и регистрами подсистемы учета НДС? Одна из самых распространенных – формирование проводок по НДС или по взаиморасчетам с контрагентами за реализованные/приобретенные ценности с помощью ручных операций. Результатом таких действий станет некорректное автоматическое заполнение регламентных документов учета НДС, таких как «Регистрация оплаты поставщику для НДС», «Регистрация оплаты от покупателей для НДС», «Формирование записей книги покупок», «Формирование записей книги продаж». Для корректного отражения в регистрах учета НДС для таких операций в систему существуют соответствующие документы, например «Корректировка долга», «Списание НДС».

Также встречаются ситуации, когда в документы реализации или поступления, платежные поручения вносятся изменения после формирования регламентных документов по учету НДС.

Если подобные ошибки произошли в текущем периоде, поправить ситуацию можно, перезаполнив регламентные документы по НДС.

Для исправления ошибок, допущенных в прошлом периоде, можно использовать документ «Корректировка записей регистров».

Допустим, что организацией были приобретены ТМЦ (в программе поступление отражено документом «Поступление товаров и услуг»), НДС по которым не может быть принят к вычету, и с помощью ручной операции был отнесен в дебет сч. 91. В этом случае в регистре «НДС предъявленный» останется остаток. При заполнении документа «Формирование записей книги покупок» в него будет попадать НДС по вышеуказанному поступлению, и если не удалить вручную этот НДС из документа, при проведении сформируется проводка по возмещению НДС, и на сч. 19 образуется кредитовый остаток. Поправить ситуацию можно с помощью документа «Корректировка записей регистров» (меню «Операции» – «Документы» – «Корректировка записей регистров»).


В документе необходимо перейти на закладку «Регистры накопления», нажать кнопку «Настройка состава регистров», в открывшемся окне проставить галочку у регистра «НДС предъявленный». В таблице добавить строку с видом движения «Расход» и заполнить остальные поля в соответствии с документом оприходования ТМЦ.

С помощью данного документа можно корректировать любые регистры. Документ рекомендуется использовать очень осторожно, в случае некорректного его заполнения в регистрах может возникнуть еще большее несоответствие с данными бухгалтерского учета.

Александр Ильичев, источник.

Граница последовательности документов предназначена для облегчения поиска пользовательских ошибок, допущенных при вводе документов. Программы "1С" автоматически отслеживают возможное нарушение актуальности итогов при проведении документов задним числом. Например, 20 января 2005 года была введена приходная накладная, по которой поступил товар, а 22 января 2005 года весь поступивший товар был списан. В этом случае граница последовательности находится на последнем документе и итоги являются актуальными. Теперь, если пользователь проведет задним числом еще одну расходную накладную на этот товар за 21 января 2005 года, на складе образуются отрицательные остатки товара, что является ошибочной ситуацией. Граница последовательности при этом переместится на 21 января 2005 года. Когда пользователь начнет восстанавливать последовательность документов, программа попытается провести расходную накладную от 22 января 2005 года, но из-за нехватки товара будет выдано сообщение об ошибке. Допущенная ошибка в учете при этом будет локализована.Восстанавливать последовательность документов рекомендуется ежедневно, проверяя, не привели ли внесенные изменения к ошибке.

Код 1C v 8.2 УП

 Режим = РежимДиалогаВопрос.ДаНетОтмена;

Ответ = Вопрос("Выполнить?", Режим, 0);

   

Если Ответ =КодВозвратаДиалога.Да Тогда

        Сообщить("Выполнено");

ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда

        Сообщить("Не выполнено");

КонецЕсли;   

---

Код 1C v 8.х

 

Режим = РежимДиалогаВопрос.ДаНет;

Ответ = Вопрос("Сохранить текст?", Режим,0) ;

Если Ответ = КодВозвратаДиалога.Нет Тогда

	ТекДок.Записать(ПутьКФайлу);

КонецЕсли ;



//Свойства РежимДиалогаВопрос:

//ДаНет (YesNo)

//ДаНетОтмена (YesNoCancel)

//ОК (OK)

//ОКОтмена (OKCancel)

//ПовторитьОтмена (RetryCancel)

//ПрерватьПовторитьПропустить (AbortRetryIgnore)



//Свойства КодВозвратаДиалога:

//Да (Yes)

//Нет (No)

//ОК (OK)

//Отмена (Cancel)

//Повторить (Retry)

//Прервать (Abort)

//Пропустить (Ignore)

//Таймаут (Timeout)    

   

Код 1C v 7.x

 

// Зададим вопрос, и варианты ДА, НЕТ

Рез = Вопрос("Вы получили данное сообщение?", 4); 

// При нажатии Да - Рез=6, Нет- Рез=6 



//Можно и так:

Если Вопрос("Сохранить?", "Да+Нет") = "Да" Тогда

	 ТекДок.Записать(ПутьКФайлу);

КонецЕсли;  



//Вопрос(Текст_вопроса, Режим, Таймаут) - Вывести окно вопроса и получить ответ.

//Возвращает ответную реакцию в виде числа или строки, в соответствии с заданием параметра <Режим>:

//-1 или 'Таймаут' ('Timeout'), если закончилось время ожидания ответа;

//1 или 'ОК' ('ОК'), если если нажата кнопка OK;

//2 или 'Отмена' ('Cancel'), если нажата кнопка Отмена;

//3 или 'Стоп' ('Abort'), если нажата кнопка Стоп;

//4 или 'Повтор' ('Retry'), если нажата кнопка Повтор;

//5 или 'Пропустить' ('Ignore'), если нажата кнопка Пропустить;

//6 или 'Да' ('Yes'), если нажата кнопка Да;

//7 или 'Нет' ('No'), если нажата кнопка Нет.

//	

//Параметры:

//Текст_вопроса - cтрока текста вопроса;

//Режим - определяет набор кнопок диалога в виде числа или строки (в скобках английское написание):

//  0 или 'ОК' ('ОК') - кнопка OK;

//  1 или 'ОК+Отмена' ('OK+Cancel') - кнопки OK и Отмена;

//  2 или 'Стоп+Повтор+Пропустить' ('Abort+Retry+Ignore') - кнопки Стоп, Повтор, Пропустить;

//  3 или 'Да+Нет+Отмена' ('Yes+No+Cancel') - кнопки Да, Нет, Отмена;

//  4 или 'Да+Нет' ('Yes+No') - кнопки Да, Нет;

//  5 или 'Повтор+Отмена' ('Retry+Cancel') - кнопки Повтор, Отмена;

//  (любое другое значение или отсутствие параметра равносильно  0);

//Таймаут - число секунд времени ожидания ответа (если опущен или 0, то без ограничения).

10 Ошибка закрытия файла
20 Ошибка создания файла
30 Ошибка определения длины файла
40 Ошибка установки длины файла
50 Ошибка при попытке заблокировать файл
60 Ошибка при открытии файла
70 Ошибка чтения файла
80 Ошибка удаления файла
90 Ошибка переименования файла
100 Ошибка позиционирования в файле
110 Ошибка снятия блокировки с файла
120 Ошибка записи в файл
200 Файл не является базой данных DBF-формата
210 Неопознанное имя поля
220 Неопознанный тип поля
230 Запись слишком длинная
300 Индексный файл не содержит информации о записи
310 Нарушение структуры индексного файла
330 Указанное имя индекса недоступно
340 Ошибка уникальности индекса
400 Ожидается запятая или скобка
410 Выражение не завершено
422 IFF требует параметров одинаковой длины
425 У STR и SUBSTR 2-й и 3-й параметры – константы
430 Неверное число параметров
440 Слишком сложное выражение
450 Пропущена правая скобка
460 Неверный тип подвыражения
470 Неопознанная функция
480 Неопознанный оператор
500 Выражение не завершено символом двойной кавычки
920 Недостаточно памяти