Имя: Пароль:
1C
1C 7.7
v7: УстановитьВремя в форме документа: выдает ошибку для не новых документов
0 ptrtss
 
20.06.12
06:52
// Пишет недопустимая операция. Как победить?

Процедура УстановитьВремяНовому()
   
   // Ставим поступления на нормальное начало дня, которое начинается не с 12:00, а с 8:00
   Если Проведен() = 0 Тогда
       
       ЕстьДругиеДокументы = 0;
       Док = СоздатьОбъект("Документ");
       Док.УстановитьФильтр(1, 0);
       Док.ВыбратьДокументы(ДатаДок, ДатаДок);
       Пока Док.ПолучитьДокумент() = 1 Цикл
           Если Док.ТекущийДокумент() <> ТекущийДокумент() Тогда
               ЕстьДругиеДокументы = 1;
               Прервать;
           КонецЕсли;
       КонецЦикла;
       Если ЕстьДругиеДокументы = 1 Тогда
           
           // Если другие документы есть, и это новый документ, то ставим в начало дня
           // Для ранее записанных - время не меняем
           Если Выбран() = 0 Тогда
               АвтоВремяНачалоДня();
           КонецЕсли;
           
       Иначе
           
           // Если других документов нет, то хоть новый хоть нет - на 8 часов
           АвтоВремяОтключить();
           УстановитьВремя(8, 0, 0);
           
       КонецЕсли;
       
   КонецЕсли;
   
КонецПроцедуры
1 ptrtss
 
20.06.12
06:53
Спотыкается если перезаписываю не проведенный документ датой где нет других проведенных документов
2 zak555
 
20.06.12
06:54
жесть

это зачем ?
3 ptrtss
 
20.06.12
06:56
(2) Долго рассказывать. Надо
4 forforumandspam
 
20.06.12
07:05
УстановитьВремя(<?>,,);
SetTime(<?>,,);
Синтаксис:
УстановитьВремя(<Часы>,<Минуты>,<Секунды>)
Назначение:
Установить время документа.
Параметры:
<Часы> - число часов;
<Минуты> - число минут;
<Секунды> - число секунд.
Замечание:
Метод  можно использовать только для объектов, созданных функцией СоздатьОбъект.

Читать последнюю строчку.
5 ptrtss
 
20.06.12
07:10
(4) И чего это метод работает для не записанных документов??
6 ЧеловекДуши
 
20.06.12
07:17
(5)Для НЕ проведенных тоже :)
7 ЧеловекДуши
 
20.06.12
07:18
>>> Стаж с 2002 года. Долгое время работал в Новосибирском франче "Сиринт" (ныне "Рарус")  

Ужас... не позавидуешь рарусу :)
8 ЧеловекДуши
 
20.06.12
07:18
+ Кем же автор работал во фране :)
9 ptrtss
 
20.06.12
07:35
(6) От оно че, а пацаны то не знали!