Имя: Пароль:
1C
1C 7.7
v7: нумерация в документе
0 defre315
 
08.01.13
17:01
Всем привет, ребят подскажите плиз, есть документ в котором проставляетяся номер.
начался новый год а нумерация продолжается с прошлого года, нужно что бы нумерация началась с 1-цы
это должно указываться где то в настройках? либо в прописывается в самом документе?
http://s006.radikal.ru/i215/1301/5d/dd7e2e2cc4c5.png
1 ДенисЧ
 
08.01.13
17:02
в документе периодичность номера год
2 BlackSeaCat
 
08.01.13
17:04
(1) У автора это явно реквизит документа, а не его номер.
3 defre315
 
08.01.13
17:05
в переодичности стоит В пределах года
4 KUBIK
 
08.01.13
17:07
(3) Ваяй процедуру/функцию (см (2))
5 ДенисЧ
 
08.01.13
17:07
(3) значит, это не номер документа, а самодельный реквизит. Его сам нумеруй.
6 defre315
 
08.01.13
17:09
Процедура НомерДоверенности()
   Док=СоздатьОбъект("Документ.Доверенность");
   Док.ОбратныйПорядок(1);
   Док.ВыбратьДокументы(НачГода(ДатаДок),КонГода(ДатаДок));
   Если Док.ПолучитьДокумент()>0 Тогда
       ПредыдущийНомер = Док.Номер;
       ДлинаПредыдущийНомер = СтрДлина(СокрЛП(ПредыдущийНомер));
       Попытка
           НовыйНомер = Строка(Число(ПредыдущийНомер)+1);
       Исключение
           НовыйНомер = 1;
       КонецПопытки;
       ДлинаНовыйНомер = СтрДлина(Строка(НовыйНомер));
       Если ДлинаНовыйНомер < ДлинаПредыдущийНомер Тогда
           Длина = ДлинаПредыдущийНомер;
       Иначе
           Длина = ДлинаНовыйНомер;
       КонецЕсли;
       ФорматнаяСтрока = "Ч(0)"+Строка(Длина)+".0";
       Номер = Формат(НовыйНомер, ФорматнаяСтрока);
   Иначе
       Номер = "1";
   КонецЕсли;    
КонецПроцедуры
8 KUBIK
 
08.01.13
17:15
+(7) реквизит текстовый? Там можно такое написать...:))))
Сделал бы числовым
9 Lionee
 
08.01.13
17:16
в (0) ослеп у него номер документа НФ-000002 !
а это резквезит
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс