Description :
 
Some times users has to get the data to their own formats. They want the data to be in flat files and work on the flat file later, like convert the data to excel sheet, then make graphs , etc…

Sub Start( )
 Super::Start( )

 Dim wkday As Integer
 wkday = Weekday(Date$())
 Select Case wkday
    Case 1
      WStartDate = DateAdd("d",-7, Date$())
     WEndDate = DateAdd("d",-1, Date$()) & " 23:59:59"
    Case 2
     WStartDate = DateAdd("d",-8, Date$())
     WEndDate = DateAdd("d",-2, Date$()) & " 23:59:59"
    Case 3
      WStartDate = DateAdd("d",-9, Date$())
     WEndDate = DateAdd("d",-3, Date$()) & " 23:59:59"
   Case 4
     WStartDate = DateAdd("d",-10, Date$())
     WEndDate = DateAdd("d",-4, Date$()) & " 23:59:59"
   Case 5
     WStartDate = DateAdd("d",-11, Date$())
     WEndDate = DateAdd("d",-5, Date$()) & " 23:59:59"
   Case 6
      WStartDate = DateAdd("d",-12, Date$())
      WEndDate = DateAdd("d",-6, Date$()) & " 23:59:59"
   Case 7
      WStartDate = DateAdd("d",-13, Date$())
      WEndDate = DateAdd("d",-7, Date$()) & " 23:59:59"
End Select
WStartDate = UCase$(Format$(WStartDate,"DD-MMM-YYYY       HH:NN:SS"))   
WEndDate = UCase$(Format$(WEndDate,"DD-MMM-YYYY HH:NN:SS"))
DataFile = "C:\Sachin\Bmc\NewReports\WeeklyEscalations.txt"
DataChannel = FreeFile()
Open DataFile For Output As DataChannel

 End Sub

  Set theControl = FindContentByClass("SBUName")
  strFieldText = CStr(theControl.GetValue) & delim
  strTextFile = strTextFile & strFieldText

  Set theControl = FindContentByClass("CasesResolvedLastWeek")
  strFieldText = CStr(theControl.GetValue) & delim
  strTextFile = strTextFile & strFieldText

  Set theControl = FindContentByClass("CasesResolvedByTechSupport")
  strFieldText = CStr(theControl.GetValue) & delim
  strTextFile = strTextFile & strFieldText

  Set theControl = FindContentByClass("CasesResolvedByDevelopment")
  strFieldText = CStr(theControl.GetValue)
  strTextFile = strTextFile & strFieldText

  Print #DataChannel, strTextFile
  End Sub