ABAP: Deny action on JIT-calls processing

ENHANCEMENT-POINT YPDENY_OFIN SPOTS YDENY_OFIN .
if ( chained_action_iv eq 'XX20' or chained_action_iv eq 'XX30' ) and action_iv = action_outbound_finish_gc. "OFIN
data: begin of it_benum occurs 0,
        outpo type ltak-benum,
      end of it_benum,
      begin of lt_benum occurs 0,
        outpo type SYCHAR50,
      end of lt_benum.
loop at jitodiaco_ct into wa_jito.
  append  wa_jito-outpo to it_benum.
endloop.
 
select ltak~tanum from ltak inner join ltap
 on ltak~tanum eq ltap~tanum into table lt_benum
 for all entries in it_benum[] where ltak~benum = it_benum-outpo and ltap~pquit = 'X' and ltap~vorga <> 'ST' and ltap~vorga <> 'SL'. "ST/SL - should not be cancelled
 if sy-subrc eq 0.
  message s002(Y_SAP).
  read table lt_benum into sy-msgv1.
 
  call function 'JITOUT04_FILL_ERROR_TABLE'
  exporting
    sy          = sy
  changing
    jitodata_cs = jitodata_cs.
  message s002(Y_SAP)
    with sy-msgv1
    raising no_action_done.
 endif. "sy-subrc eq 0
endif. "ACTION_IVs

Schreibe einen Kommentar



All fields are required. Your email address will not be published.