Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Подписи к отчетам

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
Elesey
Гость





СообщениеДобавлено: Чт Май 24, 2012 12:43 pm    Заголовок сообщения: Подписи к отчетам Ответить с цитатой

Добрый день всем! Поскажите, Каким образом можно программно добавлять подписи в отчетах из Сервис - Настройка - Подписи к отчетам ?
Вернуться к началу
Виктор



Зарегистрирован: 10.03.2005
Сообщения: 210
Откуда: Горловка (Щирий кум)

СообщениеДобавлено: Пт Май 25, 2012 8:45 am    Заголовок сообщения: Re: Подписи к отчетам Ответить с цитатой

Elesey писал(а):
Добрый день всем! Поскажите, Каким образом можно программно добавлять подписи в отчетах из Сервис - Настройка - Подписи к отчетам ?


Может Вам поможет это:

Sub Workarea_OnReportStart(Kind, KindID, RepKind, RepID, ByRef Lock)
...
If RepKind=100 Then
Lock = True
Set RW = Workarea.CreateReport("RepWizard")
With RW
.load(RepID)
.Kind = Kind
.KindId = KindID
.Build
Set SB = .makeSheet(True)
End With
...
Set Sh = sb.ActiveSheet

If Sh.Columns>2 Then
Sh.Range(Sh.Columns-2, 1, Sh.Columns, 1).MergeCells = True
sh.Cell(1,sh.Columns-2).value="ПPAT ""Горлівський м`ясокомбінат"""
End If

sh.AutoFit 2

.....
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Пт Май 25, 2012 8:47 am    Заголовок сообщения: Re: Подписи к отчетам Ответить с цитатой

Elesey писал(а):
Добрый день всем! Поскажите, Каким образом можно программно добавлять подписи в отчетах из Сервис - Настройка - Подписи к отчетам ?


Через реестр:
Код:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Impact\Акцент 7.4\Бухгалтерия (SQL)\Options]
"Generic"=dword:00a1a588
"CustomColor"=hex:ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,\
  ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,\
  ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00,ff,ff,ff,00
"TextColor"=dword:00ff0000
"FillColor"=dword:00fae6e6
"BorderColor"=dword:00000000
"FormatSum"=dword:00000065
"FormatQty"=dword:00000065
"FormatPrice"=dword:00000065
"SignReport"="asdasdasdasdasdasdasdas"

Собс-но последняя строка - подпись к отчету.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Пт Май 25, 2012 8:50 am    Заголовок сообщения: Ответить с цитатой

Да, забыл сказать - в вин7 другие пути реестра, да и для 7.0 надо будет соответственно подправить.
Естественно, что подпись меняется для всех баз и всех отчетов на данном конкретном компьютере (что, как по мне - не логично).
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Elesey
Гость





СообщениеДобавлено: Пт Май 25, 2012 9:32 am    Заголовок сообщения: Ответить с цитатой

kris писал(а):
Естественно, что подпись меняется для всех баз и всех отчетов на данном конкретном компьютере (что, как по мне - не логично).


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

Может есть какая-нибудь встроенная функция???
Вернуться к началу
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Пт Май 25, 2012 9:37 am    Заголовок сообщения: Ответить с цитатой

Elesey писал(а):
Может есть какая-нибудь встроенная функция???

Насколько мне известно - нет. Можно попытаться разрулить методом, который указал Виктор, навесив на него параметры пользователя, которые будут обрабатываться при построении отчета.
Вот пример автоматического запуска отчета для отдельно взятого юзера:
Код:
   ' Запустим отчеты из автозагрузки
   UserName = Workarea.DBUser
   If CheckNull(Workarea.UserParam(UserName&"|Rep1Build"),0) > 0 Then _
      Application.CreateBook "С.Ж.Корпоративные договора.Праздники.ash", False, "BuildInvisible"

Один недостаток - параметры юзеров не доступны в интерфейсе, я писал для них спец. диалог. Вот кусок:
Код:
   Workarea.UserParam(UserName&"|Rep1Build") = IIF(cbRep1.Checked, 1, 0)

Ну и... Собственно описанный метод работает для юзера, а не для машины. Вы можете переделать под наименование машины или вообще сделать для группы пользователей, если надо.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Elesey
Гость





СообщениеДобавлено: Пт Май 25, 2012 9:46 am    Заголовок сообщения: Ответить с цитатой

Благодарю за помощь!!!
Вернуться к началу
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group