Как заменить должность ??

1С v8

12.03.13

✎

17:06

Что не так почему не записывает?

Объект=Справочники.СотрудникиОрганизаций.НайтиПоНаименованию(Сотр).ПолучитьОбъект();

Объект.ТекущаяДолжностьОрганизации = Должность;
Объект.Записать();

1 Kreont

12.03.13

✎

17:10

наверное не находит

2 Sa6nek6

12.03.13

✎

17:12

Находит

3 Sa6nek6

12.03.13

✎

17:12

но не записывет

4 Maxus43

12.03.13

✎

17:12

подозреваю что уборщица задела сетевой кабель, и ошибка разрыва соединения. Я правильно стелепатировал?

5 Maxus43

12.03.13

✎

17:12

текст ошибки в студию

6 Sa6nek6

12.03.13

✎

17:13

да вот ошибки то нет

7 Sa6nek6

12.03.13

✎

17:13

Процедура КнопкаВыполнитьНажатие(Кнопка)
Текст = Новый ТекстовыйДокумент;
// открытие файла
Текст.Прочитать("C:\2.txt");

Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл
Стр = Текст.ПолучитьСтроку(НомерСтроки);
Позиция = Найти(Стр,";");
МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Стр,";");

пИНН = МассивСтрок[0];
пСотр = МассивСтрок[1];
Должность =МассивСтрок[2];

Если НЕ ЗначениеЗАполнено(МассивСтрок[2])Тогда
Продолжить;
Конецесли;

Если НЕ ЗначениеЗАполнено(МассивСтрок[0]) Тогда
Сотр = НайтиСт(пСотр);
Конецесли;

Если Сотр=Неопределено Тогда
Продолжить;
Иначе
Если Сотр<>пСотр Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
Объект = Справочники.СотрудникиОрганизаций.НайтиПоНаименованию(Сотр).ПолучитьОбъект();
Объект.ТекущаяДолжностьОрганизации = Должность;
Объект.Записать();

КонецЦикла;

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

8 GLazNik

12.03.13

✎

17:15

Должность - строка? оригинально

9 Господин ПЖ

12.03.13

✎

17:17

давно таких веток не было...

10 Kreont

12.03.13

✎

17:18

Объект.ТекущаяДолжностьОрганизации = Должность;
Сообщить("А сюда попадает...?");
Объект.Записать();

11 Sa6nek6

12.03.13

✎

17:30

Сообщить("А сюда попадает...?");???

12 Конфигуратор1с

12.03.13

✎

17:32

(0) у тебя по ходу должность справочник должности, а ты строку туда

13 Конфигуратор1с

12.03.13

✎

17:33

(0) а за поиск по наименованию при наличии инн ваще расстрелять на месте

14 Sa6nek6

12.03.13

✎

17:34

там нет в txt инн

15 Sa6nek6

12.03.13

✎

17:34

ну не у большенства нет

16 Конфигуратор1с

12.03.13

✎

17:34

(14) пИНН = МассивСтрок[0]; тады что?

17 Sa6nek6

12.03.13

✎

17:37

не у всех сотрудников есть инн

18 Sa6nek6

12.03.13

✎

17:38

ВСЕЕ!

19 Sa6nek6

12.03.13

✎

17:38

Долж = Справочники.ДолжностиОрганизаций.НайтиПоНаименованию(Должность);
Объект = Справочники.СотрудникиОрганизаций.НайтиПоНаименованию(Сотр).ПолучитьОбъект();
Объект.ТекущаяДолжностьОрганизации = Долж;
Объект.Записать();

20 Sa6nek6

12.03.13

✎

17:39

Вссем спасибо!

21 Kreont

12.03.13

✎

17:47

(20) жаль, у меня еще столько вариантов было :)