Домино 7.х - справочник товаров : Домино

ВЕРСИЯ=3
NAME= Импорт товаров в документ

// Один товар, или несколько товаров, по контрагенту из шапки документа

//Опишем используемые переменные
Integer НачалоИмпорта=0,
        НазваниеСовпало,
        СловоЕсть=0,
        СловоВведено=1,
        НомерКоличества=1,   //В Домино можно использовать несколько измерений количества (такая вот абстракция)
        НомерЦены=1;         //Номер цены для себестоимости

String ВыбранныйТоварКод,
       СловоДляПоиска,
       СтрокаКоличество,
       СтрокаЦены,
       СтрокаПараметры='';

//Опишем временную таблицу товаров (уникальные строки)
Table ВыбранныеТовары  unique
    (ВыбранныеТовары
       поля
       +ВыбранныйТоварКод);

//Опишем временную таблицу слов для поиска в наименовании
Table СловаДляПоиска  unique
    (СловаДляПоиска
       поля
       +СловоДляПоиска);


//Проверим, что строк ещё нет.
if ДОКУМЕНТ.ЕСТЬ_СТРОКИ
{
   ShowErrMessage('В документе - есть строки....||Импорт - невозможен!!!');
   Cancel;
}

//Узнаем, а как мы хотим выбирать товар
ВЫБОР.ИНИЦИАЛИЗАЦИЯ;
ВЫБОР.ДОБАВИТЬ_СТРОКУ('Выбираем один товар');
ВЫБОР.ДОБАВИТЬ_СТРОКУ('Выбираем несколько товаров');
ВЫБОР.ДОБАВИТЬ_СТРОКУ('Выбираем товары с определёнными словами в наименовании');

Case ВЫБОР.ВЫБРАТЬ(0,'Выберите режим работы')
{
     of 1: //Выберем один товар
           ТОВАР.ВЫБОР(0);
           ВыбранныйТоварКод = БАЗОВЫЙ_ТОВАР.КОД;
           //Запишем во временную таблицу
           add ВыбранныеТовары;

     of 2: //Выберем несколько товаров
           ТОВАР.ВЫБОР(1);
           //Пройдёмся по списку выбранных товаров
           Select Товары(1)
           {
                  after Товары.Товар:
                        ВыбранныйТоварКод = БАЗОВЫЙ_ТОВАР.КОД;
                        //Запишем во временную таблицу
                        add ВыбранныеТовары;
           };

     of 3: //Вводим слова для поиска товаров
           LOOP WHILE СловоВведено=1
           {
                //Запрашиваем слово
                СловоДляПоиска = ЗАПРОС.СТРОКА('Введите слово',0);
                //Если слово введено, то запомним его
                if СловоДляПоиска != ''
                {
                   СловоЕсть = 1;
                   add СловаДляПоиска;
                }
                else
                {
                   //Проверим - хотя бы одно слово ввели?
                   //Если да - то тогда можем выйти из цикла
                   if СловоЕсть = 1
                      СловоВведено=0;
                }
                   
           }
           //Теперь ищем товары, содержащие введённые слова
           Select Товар('ТОВАР.БАЗОВЫЙ')
           {
                  after Товар.ТоварБазовый:
                        НазваниеСовпало = 1;
                        Select СловаДляПоиска
                        {
                               after СловаДляПоиска:
                                     //В случае отсутствия искомого слова в названии - сбросим флаг "Найдено"
                                     if pos(UPPER(СловоДляПоиска),UPPER(ТОВАР.ИМЯ),1) = 0
                                        НазваниеСовпало = 0;
                        };
                        if НазваниеСовпало = 1
                        {
                           ВыбранныйТоварКод = БАЗОВЫЙ_ТОВАР.КОД;
                           //Запишем во временную таблицу
                           add ВыбранныеТовары;
                        }
           };
           

     else Halt;
}


//И теперь - бежим по нашей таблице ВыбранныеТовары
Select ВыбранныеТовары
{
       after ВыбранныеТовары:
             ТОВАР.КОД = ВыбранныйТоварКод;

              //Пробежимся по партиям товара
              //Не включая базовую карточку
              Select ПартионныеТовары(БАЗОВЫЙ_ТОВАР.КОД,0)
              {
                     after ПартионныеТовары.ТОВАР:
                           //Проверим, что товар нужного контрагента
                           if ТОВАР.ПОСТАВЩИК.ПОЛНЫЙ_КОД = ДОКУМЕНТ.КОНТРАГЕНТ.ПОЛНЫЙ_КОД
                           {
                              //Проверим, что остаток больше 0
                              if ТОВАР.ОСТАТОК(1) > 0
                              {
                                 //Проверим, что строки ещё не добавляли
                                 if НачалоИмпорта = 0
                                 {
                                    ДОКУМЕНТ.ПАКЕТНОЕ_ДОБАВЛЕНИЕ_СТРОК.НАЧАТЬ;
                                    НачалоИмпорта = 1; 
                                 }
                                 //Сколько возвращаем
                                 СтрокаКоличество = '1,'&НомерКоличества&',1,'&ТОВАР.ОСТАТОК(НомерКоличества);
                                 //По какой цене
                                 СтрокаЦены = '1,'&НомерЦены&',1,'&ТОВАР.ЦЕНА(НомерЦены);
                                 //Добавим строку в документ
                                 ДОКУМЕНТ.ПАКЕТНОЕ_ДОБАВЛЕНИЕ_СТРОК.СТРОКА(ТОВАР.КОД,СтрокаКоличество,СтрокаЦены,СтрокаПараметры);
                              }
                          }
              };
};

//Завершили добавление строк, если надо.
if НачалоИмпорта = 1
   ДОКУМЕНТ.ПАКЕТНОЕ_ДОБАВЛЕНИЕ_СТРОК.ЗАВЕРШИТЬ;
else
   ShowErrMessage('По выбранным товарам нет партий данного контрагента с остатком');

//Сообщим о завершении
ShowOkMessage('Всё завершено');