Block( Func('CalculatePowerKwt', Global, Internal, Param('G32', Integer), Block( Var('fResult', Float, Local), Var('iFindResult', Integer, Local), Const('sINIResult', String, Local ,DCL.GetRegString('HKCU', AppRegKey('MAIN\ПЕЧАТЬ'), 'Итоговая мощность в графе 31', '0')), If(sINIResult = '1', If(DCL.GetRecordCount(AVTO) > 0, Block( Let(@iFindResult, DCL.FindFirst(AVTO,'G32=' + G32)), While(iFindResult, Block( If(UCase(DCL.GetFieldVal(AVTO, 'EDIZM')) = 'КВТ', Let(@fResult, fResult + DCL.GetFieldVal(AVTO, 'PRIM')), If(UCase(DCL.GetFieldVal(AVTO, 'EDIZM2')) = 'КВТ', Let(@fResult, fResult + DCL.GetFieldVal(AVTO, 'PRIM2')) ) ), Let(@iFindResult, DCL.FindNext(AVTO,'G32=' + G32)) ) ) ) ) ) ), fResult ) )