Cannot add journal entries programmatically

Question

Hi everyone
I'm not able to insert Journal entries in the database.
I'm using SAP Business One DI API Version 2007 and a copy of the database SBODemoUS. The code I'm using is inspired by the example in the SDK Help.
I'm trying to add journal entries to the company database. When I execute the code, I get a System Message:
[JDT1.Account][line:1],'Tax account has not been defined for the selected tax code', even though I'm not using a tax code. But when I assign a value to the property .TaxCode, I get a System Message: You can edit VAT fields only in Automatic VAT mode [JDT1.TaxCode][line: 1].
I'm able to create journal entries manually in SAP B1 using the same information that I'm using in my code. But I cannot create journal entries programmatically.
Here is the code that I'm using:
   Private Sub ImportJournalEntry()
      Dim rt As Long
      Dim errCode As Long
      Dim errMsg As String
      oCompany.Server = "PERSONNE-6D3DBE"
      oCompany.CompanyDB = "MYSBODEMO"
      oCompany.UserName = "manager"
      oCompany.Password = "manager"
      oCompany.language = 3
      oCompany.UseTrusted = False
      oCompany.DbServerType = BoDataServerTypes.dst_MSSQL2005
      oCompany.DbPassword = "sapwd"
      oCompany.DbUserName = "sa"
      rt = oCompany.Connect()
      If rt <> 0 Then
         oCompany.GetLastError(errCode, errMsg)
      Else
         Dim entries As SAPbobsCOM.JournalEntries =               DirectCast(Me.oCompany.GetBusinessObject(BoObjectTypes.oJournalEntries), JournalEntries)
         Dim str2 As String
         Try
            entries.TaxDate = DateTime.Now.ToShortDateString
            entries.StornoDate = DateTime.Now.ToShortDateString
            entries.ReferenceDate = DateTime.Now.ToShortDateString
            'First line
            'entries.Lines.TaxCode = "CA"
            entries.Lines.AccountCode = "112200000100101"
            entries.Lines.ShortName = "Cash at Bank "
            entries.Lines.Debit = 0
            entries.Lines.Credit = 125
            entries.Lines.Add() 'Add
            'Second line
         'entries.Lines.TaxCode = "CA"
            entries.Lines.AccountCode = "611000000100101"
            entries.Lines.ShortName = "Travel Expense"
            entries.Lines.Debit = 125
            entries.Lines.Credit = 0
            entries.Lines.Add() 'Add
            If entries.Add <> 0 Then
               Dim num As Integer
               Me.oCompany.GetLastError(num, str2)
               SBO_Application.MessageBox(str2)
            Else
               SBO_Application.MessageBox("Import was successful!")
            End If
            oCompany.Disconnect()
         Catch exception1 As Exception
            SBO_Application.MessageBox(exception1.Message.ToString & _
                  "   Source = " & exception1.Source.ToString & _
                  "    TargetSite = " & exception1.TargetSite.ToString & _
                  "    StackTrace = " & exception1.StackTrace.ToString)
            oCompany.Disconnect()
         End Try
      End If
   End Sub
Thanks for any help

Answer 1

Hello Vitor
Thanks, I got the code to work. You were right about debit or credit, not both. I also removed the tax code.
But the main reason I think it didn't work is because the account code I was using was incorrect. Since the company is using segmentation for their account code, we are suppose to use the account key, not the account code. In order to get the account key I found this function:
Private Function GetAccountKey(ByVal v_sAccountCode As String) As String
      Dim oSBObob As SAPbobsCOM.SBObob
      Dim oRecordSet As SAPbobsCOM.Recordset
      Dim oChartOfAccounts As SAPbobsCOM.ChartOfAccounts
      Dim sStr As String
      '// Get an initialized SBObob object
      oSBObob = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
      '// Get an initialized Recordset object
      oRecordSet = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
      '// Get an initialized oChartOfAccounts object
      oChartOfAccounts = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oChartOfAccounts)
      '// Execute the SBObob GetObjectKeyBySingleValue method
      oRecordSet = oSBObob.GetObjectKeyBySingleValue(SAPbobsCOM.BoObjectTypes.oChartOfAccounts, "FormatCode", v_sAccountCode, SAPbobsCOM.BoQueryConditions.bqc_Equal)
      sStr = oRecordSet.Fields.Item(0).Value
      GetAccountKey = sStr
   End Function
So the final code looks like this. Although I don't pretend to have perfect code, I'm able to add journal entries.
Private Sub ImportTitan2()
      Dim rt As Long
      Dim errCode As Long
      Dim errMsg As String
      Dim sAccountKey As String
      oCompany.Server = "PERSONNE-6D3DBE"
      oCompany.CompanyDB = "MYSBODEMO"
      oCompany.UserName = "manager"
      oCompany.Password = "manager"
      oCompany.language = 3
      oCompany.UseTrusted = False
      oCompany.DbServerType = BoDataServerTypes.dst_MSSQL2005
      oCompany.DbPassword = "sapwd"
      oCompany.DbUserName = "sa"
      rt = oCompany.Connect()
      If rt <> 0 Then
         oCompany.GetLastError(errCode, errMsg)
      Else
         Dim entries As SAPbobsCOM.JournalEntries = DirectCast(Me.oCompany.GetBusinessObject(BoObjectTypes.oJournalEntries), JournalEntries)
         Dim str2 As String
         Try
            entries.TaxDate = DateTime.Now.ToShortDateString
            entries.StornoDate = DateTime.Now.ToShortDateString
            entries.ReferenceDate = DateTime.Now.ToShortDateString
            'First line
            entries.Lines.SetCurrentLine(0)
            sAccountKey = GetAccountKey("112200000100101")
            entries.Lines.AccountCode = sAccountKey    'Account code
            entries.Lines.ShortName = sAccountKey
            entries.Lines.Credit = 300
            entries.Lines.Add() 'Add
            'Second line
            entries.Lines.SetCurrentLine(1)
            sAccountKey = GetAccountKey("611000000100101")
            entries.Lines.AccountCode = sAccountKey   'Account code
            entries.Lines.ShortName = sAccountKey
            entries.Lines.Debit = 300
            entries.Lines.Add() 'Add
            If entries.Add <> 0 Then
               Dim num As Integer
               Me.oCompany.GetLastError(num, str2)
               SBO_Application.MessageBox(str2)
            Else
               SBO_Application.MessageBox("Import was successful!")
            End If
            oCompany.Disconnect()
         Catch exception1 As Exception
            SBO_Application.MessageBox(exception1.Message.ToString & _
                  "   Source = " & exception1.Source.ToString & _
                  "    TargetSite = " & exception1.TargetSite.ToString & _
                  "    StackTrace = " & exception1.StackTrace.ToString)
            oCompany.Disconnect()
         End Try
      End If
   End Sub
Thank you for your help. You put me in the right direction.