Найти в Дзене
Про 1С

Как убрать префикс из номера документа при выводе на печать. 1С Комплексная автоматизация 2.5

Как убрать префикс из номера документа при выводе на печать. До тех пор пока префиксы были установлены только для организаций, типовой механизм замечательно убирал префиксы при выводе номера на печать. Но как только мы решили настроить обмен данными между КА 2.5 и ЗУП 3.1 где также требуется устанавливать свой префикс, кусок префикса стал попадать во все печатные документов Пример: Был у организации префикс ВТ Документам присваивался номер, вот такого вида ВТ00-004676 и в печатную форму номер выводился без префикса № 4676 Добавили в настройках обмена префикс КА начал номер документам присваиваться ВТКА-004711 и в печатную форму номер стал выводиться с префиксом информационной базы №КА-4711 Многим пользователям не понравился данный вариант номера. Решение этой задачи следующее Через расширение из общего модуля ПрефиксацияОбъектовКлиентСервер в ваше расширение необходимо поместить функцию НомерНаПечать И в расширении немного поправить формирование номера Текст функции в расширении

Как убрать префикс из номера документа при выводе на печать.

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

Но как только мы решили настроить обмен данными между КА 2.5 и ЗУП 3.1 где также требуется устанавливать свой префикс, кусок префикса стал попадать во все печатные документов

Пример:

Был у организации префикс ВТ

Документам присваивался номер, вот такого вида ВТ00-004676

и в печатную форму номер выводился без префикса № 4676

Добавили в настройках обмена префикс КА

начал номер документам присваиваться ВТКА-004711

и в печатную форму номер стал выводиться с префиксом информационной базы №КА-4711

Многим пользователям не понравился данный вариант номера.

Решение этой задачи следующее

Через расширение из общего модуля ПрефиксацияОбъектовКлиентСервер

в ваше расширение необходимо поместить функцию НомерНаПечать

И в расширении немного поправить формирование номера

-2

Текст функции в расширении

// {Обработчик: ПриПолученииНомераНаПечать} Начало
СтандартнаяОбработка = Истина;

ПрефиксацияОбъектовКлиентСерверПереопределяемый.ПриПолученииНомераНаПечать(НомерОбъекта, СтандартнаяОбработка,
УдалитьПрефиксИнформационнойБазы, УдалитьПользовательскийПрефикс);

Если СтандартнаяОбработка = Ложь Тогда
Возврат НомерОбъекта;
КонецЕсли;
// {Обработчик: ПриПолученииНомераНаПечать} Окончание

// Удаляем пользовательские префиксы из номера объекта.
Если УдалитьПользовательскийПрефикс Тогда

НомерОбъекта = УдалитьПользовательскиеПрефиксыИзНомераОбъекта(НомерОбъекта);

КонецЕсли;

// Удаляем лидирующие нули из номера объекта.
НомерОбъекта = УдалитьЛидирующиеНулиИзНомераОбъекта(НомерОбъекта);

// Удаляем префикс организации и префикс информационной базы из номера объекта.
НомерОбъекта = УдалитьПрефиксыИзНомераОбъекта(НомерОбъекта, Истина, УдалитьПрефиксИнформационнойБазы);

//Возврат НомерОбъекта;

// удаляем оставшиеся префиксы
ПозицияМинус = Найти(НомерОбъекта, "-");
Если ПозицияМинус > 0 Тогда

НомерОбъекта = Сред(НомерОбъекта, ПозицияМинус+1);

КонецЕсли;

Возврат НомерОбъекта;

т.к. в КА номер который выводится в УПД, в печатную форму, сохраняется в документе "Счет-фактура выданный", то необходимо также придется повлиять на присвоение номеру который сохраняется для печати в самой счет-фактуре

это можно сделать через расширение.

А именно добавить из общего модуля "УчетНДСПереопределяемый", функцию НомерСчетаФактурыНаПечать

-3

После добавления этой функции в расширение, её необходимо немного подправить

-4

Текст функции в расширении

НомерНаПечать = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Номер, Ложь, УдалитьПользовательскийПрефикс);

Если ОбособленноеПодразделение И ЗначениеЗаполнено(ЦифровойИндексОбособленногоПодразделения) Тогда
НомерНаПечать = НомерНаПечать + "/" + ЦифровойИндексОбособленногоПодразделения;
КонецЕсли;


// удаляем оставшиеся префиксы
ПозицияМинус = Найти(НомерНаПечать, "-");
Если ПозицияМинус > 0 Тогда

НомерНаПечать = Сред(НомерНаПечать, ПозицияМинус+1);

КонецЕсли;


Возврат НомерНаПечать;

После данного тюнинга

Из печатных форм убрал все возможные префиксы номера, которые присваиваются до дефиса ВТКА-004711

-5
-6
-7

Ситуация вывода номеров в печатных формах решена