1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
args:
adw_1 ref u_dw - отчет
ast_rep структура с параметрами отчета
script:
Long ll_Rep,ll_Count,ll_Num ,ll_ShmCnt
String ls_reports[],ls_sql,ls_ErrText
Boolean lb_ok=True
n_cst_string lnv_str
DataWindowChild ldwc_report
adw_1.of_SetBase(True)
ll_ShmCnt=UpperBound(ast_rep.ls_src[])
ll_Count=adw_1.inv_base.of_GetObjects(ls_reports,"report","*",True)
For ll_rep= 1 To ll_Count
lb_ok=adw_1.GetChild(ls_reports[ll_rep],ldwc_report)> 0
If lb_ok Then
Else
ls_ErrText='Ошибка GetChild на Report='+ls_reports[ll_rep]
exit;
End If
ls_sql=ldwc_report.GetSQLSelect()
For ll_Num = 1 To ll_ShmCnt
ls_Sql = lnv_str.of_GlobalReplace( ls_Sql, ast_rep.ls_src[ll_Num], ast_rep.ls_dst[ll_Num])
Next
lb_ok=ldwc_report.Modify('DataWindow.Table.Select="'+ls_sql+'"')=''
If lb_ok Then
else
ls_ErrText='Ошибка при смене представления на Report='+ls_reports[ll_rep]
exit;
End If
Next
If lb_ok Then
return True
Else
If len(ls_ErrText)= 0 Then
ls_ErrText='Сообщение об ошибке не определено!'
End If
MessageBox('Внимание!',ls_ErrText,StopSign!)
Return False
End If
Суть в простейшем приближении такова
Отчет должен строиться на разных представлениях в зависмости от прав пользователя. Подменяются представления на котором построен отчет.
Например: есть представления CLIENT_GNRL_ALL_SHOW (CLIENT_ADR_ALL_SHOW итд) для отображения данных пользователям Головного Офиса, и CLIENT_GNRL_PDR_SHOW (CLIENT_ADR_PDR_SHOW итд) для отображения данных доступных структурному подразделению. Должна меняться часть представления с "_ALL_SHOW" на "_PDR_SHOW"
Отчет состоит из пяти вложенных DW и одного композита.
В результате скрипта ошибка не выдается, но при retrieve - 5 раз "table or view does not exists". Тобишь читает из представлений на которых нет доступа.
Это подтверждается если в событии DbError в DWControle проставить
MessageBox('SQL!',sqlsyntax)
У меня есть смутное подозрение что Sybase не предусмотрел такую возможность
