&НаКлиенте
Процедура СформироватьДокументККМXML()
ПолноеИмяФайлаXML = "C:\CheckKKM\SalesDocumentIn.xml";
ВыбранныйФайл = Новый Файл(ПолноеИмяФайлаXML);
Если Не ВыбранныйФайл.Существует() Тогда
Возврат
КонецЕсли;
//перемещаем файл с клиента на сервер для обработки
ВыбраныйФайл = "C:\CheckKKM\SalesDocumentIn.xml"; //ДиалогОткрытияФайла.ПолноеИмяФайла;
АдресВременногоХранилища = "";
ПоместитьФайл(АдресВременногоХранилища, ВыбраныйФайл, ,Ложь, ЭтаФорма.УникальныйИдентификатор);
//процедура обработки в параметр которого передается данные файла
ЗагрузитьДанные(АдресВременногоХранилища);
// удаляем файл
/////////////////////////////////////////////////
ИмяФайлаККМ = "C:\CheckKKM\SalesDocumentIn.xml";
ПолноеИмяФайла = Новый Файл(ИмяФайлаККМ);
Если ПолноеИмяФайла.Существует() Тогда
УдалитьФайлы(ПолноеИмяФайла);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьДанные(АдресВременногоХранилища)
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
ДвоичныеДанные.Записать(ИмяВременногоФайла);
ТекстИзXML = Новый ТекстовыйДокумент;
ТекстИзXML.Прочитать(ИмяВременногоФайла, КодировкаТекста.UTF8);
ЗаполнитьДокументККМ(ТекстИзXML.ПолучитьТекст());
Попытка
УдалитьФайлы(ИмяВременногоФайла);
Исключение
КонецПопытки;
КонецПроцедуры
Комментариев нет:
Отправить комментарий