пятница, 8 ноября 2019 г.

Перемещаем файл с клиента на сервер для обработки



&НаКлиенте
Процедура СформироватьДокументККМXML()
 ПолноеИмяФайлаXML = "C:\CheckKKM\SalesDocumentIn.xml";
 ВыбранныйФайл = Новый Файл(ПолноеИмяФайлаXML);
 Если Не ВыбранныйФайл.Существует() Тогда
  Возврат
 КонецЕсли;

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


&НаСервере
Процедура ЗагрузитьДанные(АдресВременногоХранилища)
  ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
  ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
  ДвоичныеДанные.Записать(ИмяВременногоФайла);

  ТекстИзXML = Новый ТекстовыйДокумент;
  ТекстИзXML.Прочитать(ИмяВременногоФайла, КодировкаТекста.UTF8);
  ЗаполнитьДокументККМ(ТекстИзXML.ПолучитьТекст());
  Попытка
      УдалитьФайлы(ИмяВременногоФайла);
  Исключение
  КонецПопытки;
КонецПроцедуры

Комментариев нет:

Отправить комментарий