Программистские этюды

Посвящается сайту "Математические этюды" http://www.etudes.ru/

Все рассмотренные примеры отлаживались на конфигурации "Управление торговлей 10.3". Задачи взяты из жизни, а решения не претендуют на уникальность или универсальность. Тем более что, пока я писал статью, на ум приходили совсем уже другие решения…

 Этюд 1. Обход итогов при партионном списании по ФИФО для пары Номенклатура+Характеристика

Есть определенная схема построения запроса при программировании метода списания стоимости товара по ФИФО. Она представлена на рис. 1.

рис. 1.

Понятно, что схема учебная – в жизни учет товаров более сложен. Так, например, в конфигурации «Управление торговлей» учет товара дополнительно может вестись в разрезе характеристик. Что это значит применительно к нашей задаче? А то, что добавляется еще один разрез учета – характеристика, отдельно по которой нужно учитывать  сумму и количество партии.

Дополнительный разрез учета добавляет проблем при использовании  стандартной схемы построения запроса. Подробно об этих проблемах описано в статье //infostart.ru/public/125988/ .

И замечу, что речь не идет о других способах конструирования запросов, как например:

//infostart.ru/public/99207/

или

http://www.nashe1c.ru/materials-view.jsp?id=312

Так вот, что я сделал. Пару Номенклатура+Характеристика однозначно определяет поле Характеристика, потому что Номенклатура = Характеристика.Владелец. Такое соответствие относится только к товарам, а к таре не относится – тару однозначно определяет сама Номенклатура. Поэтому в запросе я дополнительно реализую Группировочное поле в результирующей таблице, по которому беру Итоги (рис. 2,3).

рис. 2.

рис. 3.

  Далее в цикле по ГруппировочномуПолю Товар и Характеристику определяю так:

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока Выборка.Следующий() Цикл

   Если ТипЗнч(Выборка.ГруппировочноеПоле) = Тип("СправочникСсылка.ХарактеристикиНоменклатуры") Тогда

    Товар = Выборка.ГруппировочноеПоле.Владелец.Наименование;
    Характеристика = Выборка.ГруппировочноеПоле.Наименование;
    Код = Выборка.ГруппировочноеПоле.Владелец.Код;

  ИначеЕсли ТипЗнч(Выборка.ГруппировочноеПоле) = Тип("СправочникСсылка.Номенклатура") Тогда

    Товар = Выборка.ГруппировочноеПоле.Наименование;
    Характеристика = "";
    Код = Выборка.ГруппировочноеПоле.Код;

  Иначе //на всякий случай

    Товар = "Неизвестный товар";
    Характеристика = "";
    Код = "";

КонецЕсли;
 

Товар и Характеристику надо определять как минимум для вывода сообщения по товару (таре), по которой не хватает остатка:

 

Если НужноСписать>ОстатокНаСкладе Тогда

  Сообщить("Подсистема учета ТЗР: на складе не хватает товара"
  + Символы.ПС + "По документу — " + СтрТЗ.Документ
  + Символы.ПС + "Склад — " + ТекСклад //СтрТЗ.Документ.Склад
  + Символы.ПС + "Товар — " + Товар + " (код " + Код + ")"
  + ?(НЕ ПустаяСтрока(Характеристика), Символы.ПС + "Характеристика — " + Характеристика, "")
  + Символы.ПС + "Не хватает — " + (НужноСписать—ОстатокНаСкладе) + " кг. "
  + Символы.ПС + "Нужно списать — " + НужноСписать + " кг. "
  + Символы.ПС + "Тек. остаток — " + ОстатокНаСкладе + " кг.", СтатусСообщения.Внимание);

  Отказ = Истина;
  Продолжить;

КонецЕсли;

Далее все алгоритмы проходят по стандартной схеме списания по ФИФО. Как это реализовано в конфигурации УТ, я не анализировал. Подобную задачу решил для новой подсистемы учета транспортно-заготовительных расходов. Знаете, когда ТЗР распределяется по сумме товара? Вот это из этой оперы.

 *Идея использования рисунка схемы построения запроса взята из методических материалов курса обучения, который я проходил давным-давно. По части авторства: рисунок нарисован мною с нуля, схема сильно изменена по сравнению с источником.

 

 Этюд 2. Обмен сведениями об остатках номенклатуры с помощью XML для пары Номенклатура+Характеристика

Сперва постановка задачи, которую я давным-давно реализовывал… Привычная ситуация, когда при обращении клиента менеджер по продажам видит в информационной базе наличие товара по складам только своей компании, о наличии товара на складах поставщиков узнает по телефону. В ситуации, когда определенный вид товара поставляется только одной компанией-дистрибьютором, можно договориться с ней об электронном обмене информацией об остатках через интернет.

Я реализовал обмен информацией с помощью xml,  выгрузка и загрузка остатков происходила только для так называемых «свободных» остатков,  количество товара выгружалось (загружалось) с учетом характеристик товара; серии и качество товара учитывать не надо было.

В конфигурации УТ можно вести количественный учет товаров в разрезе дополнительных параметров, так называемых характеристик номенклатуры: цвет, размер и других потребительских свойств.

Для нас важно знать не только, сколько товара осталось в наличии на удаленном складе поставщика, но и какого, судя по потребительским характеристикам. Поэтому механизм выгрузки и загрузки данных должен учитывать характеристики товара. Учет по сериям (при выгрузке-загрузке) производить не нужно, так как эта информация не интересна нашему клиенту.

Вообще говоря, учет характеристик при выгрузке и загрузке файла обмена не считается тривиальной задачей, поскольку, если товар в разных информационных базах идентифицируется по совпадению артикула, то характеристики – только по одновременному совпадению названия свойства и значения показателя этого свойства. Например, если в одной базе характеристика «цвет обуви» задается как «Цвет», а в другой – «Цвет обуви», то для одного и того же 43 размера эти товары не будут идентифицированы как совпадающие. Потому что у них разные названия характеристики, которая определяет цвет обуви.

Таким образом, задача обрисовывается такая: при загрузке файла xml при совпадении названия характеристики и значения показателя характеристики с характеристикой товара текущей базы необходимо считать, что указанное количество свободного остатка относится к этой характеристике. Если хотя бы одна характеристика не совпадает, или нет одинаковых характеристик, то необходимо считать, что свободный остаток регистрируется по товару без характеристик. Считается, что для уточнения информации об остатках товаров без характеристик следует связываться с ответственным менеджером поставщика-дистрибьютора.

Теперь о реализации. Файл выгрузки представлен на рис. 4.

Рис. 4.

Видно, что при наличии остатка в разрезе характеристики – характеристика товара раскладывается на составляющие ее свойства и значения этих свойств. К примеру, для товара с артикулом «Б-130005» характеристика товара имеет свойства «Размер=36», «Полнота=5», «Тип4Кожи=Натуральная кожа».

Следует обратить внимание на название узла «Тип4Кожи». В программе «1С:Управление торговлей» свойство имеет название «Тип кожи», узнаваемое пользователем. XML-теги не определены жестко: разработчик вправе придумать свои собственные теги. Но по xml-стандарту название узлов в xml-файлах не должны содержать пробелов и других символов наподобие «!;%*()_+».

Поэтому для выгрузки свойств товара реализован механизм, который заменяет «некорректные» символы на цифры, а при загрузке остатков наоборот – цифры заменяет на символы. Кому интересно будет, отдельно выложу исходники для демонстрации идеи. Хотя считаю, что это слишком просто реализуется. Так как цифр имеется ограниченное количество (от 0 до 9), то такая замена может происходить только с ограниченным числом символов. Символы, не вошедшие в этот список, исключаются из названий свойств – при записи характеристики происходит проверка (рис. 5).

Рис. 5.

Теперь рассмотрим разработанные механизмы для загрузки сведений.

При загрузке xml-файл считывается, информация записывается во временную таблицу:

 

ОстаткиТЗ = Новый ТаблицаЗначений;
ОстаткиТЗ.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
ОстаткиТЗ.Колонки.Добавить("ХарактеристикаНоменклатуры", Новый ОписаниеТипов("СправочникСсылка.ХарактеристикиНоменклатуры"));
ОстаткиТЗ.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,3)));

ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ФайлXML.ПолноеИмя);

ФормироватьСтруктуру = Ложь;
Пока ЧтениеXML.Прочитать() Цикл

  Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
      ИмяУзла = ЧтениеXML.Имя;
      Если ИмяУзла = "ЗаписьРегистра" Тогда
          НоваяСтрокаТЗ = ОстаткиТЗ.Добавить();
      КонецЕсли;
      Если ИмяУзла = "ХарактеристикаНоменклатуры" Тогда
          ХарактеристикаНоменклатуры = Новый Структура;
          ФормироватьСтруктуру = Истина;
      КонецЕсли;
      Если ИмяУзла = "Количество" Тогда
          ФормироватьСтруктуру = Ложь;
          НоваяСтрокаТЗ["ХарактеристикаНоменклатуры"] = ПолучитьЗначениеИзСтроки(ХарактеристикаНоменклатуры, "ХарактеристикаНоменклатуры");
      КонецЕсли;
  ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
      Если ИмяУзла = "Номенклатура" или ИмяУзла = "Количество" Тогда
          НоваяСтрокаТЗ[ИмяУзла] = ПолучитьЗначениеИзСтроки(ЧтениеXML.Значение, ИмяУзла);
      Иначе
          Если ФормироватьСтруктуру Тогда
              ХарактеристикаНоменклатуры.Вставить(ИмяУзла, ЧтениеXML.Значение);
          КонецЕсли;
      КонецЕсли;
  КонецЕсли;

КонецЦикла;

ЧтениеXML.Закрыть();
 

 

Дам пояснение. Для работы с XML-документами используется модель последовательного доступа, что означает следующее. При считывании структуры xml-файла:

1)      мы перебираем узлы сверху-вниз;

2)      мы не перескакиваем от узла к узлу, а целенаправленно анализируем: достигнуто «НачалоУзла» или «ТекстУзла»;

3)      когда проходим цикл по узлам, анализируем название узла.

Фактически запись и чтение данных из XML-документа производится «фрагментами» элементов. При этом очевидно, что при работе с XML-документами, имеющими сложную структуру, реализация процедур будет также сильно усложняться.

 

Предоставлю код, который позволяет из строкового значения xml-узла получить соответствующий в базе данных элемент:

 

Функция ПолучитьЗначениеИзСтроки(ЗначениеУзла, ИмяУзла)

  Рез = Неопределено;

  Попытка
  Если ИмяУзла = "Номенклатура" Тогда //найдем по артикулу

      Запрос = Новый Запрос;
      Запрос.Текст = "ВЫБРАТЬ
      | Номенклатура.Ссылка
      |ИЗ
      | Справочник.Номенклатура КАК Номенклатура
      |ГДЕ
      | Номенклатура.Артикул = &Артикул
      | И Номенклатура.ПометкаУдаления = ЛОЖЬ";

      Запрос.УстановитьПараметр("Артикул", ЗначениеУзла);

      Результат = Запрос.Выполнить();
      Если Результат.Пустой() Тогда
          ТекущаяНом = Справочники.Номенклатура.Новая;
          Возврат Справочники.Номенклатура.Новая;
      КонецЕсли;

      Выборка = Результат.Выбрать();

      …


      //выбираем только один элемент
      Если Выборка.Следующий() Тогда
          ТекущаяНом = Выборка.Ссылка;
          Возврат Выборка.Ссылка;
      КонецЕсли;

  ИначеЕсли ИмяУзла = "ХарактеристикаНоменклатуры" Тогда

      Если ТекущаяНом = Справочники.Номенклатура.Новая Тогда
          Возврат Неопределено;
      КонецЕсли;

      ЗапросПоХарактеристикам = Новый Запрос;
      ЗапросПоХарактеристикам.Текст = "ВЫБРАТЬ
      | ЗначенияСвойствОбъектов.Объект,
      | ЗначенияСвойствОбъектов.Свойство,
      | ЗначенияСвойствОбъектов.Значение.Наименование КАК Значение
      |ИЗ
      | РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
      |ГДЕ
      | ЗначенияСвойствОбъектов.Объект.ПометкаУдаления = ЛОЖЬ
      | И ЗначенияСвойствОбъектов.Объект.Владелец = &Владелец";

      ЗапросПоХарактеристикам.УстановитьПараметр("Владелец", ТекущаяНом);

      ТаблицаХарактеристик = ЗапросПоХарактеристикам.Выполнить().Выгрузить();
      Если ТаблицаХарактеристик.Количество() = 0 Тогда
          Возврат Неопределено;
      КонецЕсли;

      //ЗначениеУзла — для характеристики в данном случае это Структура,
      //Ключ — название свойства, например Цвет, Размер и т.д.
      //ЗначениеКлюча — значение свойства
      СписокПодходящихХарактеристик = Новый Массив;
      Для Каждого КлючИЗначение Из ЗначениеУзла Цикл
     
          //здесь НазваниеСвойства подготавливается по значению КлючИЗначение.Ключ

          …

          НайденноеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НазваниеСвойства, Истина);
          //здесь же срабатывает проверка, если найденное свойство = пустой ссылке
          Если НайденноеСвойство.НазначениеСвойства <> ПланыВидовХарактеристик. НазначенияСвойствКатегорийОбъектов.Справочник_ХарактеристикиНоменклатуры Тогда
               Продолжить;
          КонецЕсли;

          ПараметрыОтбора = Новый Структура;
          ПараметрыОтбора.Вставить("Свойство", НайденноеСвойство);
          ПараметрыОтбора.Вставить("Значение", КлючИЗначение.Значение);

          МассивПодходящихСтрокХарактеристик = ТаблицаХарактеристик.НайтиСтроки(ПараметрыОтбора);
          Если МассивПодходящихСтрокХарактеристик.Количество() = 0 Тогда
               Возврат Неопределено;
          КонецЕсли;

          Для Каждого Стр Из МассивПодходящихСтрокХарактеристик Цикл
               Если СписокПодходящихХарактеристик.Найти(Стр.Объект) = Неопределено Тогда
                    СписокПодходящихХарактеристик.Добавить(Стр.Объект);
               КонецЕсли;
          КонецЦикла;

          //будем сокращать таблицу подходящих характеристик
          ЗапросПоХарактеристикам.Текст = ЗапросПоХарактеристикам.Текст + "
          | И ЗначенияСвойствОбъектов.Объект В (&СписокХарактеристик)";
          ЗапросПоХарактеристикам.УстановитьПараметр("СписокХарактеристик", СписокПодходящихХарактеристик);

          ТаблицаХарактеристик = ЗапросПоХарактеристикам.Выполнить().Выгрузить();

      КонецЦикла;

      Если ТаблицаХарактеристик.Количество() = 0 Тогда
          Возврат Неопределено;
      КонецЕсли;

      Рез = ТаблицаХарактеристик[0].Объект;

  ИначеЕсли ИмяУзла = "Количество" Тогда
      Рез = Число(ЗначениеУзла);
  КонецЕсли;

  Исключение

      …

  КонецПопытки;

  Возврат Рез;

КонецФункции
 

Прокомментирую. Номенклатура (или товар в нашем случае) определяется по переданному артикулу. С этим сложностей нет. А вот как быть с характеристикой? Каждая характеристика в терминах конфигурации УТ представляет собой набор свойств со своими значениями. Хранятся такие наборы в регистре сведений. И как бы ну очень хочется использовать что-то наподобие метода ТаблицыЗначений НайтиСтроки(ПараметрыОтбора), в параметры отбора которого можно передать загружаемый набор свойств со своими значениями. На выходе хотим получить определенную характеристику товара. Но не тут-то было! В параметры отбора нельзя передать загружаемый набор свойств – можно только одно свойство и его значение через Структуру. Выход – использовать запрос к нашему регистру сведений. А суть предложенного алгоритма – при обходе xml-узлов наращивать набор свойств и значений, передавать набор в запрос, проверять наличие очередного свойства и значения в регистре и так по кругу по всем загружаемым свойствам.

 

 Этюд 3. Дополнительно. Внимание новичкам – типовая консоль запросов.

 

Вы когда-нибудь обращали внимание, иногда при выполнении запроса в консоли запросов появляется окно сообщения: «Ожидается выражение «Выбрать» ?.. И даже номер строки указан, в которой происходит ошибка.

Рис. 6.

Так вот, консоль запросов позволяет обрабатывать только часть выделенного текста в запросе. Я использую эту возможность при просмотре результата временных и вложенных таблиц или при редактировании только части запроса, входя в конструктор выделенного текста запроса. Для просмотра временных таблиц следует закомментировать выражение «Поместить», выделить часть текста запроса и нажать «Выполнить». После просмотра следует не забыть удалить комментарии в строке «Поместить» (рис. 7). Вообще-то, об этой возможности консоли запросов написано в справке, но кто ж ее читал именно для консоли запросов?

Рис. 7.

Картинка для анонса любезно предоставлена по лицензии GNU:

http://ru.wikipedia.org/wiki/Файл:Universal_joint_transparant.gif

 

Центр автоматизации, Гумеров Р.И.

---

См. также:

Как эффективно использовать Инфостарт NEW!

Список реализаций + структура подчиненности + реестр документов SALE’1sm

Список заказов поставщикам + структура подчиненности SALE’1sm

Список заказов покупателей + структура подчиненности SALE’1sm

Договоры для 1с-ника ТОП-скачиваний

Сетка расписания (Планировщик) нестанДАрт

Два механизма, которые ускорили работу бухгалтеров в 1С нестанДАрт

Мини-CRM для УТ 10.3

Расчет банковских (рабочих) дней нестанДАрт

Шаблоны кода в режиме 1С:Предприятие SALE’1sm

Доработка конфигурации Конвертация Данных

Планирование платежей. Прогнозирование прибылей и убытков

Ввод показателей план-факта БП 3.0 Know-how

Инвентаризация личного опыта Для новичков 1С

Большие запросы: взгляд на проблему нестанДАрт

Технология создания коммерческих разработок Know-how

Андроид-решение для создания заказов в 1С Know-how + нестанДАрт

Отчет Остатки и цены

Печать ценников с одной и двумя ценами 55х40, 100х60, 140х200

Загрузка данных о розничных продажах из магазинов Intimissimi (Интимиссими) и Calzedonia (Кальцедония)

Доработки обмена "УТ 10.3 — интернет-магазина Shop-Script"