Error in layouts for custom bdoc's

Question

Hi All,
  we are using some custom bdoc's to generate the layouts ( document generate) for the MSA.
for the custom bdoc the getrecordset() method is throwing error in the following code of layoutSQLStatement business object. Kindly let us know for a custom bdoc do we have to create a query and associate it here in this method. As I dont know VB Im unable to code the application
TransactionID and segment fields are returning the correct result and the error is occuring at
StartObjectTransaction = MyLE.GetRecordset , After executing this statement
Start ObjectTransaction is not giving any result.
Public Function StartObjectTransaction() As Object
  Dim ImpObj As Object
  Dim ValueArr() As Object
  Dim KeyArr() As Object
   Dim MyLE As ListEngine
       Dim i As Short
        Dim fl As Field
Method  : StartObjectTransaction
'  Date    : 08.03.1999
'  Purpose :  !!!!! Please insert !!!!!
On Error GoTo ErrorHandler
If ((_unwind(ImportListCol.Count) > 0)) Then
ReDim ValueArr((_unwind(ImportListCol.Count) - 1))
  ReDim KeyArr((_unwind(ImportListCol.Count) - 1))
End If
MyLE = BusinessRootObject.BusinessFactory.CreateListEngine()
MyLE.TransactionName = TransactionId
MyLE.SegmentName = SegmentName
  ImportListCol.Count()
i = 0
For Each ImpObj In ImportListCol
ValueArr(i) = _unwind(ImpObj.GetValue())
' >> #1 (OldCode/NewCode)
' KeyArr(i) = ImpObj.GetKey()
KeyArr(i) = _unwind(ImpObj.GetReal())
' << #1
   i = (i + 1)
Next
  If ((_unwind(ImportListCol.Count) > 0))
Then
   MyLE.SetFilterParameters(KeyArr, ValueArr)
End If
StartObjectTransaction = MyLE.GetRecordset
  For Each fl In StartObjectTransaction.Fields
' >> #2 (OldCode/NewCode)
' if fl.type = 128 or fl.type = 130 then ' memo fields
Set StartObjectTransaction = BusinessRootObject.BusinessFactory.CreateBusinessQuery("BSEXPSELMAIN").ExpertQuery(StartObjectTransaction.Source)
            ' end if
  If (_unwind(fl.DefinedSize) < 0) Then
        StartObjectTransaction = BusinessRootObject.BusinessFactory.CreateBusinessQuery("BSEXPSELMAIN").ExpertQuery(StartObjectTransaction.Source)
     Exit Function
  End If
       Next
'Dim MessageParam(1)
  'MessageParam(0) = ""
'BusinessRootObject.RaiseErrorEx 14805, "TEXTGEN", False, MessageParam, MessageParam
        Exit Function
ErrorHandler:
        'MsgBox("Error in StartObjectTransaction. Error : " & Err.Description)
        BusinessRootObject.RaiseError(4, "LAY", BlErrorTypeEnum.ES_ERROR)

Answer 1

Hi Wolfhard,
       Thanks for the immediate response, I have checked the SQL Profiler and here are the results of my findings.
I have copied a standard bdoc to a zbdoc (didnot add any code/business query in the MAS), Synchronized the bdoc and in this method the zbdoc is again failing its not executing any where clauses in the bdoc.
Added some additional fields in the standard bdoc, again the bdoc failed and the new fields are not reflected in the query analyzer.
Kindly suggest if Im missing something, we are on 5.0SP11