DI Special Prices Invalid Date Range - SAP 8.8 Patch 10

Question

Hi Gurus,
I have seen many posts concerning this particular problem but no solution.
Most posts were for SAP 2005.
I have Patch 10 in 8.8 and am still getting this error.
I have simplified my code to the lowest level and its still giving me the same message.
As you can see from the code bellow, i have tried different types of formats for the date and nothing works.
Dim oSPrices As SAPbobsCOM.SpecialPrices = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oSpecialPrices)
        oSPrices.CardCode = "C110124"
        oSPrices.ItemCode = "B"
        oSPrices.Currency = "$"
        oSPrices.Price = 12.5
        oSPrices.PriceListNum = 8
        oSPrices.SpecialPricesDataAreas.SetCurrentLine(0)
        oSPrices.SpecialPricesDataAreas.DateFrom = "2010/07/03" '"2010-07-03" 'New Date(2010, 7, 3)
        oSPrices.SpecialPricesDataAreas.Dateto = "2010/07/16" '"2010-07-16" 'New Date(2010, 7, 16)
        oSPrices.SpecialPricesDataAreas.PriceListNo = 8
        oSPrices.SpecialPricesDataAreas.AutoUpdate = SAPbobsCOM.BoYesNoEnum.tNO
        oSPrices.SpecialPricesDataAreas.Add()
        oSPrices.SpecialPricesDataAreas.SpecialPricesQuantityAreas.SetCurrentLine(0)
        oSPrices.SpecialPricesDataAreas.SpecialPricesQuantityAreas.Quantity = 1
        oSPrices.SpecialPricesDataAreas.SpecialPricesQuantityAreas.SpecialPrice = 12.5
        oSPrices.SpecialPricesDataAreas.SpecialPricesQuantityAreas.Add()
        If oSPrices.Add <> 0 Then
          MsgBox(oCompany.GetLastErrorDescription)
        End If
This is a very pressing issue so any help would be much appreciated.
Thanks!
Denis

Answer 1

I finally made it.  Hope this code will help others :
if (SpecialPrices.GetByKeyDiscounts(ItemCode, SelectedListNum))
    SpecialPrices.SpecialPricesDataAreas.SetCurrentLine(SpecialPrices.SpecialPricesDataAreas.Count - 1);
    SpecialPrices.SpecialPricesDataAreas.Dateto = dtpDateFrom.Value.AddDays(-1);
    OldPriceFromExisting = SpecialPrices.SpecialPricesDataAreas.SpecialPrice / Factor == 0 ? 1 : Factor;
    if (NewPrice == 0 && Augmentation != 0 && Factor != 0 && OldPriceFromExisting != 0)
        NewPrice = (Augmentation * Factor) + OldPriceFromExisting;
    else
        NewPrice = NewPrice * Factor;
    if (SpecialPrices.Update() != 0)
        int ErrCode = -1;
        string ErrMsg = "";
        oCompany.GetLastError(out ErrCode, out ErrMsg);
        MessageBox.Show("ERREUR SAP : " + ErrCode.ToString() + " - " + ErrMsg);
        IsThereError = true;
        break;
    else
        SpecialPrices.SpecialPricesDataAreas.Add();
        SpecialPrices.SpecialPricesDataAreas.PriceListNo = SelectedPriceList.ListNum;
        SpecialPrices.SpecialPricesDataAreas.DateFrom = dtpDateFrom.Value;
        SpecialPrices.SpecialPricesDataAreas.SpecialPrice = NewPrice;
        if (SpecialPrices.Update() != 0)
            this.Enabled = false;
            Cursor.Current = Cursors.WaitCursor;
            MessageBox.Show("ERREUR SAP : " + oCompany.GetLastErrorCode().ToString() + " - " + oCompany.GetLastErrorDescription());
            Application.DoEvents();
            Cursor.Current = Cursors.WaitCursor;
            tsslInfo.Text = "Relâchement de l'objet SAP.  Un instant s.v.p...";
            ssInfo.Refresh();
            IsThereError = true;
            break;
        else
            if (SelectedPriceList.ListType != '*')
                ViewItems.SetRowCellValue(iRow, "PricePer12", NewPrice);
            AtLeastOneChange = true;