Add CodeBar to an Item using DI API (Add-On)

Question

Hi you all.
I am developing a ADD -On for version 9 and I am having a problem to add the barcode of a item.
In this new version the barcode must already be created on the table obcd BEFORE assign it to an item, as opposed to 8 in which this was a text field and you could put anything you wanted .
My problem is that I have a method in my add-on that is responsible for generating an automatic bar code when the user creates a new item, but I can not directly assign this barcode to the item as before ( Item.BarCode = XXXXX ) as I explained previously . Also, if I do it this way a new window pops up to define barcodes and is not what I want.
I've checked the SDK and mention two objects: SAPbobsCOM.BarCodesService and SAPbobsCOM.BarCode .
The problem is that when I try to instantiate them, an error come up .
                                Dim As New SAPbobsCOM.BarCodesService BarCodeService
                                BarCode Dim As New SAPbobsCOM.BarCode
                                BarCode.ItemNo = Code
                                BarCode.BarCode = Generar_Codigo_Barras (Code)
                                BarCodeService.Add ( BarCode )
Someone have idea why this is happenning?
I have also seen that there is a class called SAPbobsCOM.ItemsBarCodes but I can not not instantiate eather
Thanks in advance
Greetings.

Answer 1

Try this:
* Crea o actualiza un código de barras para un artículo en el formato correspondiente
void LOG_Util::creaActualizaEANSBO(const string &asItemCode, const string &asEAN, const string &asForm, const string &asDForm)
    SAPbobsCOM::ICompanyServicePtr lpCmpSer;
    SAPbobsCOM::IBarCodesServicePtr lpBCSer;
    SAPbobsCOM::IBarCodeParamsPtr lpBCPar;
    SAPbobsCOM::IBarCodePtr lpBC;
    SAPbobsCOM::IRecordsetPtr lRS;
    ostringstream sql;
    long lUomEntry, lBcdEntry;
    lRS = g->GetCmp()->GetBusinessObject(SAPbobsCOM::BoRecordset);
    lUomEntry = dameUomEntry(asForm);
    // Verificamos la existencia del EAN en la ficha del artículo de SBO
    sql << "SELECT BcdEntry";
    sql << " FROM OBCD";
    sql << " WHERE ItemCode = '" << asItemCode << "'";
    sql <<    " And Bcdcode = '" << asEAN << "'";
    lRS->DoQuery(sql.str().c_str());
    lpCmpSer = g->GetCmp()->GetCompanyService();
    lpBCSer = lpCmpSer->GetBusinessService(SAPbobsCOM::BarCodesService);
    if (lRS->GetEoF() == VARIANT_TRUE)
        // Tenemos que crear el EAN
        lpBC = lpBCSer->GetDataInterface(SAPbobsCOM::bsBarCode);
        lpBC->PutItemNo(asItemCode.c_str());
        lpBC->PutUoMEntry(lUomEntry);
        lpBC->PutBarCode(asEAN.c_str());
        lpBC->PutFreeText(asDForm.c_str());
        lpBCSer->Add(lpBC);
        lpBC.Release();
    else
        // Tenemos que actualizar el EAN
        lBcdEntry = lRS->GetFields()->Item("BcdEntry")->GetValue();
        lpBCPar = lpBCSer->GetDataInterface(SAPbobsCOM::bsBarCodeParams);
        lpBCPar->PutAbsEntry(lBcdEntry);
        lpBC = lpBCSer->Get(lpBCPar);
        lpBC->PutUoMEntry(lUomEntry);
        lpBC->PutFreeText(asDForm.c_str());
        lpBCSer->Update(lpBC);
        lpBC.Release();
        lpBCPar.Release();
    lpBCSer.Release();
    lRS.Release();