Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 16:43

v8: Обмен данными между СуперОкна 7 и 1с 8

Автор Zeratul, 28 ноя 2011, 09:08

0 Пользователей и 1 гость просматривают эту тему.

Zeratul

Привет! Кто-нить сталкивался с обработки для переноса документов из ПП Суперокна 7 в 1с 8 БП или УТ?
я написал обработку по выгрузке данных, все отлично получилось кроме одного, не выгружаются аксессуары с пометкой "аксессуары дилера"! Кто знаетв какой таблице и поле хранится данные??

Zeratul

Вот мой запрос по аксессуарам


   //Аксесуары
   ТекстЗапрос =
    "SELECT ORDSPEC.INVNO, ORDSPEC.DEPNO, ORDSPEC.PRICE, ARTIKLS.UNNO,
    |ORDSPEC.TOTQTY as KOLVO, ORDSPEC.DOP, ORDSPEC.ARTNO, ARTIKLS.ARTIKLCLR, ARTIKLS.NAME, ARTIKLS.ARTNO
    |FROM ORDSPEC, ARTIKLS
    |WHERE
    |ORDSPEC.INVNO = "+Формат(Номер, "ЧГ=; ЧН=")+" AND ORDSPEC.DEPNO = "+Формат(Номер2, "ЧГ=; ЧН=")+"AND ORDSPEC.DOP = 1
    |AND ORDSPEC.ARTNO = ARTIKLS.ARTNO AND ORDSPEC.CLRNO = ARTIKLS.CLRNO";
   Запрос.Open(ТекстЗапрос);     
   Пока Запрос.EOF() = 0 Цикл   
        СтрТаб = Таблица.Добавить(); 
        СтрТаб.Номенклатура = ОбработатьНоменклатуру(Запрос.Fields("ARTIKLCLR").Value, " - "+Запрос.Fields("NAME").Value, Запрос.Fields("UNNO").Value);
        СтрТаб.Цена = Запрос.Fields("PRICE").Value * КурсВалюты;
        СтрТаб.Цена = СтрТаб.Цена - ?(СкидкаПроцАксесуар > 0, СтрТаб.Цена * (СкидкаПроцАксесуар/100), 0);
        СтрТаб.Цена = СтрТаб.Цена - ?(ОбщаяСкидка > 0, СтрТаб.Цена * (ОбщаяСкидка/100), 0);
        СтрТаб.Количество = Запрос.Fields("KOLVO").Value;
        СтрТаб.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
       
      Запрос.MoveNext();
   КонецЦикла;
   Запрос.Close();

Zeratul


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск