• На форуме с 9 ноября 2010
  • Сообщений: 2

Тема: Нерепос строк в бланке "Вертикальной спецификации по гост 2.106-96"

Уважаемые коллеги! необходима помощь в вариантах реализации правильного переноса строки в спецификации (требование нормоконтроля). 

Пример:

есть изделие "Винт М16-6gх50.56.016 ГОСТ 11738-84"

В данный момент переносится (построчно см. вложение поз.10, 11):

Винт
М16-6gх50.56.016 ГОСТ 11738-8
4

Как должно быть! (требование нормоконтроля):

Винт М16-6gх50.56.016
ГОСТ 11738-84

или

Винт
М16-6gх50.56.016
ГОСТ 11738-84

За оказанную помощь, заранее благодарен!

  • Откуда: Новосибирск
  • На форуме с 17 декабря 2008
  • Сообщений: 17

Re: Нерепос строк в бланке "Вертикальной спецификации по гост 2.106-96"

Уточните:
- С чем связано возникновение такой ситуации;
- Как работали раньше;
- Полное название вашего бланка в базе.

  • На форуме с 3 декабря 2008
  • Сообщений: 137

Re: Нерепос строк в бланке "Вертикальной спецификации по гост 2.106-96"

Делали так:
В бланке заводим именованную область "СимволыПереноса", в этой области указываем в качестве символа переноса обычный пробел.
В бланке в поле шаблона строки, где отображается наименование, вместо номера колонки источника данных (в нижеприведенном примере это 6 колонка) пишем вызов функции, которая заменяет в сочетании символов обычный пробел, на пробел с другим кодом (сочетание клавиш Ctrl+Shift+Пробел). Визуально никакой разницы, но репортер теперь переносит наименование достаточно корректно.
Функция примерно такая:

Public Function GetNameDSE(IsD, dopIsD, Ms)
Dim Name

Name = IsD.Fields(6)
GetNameDSE = Replace(Name, "ГОСТ ", "ГОСТ ")
GetNameDSE = Replace(GetNameDSE, "ОСТ ", " ОСТ ")
GetNameDSE = Replace(GetNameDSE, "ОСТ1 ", " ОСТ1 ")
GetNameDSE = Replace(GetNameDSE, "ОСТ 1 ", " ОСТ 1 ")
End Function