3. Итоги по группам. VB Script и PDF
- заводим футер группы - он всегда скрыт и для понимания назначения имеет красный цвет шрифта
- получаем итоги по группе
Код:
=Sum(CDec(Fields!lReportValues4.Value), "table1_Group1")
(приходится использовать функцию преобразования типа String to Decimal, т.к. массив в классическом клиенте техт30)
- переименовываем техтбоксы на скрытом футере из text123.. в Amount,VatAmount,AmountWithVat
- в свойствах отчета на закладке код обявляем 3 переменные и функцию на VBScript
Код:
Public Dim Amount as Decimal
Public Dim AmountVat as Decimal
Public Dim AmountWithVat as Decimal
Public Function SetValue (ByVal Value1 as Decimal,ByVal Value2 as Decimal,ByVal Value3 as Decimal) as Decimal
Amount =Amount+Value1
AmountVat =AmountVat+Value2
AmountWithVat =AmountWithVat+Value3
Return Nothing
End Function
- на группхедере и группфутере для переноса сумм в полях пишем
, а на скрытом хедере даем приращения для переноса на следующую страницу
Код:
=Code.SetValue(ReportItems!AmountGroup.Value,ReportItems!VatGroup.Value,ReportItems!AmountWithVatGroup.Value)
На этом все, а что касается PDF, то есть один ньюанс если в отчете есть хоть одно упоминание выражения
"IF CurrReport.Preview THEN" то стандартный тулбар ReportViewer становится недоступныи и мы не может отправить отчет в PDF, для решения этой проблемы здесь ссылка
Send email with PDF attachment in NAV 2009
Всем удачи и хорошего дня!