sunlight-b of Sunlight BA Team
4/26/2018 - 4:33 PM

Provided coverage selection rule based on the loss evaluation line's dynamic data value

We search in all our loss description an evaluation line with the dynamic data PrejudiceNivequatre. If the value of this dynamic data is 1, then we subscribe the provided coverage

vb
content_copyfile_download
Dim objClaim As clsClaim
Dim objLossDescription  as ClsLossDescription

'by default we do not subscribe the provided coverage
Result(0)=4 'tSubscriptionType cSUBSCRIPTION_DO_NOT_SUBSCRIBE

objClaim = GetObjectToBeUsedForThisClass(GetType(clsClaim).Name, ListOfObjectsToBeUsedInFormula)
if objClaim Isnot nothing then
	Trace("objClaim found " & objClaim.AsString(""), 7)
	
	for each objLossDescription in objClaim.ListOfLossDescriptions
		Trace("objLoss Desc " & objLossDescription.asString(""),7)
		if objLossDescription.MyLossEvaluation isnot nothing then
			Trace("MyLossEvaluation " & objLossDescription.MyLossEvaluation.AsString(""), 7)
			
			dim objLossEvaluationLine as clsLossEvaluationLine
			for each objLossEvaluationLine in objLossDescription.MyLossEvaluation.ListOfEvaluationLines
				dim objPrejudiceNiveau4=clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objLossEvaluationLine ,"PrejudiceNivequatre",Nothing,True)				
				Trace("objPrejudiceNiveau4 " & objPrejudiceNiveau4, 7)
				if objPrejudiceNiveau4=1 '1	D?penses de sant? actuelles (D.S.A.)	D?penses de sant? actuelles (D.S.A.)
					result(0)=3    'cSUBSCRIPTION_TYPE_NOT_SUBSCRIBED_BY_DEFAULT
					exit for
				end if
			next
		else
			Trace("MyLossEvaluation NOT found", 7)
		end if
		if result(0)=3
			exit for
		end if
	next
else
	Trace("objClaim  not found " , 7)
end if