Change data in matrix of order document

Question

hi
i developing the add-on for sap 9.0 (c#). And i have a problem.
i need to write in the matrix of order document the warehouse/project/Profit Center code for each item that user add.
maybe someone can give me a example code.
thanks.

Answer 1

hi..
yes u can update after adding the
   Try
            If (pVal.FormMode = "3" And pVal.ItemUID = "1" And pVal.BeforeAction = False And pVal.FormTypeEx = "139" And pVal.ActionSuccess = True And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED) Then
                oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
------ here u have to add the  code what u want to do...ok
   Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
The above code will be fire after adding the sales order success fully..
================================================
This is the sample  program i have done after adding successfully...
Try
            If (pVal.FormMode = "3" And pVal.ItemUID = "1" And pVal.BeforeAction = False And pVal.FormTypeEx = "139" And pVal.ActionSuccess = True And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED) Then
                oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
                Dim SDocNo As Integer = oForm.Items.Item("8").Specific.value
                Dim ORec11 As SAPbobsCOM.Recordset
                ORec11 = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                Rsql = "select max(DocEntry) as DocEntry from ordr"
                ORec11.DoQuery(Rsql)
                Dim RDocNo As Integer = ORec11.Fields.Item("DocEntry").Value
                Dim sitem As String
                Dim orec As SAPbobsCOM.Recordset
                orec = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                Dim sql As String
                sql = "select * from RDR1"
                orec.DoQuery(sql)
                Dim i12 As Integer = orec.RecordCount
                ' SBO_Application.SetStatusBarMessage("Document Added  Successfully")
                Dim RetVal As Long
                Dim ErrCode As Long
                Dim ErrMsg As String
                'Create the Documents object
                Dim OSorder As SAPbobsCOM.Documents
                OSorder = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
                If OSorder.GetByKey(RDocNo) Then
                    Dim ORec1 As SAPbobsCOM.Recordset
                    ORec1 = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                    Rsql = "select COUNT(*) as total from RDR1  where rdr1.DocEntry =" & RDocNo & ""
                    ORec1.DoQuery(Rsql)
                    Dim Total_Lines As Integer = ORec1.Fields.Item("total").Value - 1
                    For i As Integer = 0 To Total_Lines
                        Dim ORec2 As SAPbobsCOM.Recordset
                        ORec2 = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                        Rsql = "select  rdr1.ItemCode   from RDR1  where  rdr1.DocEntry =" & RDocNo & " and rdr1.LineNum=" & i & ""
                        ORec2.DoQuery(Rsql)
                        Dim Line_Item As String
                        Line_Item = ORec2.Fields.Item(0).Value
                        Dim oRec3 As SAPbobsCOM.Recordset
                        oRec3 = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                        Rsql = "select oitm.TreeType  from OITM where  oitm.ItemCode ='" & Line_Item & "'"
                        oRec3.DoQuery(Rsql)
                        Dim Typ As String = oRec3.Fields.Item(0).Value
                        OSorder.Lines.SetCurrentLine(i)
                        If (Typ = "P" Or Typ = "A" Or Typ = "T" Or Typ = "S") Then
                            OSorder.Lines.UserFields.Fields.Item("U_BomSno").Value = "P" & p1
                            p1 = p1 + 1
                            c1 = 1
                        Else
                            OSorder.Lines.UserFields.Fields.Item("U_BomSno").Value = "C" & c1
                            c1 = c1 + 1
                        End If
                    Next
                    'Add the Invoice
                    RetVal = OSorder.Update
                    'Check the result
                    If RetVal <> 0 Then
                        ocompany.GetLastError(ErrCode, ErrMsg)
                        SBO_Application.MessageBox(ErrCode & " " & ErrMsg)
                    Else
                        SBO_Application.StatusBar.SetText("Document Updated Successfully....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
                    End If
                End If
            End If
        Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
    End Sub
=====
here what it is having is..
after adding successully the above code will be fire... ok..
immediatly u have to catch the  max sales order docentry
in it u have to check it..how many row items(rdr1)  are thee..
u use for loop
and update it..
and also change the fields
like  as per the ur requirement... ok..
       OSorder.Lines.ProjectCode
                        OSorder.Lines.DiscountPercent
                        OSorder.Lines.WarehouseCode