Adding Journal Vouchers

Question

Hello there,
I am having a problem adding Journal Vouchers to SAP using the DIAPI. I have gotten everything from an "Unbalanced Transaction Error" to a "Date deviates from permissible range Error". Here is my code in VB. Please if anyone can help it would be much appreciated
(I am reading a recordSet object to populate the fields of the journal voucher)
''set up the header of the journal voucher
oJV.JournalEntries.ReferenceDate = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Reference = oRecord.Fields.Item("Descr").ValidValue
''set up the lines of the journal entries
syscode = oRecord.Fields.Item("SysCode").Value
oJV.JournalEntries.Lines.SetCurrentLine(lineCount)
oJV.JournalEntries.Lines.DueDate = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.ReferenceDate1 = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.ReferenceDate2 = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.VatDate = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.TaxDate = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.AccountCode = oRecord.Fields.Item("SysCode").Value
oJV.JournalEntries.Lines.ShortName = oRecord.Fields.Item("SysCode").Value
oJV.JournalEntries.Lines.Reference1 = oRecord.Fields.Item("Descr").Value
If oRecord.Fields.Item("Debit").Value = 0 Then
                oJV.JournalEntries.Lines.Credit = oRecord.Fields.Item("Credit").Value
                oJV.JournalEntries.Lines.Debit = 0
End If
If oRecord.Fields.Item("Credit").Value = 0 Then
                 oJV.JournalEntries.Lines.Debit = oRecord.Fields.Item("Debit").Value
                oJV.JournalEntries.Lines.Credit = 0
End If
'if need be, add a line to the journal entry
If lineCount <> 1 Then
                oJV.JournalEntries.Lines.Add()
End If
'every two lines in my record set it a journal entry
'so check if a journal is ready to be added
If lineCount Mod 2 <> 0 Then
'add a journal entry to the voucher
If oJV.JournalEntries.Add() <> 0 Then
          MessageBox.Show(oCompany.GetLastErrorDescription)
End If
lineCount = 0
  addedJE = True
End If
oRecord.MoveNext()
If addedJE = False Then
      lineCount += 1
End If
End While
''add the journal voucher
If oJV.Add() <> 0 Then
      MessageBox.Show(oCompany.GetLastErrorDescription)
End If
End Sub

Answer 1

Hi guys!
Thanks for your help.I have checked my debits and credits and I have simplified my code alot. I am able to now add a journal voucher with one journal with multiple lines. The problem seems to have been when i tried to call oJV.JournalEntries.Add(). It seems you just have to add the JournalLines and then the actual Journal Voucher.
That is all fine but now i am having a problem setting different Posting Date (ReferenceDate on the Object), DueDate(DueDate on the Object) and Document Date (TaxDate on the Object).
The Journal Voucher is added to SAP but all three dates are the same when in my code, i have set the Document Date to be different from the Posting Date. Could this be because I am using a Document Date of 19/12/07 and a Posting Date of 23/11/07 ( in another period)??? i dont knw. Please help if you can. My code is below :
''set up the lines
syscode = oRecord.Fields.Item("SysCode").Value
oJV.JournalEntries.Lines.SetCurrentLine(lineCount)
''Set Dates on lines
oJV.JournalEntries.Lines.ReferenceDate1 = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.DueDate = FormatDateTime(oRecord.Fields.Item("PosDate").Value, vbShortDate)
oJV.JournalEntries.Lines.TaxDate = FormatDateTime(oRecord.Fields.Item("DocDate").Value, vbShortDate) ''Doc Date*******
oJV.JournalEntries.Lines.AccountCode = oRecord.Fields.Item("SysCode").Value
oJV.JournalEntries.Lines.Reference1 = oRecord.Fields.Item("Descr").Value
If oRecord.Fields.Item("Debit").Value = 0 Then
   oJV.JournalEntries.Lines.Credit = oRecord.Fields.Item("Credit").Value
   oJV.JournalEntries.Lines.Debit = 0
End If
If oRecord.Fields.Item("Credit").Value = 0
   oJV.JournalEntries.Lines.Debit = oRecord.Fields.Item("Debit").Value
   oJV.JournalEntries.Lines.Credit = 0
End If
oJV.JournalEntries.Lines.Add()
oRecord.MoveNext()
If addedJE = False Then
     lineCount += 1
End If
pbStatus.Value += 1
End While
If oJV.Add() <> 0 Then
    MessageBox.Show( oCompany.GetLastErrorDescription)
    squery = squery.Replace("'", "")
End If
Kind regards,
Greeshma