' ----------------------------------------------------------------------------------
' Save Notes (if not already saved)
' ----------------------------------------------------------------------------------
If objr_DISPOSITION.objm_LOGNOTE IsNot Nothing Then
For intl_X = 0 To objr_DISPOSITION.objm_LOGNOTE.Count - 1
Dim objl_LOGNOTE As ORM.DB.clsLogNote = objr_DISPOSITION.objm_LOGNOTE(intl_X)
If objl_LOGNOTE.IdLogNote Is Nothing AndAlso objl_LOGNOTE.Inactive = True Then
Continue For
End If
' Copy into lognote original so we can save it, but also leave the original intact so we can use it in collection searching.
Dim objl_LOGNOTEORIG As New ORM.DB.clsLogNote
objl_LOGNOTEORIG.Copy(objl_LOGNOTE)
If Not objr_CACHE.SaveLogNote(objr_CONN, objl_LOGNOTEORIG) Then
Return False
End If
objr_DISPOSITION.objm_LOGNOTE.Item(objr_DISPOSITION.objm_LOGNOTE.IndexOf(objr_DISPOSITION.objm_LOGNOTE(intl_X))) = objl_LOGNOTEORIG
Dim objl_MAP As ORM.DB.clsMapLogNoteDisposition
objl_MAP = objr_CACHE.MapLogNoteDispositions_UidDefWorkflowType_IdDisposition_IdLogNote(objr_CONN, intv_UIDDEFWORKFLOWTYPE, objr_DISPOSITION.objm_DBENTRY.IdDisposition, objl_LOGNOTEORIG.IdLogNote)
If objl_MAP Is Nothing Then
objl_MAP = New ORM.DB.clsMapLogNoteDisposition
objl_MAP.Sys = False
objl_MAP.Inactive = False
objl_MAP.UidDefWorkflowType = intv_UIDDEFWORKFLOWTYPE
objl_MAP.IdLogNote = objl_LOGNOTEORIG.IdLogNote
objl_MAP.IdDisposition = objr_DISPOSITION.objm_DBENTRY.IdDisposition
Else
objl_MAP.Inactive = objl_LOGNOTEORIG.Inactive
End If
If Not objr_CACHE.SaveMapLogNoteDisposition(objr_CONN, objl_MAP) Then
Return False
End If
If objr_DISPOSITION.objm_LOGNOTE_ATTACHMENTS.ContainsKey(objl_LOGNOTE) Then
For Each objl_MAP2 As ORM.DB.clsMapLogNoteAttachment In objr_DISPOSITION.objm_LOGNOTE_ATTACHMENTS(objl_LOGNOTE)
objl_MAP2.IdLogNote = objl_LOGNOTEORIG.IdLogNote
objr_CACHE.SaveMapLogNoteAttachment(objr_CONN, objl_MAP2)
Next
End If
Next
End If