Use Stored Procedure to call up DI API

Question

HI all,
I will like to know whether i can use stored procedure to create DI API when i triggers on new document on particular customer?
Example:
Database A create AR Invoice then i triggers on it directly use stored procedure to call up DI API to create AP Invoice on Database B without create any necessary add-on on the same server.
Thank you.
Cheers,
danny

Answer 1

Hi Danny,
Sorry to inform you that it is impossible to call DI in stored procedure.
An AddOn handling FormDataEvent,  DI Event service and B1iSN would be the right approches to your requirement.
1.DI Event Service and B1iSN are solutions in server side. You can find DI EventService here:
SAP Business One Tools [original link is broken]
=>DI Event Service=>View this article
Then you can find a sample project in its installation folder.
2.AddOn soultion will be in the client of source company, just one addon is fine.
sample code:
Private Sub FormDataEventHandler( _
    ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, _
    ByRef BubbleEvent As Boolean) Handles oApp.FormDataEvent
        'You may add the target documents, 133 - A/R invoice.
        'Before action = true, start the transation
        If BusinessObjectInfo.FormTypeEx = "133" _
                And BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD _
                And BusinessObjectInfo.BeforeAction = True Then
            oCompany.StartTransaction()
            'BubbleEvent = False
        End If
        'Before Action = false,
        'Update product item tree
        'Succeed, commit, otherwise rollback
        If BusinessObjectInfo.FormTypeEx = "133" _
        And (BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD) Then
            If BusinessObjectInfo.BeforeAction = False And BusinessObjectInfo.ActionSuccess Then
                Dim objectKey As String = String.Empty
                oCompany.GetNewObjectCode(objectKey)
                MsgBox(BusinessObjectInfo.Type)
                Dim oInvoice As SAPbobsCOM.Payments = Nothing
                oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
                If oInvoice.GetByKey(CInt(objectKey)) Then
                    Dim paymentInvoices As SAPbobsCOM.Payments_Invoices = oInvoice.Invoices
                    Dim oInvoices As SAPbobsCOM.Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)                   
                    '======================================================================
                    'add you code to add A/P Invoice in company B
                    'oInvoices.GetByKey(***)
                    'lRetCode = add an A/P invoice according to A/R invoice above...
                    '======================================================================
                    'We don't need to rollback manually, it will be automatically rollbacked if any error ocurrs
                    If lRetCode = 0 Then
                        'update the production tree succesfully,
                        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
                    End If
                End If
            End If
        End If
    End Sub
Kind Regards, Yatsea