usefulQueries: інструкція .txt

File інструкція .txt, 20.3 KB (added by volodya, 5 років ago)

Інструкція переведення звітів в olap

Рядок 
1спочатку в t_reports вибираємо наш звіт, міняємо значення IS_OLAP на 4
2йдемо в t_interfaces_v1 ,Data створюємо нове поле з категорією olap, module_id- report_номер, в XML створюємо(приклад):
3<table>report_номер_dic</table>
4<parameters>none</parameters>
5
6<schema>
7<name>Товари+магазини+залишок</name>
8<c>objects_name</c>
9<r>nomen_name</r>
10<d>rest</d>
11<d>rest_sum</d>
12</schema>
13
14<schema>
15<name>Виробник(ТМ)+товари+магазин+залишок</name>
16<c>objects_name</c>
17<r>maker_name</r>
18<r>nomen_name</r>
19<d>rest</d>
20<d>rest_sum</d>
21</schema>
22
23<schema>
24<name>Товари+магазини+ціни</name>
25<c>objects_name</c>
26<r>nomen_name</r>
27<d>last_inprice</d>
28<d>out_price</d>
29</schema>
30яке вибираємо із T_REPORT_CHEMAS по report_id- (номер), вибираємо(ctrl+C) з поля NAME, та XML і переносимо (Ctrl+V) в <name>Назва</name> та
31<schema>
32<name>Назва</name>
33тіло
34</schema>
35
36<schema>
37<name>Назва1</name>
38тіло1
39</schema>
40зберігаємо
41
42Наступний крок:
43Створюєм нове поблицю (в T_INTERFACES_V1) gategory_id- table, module_id- report_номер_dic, XML будемо вставляти код за наступним принципом:
44(<sql>select odoc_date, doc_num, doc_mark, otypedoc_name, nomen_code, nomen_name, oclient_name, oowner_name, out_price,
45       oi_kilk, oi_price, oil_out_price, oi_in_sum_pdv, oi_sum_markup_pdv, oi_out_sum_pdv, oil_out_sum_pdv,
46       oil_sum_markup_pdv, oi_in_sum
47from pr_in_documents(:idate0, :idate1)</sql>
48<field name="odoc_date" type="date">Дата документа</field>
49<field name="doc_num" type="string">Номер документа</field>
50<field name="doc_mark" type="string">Примітка</field>
51<field name="otypedoc_name" type="string">Тип документа</field>
52<field name="nomen_code" type="string">Код товару</field>
53<field name="nomen_name" type="string">Назва товару</field>
54<field name="oclient_name" type="string">Постачальник</field>
55<field name="oowner_name" type="string">Власник</field>
56<field name="oi_kilk" type="float">К-ть</field>
57<field name="oi_in_sum_pdv" type="float">СЗ з ПДВ</field>
58<field name="oi_price" type="float">ЦЗ з ПДВ</field>
59<field name="oi_in_sum" type="float">СЗ</field>
60<field name="out_price" type="float">ЦР з ПДВ</field>
61<field name="oi_out_sum_pdv" type="float">СР з ПДВ</field>
62<field name="oi_sum_markup_pdv" type="float">СН з ПДВ</field>
63<field name="oil_out_price" type="float">Нова ЦР з ПДВ</field>
64<field name="oil_out_sum_pdv" type="float">Нова СР з ПДВ</field>
65<field name="oil_sum_markup_pdv" type="float">Нова СН з ПДВ</field>) приклад
66де
67<sql> select тіло взяте із процедури </sql>
68сама прецедура:
69створюємо нову процедуру називаємо її ... (в моєму випадку PR_IN_DOCUMENTS):
70(SET TERM ^ ;
71
72create or alter procedure PR_IN_DOCUMENTS (
73    IDATE0 date,
74    IDATE1 date)
75returns (
76    ODOC_DATE date,
77    DOC_NUM varchar(14),
78    DOC_MARK varchar(14),
79    OTYPEDOC_NAME varchar(30),
80    NOMEN_CODE varchar(7),
81    NOMEN_NAME varchar(80),
82    OCLIENT_NAME varchar(80),
83    OOWNER_NAME varchar(80),
84    OUT_PRICE double precision,
85    OI_KILK double precision,
86    OI_PRICE double precision,
87    OIL_OUT_PRICE double precision,
88    OI_IN_SUM_PDV double precision,
89    OI_SUM_MARKUP_PDV double precision,
90    OI_OUT_SUM_PDV double precision,
91    OIL_OUT_SUM_PDV double precision,
92    OIL_SUM_MARKUP_PDV double precision,
93    OI_IN_SUM double precision)
94as
95begin
96 for select  rr.odoc_date as odoc_date,
97        rr.doc_num,
98        rr.doc_mark,
99        rr.otypedoc_name as otypedoc_name,
100        n.nomen_code,
101        n.nomen_name,
102        rr.oi_kilk,
103        rr.oi_price,
104        rr.oi_in_sum_pdv,
105        rr.oi_in_sum,
106        n.out_price,
107        around(rr.oi_kilk * n.out_price) as oi_out_sum_pdv,
108        around(rr.oi_kilk * n.out_price) - rr.oi_in_sum_pdv as oi_sum_markup_pdv,
109        cl.name || ' (' || cl.zkpo || ')' as oclient_name,
110        coalesce(rr.new_out_price, rr.old_out_price) as oil_out_price,
111        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) as oil_out_sum_pdv,
112        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) - rr.oi_in_sum_pdv as oil_sum_markup_pdv,
113        o.name as oowner_name
114 from
115   (
116        select  dr.docrec_id,
117                d.doc_date as odoc_date,
118                d.doc_num,
119                d.doc_mark,
120                d.objects_id as oclient_id,
121                dt.typedoc_name as otypedoc_name,
122                dr.nomen_id as tnomen_id,
123                dr.kilk as oi_kilk,
124                dr.price as oi_price,
125                dr.insum_pdv as oi_in_sum_pdv,
126                dr.insum as oi_in_sum,
127        (select oout_price from PS_GET_OUT_PRICE_AT(dr.nomen_id, d.date_cr)) as new_out_price,
128        (select first(1) pl.out_price from t_price_logs pl where pl.date_time < d.date_cr
129                and pl.nomen_id = dr.nomen_id order by pl.date_time desc) as old_out_price,
130                d.owner_id
131             from   t_documents d join t_document_types dt on (dt.typedoc_id = d.typedoc_id and
132                    d.typedoc_id <> 16  and d.clients_id = 1 and d.doc_lock in (1,2) and d.doc_date between :idate0 and :idate1)
133                    join t_doc_records dr on (d.document_id = dr.document_id)
134) rr left join t_nomens n on (rr.tnomen_id = n.nomen_id)
135    left join t_clients cl on rr.oclient_id = cl.clients_id
136    left join t_clients o on rr.owner_id = o.clients_id
137 into odoc_date,doc_num,doc_mark,otypedoc_name,nomen_code,nomen_name,
138        oi_kilk,oi_price,oi_in_sum_pdv,oi_in_sum,out_price,
139        oi_out_sum_pdv, oi_sum_markup_pdv, oclient_name, oil_out_price,
140        oil_out_sum_pdv, oil_sum_markup_pdv, oowner_name
141  do begin
142    suspend;
143  end
144end^
145
146SET TERM ; ^
147
148/* Following GRANT statetements are generated automatically */
149
150GRANT EXECUTE ON PROCEDURE PS_GET_OUT_PRICE_AT TO PROCEDURE PR_IN_DOCUMENTS;
151GRANT SELECT ON T_PRICE_LOGS TO PROCEDURE PR_IN_DOCUMENTS;
152GRANT SELECT ON T_DOCUMENTS TO PROCEDURE PR_IN_DOCUMENTS;
153GRANT SELECT ON T_DOCUMENT_TYPES TO PROCEDURE PR_IN_DOCUMENTS;
154GRANT SELECT ON T_DOC_RECORDS TO PROCEDURE PR_IN_DOCUMENTS;
155GRANT SELECT ON T_NOMENS TO PROCEDURE PR_IN_DOCUMENTS;
156GRANT SELECT ON T_CLIENTS TO PROCEDURE PR_IN_DOCUMENTS;
157
158/* Existing privileges on this procedure */
159
160GRANT EXECUTE ON PROCEDURE PR_IN_DOCUMENTS TO "PUBLIC";
161GRANT EXECUTE ON PROCEDURE PR_IN_DOCUMENTS TO SYSDBA;)
162тіло коду берем із T_REPORTS, report_id- номер процедури, вибираємо (ctrl+C) (у моєму випадку 7)
163буде:
164(select  rr.odoc_date as odoc_date,
165        rr.doc_num,
166        rr.doc_mark,
167        rr.otypedoc_name as otypedoc_name,
168        n.nomen_code,
169        n.nomen_name,
170        rr.oi_kilk,
171        rr.oi_price,
172        rr.oi_in_sum_pdv,
173        rr.oi_in_sum,
174        n.out_price,
175        around(rr.oi_kilk * n.out_price) as oi_out_sum_pdv,
176        around(rr.oi_kilk * n.out_price) - rr.oi_in_sum_pdv as oi_sum_markup_pdv,
177        cl.name || ' (' || cl.zkpo || ')' as oclient_name,
178        coalesce(rr.new_out_price, rr.old_out_price) as oil_out_price,
179        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) as oil_out_sum_pdv,
180        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) - rr.oi_in_sum_pdv as oil_sum_markup_pdv,
181        o.name as oowner_name
182 from
183   (
184        select  dr.docrec_id,
185                d.doc_date as odoc_date,
186                d.doc_num,
187                d.doc_mark,
188                d.objects_id as oclient_id,
189                dt.typedoc_name as otypedoc_name,
190                dr.nomen_id as tnomen_id,
191                dr.kilk as oi_kilk,
192                dr.price as oi_price,
193                dr.insum_pdv as oi_in_sum_pdv,
194                dr.insum as oi_in_sum,
195        (select oout_price from PS_GET_OUT_PRICE_AT(dr.nomen_id, d.date_cr)) as new_out_price,
196        (select first(1) pl.out_price from t_price_logs pl where pl.date_time < d.date_cr
197                and pl.nomen_id = dr.nomen_id order by pl.date_time desc) as old_out_price,
198                d.owner_id
199             from   t_documents d join t_document_types dt on (dt.typedoc_id = d.typedoc_id and
200                    d.typedoc_id <> 16  and d.clients_id = 1 and d.doc_lock in (1,2) and d.doc_date between :idate0 and :idate1)
201                    join t_doc_records dr on (d.document_id = dr.document_id)
202) rr left join t_nomens n on (rr.tnomen_id = n.nomen_id)
203    left join t_clients cl on rr.oclient_id = cl.clients_id
204    left join t_clients o on rr.owner_id = o.clients_id)
205при створені процедури добавляємо поле:
206into odoc_date,doc_num,doc_mark,otypedoc_name,nomen_code,nomen_name,
207        oi_kilk,oi_price,oi_in_sum_pdv,oi_in_sum,out_price,
208        oi_out_sum_pdv, oi_sum_markup_pdv, oclient_name, oil_out_price,
209        oil_out_sum_pdv, oil_sum_markup_pdv, oowner_name
210  do begin
211    suspend;
212  end
213end
214   
215
216вставляємо в процедуру попередньо додавши input та output parameters які знаходяться в самому скрипті(значення шукаємо в інших таблицях бази
217+ перед тим виконуємо sql запрос тіла щоб знати точні дані):
218результат:
219create or alter procedure PR_IN_DOCUMENTS (
220    IDATE0 date,
221    IDATE1 date)
222returns (
223    ODOC_DATE date,
224    DOC_NUM varchar(14),
225    DOC_MARK varchar(14),
226    OTYPEDOC_NAME varchar(30),
227    NOMEN_CODE varchar(7),
228    NOMEN_NAME varchar(80),
229    OCLIENT_NAME varchar(80),
230    OOWNER_NAME varchar(80),
231    OUT_PRICE double precision,
232    OI_KILK double precision,
233    OI_PRICE double precision,
234    OIL_OUT_PRICE double precision,
235    OI_IN_SUM_PDV double precision,
236    OI_SUM_MARKUP_PDV double precision,
237    OI_OUT_SUM_PDV double precision,
238    OIL_OUT_SUM_PDV double precision,
239    OIL_SUM_MARKUP_PDV double precision,
240    OI_IN_SUM double precision)
241as
242begin
243 for select  rr.odoc_date as odoc_date,
244        rr.doc_num,
245        rr.doc_mark,
246        rr.otypedoc_name as otypedoc_name,
247        n.nomen_code,
248        n.nomen_name,
249        rr.oi_kilk,
250        rr.oi_price,
251        rr.oi_in_sum_pdv,
252        rr.oi_in_sum,
253        n.out_price,
254        around(rr.oi_kilk * n.out_price) as oi_out_sum_pdv,
255        around(rr.oi_kilk * n.out_price) - rr.oi_in_sum_pdv as oi_sum_markup_pdv,
256        cl.name || ' (' || cl.zkpo || ')' as oclient_name,
257        coalesce(rr.new_out_price, rr.old_out_price) as oil_out_price,
258        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) as oil_out_sum_pdv,
259        around(rr.oi_kilk * coalesce(rr.new_out_price, rr.old_out_price)) - rr.oi_in_sum_pdv as oil_sum_markup_pdv,
260        o.name as oowner_name
261 from
262   (
263        select  dr.docrec_id,
264                d.doc_date as odoc_date,
265                d.doc_num,
266                d.doc_mark,
267                d.objects_id as oclient_id,
268                dt.typedoc_name as otypedoc_name,
269                dr.nomen_id as tnomen_id,
270                dr.kilk as oi_kilk,
271                dr.price as oi_price,
272                dr.insum_pdv as oi_in_sum_pdv,
273                dr.insum as oi_in_sum,
274        (select oout_price from PS_GET_OUT_PRICE_AT(dr.nomen_id, d.date_cr)) as new_out_price,
275        (select first(1) pl.out_price from t_price_logs pl where pl.date_time < d.date_cr
276                and pl.nomen_id = dr.nomen_id order by pl.date_time desc) as old_out_price,
277                d.owner_id
278             from   t_documents d join t_document_types dt on (dt.typedoc_id = d.typedoc_id and
279                    d.typedoc_id <> 16  and d.clients_id = 1 and d.doc_lock in (1,2) and d.doc_date between :idate0 and :idate1)
280                    join t_doc_records dr on (d.document_id = dr.document_id)
281) rr left join t_nomens n on (rr.tnomen_id = n.nomen_id)
282    left join t_clients cl on rr.oclient_id = cl.clients_id
283    left join t_clients o on rr.owner_id = o.clients_id
284 into odoc_date,doc_num,doc_mark,otypedoc_name,nomen_code,nomen_name,
285        oi_kilk,oi_price,oi_in_sum_pdv,oi_in_sum,out_price,
286        oi_out_sum_pdv, oi_sum_markup_pdv, oclient_name, oil_out_price,
287        oil_out_sum_pdv, oil_sum_markup_pdv, oowner_name
288  do begin
289    suspend;
290  end
291end
292
293(select * from T_INTERFACES_V1  where module_id like 'report_7%')- для швикого пошуку нашого звіту
294
295стаєм на процедуру ctrl+C у новому вікні вибираємо select отримуємо :
296select ODOC_DATE, DOC_NUM, DOC_MARK, OTYPEDOC_NAME, NOMEN_CODE, NOMEN_NAME, OCLIENT_NAME, OOWNER_NAME, OUT_PRICE,
297       OI_KILK, OI_PRICE, OIL_OUT_PRICE, OI_IN_SUM_PDV, OI_SUM_MARKUP_PDV, OI_OUT_SUM_PDV, OIL_OUT_SUM_PDV,
298       OIL_SUM_MARKUP_PDV, OI_IN_SUM
299from PR_IN_DOCUMENTS(:IDATE0, :IDATE1) 
300що в подальшому вставляємо в таблицю з T_INTERFACES_V1 :
301<sql>select odocrec_id, onomen_code, onomen_name, okilk, oout_price_pdv, osum_out, osum_out_pdv, osum_in,
302osum_in_pdv, osum_pdv, oout_price, otypepdv_id, onomen_price,
303odisc_persent, oshort_name, oadded_scores, ospent_scores, osumma_mod from pkl_documents_detail({:iid})</sql>
304
305
306зосталися парамерти :
307<param name="iid" type="int"></param>
308<field name="odocrec_id" type="int" role="pk" aggr="count">ID</field>
309<field name="onomen_code" type="string">Код товару</field>
310<field name="onomen_name" type="string">Назва товару</field>
311<field name="okilk" type="float" format="%.03f">К-ть</field>
312<field name="oout_price_pdv" type="float" format="%.02f">ЦР(з ПДВ)</field>
313<field name="osum_in_pdv" type="float" format="%.02f" aggr="sum">СЗ(з ПДВ)</field>
314<field name="osum_out_pdv" type="float" format="%.02f" aggr="sum">СР(з ПДВ)</field>
315<field name="oadded_scores" type="float" format="%.02f" aggr="sum">Бонусів +</field>
316<field name="ospent_scores" type="float" format="%.02f" aggr="sum">Бонусів -</field>
317<field name="osumma_mod" type="float" format="%.02f" aggr="sum">Знижка</field>
318які ми вибираємо окремим запитом select '<field name="'||name||'" type="">'||caption||'</field>' from t_reportcaptions where report_id = 7
319для просто вставки та правимо порожні поля type
320Підкінець
321Створюємо скрипт обнови:
322
323(
324UPDATE T_REPORTS
325SET IS_OLAP = 4
326WHERE (REPORT_ID = 9);
327commit work;
328
329UPDATE OR INSERT INTO T_INTERFACES_V1 (CATEGORY_ID, MODULE_ID, XML, WEIGHT, IS_ACTIVE, ACCESS_ID, VER)
330                               VALUES ('olap', 'report_9', '<table>report_9_dic</table>
331
332<schema>
333<name>Скорочена</name>
334<r>nomen_prod_group_id</r>
335<r>name</r>
336<d>b_rest</d>
337<d>move_in</d>
338<d>money_move_in</d>
339<d>move_out</d>
340<d>money_move_out</d>
341<d>e_rest</d>
342</schema>
343
344<schema>
345<name>Розширена</name>
346<r>nomen_prod_group_id</r>
347<r>name</r>
348<r>nomen_name</r>
349<d>b_rest</d>
350<d>move_in</d>
351<d>money_move_in</d>
352<d>move_out</d>
353<d>money_move_out</d>
354<d>e_rest</d>
355</schema>', 0, 0, NULL, 0)
356                             MATCHING (CATEGORY_ID, MODULE_ID, XML, VER);
357COMMIT WORK;
358
359UPDATE OR INSERT INTO T_INTERFACES_V1 (CATEGORY_ID, MODULE_ID, XML, WEIGHT, IS_ACTIVE, ACCESS_ID, VER)
360                               VALUES ('table', 'report_9_dic', '<sql>select nomen_id, nomen_code, nomen_name, brutto, nomen_prod_group_id, uktz, name, b_rest, e_rest, move_in,
361       money_move_in, money_move_in_sr, move_out, money_move_out
362from pr_in_documentsnine(:idate0, :idate1)</sql>
363<field name="nomen_id" type="string">ID товару</field>
364<field name="nomen_code" type="string">Код товару</field>
365<field name="nomen_name" type="string">Назва товару</field>
366<field name="nomen_prod_group_id" type="string">Код виду продукції</field>
367<field name="uktz" type="string">Код продукції</field>
368<field name="name" type="string">Вид продукції</field>
369<field name="brutto" type="float">Об"єм л.</field>
370<field name="b_rest" type="float">Залишок на поч, дкл.</field>
371<field name="move_in" type="float">Прихід, дкл.</field>
372<field name="move_out" type="float">Реалізація, дкл.</field>
373<field name="e_rest" type="float">Залишок на кін, дкл.</field>
374<field name="money_move_in" type="float">Прихід, грн.</field>
375<field name="money_move_out" type="float">Реалізація, грн</field>
376<field name="money_move_in_sr" type="float">Прихід по ЦР, грн</field>', 0, 1, NULL, 0)
377                             MATCHING (CATEGORY_ID, MODULE_ID, XML, VER);
378
379COMMIT WORK;
380
381SET TERM ^ ;
382
383create or alter procedure PR_IN_DOCUMENTSNINE (
384    IDATE0 date,
385    IDATE1 date)
386returns (
387    NOMEN_ID varchar(7),
388    NOMEN_CODE varchar(7),
389    NOMEN_NAME varchar(80),
390    BRUTTO numeric(9,3),
391    NOMEN_PROD_GROUP_ID integer,
392    UKTZ varchar(15),
393    NAME varchar(120),
394    B_REST double precision,
395    E_REST double precision,
396    MOVE_IN double precision,
397    MONEY_MOVE_IN double precision,
398    MONEY_MOVE_IN_SR double precision,
399    MOVE_OUT double precision,
400    MONEY_MOVE_OUT double precision)
401as
402begin
403 for select rr.nomen_id,
404     n.nomen_code, n.nomen_name, n.brutto, n.nomen_prod_group_id, n.uktz,
405     pg.name,
406     sum(rr.b_rest) * n.brutto / 10.0 as b_rest, sum(rr.move_in) * n.brutto / 10.0 as move_in,
407     sum(rr.money_move_in) as money_move_in,
408     sum(rr.money_move_in_sr) as money_move_in_sr,
409     sum(rr.move_out) * n.brutto / 10.0 as move_out, sum(rr.money_move_out) as money_move_out,
410     sum(rr.e_rest) * n.brutto / 10.0 as e_rest
411 from
412(
413    select nomen_id,
414     r.rest as b_rest,
415     0.0 as move_in,
416     0.0 as money_move_in,
417     0.0 as money_move_in_sr,
418     0.0 as move_out,
419     0.0 as money_move_out,
420     r.rest as e_rest from t_rests r
421union all
422    select dr.nomen_id,
423        iif(d.objects_id = 1, dr.kilk, -dr.kilk) as b_rest,
424        iif((d.typedoc_id = 1) and (d.doc_date between :idate0 and :idate1), dr.kilk, 0) as move_in,
425        iif((d.typedoc_id = 1) and (d.doc_date between :idate0 and :idate1), ss.osum_pdv, 0) as money_move_in,
426        iif((d.typedoc_id = 1) and (d.doc_date between :idate0 and :idate1),
427            (select dr.kilk * oout_price from PS_GET_OUT_PRICE_AT(dr.nomen_id, d.date_cr)), 0) as money_move_in_sr,
428        iif((d.typedoc_id = 11) and (d.doc_date between :idate0 and :idate1) and
429                dr.device_id = 2, dr.kilk, 0) as move_out,
430        iif((d.typedoc_id = 11) and (d.doc_date between :idate0 and :idate1) and
431                dr.device_id = 2, ss.osum_pdv, 0) as money_move_out,
432        iif(d.doc_date > :idate1, iif(d.objects_id = 1, dr.kilk, -dr.kilk), 0) as e_rest
433     from t_doc_records dr join t_documents d on dr.document_id = d.document_id
434             left join ps_get_sum_v1(dr.docrec_id, 'r', 0) ss on 1=1
435               where d.doc_date >= :idate0
436) rr join t_nomens n on rr.nomen_id = n.nomen_id and n.sg_id in (1,6,7)
437    left join t_nomen_prod_groups pg on pg.nomen_prod_group_id = n.nomen_prod_group_id
438group by rr.nomen_id, n.nomen_code, n.nomen_name, n.brutto, n.nomen_prod_group_id, n.uktz, pg.name
439    into nomen_id, nomen_code, nomen_name, brutto, nomen_prod_group_id, uktz, name, b_rest, move_in,
440    money_move_in, money_move_in_sr, move_out, money_move_out,/*rest,*/ e_rest
441do begin
442   suspend;
443  end
444end^
445
446SET TERM ; ^
447
448GRANT EXECUTE ON PROCEDURE PR_IN_DOCUMENTSNINE TO "PUBLIC";
449)
450
451вибираємо запросом select * from T_INTERFACES_V1  where module_id like 'report_номер%'
452опісля export data inti sript (три верхні, одне нижнє- categori, module_id, xml, ver)
453дописуємо зверху (UPDATE T_REPORTS
454SET IS_OLAP = 4
455WHERE (REPORT_ID = номер);
456commit work;)
457...
458опісля переходимо DLL в нашій процедурі
459зачищаємо остані рядки, ставимо замість SYSDBA- PUBLIC
460зберігаємо
461.
462
463