Error -5002 when I insert quotation with DI API

Question

Hello everybody.
I come back to this project but I have always the same problem. I have upgrade a database from version 6.5 to 2004 patch 14.
Now I want to insert a new quotation with DI API.
But I have always the error -5002 in ErrCode variable.
Here the code:
    On Error GoTo Event_Handler
    Dim codcli, str, sel As String
    str = "Select CardCode From OCRD Where CardName = '" & codice_fiera & "' AND CardType = 'C'"
    oRS.DoQuery str
    codcli = CStr(oRS.Fields.Item(0).Value)
    Dim i As Integer
    Dim flag As Boolean
    Dim RetVal, RetValOrd As Long
    RetVal = 1
    RetValOrd = 1
    flag = True
    Set vQuotation = pCompany.GetBusinessObject(oQuotations)
    Dim NumOrd As Long
    Dim CodArt As String
    For i = 1 To N
            Set oEditText = oMatrice.Columns("col1").Cells.Item(i).Specific
            sel = oEditText.String
            If (sel <> "") Then
                If (flag) Then
                    vQuotation.Series = 1011
                    vQuotation.CardCode = codcli
                    vQuotation.HandWritten = tNO
                    vQuotation.DocDate = Date
                    vQuotation.DocDueDate = Date
                    Dim tipo_ord As String
                    Set oEditText = oMatrice.Columns("col11").Cells.Item(i).Specific
                    tipo_ord = CStr(oEditText.String)
                    str = "Select Code From [@CAUSALI] Where Name = '" & tipo_ord & "'"
                    oRS.DoQuery str
                    vQuotation.UserFields("U_tpor").Value = CStr(oRS.Fields.Item(0).Value)
                    flag = False
                End If
                    Set oEditText = oMatrice.Columns("col2").Cells.Item(i).Specific
                    CodArt = CStr(oEditText.String)
                    vQuotation.Lines.ItemCode = oEditText.String
                    Set oEditText = oMatrice.Columns("col3").Cells.Item(i).Specific
                    vQuotation.Lines.ItemDescription = oEditText.String
                    Set oEditText = oMatrice.Columns("col4").Cells.Item(i).Specific
                    vQuotation.Lines.Quantity = oEditText.String
                    Dim Qta As Double
                    Qta = Val(oEditText.String)
                    vQuotation.Lines.UserFields("U_qta_cons").Value = Qta
                    vQuotation.Lines.UserFields("U_tipo").Value = codice_fiera
                    Set oEditText = oMatrice.Columns("col9").Cells.Item(i).Specific
                    vQuotation.Lines.UserFields("U_Inizio").Value = oEditText.String
                    Set oEditText = oMatrice.Columns("col10").Cells.Item(i).Specific
                    vQuotation.Lines.UserFields("U_Fine").Value = oEditText.String
                    str = "ordine nr. "
                    Set oEditText = oMatrice.Columns("col6").Cells.Item(i).Specific
                    NumOrd = Val(oEditText.String)
                    str = str & oEditText.String
                    Set oEditText = oMatrice.Columns("col5").Cells.Item(i).Specific
                    str = str & " a " & oEditText.String
                    vQuotation.Lines.FreeText = str
                    str = "Select Price, DiscPrcnt, VatGroup, WhsCode From RDR1 Where DocEntry = " & NumOrd & " AND ItemCode = '" & CodArt & "'"
                    oRS.DoQuery str
                    vQuotation.Lines.Price = Val(oRS.Fields.Item(0).Value)
                    vQuotation.Lines.DiscountPercent = Val(oRS.Fields.Item(1).Value)
                    vQuotation.Lines.VatGroup = CStr(oRS.Fields.Item(2).Value)
                    vQuotation.Lines.WarehouseCode = CStr(oRS.Fields.Item(3).Value)
                    vQuotation.Lines.Add
                    str = "Select LineNum, U_qta_cons From RDR1 Where DocEntry = " & NumOrd & " And ItemCode = '" & CodArt & "'"
                    oRS.DoQuery str
                    Dim RigaNum As Long
                    RigaNum = oRS.Fields.Item(0).Value
                    Dim QtaCons As Double
                    QtaCons = Val(oRS.Fields.Item(1).Value) + Qta
                    str = "Update RDR1 Set U_qta_cons = " & QtaCons & "Where DocEntry = " & NumOrd & "And LineNum = " & RigaNum
                    oRS.DoQuery str
            End If
    Next
    If (Not flag) Then
        RetVal = vQuotation.Add
    End If
    Dim ErrCode As Long
    Dim ErrMsg As String
    If RetVal <> 0 Then
        pCompany.GetLastError ErrCode, ErrMsg
        str = "Offerta non generata!" & ErrCode & " " & ErrMsg
    Else
        str = "Offerta generata correttamente!"
    End If
    oMessaggio.Caption = str
Event_Handler:
    If Err.Number <> 0 Then
        SBOApplication.MessageBox (Err.Description)
    End If
Thanks for your help.
Regards,
Veronica Vezzali

Answer 1

Hi Veronica,
Be sure that you have created a posting period for 2005 (current year). I.e. Administration | System Initialisation | General Settings | Posting Periods.
After that you should be able to connect with your DI.
Marcel