Вывод номера без Префикса и нулей

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. makas 44 25.11.12 19:58 Сейчас в теме

Помогите бухгалтеру создать таб.часть документа в БП 2.0 на основе Поступления ТоваровУслуг!

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

Область.Параметры.Номер1 = СсылкаНаОбъект.НомерВходящегоДокумента;

В результате, в печатной форме наледной( в таб.части) выводится номер документа ввиде "АБ-000000123"

ВОПРОС как сделать/отформатировать номер документа на основе кода(см.выше) чтобы получить номер без Префикса и нулей, ввиде "123"

Спасибо за ответы!

По теме из базы знаний

Ответы

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

Свернуть все

3. MrUnnamed 15 25.11.12 21:38 Сейчас в теме

(1) makas,

используйте процедуру общего модуля типовых решений:
ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка, МассивПерфиксовОрганизации);

Ответить

5. makas 44 25.11.12 22:17 Сейчас в теме

(3) MrUnnamed, это не подойдет(или я что-то не понимаю как применить своими бухгалтерскими мозгами :), я вывожу данные накладной в таличной части. Мне подошел код во 2-сообщении.

7. MrUnnamed 15 25.11.12 22:19 Сейчас в теме

(5) makas,

МассивПерфиксовОрганизации = Новый Массив;
МассивПерфиксовОрганизации.Добавить(СсылкаНаОбъект.Организация.Префикс);

Область.Параметры.Номер1 = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект, МассивПерфиксовОрганизации);

2. maip1 25.11.12 21:34 Сейчас в теме

Область.Параметры.Номер1 = Число(СтрЗаменить(СсылкаНаОбъект.НомерВходящегоДокумента, СсылкаНаОбъект.Организация.Префикс, ""));

4. makas 44 25.11.12 22:14 Сейчас в теме

(2) maip1, Ура получилось как надо!

6. MrUnnamed 15 25.11.12 22:17 Сейчас в теме

(4) makas,

попробуйте в номере документа добавить букву, пример: "АБ-00000123А" и получите ошибку

8. makas 44 25.11.12 22:44 Сейчас в теме

(6) MrUnnamed,

попробуйте в номере документа добавить букву, пример: "АБ-00000123А" и получите ошибку

...тогда мне надо в табличной части накладной вывести "123А"

----
Способ в (7)сообщении попробую завтра. Спасибо!

9. amaksimov 24.09.19 10:41 Сейчас в теме

ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(..)

Ответить

10. v3rter 02.12.21 15:27 Сейчас в теме

Ради интереса сделал в стиле SQL-запросов Гилёва)

СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(
СтрЗаменить(СсылкаНаОбъект.НомерВходящегоДокумента, 
СсылкаНаОбъект.Организация.Префикс+"0000000000", ""), 
СсылкаНаОбъект.Организация.Префикс+"000000000", ""), 
СсылкаНаОбъект.Организация.Префикс+"00000000", ""), 
СсылкаНаОбъект.Организация.Префикс+"00000000", ""), 
СсылкаНаОбъект.Организация.Префикс+"000000", ""), 
СсылкаНаОбъект.Организация.Префикс+"00000", ""), 
СсылкаНаОбъект.Организация.Префикс+"0000", ""), 
СсылкаНаОбъект.Организация.Префикс+"000", ""), 
СсылкаНаОбъект.Организация.Префикс+"00", ""), 
СсылкаНаОбъект.Организация.Префикс+"0", ""), 
СсылкаНаОбъект.Организация.Префикс   , "")

Показать

11. vampo 14.10.24 16:35 Сейчас в теме

Если кто из гугл-поиска сюда попадает. Есть функция в типовых БСП

УправлениеКонтактнойИнформациейКлиентСервер.ОставитьТолькоЦифрыВСтроке("ФР-00000545ВВ")

12. Oldsad 22.10.24 03:25 Сейчас в теме

ПрефиксацияОбъектовКлиентСервер.НомерНаПечать( Выборка.Номер, Истина, Истина)

13. user1206119 103 27.12.24 15:25 Сейчас в теме

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

Оставьте свое сообщение

E-mail: