Ценник с маркетинговой ценой и сроками проведения акции : Супермаг Плюс (Супермаг 2000)

vdm · █ 16.01.2015 18:02

Нашел.
У вас более новая версия, где спецификация акций вынесена из SMSpec в SMSpecMA (начиная с 1.030.4).
Т.е. меняй в скрипте имя таблицы.

Aligator · █ 18.01.2015 19:04

Цитата:

vdm ➤ Нашел.
У вас более новая версия, где спецификация акций вынесена из SMSpec в SMSpecMA (начиная с 1.030.4).
Т.е. меняй в скрипте имя таблицы.

Таки да, заработало, пошел тестировать.
Благодарю.

Aligator · █ 05.02.2015 13:08

Нарисовал ценник, но есть два вопроса:
на некоторых ценниках отображается единица измерения не как Грн/1шт, а как Грн/10 (обвел пример на второй картинке)
также не пойму почему при выводе на печать - то старая цена отображается верно, то старая цена становится нулевой. Такое стабильно происходит при печати от 2-х и более ценников (последние картинки как раз это показывают).
Оба товара находятся в одной МА.
Ценник во вложении.

vdm · █ 06.02.2015 09:28

Подпилил для работы как с будущими акциями, так и с работающими. Ошибки с нулевой ценой быть не должно.
По количеству 1/10 - см. штрихкоды, наверно там количество >1.

Код:

SELECT  t.article,
        t.price,
        supermag.russianspell.PriceCardString(0, t.price) as grn,
        supermag.russianspell.PriceCardString(2, t.price) as kop,
        supermag.russianspell.PriceCardString(0, t.oldprice) as oldprice_grn,
        supermag.russianspell.PriceCardString(2, t.oldprice) as oldprice_kop,
        t.RubName,
        t.KopName,
        (select p.PropVal
           from supermag.SMCardProperties p
          where p.Article=t.Article
            and p.PropID='Sys.Composition') Composition,
        (select p.PropVal
           from supermag.SMCardProperties p
          where p.Article=t.Article
            and p.PropID='Sys.BrandName') BrandName,
        (select p.PropVal
           from supermag.SMCardProperties p
          where p.Article=t.Article
            and p.PropID='Vesy_number') Vesy_number,
        t.name,
        t.cardcomment,
        t.country,
        t.qtyprint,
        t.unitname,
        t.isscale,
        t.plu,
        t.price_ma,
        supermag.russianspell.PriceCardString(0, t.price_ma) as price_ma1,
        supermag.russianspell.PriceCardString(2, t.price_ma) as price_ma2,
        t.ma_id,
        t.ma_datebegin,
        t.ma_dateend
FROM (
     SELECT t_pr.article,
            (case when d.docstate=2 then
                ROUND(sp.itemprice*t_pr.qty, t_pr.priceprec)
             else
                t_pr.price
             end
            ) price,
            (case when d.docstate=2 then
                t_pr.price
             else
                (select ROUND(ph.price*t_pr.qty, t_pr.priceprec)
                   from supermag.SMPriceHistory ph 
                  where (eventtime, recid) = 
                        (select max(eventtime), max(recid) 
                           from supermag.SMPriceHistory 
                          where article = ph.article 
                            and storeloc  = ph.storeloc
                            and pricetype = ph.pricetype
                            and ROUND(price*t_pr.qty, t_pr.priceprec) !=  t_pr.price)
                    and ph.storeloc  = :P_LOC 
                    and ph.article   = t_pr.article
                    and ph.pricetype = :P_PRICE_TYPE
                    and ROUND(ph.price*t_pr.qty, t_pr.priceprec) != t_pr.price)
             end
            ) oldprice,
            t_pr.RubName,
            t_pr.KopName,
            t_pr.name,
            t_pr.cardcomment,
            t_pr.country,
            t_pr.qtyprint,
            t_pr.unitname,
            t_pr.isscale,
            t_pr.plu,
            sp.itemprice price_ma,
            d.id ma_id,
            TRUNC (au.datebegin) ma_datebegin,
            TRUNC (au.dateend) ma_dateend
       FROM supermag.svpricecard t_pr,
            supermag.smdocuments d,
            supermag.SMSpecMA sp,
            supermag.smauctions au
      WHERE t_pr.article = sp.article
        AND d.doctype = 'MA'
        AND d.id = sp.docid
        AND d.doctype = sp.doctype
        AND t_pr.article = sp.article
        AND d.id = au.id
        AND d.doctype = au.doctype
        AND d.docstate >= 2
        AND au.dateend > SYSDATE
        AND (:P_LOC,:P_PRICE_TYPE) IN (SELECT am.locid, am.pricetype
                                         FROM supermag.smauctionatoms am
                                        WHERE am.aucid = d.id AND am.doctype = d.doctype)
) t
ORDER BY ma_id, article

Aligator · █ 06.02.2015 10:45

Цитата:

vdm ➤ Подпилил для работы как с будущими акциями, так и с работающими. Ошибки с нулевой ценой быть не должно.
По количеству 1/10 - см. штрихкоды, наверно там количество >1.

Код:

SELECT  t.article,
        t.price,
        supermag.russianspell.PriceCardString(0, t.price) as grn,
        supermag.russianspell.PriceCardString(2, t.price) as kop,
        supermag.russianspell.PriceCardString(0, t.oldprice) as oldprice_grn,
        supermag.russianspell.PriceCardString(2, t.oldprice) as oldprice_kop,
     ...

В тоде отрабатывает запрос, а в Faste выбивает в ошибку:

текст сообщения:
скрытое

Mtirt · █ 06.02.2015 10:48

У тебя в запросе осталось два параметра: P_Loc и P_Price_type.
Лишние параметры удали...

Aligator · █ 06.02.2015 14:51

Цитата:

Mtirt ➤ У тебя в запросе осталось два параметра: P_Loc и P_Price_type.
Лишние параметры удали...

Пробовал, это не от туда ошибка:

vdm · █ 06.02.2015 17:51

Это баг fastreport, а точнее какого-то компонента visual studio.
Не умеет select из подзапроса. Гуглится. М.б. в последних версиях поправлено, но видимо не в вашей.

В качестве лечения предлагается "не делайте так, формируйте запрос в другом месте". И у С+ практически везде в отчетах запросы формируются динамически, в скрипте.

Можно конечно переписать без подзапроса, но рано или поздно придется усложнять и переписывать. Дальше напишу кратко что меняется.

vdm · █ 06.02.2015 18:08

1. В pricecards => sql пишется заглушка, где селектится голый список полей

Код:

SELECT ''article,
        0 price,
        '' grn,
        '' kop,
        '' oldprice_grn,
        '' oldprice_kop,
        '' RubName,
        '' KopName,
        '' Composition,
        '' BrandName,
        '' Vesy_number,
        '' name,
        '' cardcomment,
        '' country,
        '' qtyprint,
        '' unitname,
        '' isscale,
        '' plu,
        0 price_ma,
        '' price_ma1,
        '' price_ma2,
        '' ma_id,
        to_date('010101','DDMMYY') ma_datebegin,
        to_date('010101','DDMMYY') ma_dateend
FROM dual

2. В конце _StartReport пишется формирование и вызов реального запроса

Код:

...
        или за количество товара в упаковке (если в диалоге старта печати
        выбрана опция "Ценник на упаковку");
        0 - всегда печатать цену за единицу товара */
        1
        ); 

      string sSQL = SqlFormat("SELECT "+
      "t.article, "+
      "t.price,   "+
...
      "(select max(eventtime), max(recid) "+
      "from supermag.SMPriceHistory "+
      "where article = ph.article "+
      "and storeloc  = ph.storeloc "+
      "and pricetype = ph.pricetype "+
      "and ROUND(price*t_pr.qty, t_pr.priceprec) !=  t_pr.price) "+
      "and ph.storeloc  = {0:N} "+
      "and ph.article   = t_pr.article "+
      "and ph.pricetype = {1:N} "+
      "and ROUND(ph.price*t_pr.qty, t_pr.priceprec) != t_pr.price) "+
...
      "AND au.dateend > SYSDATE "+
      "AND ({0:N},{1:N}) IN (SELECT am.locid, am.pricetype "+
      "  FROM supermag.smauctionatoms am "+
      "WHERE am.aucid = d.id AND am.doctype = d.doctype) "+
      ") t "+
      "ORDER BY ma_id, article",
        Report.GetParameterValue("P_LOC"),
        Report.GetParameterValue("P_PRICE_TYPE")
        );  

      host.TableDataSourcePreInit("PriceCards", sSQL);

В SqlFormat() параметры P_LOC, P_PRICE_TYPE подставляются в текст на место макросов {0:N}, {1:N}.
Количество и тип полей выборки должно соответствовать тому, что указано в pricecards => sql.
TableDataSourcePreInit() выполняет запрос.

Aligator · █ 10.02.2015 16:10

Добавил, но как понимаю, паршиво - получаю в лоб ошибки: скрытое

Просьба довести в этом вопросе, ладно я с простыми запросами через "PriceCards" как-то начал сам тыкать, но через sSQL для меня пока что высший пилотаж. Мой поломанный ценник во вложении