vbscript 仅在第一次损失流程通知中显示索赔数据

Posted 2021-05-21

Dim objClaim As clsClaim
objClaim = GetObjectToBeUsedForThisClass(GetType(clsClaim).Name, ListOfObjectsToBeUsedInFormula)
if objClaim Isnot nothing then
   Trace("objClaim found " & objClaim.AsString("") , 7)
   Trace("objClaim status " & objClaim.ClaimStatus , 7)
   if objClaim.ClaimStatus=1 then
       result(0)=true
        '1=cCLAIM_STATUS_FIRST_NOTICE_OF_LOSS
   else
        result(0)=false
    end if
else
   Trace("objClaim not found" , 7)
end if