Display a backorder items list

Question

Hello all,
I need help.  I am trying to do the following:
When I enter a customer code to an order I would like to see a list of item on backorder.  I am adding a matrix with data binding, but it is blank. 
Here is where I need help!
I would like to show all opem items for that customer, is there any way to do this?
'// Query the DB Data source
    Dim pConds As SAPbouiCOM.Conditions
    Dim pCond As SAPbouiCOM.Condition
    Set pConds = New Conditions
    Set pCond = pConds.Add()
    pCond.Alias = DocStatus 'FIELD NAME
    pCond.Operation = co_EQUAL
    pCond.CondVal = 0
    Call oDBDataSource.Query(pConds)
I am unsure about DocStatus because it is empty.

Answer 1

Hi,
I did a similar function in this way, after the user has entered a line in a delivery document
I used a matrix linked to a UserDataSource for each column, then I fill rows with fields read from a recordset.
I strongly suggest to freeze the form during this operation, as it speeds up the table filling and avoids annoying flashes of the grid itself...
Set rs = sboCompany.GetBusinessObject(BoRecordset)
rs.DoQuery "SELECT ORDR.DocEntry, NNM1.SeriesName, ORDR.DocNum, ORDR.DocDate, RDR1.ShipDate, RDR1.OpenQty, RDR1.LineNum, RDR1.Price, RDR1.Currency FROM ORDR INNER JOIN RDR1 ON ORDR.DocEntry = RDR1.DocEntry  INNER JOIN NNM1 ON ORDR.Series = NNM1.Series WHERE (ORDR.CardCode='" & LastCustomerCode & "') AND (RDR1.LineStatus <> 'C') AND (RDR1.ItemCode = '" & LastItemCode & "') ORDER BY RDR1.ShipDate"
            m.Clear
            q = 0#
            Do While Not rs.EOF
                frmSearch.DataSources.UserDataSources("_DocEntry").Value = rs.Fields(0).Value
                frmSearch.DataSources.UserDataSources("_serie").Value = rs.Fields(1).Value
                frmSearch.DataSources.UserDataSources("_numord").Value = rs.Fields(2).Value
                frmSearch.DataSources.UserDataSources("_datord").Value = rs.Fields(3).Value
                frmSearch.DataSources.UserDataSources("_datcon").Value = rs.Fields(4).Value
                frmSearch.DataSources.UserDataSources("_prezzo").Value = rs.Fields(7).Value
                frmSearch.DataSources.UserDataSources("_valuta").Value = rs.Fields(8).Value
                frmSearch.DataSources.UserDataSources("_qtaord").Value = rs.Fields(5).Value
                frmSearch.DataSources.UserDataSources("_qta").Value = 0
                frmSearch.DataSources.UserDataSources("_linenum").Value = rs.Fields(6).Value
                q = q + rs.Fields(5).Value
                m.AddRow
                rs.MoveNext
            Loop
Hope this helps
Enrico