检验批过账冲销函数文档格式.docx
- 文档编号:4849350
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:21
- 大小:21.17KB
检验批过账冲销函数文档格式.docx
《检验批过账冲销函数文档格式.docx》由会员分享,可在线阅读,更多相关《检验批过账冲销函数文档格式.docx(21页珍藏版)》请在冰点文库上搜索。
EXCEPTIONS
foreign_lock
1
system_failure
2
OTHERS
3.
CLEAR
g_qals.
QPSE_LOT_READ'
i_prueflos
i_reset_lot
X'
e_qals
g_qals
no_lot
1.
IF
sy-subrc
0.
PERFORM
check_lot
USING
g_subrc.
NOT
g_subrc
IS
INITIAL.
CASE
WHEN
256.
g_msgv1
Lot
&
does
not
refer
to
a
material
doc'
.
128.
Material
is
serialized'
REPLACE
WITH
g_qals-matnr
INTO
g_msgv1.
64.
stock
relevant'
32.
:
No
transferred'
16.
cancelled'
8.
archived'
4.
blocked'
2.
HU
managed'
ENDCASE.
po_type
E'
po_mess
ENDIF.
ELSE.
检验批不存在'
g_qamb_tab[].
SELECT
*
FROM
qamb
TABLE
g_qamb_tab
WHERE
g_qals-prueflos
AND
typ
3'
<
>
检验批尚未过账'
g_mkpf_tab[].
read_mkpf
g_mkpf_tab
g_mseg_tab[].
read_mseg
g_mseg_tab
check_mseg
create_goods_movement
g_subrc
po_mess.
post_goods_movement.
post_data
g_qals_leiste
g_qamb_vb_tab
MESSAGE
ID
sy-msgid
NUMBER
sy-msgno
po_mess
sy-msgv1
sy-msgv2
sy-msgv3
sy-msgv4.
COMMIT
WORK
WAIT.
S'
冲销成功'
ENDFUNCTION.
*&
---------------------------------------------------------------------*
Form
CHECK_LOT
text
*----------------------------------------------------------------------*
-->
P_QALS
P_SUBRC
FORM
p_qals
LIKE
qals
p_subrc
sy-subrc.
DATA:
l_stat
jstat,
l_stat_tab
jstat
OCCURS
0
HEADER
LINE.
*/No
reference
document
p_qals-zeile
EXIT.
*/Serialized
Material
p_qals-sernp
*/BERF
STATUS_CHECK'
objnr
p_qals-objnr
status
I0203'
status_not_active
*/BTEI
BEND
l_stat.
l_stat_tab.
REFRESH
l_stat_tab.
l_stat-stat
I0219'
.
APPEND
TO
"
BTEI
I0220'
STATUS_OBJECT_CHECK_MULTI'
TABLES
status_check
l_stat_tab[]
*/LSTO
LSTV
I0224'
LSTO
I0232'
*/ARSP
ARCH
REO1
REO2
REO3
I0225'
ARSP
I0226'
ARCH
I0227'
I0228'
REO2
I0229'
REO1
*/SPER
I0043'
*/HUM
I0443'
ENDFORM.
READ_MKPF
P_QAMB_TAB
P_MKPF_TAB
p_qamb_tab
qambtab
p_mkpf_tab
t_mkpf_tab
BEGIN
OF
l_mkpf_key_tab
0,
mblnr
mkpf-mblnr,
mjahr
mkpf-mjahr,
END
l_mkpf_key_tab.
l_qamb
qamb,
l_mkpf
mkpf,
l_trtyp
t158-trtyp
VALUE
A'
l_vgart
t158-vgart
WQ'
l_xexit
qm00-qkz.
LOOP
AT
l_qamb.
l_mkpf_key_tab-mblnr
l_qamb-mblnr.
l_mkpf_key_tab-mjahr
l_qamb-mjahr.
COLLECT
ENDLOOP.
ENQUEUE_EMMKPF'
l_mkpf_key_tab-mblnr
l_mkpf_key_tab-mjahr
CLEAR:
l_mkpf.
MB_READ_MATERIAL_HEADER'
trtyp
l_trtyp
vgart
l_vgart
kopf
l_mkpf
error_message
p_mkpf_tab.
READ_MSEG
P_MSEG_TAB
p_mseg_tab
t_mseg_tab
l_mseg_tab
mseg
LINE,
l_mseg_tab.
REFRESH:
l_mseg_tab.
MB_READ_MATERIAL_POSITION'
l_mkpf-mblnr
l_mkpf-mjahr
*/
ZEILB
P_ZEILE
ZEILE
seqtab
l_mseg_tab
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 检验 过账 冲销 函数