vbscript 获取当前评估行的动态数据

Posted 2021-05-21

Dim objEvaluationLine as clsLossEvaluationLine

objEvaluationLine=GetObjectToBeUsedForThisClass(GetType(clsLossEvaluationLine).Name, ListOfObjectsToBeUsedInFormula)
if objEvaluationLine isnot nothing then
	Trace("objEvaluationLine  found " & objEvaluationLine.AsString(""),7)
	'need to pass the name of the dynamic data, not the label
	dim objPrejudiceNiveau4=clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objEvaluationLine ,"PrejudiceNiveau4",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)=true
	end if
end if