Галактика в вопросах и ответах

Код: Выделить всё

select mc.f$name,
				 isnull(mol.f$name,'не опеределен') as mol,
				 isnull(party.f$name,'не определен') as party,
				  t1.f$kolp-t1.f$kolr as kolka,
				  t1.f$srprice as price
	
				
		  from (
				  select s.f$nrec, s.f$cmc, s.f$cmol, s.f$cparty, s.f$cpodr, 
					s.f$kolp, s.f$kolr, s.f$kol, s.f$srprice, 
					s.f$dsaldo, max(s.f$dsaldo) OVER(partition by s.f$cmc, s.f$cmol, s.f$cparty, s.f$cpodr) as maxdate			
			       from t$saldomc s inner join t$katpodr podr on s.f$cpodr=podr.f$nrec 
					where s.f$dsaldo<=@MyDate and s.f$sp=0 and s.f$cpodr=@CurPodr --and s.f$cmol=@CurMol				
				) t1
			inner join t$katmc mc on t1.f$cmc=mc.f$nrec
			left join t$katmol mol on t1.f$cmol=mol.f$nrec
			left join t$katparty party on t1.f$cparty=party.f$nrec           
			where f$dsaldo = maxdate and (t1.f$kolp-t1.f$kolr)<>0 
             order by mc.f$name

Код: Выделить всё

var

 SaldoDate  : Date;     //  - на какую дату
 SaldoBase  : Word;     //  - Для какой базы
 Saldo_SP   : word;     //  - 0= склад 1= производство
 Saldo_Vhod : boolean;  //  - True = входящий остаток ; False = исходящий; 


Table Struct MTSaldo
(
   cmc       : Comp,    // Наименование
   cPodr     : Comp,    // Наименование
   cMol      : Comp,    // Наименование
   cparty    : Comp,    // Наименование
   KOL     : double,
   SRPRICE : double,
   SRP     : double
)
with index 
( 
  MTSaldo1 = cPodr+cMol,  
  MTSaldo2 = cMol 
);

       
       and            ROOT == SaldoFND.SP 
       and       Saldo_SP  == SaldoFND.SP
       and     SaldoFND.SP == SaldoMC.SP
       and      SaldoDate >>= SaldoMC.dSaldo   
       and SaldoFND.cmc    == SaldoMC.cmc   
       and SaldoFND.cpodr  == SaldoMC.cpodr 
       and SaldoFND.cmol   == SaldoMC.cmol  
       and SaldoFND.cparty == SaldoMC.cparty



Function CalcSaldoMC(   pSaldoDate  : Date;     //  - на какую дату
                      NewSaldoBase  : Word;     //  - Для какой базы
                      NewSaldo_SP   : word;    // - 0= склад 1= производство
                      NewSaldo_Vhod : boolean; // - True = входящий остаток ; False = исходящий; 
                      pUseTekSaldo  : boolean  // - True - если можно, ползовать TekSaldo (Цен не будет)
                    ): boolean; // True, Если остатки правиьно посчитались

{
  var  NewSaldoDate  : Date;     //  - на какую дату

  NewSaldoDate := if(NewSaldo_Vhod,pSaldoDate,Add_Day(pSaldoDate,1));


  if (SaldoDate = Date(0,0,0)) or
     (NewSaldoDate <> SaldoDate) or 
     (NewSaldoBase <> SaldoBase) or
     (NewSaldo_SP  <> Saldo_SP ) then
  { //расчёт
     SetNBase(NewSaldoBase);

     set SaldoBase  := NewSaldoBase ;
     set SaldoDate  := NewSaldoDate ;
     set Saldo_SP   := NewSaldo_SP  ;

     if (SaldoDate = Add_Day(cur_date,1)) and pUseTekSaldo and (tsOk= getfirst TekSaldo)then
     { 
     SetVisualHeader('База N'+string(CurNBase)+ chr(13)+
                         'Просмотр остатков на Сегодня'+chr(13)+
                         '=================');
       delete all MTSaldo;

       _Loop TekSaldo 
       if TekSaldo.Kol <> 0 then
       {
         insert MTSaldo set  MTSaldo.cmc    := TekSaldo.cmc   ,
                             MTSaldo.cpodr  := TekSaldo.cpodr ,
                             MTSaldo.cmol   := TekSaldo.cmol  ,
                             MTSaldo.cparty := TekSaldo.cparty,
                             MTSaldo.Kol    := TekSaldo.Kol   ;
       }
     } // if 
     else
     if (tsOk= getfirst SaldoFND) then
     {
     SetVisualHeader('База N'+string(CurNBase)+ chr(13)+
                         'Расчёт входящих остатков на:'+NewSaldoDate+chr(13)+
                         '=================');
         var i1: integer; 
         i1 := 0;
       delete all MTSaldo;

         i1 := 0;
       _loop SaldoFnd
       {               
         if (tsOk = getLast SaldoMC) and (SaldoMC.Kol <> 0) then
         {
            Insert current MTSaldo set 
                           MTSaldo.cmc    := SaldoMC.cmc   ,
                           MTSaldo.cpodr  := SaldoMC.cpodr ,
                           MTSaldo.cmol   := SaldoMC.cmol  ,
                           MTSaldo.cparty := SaldoMC.cparty,
                             MTSaldo.Kol    := SaldoMC.Kol     ,
                             MTSaldo.SRPRICE:= SALDOMC.SRPRICE ,
                             MTSaldo.SRP    := SALDOMC.SRP     ;
         }
       }
     } else SaldoDate := Date(0,0,0);
  }

  if (SaldoDate = Date(0,0,0)) then message ('Ошибка расчета остатков на '+NewSaldoDate);
  CalcSaldoMC := (SaldoDate <> Date(0,0,0));
}

Код: Выделить всё

* ПРОБЛЕМА В ПИР: 101.49010
* ПЕРВОЕ РЕШЕНИЕ: NEW
* КРАТКОЕ ОПИСАНИЕ: Долго формируется отчет наличия остатков по складам 
(партионный учет)
* ПРОЕКТ: Складской учет
* ДЕТАЛИЗАЦИЯ: Наличие\по складам
# ЧТО ИЗМЕНЕНО:  ПИР 102.110377 - Долго формируется отчет наличия остатков по 
складам (партионный учет)- 10.10.2011 была решена. G_SKL 8.10.08.0.
Перед праздниками были установлены все последние патчи - проблема возникла 
вновь.

//
Долго формируется отчет "Ведомость наличия -  по складам" для складов ОРСа. 
Продукты учитываются по партиям. По всем другим складам - партий нет.
Для сравнения: Склад №1 БПТОиК - остатков на 78 079 544руб. (3 мин.)
               Столовая №1 - остатков на 750 314руб. (40 мин.)
Если сформировать отчет "Ведомость наличия - по партиям" для Столовой №1 - 
(2мин.).
Необходимо, чтобы отчет "Ведомость наличия - по складам" для складов ОРСа (учет 
по партиям) формировался 2-3мин.
Отчет о старой системе прилагается.
//

# КАК ИЗМЕНЕНО: Проблема с быстродействием решена, ускорение от нескольких раз, 
до нескольких десятков раз. Код формирования остатков был переведен на DSQL, и 
внедрен в интерфейсы "наличия по складам" и "наличие по складам в разрезе мол"
* * *