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

Создание текстовых документов по увольняемым сотрудникам.

Автор Shkerin, 04 мар 2011, 07:00

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

Shkerin

Конфигурация Управление производственным предприятием.
Сложность: 1.

Необходимо добавить код в документ - уволенные из организации, формирующий новый текстовый документ, содержащий информацию по вновь увольняемым сотрудникам: таб. номер, ФИО, подразделение. Для каждого уволенного сотрудника необходимо создать отдельный текстовый документ и переслать в другое подразделение через локальную сеть.

Myti


Myti

   Текст = Новый ТекстовыйДокумент();
   ПолноеИмяФайла = "D:\StraxVznosi.txt";
   Кодировка = КодировкаТекста.Системная;
   Текст.Записать(ПолноеИмяФайла,Кодировка);
   
   Для каждого СтрокаТз Из РезультатЗапроса Цикл
      Строчка = СтрокаТз.ФизЛицоКод +"-"+СтрокаТз.НачисленоСтраховая;
      Текст.ДобавитьСтроку(Строчка);
   КонецЦикла;
   
   Текст.Записать(ПолноеИмяФайла,Кодировка);

//********************** Чтение
   Текст = Новый ТекстовыйДокумент();
   ПолноеИмяФайла = "D:\StraxVznosi.txt";
   Кодировка = КодировкаТекста.Системная;
   Текст.Прочитать(ПолноеИмяФайла,Кодировка);
   Для Ном = 1 По Текст.КоличествоСтрок() Цикл
      СтрокаФайла = Текст.ПолучитьСтроку(Ном);
      Сообщить(СтрокаФайла, СтатусСообщения.Обычное);
   КонецЦикла;


Shkerin

Создал следующий код:

ТекущиеДанные = ЭлементыФормы.РаботникиОрганизации.ТекущиеДанные;
ТабельныйНомер = ТекущиеДанные.Сотрудник.Код;
ФИО = ТекущиеДанные.Сотрудник.Наименование;
Подразделение = ТекущиеДанные.Сотрудник.ПодразделениеОрганизации.Родитель;


            
Путь = "S:\Общая\Шкерин ВН\";  // папка в лок.сети
   
ФорматДаты = "ДФ=""ггггММдд ЧЧммсс""";
ТД = Новый ТекстовыйДокумент;
ТД.УстановитьТипФайла(КодировкаТекста.Системная);
ТД.ДобавитьСтроку(ТабельныйНомер + " " + ФИО + " " + Подразделение);
ТД.Записать(Путь + "Уволенный - " + Формат(ТекущаяДата(), ФорматДаты) + ".txt");

Подскажите пожалуйста куда лучше поместить этот код, если необходимо создавать файл только в момент проведения документа?

Shkerin

В данный момент код находиться в модуле формы документа УволенниеИзОрганизаций.

Myti

модуле формы, Обработка проведения,,,,,,,,можно и до проведения и после тогда процедуры другие

Shkerin

>>  модуле формы, Обработка проведения,,,,,,,,можно и до проведения и после тогда процедуры другие

вставил, выдает ошибку:
Переменная не определена (ЭлементыФормы) ТекущиеДанные =  <?>>ЭлементыФормы.РаботникиОрганизации.ТекущиеДанные;

Через какой объект обратиться? Пробовал через имя документа:
УвольнениеИзОрганизаций.Формы.ФормаДокумента.ЭлементыФормы.РаботникиОрганизации.ТекущиеДанные;
Выдает ошибку неопознанного оператора. :dfbsdfbsdf:

Myti

В модуле формы "ЭлементыФормы" недоступны...........если реквизит "РаботникиОрганизации" прописан в реквизитах а не создан на форме, то к нему можно обратится просто по имени...........неужели так трудно попробывать :)

Теги:

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

Рейтинг@Mail.ru

Поиск