Description :
 
Writing report details into a database

Sub FinishReport( )
  Super::FinishReport( )

  Dim stmt As AcDBStatement
  Dim queryStatement As String
  Dim DBMSFields As String
  Dim DBMSValues As String
  Dim newConnection As Con_repd
  Dim msgString As String
  Dim pageCount As Integer
  Dim intAppContent As Integer
  Dim AFCROXVersion As String
  Dim ROXVersion As String
  Dim FactoryVersion As String
  Dim ServerName As String
  Dim ServerUserName As String
  Dim OSUserName As String
  Dim totalWallTime As Integer
  Dim HLString As String 
  Dim RelationId As String
  Dim StartDate As String
  Dim EndDate As String
  Dim IntervalDays As Integer
  Dim LastweekDate As String 
  Dim LastmonthDate As String
  Dim YesterDate As String
  Dim RowNumbers As Integer 
  Dim DiskSpace As Integer 

  IF Brpt::psRelationshipID <> "" THEN
      RelationId = Brpt::psRelationshipID
  ELSE
     RelationId = " "
                  End If

If Brpt::StatisticsSwitch = "True" Then

     StartDate = BrsWithDateRange::psDate1
     EndDate = BrsWithDateRange::psDate2
     lastweekDate = BrsWithDateRange::ps0DateRangeOption2
     lastmonthDate = BrsWithDateRange::ps0DateRangeOption3 
     Yesterdate = BrsWithDateRange::ps0DateRangeOption1 

  If Startdate <> EndDate Then
      IntervalDays = DateDiff("d", StartDate, EndDate)
  Else
   IntervalDays = 1
  End IF
                            
 If lastweekDate = "y" Then
    IntervalDays = 7
 End If

 If LastmonthDate = "y" Then
    IntervalDays = 31
 End If 

  If YesterDate = "y" Then
      IntervalDays = 1
  End If 

 Rownumbers = BrsWithDateRange::RowCountInt
  ' DiskSpace = Filelen(Roifilename)

 IF HLString = "" THEN
     HLString = " No hierarchy is used"
 End IF
                            
 Dim psUserId as String

 IF Brpt::psUserId <> "" THEN
     psUserId = Brpt::psUserId
 ELSE
   psUserId = " "
 End If
   pageCount = pgcount
 

  'Set the connection since it is not available here to write the both the ActuateResults
  'and the ReportStatistics tables

  Set newConnection = New con_repd
  newConnection.connect

  If newConnection.IsOpen Then

  'Set the variables that we will use to write back to our ActuateResults table

  ' totalWallTime = Timer - reportStartTime
    ReportStopDateInfo = CVDate(Now)
    totalWallTime = DateDiff("s", ReportStartDateInfo, ReportStopDateInfo)
    intAppContent = GetAppContext
    AFCROXVersion = GetAFCROXVersion(0) & "." & GetAFCROXVersion(1)
    FactoryVersion = GetFactoryVersion(0) & "." & GetFactoryVersion(1)
    ROXVersion = GetROXVersion(0) & "." & GetROXVersion(1)
    ServerName = GetServerName
 If ServerName = "" Then
    ServerName = " "
 End If
    ServerUserName = GetServerUserName
 If ServerUserName = "" Then
    ServerUserName = " "
End If

   OSUserName = GetOSUserName
 If OSUserName ="" Then
    OSUserName = " "
                      End If