Block( {Итоги} smpINV.SDP('Footer'), {ClearPage(smpINV),} Let(@BufMemo, ""), If(DCL.GetFieldVal(PRIM, 'AddExpences') <> 0, Block( AddToMemo(@BufMemo, ConvertToMemo(Format(If(IsRus, 'Всего', 'SubTotal') + ' %.' + DecCount + 'f ' + ValAbbr, BufSum ) ) + " " ), Let(@BufInt, DCL.FindFirst(EXP, 'NPP='+Page)), While(BufInt, Block( AddToMemo(@BufMemo, DCL.GetSysInfo('ExpensesInfo', 'Id', DCL.GetFieldVal(EXP,'ExpId'), If(IsRus, 'Dsc', 'DscEng'), '') + Zero(' %.'+DecCount+'f '+ DCL.RefCurrency(DCL.GetFieldVal(EXP,'CurrCode'), 'BUK', 1), DCL.GetFieldVal(EXP,'Summa') ) ), Let(@BufInt, DCL.FindNext(EXP, 'NPP='+Page)) ) ) ) ), Let(@BufMemo,BufMemo + " "), Let(@BufString,Format(If(IsRus, 'Итого', 'Total') + ' %.' + DecCount + 'f ' + ValAbbr, DCL.GetFieldVal(PRIM, 'Total') ) ), AddToMemo(@BufMemo,BufString), smpINV.SFP('Итоги', 'Caption', BufMemo), FillPage(smpINV, PRIM), smpINV.Update(), smpINV.Recalc(), smpINV.SFP('Итого прописью', 'Top', smpINV.GFP('Итоги', 'Top') + smpINV.GFP('Итоги', 'Height') + smpINV.GFP('Итого прописью', 'GroupBottom')), smpINV.Update(), INV.Roll(D.Instance(smpINV) + '.Footer') )