Function cov_CreatePDFFile(ByVal InputSC)

    Dim localPhysicalPDFFileName

    Dim SampleCheck

    localSampleCheck = InputSC

    Dim localReportName

    Select Case session("covlet_ReportType")
        Case "0"
            localReportName = CovletReportNameDefault
        Case "1"
            localReportName = CovletReportNamePCCT
        Case "2"
            localReportName = CovletReportNameAPTIV
    End Select

    Dim localobjFactory, localrptAppSession, localSelectionText
    'Use the ObjectFactory object to allow single-location upgrade to next version

    Set localobjFactory = CreateObject("CrystalReports.ObjectFactory.2")
    Set localrptAppSession = localobjFactory.CreateObject("CrystalReports.ReportAppSession")

    'RAS Server name is taken from clientSDKOptions.xml, or can be specified here
    localrptAppSession.ReportAppServer = CovletRASServer

    localrptAppSession.Initialize

  
    'Create a new ReportClientDocument object for this reportAppSession
    Set localoClientDoc = localrptAppSession.CreateService("CrystalClientDoc.ReportClientDocument")

    'Open the report
    localoClientDoc.Open localReportName

    'Logon to database, if necessary
    localoClientDoc.DatabaseController.Logon CovletLoginID, CovletPasswd

    
      'anand modifying the code 
     'Set localoClientDoc =localobjFactory.open(reportID, 0, Locale.ENGLISH)


    'Copy existing parameter to NewParam object
    Set localNewParam = localoClientDoc.DataDefinition.ParameterFields(0).Clone

    'Create new "DiscreteValue" object to hold new parameter's value
    Set localNewValue = localobjFactory.CreateObject("CrystalReports.ParameterFieldDiscreteValue")

    localNewValue.Value = Trim(localSampleCheck)

    'Set the new value for the parameter
    localNewParam.CurrentValues.Add(localNewValue)

    'Modify the first parameter field with the NewParam object
    localoClientDoc.DataDefController.ParameterFieldController.Modify 0, localNewParam

    'Create a new PrintOutputController object
    Dim localoPrintOutputController
    Set localoPrintOutputController = localoClientDoc.PrintOutputController  

    Dim localiFormat
    localiFormat = CInt("5")

    Dim localoByteArray
    Set localoByteArray = localoPrintOutputController.Export(localiFormat) 'Need to Convert Chinese characters for Unicode here
 
      
    Response.write "document.write("+ localoByteArray  +")"
  

    Select Case session("covlet_ReportType")
        Case "0"
            localPhysicalPDFFileName = Application("OutputPath") & localSampleCheck & ".pdf"
        Case "1"
            localPhysicalPDFFileName = Application("OutputPath") & localSampleCheck & "_PCCT.pdf"
        Case "2"
            localPhysicalPDFFileName = Application("OutputPath") & localSampleCheck & "_APTIV.pdf"
    End Select

    localoByteArray.Save localPhysicalPDFFileName, True
    cov_CreatePDFFile = localPhysicalPDFFileName

End Function