Экспорт налоговых накладных в XML (Украина). Импорт даты внесения в реестр ДПА из системы документооборота М.E.Doc

(1) kompas-dm,
Не вопрос, сделаю - оглашайте весь список. Моей "конфе" больше 10-ти лет. За это время она раза в три "толще" стала. У других - аналогично, я думаю.

(1) kompas-dm,

Усложнил, почти до безобразия...

(1) kompas-dm, Хорошая выгрузка, удобная, к своей нестандартной базе прикрутил на УРА!!! Только много мелких недоработок, например точки в датах. Но в общем работает отлично. Спасибо +

(4) smitti911,

Уточняем.
1. Релизы 1С разные
2. Ваш требует дополнительных "телодвижений" - проверки наличия шаблона, ВК, настройки.
3. Нумерация НН, согласно описания к обработке, может не совпасть с номером документа.
4. Если это экспорт только НН, зачем там с полсотни шаблонов OPZ, которые отношения к НН не имеют никакого, тем более, если они не актуальны...
5. Ну и, наконец, просто выдает с десяток ошибок при работе.

(6) На всякий случай уточню:
Если Число(КлиентНалогНомер)=0 то такие налоговые вообще не надо регистрировать

(7) rus128,

Верю.

С учетом того, какие сейчас "сопровожденцы", лучше я сам корпеть буду.
Предновогодний пример. Киевский филиал "БИТа". 02/11/2011 заключен договор на перенос справочников и остатков до 6-го класса включительно за 14 рабочих дней. В декабре уже все все поняли и потребовали денег взад. До сих 2,500$ не вернули...

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

Теоретически можно при отправке формировать номер для каждой отправляемой накладной. Лично я просто номер налоговой в это поле вбиваю. Никакого контроля нумерации со стороны ДПА нет.

(14) maddy,
Не помню, где. Найду - скажу.
Пока могу только сказать, что есть коллизия в п.п.3 и 4 Порядка ведення Єдиного реєстру податкових накладних
(КМУ №1246):
п.3
регистрировать необходимо ВСЕ корректировки. Если НН не была зарегистрирована, ее регистрируют независимо от того, когда она была создана (я так понимаю, и независимо от того на кого - плательщика или нет).
п.4.
Регистрации не подлежит то, что не выдается.

Ну и что делать - если командир не прав, смотрим п.№1?


(15) Noy,
Если номер документа совпадет с уже отправленным - в пределах отчетного периода - старая информация заменится новой.

(17) teleport7,
Рад, что Вам пригодилось.

XML формат плохо относится к символам, типа &.

1C 7.7.27 не всегда адекватно форматирует большие числа. Неоднократно получал значения типа "9,999.99", когда что-то не складывалось у нее в голове - например, если заменить в строке формата "N" на "Ч".

Если Вам необходимо использовать откорректированный номер, то Ваша переменная "Клиент_Телефоны", а не реквизит из справочника. Просто у меня давным давно разнесены код города, телефон. индекс. улица и т.д. - примерно, как сейчас в 8-ке додумались.

Ну а свой номер телефона подкорректировать уже и самому можно...




Мало ли, вдруг пригодится - я при выгрузке Реестра НН использую

Функция Акронимы(Имя)

Имя = СтрЗаменить(Имя,"Приватне підприємство","ПП");
Имя = СтрЗаменить(Имя,"Товариство з обмеженою відповідальністю","ТзОВ");
Имя = СтрЗаменить(Имя,"науково-виробниче підприємство","НВП");
Имя = СтрЗаменить(Имя,"Суб'єкт підприємницької діяльності","СПД");
Имя = СтрЗаменить(Имя,"Науково-Виробничий комплекс","НВК");
Имя = СтрЗаменить(Имя,"Рекламне Агентство","РА");
Имя = СтрЗаменить(Имя,"Фізична особа-підприємець","ФО-П");
Имя = СтрЗаменить(Имя,"&","&");
Имя = СтрЗаменить(Имя,"Акціонерне товариство","АТ;");
Возврат(Имя);

КонецФункции

// ===============================

(32) Amel2010,


Имена файлов формируются в соответствии с значения элементов заголовка документа (DECLARHEAD) по такому принципу:

· Позиции с 1 по 4 включительно содержат код ГНИ получателя, в которую подается оригинал или копия документа (4 символа), состоящий из кода области, на территории которой располагается налоговая инспекция (отделения) (значение элемента C_REG, дополненного слева нулем до 2 символов ), и кода административного района, на территории которого располагается налоговая инспекция (отделения) (значение элемента C_RAJ, дополненного слева нулем до 2 символов);

Вот как формируется имя файла:

· Позиции с 5 по 14 включительно содержат код плательщика согласно ЕГРПОУ (Регистрационный (учетный) номер из Временного реестра ГНА Украины) или регистрационный номер учетной карточки плательщика (номер паспорта) (значение элемента TIN, дополненного слева нулями до 10 символов);

· Позиции с 15 по 17 включительно содержат код документа (значение элемента C_DOC);

· Позиции с 18 по 20 содержат подтип документа (значение элемента C_DOC_SUB);

· Позиции с 21 по 22 содержат номер версии документа (значение элемента C_DOC_VER, дополненного слева нулем до 2 символов);

· Позиции 23 содержит признак состояния документа (значение элемента C_DOC_STAN);

· Позиции с 24 по 25 содержат номер нового отчетного (уточняющего) документа в отчетном периоде (значение элемента C_DOC_TYPE, дополненного слева нулем до 2 символов). Для отчетного документа Позиции 24 ... 25 содержать значение 00;

· Позиции с 26 по 32 содержат порядковый номер документа, может подаваться несколько раз в одном отчетном периоде (значение элемента C_DOC_CNT, дополненного слева нулями до 7 символов). Если отчет подается только один раз, то позиции 26 ... 32 содержать значение 0000001;

· Позиция 33 содержит числовой код типа отчетного периода (1-месяц, 2-квартал, 3-полугодие, 4-девять месяцев, 5-год) (значение элемента PERIOD_TYPE);

· Позиции с 34 по 35 содержат значения отчетного месяца (значение элемента PERIOD_MONTH дополненного слева нулем до 2 символов);

· Позиции с 36 по 39 содержат значения отчетного года (значение элемента PERIOD_YEAR);

· Позиции с 40 по 43 содержат код налоговой инспекции, в которую подается оригинал документа (значение элемента C_STI_ORIG, дополненного слева нулями до 4 символов). Если документ является оригиналом, а не копией, то позицию 40 ... 43 будут соответствовать позициям 1 ... 4;

· Файл имеет расширение xml.


Картинка тут
http://www.sta.gov.ua/control/uk/publish/article?art_id=308728&cat_id=249256&showHidden=1

(34) Amel2010,

Спасибо, исправлю. Просто у меня в помещении +14 самая высокая температура - тетя Клава не всегда корректно воспринимает нажатия. Я когда описание прочел - штук 10 орфографических ошибок нашел...
Хотя можно было бы и проверить чем-нибудь перед отправкой ...

(35) Amel2010,
В смысле - поля из реквизитов НН?
Предполагается их самостоятельная замена на предустановленные в Вашей конфигурации - строки 528, 538, 548 Модуля.
Точно так же, как и не сохраняется параметр выбора строки кода Налоговой Инспекции.

Хотя, согласен, можно было и сохранить.

(35) Amel2010,

Если очень надо - вот измененные процедуры кода

// ===============================
Процедура ВыборРеквизитов(Наше_Поле, Его_Тип, Имя_по_Умолчанию)


СменитьФирму();

Док = СоздатьОбъект("Документ.НалоговаяНакладная");
ДокНН = Метаданные.Документ(Док.Вид());

// реквизиты шапки документа
Для Сч=1 по ДокНН.РеквизитШапки() Цикл

Реквизит=ДокНН.РеквизитШапки(Сч);
Значение=Реквизит.Идентификатор;
ТипРекв=Реквизит.Тип;

Если (ТипРекв=Его_Тип) Тогда
Наше_Поле.ДобавитьЗначение(Реквизит.Идентификатор + "/" + Сч); //+"/" + ТипРекв
КонецЕсли;

КонецЦикла;

Для Сч=1 по Наше_Поле.РазмерСписка() Цикл
ТекСтрока = Наше_Поле.ПолучитьЗначение(Сч);
Если Найти(ТекСтрока,Имя_по_Умолчанию)<>0 Тогда
Наше_Поле.УдалитьВсе();
Наше_Поле.ДобавитьЗначение(ТекСтрока);
Прервать;
КонецЕсли;
КонецЦикла;


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


// ===============================

Процедура ПриОткрытии()

Фирма=Константа.БазФирма.Получить(ТекущаяДата());

ДатаС = ТекущаяДата()-1;
ДатаПо = ДатаС;


ВосстановитьЗначение("ЕПРН_Предел",Предел);
Если ПустоеЗначение(Предел)=1 Тогда
Предел =10000; // Предельная сумма НДС не включения в отчет не акцизного товара
КонецЕсли;

ВосстановитьЗначение("ЕПРН_НДС",НДС_Х);
Если ПустоеЗначение(НДС_Х)=1 Тогда
НДС_Х = 1; // Включать ли в экспорт неплательщиков НДС
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Экспорт",Экспортировано);
Если ПустоеЗначение(Экспортировано)=1 Тогда
Экспортировано = 0; // Учитывать ли экспортированные
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Старт",СтартНН);
Если ПустоеЗначение(СтартНН)=1 Тогда
СтартНН = 5;
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Стоп",СтопНН);
Если ПустоеЗначение( СтопНН)=1 Тогда
СтопНН = 10;
КонецЕсли;

ВосстановитьЗначение("ЕПРН_OPZ",OPZ);
Если ПустоеЗначение(OPZ)=1 Тогда
OPZ =1;
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Признак",Признак);
Если ПустоеЗначение(Признак)=1 Тогда
Признак=0;
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Файл",Файл);
Если ПустоеЗначение(Файл)=1 Тогда
Файл="OUTNAKLKVT20120113.dbf";
КонецЕсли;

ВосстановитьЗначение("ЕПРН_Каталог",Каталог);
Если ПустоеЗначение(Каталог)=1 Тогда
Каталог="\\trodat-ua\1cv77\medoc\report\dpa\";
КонецЕсли;

ВосстановитьЗначение("Поле_ЕРПН",Поле_ЕРПН);
Если ПустоеЗначение(Поле_ЕРПН)=1 Тогда
ВыборРеквизитов(Поле_ЕРПН,"Число","ЄРПН");
КонецЕсли;

ВосстановитьЗначение("Знач_ЕРПН",Знач_ЕРПН);
Если ПустоеЗначение(Знач_ЕРПН)=1 Тогда
Знач_ЕРПН=0;
КонецЕсли;

ВосстановитьЗначение("Поле_Звит",Поле_Звит);
Если ПустоеЗначение(Поле_Звит)=1 Тогда
ВыборРеквизитов(Поле_Звит,"Число","Звіт");
КонецЕсли;

ВосстановитьЗначение("Знач_Звит",Знач_Звит);
Если ПустоеЗначение(Знач_Звит)=1 Тогда
Знач_Звит=1;
КонецЕсли;

ВосстановитьЗначение("Поле_ДПА",Поле_ДПА);
Если ПустоеЗначение(Поле_ДПА)=1 Тогда
ВыборРеквизитов(Поле_ДПА,"Дата","ДПА");
КонецЕсли;


ИмяФайлаЗагрузки = Каталог + Файл;

Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение(1,"Выгрузка");
Форма.Закладки.ДобавитьЗначение(2,"Загрузка");
Форма.Закладки.ДобавитьЗначение(3,"Настройки");
Форма.Закладки.ДобавитьЗначение(4,"Списки_НН");
Форма.ИспользоватьСлой("Основной, Выгрузка",2);


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

// ===============================

Процедура ПриЗакрытии()

СохранитьЗначение("ЕПРН_Предел",Предел);

СохранитьЗначение("ЕПРН_НДС",НДС_Х);

СохранитьЗначение("ЕПРН_Экспорт",Экспортировано);

СохранитьЗначение("ЕПРН_Старт",СтартНН);

СохранитьЗначение("ЕПРН_Стоп",СтопНН);

СохранитьЗначение("ЕПРН_OPZ",OPZ);

СохранитьЗначение("ЕПРН_Признак",Признак);

СохранитьЗначение("ЕПРН_Файл",Файл);

СохранитьЗначение("ЕПРН_Каталог",каталог);

СохранитьЗначение("Поле_ЕРПН",Поле_ЕРПН);

СохранитьЗначение("Знач_ЕРПН",Знач_ЕРПН);

СохранитьЗначение("Поле_Звит",Поле_Звит);

СохранитьЗначение("Знач_Звит",Знач_Звит);

СохранитьЗначение("Поле_ДПА",Поле_ДПА);



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

(38) Amel2010,

Буду, конечно, но со входящими есть засада - для того, чтобы их проверить, их требуется сначала внести ручками. В тот же МеДОС, например. Или экспортировать из 1С. Автоматический запрос в налоговую с пустыми полями реквизитов входящих НН возвращает пустой же ответ. Вот и вся сказка про электронный документооборот.
А отправлять партнеру - опять же заносить его в справочник, корректно указывать адрес электронной почты и дай бог, чтобы там это письмо открылось в МеДОСе, а не секретаршей. Через Сервер ДПА не получится....

(50) Amel2010,

Этот документ я знаю. Я думал что-то еще появилось.

У меня он делается на основании документа СтраницаКнигиПриобретений. Выложить могу, только у меня АБТ. А там его отродясь не было. Я его создавал для заполнения раз в месяц.

Под БУУ можно попытаться адаптировать.

(52) yuyu1,
вероятно от того что это слишком нетиповая задача.
Подскажите для чего это Вам? Интересно настолько ли это необходимо. Может есть более простые способы решения Вашей задачи.

(52) yuyu1,
Для какой версии 7-ки?

Еще пара вопросов
- поиск Фирмы / Клиента - по ИНН или ЭДРПОУ ? - Если реквизит периодический - фигвам.
- поиск ТМЦ по Наименованию - еще один фигвам.

А в остальном - очень даже несложно:


// ===============================


Процедура Парсинг(Стр)

НовСтр=СтрЗаменить(Стр," ", "");
Если Найти(НовСтр,"<C_DOC>")=1 Тогда
Если СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<C_DOC>",""),"</C_DOC>",""))<>"J12" Тогда
Сообщить("Это не документ J12 НН !");
Стоп=1;
КонецЕсли;
КонецЕсли;

Если Найти(НовСтр,"<C_DOC_SUB>")=1 Тогда
Если Число(СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<C_DOC_SUB>",""),"</C_DOC_SUB>","")))<>10 Тогда
Сообщить("Это не документ J12010 НН !");
Стоп=1;
КонецЕсли;
КонецЕсли;

Если Найти(НовСтр,"<HFILL>")=1 Тогда
HFILL=СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<HFILL>",""),"</HFILL>",""));
ТекДок.ДатаДок=Дата(Сред(HFILL,5,4),Сред(HFILL,3,2),Сред(HFILL,1,2));
КонецЕсли;

Если Найти(НовСтр,"<HNUM>")=1 Тогда
ТекДок.НомерДок=СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<HNUM>",""),"</HNUM>",""));
КонецЕсли;

Если Найти(НовСтр,"<H02G1S>")=1 Тогда
ТекДок.Умова=СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<H02G1S>",""),"</H02G1S>",""));
КонецЕсли;

Если Найти(НовСтр,"<HKSEL>")=1 Тогда
HKSEL=Число(СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<HKSEL>",""),"</HKSEL>","")));
Фирмы=СоздатьОбъект("Справочник.Фирмы");
Если Фирмы.НайтиПоРеквизиту("ИНН",HKSEL,1)=0 Тогда
Сообщить("Не найден продавец !");
Стоп=1;
Иначе
ТекДок.Фирма=Фирмы.ТекущийЭлемент();
КонецЕсли;
Фирма=0;
КонецЕсли;

Если Найти(НовСтр,"<HKBUY>")=1 Тогда
HKBUY=Число(СокрЛП(СтрЗаменить(СтрЗаменить(НовСтр,"<HKBUY>",""),"</HKBUY>","")));
Клиент=СоздатьОбъект("Справочник.Клиенты");
Если Клиент.НайтиПоРеквизиту("ИНН",HKBUY,1)=0 Тогда
Сообщить("Не найден покупатель !");
Стоп=1;
Иначе
ТекДок.Клиент=Клиент.ТекущийЭлемент();
КонецЕсли;
Клиент=0;
КонецЕсли;

Если Найти(НовСтр,"<RXXXXG3SROWNUM=")=1 Тогда
ТМЦ=СтрЗаменить(СтрЗаменить(Стр,"<RXXXXG3S ROWNUM=>",""),"</RXXXXG3S>","");
ТМЦ=СокрЛП(Сред(ТМЦ,Найти(ТМЦ,">")+1));

ТекДок.НоваяСтрока();

Товар=СоздатьОбъект("Справочник.ТМЦ");
Если Товар.НайтиПоНаименованию(ТМЦ,0,1)=0 Тогда
Сообщить("Не найден ТМЦ "+ ТМЦ +"!");
Стоп=1;
Иначе
ТекДок.ТМЦ=Товар.ТекущийЭлемент();
КонецЕсли;
ТМЦ=0;
КонецЕсли;

Если Найти(НовСтр,"<RXXXXG5ROWNUM=")=1 Тогда
Кво=СтрЗаменить(СтрЗаменить(Стр,"<RXXXXG5 ROWNUM=>",""),"</RXXXXG5>","");
ТекДок.Кво=Число(СокрЛП(Сред(Кво,Найти(Кво,">")+1)));
КонецЕсли;

Если Найти(НовСтр,"<RXXXXG6ROWNUM=")=1 Тогда
Цена=СтрЗаменить(СтрЗаменить(НовСтр,"<RXXXXG6ROWNUM=>",""),"</RXXXXG6>","");
ТекДок.Цена=Число(СокрЛП(СтрЗаменить(СтрЗаменить(Сред(Кво,Найти(Кво,">")+1),",",""),".",","))); // убираем триады и заменяем точку на запятую
КонецЕсли;

Если Найти(НовСтр,"<RXXXXG7ROWNUM=")=1 Тогда
Сумма=СтрЗаменить(СтрЗаменить(НовСтр,"<RXXXXG7ROWNUM=>",""),"</RXXXXG7>","");
ТекДок.СуммаБезНДС=Число(СокрЛП(СтрЗаменить(СтрЗаменить(Сред(Сумма,Найти(Сумма,">")+1),",",""),".",","))); // убираем триады и заменяем точку на запятую
КонецЕсли;

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



// ===============================
Процедура ЗагрузитьНН()


Стоп=-1;

Если ФС.СуществуетФайл(ИмяФайлаЗагрузки)=0 Тогда
Предупреждение("Указанный файл не существует!", 5);
Стоп=0;
Возврат ;
Иначе

Стоп=0;

ТекДок = СоздатьОбъект("Документ.НалоговаяНакладная");
ТекДок.Новый();

Попытка

Т=СоздатьОбъект("Текст");
Т.Открыть(ИмяФайлаЗагрузки);

Если Т.КоличествоСтрок()=0 Тогда
Сообщить("Файл пустой: "+ИмяФайлаЗагрузки, "!");
Возврат;
КонецЕсли;


Для Сч=1 По Т.КоличествоСтрок() Цикл

Стр=Т.ПолучитьСтроку(Сч);

Если ПустаяСтрока(Стр)=1 Тогда
Продолжить;
КонецЕсли;

//перекодировка
Если ДОС=1 Тогда
Стр=OemToAnsi(Стр);
// Стр=СтрЗаменить(Стр,"\"+Симв(34),Симв(34));
КонецЕсли;

Парсинг(Стр);

Если Стоп=1 Тогда
Сообщить("Ошибка содержимого файла!");
Стоп=0;
Возврат;
КонецЕсли;

КонецЦикла;

Исключение

Сообщить("Загрузка не выполнена. Длинное имя файла?");

КонецПопытки;


КонецЕсли;

ТекДок.Записать();

Стоп=0;

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



Строчку с именем файла сами вставите в окно формы?
Я-бы с радостью - но меня забанили на 4-ре недели без объявления войны (2 дня на форуме вообще не появлялся...)

(57) MIXOH,
По проверке кодов.
Занятие бесполезное, т.к. коды таможенной службы и ДПА не совпадают. Нарывался неоднократно. Периодически сервер ДПА посылает контрагентов с моим кодом, хотя у меня с этим же кодом НН зарегистрирована.

По неплательщикам.
Можно пока и не выгружать, пока он не запросит корректировку или не захочет вернуть. Тогда - обязательно.

По импорту запроса входящих НН.
Каждому буху все равно придется вносить в программу входящие НН. Сделать отчет за период по журналу этих документов и сохранить его в виде XML для последующего импорта в MEDOC несложно. В OPZ J1400101