Алкогольные декларации ф 11 и 12 (4.30) для ТИС 9.2

Обработка создает табличные формы деклараций, производит выгрузку декларации в файл xml проверяет файл по схеме xsd. Также в обработку включены различные проверки (длина ИНН и КПП, неправильная слеш и т.п.), упрощающие сдачу в ФСРАР.

Основные доработки ТИС:

 В глобальном модуле добавить три функции:
Функция глГенерироватьИмяФайлаВыгрузки(ИНН,ДатаКвартала) Экспорт
    ЗагрузитьВнешнююКомпоненту(КаталогИБ()        +    «v7plus.dll»);
    Инфо = СоздатьОбъект(«AddIn.V7SysInfo»);
    ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();
    ДатаФормированияФайлаВыгрузки = Формат(РабочаяДата(), «Д ДДММГГГГ»);
    ДатаФормированияФайлаВыгрузки = СтрЗаменить(ДатаФормированияФайлаВыгрузки,».»,»»);
    КодОтправителяИнформации = «»;
     КварталСтрока = «»;
    МесяцКвартала = ДатаМесяц(ДатаКвартала);  
    Если МесяцКвартала = 12 Тогда
        КварталСтрока = «00»;
    Иначе
        КварталСтрока = «0»+МесяцКвартала;
    КонецЕсли;
    // Код отправителя информации
    КодОтправителяИнформации = СокрЛП(ИНН) + «_» + КварталСтрока + Прав(Строка(ДатаКвартала),1);
    ИмяФайлаВыгрузки = КодОтправителяИнформации + «_»    + ДатаФормированияФайлаВыгрузки + «_» + ГлобальноУникальныйИдентификатор;  
    Возврат ИмяФайлаВыгрузки;
КонецФункции //глГенерироватьИмяФайлаВыгрузки()   

Функция глПризПериодОтч(ДатаКвартала) Экспорт
    КварталСтрока = «»;
    МесяцКвартала = ДатаМесяц(КонКвартала(ДатаКвартала));  
    Если МесяцКвартала = 12 Тогда
        КварталСтрока = «0»;
    Иначе
        КварталСтрока = «»+МесяцКвартала;
    КонецЕсли;
    Возврат КварталСтрока;    
КонецФункции  //глПризПериодОтч(ДатаКвартала)

Функция глРазложить1(Знач Стр, Разделитель = «,») Экспорт
    Список = СоздатьОбъект(«СписокЗначений»);
    Длина  = СтрДлина(Разделитель);
    Стр = СокрЛП(Стр);
    Поз = Найти(Стр, Разделитель);
    Пока 0 < Поз Цикл
        Список.ДобавитьЗначение(СокрП(Лев(Стр, Поз-1)));
        Стр = СокрЛ(Сред(Стр, Поз+Длина));
        Поз = Найти(Стр, Разделитель);
    КонецЦикла;
    Список.ДобавитьЗначение(Стр);
    Список.ДобавитьЗначение(Стр);
    Возврат Список;
КонецФункции // глРазложить1() 

Кроме того, добавлены справочники:
1. Завод (реквизиты: код, наименование, ИНН, КПП).
2. Классификация (реквизиты: код, наименование).
3. Лицензии (реквизиты: СерияНомер, ДатаВыдачи,  ДатаОкончания, КемВыдана). Подчинен справочнику Контрагенты.
4.ЛицензииФирм (реквизиты: СерНомЛиц, ДатаНачЛиц, ДатаОконЛиц). Подчинен справочнику Фирмы.

 В справочнике Номенклатура добавлены реквизиты:
1. Классификация (ссылка на справочник.Классификация).
2. Завод (ссылка на справочник.Завод).
3. Литраж.
4. Алкоголь (перечисление: алкогольная, пиво, безалкогольная).

 КПП контрагента указывается в реквизите ИНН через «/».

В шапке документа ПоступлениеТМЦРозница добавлен реквизит Лицензия (Ссылка на справочник.Лицензии).

При наличии схем xsd (http://www.fsrar.ru/files/structure/2260.zip) в папке Каталог ИБСхемы430 обработка проверяет файл на валидность с помощью функции (http://forum330.com/forum/79/0#p79-9) от andrewks.

 Если что-то упустил, спрашивайте. И всем удачи в сдаче деклараций!

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *