Выгрузка в Партнер (Катрен) - История изменений

Lander: /* Необходимые папки и файлы */

2019-04-22T08:48:36Z

‎Необходимые папки и файлы

Lander: /* PR_LOAD_PARTNER для менеджера */

2019-04-08T07:18:00Z

‎PR_LOAD_PARTNER для менеджера

Lander: /* процедура выгрузки остатков */

2019-04-08T07:17:00Z

‎процедура выгрузки остатков

Lander: /* PR_LOAD_MOVE_PARTNER для менеджера */

2019-04-08T06:33:43Z

‎PR_LOAD_MOVE_PARTNER для менеджера

Lander: /* PR_LOAD_MOVE_PARTNER для сводника */

2019-04-05T08:01:49Z

‎PR_LOAD_MOVE_PARTNER для сводника

Внесённые изменения

Lander: /* PR_LOAD_MOVE_PARTNER для сводника(старого) Стандарт-М */

2019-04-05T07:55:49Z

‎PR_LOAD_MOVE_PARTNER для сводника(старого) Стандарт-М

Внесённые изменения

Lander: /* Процедура выгузки движения товара */

2019-04-05T07:55:19Z

‎Процедура выгузки движения товара

Lander: /* Временная таблица для движения */

2019-04-05T06:05:43Z

‎Временная таблица для движения

Lander: /* Процедура выгузки движения товара */

2019-04-05T06:05:21Z

‎Процедура выгузки движения товара

Lander: /* PR_LOAD_MOVE_PARTNER для сводника(старого) Стандарт-М */

2019-03-21T04:15:53Z

‎PR_LOAD_MOVE_PARTNER для сводника(старого) Стандарт-М

@@ Строка 910: / Строка 910: @@
 </pre>
-=== Необходимые папки и файлы ===
+=== Необходимые папки и файлы записи в БД ===
 ==== Для сетей аптек ====

@@ Строка 815: / Строка 815: @@
 create or alter procedure PR_LOAD_PARTNER (
-     DATEEND DM_DATE)
+     DATEEND DM_DATETIME)
 returns (
      SNAME DM_TEXT,
      PART_ID integer,
@@ Строка 835: / Строка 834: @@
      BCODE_IZG DM_TEXT)
 as
 begin
- for select  dd.part_id,cast(abs(sum(dd.quant)) as dm_double) as quant
+maxdate=(select max(plm.doc_commitdate)from partner_load plm );--Дата последней выгрузки
-         from doc_detail dd
+mindate=(select min(plm.doc_commitdate)from partner_load plm );--Дата самых старых данных в выгрузке
-     where dd.doc_commitdate<=:DATEEND
+if (maxdate is null) then datestart=:dateend; --если данных нет в таблице то выгружаем с указанной даты
- group by dd.part_id
+if (:dateend<>maxdate) then datestart=maxdate; -- Если дата выгрузки больше или меньше даты последней выгрузки, выгружаем с даты последних данных
- having abs(sum(dd.quant))>0.001 into  :part_id, :quant  do
- begin
-    select
-         :DATEEND as docdate,
-        (select (select a.caption from agents a where a.id=pr.agent_id  ) from pr_getmotherpart(p.id) pr)as docagent,
-        left(d.docnum,iif(position(' ',d.docnum)=0,char_length(d.docnum), position(' ',d.docnum)))as docnum,
-        (select a.inn from  agents a where d.agent_id=a.id ) as INN,
-        w.izg_id,
-        v_izg.svalue as sizg,
-        v_strana.svalue as scountry,
-        v_sname.svalue as sname,
-        w.barcode as bcode_izg,
-        cast (abs(p.price_o) as numeric(9,2)) as price_o,
-        cast (abs(p.price) as numeric(9,2)) as price,
-        iif (p.godendo is not null, cast(p.godendo as date),'01.01.1900') as godendo_date,
-        p.seria,
-        p.barcode
-    from parts p
-        left join docs d on d.id=p.doc_id
-        left join wares w on w.id=p.ware_id
-        left join vals v_izg on v_izg.id=w.izg_id
-        left join vals v_strana on v_strana.id=w.country_id
-        left join vals v_sname on v_sname.id=w.name_id
-         where p.id = :part_id
+if (mindate<:dateend-93) then delete from partner_load where doc_commitdate<:dateend-93;-- Удаляет даные относящиеся к предыдущему периоду выгрузки (прошлый квартал)
              into  :docdate, :docagent, :docnum, :INN, :izg_id, :sizg, :scountry, :sname, :bcode_izg, :price_o, :price,:godendo_date, :seria, :barcode;
       suspend;
- end
 end^
@@ Строка 873: / Строка 894: @@
 SET TERM ; ^
-/* Following GRANT statements are generated automatically */
+/* Following GRANT statetements are generated automatically */
 GRANT SELECT ON DOC_DETAIL TO PROCEDURE PR_LOAD_PARTNER;
 GRANT SELECT ON AGENTS TO PROCEDURE PR_LOAD_PARTNER;
@@ Строка 882: / Строка 904: @@
 GRANT SELECT ON WARES TO PROCEDURE PR_LOAD_PARTNER;
 GRANT SELECT ON VALS TO PROCEDURE PR_LOAD_PARTNER;
 /* Existing privileges on this procedure */

@@ Строка 632: / Строка 632: @@
 === процедура выгрузки остатков ===
 ==== PR_LOAD_PARTNER для сводника====
 <pre>SET TERM ^ ;

@@ Строка 539: / Строка 539: @@
 as
 declare variable DOC_ID integer;
 begin
   for select
           dd.part_id as Drug_code,
@@ Строка 557: / Строка 566: @@
       into :drug_code, :doc_id, :quant,  :disk_T, :disk_sum, :Sum_Zak, :Sum_Rozn, :Cena_Rozn do
   begin
      select
           iif (d.doc_type=1,10,iif(d.doc_type=3,20,d.doc_type))as d_type,
@@ Строка 575: / Строка 587: @@
            p.seria,
            iif (p.godendo is not null, cast(p.godendo as date),'01.01.1990') as godendo_date,
-           p.barcode
+           p.barcode,
@@ Строка 587: / Строка 601: @@
          left join vals vname on vname.id=w.name_id
          where   d.doc_type in (1,2,3,6,9)
-         and d.id=:doc_id  and d.docdate between :DATESTART and :DATEEND and d.docdate is not null
+         and d.id=:doc_id  -- and d.docdate between :DATESTART and :DATEEND
+--            into :d_type, :docnum, :docdate, :supplier, :supplier_inn, :device_num, :n_chek, :fio_chek, :pp_teg, :drug_name, :izg_id, :drug_producer_name,
-            into :d_type, :docnum, :docdate, :supplier, :supplier_inn, :device_num, :n_chek, :fio_chek, :pp_teg, :drug_name, :izg_id, :drug_producer_name,
+--                 :bcodeizg, :drug_producer_country, :cena_zak, :seria, :godendo_date, :barcode;
-                 :bcodeizg, :drug_producer_country, :cena_zak, :seria, :godendo_date, :barcode;
       suspend;
@@ Строка 600: / Строка 615: @@
 SET TERM ; ^
-/* Following GRANT statements are generated automatically */
+/* Following GRANT statetements are generated automatically */
 GRANT SELECT ON DOC_DETAIL TO PROCEDURE PR_LOAD_MOVE_PARTNER;
 GRANT SELECT ON USERS TO PROCEDURE PR_LOAD_MOVE_PARTNER;
@@ Строка 609: / Строка 625: @@
 GRANT SELECT ON WARES TO PROCEDURE PR_LOAD_MOVE_PARTNER;
 GRANT SELECT ON VALS TO PROCEDURE PR_LOAD_MOVE_PARTNER;
 /* Existing privileges on this procedure */
 GRANT EXECUTE ON PROCEDURE PR_LOAD_MOVE_PARTNER TO SYSDBA;
-−
 </pre>

@@ Строка 127: / Строка 127: @@
 . Сводная база (единое окно)
 устанавливаем в базу две процедуры
-=== Процедура выгузки движения товара ===
+=== Процедура выгрузки движения товара ===
 ==== Временная таблица для движения ====
 <pre>

@@ Строка 366: / Строка 366: @@
 GRANT EXECUTE ON PROCEDURE PR_LOAD_MOVE_PARTNER TO SYSDBA;
-</pre
+</pre>
 ==== PR_LOAD_MOVE_PARTNER для менеджера ====