ALTER procedure dba.INSERT_RASHOD_DETAIL(@IN_ID_TYPE_REMONT integer,@IN_NAME_REMONT varchar( 254 ),@IN_ID_CAR integer,@IN_GOS_NOMER varchar( 20 ),@IN_DATA date,@IN_NAME_VID_REMONT varchar( 20 ),@IN_VID_REMONT integer,@IN_ID_MEN integer,@IN_NAME1 varchar( 30 ),@IN_ID_OTDEL integer,@IN_NAME_OTDEL varchar( 100 ),@IN_ID_PERSON integer,@IN_MATERIAL_PERSON varchar( 30 ),@IN_ID_USER integer,@IN_ID_REMONT_LIST integer)
as
declare @i smallint,
@IN_KOLVO_DETAIL real,
@IN_ID_PRIHOD_LIST_DETAIL integer,
@FLAG varchar( 5 ),
@IN_OSTATOK real,
@IN_ID_DETAIL integer,
@IN_ID_REMONT integer,
@IN_ID_REMONT_WORK integer,
@IN_ID_REMONT_LIST_DETAIL INTEGER,
@IN_ID_DETAIL_SKLAD INTEGER,
@IN_OSTATOK_SKLAD REAL,
@IN_ID_REMONT_SPIS INTEGER,
@sp char( 2 )

/**/
/**/
/**/
/**/

/**/
/**/
begin transaction
select @FLAG='0'

/**/
/**/
/**/
select @IN_ID_REMONT=- 1 
/**/
/**/
if @IN_ID_REMONT_LIST >  0  begin
    select @IN_ID_REMONT = MAX(ID_REMONT) from
      REMONT_LIST where
      ID_REMONT_LIST = @IN_ID_REMONT_LIST
  end
/**/
/**/
/**/
/**/
/**/
if(@IN_ID_REMONT = - 1 ) or(@IN_ID_REMONT is null) begin
    insert into REMONT(START_DATA,
      END_DATA,
      ID_CAR,
      GOS_NOMER,
      NAME_VID_REMONT,
      VID_REMONT,
      ID_MEN,
      NAME1,
      ID_OTDEL,
      NAME_OTDEL,
      ID_PERSON,
      MATERIAL_PERSON) values(
      @IN_DATA,
      @IN_DATA,
      @IN_ID_CAR,
      @IN_GOS_NOMER,
      @IN_NAME_VID_REMONT,
      @IN_VID_REMONT,
      @IN_ID_MEN,
      @IN_NAME1,
      @IN_ID_OTDEL,
      @IN_NAME_OTDEL,
      @IN_ID_PERSON,
      @IN_MATERIAL_PERSON)
    select @IN_ID_REMONT=@@IDENTITY
    if @@error<> 0  begin 
        select @FLAG='2' 
        goto ERR1
    end
     
     /**/
    /**/
    /**/
    /**/
    /**/
    /**/
    /**/  
    if @IN_ID_REMONT_LIST >  0  begin
        update REMONT_LIST set
          ID_REMONT = @IN_ID_REMONT where
          ID_REMONT_LIST = @IN_ID_REMONT_LIST
        if @@error<> 0  begin 
          select @FLAG='2' 
          goto ERR1
        end
        
      end

 //else begin
//          select @FLAG='2'
//          goto ERR1
 end
/**/
/**/
/**/
/**/
  insert into REMONT_SPIS_DETAILS
    (DATA_SPIS,
     ID_MEN,
     NAME1,
     ID_PERSON,
     MATERIAL_PERSON,
     ID_REMONT)
    VALUES
     (@IN_DATA,
      @IN_ID_MEN,
      @IN_NAME1,
      @IN_ID_PERSON,
      @IN_MATERIAL_PERSON,
      @IN_ID_REMONT)
     select @IN_ID_REMONT_SPIS=@@IDENTITY
    if @@error<> 0  begin 
        select @FLAG='2' 
        goto ERR1
    end
    /**/
/**/
/**/
/**/
/**/
  select @IN_ID_REMONT_WORK=- 1 
/**/ 
  select @IN_ID_REMONT_WORK=(SELECT ID_REMONT_WORK
                          FROM REMONT_WORK
                          WHERE ID_REMONT=@IN_ID_REMONT
                          AND ID_TYPE_REMONT=@IN_ID_TYPE_REMONT)
/**/
/**/
/**/

IF (@IN_ID_REMONT_WORK= 1 ) OR (@IN_ID_REMONT_WORK IS NULL) BEGIN
insert into REMONT_WORK(ID_TYPE_REMONT,
  NAME_REMONT,
  TIME_REMONT,
  ID_REMONT) values(
  @IN_ID_TYPE_REMONT,
  @IN_NAME_REMONT,
   0 ,
  @IN_ID_REMONT)
select @IN_ID_REMONT_WORK=@@IDENTITY
if @@error<> 0  begin 
       select @FLAG='2' 
        goto ERR1
end

//else begin
//          select @FLAG='2'
//          goto ERR1
end
--    
--
--
/**/
select @i = count(*) from
  REMONT_LIST_DETAILS
where
    ID_USER = @IN_ID_USER
/**/
/**/
declare cur dynamic scroll cursor for select KOLVO_DETAIL,
    ID_PRIHOD_LIST_DETAIL,
    ID_DETAIL,
    ID_DETAIL_SKLAD from
    REMONT_LIST_DETAILS where
    ID_USER = @IN_ID_USER
    
open cur
fetch next cur into @IN_KOLVO_DETAIL,
  @IN_ID_PRIHOD_LIST_DETAIL,
  @IN_ID_DETAIL,
  @IN_ID_DETAIL_SKLAD
while @i >  0 
  begin
    /**/
    /**/
    /**/
    /**/
    /**/
    select @IN_KOLVO_DETAIL=ROUND(ROUND(@IN_KOLVO_DETAIL, 3 ), 2 )
    /**/
    /**/
    IF (@IN_ID_DETAIL_SKLAD= 0 ) OR (@IN_ID_DETAIL_SKLAD IS NULL) BEGIN
    /**/
       select @IN_OSTATOK =ROUND(ROUND(OSTATOK, 3 ), 2 ) from
         PRIHOD_LIST_DETAIL where
         ID_PRIHOD_LIST_DETAIL = @IN_ID_PRIHOD_LIST_DETAIL
    /**/
    /**/
    /**/
    /**/
       if @IN_OSTATOK >= @IN_KOLVO_DETAIL begin
          update PRIHOD_LIST_DETAIL set
            OSTATOK = @IN_OSTATOK-@IN_KOLVO_DETAIL where
            ID_PRIHOD_LIST_DETAIL = @IN_ID_PRIHOD_LIST_DETAIL
        --
        --
        if @@error<> 0  begin 
         select @FLAG='2' 
         goto ERR1
        end
        --
        --
          update DETAILS set
            OSTATOK = OSTATOK-@IN_KOLVO_DETAIL where
            ID_DETAIL = @IN_ID_DETAIL
         if @@error<> 0  begin 
          select @FLAG='2' 
          goto ERR1
         end  
        end
       else begin
          select @FLAG='1'
          goto ERR1
       end
    end
    --
    --
    else begin
       select @IN_OSTATOK =ROUND(ROUND(OSTATOK, 3 ), 2 ) from
         PRIHOD_LIST_DETAIL_SKLAD where
         ID_DETAIL_SKLAD = @IN_ID_DETAIL_SKLAD
       /**/
       /**/
       /**/
        if @IN_OSTATOK >= @IN_KOLVO_DETAIL begin
          update PRIHOD_LIST_DETAIL_SKLAD set
            OSTATOK = @IN_OSTATOK-@IN_KOLVO_DETAIL where
            ID_DETAIL_SKLAD = @IN_ID_DETAIL_SKLAD
           
          if @@error<> 0  begin 
           select @FLAG='2' 
           goto ERR1
          end 
        end
       else begin
          select @FLAG='1'
          goto ERR1
       end
    end
    /**/
    /**/
    /**/
    /**/
    /**/
    /**/
    /**/
    /**/
    select @i=@i- 1 
    fetch next cur into @IN_KOLVO_DETAIL,
      @IN_ID_PRIHOD_LIST_DETAIL,@IN_ID_DETAIL,@IN_ID_DETAIL_SKLAD end
close cur
/**/
/**/
/**/
insert into REMONT_DETAILS(ID_DETAIL,
  NAME_DETAIL,
  KOD_DETAIL,
  KOLVO_DETAIL,
  PRICE_DETAIL,
  SUMMA_DETAIL,
  ID_PRIHOD_LIST_DETAIL,
  ID_REMONT_WORK,
  ID_REMONT_LIST,
  ID_REMONT_LIST_DETAIL,
  ID_DETAIL_SKLAD,
  ID_REMONT_SPIS)(
  select ID_DETAIL,
    NAME_DETAIL,
    KOD_DETAIL,
    KOLVO_DETAIL,
    PRICE_DETAIL,
    SUMMA_DETAIL,
    ID_PRIHOD_LIST_DETAIL,
    @IN_ID_REMONT_WORK,
    @IN_ID_REMONT_LIST,
    ID_REMONT_LIST_DETAIL,
    @IN_ID_DETAIL_SKLAD,
    @IN_ID_REMONT_SPIS from
    REMONT_LIST_DETAILS where
    ID_USER = @IN_ID_USER)
  if @@error<> 0  begin 
        select @FLAG='2' 
        goto ERR1
  end
/**/
/**/
/**/
/**/
delete from
  REMONT_LIST_DETAILS
where
    ID_USER = @IN_ID_USER
/**/
/**/
/**/
err1: if @FLAG <> '0' begin
    print 'rollback'
    select @FLAG
    rollback transaction  
  end
else
  begin
    print 'commit'
    select @FLAG
    commit transaction
  end
select @FLAG
return @FLAG
//end