Problem posting budgets in SAP 2005 patch 12

Question

Hi
I am trying to import budgets into SAP for the first time. The problem I am getting is that after I add the object my system just hangs with no error code returned.
I can't seem to see any examples or help on this
Can anyone help me please ?
Regards Andy
Dim obudget As SAPbobsCOM.Budget
Set obudget = ocompany2.GetBusinessObject(SAPbobsCOM.BoObjectTypes.obudget)
obudget.AccountCode = "_SYS00000000143"
obudget.BudgetScenario = 2
obudget.TotalAnnualBudgetCreditLoc = 1200
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 1
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 2
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 3
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 4
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 5
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 6
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 7
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 8
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 9
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 10
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 11
obudget.Lines.Add
obudget.Lines.BudgetSysTotCredit = 100
'obudget.Lines.RowNumber = 12
lretcode = obudget.AccountCode
If lretcode = 0 Then
Else
    ocompany2.GetLastError lErrCode, sErrMsg
    MsgBox sErrMsg
End If

Answer 1

Hi Andy / Paul,
To me it looks like you have found some bug, but I am not 100% sure...
No matter what you do differently it looks like you can only add a new budget record only when you set the budgets for local currency in the lines (tested on 2005A SP01 PL16):
obudget.Lines.BudgetTotCredit = 100
HTH,
Frank