Показано с 1 по 1 из 1

Тема: Как отсортировать список по поставщику?

  1. #1
    Новичок
    Регистрация
    11.05.2012
    Адрес
    Krasnodar
    Сообщений
    1
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)

    Как отсортировать список по поставщику?

    Дали задание разобраться в обработке импорта документов из SH в 1С. Обработка вытягивает документы по типам в соответствующие табличные частипоступление товаров и услуг, реализация товаров и услуг, отчет о розничных продажах, возврат товаров поставщику, инвентаризация товаров на складе, списание товаров, оприходование товаров, перемещение товаров, требование накладная, отчет производства за смену, акт переработки).
    Задача стоит в том, чтобы при выборе разных фирм обработка выбирала разные документы по принципу: по фирме "Луна 2312" документы по получателям "Бар", для "Луна" по всем остальным; так же если получатель "Реализация через кассу" нужно посмотреть на поставщика, там принцип такой же как и с получателем. На данный момент процедура выбирает документы в заданном периоде и просто приписывает название выбраной организации.
    Тут http://www.carbis.ru/forum/sh-Органи...ь-в-sh4.html не нашел нужной функции и написал вот такую залипуху:

    Перем Query2310;
    Перем Query2312;
    sh = Новый COMОбъект("Sh4Ole.Sh4App"); //олесервер, прилагается к Сторе, доп регистрируется в каталоге SH4
    Query = sh.DocFList(НачПериода,КонПерио да, 0, 0, 0); //запрос на полный список документов в Сторе в периоде
    Пока sh.EOF(Query) <> 1 Цикл
    Если Лев(sh.ValByName(Query,"1.102.4.3"),3) = "Бар" Тогда Query2312.Добавить(Query); // "Луна 2312"
    ИначеЕсли sh.ValByName(Query,"1.102.4.3") = "Реализация через кассу" Тогда
    Если Лев(sh.ValByName(Query,"1.102.4.2"),3) = "Бар" Тогда Query2312.Добавить(Query); // "Луна 2312"
    Иначе Query2310.Добавить(Query); // "Луна"
    КонецЕсли;
    Иначе Query2310.Добавить(Query); // "Луна"
    КонецЕсли;
    sh.Next(Query)
    КонецЦикла;
    Если Организация = ("ООО ""Луна"" 2312") Тогда
    Query = Query2312;
    ИначеЕсли Организация = "ООО ""Луна""" Тогда
    Query = Query2310;
    КонецЕсли;

    Дальше процедура заполняет табличные части орерируя со списком Query...

    Может быть есть какая-нибудь процедура сортировки или же можно реализовать данную задачу с помощью запроса?
    Заранее благодарен.
    Изображения Изображения
    Последний раз редактировалось SH; 11.05.2012 в 20:56.

Похожие темы

  1. Список карт скидок.
    от iclub в разделе R-Keeper 6
    Ответов: 6
    Последнее сообщение: 15.10.2010, 15:35

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •