ALTER PROCEDURE SP_RECEIPTMOVES (MAINDOC_REF INTEGER,
SHOW_REMNS SMALLINT,
TAX_PRICE SMALLINT)
RETURNS (RID INTEGER,
REC_TYPE SMALLINT,
REC_ORDER INTEGER,
GOODS_REF INTEGER,
GOODS_ABBR VARCHAR( 36 ) CHARACTER SET WIN1251,
GOODS_NAME VARCHAR( 50 ) CHARACTER SET WIN1251,
TAX_RATE INTEGER,
MUNITS_REF INTEGER,
MUNITS_NAME VARCHAR( 20 ) CHARACTER SET WIN1251,
QUANT DOUBLE PRECISION,
COST DOUBLE PRECISION,
SUM_COST DOUBLE PRECISION,
SUM_WOTAX DOUBLE PRECISION,
BCOST DOUBLE PRECISION,
BSUM_COST DOUBLE PRECISION,
BSUM_WOTAX DOUBLE PRECISION,
BTAX DOUBLE PRECISION,
BREMN_QUANT DOUBLE PRECISION,
BREMN_SUM_COST DOUBLE PRECISION,
BREMN_MUNITS_NAME VARCHAR( 20 ) CHARACTER SET WIN1251,
ACOST DOUBLE PRECISION,
ASUM DOUBLE PRECISION,
BCOST2 DOUBLE PRECISION,
BSUM2 DOUBLE PRECISION,
ASTR VARCHAR( 25 ) CHARACTER SET WIN1251)
AS 

  declare variable SYS_FLAG smallint;
  declare variable RATE_CFN double precision;
  declare variable L_SYS_FLAG smallint;
  declare variable BQUANT double precision;
  declare variable BMUNITS_REF integer;
  declare variable ACTIVE_FLAG smallint;
  declare variable DOC_TYPE smallint;
  declare variable PRID integer;
  declare variable CLOSE_DATE date;
  declare variable CLOSE_STAMP integer;
  declare variable DATE_STAMP integer;
  declare variable QUEUE_STAMP integer;
  declare variable DUMMY double precision;
  declare variable DIST_CFN double precision;
  declare variable DIST_EXPENSES double precision;
  declare variable SUM_BSUM_COST double precision;
  declare variable EXCL_TAX smallint;
begin
  if (MAINDOC_REF is null) then Exit;
  select SYS_FLAG,BASECURR_RATE/CURR_RATE,ACTIVE_FLAG,DOC_TYPE,DIST_EXPENSES
     from MainDocs3 where RID=:MAINDOC_REF
     into :SYS_FLAG,:RATE_CFN,:ACTIVE_FLAG,:DOC_TYPE,:DIST_EXPENSES;
  if (SYS_FLAG is null) then Exit;

  select SYS_FLAG from UserParams where USER_NAME = USER into :L_SYS_FLAG;
  if (L_SYS_FLAG is null) then L_SYS_FLAG =  0 ;
  if (L_SYS_FLAG !=  2  and L_SYS_FLAG != SYS_FLAG) then Exit;

  if (ACTIVE_FLAG !=  0  and SHOW_REMNS !=  0 ) then begin
     if (SYS_FLAG =  0 ) then select EXCL_TAX,CLOSED_PRD_0 from DatabaseParams into :EXCL_TAX,:CLOSE_DATE;
     else select EXCL_TAX,CLOSED_PRD_1 from DatabaseParams into :EXCL_TAX,:CLOSE_DATE;
     if (CLOSE_DATE is not null) then
        CLOSE_STAMP = ( ( CLOSE_DATE +  1  - cast('1 JAN 1970' as date) ) -  32768  ) *  65536 ;
     end
  else select EXCL_TAX from DatabaseParams into :EXCL_TAX;

  if( DIST_EXPENSES !=  0  ) then begin
     select sum(BSUM_COST) from Moves3 where MAINDOC_REF = :MAINDOC_REF into :SUM_BSUM_COST;
     if (SUM_BSUM_COST !=  0 ) then DIST_CFN =  1  - :DIST_EXPENSES / SUM_BSUM_COST;
     else DIST_CFN =  0 ;
     end

  for select t1.RID,t1.REC_TYPE,t1.REC_ORDER,t1.GOODS_REF,t2.ABBR,t2.NAME,t2.TAXRATES,
             t1.MUNITS_REF,t3.NAME,t2.MUNITS_REF,t1.BQUANT,t1.BSUM_COST,
             t1.QUEUE_STAMP,t1.DATE_STAMP,t1.ASUM_COST
      from Moves3 t1,Goods t2,MUnits t3
      where t1.MAINDOC_REF = :MAINDOC_REF and t1.GOODS_REF = t2.RID and
         t1.MUNITS_REF = t3.RID
      order by t1.REC_ORDER
      into :RID,:REC_TYPE,:REC_ORDER,:GOODS_REF,:GOODS_ABBR,:GOODS_NAME,:TAX_RATE,
           :MUNITS_REF,:MUNITS_NAME,:BMUNITS_REF,:BQUANT,:BSUM_COST,
           :QUEUE_STAMP,:DATE_STAMP,:ASUM
    do
      begin
      execute procedure sp_ConvertGoodsMUnits :GOODS_REF,:BMUNITS_REF,:BQUANT,
                         :MUNITS_REF returning_values :QUANT;
      if( DIST_EXPENSES !=  0  ) then
         BSUM_COST = BSUM_COST * DIST_CFN;

      BTAX = null;
      select TAX from SBDetail where MOVES_REF = :RID into :BTAX;
      if (EXCL_TAX !=  0 ) then begin
         BSUM_WOTAX = BSUM_COST;
         if (BTAX is not null) then BSUM_COST = BSUM_COST + BTAX;
         else BSUM_COST = BSUM_COST * (  1  + TAX_RATE /  10000  );
         end
      else begin
         if (BTAX is not null) then BSUM_WOTAX = BSUM_COST - BTAX;
         else BSUM_WOTAX = BSUM_COST - BSUM_COST * TAX_RATE / ( 10000  + TAX_RATE);
         end

      SUM_COST  = BSUM_COST / RATE_CFN;
      SUM_WOTAX = BSUM_WOTAX / RATE_CFN;
      if (QUANT !=  0 ) then begin
         if (TAX_PRICE !=  0 ) then  BCOST = BSUM_COST / QUANT;
         else BCOST = BSUM_WOTAX / QUANT;
         COST   = BCOST / RATE_CFN;
         ACOST  = ASUM / QUANT;
         end
      else begin
         if (BSUM_COST =  0 ) then BCOST =  0 ; else BCOST   = null;
         if (SUM_COST =  0 ) then COST =  0 ; else COST   = null;
         if (ASUM =  0 ) then ACOST =  0 ; else ACOST   = null;
         end

      if (ACTIVE_FLAG !=  0  and SHOW_REMNS !=  0 ) then begin
         DATE_STAMP = DATE_STAMP +  1 ;
         if (SHOW_REMNS !=  2 ) then
            execute procedure sp_GetQueueRemns :QUEUE_STAMP,:DATE_STAMP,:CLOSE_STAMP
               returning_values :BREMN_QUANT,:BREMN_SUM_COST,:DUMMY;
         else begin
            execute procedure sp_GetQueueRemnsQ :QUEUE_STAMP,:DATE_STAMP,:CLOSE_STAMP
               returning_values :BREMN_QUANT;
            BREMN_SUM_COST = null;
            end
         select NAME from MUnits where RID = :BMUNITS_REF into :BREMN_MUNITS_NAME;
         end

      BSUM2 = null;
      select BSUM from ReceiptSumsEx where MOVE_REF = :RID into :BSUM2;
      if (BSUM2 is null) then
         BCOST2 = null;
      else
         BCOST2 = BSUM2 / QUANT;

      ASTR = null;
      select ASTR from AStrList where RID = :RID into :ASTR;
      suspend;
      end
end