Document Add button - change a UDF so B1 writes value to tables

Question

When the user presses the add button on a document, like an invoice, I want to loop through the items matrix and update a UDF on each row, so that Business one will write my values in the UDFs to the line item table (INV1), but I can't figure out how.
2 problems: The first is all the message boxes that B1 sometimes displays (like document total is zero, or error messages like 'no tax code entered'.  I need to do my work AFTER these all occur, but just BEFORE the document is created.  WHEN do I do this?
The other problem is that it seems like when I've tried something like this before, My changes to anything on the screen cause B1 to re-fire the events and then cancel the Add.
I don't want users to change these fields after I've loaded them, and I'd rather not retrieve the document after it's added and then change the values.  I've found similar problems in the forum but none of them speaks exactly to this
Any ideas?
Thanks/Gracias/Dankeschoen/Merci/Danyavad/Toa chie

Answer 1

Hi John,
Hope you're doing well.
I suggest the formdataevent.
There is a example in the sdk.
This is what I use:
Public Sub FormDataEvent(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean) Handles UIAPP.FormDataEvent
            'Occurs when the application performs the following actions on forms connected to business objects:
            '            Add()
            '            Update()
            '            Delete()
            'Load form data via browse, link button, or find
            'The event provides the unique ID (BusinessObjectInfo.ObjectKey) of the modified business object.
            'You can use the value of this property as an input parameter in the DI API DataBrowser.GetByKeys method to get a DI object.
            Dim form As SAPbouiCOM.Form = UIAPP.Forms.Item(BusinessObjectInfo.FormUID)
            Dim bisObj As SAPbouiCOM.BusinessObject = form.BusinessObject
            Dim uid As String = bisObj.Key
            FormDataEventCommon.FormDataEventLogic(BusinessObjectInfo, BubbleEvent, bisObj, form)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(form)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(bisObj)
            form = Nothing
            bisObj = Nothing
            GC.Collect()
        End Sub
calls this function.
Public Function FormDataEventLogic(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean, ByRef bisobj As SAPbouiCOM.BusinessObject, ByRef form As SAPbouiCOM.Form) As Boolean
            Dim Test As Integer = form.Mode
            Dim mat As String = ""
            Dim Fld As String = ""
            Dim rep As String = ""
            Dim ColFlag As Boolean = False
            If BusinessObjectInfo.BeforeAction Then
                Select Case BusinessObjectInfo.EventType
                    Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD
                        Select Case BusinessObjectInfo.Type
                            Case "COMMISSION OBJ UDO"
                                Dim CommTblClass As New CommAdj_Class(form.UniqueID)
                                Dim StrLN As String = CommTblClass.GetFieldValue(form.UniqueID, "EMONLN")
                                If StrLN = "" Then
                                    CommTblClass.Displayerror("Please enter a load number")
                                    BubbleEvent = False
                                End If
                                CommTblClass.release()
                        End Select
                End Select
            Else
                Select Case BusinessObjectInfo.EventType
                    Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD
                        ' Addnew information for a new document
                        Select Case BusinessObjectInfo.Type
                            Case SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oOrders
                            Case SAPbobsCOM.BoObjectTypes.oInvoices
                            Case SAPbobsCOM.BoObjectTypes.oCreditNotes
                            Case SAPbobsCOM.BoObjectTypes.oReturns
                            Case SAPbobsCOM.BoObjectTypes.oQuotations
                            Case SAPbobsCOM.BoObjectTypes.oPurchaseInvoices
                            Case SAPbobsCOM.BoObjectTypes.oInventoryGenEntry
                            Case "COMMISSION OBJ UDO"
                        End Select
                    Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_UPDATE
                        ' Update exisitng Document
                        Select Case BusinessObjectInfo.Type
                            Case SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oInvoices
                            Case SAPbobsCOM.BoObjectTypes.oCreditNotes
                            Case SAPbobsCOM.BoObjectTypes.oReturns
                            Case SAPbobsCOM.BoObjectTypes.oOrders
                            Case SAPbobsCOM.BoObjectTypes.oQuotations
                            Case SAPbobsCOM.BoObjectTypes.oInventoryGenEntry
                            Case "COMMISSION OBJ UDO"
                        End Select
                    Case BoEventTypes.et_FORM_DATA_LOAD
                        Select Case BusinessObjectInfo.Type
                            Case SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes
                            Case SAPbobsCOM.BoObjectTypes.oInvoices
                            Case SAPbobsCOM.BoObjectTypes.oCreditNotes
                            Case SAPbobsCOM.BoObjectTypes.oReturns
                            Case SAPbobsCOM.BoObjectTypes.oOrders
                            Case SAPbobsCOM.BoObjectTypes.oQuotations
                        End Select
                End Select
            End If
            Return True
        End Function