topic Re: How to using lock object by row in Application Development and Automation Discussions

How to using lock object by row

jandrivay — Wed, 24 Jun 2020 02:30:46 GMT

Hi all,
i need your advice,

i have screen and i create lock object,

i need when user1 open no.bill ex : 1-10 and change it, screen will input = 1.
and then when user 2 open no.bill ex : 8 - 12 , screen output no.bill 8-10 equal = 0 because user 1 opened it and no.bill 11-12 screen output = 1.

how can lock object inside loop ?

this is my code.

PROCESS BEFORE OUTPUT.
  MODULE status_0100.
  MODULE init.
  LOOP AT it_show WITH CONTROL tc_0001
  CURSOR tc_0001-current_line.
    MODULE icon_status.
    MODULE lock_object.
    MODULE screen_control.
    MODULE moveback_to_screen.
  ENDLOOP.


"------------------
MODULE lock_object.
DATA : lv_uname TYPE sy-msgv1,
       lv_msg   TYPE c LENGTH 40.

  CALL FUNCTION 'ENQUEUE_EZLOSD_TRIP_BBO2'
    EXPORTING
      mode_zsdtb_trip_bbo2 = 'E'
      mandt                = sy-mandt
      no_bill              = it_show-no_bill
    EXCEPTIONS
      foreign_lock         = 1
      system_failure       = 2
    OTHERS                 = 3.
  IF sy-subrc <> 0.
*    lv_uname = sy-msgv1.
*    CONCATENATE 'Data has been locked by :' lv_uname INTO lv_msg
*    SEPARATED BY space.
*    MESSAGE i000(zmm) WITH lv_msg DISPLAY LIKE 'E'.
    gv_error2 = 'X'.
  ENDIF.
ENDMODULE.

Thank You

Re: How to using lock object by row

venkateswaran_k — Wed, 24 Jun 2020 05:53:53 GMT

You can make it disable as below

  CALL FUNCTION 'ENQUEUE_EZLOSD_TRIP_BBO2'
    EXPORTING
      mode_zsdtb_trip_bbo2 = 'E'
      mandt                = sy-mandt
      no_bill              = it_show-no_bill
    EXCEPTIONS
      foreign_lock         = 1
      system_failure       = 2
    OTHERS                 = 3.
  IF sy-subrc <> 0.
       LOOP AT screen.               "<===== screen loop
           SCREEN-INPUT = 0.    " Disable for input
           MODIFY SCREEN.
      ENDLOOP.                         "<=== screen loop
    gv_error2 = 'X'.
  ENDIF.

Re: How to using lock object by row

DoanManhQuynh — Wed, 24 Jun 2020 06:09:33 GMT

so after get data from table and before display it on screen, you should check if record is locked then set input = 0.

Re: How to using lock object by row

Sandra_Rossi — Wed, 24 Jun 2020 08:57:52 GMT

Your question is unclear as you mix normal language and ABAP elements. Try to spend more time on describing clearly in full English.

Decoding and rephrasing your question:

Requirement:

When user 1 selects bills 1 to 10, the screen fields for all bills can be input because nobody maintained them yet.
When user 2 selects bills 8 to 12, the screen fields for bills 8 to 10 cannot be input because user 1 opened/locked them, and bills 11 and 12 can be input.

Question:

Does anybody know how to make fields input-capable or output-only depending on success or failure of lock.

Re: How to using lock object by row

Sandra_Rossi — Wed, 24 Jun 2020 09:01:03 GMT

Not related to your question, but please don't lock during the PBO because you shouldn't lock at each input of the user, or at each scroll of the screen.

Instead, I propose that you lock before displaying the screen, store the lock status in an intermediate field of the internal table IT_SHOW, don't display that field, and in PBO test this field to make fields input-capable or output-only.

Re: How to using lock object by row

jandrivay — Thu, 25 Jun 2020 04:32:54 GMT

Hi sandra.rossi ,
Thank you for correcting me .
yeah, i mean like that.
Thank you so much.