t:obj.find ($orgrole:co_paypoint, [l_cntrct = Oid_Contract], Contract, [])
	& Constraint = [l_paypoint = Contract]

	& SumLs = compute list (Status = [SumAmount]) where
				(
				  get_diffrent_paramet (Class, Status)
				& SumAmount = compute sum (Amount) where
							(
							  m:obj.find ($finactvy:cp_smmry_prm, [Constraint | status_1 = Status], SummaryPrem, [])
							& Amount = get:SummaryPrem.amnt
							)
				)
;

get_diffrent_paramet ($accntng:cp_acc_ps_prem_paid, paid) ;
get_diffrent_paramet ($accntng:cp_acc_ps_prem_issd, pndng) ;