Re: How can I add the new subject to an activity type?

Hi Johan,

Dim oRec As SAPbobsCOM.Recordset =...(SAPbobsCOM.BoObjectTypes.BoRecordset)

Dim sSQL AsString

Dim oContact As SAPbobsCOM.Contacts = ...(BoObjectTypes.oContacts)

Contact.Activity= BoActivities.cn_Task

oContact.Notes= sDescription

oContact.Details= sRemark

oContact.Closed= BoYesNoEnum.tNO

sSQL = "SELECT OCLT.Code FROM OCLT WHERE OCLT.Name = '"& "XXX"& "' "

oRec.DoQuery(sSQL)

If oRec.RecordCount = 0 Then

  Dim oActivityTypes As SAPbobsCOM.ActivityTypes = ...(BoObjectTypes.oActivityTypes)

oActivityTypes.Name = "XXX"

oActivityTypes.Add()

   
oContact.ActivityType = cInit.getInstance.getSboCompany.GetNewObjectKey()

Else

     oRec.MoveFirst()

     oContact.ActivityType = oRec.Fields.Item(0).Value

EndIf

sSQL = "SELECT OCLS.Code FROM OCLS WHERE OCLS.Name = '"& "YYY"& "' "

oRec.DoQuery(sSQL)

If oRec.RecordCount = 0 Then

             
     Here I want add a new Subject

Else

oRec.MoveFirst()

oContact.Subject = CType(oRec.Fields.Item(0).Value,Integer)

EndIf

oContact.Add()

Kind Regards

Lena