|
|
#21 |
|
Участник
|
3. Итоги по группам. VB Script и PDF
- заводим футер группы - он всегда скрыт и для понимания назначения имеет красный цвет шрифта - получаем итоги по группе Код: =Sum(CDec(Fields!lReportValues4.Value), "table1_Group1") - переименовываем техтбоксы на скрытом футере из 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.Amount Код: =Code.SetValue(ReportItems!AmountGroup.Value,ReportItems!VatGroup.Value,ReportItems!AmountWithVatGroup.Value) Send email with PDF attachment in NAV 2009 Всем удачи и хорошего дня!
__________________
--------------------------------------------------------------------------------------------- "Собрать стадо из баранов легко, трудно собрать стадо из кошек" Профессор Сергей Капица |
|
|