Универсальная перенумерация УФ (управляемые формы)

30.08.13

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Универсальная перенумерация УФ .epf 18,96Kb 274	274	Скачать (1 SM)	Купить за 1 850 руб.

Перенумерация Перенумерация на УФ Универсальная перенумерация Универсальная перенумерация на УФ Перенумерация ПКО Перенумерация РКО управляемые формы УФ

+14 –2

См. также

Нумерация документов с префиксом по дате (настройка префикса документов)

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет Конфигурации 1cv8 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Предприятие 8. Транспортная логистика, экспедирование и управление автотранспортом КОРП 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

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

4000 руб.

11.02.2019 54825 424 194

Префиксация номеров документов в 1С (структурное подразделение: склад/магазин/подразделение)

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Расширение для отображения в номере документа структурной единицы (склад/магазин/подразделение), к которой относится данный документ. Визуально по номеру документа легко понять, к какому складу/магазину/подразделению относится документ. Пользователь самостоятельно выбирает, в каких документах и по каким полям префикс нужно добавлять. Нумерация документов не участвующих в префиксации, не затрагивается!

6000 руб.

18.05.2022 10719 25 0

Перенумерация документов для 1С (БУХ 3, ЗУП 3.1, ERP, КА2, Розница, БГУ 3)

Перенумераторы Платформа 1С v8.3 Конфигурации 1cv8 1С:Бухгалтерия 3.0 Россия Абонемент ($m)

Полезная внешняя обработка "Перенумерация документов", подходит для любой конфигурации на управляемых формах с БСП.

2 стартмани

04.10.2024 368 13 steaom 0

Восстановление нумерации кодов справочников

Перенумераторы Пользователь Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Обработка восстанавливает уникальную нумерацию кодов справочников.

2 стартмани

03.05.2024 751 7 napan 0

Сбилась нумерация счетов-фактур выданных? Решение

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Абонемент ($m)

Иногда при записи документа выходит ошибка: "Значение поля "Номер" неуникально". Это происходит, если каким-то образом корректировался номер документа. Если для других документов можно просто перенумеровать документы за период, то для счетов-фактур выданных, которые уже "ушли" к контрагентам, номер мы менять не можем. Поэтому было разработано данное расширение, которое помогает решить проблему и запустить автонумерацию.

2 стартмани

13.03.2024 845 6 Klinov 1

Сквозная нумерация для всех документов

Перенумераторы Бухгалтер Пользователь Платформа 1С v8.3 Конфигурации 1cv8 Молдова Абонемент ($m)

Начальство захотело уникальный номера документов в рамках одного года вне зависимости от вида? Вызывайте психиатров.

1 стартмани

26.02.2024 860 2 Teut_Vlad 2

Автоматическая установка номера (и даты) Реализации как у Счета на оплату

Перенумераторы Создание на основании Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Абонемент ($m)

Расширение позволяет копировать номер из Счета на оплату в Реализацию при создании на основании.

1 стартмани

02.02.2024 1137 9 config 2

Номер на печать -> в системный номер для счетов-фактур выданных. БП 3.0

Перенумераторы Платформа 1С v8.3 1С:Бухгалтерия 3.0 Россия Бесплатно (free)

Простая внешняя обработка для перезаписи системного номера счета-фактуры выданного в БП 3.0.

16.01.2024 1789 38 RustIG 0

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. makas 44 30.08.13 15:38 Сейчас в теме

Ура!

2. sip 01.10.13 16:49 Сейчас в теме

Подскажите, пожалуйста, как перенумеровать этой обработкой в 8.3 чтобы следующий создаваемый документ продолжал нумерацию. Сейчас после перенумерации последний номер 00000000008, новый документ создает с номером 0000-000001. Спасибо!

3. ilmar521 89 01.10.13 16:52 Сейчас в теме

(2) sip, поставьте в поле Префикс - "0000-" и снова перенумеруйте

4. sip 01.10.13 17:13 Сейчас в теме

Да! Спасибо! то что нужно! И за быстрый отклик спасибо!

5. hawl 05.11.13 14:54 Сейчас в теме

Спасибо большое! Очень полезная обработка! Без неё просто как без рук.

6. webresurs 228 27.01.14 10:21 Сейчас в теме

не работает по шаблону....
2014-000001

Доверенности конкретный документ выбирает зачем?

7. ilmar521 89 27.01.14 10:27 Сейчас в теме

(6) webresurs, выбирается не конкретный документ а тип документа. по виду номера, укажите префикс 2014-, тогда должно получиться.

8. webresurs 228 27.01.14 10:37 Сейчас в теме

(7) ... тип документа ....

Где его взять?

есть только Документ имя

9. ilmar521 89 27.01.14 10:41 Сейчас в теме

(8) webresurs, это и есть тип документа. выбираете тот тип документов которые надо перенумеровать.

10. webresurs 228 27.01.14 10:49 Сейчас в теме

ак в том и дело что не дает выбрать тип а перебрасывает на выбор доверенности
версия 3.0 БП

Прикрепленные файлы:

11. ilmar521 89 27.01.14 11:23 Сейчас в теме

(10) webresurs, ну даже не знаю что вам сказать. у всех нормально работало, я сейчас скачал - перепроверил, тоже все нормально, надо смотреть уже у вас в базе что не так. но это только если за деньги.

могу только разве что посоветовать еще раз скачать обработку..

12. webresurs 228 27.01.14 11:35 Сейчас в теме

Я кнопку с 3-мя точками нажимал, а надо было выбрать Строка и ввести текст в поле Документ имя - Доверенность

13. kint 20 24.03.14 15:15 Сейчас в теме

Почему-то в названии на этой странице написано:
Наименование: "Универсальная перенумерация УФ"
Файл: ".epf"

Но при скачивании, скачивается: Универсальная перенумерация.epf

14. Serg_KSV 75 08.11.16 07:57 Сейчас в теме

УНФ 1.6
{ВнешняяОбработка.УниверсальнаяПеренумерация.Форма.ФормаУправляемая.Форма(61)}: Ошибка при вызове метода контекста (Вопрос)
Ответ = Вопрос("Перенумеровать "+ Количество +" документов "+Объект.Документ
по причине:
Использование модальных окон в данном режиме запрещено!

Надо что-то поправить ).

Кроме того добавил обработчик события:

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

Код

15. Serg_KSV 75 08.11.16 08:17 Сейчас в теме

(14)
поправил модальность

Код
&НаКлиенте Процедура Перенумеровать() //Проверки Если (Не ЗначениеЗаполнено(Объект.НачПериода) и Не ЗначениеЗаполнено(Объект.КонПериода)) Тогда Предупреждение("Выберите период!"); Возврат; КонецЕсли; Если Не ЗначениеЗаполнено(Объект.Организация) Тогда Предупреждение("Выберите организацию!"); Возврат; КонецЕсли; Если ПустаяСтрока(Объект.ДокументИмя) Тогда Предупреждение("Выберите тип документа!"); Возврат; КонецЕсли; Если Объект.СтартНомер = 0 Тогда Предупреждение("Нумерация не может начинаться с нуля!"); Возврат; КонецЕсли; //Проверки Количество = ЗапросДоков(); Если Количество > 0 Тогда Оповещение = Новый ОписаниеОповещения("ПослеОтветаНаВопрос", ЭтотОбъект); // Прописываем название процедуры-обработчика. ПоказатьВопрос(Оповещение, "Перенумеровать "+ Количество +" документов "+Объект.Документ + " за период с "+ НачалоДня(Объект.НачПериода) + " по "+ КонецДня(Объект.КонПериода) , // вместо привычного "Вопрос", теперь "ПоказатьВопрос" РежимДиалогаВопрос.ДаНет, 0, // задержка (секунды). необязательно КодВозвратаДиалога.Да, // задает кнопку по умолчанию. необязательно "" // устанавливаем заголовок. необязательно ); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПослеОтветаНаВопрос(Результат, Параметры) Экспорт // здесь, думаю, комментировать нечего Если Результат = КодВозвратаДиалога.Нет Тогда Возврат; Иначе ПродолжениеПеренумерации(); КонецЕсли; КонецПроцедуры Показать

Код

&НаКлиенте
Процедура Перенумеровать()	
	
		//Проверки
	Если (Не ЗначениеЗаполнено(Объект.НачПериода) и Не ЗначениеЗаполнено(Объект.КонПериода)) Тогда
		Предупреждение("Выберите период!");
		Возврат;
	КонецЕсли; 	
	Если Не ЗначениеЗаполнено(Объект.Организация) Тогда
		Предупреждение("Выберите организацию!");
		Возврат;
	КонецЕсли; 
	Если ПустаяСтрока(Объект.ДокументИмя) Тогда
		Предупреждение("Выберите тип документа!");
		Возврат;
	КонецЕсли; 
	Если Объект.СтартНомер = 0 Тогда
		Предупреждение("Нумерация не может начинаться с нуля!");
		Возврат;
	КонецЕсли; 
	//Проверки
	
	Количество = ЗапросДоков();
	
	Если Количество > 0 Тогда
		
		Оповещение = Новый ОписаниеОповещения("ПослеОтветаНаВопрос", ЭтотОбъект); // Прописываем название процедуры-обработчика.
		ПоказатьВопрос(Оповещение, "Перенумеровать "+  Количество +" документов "+Объект.Документ
			+ " за период с "+ НачалоДня(Объект.НачПериода) + " по "+ КонецДня(Объект.КонПериода)
			,  // вместо привычного "Вопрос", теперь "ПоказатьВопрос"
			РежимДиалогаВопрос.ДаНет,
			0,  // задержка (секунды). необязательно
			КодВозвратаДиалога.Да, // задает кнопку по умолчанию. необязательно
			"" // устанавливаем заголовок. необязательно
			);
	КонецЕсли;
	
КонецПроцедуры


&НаКлиенте

Процедура ПослеОтветаНаВопрос(Результат, Параметры) Экспорт // здесь, думаю, комментировать нечего

		Если Результат = КодВозвратаДиалога.Нет	Тогда 
			Возврат;
		Иначе
			ПродолжениеПеренумерации();
		КонецЕсли;

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

Показать

16. Serg_KSV 75 08.11.16 08:48 Сейчас в теме

Ну еще и для подключения надо бы в модуль вставить следующее:

Модуль обработки
Функция СведенияОВнешнейОбработке() Экспорт ПараметрыРегистрации = Новый Структура; ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка"); ПараметрыРегистрации.Вставить("Наименование", НСтр("ru = 'Универсальная перенумерация документов'")); ПараметрыРегистрации.Вставить("Версия", "1.0"); ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина); ПараметрыРегистрации.Вставить("Информация", НСтр("ru = 'Обработка позволяет перенумеровать документы за период'")); ТаблицаКоманд = ПолучитьТаблицуКоманд(); ДобавитьКоманду(ТаблицаКоманд, НСтр("ru = 'Универсальная перенумерация документов'"), "УниверсальнаяПеренумерация", "ОткрытиеФормы", Истина, ""); ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд); Возврат ПараметрыРегистрации; КонецФункции // СведенияОВнешнейОбработке() Функция ПолучитьТаблицуКоманд() Команды = Новый ТаблицаЗначений; Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево")); Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка")); Возврат Команды; КонецФункции Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "") НоваяКоманда = ТаблицаКоманд.Добавить(); НоваяКоманда.Представление = Представление; НоваяКоманда.Идентификатор = Идентификатор; НоваяКоманда.Использование = Использование; НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение; НоваяКоманда.Модификатор = Модификатор; КонецПроцедуры Показать

Модуль обработки

Функция СведенияОВнешнейОбработке() Экспорт

    ПараметрыРегистрации = Новый Структура;
    ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
    ПараметрыРегистрации.Вставить("Наименование", НСтр("ru = 'Универсальная перенумерация документов'"));
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
    ПараметрыРегистрации.Вставить("Информация", НСтр("ru = 'Обработка позволяет перенумеровать документы за период'"));

    ТаблицаКоманд = ПолучитьТаблицуКоманд();

    ДобавитьКоманду(ТаблицаКоманд,
        НСтр("ru = 'Универсальная перенумерация документов'"),
        "УниверсальнаяПеренумерация",
        "ОткрытиеФормы",
        Истина,
        "");
  
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

    Возврат ПараметрыРегистрации;

КонецФункции // СведенияОВнешнейОбработке()

Функция ПолучитьТаблицуКоманд()
  Команды = Новый ТаблицаЗначений;
  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
  Возврат Команды;
КонецФункции

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
  НоваяКоманда = ТаблицаКоманд.Добавить();
  НоваяКоманда.Представление = Представление;
  НоваяКоманда.Идентификатор = Идентификатор;
  НоваяКоманда.Использование = Использование;
  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
  НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры

Показать

17. ilmar521 89 08.11.16 11:24 Сейчас в теме

Да, надо бы доработать)

18. ssn5810 80 27.11.17 14:25 Сейчас в теме

зачем выкладывать не провереное ????

Прикрепленные файлы:

19. Bukaska 140 27.11.17 14:31 Сейчас в теме

(18)Надо думать когда качаешь. Файл выложен в 2013 году. Сейчас уже конечно платформа далеко ушла. Мож и не будет ошибок, если запустите на платформе того времени. Это наверняка из 8.2 ещё

21. ssn5810 80 28.11.17 08:22 Сейчас в теме

(19)

Мож и не будет ошибок, если запустите на платформе того времени

нужно в ногу со временем - тогда не будет жаль потраченого времени и стартмани....

24. Bukaska 140 28.11.17 14:49 Сейчас в теме

(21)Надо смотреть, когда было последнее обновление, прежде чем качать)))

20. ilmar521 89 28.11.17 01:20 Сейчас в теме

(18) У вас все написано. Режим модальности в конфигурации выключен, в обработке используется. Вон буквально выше комментатор об этом пишет и даже написал как поправить. Я же не за деньги ее выставил - чтобы какую то поддержку обеспечивать, кому-то пригодится может - тот качает.

22. ssn5810 80 28.11.17 08:37 Сейчас в теме

"Я же не за деньги ее выставил" - за стартмани,
качество - твой имидж, чем менньше вопросов - коментов, тем лучше качество.
Не кому не хочется тратить время на тесты твоей работы.....

23. ilmar521 89 28.11.17 11:52 Сейчас в теме

(22) На ты мы вроде с Вами не переходили. Обработка выставлена 2013 году и тогда, к сведению, даже нельзя было ставить НЕ за стартмани, автоматом ставило всегда 1 СМ. Вообщем дискуссию считаю абсолютно бессмысленной. Обработка продается не за деньги, а внутреннюю валюту ресурса, другие разработчики могут взять ее и доработать под себя. Как собственно и я делаю когда мне что-то нужно, а не терроризирую человека который выложил и естественно по моим хотелкам ничего дорабатывать не будет. Продавал бы за деньги - было бы соответствующее качество, универсальность и техподдержка.

Уважайте пожалуйста чужой труд, также как и свой.