Как вставить в отчет имя текущего пользователя (Страница 1 из 2)

Понятно, только тогда лицензия API шная будет забираться... что не совсем гуд...
А нельзя в будующих версиях например в наборе данных где нибудь в спраочниках сделать че-нидь типа таблицы текущих параметров подключения???

А нельзя листинг функции выложить и где её прописать?

Создали модуль в базе "Module1", скопировали туда Ваш листинг.
В отчете выпонили все Ваши указания: создали области "Выполнить" и "ФИО", в которые вставили соответственно "CALL Connect_TCS_API" и "CALL FIO".
И ничего не происходит...

Похоже, что функции не запускаются вообще.
Для проверки добавляли MsgBox. Он так и не появился ни перед формированием отчета, ни во время.

А у нас вообще никаки сообщения не выпадает, вообще ничего не происходит как-будто и нет модуля.

у нас все в точности также

Кстати, модуль надо создавать в базе MS Access, которую вы открыли средствами TCS т.е:
1.Шаблоны отчетов;
2.Выбрать набор данных;
3.Нажимаем <Редактировать> или (Ctrl+Enter);
4.Переходим на закладку MS Access;
5.Жмем кнопку <Редактировать>.
В результате запустится Access и откроет базу шаблона, вот здесь и надо создавать модуль.
Далее просто закрываем энтот Access с базой, и НЕ ЗАБЫВАЕМ НАЖАТЬ КНОПКУ <ЗАПИСАТЬ>!!! :)

Именно

Так и сделано

Модуль есть.
Но ничего не происходит...

PS.

включено

По тупому был скопирован листинг Вашей функции в модуль "Module1" аксесовской базы и после объявления внутренней переменной вставлен MSGBox:

[code]
Option Compare Database

Public TCSObj As CSDN.TCS
Public TCSApp As CSDN.Tcs_Application
Public Connect_API

Public Sub Connect_TCS_API()
Dim Mes
''' здесь
MsgBox "Фигня", , "Фамилия из Аксеса"

Set TCSObj = CreateObject("CSDN.TCS")
If Not (TCSObj Is Nothing) Then
Set TCSApp = TCSObj.LoginCurrent
If Not (TCSApp Is Nothing) Then
'Mes = MsgBox("Библиотека API TechnologiCS ЗАрегистрирована!", vbSystemModal + vbCritical, "Ошибка")
'MsgBox (TCSApp.LoginInfo.User)
Connect_API = True
Else
Mes = MsgBox("Библиотека API TechnologiCS не зарегистрирована!", vbSystemModal + vbCritical, "Ошибка")
Connect_API = False
End If
Else
Mes = MsgBox("Библиотека API TechnologiCS не зарегистрирована!", vbSystemModal + vbCritical, "Ошибка")
Connect_API = False
End If

End Sub

Public Function FIO(ID, DID, Mas) As String

FIO = TCSApp.LoginInfo.User
MsgBox FIO, , "Фамилия"

End Function
[/code]

Ни один из мсжбоксов не проявился...

На листе бланка ("Ведомость") есть именованная область "Ведомость!Выполнить", в которой стоит "CALL Connect_TCS_API" (формат текстовый) и есть именованная область "Ведомость!ФИО" в которой стоит "CALL FIO" (формат текстовый). Правда последняя из этих двух областей находится внутри области "Ведомость!Карта1".[/code]

В данном случае отчет "перечень учетных документов". Запускаться должен из режима "Учетные документы"
Прошу сильно не бить - это черновик

похоже что есть какое-то админское ограничение на моем компе.:cry: 
У нас в конторе часть людей работает на локальных клиентах, а часть через терминальный доступ.
Так вот, при терминальном доступе данный отчет выдает следующую ошибку:
"TechnologiCS APi Common]
Ошибка при работе с конфигуратором. Не могу продолжать работу.
Access violation at address 1229CB08. Read of address 1229CB08"
После чего отчет продолжает формироваться, но потом выскакивает ошибка VBA Run-time error: Metod 'LoginCurrent' f object 'ITCS' failed

Может Вам что-то подскажет эта информация и Вы скажите, какие права необходимо изменить (добавить).

PS. Локально стоит Офис ХР, а на терминальной машине Офис 2003. Версия TechnologiCS 4.6.3

А попробуйте вот что:
1. Запустите TechnologiCS через терминальный режим
2. Запустите Excel через терминальный режим
3. Выполните процедуру коннекта к TechnologiCS'y из VBA Excel'я
4. Выполните простейший ShowModal какого-нибудь справочника
Осуществится ли коннект?