Переходна новый разработчикотчетов (Страница 1 из 4)

МЫ обычно делаем так (так как сейчас ведем отчеты в обеих системах).
Проектируем в MS Office. Когда отчет готов, создаем набор данных для Open Office, копируем в него данные из отчета для MS, Открываем бланк в Open Office Calc, вызываем команду сохранить как и сохраняем в тот же файл но меняем формат, получаем готовый отчет в Open Office Calc - но надо его просмотреть, там не все конвертится без ошибок, как минимум надо проверить имена, и с пробелами в именах проблемы бывают в Open Office (их лучше убрать если есть).

А подробнее? Видится такой способ
1. Создаем обработчик на начало отчета https://help.technologics.ru/7.1/TCSHelp/_708.htm
2. В нем создаем таблицу через вызов TCSRpt.RptFunc.ExecuteDirectSQL
3. Тем же методом вставляем данные в эту таблицу
4. Пользуемся это таблицей

для реентерабельности процесса грохаем таблицу в начала либо проверяем если есть - код пропускаем.

Если не ошибаюсь, таблицы что выгружает репортер он сам и создает заново. Те что не его не трогает.

Ну или подробней расскажите что вы пытаетесь реализовать. Я так понял тут как раз вопрос по работе с внешней БД возникает?

https://help.technologics.ru/7.1/TCSHelp/_733.htm

Шаблон отчета - Доп. настройки - Функции
Перед формированием отчета создадим соединение с внешней базой данных и набор данных через который будим выполнять запросы.

'Эта процедура выполняется один раз перед формированием отчета
Sub TCSRpt_Begin()
  'создаем соединение с БД
  Dim con 'as ADODB.Connection
  Set con = CreateObject("ADODB.Connection")
  con.Open "Provider=SQLOLEDB.1;Password=va11sy;Persist Security Info=True;User ID=sa;Initial Catalog=INDUSTRICS_ADDITIONAL;Data Source=TECHNOLOGICS"

  'создаем источник данных и связываем его с базой данных
  Dim rs 'as ADODB.Recordset
  Set rs = CreateObject("ADODB.Recordset")
  Set rs.ActiveConnection = con

  'сохраним ссылки на объекты для дальнейшего использования
  Set TCSRpt.RptFunc.UserValue("Connection") = con
  Set TCSRpt.RptFunc.UserValue("Recordset") = rs

  'добавим запрос (лучше добавить запрос на вкладке "Именованные объекты")
  'Возможно стоит присоединить таблицу "TechnoParameters_RptSheet" к главному запросу через JOIN
  call TCSRpt.RptFunc.AddRptRecordSet("TechnoParameters", "SELECT P5 FROM TechnoParameters_RptSheet WHERE P2=[p2] AND P3=[P3] AND p4 = 'TCS_OB_TS'")
End Sub

Function dengi() 'As String
  const adStateOpen = 1
  'расчет расценки в зависимости от разряда, коефф. берется из таблицы mssql и умножается на Тшт
  Dim p2, P3, P31, D
  Dim tsh, KOEF
  Dim DatConct 'As ADODB.Connection
  Dim Rs 'As IReporterRecordSet
  Dim Rs1 'As ADODB.Recordset

  'получаем значения из основного источника данный
  p2 = TCSRpt.RptFunc.MainRptRecordSet.FieldByIndex(2).AsVariant
  P3 = TCSRpt.RptFunc.MainRptRecordSet.FieldByIndex(3).AsVariant
  P31 = TCSRpt.RptFunc.MainRptRecordSet.FieldByIndex(31).AsVariant

  tsh = 0

  'открываем набор данных
  'Если присоединить таблицу "TechnoParameters_RptSheet" к главному запросу, то этот набор не понадобится
  set Rs = TCSRpt.RptFunc.OpenRptRecordSetEx("TechnoParameters", array("P2", "P3"), array(P2, P3))

  If Not Rs.IsEof Then
    tsh = Rs.FieldByIndex(0).AsSafeFloat
  End If
  KOEF = 0
  If Not IsNull(P31) Then
    ' обращение к внешней базе данных
    Set Rs1 = TCSRpt.RptFunc.UserValue("Recordset")
    'закрываем если открыт
    If (Rs1.State And adStateOpen) = adStateOpen Then Rs1.Close
    ' открываем набор данных
    Rs1.Open "SELECT TARIF_KOEF FROM CATEGORY WHERE CATEGORY_NOTE=" & P31

    If Not Rs1.EOF Then
      KOEF = Rs1.Fields(0)
    End If
  End If
  D = Round(KOEF * tsh + 0.000005, 3)
  If D = 0 Then
    dengi = ""
  Else
    dengi = CStr(D)
  End If
End Function

Спасибо, еще вопрос
1) Ш&НомерСтрокиНаЛисте умерло? Теперь только через функцию?
2) ТипКласса и Класс обязательные ALIAS в пространстве Источника данных?

Служебное слово "$НомерСтрокиНаЛисте" используется в любой ячейки области "ЗаполнениеСоставаКарты"
https://help.technologics.ru/7.1/TCSHelp/_729.htm

Зависит от вида шаблона
https://help.technologics.ru/7.1/TCSHelp/_720.htm

TCSRpt.RptFunc.GetNamedValue("<ИмяОбъекта>") 
TCSRpt.RptFunc.GetNamedValueEx("<ИмяОбъекта>",  <Имена параметров>, <ЗначенияПарамтеров>)

https://help.technologics.ru/7.1/TCSAPI … lue_13.htm
https://help.technologics.ru/7.1/TCSAPI … eEx_13.htm

Запустить отчет, найти в журнале  отчета путь к базе данных, открыть базу в Access и отлаживайте как раньше.
Отлаженный запрос записываете в именованный объект и при необходимости редактируется бланк, после чего можно выполнить отчет прямо из модуля построения отчетов на выгруженных данных.
Если на вкладке "Доп. Настройки - SQL команды" есть SQL запросы, например создание индексов (CREATE INDEX), то в журнале отчета будут ошибки с текстом: "индекс уже существует". Это происходит потому что SQL команды выполняются каждый раз перед формированием отчета а при повторном запуске база не выгружается. Если это мешает, то на время отладки можно удалить SQL команды. После того как отчет будет отлажен, необходимо выполнить его с выгрузкой данных и убедиться что нет ошибок.

Еще вопрос
переменная T = "Select.......длинныйзапрс"
затем Rs4.open T - не воспринимается
Какой синтаксис в этом случае? Может скобки или.......

В новой версии TechnologiCS у нового построителя отчетов будут функции по работе с внешними базами данных (ms access, ms sql). То есть будет возможность получать данные из внешних бд намного проще чем в приведенных примерах.
Насколько я знаю у вас сейчас только идет переход на новую версию, возможно вам имеет смысл опробовать сразу новый функционал. Если есть интерес, обратитесь к нашим специалистам.

На вкладке Доп.Настройки - Именованные объекты, необходимо создать переменную (имя не имеет значения) например "StrCat" с текстом:

s1 & s2 & s3


INPUT
s1=;
s2=;
s3=;

В бланке отчета использовать эту переменную для соединения строк, например так:

?StrCat(s1=№ ;s2=$НомерСтрокиНаЛисте;s3=A;)
Результат: № 123A
или
?StrCat(s1=N;s2=$НомерСтрокиНаЛисте;)
Результат: N123
или
?StrCat(s1=%0;s2=$НомерСтрокиНаЛисте;)
Результат: <значение из поля источника данных><номер строки>

Эту переменную можно использовать для объединения любых данных отчета.
Можно уменьшить число параметров и передавать только текст который необходимо приклеить к номеру строки, тогда текст переменной будет выглядеть так:

p & s2 & s


INPUT
p=;
s2=$НомерСтрокиНаЛисте;
s=;

где p - префикс, s - суффикс.

4)А пока ещё вопрос - игнорируются группировки. Кому файлик?
Какой файлик?

Для использования группировки необходимо:
В бланке для шаблона строки задать "$НачалоГруппы_<имя группы>", "$СменаГруппы_<имя группы>" или "$КонецГруппы_<имя группы>"
Группу необходимо указать в источнике данных а также в параметрах бланка (параметр "Группа")
https://help.technologics.ru/7.1/TCSHelp/_712.htm

Что-то со скоростью выполнения отчетов происходит непонятное.
В 4.7.1 расцех. ведомость на групп. СП из 11 строк формируется 10 сек., В 7.1 на эту же СП со старым RPT 45 сек, с новым RPT 51 сек.
В 4.7.1 расцех. ведомость на групп. СП из 45 строк формируется 23 сек., В 7.1 на эту же СП со старым RPT 1 мин 25 сек, с новым RPT 5 мин 30 сек.
Ещё вот что попробовала - сначала из заполнения состава карты удалила вызов всех функций - на новом RPT скорость не изменилась, потом удалила еще и вызов всех запросов из штампа бланка - скорость не изменилась - значит дело не в функциях, запросах, переменных, а в чем....?
Excel 2015. Удаленный доступ на скорость не влияет - тоже попробовала.
Что может быть не так?

В области ЗаполнениеСоставаКарты есть строки которые  не используются. Их желательно исключить из области или объединить по горизонтали, чтобы не замедляли формирование отчета.

Для склеивания строк использовать '&' (s = s & <число> & <строка> & <переменная>)
Если использовать '+' то результат может быть не тем что ожидается, например:

  Dim a, b, с
  a = "1"
  b = 2
  c = a + b ' c = 3 а не "12"

И еще, [null + <значение> = <ошибка>], а [null & <значение> = <значение>]