SAPever garden
DATA:BEGIN OF gs.
INCLUDE STRUCTURE zsma_gi.
DATA: spare01 LIKE zesb_input_glass_gi-spare01,
END OF gs.
select 内表与结构
SELECT SINGLE * INTO s_ztcost01 FROM ztcost01
SELECT * INTO TABLE t_ztcost01 FROM ztcost01
LOOP AT lt_stock.
IF lt_stock-clabs >= i_data-menge.
MOVE i_data-menge TO lt_gsmt-entry_qnt.
MOVE lt_stock-charg TO lt_gsmt-batch.
i_data-menge = 0.
APPEND lt_gsmt.
EXIT.
ELSE.
MOVE lt_stock-menge TO lt_gsmt-entry_qnt.
MOVE lt_stock-charg TO lt_gsmt-batch.
i_data-menge = i_data-menge - lt_stock-clabs.
DELETE lt_stock.
APPEND lt_gsmt.
CONTINUE.
ENDIF.
ENDLOOP.
IF i_data-menge > 0. "所有的账面库存数都用完之后还有数量
CLEAR: lt_gsmt,lt_gsmt[].
CLEAR: e_return.
e_return-seq = i_data-seq.
e_return-message = ‘库存短缺’.
APPEND e_return.
ma_log i_data-seq ‘INT_PP03’ i_data-fabid ‘E’ e_return-message ‘3’.
PERFORM frm_savelog_sh.
CONTINUE. "处理下一笔接口数据
ENDIF.
OLD:
READ TALBE itab INDEX idx INTO wa.
NEW:
wa = itab[idx].
OLD:
READ TABLE itab WITH KEY col1 = … col2 = … INTO wa.
NEW:
wa = itab[ col1 = … col2 = …].
OLD:
READ TABLE itab WITH KEY col1 = … col2 = … INTO wa.
IF SY-SUBRC = 0
…
ENDIF.
NEW:
IF LINE_EXISTS( ITAB[ col1 = … col2 = … ] ).
…
ENDIF.
单先与复选框、下拉列表项点击触发PAI后,接下来还会触发屏幕的PBO(回车也是这样),但如果点击的是执行按钮,则不会接着触发屏幕的PBO,除非没有输出或在Basic List列表页面上点击返回按钮时,才会触发PBO