report  zpm_test.

data: gt_prps type prps occurs 0 with header line.
data: wa_jest like jest.

* Статус блокирование контировки = I0064
constants: c_stat like jest-stat value 'I0064'.


* P_PROJ - определение проекта
* P_SET = 'X' - установить блокировку, P_SET = ' ' - снять
parameters: p_proj like proj-pspnr matchcode object prsm,
            p_set as checkbox default 'X'.

start-of-selection.
   perform read_wbs_for_project.

end-of-selection.
   case p_set.
      when 'X'.
         perform block_wbs.
      when ' '.
         perform unblock_wbs.
   endcase.


*&---------------------------------------------------------------------*
*&      Form  read_wbs_for_project
*&---------------------------------------------------------------------*
FORM read_wbs_for_project .
   select * from prps into table gt_prps where psphi eq p_proj.

ENDFORM.                    " read_wbs_for_project

*&---------------------------------------------------------------------*
*&      Form  block_wbs
*&---------------------------------------------------------------------*
FORM block_wbs .

   loop at gt_prps.

      clear wa_jest.
      select single * into wa_jest from jest where objnr = gt_prps-objnr
                                               and stat  = c_stat.
      if sy-subrc = 0.

         if wa_jest-inact = 'X'.

            clear wa_jest-inact.
            add 1 to wa_jest-chgnr.

            update jest from wa_jest.

         endif.

      else.

         move: sy-mandt      to wa_jest-mandt,
               gt_prps-objnr to wa_jest-objnr,
               c_stat        to wa_jest-stat,
               1             to wa_jest-chgnr.

         insert jest from wa_jest.

      endif.


   endloop.

ENDFORM.                    " block_wbs

*&---------------------------------------------------------------------*
*&      Form  unblock_wbs
*&---------------------------------------------------------------------*
FORM unblock_wbs .

   loop at gt_prps.

      clear wa_jest.
     
      select single * into wa_jest from jest where objnr = gt_prps-objnr
                                               and stat  = c_stat
                                               and inact = space.
      if sy-subrc = 0.
     
         move 'X' to wa_jest-inact.
         add 1 to wa_jest-chgnr.
         
         update jest from wa_jest.
         
      endif.


   endloop.

ENDFORM.                    " unblock_wbs