Просмотр исходного текста страницы Выгрузка старого Автозаказа в Общий заказ

==Выгрузка==
Для работы дожно быть заполнено значение пути до папки Общего заказа
* Изменить вьюху VW_ZAKAZ добавить
<PRE>
SORIG_NAME как
(select list(distinct coalesce(v.svalue,w.mgn_name,''),';')
        from wares w
        inner join wares w2 on (w2.name_id = z.NAME_ID or w2.orig_name_id =  z.name_id--dd.NAME_ID
        ) and (w2.name_id = w.name_id or w2.orig_name_id = w.name_id)
        left join vals v on w.orig_name_id = v.id
        where w2.name_id is not null ) 
</PRE>
-полный текс
<PRE>CREATE OR ALTER VIEW VW_ZAKAZ(
    ID,
    SNAME,
    SIZG,
    SCOUNTRY,
    AGENT_TOVAR,
    QUANT,
    PRICE,
    SUMMA,
    PRICE_O,
    SUMMA_O,
    QUANTOST,
    AVG_QUANT,
    NAME_ID,
    PART_ID,
    INSERTDT,
    MIN_QUANT,
    KRITK,
    OPTIM_QUANT,
    MMBSH,
    LAST_DATE,
    LAST_QUANT,
    SORIG_NAME)
AS
SELECT
    z.id,
    sname,
    sizg,
    scountry,
    (select a.caption from pr_getmotherpart(part_id) pr left join agents a on pr.agent_id=a.id),
    z.quant,
    z.price,
    summa,
    z.price_o,
    summa_o,
    quantost,
    avg_quant,
    name_id,
    part_id,
    z.insertdt,
    min_quant,
    kritk,
    optim_quant,
    (select membership from PR_MEMBERSHIPS('PARTS=' || part_id || ';PARTS.NAME_ID=' || name_id ||';',ascii_char(13)||ascii_char(10),1)),
    last_date,
    LAST_QUANT,
    (select list(distinct coalesce(v.svalue,w.mgn_name,''),';')
        from wares w
        inner join wares w2 on (w2.name_id = z.NAME_ID or w2.orig_name_id =  z.name_id--dd.NAME_ID
        ) and (w2.name_id = w.name_id or w2.orig_name_id = w.name_id)
        left join vals v on w.orig_name_id = v.id
        where w2.name_id is not null )
FROM ZAKAZ_TMS z
left join parts p on p.id = z.part_id
;
</PRE>

* Добавить новую ТМС или изменить старый вариант на тот что ниже
<PRE>
uses         
  Classes, Graphics, Controls, Forms, Dialogs, ComCtrls,
  ToolWin, ImgList, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DB, IBQuery, IBDatabase, unDM, DBTables, cfdxUtils, Menus,
  Buttons, ExtCtrls, StdCtrls, cfSelectEdit,DateUtils,
  gb_table, Mask,  unFrameCustomDict, unMain,SysUtils, cfUtils;

var   t,profile,param_oz ,str_post,IMPORT_ID,sql: string;
   imp_count: Integer;

procedure miLoadToOZ;
var str: string;
    doc_type,i: integer;
    F : TextFile;
    FileName : String;
    qP: TIBQuery;
    PATH_ZAKAZ: String;
begin

 try
  qP:=TIBQuery.Create(nil);
  qP.Database:=dm.FindComponent('db');
  qP.Transaction:=TIBTransaction.Create(qP);
  qP.Transaction.DefaultDatabase:=qP.Database;

  //Путь выгрузки Автозаказа
  qP.sql.text:='select * from PARAMS where param_id = ''OZ_PATH''';
  qP.Active:=true;

  qP.first;
  if (not qP.eof) then
  begin
   PATH_ZAKAZ:= qP.FieldByName('PARAM_VALUE').AsString;
  end;                              
                     
  FileName:= PATH_ZAKAZ+'_import\'+DateToStr(Now)+'.ZAO';

  //frmmanagerxp2.LogIt(FileName);
  AssignFile(F, FileName);
  Rewrite(F);

  qP.sql.text:=sql;

  qP.Active:=true;

  while not qP.eof do
  begin
   WriteLn(F, qP.FieldByName('SNAME').AsString+#9+#9+#9+qP.FieldByName('QUANT').AsString+#9+#9+qP.FieldByName('QUANT').AsString+#9+qP.FieldByName('PRICE_O').AsString+#9+qP.FieldByName('SNAME').AsString+';'+qP.FieldByName('SORIG_NAME').AsString+';');
   qP.Next;
  end;

  finally
   qP.Free;
   CloseFile(F);

   Showmessage('Данные выгружены в Общий заказ');
  end;

end;

begin
sql:=gsender.GetCurSqlText;
miLoadToOZ;

end;                                 
</PRE>