vbscript 提供基于损失评估线的动态数据值的覆盖选择规则

Posted 2021-05-21

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