donyab

Эксель = Новый COMОбъект("Excel.Application"); 
Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

ПолучениеСоединенияСАнкетами(Connection);
   Текст = 

   "SELECT     INV.T876c, ISNULL(INV.T990t, '') AS T990t, INV.T876p, INV.SOURCE, INV.DOC_ID,  SUBSTRING (REPLACE (convert(varchar(1000),DOC.ITEM),CHAR(031),'!!!'),60, LEN (REPLACE (convert(varchar(1000),DOC.ITEM),'  vВ наличии : инв. 2015z_',''))) as item, DOC.BIBLEVEL, DOC.RECTYPE, SIGLAS.SHORTNAME, SIGLAS.ID, INV.INV_ID
   |INTO #temp1
   |FROM         SIGLAS RIGHT OUTER JOIN
   |                      INV ON SIGLAS.ID = INV.SIGLA_ID RIGHT OUTER JOIN
   |                      DOC ON INV.DOC_ID = DOC.DOC_ID
   |WHERE      (NOT (INV.T876p IS NULL)) AND (((SIGLAS.SHORTNAME  <> 'сбо') AND (SIGLAS.SHORTNAME <> 'прокат') ) AND NOT INV.T876p like('%P%'))";
   Connection.Execute(Текст);
   Текст =
   
   "SELECT     T876p, REPLACE (ITEM, CHAR(030),'###') as ITEM, INV_ID, T990t
   |INTO #temp2
   |FROM         #temp1";
   Connection.Execute(Текст);
   Текст =
   
   "SELECT replace (ITEM,'###100__!!!a','###100') AS ITEM, T876p, INV_ID, T990t
   |FROM #temp2
   |
   |ORDER BY ITEM
   |
   |DR OP   TABLE  #temp1
   |DR OP   TABLE  #temp2";


   RecordSet=Connection.Execute(Текст);