object.OpenCursor([CursorType], [LockType], [Indicate], [lConnectionType], [arrColumnsNames], [bAddPermanents], [oExtenderInfo])

Sub ExecuteDSWithExtender()
	Dim oData As AsData
	Dim oExtender As ExtenderInfo
	Dim dSColumns() As String
	Dim extenderColumns() As String

    ' տվյալների աղբյուրի ցուցադրվող սյուների անուններ
	ReDim dSColumns(1)
	dSColumns(0) = "fISN"
	dSColumns(1) = "fNAME"

    ' տվյալների աղբյուրի ընդլայնման ցուցադրվող սյուների անուններ
	ReDim extenderColumns(0)
	extenderColumns(0) = "Filial"

    ' ընդլայնման նկարագրության սահմանում
	Set oExtender = New ExtenderInfo
    ' ընդլայնման ներքին անունը
	oExtender.Name = "DeletedExtended" 
    ' ընդլայնման պարամետրի ներքին անունը, տիպը, արժեքը
	oExtender.AddExtendedParam("DocumentType","C(8)","TemplUDP")
    ' ընդլայնման ցուցադրվող սյուների ավելացում
	oExtender.AddExtendedColumns(extenderColumns)

    ' տվյալների աղբյուրի սահմանում
	Set oData = Data("DelDoc")
	With oData
        ' տվյալների աղբյուրի պարամետրերի արժեքավորում
		.Parameters("StartDate") = #1/1/2022#
		.Parameters("EndDate") = #12/1/2025#
        ' տվյալների աղբյուրի կատարում ընդլայնումով
		.OpenCursor(,,,, dSColumns, True, oExtender)
	End With

End Sub