Cacher is the code snippet organizer for pro developers

	Dim DateDeConsolidation as Date
	Dim objLossDescription As clsLossDescription
	objLossDescription = GetObjectToBeUsedForThisClass(GetType(clsLossDescription).Name, ListOfObjectsToBeUsedInFormula)
	If Not objLossDescription Is Nothing Then
		Trace("objLossDescription  found " & objLossDescription.AsString(""),7)
		DateDeConsolidation = clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objLossDescription, "DateDeConsolidation",Nothing,True)
		Trace("DateDeConsolidation="& DateDeConsolidation ,7)
		if DateTime.MinValue<>DateDeConsolidation then
			result(0)=true
		end if
	End If