// Группа 
aVars[3,1] := UserVar("Grup",aPars[2])
// GetMat(aPars[2],84,5)
// Цена в валюте
aVars[3,2] := GetMat(aPars[2],154,15,"Val")
// Кол-во
aVars[3,3] := GetMat(aPars[2],37,13,"Val")
// Поиск
aVars[2,3] := ASCAN(aVars[2,1],aVars[3,1]) 
IF(aVars[2,3] = 0,AADD(aVars[2,1],{aVars[3,1],0}),NIL)
IF(aVars[2,3] = 0,aVars[2,3] := LEN(aVars[2,1]),NIL) 
// Накопление валютной стоимости по группе 
aVars[2,1,aVars[2,3],2] := aVars[2,1,aVars[2,3],2] + aVars[3,2]*aVars[3,3]
