levran
Руслан Латыпов

{Conversion_3_Plus Справочник.Конвертации.Форма.ФормаЭлемента.Форма(37,7)}: Переменная не определена (КонвертацияXDTO)
   Если <<?>>КонвертацияXDTO Тогда

   
   АдресФайла = "/export/excel/super.xls";
   Сервер = "Имя сервера";
   Логин  = "Логин";
   Пароль = "Пароль";
   
   WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); //WinHttpRequest
   Stream  = Новый COMОбъект("ADODB.Stream"); //Stream (ADO)
   
   //WinHttp.SetRequestHeader ("Accept-Language", "ru");
   //WinHttp.SetRequestHeader ("Accept-Charset", "Windows-1251");
   //WinHttp.setRequestHeader ("Content-Language", "ru");
   //WinHttp.setRequestHeader ("Content-Charset", "Windows-1251");
   //WinHttp.setRequestHeader ("Content-Type", "application / x-www-form-urlencoded; charset = Windows-1251");
   
   WinHttp.Option(2, "utf-8");
   
   WinHttp.Open("GET", "http://"+Сервер+АдресФайла, Ложь);
   
   Попытка
      WinHttp.Send();
   Исключение
      Сообщить(ОписаниеОшибки());
      Возврат;
   КонецПопытки;
   
   
   Если WinHttp.Status = 200 Тогда
      
      Stream = Новый COMОбъект("ADODB.Stream");
      
      Stream.Type = 1;
      Stream.Mode = 3;
      
      Stream.Open();
      Попытка
         Stream.Write(WinHttp.ResponseBody); 
         Stream.SaveToFile("k:\super.xls", 2);
         Stream.Close();
         Stream = Неопределено;
         
      Исключение
         Сообщить(ОписаниеОшибки());
      КонецПопытки;
   Иначе
      Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText);
      Возврат;
   КонецЕсли;
   

Процедура ПередЗаписью(Отказ, Замещение)
   
   Для каждого Запись Из ЭтотОбъект Цикл 
      Если НЕ ЗначениеЗаполнено(Запись.ДатаЗаписиВРегистр) Тогда
         ТекДата = ТекущаяДата();
         Отбор.ДатаЗаписиВРегистр.Значение = ТекДата;
         Запись.ДатаЗаписиВРегистр = ТекДата;
      КонецЕсли;
   КонецЦи
кла;

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

   

Процедура ПриЗаписи(Отказ, Замещение)
   
   Для каждого Запись Из ЭтотОбъект Цикл 
      Если НЕ ЗначениеЗаполнено(Запись.ДатаЗаписиВРегистр) Тогда
         Запись.ДатаЗаписиВРегистр = ТекущаяДата();
      КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры