Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 09:56

Создание документа программно

Автор Bitaxa, 14 мар 2018, 14:15

0 Пользователей и 1 гость просматривают эту тему.

Bitaxa

   Вот так выгружаю данные из txt. Я должен на основе этих данных создать новый документ. Не подскажете какие способы для это есть?
А данные в txt появляются после того, как я туда выгружаю реквизиты и табличные части из документа. То есть по-сути мне нужно выгрузить документ в файл и просто пересоздать его. Есть какие-то идеи как это делать?

        Перем Стр;
   Стр = "";
   ЗагрузитьНаСервере();
   Режим = РежимДиалогаВыбораФайла.Открытие;
   ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
   ДиалогОткрытияФайла.ПолноеИмяФайла="";
   Текст = "ru = ""Текст""; en = ""Text""";
   Фильтр = Нстр(Текст) + "(*.txt)|*.txt";
   ДиалогОткрытияФайла.Фильтр = Фильтр;
   ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
   
   Если ДиалогОткрытияФайла.Выбрать() Тогда
      
      ИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
   Иначе
      
      Текст = "ru""файл не выбран!"";en=""File not selected""";
      Предупреждение(Нстр(Текст));
      
   КонецЕсли;
   Объект.Файл = ИмяФайла;
   ПрочТек = Новый ЧтениеТекста;
   ПрочТек.Открыть(ИмяФайла);
   Сообщить(Строка);
   Пока Стр <> Неопределено Цикл
      Стр = ПрочТек.ПрочитатьСтроку();
      Сообщить(Стр);
   КонецЦикла;
   ПрочТек.Закрыть();

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск