To add registry in matrix

Question

as I can add a registry in a matrix, selecting in the following registry to I complete?

Answer 1

Ola Gonzalo
Bueno soi de portugal, pero me gusta mas escribir en español que en inglês.
Para eliminar la lineas de una matrix que me muestra dados de una tabla ei creado la seguiente sub:
Sub RemoveLinhaMatrix(ByRef pVal As SAPbouiCOM.MenuEventClass)
        Dim sboForm As SAPbouiCOM.Form
        Dim sbomatrix As SAPbouiCOM.Matrix
        Dim sboDtSrc_CHSVC1 As SAPbouiCOM.DBDataSource
        Dim row As Integer
        sboForm = SBOApplication.Forms.ActiveForm
        sbomatrix = sboForm.Items.Item("MyMatrix").Specific
        Try
            sboDtSrc_CHSVC1 = sboForm.DataSources.DBDataSources.Add("@XX_CHSVC1")
        Catch ex As Exception
            sboDtSrc_CHSVC1 = sboForm.DataSources.DBDataSources.Item("@XX_CHSVC1")
        End Try
        row = sbomatrix.GetNextSelectedRow(0, SAPbouiCOM.BoOrderType.ot_RowOrder)
        If sboDtSrc_CHSVC1.Size <= 1 Then
            SBOApplication.MessageBox("Não pode eliminar o ultimo registo, para eliminar este registo terá que primeiro inserir um outro.", 1, "&OK")
        Else
            If sboDtSrc_CHSVC1.GetValue("U_XX_CHSVC", row - 1) <> "" Then
                SBOApplication.MessageBox("Não pode eliminar este registo por já ter uma Chamada de serviço criada.", 1, "&OK")
            Else
                sboDtSrc_CHSVC1.RemoveRecord(row - 1)
                sbomatrix.LoadFromDataSource()
                sboForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
            End If
        End If
para llamar la sub tienes que interseptar el evento menuEvent:
Select Case pVal.MenuUID.ToUpper
  Case "1293"
    BubbleEvent = False
    RemoveLinhaMatrix(pVal)
Espero que esto te allude.
Sérgio Sousa