data: gv_ucomm_0809 like sy-ucomm.
constants: c_ucomm like sy-ucomm value 'P003'.
data: l_f_okcode like sy-ucomm.
perform get_ok_code_bom1 changing l_f_okcode.
case l_f_okcode.
when 'SRC'.
clear sy-ucomm.
*=== select all QC notifs with same VID
select * from qmel into table gt_qmel where
qmart eq c_qc and
qmnum ne viqmel-qmnum and
kfz_ident_nr eq viqmel-kfz_ident_nr.
if sy-subrc = 0.
* call VID display scrn
call screen 809 starting at 8 8 ending at 76 22.
else.
* no same VID exists
message w050(/rb04/yt2_iqis) with text-116.
endif.
* remove customer fcode/ucomm in sapliqs0
* customer fcode is invalid for sap and error arises!!!
field-symbols:
field_name = '(SAPLIQS0)OK-CODE'.
assign (field_name) to
* clear g_activetab.
field_name = '(SAPLXQQM)SY-UCOMM'.
assign (field_name) to
clear
endcase.
endmodule. " USER_COMMAND_0809
*&---------------------------------------------------------------------*
*& Form get_ok_code_bom1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form get_ok_code_bom1 changing l_okcode.
field-symbols:
data: field_name(40) type c.
field_name = '(SAPLIQS0)OK-CODE'.
assign (field_name) to
l_okcode =
endform. " get_ok_code_bom1
No comments:
Post a Comment