Text Lines SBO 2007

Question

Hi people.
I'm trying to add text lines in a quotation via DI with 2007 SDK but my code doesn't work!
This is:
                                oOferta.SpecialLines.Add()
                                If mNumSpLinea > 0 Then
                                    oOferta.SpecialLines.SetCurrentLine(mNumSpLinea)
                                End If
                                oOferta.SpecialLines.LineType = SAPbobsCOM.BoDocSpecialLineType.dslt_Text
                                oOferta.SpecialLines.LineText = xHoja.Range(mCelDes).Value.ToString.Trim
                                oOferta.SpecialLines.AfterLineNumber = mNumLinea + mNumSpLinea
                                mNumSpLinea = mNumSpLinea + 1
nNumSpLinea is a text lines counter because with general lines counter (from quotation) doesn't work.
AfterLineNumber doesn't affect. Doesn't work with or without this
I change this code trying to work but I lost!
Any ideas???
Thanks in advance
Juli P.

Answer 1

Hi,
I have tested SpecialLines adding in a Quotation and it works fine. I'm testing with PL11.
You have to pay attention and for each SpecialLine to be added you need first to call
Qut.SpecialLines.Add()
If you don't add first the SpecialLine then it will give you errors or ignore the added lines.
Please check the SDK Help File, the following sample is there:
Sub AddSpecialLine()
        'Adding special line
        'Assume Qut is an existing Quotation Document Object
        Qut.SpecialLines.Add()
        'Setting the type of special line to be sub total
        Qut.SpecialLines.LineType = SAPbobsCOM.BoDocSpecialLineType.dslt_Subtotal
        'Setting the after line number
        'A number that says after which line the special line will appear
        Qut.SpecialLines.AfterLineNumber = 2
        'Check for errors
        lRetCode = Qut.Update()
        If lRetCode <> 0 Then
            oCompany.GetLastError(lErrCode, sErrMsg)
            MsgBox(lErrCode & " " & sErrMsg) ' Display error message
        Else
            MsgBox("Special Lines Added")
        End If
End Sub
Hope it helps
Trinidad.