Private Sub erasestruct(obase As BaseExportFile, obaseRptFile As BaseExportFile, odetails As ProcessExportDet) Dim objContext As COMSVCSLib.ObjectContext On Error GoTo ErrHandler Set objContext = GetObjectContext() obase.bProcessData = False obase.bProcessDesign = False obase.EndTime = "" obase.iprocesscnt = 0 obase.StartTime = "" Erase obase.Processes obaseRptFile.bProcessData = False obaseRptFile.bProcessDesign = False obaseRptFile.EndTime = "" obaseRptFile.iprocesscnt = 0 obaseRptFile.StartTime = "" Erase obaseRptFile.Processes odetails.TableAsso = "" odetails.StateInfo = "" odetails.FormAsso = "" odetails.FormDefs = "" odetails.ProcessAttributes = "" odetails.ProcessDefs = "" odetails.ProcessInfo = "" odetails.sData = "" odetails.processname = "" odetails.ProcessAlerts = "" odetails.ProcessExpire = "" odetails.ProcessHierachy = "" If Not (objContext Is Nothing) Then objContext.SetComplete End If Exit Sub ErrHandler: If Not (objContext Is Nothing) Then objContext.SetAbort End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)