Hi expert , cfl problem in matrix

Hi friend,
i am added two cfl in user form but first cfl working fine but when i using second cfl it bind same value in the seconf row also.
Regards
Rajkumar Gupta

thanks for reply
     ElseIf (pVal.ItemUID = "38") And (pVal.ColUID = "ItemCode") And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                    Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
                    oCFLEvento = pVal
                    Dim sCFL_ID As String
                    sCFL_ID = oCFLEvento.ChooseFromListUID
                    Dim oForm As SAPbouiCOM.Form
                    oForm = SBO_Application.Forms.Item(FormUID)
                    Dim oCFL As SAPbouiCOM.ChooseFromList
                    oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
                    If oCFLEvento.BeforeAction = False Then
                        Dim oDataTable As SAPbouiCOM.DataTable
                        oDataTable = oCFLEvento.SelectedObjects
                        If oDataTable Is Nothing Then
                            Exit Sub
                        End If
                        Dim Code As String = ""
                        Dim Name As String = ""
                        Dim cflValBefore As String = ""
                        Dim i As Integer = 0
                        Code = oDataTable.GetValue(0, 0)
                        Name = oDataTable.GetValue(1, 0)
                        Try
                            ' If (pVal.ItemUID = "38") And (pVal.ColUID = "ItemCode") Then
                            oMatrix = oForm.Items.Item("38").Specific
                            For i = 0 To oDataTable.Rows.Count - 1
                                'cflValBefore = oForm.DataSources.DBDataSources.Item(0).GetValue("U_itemCode", oForm.DataSources.DBDataSources.Item(1).Offset)
                                oForm.DataSources.DBDataSources.Item(1).SetValue("U_itemCode", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("ItemCode", 0))
                                oForm.DataSources.DBDataSources.Item(1).SetValue("U_ItemDec", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue(1, 0))
                                'oForm.DataSources.DBDataSources.Item(1).SetValue("U_BOM", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("ItemCode", 0))
                                'oForm.DataSources.DBDataSources.Item(1).SetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("ItemCode", 0))
                                cflValBefore = oForm.DataSources.DBDataSources.Item(1).GetValue("U_itemCode", oForm.DataSources.DBDataSources.Item(1).Offset)
                                If oForm.Mode <> SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                                    If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_itemCode", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                    If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_ItemDec", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                End If
                                ''For Bom
                                If Trim(cflValBefore) <> "" Then
                                    If CheckBOM(Trim(cflValBefore)) = True Then
                                        oForm.DataSources.DBDataSources.Item(1).SetValue("U_BOM", oForm.DataSources.DBDataSources.Item(1).Offset, CStr(oDataTable.GetValue("ItemCode", 0)))
                                    Else
                                        oForm.DataSources.DBDataSources.Item(1).SetValue("U_BOM", oForm.DataSources.DBDataSources.Item(1).Offset, "")
                                        ItemcodeProduction = cflValBefore
                                    End If
                                End If
                                ''For Production Order
                                If Trim(cflValBefore) <> "" And Docnum <> "" Then
                                    Dim check As String = CheckPO(Trim(cflValBefore), Docnum)
                                    If check <> "" Then
                                        oForm.DataSources.DBDataSources.Item(1).SetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset, CStr(check))
                                    Else
                                        oForm.DataSources.DBDataSources.Item(1).SetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset, "")
                                        ItemcodeProduction = cflValBefore
                                    End If
                                End If
                                oMatrix.SetLineData(pVal.Row)
                            Next
                            ' End If
                            ' SetInitialDataWorkOrder()
                        Catch ex As Exception
                            'MsgBox(ex.Message)
                            ShowErrMsg(" Event Error et_CHOOSE_FROM_LIST: 38 matrix " & ex.Message)
                        End Try
                    End If ' BeforeAction
                ElseIf (pVal.ItemUID = "38") And (pVal.ColUID = "LPO") And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                    Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
                    oCFLEvento = pVal
                    Dim sCFL_ID As String
                    sCFL_ID = oCFLEvento.ChooseFromListUID
                    Dim oForm As SAPbouiCOM.Form
                    oForm = SBO_Application.Forms.Item(FormUID)
                    Dim oCFL As SAPbouiCOM.ChooseFromList
                    oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
                    If oCFLEvento.BeforeAction = False Then
                        Dim oDataTable As SAPbouiCOM.DataTable
                        oDataTable = oCFLEvento.SelectedObjects
                        If oDataTable Is Nothing Then
                            Exit Sub
                        End If
                        Dim Code As String = ""
                        Dim Name As String = ""
                        Dim cflValBefore As String = ""
                        Dim i As Integer = 0
                        Code = oDataTable.GetValue(0, 0)
                        '  Name = oDataTable.GetValue(1, 0)
                        Try
                            ' If (pVal.ItemUID = "38") And (pVal.ColUID = "ItemCode") Then
                            oMatrix = oForm.Items.Item("38").Specific
                            For i = 0 To oDataTable.Rows.Count - 1
                                cflValBefore = oForm.DataSources.DBDataSources.Item(1).GetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset)
                                oForm.DataSources.DBDataSources.Item(1).SetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("DocNum", 0))
                                oForm.DataSources.DBDataSources.Item(1).SetValue("U_OrderD", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("PostDate", 0))
                                'oForm.DataSources.DBDataSources.Item(1).SetValue("U_DueDate", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("DueDate", 0))
                                oForm.DataSources.DBDataSources.Item(1).SetValue("U_Status", oForm.DataSources.DBDataSources.Item(1).Offset, oDataTable.GetValue("Status", 0))
                                If oForm.Mode <> SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                                    If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_ProdO", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                    If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_OrderD", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                    ' If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_DueDate", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                    If cflValBefore <> oForm.DataSources.DBDataSources.Item(1).GetValue("U_Status", oForm.DataSources.DBDataSources.Item(1).Offset) Then oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
                                End If
                                oMatrix.SetLineData(pVal.Row)
                            Next
                            ' End If
                            'SetInitialDataWorkOrder()
                        Catch ex As Exception
                            'MsgBox(ex.Message)
                            ShowErrMsg(" Event Error et_CHOOSE_FROM_LIST: 38 matrix LPO " & ex.Message)
                        End Try
                    End If ' BeforeAction
                ElseIf pVal.ItemUID = "1" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.BeforeAction = True Then 'And pVal.BeforeAction = False Then
                    Dim oQty As SAPbouiCOM.EditText
                    Dim oBOM As SAPbouiCOM.EditText
                    Dim oDueDate As SAPbouiCOM.EditText
                    Dim oLPO As SAPbouiCOM.EditText
                    Dim oForm As SAPbouiCOM.Form
                    oForm = SBO_Application.Forms.Item(FormUID)
                    oMatrix = oForm.Items.Item("38").Specific
                    If oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Or oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE Or oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE Then
                        ' If pVal.ActionSuccess = True Then
                        Dim ctr As Integer = 1
                        If oMatrix.VisualRowCount >= 1 Then
                            For ctr = 1 To oMatrix.VisualRowCount
                                oQty = colQtyWO.Cells.Item(ctr).Specific
                                oBOM = colLBOM.Cells.Item(ctr).Specific
                                oDueDate = colDueDate.Cells.Item(ctr).Specific
                                'Dim wo As SAPbouiCOM.EditText
                                'wo = oMatrix.Columns.Item("LPO").Cells.Item(ctr).Specific
                                'code for update the table uin number
                                oLPO = oMatrix.Columns.Item("LPO").Cells.Item(ctr).Specific
                                Dim proorder As String = ProductionOrder(oQty.Value, oBOM.Value, CDate(oDueDate.Value))
                                'oLPO.Value = ProductionOrder(oQty.Value, oBOM.Value, CDate(oDueDate.Value))
                                If proorder <> "" Then
                                    'oLPO = oMatrix.Columns.Item("LPO").Cells.Item(pVal.Row).Specific
                                    'oLPO.Value = ProductionOrder(oQty.Value, oBOM.Value, CDate(oDueDate.Value))
                                    UpdateForm(proorder, Docnum)
                                    ItemcodeProduction = ""
                                    QtyProduction = ""
                                End If
                            Next
                        End If
                        'End If ' action close
                    End If 'mode close
                    'ProductionOrder(10, "A00001")

Similar Messages

  • Query cfl problem in matrix

    hi all good morning.... i have one problem i assigned query cfl for matrix field. the value fetch based on header level.... the query fetch the data but its not show the CFL window..here i pasted my code
    Case "matvariant"
                            Select Case pVal.ColUID
                                Case "Col_Colour"
                                    Select Case pVal.EventType
                                        Case SAPbouiCOM.BoEventTypes.et_GOT_FOCUS
                                            Dim oForm As SAPbouiCOM.Form = gonAppApplication.Forms.Item("VARAINT")
                                            Dim sQuery As String = "SELECT  T1.[U_U_COLOR] FROM [dbo].[@ITEMCOLOR_DETAIL]  T0 inner join [dbo].[@ITEMCOLOR_HEADER]  T1 on t0.docentry=t1.docentry WHERE T0.[U_Itmcode] !='' and T0.[U_Avail] ='y' and T0.[U_Itmcode] = '" & oForm.Items.Item("txticode").Specific.Value & "'"
                                           oGeneral.SetConditionToCFL1(oForm, "COLITEMCFL1", "U_ID", sQuery)
                                                                               Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
                                            Dim bonCflEvents As SAPbouiCOM.ChooseFromListEvent
                                            Dim bonDTTable As SAPbouiCOM.DataTable
                                            Dim bonCflList As SAPbouiCOM.ChooseFromList
                                            Dim bnnstrUID As String
                                            bonCflEvents = pVal
                                            bnnstrUID = bonCflEvents.ChooseFromListUID
                                            bonDTTable = bonCflEvents.SelectedObjects
                                            bonCflList = lonConvForm.ChooseFromLists.Item(bnnstrUID)
                                            If Not (bonDTTable Is Nothing) Then
                                                If bonCflList.UniqueID = "COLITEMCFL1" Then
                                                    gonMatConvMatrix.GetLineData(pVal.Row)
                                                    gonMatConvMatrix.GetLineData(pVal.Row)
                                                    lonDetailDatasource.SetValue("U_Col_COLOR", lonDetailDatasource.Offset, bonDTTable.GetValue("U_COLOR_NAME", 0))
                                                    gonMatConvMatrix.SetLineData(pVal.Row)
                                                    If pVal.Row = gonMatConvMatrix.VisualRowCount Then
                                                        lonDetailDatasource.SetValue("U_Col_COLOR", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_LENGTH", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_WIDTH", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_THICK", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_SIZE", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_Desc", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("U_Col_Price", lonDetailDatasource.Offset, "")
                                                        lonDetailDatasource.SetValue("LineId", lonDetailDatasource.Offset, pVal.Row + 1)
                                                        gonMatConvMatrix.AddRow()
                                                        gonMatConvMatrix.SetLineData(pVal.Row + 1)
                                                        gonMatConvMatrix.FlushToDataSource()
                                                    End If
                                                Else
                                                End If
                                            End If
                                    End Select
                            End Select
    Edited by: narain.balan on Oct 26, 2010 7:02 AM

    Hi
    Please post the function code  oGeneral.SetConditionToCFL1(oForm, "COLITEMCFL1", "U_ID", sQuery)
    I think the problem is with choose from list condition.
    Regards
    Arun

  • Problem with matrix/screen in Qosmio F55-Q502

    Hello
    For a few weeks I have strange problem with matrix/screen in my laptop.
    The matrix flickers very often - no matter if power cable is plugged or not.
    The screen is full bright and suddenly it starts to blink - it is getting darker, than lighter, usually for few/dozen seconds. It does it when nobody touches it or when I work on it.
    It very annoying and making eyes tired - it does it very quickly and there are few levels of screen brightness.
    Moreover sometimes the screen turns off - You can see what is on desktop but the screen is very very dark (but not blank or completely switched off). It happens without any reason - sometimes just in the middle of working, sometime for example when I touch (not pull) the power cable between laptop and power supply.
    Then, the only way to get back to normal brightness of screen id to close the lid just for half a second and open it
    - matrix lights then normally, but can "turns off" moment later and I must do it once again - sometimes even few times..
    After "action" with lid screens seems like nothing ever happen..
    Does anyone have idea what is the cause of such behaviour or how to diagnose it in details?
    Or maybe solve this problem?
    Best regards
    300m

    Sounds like the Backlight or Inverter is failing or there is a loose connection.
    Is the unit under warranty? Send it to an ASP for repair.
    You should avoid repairing it yourself, the backlight is very high voltage!

  • Problem in Matrix while Populating Data

    Hello All,
    I am facing a problem in matrix column in SAP 8.8
    I am filling a matrix with data from a table ITT1.
    Matrix1 = oChlSelc.Items.Item("3").Specific
    oChlSelc.DataSources.DataTables.Add("Approval")
    oChlSelc.DataSources.DataTables.Item("Approval").Clear()
    Dim Str_Query As String = "Select Father,Code,Quantity From ITT1"
    oChlSelc.DataSources.DataTables.Item("Approval").ExecuteQuery(Str_Query)
    Matrix1.Columns.Item("col_1").DataBind.Bind("Approval", ",Code")
    Matrix1.Columns.Item("col_2").DataBind.Bind("Approval", "Quantity")
    matrix1.LoadFromDatasource
    The problem is that the data is getting populated in the matrix without any problem but the Quantity field is not showing the
    exact Value means its showing the RoundOff Value i.e. 1.45 = 1
    If Quantity is 1.45 in matrix column its showing 1 .
    That what i am facing .
    Thanks
    Amit

    Hi Amit
    Its working fine in my system
    and also im getting the quantity value as 1.00  by using this code
      Dim matrix1 As SAPbouiCOM.Matrix
            Dim oform As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.Item("frm_test")
            matrix1 = oForm.Items.Item("1").Specific
            oForm.DataSources.DataTables.Add("Approval")
            oForm.DataSources.DataTables.Item("Approval").Clear()
            Dim Str_Query As String = "Select Father,Code,Quantity From ITT1"
            oForm.DataSources.DataTables.Item("Approval").ExecuteQuery(Str_Query)
            matrix1.Columns.Item("V_0").DataBind.Bind("Approval", "Code")
            matrix1.Columns.Item("V_1").DataBind.Bind("Approval", "Quantity")
            matrix1.LoadFromDatasource()
    Thanks
    Shafi

  • Matrix CFL problem

    Hello
    I have a following problem:
    I want to make one column in matrix editable and CFL(from OITM).
    If I bind it with userdatasource, the chosen value cannot be changed later.
    If I bind it with DBdatasource, when I choose the proper value in CFL, I get an error :Bad form Value.
    I made very similar thing but not with columns(with form items) and then I could bind an item with EditText field and everything was cool.  edittext1 = (SAPbouiCOM.EditText)oItem.Specific;
    But now I cannot convert a column to EditText object 
    Anybody help me, please?

    Could you send me more code to look for the problem?
    Regards,
    J:

  • How to set the returned value of CFL in a matrix

    dear all,
    I got a matrix binded to a DataSource and two CFLs are in this matrix. The codes for handling AfterChooseFromList is as following.  It works almost fine. But when a docoment containing more than two
    rows in the matrix and I reselect the CFL cell values more than two times, an error occured sometimes, not everytime. The error message is "This entry already exists in the following tables @CYW_PRROW [Message 131-183]"
    I have tried to find out what kind of situation to cause this error, but still in the mud.
    Can anybody give me some suggestion? Thanks.
    Public Sub OnAfterChooseFromList_Matrix(ByVal pVal As SAPbouiCOM.ItemEvent)
            Dim ActionSuccess As Boolean = pVal.ActionSuccess
            Dim oform As SAPbouiCOM.Form = SBO_Application.Forms.Item(pVal.FormUID)
            Dim oitem As SAPbouiCOM.Item = oform.Items.Item("mtx_0")
            Dim omatrix As SAPbouiCOM.Matrix = CType(oitem.Specific, SAPbouiCOM.Matrix)
            Dim oDataTable As SAPbouiCOM.DataTable
            oDataTable = pVal.SelectedObjects
            Dim val As String
            Try
                val = oDataTable.GetValue(0, 0)
            Catch ex As Exception
            End Try
            omatrix.GetLineData(pVal.Row)
            oform.DataSources.DBDataSources.Item("@CYW_PRROW").Offset = pVal.Row - 1
            If pVal.ColUID = "col_0" Then
                Try
                    oform.DataSources.DBDataSources.Item("@CYW_PRROW").SetValue("U_PRItemCode", pVal.Row - 1, CStr(val))
                Catch ex As Exception
                    SBO_Application.MessageBox(ex.Message)
                End Try
            Else
                Try
                    oform.DataSources.DBDataSources.Item("@CYW_PRROW").SetValue("U_PRSupp", pVal.Row - 1, CStr(val))
                Catch ex As Exception
                    SBO_Application.MessageBox(ex.Message)
                End Try
            End If
            omatrix.SetLineData(pVal.Row)
            If pVal.FormMode = "1" Then
                oform.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
            End If
        End Sub
    Another quesion, can I assign the returned value of CLF directly to the cell?

    Hello  Chao-Yi Wu,
    I don't have a real solution for you - just a few comments:
    1. At
            Try
                val = oDataTable.GetValue(0, 0)
            Catch ex As Exception
            End Try
    I would add
            Try
                if oDataTable Is Nothing Then Exit Sub ' If the User cancels the CFL
                val = oDataTable.GetValue(0, 0)
            Catch ex As Exception
            End Try
    2. At
       If pVal.ColUID = "col_0" Then
    I would make the branch by the pVal.ChooseFromListUID instead of the ColUID
    and the 2nd not with "Else" but with "Else If ....."
    3. It may work with EditText.String/Value of a cell but I never do that because of performance-reasons.
    I always do it the same way as you in principle - I don't really know what the problem is.
    4. Maybe some unique indexes on your table (although this should give an error at the update and not at CFL when "the unique-law is broken"...)?
    Sorry - that's all for the moment.
    Cheers,
    Roland

  • Problem with Matrix/Checkbox/Datasource

    Hi, i have a problem with a Matrix.
    There are 3 Columns on this Matrix, one of those is a Checkbox. I fill the Columns with data, the Checkboxes where just added (no Checkbox is selected), the user has to select the value (Checkbox)he want's to by hand.
    After i filled the Matrix i can see all the data on the Form, it's OK, but then i loose all entries after SBO is doing some work. There where shown only the empty rows and the checkboxes.
    I guess it has something to do with the databinding. My problem is that i don't have the Data for this form on a db-table. I fill in the matrix the result of some querys. It looks like i need at least a DB-Field for the checkboxes, otherwise there are not working (not selectable)
    Somebody knows a solution how i can keep the Data in the Matrix after SBO is doing some work? What could be the reason that i loose the data after filling it in the Matrix? Is there an easy way?
    Thanks Andreas

    Almost every item on a form need a datasource... If the item reprecents some data in a table the databinding must be a dbds... If the data does not reflect any data in a table (Calulated value, user-decision, ect.) a userdatasource need to be created...
    Add a userdatasource
    oForm.DataSources.UserDataSources.Add(UID,type,length);
    Databind to DBDS
    col.DataBind.SetBound(true,”TABLE”,”FIELD”);
    Databind to UDS
    col.DataBind.SetBound(true,””,UID);

  • Exporting Using Expert Settings Problem

    When I try exporting using expert settings, which is pretty much necessary, any video that I export, in just about any format, but usually .mov or .mp4 looks very strange. Any moving objects appear to be broken up by horizontal lines. I do not know much about these sorts of issues, but I'm guessing it's a problem with the frame rate. I've tried just about every frame rate and nothing seems to work. Thanks for your help!
    P.S. Same thing happens when exporting from iMovie!

    It means the timeline settings. If your project is DV, then it will export a DV quality file. If your settings are Offline RT, it will export an offline RT formatted Quicktime...if they are 8-bit uncompressed, an 8-bit uncompressed QT...etc. And the same frame rate as well, 23.98, 29.97 and so on.
    It basically means that no further compression is occurring.
    Shane

  • Unusual Problem with Matrix

    Hi Guys,
    I have a matrix which is on the UDO form. I have bound all the columns with DB DataSources. I have one column of combobox type where in the back end i have the valid values
    "1-Approved"
    "2-Pending"
    "3-Rejected"
    The problem here is that when the form is opened the matrix column only shows values 2 and 3 ("2-Pending","3-Rejected").
    I also have another Column with 2 Valid values, again facing the same problem. Only one value is being shown.
    But in the backend when i check in the "Manage User Fields" Screen all the 3 Valid values are visible.
    Am i doing something wrong..??
    Thanks in Advance,
    Vasu Natari.

    Hi,
    For me, even if the validvalues are added, it is working. Real.
    Here is a code for matrix columns, and it is shows me on the form the description.
    You must have to add of course validvalues to show the description (as in the description). This sample
    is shows you the ship types of orders. You also can use userdatasources....
    Sub ComboDesc()
            Dim oForm As SAPbouiCOM.Form = m_SBO_Application.Forms.Add("TEST_MTX")
            oForm.Visible = True
            Dim oitem As SAPbouiCOM.Item = oForm.Items.Add("MTX", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
            With oitem
                .Top = 5
                .Left = 5
                .Width = oForm.Width - 15
                .Height = oForm.Height - 15
                .AffectsFormMode = False
            End With
            Dim oMatrix As SAPbouiCOM.Matrix = oitem.Specific
            Dim oColumns As SAPbouiCOM.Columns = oMatrix.Columns
            Dim oDBDataSource As DBDataSource = oForm.DataSources.DBDataSources.Add("ORDR")
            Dim oColumn As SAPbouiCOM.Column = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT)
            With oColumn
                .TitleObject.Caption = "#"
                .Description = .TitleObject.Caption
                .Width = 30
                .DataBind.SetBound(True, "ORDR", "DocEntry")
                .Editable = False
            End With
            oColumn = oColumns.Add("COL1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
            With oColumn
                .Width = 80
                .TitleObject.Caption = "ShipType"
                .Description = .TitleObject.Caption
                .Editable = False
                .DataBind.SetBound(True, "ORDR", "TrnspCode")
                .DisplayDesc = True
                .Visible = True
            End With
            Dim vv As SAPbouiCOM.ValidValues = oColumn.ValidValues
            Dim ors As SAPbobsCOM.Recordset = ocmp.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            ors.DoQuery("select * from OSHP")
            Do While Not (ors.EoF)
                vv.Add(ors.Fields.Item(0).Value, Left(ors.Fields.Item(1).Value, 30))
                ors.MoveNext()
            Loop
            oDBDataSource.Query()
            oMatrix.LoadFromDataSource()
        End Sub
    Regards
    J.

  • Choose From List Condition Problem In Matrix

    Hi,
    I kept CFL for Vendor listing in matrix but if i press tab in the vendor column the BP form Apperas but both the customer record and Vendor records are coming i want only the vendor records to be listed in the CFL of BP so plz tell me the solution for this.
    Madhavi

    Hi,
    Use following query...
    Select CardCode,CardName,cardType  from OCRD Where CardType='S'
    CardType : S for Vendor,C for Customer,L for LEAD
    Regards
    Sanjay

  • CLF Problem in Matrix

    hi All
    I designed a form using Screen Painter. In that form i added a matrix and a CLF for a particular column
    the Object Type of the CLF is "4" and i Binded the Column with a User Defined Table of Master Type
    and also return the values into the Matrix.Upto this is working well. But when i try to Bind the Column with a Child Table of Type MasterDataRow "CLF" is not displaying in the Column .If it displays a "CLF" then when we select a value from CLF Form to return value into matrix column it Shows Error message
    "Invalid Datasource"
    can any one suggest correct reason

    HI,
    Try to use the same data type of the column and CFL. (object "4" is BP, so alfanumeric type should be the database field type).
    Step 1. et_CHoose_formlist event, bind the column to a userdatasource
    Step 2 set the value of the column in the DBDatasource using DBDataSource.InsertRecord or oDBDataSource.SetValue when you updateing an existing row.
    Step 3 Bind the Column to the DBDatasource =(child table).
    Step 4 Use the oMatrix.LoadFromDataSource()
    Regards,
    J.

  • Printing problem in matrix

    Hi,
    I selected some records thru do query and printing that value in matrix in that no problem the records selected was printing correctly. Printing once if i select one record in a query means in matrix one row will be added and that record ll be print once.
    But i need to print that record no of times. That means if i select one record in a query means it should not add in one row of the matrix it should be added no of times as the number i give thru condition.
    if i give 3 in condition the record should print 3 times. But it is printing once only. Plz give me a solution
    Madhavi

    David ,
    I didnt print to excel. I ll explain in detail.
    I have to choose the category in the combo in the header form. According to category i want the details should be added in a matrix automatically i took it thru query its working well. That is adding the selected rows to matrix based on category now my problem is in that query i took the sample size also. the row should add to matrix as the no of sample size. if the sample size is 2 means the records should be added twice to the matrix if it is 3 means it should be added thrice how should i do this.
    Madhavi

  • Problem in matrix report

    i make a matrix report and the data is arabic
    when i make concurrent pdf or html the arabic is not appear as i want.
    when i try to make a template i can't because the option is table or table/form.
    what is the solution?

    You need to use an outer join in some way. See these similar problems:
    Re: Display null rows / columns in matrix report
    Re: To obtain all the Month details

  • Problem in matrix

    Hi every Body,
    I ve created in C# a matrix with columns, When I run the application, many rows appears but I can write only in the first row !!! I don't know why?
    I need to write on all the lines (rows) of the matrix.
    Can someone help me!

    Hello Haifa,
    The enabled is for the Matrix object, but I suggest that you use matrix.addrow() to solve the problem.
    holpe this helps,
    Pegorer.

  • Problem in Matrix with double Grouping

    Hi,
    Iam new to Oracle Reports 9i.
    I am trying to create a matrix report with double grouping.
    when i tried to do that. the report window showing an error and its trying to close.
    When i go for single grouping it works fine, but when i do for double grouping iam getting the problem.
    can anybody help me in resolving this issue.
    thanks
    pradeep

    Hi Amit
    Its working fine in my system
    and also im getting the quantity value as 1.00  by using this code
      Dim matrix1 As SAPbouiCOM.Matrix
            Dim oform As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.Item("frm_test")
            matrix1 = oForm.Items.Item("1").Specific
            oForm.DataSources.DataTables.Add("Approval")
            oForm.DataSources.DataTables.Item("Approval").Clear()
            Dim Str_Query As String = "Select Father,Code,Quantity From ITT1"
            oForm.DataSources.DataTables.Item("Approval").ExecuteQuery(Str_Query)
            matrix1.Columns.Item("V_0").DataBind.Bind("Approval", "Code")
            matrix1.Columns.Item("V_1").DataBind.Bind("Approval", "Quantity")
            matrix1.LoadFromDatasource()
    Thanks
    Shafi

Maybe you are looking for

  • Getting  error while  importing  data through IMPDB

    Hi All , I am getting  below  error  while  importing. Processing object type SCHEMA_EXPORT/TABLE/TABLE ORA-39126: Worker unexpected fatal error in KUPW$WORKER.POST_MT_INIT [SELECT SYS.KUPM$MCP.GET_ENDIANNESS@STAG_RISKCORE FROM SYS.DUAL] ORA-04052: e

  • Itunes won't connect to store, or stream music after 10.5 update

    I downloaded and ran the Itunes 10.5 executable to update to the latest version When I start Itunes I get an error message that Itunes could not connect to the ITunes Store. The network connection timed out. I ran the diagnostics, and a secure link t

  • Internal table - select if in range ?

    Hello ABAP Experts, I have a internal i_gl_account table which has some of the following fields: glacctfrom, glacctto, flag i have to select a record from this internal table based on a fixed gl_account_fix. i cannot write this statement read table i

  • POsting Date in COPA

    Hello Is it possible to create a COPA report with posting date as a selection criteria? If so, how?

  • I have a stuck OS disk. I've tried all of the tricks.  Any other ideas?  Thanks

    Get ready for a laugh. I was attempting a fresh install on a PPC iMac and inadvertently used the OS disk from my Intel machine. Now the disk is stuck, and the machine can't seem to get to a point where the disk is available. (It gets to the point pas