ЭСЧФ Беларусь

Попытка
InvVatXml = EVatService.GetEDoc(InvVatNumber); //Сообщить(InvVatXml);
Исключение
Сообщить("Ошибка чтения ЭСЧФ № "+InvVatNumber + " " + EVatService.LastError);
Если ФС.СуществуетФайл(fn)=0 Тогда
Продолжить;
КонецЕсли;
ФлП=1;

КонецПопытки;
Меседж = "";
Статус = "";
Если ФлП=0 Тогда
res = VerifyAllSigns(InvVatXml);
if res = 0 then
Сообщить( "Ошибка проверки ЭЦП полученного документа: " + EVatService.LastError );
endif;

res = InvVatXml.Document.SaveToFile( ИмяФайла );

res = InvVatXml.SaveToFile( fn );

//InvVatStatus = EVatService.GetStatus(InvVatNumber);
//res = InvVatStatus.Verify();
//if InvVatStatus <> 0 then
// Меседж = InvVatStatus.Message;
// Статус = InvVatStatus.Status;
//else
// Меседж="Ошибка статуса: " +InvVatStatus.LastError;
// Статус="";
// возврат;
//endif;
Иначе
InvVatXml=EVatService.CreateEDoc;
res = InvVatXml.Document.LoadFromFile( ИмяФайла );

КонецЕсли;

НачGUID=InvVatNumber;
КонтрагентУНП = InvVatXml.Document.GetXmlNodeValue( "issuance/provider/unp");
Сообщить("Проверка наличия на нашем Портале док. "+InvVatNumber);
НомерСФосн=InvVatXml.Document.GetXmlNodeValue("issuance/general/invoice");

ДатаВыставления=InvVatXml.Document.GetXmlNodeValue("issuance/general/dateTransaction");
ДатаДок=ПреобразоватьВДату(ДатаВыставления);
Если ПустоеЗначение(ДатаДок)=1 Тогда
Сообщить("Недействительная дата в СФ " + InvVatNumber);
Возврат ;
КонецЕсли;
ТипЭСЧФ=InvVatXml.Document.GetXmlNodeValue("issuance/general/documentType");
Если ТипЭСЧФ="ORIGINAL" Тогда
ТипЭСЧФ="Исходная";
ИначеЕсли ТипЭСЧФ="ADDITIONAL" Тогда
ТипЭСЧФ="Дополнительная";
ИначеЕсли ТипЭСЧФ="FIXED" Тогда
ТипЭСЧФ="Исправленная";
КонецЕсли;

КомандаПоПоиску=НайтиДок(Док,НачGUID,НомерСФосн,ДатаДок,ТипЭСЧФ);

Если КомандаПоПоиску=0 Тогда
Сообщить("!!!Документ уже обрабатывался!!! "+НачGUID);
//ЗаписатьРезультатВИсходныйДокумент(ОлеДок,"~");
Продолжить;
ИначеЕсли КомандаПоПоиску=(-1) Тогда
//Сообщить("!!!Документ Позже Принять Повторно!!! "+НачGUID+" "+ОлеДок.Вид()+" № "+СокрЛП(ОлеДок.НомерДок)+" от "+ОлеДок.ДатаДок);
Возврат;
КонецЕсли;
номер=номер+1;


КодСтраны = InvVatXml.Document.GetXmlNodeValue( "issuance/provider/countryCode");

Контрагент = InvVatXml.Document.GetXmlNodeValue( "issuance/provider/name");
КонтрагентАдрес = InvVatXml.Document.GetXmlNodeValue( "issuance/provider/address");

Фирма = InvVatXml.Document.GetXmlNodeValue( "issuance/recipient/name");
ФирмаАдрес = InvVatXml.Document.GetXmlNodeValue( "issuance/recipient/address");
ФирмаУНП = InvVatXml.Document.GetXmlNodeValue( "issuance/recipient/unp");
КодБланка = InvVatXml.Document.GetXmlNodeValue( "issuance/deliveryCondition/contract/documents/docType/code"­);
ТипБланка = InvVatXml.Document.GetXmlNodeValue( "issuance/deliveryCondition/contract/documents/docType/value­");

ДатаДокП = InvVatXml.Document.GetXmlNodeValue( "issuance/deliveryCondition/contract/documents/document/date­");
НомерДокП = InvVatXml.Document.GetXmlNodeValue( "issuance/deliveryCondition/contract/documents/document/numb­er");

Прим = InvVatXml.Document.GetXmlNodeValue( "issuance/deliveryCondition/contract/description");

ИтСуммаБезНДС=InvVatXml.Document.GetXmlNodeAttribute( "issuance/roster/totalCost");
ИтСуммаНДС=InvVatXml.Document.GetXmlNodeAttribute( "issuance/roster/totalVat");
ИтСуммаСНДС=InvVatXml.Document.GetXmlNodeAttribute( "issuance/roster/totalCostVat");
ИтСуммаАкциз=InvVatXml.Document.GetXmlNodeAttribute( "issuance/roster/totalExcise");

ДатаАннулирования=InvVatXml.Document.GetXmlNodeValue("issuance/general/dateCancelled");

//таб.ВывестиСекцию("Строка");
ТаблЗнач.НоваяСтрока();
ТаблЗнач.Номер=номер;
ТаблЗнач.InvVatNumber=InvVatNumber;
ТаблЗнач.ДатаВыставления=ДатаВыставления;
ТаблЗнач.ДокНомер=НомерДокП;
ТаблЗнач.ТипЭСЧФ=ТипЭСЧФ;
ТаблЗнач.Контрагент=Контрагент;
ТаблЗнач.УНП=КонтрагентУНП;
ТаблЗнач.Статус=Статус;
ТаблЗнач.СуммаБезНДС=ИтСуммаБезНДС;
ТаблЗнач.СуммаНДС=ИтСуммаНДС;
ТаблЗнач.СуммаСДНС=ИтСуммаСНДС;

ТаблЗнач.Пометка=МеткаЕсть;


//Заполняем шапку документа
Док.ДатаДок=ДатаДок;
Док.countryCodeProvider=КодСтраны;
Док.Страна="";
Док.unpProvider=КонтрагентУНП;
Док.nameProvider=Контрагент;
Док.addressProvider=КонтрагентАдрес;
Док.unpRecipient=ФирмаУНП;
Док.nameRecipient=Фирма;
Док.addressRecipient=ФирмаАдрес;
Док.codedeliveryCondition=КодБланка;
Док.valuedeliveryCondition=ТипБланка;
Док.datedeliveryCondition=ДатаДокП;
Док.numberdeliveryCondition=НомерДокП;
Док.descriptiondeliveryCondition=Прим;
Док.СтатусМНС=Статус;
Док.ТикетМНС=Меседж;
Док.totalExcise=ИтСуммаАкциз;
Док.totalCost=ИтСуммаБезНДС;
Док.totalVat=ИтСуммаНДС;
Док.totalCostVat=ИтСуммаСНДС;
Док.documentType=ТипЭСЧФ;
//Док.ВнутреннийСтатус=;
//Док.ХМЛ_МНС=;

// Заполняем ТЧ документа
//InvVatXml = EVatService.GetEDoc(InvVatNumber); //Сообщить(InvVatXml.Document);

// КаталогОтчета = "";
// ИдентификаторОтчета = "";
// РасположениеФайла(КаталогОтчета,ИдентификаторОтчета);
// ПутьКФайлуВыгрузки = КаталогОтчета ; // + "XSD\"
// ИмяФайла =ПутьКФайлуВыгрузки+"ВхСФ"+ ".xml";
//
// fn = ИмяФайла;
// res = InvVatXml.Document.SaveToFile( fn );

файл=СоздатьОбъект("Текст");
файл.Открыть(ИмяФайла);
//файл.ЗаменитьСтроку(2,"<issuance>");
файл.Записать(ИмяФайла);
Док.ХМЛ_МНС="";

Для Ном = 1 по файл.КоличествоСтрок() Цикл

Док.ХМЛ_МНС=Док.ХМЛ_МНС+файл.ПолучитьСтроку(Ном)+РазделительСтрок;

КонецЦикла;

//Анализатор = СоздатьОбъект("AddIn.XMLParser");
ФайлДанных=Анализатор.СоздатьДокумент();
ФайлДанных.Загрузить(ИмяФайла);

УзелУр1 = ФайлДанных.ЭлементДокумента;
Для Инд1 = 1 по УзелУр1.КоличествоПодчиненных() Цикл
// Если Инд1 = 1 Тогда //Чтение структуры док
// УзелУр2 - это issuance УзелУр2.Наименование
УзелУр2 = УзелУр1.ПолучитьПодчиненныйПоНомеру(Инд1);
rosterItem = УзелУр2.Наименование;// Сообщить(rosterItem);
Если rosterItem = "roster" Тогда
Данные=УзелУр2;
Прервать;
КонецЕсли;
КонецЦикла;

// ВсеУзлы=ФайлДанных.ВыбратьУзлы("issuance/roster");
// Данные=ВсеУзлы.ПолучитьУзел(0);

номер=0;
Для х = 1 по Данные.КоличествоПодчиненных() Цикл
Элемент = Данные.ПолучитьПодчиненныйПоНомеру(х);
rosterItem = Элемент.Наименование;// Сообщить(rosterItem);
Если rosterItem = "rosterItem" Тогда
//Выбираем данные строки
номер=номер+1;
//Вернуть Значение
Док.НоваяСтрока();
//Записываем строку в док
Для Инд1 = 1 по Элемент.КоличествоПодчиненных() Цикл
УзелУр2 = Элемент.ПолучитьПодчиненныйПоНомеру(Инд1);
Значение=УзелУр2.Значение; // = "1"
Наименование=УзелУр2.Наименование; // = "number"
Если Наименование = "number" Тогда
Продолжить
ИначеЕсли Наименование = "vat" Тогда
Для Инд2 = 1 по УзелУр2.КоличествоПодчиненных() Цикл
УзелУр3 = УзелУр2.ПолучитьПодчиненныйПоНомеру(Инд2);
Значение=УзелУр3.Значение; // = "1"
Наименование=УзелУр3.Наименование; // = "number"
//Сообщить("Запись2 "+Наименование+" = "+Значение);
Док.УстановитьАтрибут(Наименование,Значение);
КонецЦикла;
Продолжить
КонецЕсли;
//Сообщить("Запись "+Наименование+" = "+Значение);
Док.УстановитьАтрибут(Наименование,Значение);
КонецЦикла;
//Конец Записываем строку в док

КонецЕсли; //Если rosterItem = "rosterItem" Тогда Вдруг не будет
КонецЦикла; //ВсеУзлы=ФайлДанных.ВыбратьУзлы("issuance/roster");
Док.Записать();


EndDo;