Цитата(nickles @ 12.09.13, 20:48)

Функция РезультатПроверкиАртикула(Объект,Товар) Экспорт
    Результат=Объект.Драйвер.GetArtInfo(Число(Товар.Артикул));                     // читем информацию о артикуле в Датексе 
    Если Не ЗначениеЗаполнено(Результат) Тогда                                     // Товара в датексе нет и мы его программируем ... 
        ПризнакСтавкиНДС=?(Товар.Номенклатура.СтавкаНДС=Перечисления.СтавкиНДС.НДС20,192,193);
        Если Объект.Драйвер.ProgramArt(ПризнакСтавкиНДС,Число(Товар.Артикул),1,Товар.Цена,"0000",Лев(СокрЛП(Товар.Номенклатура.Наименование),24))=0 Тогда
            //[in] unsigned char Tax -  налоговая группа (возможные значения - А, Б, В, Г, Д), 
            //      передается не строкой,а числом 
            //[in] int NumArt - номер артикула, под которым артикул будет известен регистратору для 
            //      проведения продаж и возвратов (от 1 до 14800).
            //[in] int Group - номер товарной группы (от 1 до 99)
            //[in] double Price - стоимость единицы товара
            //[in] BSTR Password - пароль оператора для программирования (по умолчанию в регистраторе этот пароль "0000")
            //[in] BSTR Name - название артикула (24 символа, либо две строки не более 24 символа в каждой разделенные
            //        символом 09H) 
            Предупреждение("Невозможно присвоить артикул - сообщите в офис !"); Возврат Неопределено;
        КонецЕсли;
    Иначе         // Товар уже программировался - проверка 
        Для инд=1 По 8 Цикл поз=Найти(Результат,",");
            Если инд=1 Тогда АртикулДатекса=Лев(Результат,поз-1); КонецЕсли;
            Результат=Прав(Результат,СтрДлина(Результат)-поз);     
            Если инд=3 Тогда поз=Найти(Результат,","); ЦенаДатекса=Число(Лев(Результат,поз-1)); КонецЕсли;
        КонецЦикла; 
        Если Число(АртикулДатекса)=Число(Товар.Артикул) Тогда                      // Артикул уже продавался можем изменить цену если нужно 
            Если Товар.Цена<>ЦенаДатекса Тогда 
                //ТекстВопроса="Внимание - обнаружено изменение цены."+Символы.ПС+
                //"В РРО цена  - "+Формат(ЦенаДатекса,"Ч12.2")+Символы.ПС+
                //"В документе - "+Формат(Товар.Цена,"Ч12.2")+Символы.ПС+ "Изменить цену в РРО ?";
                //Если Вопрос(ТекстВопроса,РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Да Тогда
                Объект.Драйвер.ChangePrice(Число(Товар.Артикул),Товар.Цена,"0000"); 
                //Иначе    
                //    Предупреждение("Цена не изменилась.Продажа будет по старой цене.");
                //КонецЕсли;
            КонецЕсли;                
        КонецЕсли; 
    КонецЕсли;
    Возврат Истина;
КонецФункции