Сделал так, пока сижу проверяю, по-моему я вышел из положения. Если будут замечания, буду только благодарен.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Процедура Сформировать()
т = СоздатьОбъект("ТаблицаЗначений");
т.НоваяКолонка("ТекЗапись");
т.НоваяКолонка("Документ");
т.НоваяКолонка("РодительскийДокумент");
т.НоваяКолонка("Объект");
т.НоваяКолонка("ВидРасч");
т.НоваяКолонка("ДатаНачала");
т.НоваяКолонка("ДатаОкончания");
...
ЖРЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата");
ЖРЗ.ВыбратьПериод(ВыбНачПериода);
это для отладки, т.е. менять только по одному сотруднику
1.
2.
3.
4.
5.
6.
///////////////////////////////// ДЛЯ ОТЛАДКИ
спрСотр = СоздатьОбъект("Справочник.Сотрудники");
спрСотр.ПорядокКодов();
спрСотр.НайтиПоКоду( Формат(Число(ТАБНОМЕР), "Ч(0)6") );
ЖРЗ.ВыбратьЗаписиПоОбъекту(спрСотр.ТекущийЭлемент(), ВыбНачПериода, ВыбКонПериода); // ДЛЯ ОТЛАДКИ
///////////////////////////////// ДЛЯ ОТЛАДКИ
здесь читаю все значения реквизитов
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
сч= 0 ;
ПОКА ЖРЗ.ПолучитьЗапись() = 1 Цикл
Если ЖРЗ.ВидРасч = ВидРасчета.ЕжемесячнаяПремия Тогда
т.НоваяСтрока();
т.ТекЗапись = ЖРЗ.ТекущаяЗапись();
т.Документ = ЖРЗ.Документ;
т.РодительскийДокумент = ЖРЗ.РодительскийДокумент;
т.Объект = ЖРЗ.Объект;
т.ВидРасч = ЖРЗ.ВидРасч;
т.ДатаНачала = ЖРЗ.ДатаНачала;
т.ДатаОкончания = ЖРЗ.ДатаОкончания;
...
сч=сч+ 1 ;
Состояние( Строка(сч) );
КонецЕсли;
КОНЕЦЦИКЛА;
Сообщить( "ЗАМЕНЮ " + Строка(сч) + " зап." ); //
здесь меняю дату и записываю в журнал
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
сч= 0 ;
т.ВыбратьСтроки();
ПОКА т.ПолучитьСтроку() = 1 Цикл
ЖРЗ.НайтиЗапись( т.ТекЗапись );
ЖРЗ.УдалитьЗапись();
ЖРЗ.Новая();
ЖРЗ.УстановитьРеквизит("Документ", т.Документ);
ЖРЗ.УстановитьРеквизит("РодительскийДокумент", т.РодительскийДокумент);
ЖРЗ.УстановитьРеквизит("Объект", т.Объект);
ЖРЗ.УстановитьРеквизит("ВидРасч", т.ВидРасч);
ЖРЗ.УстановитьРеквизит("ДатаНачала", ДобавитьМесяц(т.ДатаНачала, - 1 ) );
// если дата окончания была последним днём в месяце,
// то и после вычитания одного месяца,
// эта дата тоже должна стать последней датой в месяце.
ДатаОконч = ДобавитьМесяц(т.ДатаОкончания,- 1 );
Если КонМесяца(т.ДатаОкончания) = т.ДатаОкончания Тогда
ДатаОконч = КонМесяца(ДатаОконч);
КонецЕсли;
ЖРЗ.УстановитьРеквизит("ДатаОкончания", ДатаОконч );
...
ЖРЗ.Записать();
сч=сч+ 1 ;
Состояние("запись Журнал.Зарплата..."+Строка(сч));
КОНЕЦЦИКЛА;
Сообщить( "ЗАМЕНИЛ " + Строка(сч) + " зап." ); //
КонецПроцедуры
