Seperate Document Row with same account when post GL

Question

Hello everyone
How I can seperate Document Row with same account  when post GL
because If I post dcoument that  have many rows but same account and difference detail. It will sum amount for same account in JE
and I found that will seperate if it has diference project code but it's not enough for me.
How I can config SAP B1 to seperate Doc row when post to JE if it has difference detail (as userfield or standard filed)
Sorry for my poor english
Thank,Seang

Answer 1

Hello Suthee,
Sorry to tell you, it is not possible to do so in current B1 without addon development.
There are 2 alternative.
1.Consulting Workaround:
Seperate the Item into 2 items, the account into 2 sub accounts.e.g.
Item A => Item A01 and A02
G/L Account 1001 => Sub Account 100101 and 100102
2.AddOn development to seperate the JE just after it is created document
You can update to JE to seperate just after JE are created by docuemnts.
Just Listen FormDataAdd Event.
Sample Code:
Private Sub FormDataEventHandler( _
    ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, _
    ByRef BubbleEvent As Boolean) Handles oApp.FormDataEvent
        'I just listen 133 - AR invoice here,
        'You may add the target documents
        'Before action = true, start the transation
        If BusinessObjectInfo.FormTypeEx = "133" _
                And (BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD _
                Or BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_UPDATE) _
                And BusinessObjectInfo.BeforeAction = True Then
            oCompany.StartTransaction()
        End If
        'Before Action = false,
        'Update the JE in document
        'Succeed, commit, otherwise rollback
        If BusinessObjectInfo.FormTypeEx = "133" _
        And (BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD _
        Or BusinessObjectInfo.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_UPDATE) Then
            If BusinessObjectInfo.BeforeAction = False And BusinessObjectInfo.ActionSuccess Then
                Dim xmlDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument
                xmlDoc.LoadXml(BusinessObjectInfo.ObjectKey)
                Dim objectKey As String
                objectKey = xmlDoc.SelectSingleNode("//DocEntry").InnerText
                Dim oDocument As SAPbobsCOM.Documents = Nothing
                oDocument = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseOrders)
                If oDocument.GetByKey(CInt(objectKey)) Then
                    Dim oJE As SAPbobsCOM.JournalEntries
                    oJE = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalEntries)
                    If oJE.GetByKey(oDocument.TransNum) Then
                        '*Add you code to Update oJE lines here*
                        lRetCode = oJE.Update
                        If 0 <> lRetCode Then
                            oApp.MessageBox("Failed to update JE")
                            'roll back the whole transaction, including the document
                            oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack)
                            Exit Sub
                        Else
                            'Commit the transaction
                            oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
                        End If
                    End If
                End If
            End If
        End If
    End Sub
Hope it helps. Thanks.
Kind Regards
-Yatsea