ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
9 сообщений из 9, страница 1 из 1
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36498909
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Делаю так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
ЖРЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата");
ЖРЗ.ВыбратьПериод(ВыбНачПериода);
сч= 0 ;
Пока ЖРЗ.ПолучитьЗапись() =  1  Цикл
	Если ЖРЗ.ВидРасч = ВидРасчета.ЕжемесячнаяПремия Тогда
 	
	 	ЖРЗ.УстановитьРеквизит("ДатаНачала", ДобавитьМесяц(ЖРЗ.ДатаНачала,- 1 ))   ;
		ЖРЗ.УстановитьРеквизит("ДатаОкончания", ДобавитьМесяц(ЖРЗ.ДатаОкончания,- 1 ));
		ЖРЗ.Записать();   
		
		Состояние(ЖРЗ.Объект);
		
	КонецЕсли;
	сч=сч+ 1 ;
	Состояние("Журнал.Зарплата..."+Строка(сч));
КонецЦикла;
но выдаёт ошибку: Невозможно предустановить реквизит для записи: ДатаНачала
...
Рейтинг: 0 / 0
03.03.2010, 09:59
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36498960
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
В общем есть Обработка.ИсправлениеЖР
Там добавляется новая запись, меняются значения, и удаляется текущая запись.
Видимо по другому никак.
...
Рейтинг: 0 / 0
03.03.2010, 10:18
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499278
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
имхо дата начада не реквизит ...
читайте книгу как применять
...
Рейтинг: 0 / 0
03.03.2010, 11:54
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499284
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
если бы все было так просто ...
любой бы Вася-сантехник мог влезть в закрытый период зарплаты
и испохабить все
...
Рейтинг: 0 / 0
03.03.2010, 11:55
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499339
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Спасибо. Но руководство решило что премию теперь будем рассчитывать за не за прошлый месяц а за поза прошлый месяц.
Журнал уже сформирован. И поэтому надо всё переиграть.
Есть предложения? Кроме как
удалить запись (сохранив все реквизиты)

добавить новую (заменив ДатаНачала и ДатаОкончания)
...
Рейтинг: 0 / 0
03.03.2010, 12:07
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499494
paps
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paps
Участник
"мягкая "смена рп должна вам помочь
...
Рейтинг: 0 / 0
03.03.2010, 12:46
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499655
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
из штатных средств вроде как только документ исправление
и документ сторно ...
перерасчет будет оформлен в текущем учетном периоде
а как Вы хотели? Вы уже налоги выплатили и авансовые в пенсионку начислили
период закрыт - все изменения в текущем периоде
это закон
...
Рейтинг: 0 / 0
03.03.2010, 13:31
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36499858
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Сделал так, пока сижу проверяю, по-моему я вышел из положения. Если будут замечания, буду только благодарен.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Процедура Сформировать()
	
	т = СоздатьОбъект("ТаблицаЗначений");
	
	т.НоваяКолонка("ТекЗапись");
	т.НоваяКолонка("Документ");
	т.НоваяКолонка("РодительскийДокумент");
	т.НоваяКолонка("Объект");
	т.НоваяКолонка("ВидРасч");
	т.НоваяКолонка("ДатаНачала");
	т.НоваяКолонка("ДатаОкончания");
...
	ЖРЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата");
	ЖРЗ.ВыбратьПериод(ВыбНачПериода);
это для отладки, т.е. менять только по одному сотруднику
 
Код: plaintext
1.
2.
3.
4.
5.
6.
	///////////////////////////////// ДЛЯ ОТЛАДКИ
	спрСотр = СоздатьОбъект("Справочник.Сотрудники");
	спрСотр.ПорядокКодов();
	спрСотр.НайтиПоКоду( Формат(Число(ТАБНОМЕР), "Ч(0)6") );
	ЖРЗ.ВыбратьЗаписиПоОбъекту(спрСотр.ТекущийЭлемент(), ВыбНачПериода, ВыбКонПериода);  // ДЛЯ ОТЛАДКИ
	///////////////////////////////// ДЛЯ ОТЛАДКИ
здесь читаю все значения реквизитов
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
	сч= 0 ;
	ПОКА ЖРЗ.ПолучитьЗапись() =  1  Цикл
		Если ЖРЗ.ВидРасч = ВидРасчета.ЕжемесячнаяПремия  Тогда
	        					
			т.НоваяСтрока(); 
	
			т.ТекЗапись = ЖРЗ.ТекущаяЗапись();
	
			т.Документ             = ЖРЗ.Документ;
			т.РодительскийДокумент = ЖРЗ.РодительскийДокумент;
			т.Объект               = ЖРЗ.Объект;
			т.ВидРасч              = ЖРЗ.ВидРасч;
			т.ДатаНачала           = ЖРЗ.ДатаНачала;
			т.ДатаОкончания        = ЖРЗ.ДатаОкончания;
...
			сч=сч+ 1 ;
			Состояние( Строка(сч) );
			
		КонецЕсли;
	КОНЕЦЦИКЛА;
	Сообщить( "ЗАМЕНЮ  " + Строка(сч) + " зап." );   //

здесь меняю дату и записываю в журнал
 
Код: plaintext
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 ;
		Состояние("запись Журнал.Зарплата..."+Строка(сч));
	КОНЕЦЦИКЛА;

   	Сообщить( "ЗАМЕНИЛ " + Строка(сч) + " зап." );   //

КонецПроцедуры
...
Рейтинг: 0 / 0
03.03.2010, 14:19
| Ответить | Цитировать | Написать  
ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
    #36500180
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
переод регистрации? переод действия ?
результат?
вообще честно говоря я не понял смысл этих танцев с бубном
но наверное Вы знаете что делаете ... удачи
...
Рейтинг: 0 / 0
03.03.2010, 15:51
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / ЗиК 7.7 Как заменить в уже сущевствующей записе журнала зарплата, ДАТЫ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=36499858&tid=1522641]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 202ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 252ms
total:  540ms
созд. / загр.: 540ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]