Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 11:50

Установить префиксы номеров документов.

Автор 556008, 13 фев 2012, 11:44

0 Пользователей и 1 гость просматривают эту тему.

AntonB

я это делал в УТ10 в
ПриУстановкеНовогоНомераДокументаПриУстановкеНовогоНомера
Посмотрите, может в БП она тоже есть...
Предлагаю полный ИТ сервис небольшой организации в Москве (приходящий сисадмин+1С7.7,1С8.x)

556008

Попробовал таким образом:
Создал подписку на событие ПриУстановкеНовогоНомераАктыИСчета с обработчиком ОбщегоНазначения.ПриУстановкеНовогоНомераАктыИСчетаПередЗаписью.
Теперь ошибка при записи счетов-фактур и актов - Несоответствие типа возвращаемого параметра.


Процедура ДобавитьПрефиксОрганизацииИДату(ДокументОбъект, Префикс) Экспорт

// Если нет реквизита "Организация" или для нее не задан префикс, то
// используем пустой префикс,
// иначе используем префикс организации.

МетаданныеДокумента = ДокументОбъект.Метаданные();

Если Не ЕстьРеквизитДокумента("Организация", МетаданныеДокумента)
ИЛИ НЕ ЗначениеЗаполнено(ДокументОбъект.Организация.Префикс) Тогда
Префикс = Формат(ДокументОбъект.Дата,"ДФ=""ггггММ""")
Иначе

Префикс = ДокументОбъект.Организация.Префикс + Формат(ДокументОбъект.Дата,"ДФ=""ггггММ""");

КонецЕсли;
КонецПроцедуры // УстановитьНомерДокумента()

Процедура ПриУстановкеНовогоНомераАктыИСчетаПередЗаписью(Источник, СтандартнаяОбработка, Префикс) Экспорт

ОбщегоНазначения.ДобавитьПрефиксОрганизацииИДату(Источник, Префикс);

ОбщегоНазначения.ДобавитьПрефиксУзла(Префикс);

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

steptostep

ПриУстановкеНовогоНомераАктыИСчетаПередЗаписью - вы добавили подписку на событие "ПередЗаписью"? Надо на событие "ПриУстановкеНовогоНомера"

556008

Цитата: steptostep от 15 фев 2012, 09:38
ПриУстановкеНовогоНомераАктыИСчетаПередЗаписью - вы добавили подписку на событие "ПередЗаписью"? Надо на событие "ПриУстановкеНовогоНомера"
Уже исправил, спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск