Has anybody created a Form Report with Extension Class Methods:
When I run the report, Im always getting a NULL. I checked the SLCos IDO and data is there.
<IDOExtensionClass("GenericPrice")>
Public Class GenericPrice
Inherits IDOExtensionClass
<IDOMethod(MethodFlags.None, "Infobar")>
Public Function GetReportData(ByVal CoNumStarting As String, ByVal CoNumEnding As String) As DataTable
Dim RequestDataCollectionItems As LoadCollectionRequestData = New LoadCollectionRequestData
RequestDataCollectionItems.IDOName = "SLCos"
RequestDataCollectionItems.PropertyList.SetProperties("CoNum, Contact, OrderDate, CloseDate")
RequestDataCollectionItems.Filter = String.Format("CoNum BETWEEN {0} AND {1}", CoNumStarting, CoNumEnding)
RequestDataCollectionItems.OrderBy = "CoNum"
RequestDataCollectionItems.RecordCap = 0
Dim ResponseCollectionDataItem As New LoadCollectionResponseData
ResponseCollectionDataItem = Me.Context.Commands.LoadCollection(RequestDataCollectionItems)
Dim ReportDataResultset As DataTable = New DataTable
Dim ReportDataResultsetTableCol As DataColumn
Dim ReportDataResultsetTableRow As DataRow
ReportDataResultsetTableCol = New DataColumn
ReportDataResultsetTableCol.DataType = System.Type.GetType("System.String")
ReportDataResultsetTableCol.ColumnName = "Contact"
ReportDataResultsetTableCol.ReadOnly = False
ReportDataResultsetTableCol.Unique = False
ReportDataResultset.Columns.Add(ReportDataResultsetTableCol)
For x = 0 To ResponseCollectionDataItem.Items.Count - 1
ReportDataResultsetTableRow = ReportDataResultset.NewRow()
If Not String.IsNullOrEmpty(ResponseCollectionDataItem.Item(x, "CoNum").ToString()) Then
ReportDataResultsetTableRow("Contact") = ResponseCollectionDataItem.Item(x, "Contact").ToString()
End If
Next
Return ReportDataResultset
End Function
End Class
