Контроль базовых цен 1С 7.7
Платформа: Оперативный учет 7.7
Конфигурация: Типовая ТиС, ред.9.2
Тип: Контроль цен
Назначение:
– Контроль изменения базовых цен за указанный период.
Часто, особенно на этапе “становления” фирмы/конфигурации, идёт долгая “притирка” ценовой политики. Начальство ходит и орет: “Откуда здесь такая цена, когда её поставили?” или что-нибудь подобное.
Этот отчёт ведёт протокол изменения базовых цен посуточно.
Общее описание:
– за указанный период выводятся таблица: по вертикали номенклатура, по горизонтали – дни. (в каждой ячейке цена с её изменениями по дням).
– Уменьшившаяся цена – красная ячейка,
– Увеличившаяся цена – зеленая ячейка,
– Появившаяся цена – желтая ячейка (появилась новая номенклатура)
Такая таблица, легко поможет отследить ситуацию с поведением цен.
Предусмотрен “краткий” и “полный” вывод отчета (по умолчанию) – для больших периодов – “краткий”.
Обработка может вызываться как интерактивно пользователем, так и программно, с передачей входных параметров.
Типовое использование данной обработки:
Запускается автоматически, один раз в день при запуске конфигурации или после проведения “регламентных” работ (Допустим, произошло программное обновление цен. Для этого необходимо запустить обработку вручную).
Входные данные:
При вызове интерактивно пользователем:
а) Указать период контроля;
б) Заполнить таблицу базовых цен;
в) Отметить нужные из списка базовых цен
г) Сформировать отчет.При вызове программно:
Входные параметры передаются через СписокЗначений(Значение,Представление)
а) Представление = “Цена”, Значение = тип элемент справочника “ТипыЦен” или список значений с элементами справочника ТипыЦен (передаваться должны только базовые цены!!!)
б) Представление = “РежимВыполнения”, Значение = Тип “строка”
Значение = “std” – стандартный
Значение = “day” – один раз в сутки
Значение = “rul” – протокол после проведения регламентных работв) Представление = “Режим”, Значение = Тип “Число”
Значение = -2 сформировать протокол и распечатать
Значение = -1 только сформировать протокол
Значение = 0 только показать
Значение = 1 открыть диалог ввоода данныхг) Представление = “ДатаКонтроля”, Значение = Тип “дата”
Значение = какая-то дата, контроль базовых цен будет произведен от предыдущей даты контроля (сохраняется в настройках) до указанной даты включительно.д) Представление = “ДопЗаголовок”, Значение = Тип “строка”
Значение = произвольный текст, будет помещен в заголовок отчета. Если параметр опущен, тогда программа пытается сама определить значение параметра (исходя из типовых установок и режима выполнения).При вызове программы, предыдущая дата контроля, берётся из файла КаталогИБ()\БВК_ДатаКонтроляБазовыхЦен.cfg – (создаётся автоматически, при первом запуске и хранит дату последнего запуска процедуры).
Выходные данные:
Таблица 1С (MXL)
а) При интерактивном вызове пользователя выводится на экран (если надо сохранить – пользователь должен сделать это сам);
б) При вызове программно – зависит от значения “Режим“, если сохраняется, то сохранение идёт в каталог PCBC.DIR (ProtocolControlBaseCosts), по пути КаталогИБ()\PROTOCOLS.DIR PCBC.DIR\ (каталоги создаются автоматически), имя файла строится по шаблону: Режим_МеткаДатыКонтроля_МеткаДатыВыполнения_МеткаВремениВыполнения.MXL например:
day_050712_050712_0020.mxl
rul_050714_050714_2308.mxl
std_050716_050716_1613.mxl
Установка:
Установить следует в качестве внешнего отчёта.
Замечания:
ВНИМАНИЕ!!! При первом запуске обработки, контроль базовых цен будет произведен с начала текущего месяца (что может быть не так быстро, см.след пункт);
– в зависимости от размера справочника номенклатуры и количества базовых цен, отчёт может формироваться продолжительное время, например: порядка 8000 номенклатуры для 3 базовых цен за период 13-15.07.2005, отчёт на Атлоне 2200+ формировался порядка 2.5 мин.
ВНИМАНИЕ! При программном вызове обработки, установки множественного фильтра, игнорируются!
ВНИМАНИЕ! При программном вызове обработки “красота” отключается (для ускорения выполнения кода). При необходимости – внесите исправления в код процедуры ПриОткрытии().
– во время формирования отчета в подсказку выводится кратенькая инфа, чтобы пользователь сообразил, что комп не висит, а считает…
– сформированный файл (таблица) м.б. открыты в экселе – анализируйте и стройте графики, какие хотите…
Пример использования:
Вставка в процедуру ПриНачалеРаботыСистемы()
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
// глРыночнаяЦена - ссылка на элемент справочника "ТипыЦен", базовая цена // глЗакупочнаяЦена - ссылка на элемент справочника "ТипыЦен", базовая цена // при использовании - переделать под свои нужды! //Контроль изменения базовых цен БВК_СписокКонтролируемыхЦен=СоздатьОбъект("СписокЗначений"); //список контролируемых цен БВК_СписокКонтролируемыхЦен.ДобавитьЗначение(глРыночнаяЦена); //по умолчанию: рыночная БВК_СписокКонтролируемыхЦен.ДобавитьЗначение(глЗакупочнаяЦена); //по умолчанию: закупочная БВК_СписокПараметров=СоздатьОбъект("СписокЗначений"); БВК_СписокПараметров.ДобавитьЗначение(БВК_СписокКонтролируемыхЦен,"Цена"); //список контролируемых цен БВК_СписокПараметров.ДобавитьЗначение("day","РежимВыполнения"); //регламентные работы БВК_СписокПараметров.ДобавитьЗначение(-1,"Режим"); //только сохранить протокол, без показа, без печати БВК_СписокПараметров.ДобавитьЗначение(РабочаяДата(),"ДатаКонтроля"); //дата контроля БВК_СписокПараметров.ДобавитьЗначение("автоматический контроль изменения базовых цен при первом старте программы "+РабочаяДата(),"ДопЗаголовок"); ОткрытьФормуМодально("Отчет",БВК_СписокПараметров,КаталогИБ()+"ExtForms\КонтрольБазовыхЦен.ert"); |
Допустим, у нас есть “прайс-аналит”, раз в день подгружающий прайсы поставщиков и на их основе устанавливающий некие базовые цены:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
//...тут установка базовых цен по некоему алгоритму // //ПИШЕМ ВСЁ В ПРОТОКОЛ БВК_СписокКонтролируемыхЦен=СоздатьОбъект("СписокЗначений"); //список контролируемых цен БВК_СписокКонтролируемыхЦен.ДобавитьЗначение(глРыночнаяЦена); //по умолчанию: протоколируем рыночную БВК_СписокПараметров=СоздатьОбъект("СписокЗначений"); БВК_СписокПараметров.ДобавитьЗначение(БВК_СписокКонтролируемыхЦен,"Цена"); //список контролируемых цен БВК_СписокПараметров.ДобавитьЗначение("rul","РежимВыполнения"); //после регламентных работ БВК_СписокПараметров.ДобавитьЗначение(-1,"Режим"); //только протокол, можно поставить 0 - тогда показ на экран БВК_СписокПараметров.ДобавитьЗначение(ДатаЦен,"ДатаКонтроля"); //дата контроля БВК_СписокПараметров.ДобавитьЗначение("установка рыночных цен на "+ДатаЦен,"ДопЗаголовок"); ОткрытьФормуМодально("Отчет",БВК_СписокПараметров,КаталогИБ()+"ExtForms\КонтрольБазовыхЦен.ert"); //ПИШЕМ ВСЁ В ПРОТОКОЛ |