Alter PROCEDURE "DBA"."proc_delai_echeance"()
result(@id_delai_1 char(2),@design_echeance_1 varchar(50),@selection_1 char(1))
on exception resume
begin


--// -----------------------------------------------------  
--// -----------------------------------------------------  

declare @design_delai  varchar(50) ;
declare @delai_actif char(1);
declare @id_echeance  char(2);
declare @id_echeance_lien char(2);
declare @id_delai_lien char(2);
declare @id_delai char(2) ;
declare @design_echeance varchar(50) ;
declare @selection char(1) ;


--// -----------------------------------------------------  
--// -----------------------------------------------------  

declare cursor_delai cursor for
  SELECT id,  design ,  delai_actif FROM   fi_delaimp WHERE  delai_actif ='O' order by design ;

--// -----------------------------------------------------  
--// -----------------------------------------------------  

declare cursor_echeance cursor for
  SELECT id,  id_echeance , id_delai , design FROM   fi_dlpossech RIGHT OUTER JOIN fi_echemp ON id_echeance = fi_echemp.id   ;


  open cursor_delai ;
  set @id_delai = 0 ;
  set @design_delai ='' ;
  set @delai_actif ='N' ;
  B1: loop  
   fetch cursor_delai into @id_delai, @design_delai, @delai_actif  ;
  if sqlcode <> 0 then leave B1       end if;

--  //select @id_delai_1 = @id_delai ;
    
    open cursor_echeance ;
    set @selection ='N' ;
    set @id_echeance ='';
    set @id_echeance_lien ='';
    set @id_delai_lien ='';
    set @design_echeance ='';
    B2: loop
    fetch cursor_echeance into @id_echeance, @id_echeance_lien,  @id_delai_lien , @design_echeance ;
    if sqlcode <> 0 then leave B2     end if;

--                 //================================================================
--               //================================================================

--    //select @design_echeance_1 = @design_echeance ;
    if @id_delai =  @id_delai_lien  then   set @selection ='O' end if;

--                //==============================================================
--               //================================================================

--    //select @selection_1 = @selection ;
    end loop B2;
    close cursor_echeance ;

  end loop B1;
    close cursor_delai ;
 
  
end