What am trying to do is this... I want to create a report that pulls data from 2 different data marts. keep in mind, the data marts reside in different databases, therefore 2 different connections.
The reports would have a total of 7 columns, six of the columns come from the same datamart. One of the columns amongst the 6 columns is a Group ID. I want to then use the value in the group ID field to go against a second data mart. The 2nd query will pull out the channel distribution code. This code will then be placed next to the group ID field.
I created a multiple input filter. With 2 inputs representing the two queries against the datamarts. I override the fetch() as indicated in the Actuate help section.
Can you send me a copy of how the fetch () method can be overwritten
Here is a snapshot of my fetch code:
Function Fetch( ) As AcDataRow
Dim adapter As AcDataAdapter
' Start the first input adapter
Set adapter = InputAdapters.GetAt(1)
' Retrieve a row from the first input adapter
Dim aDataRow37 As DataRow37
Set aDataRow37 = adapter.Fetch()
' Start the second input adapter
Set adapter = InputAdapters.GetAt(2)
' Retrieve a row from the second input adapter
Dim aDataRow38 As DataRow38
Set aDataRow38 = adapter.Fetch()
' Create the new data row
Dim aDataRow39 As DataRow39
Set aDataRow39 = NewDataRow( )
' Assign the data from the first row to a variable in the new data row
If Not aDataRow37 Is Nothing Then
aDataRow39.orig_sys_cd= aDataRow37.orig_sys_cd
aDataRow39.src_sys_cd= aDataRow37.src_sys_cd
aDataRow39.evnt_typ_cd= aDataRow37.evnt_typ_cd
aDataRow39.a4= aDataRow37.a4
aDataRow39.src_sys_assoc_id = aDataRow37.src_sys_assoc_id
aDataRow39.a6= aDataRow37.a6
Else
aDataRow39.orig_sys_cd = Null
End If
' Assign the data from the second row to a variable in the new data row
If Not aDataRow38 Is Nothing Then
aDataRow39.admn_zn_short_nm = aDataRow38.admn_zn_short_nm
End If
If aDataRow37 Is Nothing And aDataRow38 Is Nothing Then
Exit Function
End If
Set Fetch=aDataRow39
End Function
The reports would have a total of 7 columns, six of the columns come from the same datamart. One of the columns amongst the 6 columns is a Group ID. I want to then use the value in the group ID field to go against a second data mart. The 2nd query will pull out the channel distribution code. This code will then be placed next to the group ID field.
I created a multiple input filter. With 2 inputs representing the two queries against the datamarts. I override the fetch() as indicated in the Actuate help section.
Can you send me a copy of how the fetch () method can be overwritten
Here is a snapshot of my fetch code:
Function Fetch( ) As AcDataRow
Dim adapter As AcDataAdapter
' Start the first input adapter
Set adapter = InputAdapters.GetAt(1)
' Retrieve a row from the first input adapter
Dim aDataRow37 As DataRow37
Set aDataRow37 = adapter.Fetch()
' Start the second input adapter
Set adapter = InputAdapters.GetAt(2)
' Retrieve a row from the second input adapter
Dim aDataRow38 As DataRow38
Set aDataRow38 = adapter.Fetch()
' Create the new data row
Dim aDataRow39 As DataRow39
Set aDataRow39 = NewDataRow( )
' Assign the data from the first row to a variable in the new data row
If Not aDataRow37 Is Nothing Then
aDataRow39.orig_sys_cd= aDataRow37.orig_sys_cd
aDataRow39.src_sys_cd= aDataRow37.src_sys_cd
aDataRow39.evnt_typ_cd= aDataRow37.evnt_typ_cd
aDataRow39.a4= aDataRow37.a4
aDataRow39.src_sys_assoc_id = aDataRow37.src_sys_assoc_id
aDataRow39.a6= aDataRow37.a6
Else
aDataRow39.orig_sys_cd = Null
End If
' Assign the data from the second row to a variable in the new data row
If Not aDataRow38 Is Nothing Then
aDataRow39.admn_zn_short_nm = aDataRow38.admn_zn_short_nm
End If
If aDataRow37 Is Nothing And aDataRow38 Is Nothing Then
Exit Function
End If
Set Fetch=aDataRow39
End Function
