vbscript 查找声明过程中的覆盖动态数据

Posted 2021-05-21

Dim objPolicy as clsPolicyVersion
Dim objSubscribedCoverage As clsSubscribedCoverage
Dim objClaim As clsClaim
Dim boolValeurANeufBienMo
dim objPolicyVersionData as clsPolicyVersionForClaim 

objClaim = GetObjectToBeUsedForThisClass(GetType(clsClaim).Name, ListOfObjectsToBeUsedInFormula)
for each objPolicyVersionData in objClaim.ListOfPolicyVersionForClaims
	objPolicy =clsObjectStorageFunctionality.Manager().GetObject(objPolicyVersionData.PolicyVersionIdentifier)
	Trace("Policy found on the claim" & objPolicy.AsString("") ,7)
	
	for each objSubscribedCoverage in objPolicy .ListOfSubscribedServices
		if objSubscribedCoverage.MyOfferedCoverage isnot nothing and objSubscribedCoverage.MyOfferedCoverage.OfferedServiceCode="DBIE" then
			 Trace("DBIE coverage found",7)
			 boolValeurANeufBienMo=clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objSubscribedCoverage.MySubscribedServiceSpecificData, "Valeuraneufbienmobilier", Nothing, True)
			result(0)=boolValeurANeufBienMo=true
                        exit for
		 end if
	next
 '/!\need to be enhanced to handle multiple policies
 exit for
next