Изучить представленную конфигурацию и написать обработку, простейший перенумератор документов для представленной базы.

В обработке не нужно делать какой-то особенной функциональности, просто одна кнопка, после нажатия, на которую все имеющиеся документы в базе будут перенумерованы последовательно согласно моменту времени.

конфа: https://cloud.mail.ru/public/4Gy8uMvKEuFU/Тест1С.zip

Не слишком легкое ?

p.s. ВАЖНО: количество документов(метаданных) может меняться, так же как и кол-во нумераторов !!! :)

так стандартных полно. вроде на том же итс есть. а уж на каком-нибудь инфостарте их вообще как грязи...

имхо 5 часов работы на все.

(0) Вредная обработка, если она будет делать "по одной кнопке" абсолютно все доки за все периоды
Ты уже отдал контрагентам подписанные акты с одним номером, а после обработки номер станет совсем другим - бухи после этого будут пачками стреляться

(2) Те которые работают с произвольными нумераторами, таких единицы.

Что ты подразумеваешь под произвольным нумератором?

(0) беру. только не на телефон. гляну

(7) Разные документы могут быть привязаны к единому нумератору, у нумератора есть своя периодичность и т.д. !

(9) Уже из этого предложения - нужны 2 реквизита формы обработки окромя кнопки... :)

(10) для упрощения решения задания кандидату, упрощаем ! И говрим что должна быть ОДНА кнопка после которой все имеющиеся документы в базе будут перенумерованы !
Причем обработку мы должны запустить на любой базе, с любым кол-вом документов(объекты) и любым кол-вом нумераторов!!!

(10) И что? Или предполагается что нельзя использовать нумерацию средствами платформы?

(12)Нумератор = Неопределено

(13) и что?
Или мы про случай когда галка "Автонумерация" не установлена?

(14) Да что мешает проверить наличие нумератора и использовать его, иначе - средствами платформы.
Как-то все ждут готовых решений.

Hans имхо 5 часов работы на все.

Не много ли 5 часов ?

Кандидатка прислала решение на 104 строки кода.

Будущий_Олигарх Кандидатка прислала решение на 104 строки кода.

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

Много, 2-3 часа если перенумеровывать все документы, без выбора периода, и всяких своих перенумераторов. Код кандидата в студию.

да да да код сюда

sf ты под видом тестовых заданий на собеседование, рассылаешь свою работу? )))))))

Не пали контору ;)

код и фото

сиськи Кандидатки

(16) Ну, если тебе только "Увидеть код человека", то в принципе - обработка может быть и не полностью рабочей... )))

А мог бы - просто попросить кусок кода из какой-нибудь обработки, размещённой на инфостарте.

Если Джейсмит код даст, тогда Выложу и её код, для более предметного обсуждения!

Бендер сиськи Кандидатки

Замужем.

(24) Замужние более охотно показывают сиськи. :)

(24)это нам не помешает какбэ

Код - сюда, сиськи - в Пятницу :)

(24) покажу, хуле. пишу покамест. тока есть вероятность, что на некоторое время буду в оффлайне. надеюсь, подождёшь. я никуда не денусь

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

(29) Какой магаз??? Прочитать 10 псалмов и после ОтчеНаш - за работу!!! Магаз - потом, по готовности обработки...

Сделал

(31)ну выкладывай чего ждешь то ?

ТС, выложил в частную ветку обработку
Можешь сюда код мой закидывать )))

так трудиться, и даже не увидеть сисек.
Не любишь ты себя, Джейсмит...

всё. я в оффлайн часа на три!

(35)беги в магаз беги )))))

ТАк код Джейсмита !

&НаКлиенте
Процедура ВыполнитьОбработку(Команда)
    
    ВыполнитьОбработкуНаСервере();
    
КонецПроцедуры

&НаСервере
Процедура ВыполнитьОбработкуНаСервере()
    
    Для Каждого ОМ Из Метаданные.Документы Цикл
        
        ОбработатьДок(ОМ)
        
    КонецЦикла;
    
КонецПроцедуры

&НаСервере
Процедура ОбработатьДок(ОМ)
    
    ТаблицаДок = ПолучитьТаблицаДок(ОМ);
    Для Каждого Строка Из ТаблицаДок.Строки Цикл
        Перенумеровать(Строка.Строки, "А", ОМ.ДлинаНомера);	
        Перенумеровать(Строка.Строки, "", ОМ.ДлинаНомера);	
    КонецЦикла;	
    
КонецПроцедуры

Функция ПолучитьТаблицаДок(ОМ)
    
    Запрос = Новый Запрос();
    Текст =						
    "ВЫБРАТЬ
    |	Таблица.Ссылка КАК Ссылка,
    |	Таблица.Дата КАК Дата,
    |	ГруппировкаНумератор КАК Период
    |ИЗ
    |	Документ.ИмяДок КАК Таблица
    |
    |УПОРЯДОЧИТЬ ПО
    |	Таблица.МоментВремени
    |ИТОГИ ПО
    |	Период";
    Текст = СтрЗаменить(Текст, "ИмяДок", ОМ.Имя);
    Нумератор = ОМ.Нумератор;
    ГруппировкаНумератор = "0";
    Если		Нумератор = Неопределено Тогда
        ГруппировкаНумератор = "0";
    ИначеЕсли	Нумератор.ПериодичностьНомера = Метаданные.СвойстваОбъектов.ПериодичностьНомераДокумента.Год Тогда
        ГруппировкаНумератор = "НАЧАЛОПЕРИОДА(Таблица.Дата, ГОД)";
    ИначеЕсли	Нумератор.ПериодичностьНомера = Метаданные.СвойстваОбъектов.ПериодичностьНомераДокумента.Квартал Тогда
        ГруппировкаНумератор = "НАЧАЛОПЕРИОДА(Таблица.Дата, КВАРТАЛ)";		
    ИначеЕсли	Нумератор.ПериодичностьНомера = Метаданные.СвойстваОбъектов.ПериодичностьНомераДокумента.Месяц Тогда
        ГруппировкаНумератор = "НАЧАЛОПЕРИОДА(Таблица.Дата, МЕСЯЦ)";
    ИначеЕсли	Нумератор.ПериодичностьНомера = Метаданные.СвойстваОбъектов.ПериодичностьНомераДокумента.День Тогда
        ГруппировкаНумератор = "НАЧАЛОПЕРИОДА(Таблица.Дата, ДЕНЬ)";		
    КонецЕсли;
    Текст = СтрЗаменить(Текст, "ГруппировкаНумератор", ГруппировкаНумератор);
    Запрос.Текст = Текст;
    Таблица = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
    Возврат Таблица;
            
КонецФункции

Процедура Перенумеровать(Доки, Префикс, Длина)
    
    Номер = 1;
    Для Каждого Док Из Доки Цикл
        ДокОбъект = Док.Ссылка.ПолучитьОбъект();
        ДокОбъект.Номер = ПолучитьНомерСтрокой(Номер, Префикс, Длина);
        ДокОбъект.ОбменДанными.Загрузка = Истина;
        ДокОбъект.Записать();
        Номер = Номер + 1;
    КонецЦикла;
    
КонецПроцедуры

// Не дописал!!! Упростил!!!
Функция ПолучитьНомерСтрокой(Номер, Префикс, Длина)
    
    СтрНомер = Строка(Номер);
    СтрНомер = СтрЗаменить(СтрНомер, Символы.НПП, "");
    СтрНомер = Префикс + СтрНомер;
    Возврат СтрНомер;
    
КонецФункции

Я не проверял, ща потестим.

Ни где не увидел ключевого метода "УстановитьНовыйНомер(<ПрефиксНомера>) " Это они тупые или я тупой?

(40) Кандидатка задавала уточняющие вопросы, про префиксы и прочие моменты, по этому я опустил этот момент и сказал максимально просто сделать.

(40) это не нужно...
а вот без ОбновитьНумерациюДокументов не комильфо.....

(40) и использует ограничение документов по датам...

Если базу в (0) обработать этими обработками, номера документов разные )))) какая-то из обработок не рабочая ))

(44) Мой вариант ближе к кандидатке, учтены совместные нумераторы.

(39) Чето я не вкурю. А если документу не назначен нумератор?

(46) Тогда средствами платформы, по-умолчанию.

ptiz (39) Чето я не вкурю. А если документу не назначен нумератор?

Я для кандидатки делал акцент на нумераторах. По этому обычные доки без нумераторов меня не интересуют.

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    
    ВыполнитьОбработкуНаСервере();
    
КонецПроцедуры

Процедура ВыполнитьОбработкуНаСервере()
    
    Для Каждого ОМ Из Метаданные.Документы Цикл
        
        ОбработатьДок(ОМ)
        
    КонецЦикла;
    
КонецПроцедуры


Процедура ОбработатьДок(ОМ)
    
    ТаблицаДок = ПолучитьТаблицаДок(ОМ);
    Перенумеровать(ТаблицаДок);
    
КонецПроцедуры

Функция ПолучитьТаблицаДок(ОМ)
    
    Состояние(ОМ.Имя);
    
    Запрос = Новый Запрос();
    Текст =	"ВЫБРАТЬ
           	|	ABCКлассификацияПокупателей.Ссылка
           	|ИЗ
           	|	Документ.ABCКлассификацияПокупателей КАК ABCКлассификацияПокупателей
           	|
           	|УПОРЯДОЧИТЬ ПО
           	|	ABCКлассификацияПокупателей.МоментВремени";					
    Текст = СтрЗаменить(Текст, "ABCКлассификацияПокупателей", ОМ.Имя);
    Запрос.Текст = Текст;
    Таблица = Запрос.Выполнить().Выгрузить();
    Возврат Таблица;
            
КонецФункции

Процедура Перенумеровать(Доки)
    
    Для Каждого Док Из Доки Цикл
        ДокОбъект = Док.Ссылка.ПолучитьОбъект();
        ДокОбъект.Номер = "~" + Прав(ДокОбъект.Номер, СтрДлина(ДокОбъект.Номер)-1) ;
        ДокОбъект.ОбменДанными.Загрузка = Истина;
        ДокОбъект.Записать();
        
    КонецЦикла;
    
    Для Каждого Док Из Доки Цикл
        ДокОбъект = Док.Ссылка.ПолучитьОбъект();
        ДокОбъект.УстановитьНовыйНомер();
        ДокОбъект.ОбменДанными.Загрузка = Истина;
        ДокОбъект.Записать();   
    КонецЦикла;

    
КонецПроцедуры

(52) твой вариант учитывает (45)

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

Будущий_Олигарх какие вопросы должен задать, грамотный спец при виде такого задания

1. а это точно тест на собеседование, а не Вы свою работу моими руками делаете?

(54) Грамотный спец должен был предложить тебе не любить ему мозги дурными заданиями

(57) Ну когда мы со страта предлагаем больше чем она получает в настоящий момент, это должно для неё быть мотиватором выполнить задание ?

(58) Уровень задания не для спеца, а для студента. Студент будет решать, спец вас пошлет, а скорее и не придет к вам. Ну разве что вы предлагаете отстатыщ за решение студенческих заданий

(59) Давай задание на спеца. Глянем.

(55) вобщем, да, все документы собрать без запроса из кусков не получится. А при перенумерации мне способ с подстановкой префикса, и установитьНовыйНомер нравится больше.

Hans (55) вобщем, да, все документы собрать без запроса из кусков не получится. А при перенумерации мне способ с подстановкой префикса, и установитьНовыйНомер нравится больше.

Соглашусь, но с учетом (41) в данном контексте это опускаем, так как я так же не люблю тратить чужое время.

Hans ИМХО кандидатка что то очень усложнила, за такими прогами разгребать код это ппц

После женщин/девушек программисток только переписывать заново.

(60) У спеца обычно резюме есть, по которому и так видно, что он умеет. Достаточно собеседования, имхо

(64) А что такое спец в твоем понимании ?

(65) от 22 см

(65) Он имел ввиду: кандидат на вакансию, который прислал резюме.

онлайн. извините, я писал очень бегло, наспех
конечно, некоторые вещи не учёл

(69) сотку тебе заплатили за работу?

(70) 200 :)

Я сейчас при приеме даю 3 задачи. С жестким ограничением времени 30 минут на 1 и 2 пункт.
1. в форме списке вывести наличие связанных документов (например для заказа) колонка булево
2. написать запрос "документ, предыдущий документ"
3. что такое Web-сервис в 1с своими словами
Из 14 собеседованных никто не справился. Но все равно троих берем - работать нужно ...

и какое решение правильное? Через критерий отбора если такой есть в конфе?

(73) А теперь расскажи, что из этого вы используете в реальности в вашей нетленки?

Fynjy предыдущий документ

А мне вообще непонятно, что это за зверь? Документ - основание????

(76) ну такая задача была вывести колонку булево для заказа отражающую наличие связанных документов. Вебсервисы во всю используются у заказчика. А 2 пункт знание языка запросов. Не сложная задача на 5 минут.
(77) причем тут документ основание? Нужен предыдущий документ ...
Д1, Д2, Д3
Д3,Д2
Д2,Д1
Д1, Null

(0) никакая это не "тестовая обработка", это вирус типичный :)
зв: и в задании "Изучить представленную конфигурацию" - явно лишнее, ну разве что версию узнать

(79) а в этой программе ОбратныйПорядок для выборок так и не прикрутиле?

(82) не понял вопроса?

(83) СКД-шнику семерочника не понять. Это только в клюшках найти твой предыдущий = три строки кода.

(85) мне как бы вывести список и это явно не три строки.