BEGIN

  DECLARE
       v_DateOthet date := p_DateOtchet;
       v_CID NUMBER;
       v_DateBegin date;
       v_DateEnd date;
       v_mounth number;
       
       CURSOR c_Depcells IS
       SELECT c.ID, p.date_begin , p.date_end , round(MONTHS_BETWEEN(trunc(p.Date_End), trunc(p.Date_begin))) mm
       from table1 c
       join table2 p on p.Contract_Id = c.id

       where p.date_begin <= v_DateOthet and (c.date_close > v_DateOthet or c.date_close is null);
        
        BEGIN
          OPEN c_Dep;
          LOOP
            FETCH c_Dep INTO v_CID, v_DateBegin, v_DateEnd, v_mounth ;
            EXIT WHEN c_Dep%NOTFOUND;
                 FOR i IN 0 .. v_mounth-1
                   LOOP
                   INSERT INTO TBL_DATA (CONTRID,DATE_BEGIN,DATE_END, MOUNTH,LASTWORKDAYINMOUNTH) 
                   select v_CID,v_DateBegin,v_DateEnd,v_mounth
                          , case when trunc(Last_Day(ADD_MONTHS(v_DateBegin,i))) <= v_DateEnd
                                 then trunc(Last_Day(ADD_MONTHS(v_DateBegin,i)))
                      else trunc(v_DateEnd) end 
                   from dual;
                   COMMIT;
                   END LOOP;
          END LOOP;
          CLOSE c_Dep;
        END;
END;

CREATE OR REPLACE PROCEDURE Get_DATA (
       p_DateOtchet DATE
)
IS
BEGIN

  DECLARE
       v_DateOthet date := p_DateOtchet;
       v_CID NUMBER;
       v_DateBegin date;
       v_DateEnd date;
       v_mounth number;
       
       CURSOR c_Depcells IS
       SELECT c.ID, p.date_begin , p.date_end , round(MONTHS_BETWEEN(trunc(p.Date_End), trunc(p.Date_begin))) mm
       from table1 c
       join table2 p on p.Contract_Id = c.id
       where p.date_begin <= v_DateOthet and (c.date_close > v_DateOthet or c.date_close is null);
        
        BEGIN
          OPEN c_Dep;
          LOOP
            FETCH c_Dep INTO v_CID, v_DateBegin, v_DateEnd, v_mounth ;
            EXIT WHEN c_Dep%NOTFOUND;
                 FOR i IN 0 .. v_mounth-1
                   LOOP
                   INSERT INTO TBL_DATA (CONTRID,DATE_BEGIN,DATE_END, MOUNTH,LASTWORKDAYINMOUNTH) 
                   select v_CID,v_DateBegin,v_DateEnd,v_mounth
                          , case when trunc(Last_Day(ADD_MONTHS(v_DateBegin,i))) <= v_DateEnd
                                 then trunc(Last_Day(ADD_MONTHS(v_DateBegin,i)))
                      else trunc(v_DateEnd) end 
                   from dual;
                   COMMIT;
                   END LOOP;
          END LOOP;
          CLOSE c_Dep;
        END;
END;