Error in setting the linenum for new expenses document

Question

Hi all,
I have created an add-on procedure to add a new expenses document to a selected service call.  Although the code compiles without any errors, when I go back and check the expenses tab in the service call form, the new document doesnt appear in the expenses grid.  I also checked whether the data was saved into the corresponding SCL2 and SCL4 tables.  The new stock transaction is not saved into the service call.  My current code is:
Public Sub add_StockTransaction(ByVal strGRJobID As String, ByVal srtSTDocNo As String)
        Dim oServiceCall As SAPbobsCOM.ServiceCalls
        Dim oExp As SAPbobsCOM.ServiceCallInventoryExpenses
        Dim bRetVal As Boolean
        Dim errcode As Long
        Dim errmsg As String
        Try
            oServiceCall = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oServiceCalls)
            bRetVal = oServiceCall.GetByKey(strGRJobID)
            If Not bRetVal Then
                SBO_Application.MessageBox("Failed to Retrieve the record.")
                Exit Sub
            End If
            oExp = oServiceCall.Expenses
            oExp.Add()
            oExp.DocumentType = "67"
            oExp.DocumentNumber = strSTDocNo
            oExp.DocEntry = strSTDocNo - 99999
            SBO_Application.MessageBox(oExp.LineNum)
            oExp.SetCurrentLine(oExp.LineNum + 1)
            oExp.StockTransferDirection = 1
            oExp.Add()
            oServiceCall.Update()
            bRetVal = oServiceCall.Update()
            If bRetVal = False Then
                oCompany.GetLastError(errcode, errmsg)
                SBO_Application.MessageBox(errmsg)
            Else
                SBO_Application.MessageBox("Successfully added stock transaction to Service Call.")
            End If
        Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
end sub
I would appreciate any help as I tried so many ways of solving the problem but couldn't find a solution.  Thank you all in advance.

Answer 1

Bingo.... I got it.
Thanks for your hint about the ./.profile. I was setting env variables in .cshrc file and my default shell for "oracle" user was sh.
Then I changed the default shell for oracle user to csh and viola..... it works.
root@zngds1gk # su - oracle
$ id
uid=100(oracle) gid=101(dba)
$ setenv
HOME=/space/oracle
PATH=/space/oracle/app/oracle/product/10.2.0/Db_2/bin:/usr/bin:
LOGNAME=oracle
HZ=100
TERM=xterm
SHELL=/bin/sh
$ exit
root@zngds1gk # usermod -u 100 -s /bin/csh oracle
root@zngds1gk # su - oracle
zngds1gk%
zngds1gk% setenv
HOME=/space/oracle
PATH=/space/oracle/app/oracle/product/10.2.0/Db_2/bin:/usr/bin:
LOGNAME=oracle
HZ=100
TERM=xterm
SHELL=/bin/csh
zngds1gk% cat .cshrc
umask 022
setenv ORACLE_BASE /space/oracle/app/oracle
setenv ORACLE_SID adm
setenv DISPLAY 47.102.212.108:0.0
setenv ORACLE_HOME /space/oracle/app/oracle/product/10.2.0/Db_2
setenv PATH /space/oracle/app/oracle/product/10.2.0/Db_2/bin:$PATH
And now it works...
Thanks.
~Jayant