I think the first questions to ask are always; What do you already have created/setup that you can use? And What tool are you most familiar with?
My favorite tool is VBA so that is my go to. I use the code below to import the accounts when creating a new company. Our COA is the same for all companies except for the first segment which represents the store (restaurant). So it is very easy to export all of the accounts from a Smart list to Excel, change the first segment and save as a csv. Then just import it using the routine.
For this case it will obviously have to be a 2 step process. 1) Create any accounts that don't already exist for the distributions. 2) Create the Fixed Allocation Accounts.You can easily try this code in a test environment by adding the Account Maintenance form and all fields to VBA. Then paste in the code and make sure all field references are working. You may have to teak a bit for your setup but it should pretty much work as is. We only have a couple of Fixed Allocation accounts and have always just set them up by hand. So you would have to create similar code for the Fixed Allocation form. I can help with that if needed because sometimes dealing with a grid can be tricking in VBA.
Just a qualifier; I know that there are many other (and some probably better) ways to do this now but I was using this method long before I had access the newer tools, so I just stick with what I know. Give me a shout off-line if you like.
'use this routine to import chart of accounts from a file
'uncomment all code then start by clicking on user defined 2
'DON'T FORGET TO SET THE STORE NUMBER
'YOU MUST FIRST MAKE THE ACCOUNT CATEGORIES MATCH THE EXPORTED STORE
'Dim acctnum As String, Dept As String, desc As String, posttype As String, typbal As String, cat As String
'Private Sub UserDefined2_AfterGotFocus()
' AccountMaintenance.Clear.Value = 1
' Open "S:\stores\153\GPCOA.csv" For Input As #1
' Do While EOF(1) = False
' Input #1, acctnum, Dept, desc, posttype, typbal, cat
' AccountMaintenance.Account.Value = "153-" & acctnum & "-" & Dept
' AccountMaintenance.Description.Value = desc
' AccountMaintenance.Category.Value = RTrim(cat)
' If posttype = "Balance Sheet" Then
' AccountMaintenance.PostingType.Value = 0
' ElseIf posttype = "Profit and Loss" Then
' AccountMaintenance.PostingType.Value = 1
' MsgBox ("Posting Type is wrong")
' End If
' If typbal = "Debit" Then
' AccountMaintenance.TypicalBalance.Value = 0
' ElseIf typbal = "Credit" Then
' AccountMaintenance.TypicalBalance.Value = 1
' MsgBox ("Typical Balance is wrong")
' AccountMaintenance.Save = 1
If you've found this thread useful, dive deeper into User Group community content by role