CHECK_QUANTITY

*&---------------------------------------------------------------------*
*& MODULE CHECK_QUANTITY INPUT *
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_0700 INPUT.

SAVE_OK = OK_CODE.
CLEAR OK_CODE.

CASE SAVE_OK.
WHEN 'BACK'.
CALL SCREEN 400.
WHEN 'CANC'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'SAVE'.
PERFORM CHECK_QUANTITY.
ENDCASE.

CLEAR SAVE_OK.

ENDMODULE. "USER_COMMAND_0700 INPUT

*&---------------------------------------------------------------------*
*& FORM CHECK_QUANTITY *
*&---------------------------------------------------------------------*
FORM CHECK_QUANTITY.

export matnr from matnr
charg from charg
menge from menge
lgort from WA_PHYINV-ZVVF_lgort
werks from WA_PHYINV-ZVVF_werks
meins from W_ERFME
TO MEMORY ID 'MM032_MI10'.
EXPORT MENGE TO MEMORY ID 'MM032_TOTQTY'.
SUBMIT ZVVF_MR323_BDCMI10 AND RETURN.
w_mtype = '1'.
perform DIFF_UPDATE.
W_FLAG400 = ''.
call screen 400.
ENDFORM. " CHECK_QUANTITY INPUT