Страница 1 из 1

Проблема с выходной формой ТСН доп.67

СообщениеДобавлено: Чт Фев 23, 2023 10:46
azrael773
Добрый день
После установки патча 11.6.2.0 у меня сбились выходные формы документов по сметам ТСН, а именно:
1. В шапке документа стало появляться наименование объекта, которое указано в менеджере, плюсом к наименованию стройки, которое указано в настройках объекта. Приходится в ручную удалять, так как полнейшая ерунда получается (В старом шаблоне нашел в VBA команду "Стройка или объект", в новом такой нет).
2.Не выводится номер Локальной сметы, Наименование Локальной сметы и Основание:чертежи, хотя в настройках Локальной сметы в программе все настроено

Пытался самостоятельно покопаться в VBA, но не мое это :(

Буду очень благодарен за помощь с исправлением шаблона.

Спасибо

Re: Проблема с выходной формой ТСН доп.67

СообщениеДобавлено: Сб Фев 25, 2023 23:04
InarP
Добрый вечер.
Предоставьте, пожалуйста, объект в формате sobx и желаемый результат в формате Excel.

Re: Проблема с выходной формой ТСН доп.67

СообщениеДобавлено: Пн Фев 27, 2023 10:16
Timur
azrael773 писал(а): В шапке документа стало появляться наименование объекта

Наименование стройки и объекта начали появляться с 43 дополнения.

azrael773 писал(а):Не выводится номер Локальной сметы

Установите параметр "Печатать шапку на каждую локальную смету"

Re: Проблема с выходной формой ТСН доп.67

СообщениеДобавлено: Пн Фев 27, 2023 10:45
azrael773
Всем спасибо за ответы.
Про "Печатать шапку на каждую локальную смету" я догадался в тот же день)))
Наименование объекта у меня стало позже появляться, в районе 59-60 дополнений, тогда я просто менял шаблон на старый, сейчас такое не прошло
Попытался через VBA перенести из старого шаблона старый алгоритм, удалив текущий, но стало еще интереснее, теперь в шапке "Стройка-Объект и еще раз Стройка"
Старый алгоритм:
'CQ[15416]
'Стройка или объект
'==> [CQ 11135]
If Src.Cells(4, 7).Value <> "" Then
Application.Run ("SmetaUtils.xls!PrintStroyka"), y + 1, 1
Else
If (DocType = 3) Then .Cells(y + 1, 1).Formula = "=IF(Source!G12" & "<>""Новый объект"", Source!G12" & ", """")" '[CQ 11482]
End If
WrapLongName xWrapStruct, y + 1
'CQ[15416]
К сожалению мои знания VBA ограничены и устранить это не вышло.
Пошел другим путем. У меня всегда был Макрос, который удаляет Source и настраивает необходимую мне высоту строк в шапке и ширину столбцов, вот в него добавил команду, чтобы он перед удалением Source взял наименование стройки из ячейки Source!G4
Пока так. Может позже освою VBA :)

Re: Проблема с выходной формой ТСН доп.67

СообщениеДобавлено: Чт Мар 09, 2023 18:42
shadows
Добрый вечер.

Проблема вывода формы Ресурсной ведомости во всех шаблонах ТСН-2001 МГЭ

Она просто выводится пустая

Проверено на нескольких компьютерах в SmetaRU Flash, версия 11.6.2.0