Copy Customer Ref No to Vendor Ref No when create back to back Order

Question

Hi,
I would like to copy Customer Ref No to Vendor Ref No when create back to back Sales Order to Purchase Order.  Please suggest a way.
Does i need to do before form add?
If BusinessObjectInfo.FormTypeEx = "65" And BusinessObjectInfo.BeforeAction = True Then
End If
Please help!
Regards,
Anna

Answer 1

Hello Anna,
You should update purchase order (copy the customer no ref to the vendor ref) after action (pVal = false), see the sample code here.
Private Sub FormDataEventHandler( _
    ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, _
    ByRef BubbleEvent As Boolean) Handles oApp.FormDataEvent
        'Before action = true, start the transation
        If BusinessObjectInfo.FormTypeEx = "65" _
                And (BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD) _
                And BusinessObjectInfo.BeforeAction = True Then
            oCompany.StartTransaction()
        End If
        'Before Action = false,
        'Update purchase order
        'Succeed, commit, otherwise rollback
        If BusinessObjectInfo.FormTypeEx = "65" _
        And (BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD ) Then
            If BusinessObjectInfo.BeforeAction = False And BusinessObjectInfo.ActionSuccess Then
                Dim objectKey As String = String.Empty
                'Get the purchase order key added right now
                oCompany.GetNewObjectCode(objectKey)
                Dim oPurchaseOrder As SAPbobsCOM.Documents = Nothing
                oPurchaseOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseOrders)
                If oPurchaseOrder.GetByKey(CInt(objectKey)) Then
                    Dim oLines As SAPbobsCOM.Document_Lines = oPurchaseOrder.Lines
                    Dim salseOrderNum As String = oLines.BaseEntry
                    'add you code to get the custoemr ref of the sales order and set it the purchase order
                    lRetCode = oPurchaseOrder.Update
                    If lRetCode = 0 Then
                        'update the production tree succesfully,
                        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
                    Else
                        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack)
                    End If
                End If
            End If
        End If
    End Sub
Kind Regards
-Yatsea