у меня есть таблица значений

тзДвиженийОсн = НЗОсн.Выгрузить();
далее цикл

Для каждого рег из  тзДвиженийОсн цикл
..
..
..
тут я делаю что мне надо и потом одно из значений мне нужно заменить в этой ТЗ,подскажите как это сделать ?

могу весь код добавить,он простой и маленький)

(0) Оператор присваивания - спасёт прогрессивное человечество.
В чём именно у Вас проблема?

НЗОсн = РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
   Регистратор=Документы.ПереносДанных.НайтиПоНомеру("НЗР-0901");
   ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("00001");
НЗОсн.Отбор.Регистратор.Установить(Регистратор);
НЗОсн.Прочитать();
тзДвиженийОсн = НЗОсн.Выгрузить();


НЗДоп = РегистрыСведений.мойРегистр.СоздатьНаборЗаписей();

НЗДоп.Прочитать();
тзДвиженийДоп = НЗДоп.Выгрузить();

Для каждого рег из  тзДвиженийОсн цикл
   Если рег.ВидРасчета = ВидРасчета тогда
       Отбор = Новый Структура();
       Отбор.Вставить("Сотрудник", рег.Сотрудник);
       Отбор.Вставить("Дата", рег.ПериодРегистрации);
       НайденнаяСтрока = тзДвиженийДоп.НайтиСтроки(Отбор);
           Для НомерСтроки=0 по НайденнаяСтрока.Количество()-1 цикл
                 Сообщить(НайденнаяСтрока[НомерСтроки].Сумма);
               если (НайденнаяСтрока[НомерСтроки].Сумма = 29.4 ) и
                   (   День(рег.ПериодДействияКонец) =   День(КонецМесяца(рег.ПериодДействияКонец)) )
                               Тогда Сообщить (рег.Сотрудник )    
                           иначеесли  НайденнаяСтрока[НомерСтроки].Сумма <> 29.4 тогда
                           Дни = (НайденнаяСтрока[НомерСтроки].Сумма * День(КонецМесяца(рег.ПериодДействияКонец))/29.4);
                           ДниРаб = Окр(Дни,0) ;
                           год = Год (рег.ПериодДействияКонец);
                           месяц =Месяц (рег.ПериодДействияКонец);
                           рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);
                           Сообщить ( Дата (год,месяц,ДниРаб,23,59,59))  ;
                   конецесли
           КонецЦикла;
       конецесли;

(2) а что, сразу не видно, где именно у него проблема?

тут мне нужно чтоб реквизит  рег.ПериодДействияКонец,заменился на то значение которое я написала

рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);

НайденнаяСтрока[НомерСтроки].ПериодДействияКонец = ЧегоТамВамНадо;

мне не туда надо)
а вот сюда
рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);
но он почему то не меняет,может еще что-то нужно написать...

ой... А я таки был прав...

(8)и где?)

(9) there are many bugs in DNA...

что такое DNA..

ооооооо!!!...

Это Deoxyribonucleic acid...

блин,подскажите лучше как сделать

(13) в прошлой ветке я тебе уже писал про быдлокод, и теперь нет желания читать конструкции [ Для НомерСтроки=0 по НайденнаяСтрока.Количество()-1 цикл]

(14)да это я исправлю...

и это [рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);] тоже

а тут я не знаю на что исправить...

(0)

ВидРасчета=ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("00001");

НЗОсн=РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
НЗОсн.Отбор.Регистратор.Установить(Регистратор);
НЗОсн.Прочитать();
тзДвиженийОсн=НЗОсн.Выгрузить();

НЗДоп=РегистрыСведений.мойРегистр.СоздатьНаборЗаписей();
НЗДоп.Прочитать();

Отбор=Новый Структура();
Для каждого рег из НЗДоп цикл
   Если рег.ВидРасчета = ВидРасчета тогда
       Отбор.Вставить("Сотрудник", рег.Сотрудник);
       Отбор.Вставить("Дата", рег.ПериодРегистрации);
       МассивСтрок=тзДвиженийДоп.НайтиСтроки(Отбор);
       
       Для Каждого СтрокаМассива Из МассивСтрок цикл
           текСумма=СтрокаМассива.Сумма;
           Сообщить(текСумма);
           Если текСумма=29.4 ) и (День(рег.ПериодДействияКонец)=День(КонецМесяца(рег.ПериодДействияКонец))) Тогда
               Сообщить (рег.Сотрудник )    
           иначеесли  текСумма <> 29.4 тогда
               Дни = (текСумма * День(КонецМесяца(рег.ПериодДействияКонец))/29.4);
               ДниРаб = Окр(Дни,0) ;
               год = Год (рег.ПериодДействияКонец);
               месяц =Месяц (рег.ПериодДействияКонец);
               рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);
               Сообщить ( Дата (год,месяц,ДниРаб,23,59,59))  ;
           конецесли
       КонецЦикла;
   конецесли;
КонецЦикла;
НЗДоп.Записать();

тогда уж и в первый цикл заменить на строки найденные по виду расчета

Регистратор=Документы.ПереносДанных.НайтиПоНомеру("НЗР-0901");
ВидРасчета=ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("00001");

НЗОсн=РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
НЗОсн.Отбор.Регистратор.Установить(Регистратор);
НЗОсн.Прочитать();

НЗДоп=РегистрыСведений.мойРегистр.СоздатьНаборЗаписей();
НЗДоп.Прочитать();
тзДвиженийДоп=НЗДоп.Выгрузить();

Отбор=Новый Структура();
Для каждого рег из НЗОсн цикл
   Если рег.ВидРасчета = ВидРасчета тогда
       Отбор.Вставить("Сотрудник", рег.Сотрудник);
       Отбор.Вставить("Дата", рег.ПериодРегистрации);
       МассивСтрок=тзДвиженийДоп.НайтиСтроки(Отбор);
       
       Для Каждого СтрокаМассива Из МассивСтрок цикл
           текСумма=СтрокаМассива.Сумма;
           Сообщить(текСумма);
           Если текСумма=29.4 ) и (День(рег.ПериодДействияКонец)=День(КонецМесяца(рег.ПериодДействияКонец))) Тогда
               Сообщить (рег.Сотрудник )    
           иначеесли  текСумма <> 29.4 тогда
               Дни = (текСумма * День(КонецМесяца(рег.ПериодДействияКонец))/29.4);
               ДниРаб = Окр(Дни,0) ;
               год = Год (рег.ПериодДействияКонец);
               месяц =Месяц (рег.ПериодДействияКонец);
               рег.ПериодДействияКонец = Дата (год,месяц,ДниРаб,23,59,59);
               Сообщить ( Дата (год,месяц,ДниРаб,23,59,59))  ;
           конецесли
       КонецЦикла;
   конецесли;
КонецЦикла;    
НЗОсн.Записать();

млин наплодил Осн\Доп...не запутаться не возможно :) код конечно из разряда "мама не горюй"

а чем плохой код?)))

(21) сори, я не сразу заметил, что "пол=женский" - в данном случае тогда код пойдет :)

(22)
)))))))))))))))
только он мне почему то всё равно в этом регистре расчета не заменяет значение.......
блин

(23) не верю (с)

ну а как я могу доказать?)

(25) аська+амми\тимвиер

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

(27) >>он же работает правильно,просто коряво написан?
смотри какая маладец - ведь сама же все понимаешь :)

а если мне не надо сохранять изменений,то мне надо
НЗОсн.Записать();
убрать?)

(29) логично :)

а если мне надо в регистре ,у определенного вида расчета заменить дату

Регистратор=Документы.ПереносДанных.НайтиПоНомеру("СП000000023");
ВидРасчета=ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("10026");

НЗОсн=РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
НЗОсн.Отбор.Регистратор.Установить(Регистратор);
НЗОсн.Прочитать();
Для каждого рег из НЗОсн цикл
   Если (рег.ВидРасчета = ВидРасчета)и (рег.ПериодРегистрации = "01.01.2011 0:00:00") тогда
               День = День(НачалоМесяца(рег.ПериодДействияКонец)) ;
               год = Год (рег.ПериодДействияКонец);
               месяц =Месяц (рег.ПериодДействияКонец);
               рег.ПериодДействияКонец = Дата (год,месяц,День,00,00,00);
               Сообщить ( рег.Сотрудник)  ;
               Сообщить (Дата (год,месяц,День,0,00,00));

             
           конецесли
       КонецЦикла;
 
НЗОсн.Записать();

так?)

не записывает почему то снова)

(32) в "рег.ПериодДействияКонец" Дата хранится или что? ты почему с ней как со строкой работаешь? там реально тип строка?

(35)уже исправила
там дата
рег.ПериодРегистрации =Дата(2009,02,01,0,00,00 )

День = День(НачалоМесяца(рег.ПериодДействияКонец)) ;

Это разве не
День = 1;

(0) пешиесчо :))

некрасивый код по определению не будет корректно работать
некрасивый код - следствие каши в голове прога