***INCLUDE V05TZZMO .
* This form is called in the include LV05TFMO.
FORM MOVE_USERFIELDS USING ZP.
CASE ZP.
WHEN 'VBAK'.
* header
* MOVE LVBAK-XXXXX TO LVBMTV-ZZXXXXX.
*{ INSERT ECDK900327 2
DATA: ls_tvaut TYPE tvaut,
ls_tvfst TYPE tvfst,
ls_tvlst TYPE tvlst.
data: ls_TVV1T type TVV1T,
ls_TVV2T type TVV2T,
ls_TVV3T type TVV3T,
ls_T005U type T005U,
ls_kna1 type kna1.
CLEAR: ls_tvaut, ls_tvfst, ls_tvlst.
DATA: l_tdname TYPE thead-tdname,
lt_lines TYPE TABLE OF tline,
ls_lines TYPE tline.
CLEAR: lvbmtv-zaugrut.
SELECT SINGLE * INTO ls_tvaut
FROM tvaut
WHERE augru = lvbak-augru
AND spras = '1'.
IF sy-subrc = 0.
MOVE ls_tvaut-bezei TO lvbmtv-zaugrut.
ENDIF.
*
* CLEAR: lvbmtv-zfakskt.
* SELECT SINGLE * INTO ls_tvfst
* FROM tvfst
* WHERE faksp = lvbak-faksk
* AND spras = '1'.
* IF sy-subrc = 0.
* MOVE ls_tvfst-vtext TO lvbmtv-zfakskt.
* ENDIF.
* CLEAR: lvbmtv-zlifskt.
* SELECT SINGLE * INTO ls_tvlst
* FROM tvlst
* WHERE lifsp = lvbak-lifsk
* AND spras = '1'.
* IF sy-subrc = 0.
* MOVE ls_tvlst-vtext TO lvbmtv-zlifskt.
* ENDIF.
*
MOVE lvbak-submi TO lvbmtv-submi.
* MOVE LVBAK-KVGR1 TO LVBMTV-KVGR1.
* CLEAR: lvbmtv-ZKVGR1.
* select single * into ls_TVV1T
* from TVV1T
* where spras = '1'
* and KVGR1 = LVBAK-KVGR1.
* if sy-subrc = 0.
* move ls_TVV1T-BEZEI to LVBMTV-ZKVGR1.
* endif.
*
* MOVE LVBAK-KVGR2 TO LVBMTV-KVGR2.
* CLEAR: lvbmtv-ZKVGR2.
* select single * into ls_TVV2T
* from TVV2T
* where spras = '1'
* and KVGR2 = LVBAK-KVGR2.
* if sy-subrc = 0.
* move ls_TVV2T-BEZEI to LVBMTV-ZKVGR2.
* endif.
*
* MOVE LVBAK-KVGR3 TO LVBMTV-KVGR3.
* CLEAR: lvbmtv-ZKVGR3.
* select single * into ls_TVV3T
* from TVV3T
* where spras = '1'
* and KVGR3 = LVBAK-KVGR3.
* if sy-subrc = 0.
* move ls_TVV3T-BEZEI to LVBMTV-ZKVGR3.
* endif.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zddyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV01'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zddyq ls_lines-tdline INTO lvbmtv-zddyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zbzyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV02'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zbzyq ls_lines-tdline INTO lvbmtv-zbzyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zfpyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV03'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zfpyq ls_lines-tdline INTO lvbmtv-zfpyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zkpyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV04'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zkpyq ls_lines-tdline INTO lvbmtv-zkpyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zkhqtyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV05'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zkhqtyq ls_lines-tdline INTO lvbmtv-zkhqtyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-ztsyq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV06'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-ztsyq ls_lines-tdline INTO lvbmtv-ztsyq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zlgrq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV07'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zlgrq ls_lines-tdline INTO lvbmtv-zlgrq.
ENDLOOP.
ENDIF.
CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zyqdhrq.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV08'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-zyqdhrq ls_lines-tdline INTO lvbmtv-zyqdhrq.
ENDLOOP.
ENDIF.
* CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq1.'事业部要求入库时间
* l_tdname = lvbak-vbeln.
* CALL FUNCTION 'READ_TEXT'
* EXPORTING
* id = 'ZV09'
* language = sy-langu
* name = l_tdname
* object = 'VBBK'
* TABLES
* lines = lt_lines
* EXCEPTIONS
* id = 1
* language = 2
* name = 3
* not_found = 4
* object = 5
* reference_check = 6
* wrong_access_to_archive = 7
* OTHERS = 8.
* IF sy-subrc = 0.
* LOOP AT lt_lines INTO ls_lines.
* CONCATENATE lvbmtv-zqrrq1 ls_lines-tdline INTO lvbmtv-zqrrq1.
* ENDLOOP.
* ENDIF.
*
* CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq2.
* l_tdname = lvbak-vbeln.
* CALL FUNCTION 'READ_TEXT'
* EXPORTING
* id = 'ZV10'
* language = sy-langu
* name = l_tdname
* object = 'VBBK'
* TABLES
* lines = lt_lines
* EXCEPTIONS
* id = 1
* language = 2
* name = 3
* not_found = 4
* object = 5
* reference_check = 6
* wrong_access_to_archive = 7
* OTHERS = 8.
* IF sy-subrc = 0.
* LOOP AT lt_lines INTO ls_lines.
* CONCATENATE lvbmtv-zqrrq2 ls_lines-tdline INTO lvbmtv-zqrrq2.
* ENDLOOP.
* ENDIF.
*
* CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq3.
* l_tdname = lvbak-vbeln.
* CALL FUNCTION 'READ_TEXT'
* EXPORTING
* id = 'ZV11'
* language = sy-langu
* name = l_tdname
* object = 'VBBK'
* TABLES
* lines = lt_lines
* EXCEPTIONS
* id = 1
* language = 2
* name = 3
* not_found = 4
* object = 5
* reference_check = 6
* wrong_access_to_archive = 7
* OTHERS = 8.
* IF sy-subrc = 0.
* LOOP AT lt_lines INTO ls_lines.
* CONCATENATE lvbmtv-zqrrq3 ls_lines-tdline INTO lvbmtv-zqrrq3.
* ENDLOOP.
* ENDIF.
clear: lvbmtv-zREGIO.
select single * into ls_kna1
from kna1
where KUNNR = lvbak-kunnr.
if sy-subrc = 0.
select single * into ls_T005U
from T005U
where SPRAS = '1'
and LAND1 = ls_kna1-LAND1
and BLAND = ls_kna1-REGIO.
if sy-subrc = 0.
move ls_t005u-BEZEI to lvbmtv-zREGIO.
endif.
* select single VTEXT into lvbmtv-ZVTEXT1
* from TVK1T
* where KATR1 = ls_kna1-KATR1
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT2
* from TVK2T
* where KATR2 = ls_kna1-KATR2
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT3 客户属性
* from TVK3T
* where KATR3 = ls_kna1-KATR3
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT4
* from TVK4T
* where KATR4 = ls_kna1-KATR4
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT5
* from TVK5T
* where KATR5 = ls_kna1-KATR5
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT6
* from TVK6T
* where KATR6 = ls_kna1-KATR6
* and SPRAS = '1'.
*
* select single VTEXT into lvbmtv-ZVTEXT7
* from TVK7T
* where KATR7 = ls_kna1-KATR7
* and SPRAS = '1'.
* move ls_kna1-KATR1 to lvbmtv-KATR1.
* move ls_kna1-KATR2 to lvbmtv-KATR2.
* move ls_kna1-KATR3 to lvbmtv-KATR3.
* move ls_kna1-KATR4 to lvbmtv-KATR4.
* move ls_kna1-KATR5 to lvbmtv-KATR5.
* move ls_kna1-KATR6 to lvbmtv-KATR6.
* move ls_kna1-KATR7 to lvbmtv-KATR7.
endif.
*} INSERT
WHEN 'VBAP'.
* item
* MOVE LVBAP-XXXXX TO LVBMTV-ZZXXXXX.
*{ INSERT ECDK900327 1
if lvbap is not initial.
move LVBAP-KDMAT to LVBMTV-ZKDMAT.
endif.
DATA: ls_tvagt TYPE tvagt,
ls_mara TYPE mara,
ls_t023t TYPE t023t,
ls_vbkd type vbkd,
LS_T151T TYPE T151T,
LT_KONV TYPE TABLE OF KONV,
LS_KONV TYPE KONV,
ls_vbak type vbak,
ls_vbuk type vbuk,
ls_vbup type vbup,
LT_VBUP TYPE TABLE OF VBUP,
LS_LIPS TYPE LIPS,
LT_LIPS TYPE TABLE OF LIPS,
LS_VBRK TYPE VBRK,
LT_VBRK TYPE TABLE OF VBRK,
LT_VBRP TYPE TABLE OF VBRP,
LS_VBRP TYPE VBRP,
LT_VBUK_T TYPE TABLE OF VBUK,
LS_VBUK_T TYPE VBUK.
* LT_ce11000 TYPE TABLE OF ce11000,
* LS_ce11000 TYPE ce11000.
CLEAR: ls_tvagt, ls_mara, ls_t023t, ls_vbkd.
DATA: l_tdname_p TYPE thead-tdname,
lt_lines_p TYPE TABLE OF tline,
ls_lines_p TYPE tline.
CLEAR: lvbmtv-zabgrut.
SELECT SINGLE * INTO ls_tvagt
FROM tvagt
WHERE abgru = lvbap-abgru
AND spras = '1'.
IF sy-subrc = 0.
MOVE ls_tvagt-bezei TO lvbmtv-zabgrut.
ENDIF.
CLEAR: lvbmtv-znormt.
CLEAR: lvbmtv-zgroes.
CLEAR: lvbmtv-zwgbez.
SELECT SINGLE * INTO ls_mara
FROM mara
WHERE matnr = lvbap-matnr.
IF sy-subrc = 0.
* MOVE ls_mara-normt TO lvbmtv-znormt.
MOVE ls_mara-groes TO lvbmtv-zgroes.
SELECT SINGLE * INTO ls_t023t
FROM t023t
WHERE matkl = ls_mara-matkl
AND spras = '1'.
IF sy-subrc = 0.
MOVE ls_t023t-wgbez TO lvbmtv-zwgbez.
ENDIF.
ENDIF.
CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zkmxx.
CONCATENATE lvbap-vbeln lvbap-posnr INTO l_tdname_p.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z001'
language = sy-langu
name = l_tdname_p
object = 'VBBP'
TABLES
lines = lt_lines_p
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
.
IF sy-subrc = 0.
LOOP AT lt_lines_p INTO ls_lines_p.
CONCATENATE lvbmtv-zkmxx ls_lines_p-tdline INTO lvbmtv-zkmxx.
ENDLOOP.
ENDIF.
CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zhxmbz.
CONCATENATE lvbap-vbeln lvbap-posnr INTO l_tdname_p.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z002'
language = sy-langu
name = l_tdname_p
object = 'VBBP'
TABLES
lines = lt_lines_p
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
.
IF sy-subrc = 0.
LOOP AT lt_lines_p INTO ls_lines_p.
CONCATENATE lvbmtv-zhxmbz ls_lines_p-tdline INTO lvbmtv-zhxmbz.
ENDLOOP.
ENDIF.
CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zdydj.
CONCATENATE lvbap-vbeln lvbap-posnr INTO l_tdname_p.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z003'
language = sy-langu
name = l_tdname_p
object = 'VBBP'
TABLES
lines = lt_lines_p
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
.
IF sy-subrc = 0.
LOOP AT lt_lines_p INTO ls_lines_p.
CONCATENATE lvbmtv-zdydj ls_lines_p-tdline INTO lvbmtv-zdydj.
ENDLOOP.
ENDIF.
CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zyyzsb.
CONCATENATE lvbap-vbeln lvbap-posnr INTO l_tdname_p.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z004'
language = sy-langu
name = l_tdname_p
object = 'VBBP'
TABLES
lines = lt_lines_p
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
.
IF sy-subrc = 0.
LOOP AT lt_lines_p INTO ls_lines_p.
CONCATENATE lvbmtv-zyyzsb ls_lines_p-tdline INTO lvbmtv-zyyzsb.
ENDLOOP.
ENDIF.
CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zjyjz.
CONCATENATE lvbap-vbeln lvbap-posnr INTO l_tdname_p.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z005'
language = sy-langu
name = l_tdname_p
object = 'VBBP'
TABLES
lines = lt_lines_p
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
.
IF sy-subrc = 0.
LOOP AT lt_lines_p INTO ls_lines_p.
CONCATENATE lvbmtv-zjyjz ls_lines_p-tdline INTO lvbmtv-zjyjz.
ENDLOOP.
ENDIF.
MOVE LVBAP-MATKL TO LVBMTV-MATKL.
CLEAR: lvbmtv-KDGRP.
CLEAR: lvbmtv-ZKDGRP.
* SELECT SINGLE * INTO LS_VBKD
* FROM VBKD
* WHERE VBELN = LVBAP-VBELN.
* IF SY-SUBRC = 0.
* MOVE LS_VBKD-KDGRP TO LVBMTV-KDGRP.
select single * into ls_T151T
from T151T
where spras = '1'
and KDGRP = LS_VBKD-KDGRP.
if sy-subrc = 0.
move ls_T151T-KTEXT to LVBMTV-ZKDGRP.
endif.
* MOVE LVBAP-UEBTO TO LVBMTV-UEBTO.'过量交货限度
* MOVE LVBAP-UNTTO TO LVBMTV-UNTTO.交货不足限度
MOVE LVBAP-KZWI1 TO LVBMTV-ZKZWI1.
MOVE LVBAP-KZWI2 TO LVBMTV-ZKZWI2.
MOVE LVBAP-KZWI3 TO LVBMTV-ZKZWI3.
MOVE LVBAP-KZWI5 TO LVBMTV-ZKZWI5.
MOVE LVBAP-KZWI6 TO LVBMTV-ZKZWI6.
select single * into ls_vbak
from vbak
where vbeln = lvbap-vbeln.
if sy-subrc = 0.
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONV
FROM KONV
WHERE KNUMV = ls_vbak-KNUMV
AND KPOSN = LVBAP-POSNR.
IF SY-SUBRC = 0.
READ TABLE LT_KONV INTO LS_KONV WITH KEY KSCHL = 'ZF40'.
IF SY-SUBRC = 0.
MOVE LS_KONV-KBETR TO LVBMTV-ZF40.
ENDIF.
READ TABLE LT_KONV INTO LS_KONV WITH KEY KSCHL = 'ZJY0'.
IF SY-SUBRC = 0.
MOVE LS_KONV-KBETR TO LVBMTV-ZJY0.
ENDIF.
READ TABLE LT_KONV INTO LS_KONV WITH KEY KSCHL = 'PR00'.
IF SY-SUBRC = 0.
MOVE LS_KONV-KBETR TO LVBMTV-ZPR00.
ENDIF.
READ TABLE LT_KONV INTO LS_KONV WITH KEY KSCHL = 'PR01'.
IF SY-SUBRC = 0.
MOVE LS_KONV-KBETR TO LVBMTV-ZPR01.
ENDIF.
ENDIF.
endif.
clear:LVBMTV-zVSNMR,LVBMTV-ztext8.
move ls_vbak-VSNMR_V to LVBMTV-zVSNMR.
move lvbap-VRKME to lvbmtv-zVRKME.
"处理出口地区
CLEAR: l_tdname, lt_lines, ls_lines.
l_tdname = lvbak-vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ZV10'
language = sy-langu
name = l_tdname
object = 'VBBK'
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT lt_lines INTO ls_lines.
CONCATENATE lvbmtv-ztext8 ls_lines-tdline INTO lvbmtv-ztext8.
ENDLOOP.
ENDIF.
"处理出口地区
CLEAR: LT_LIPS, LS_LIPS, LT_VBUP, LS_VBUP, lvbmtv-ZLFIMG,lvbmtv-zfkimg.
select * INTO CORRESPONDING FIELDS OF TABLE LT_LIPS
FROM LIPS
WHERE VGBEL = LVBAP-VBELN
AND VGPOS = LVBAP-POSNR.
IF SY-SUBRC = 0.
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_VBUP
FROM VBUP
for all entries in LT_LIPS
WHERE VBELN = LT_LIPS-VBELN
AND POSNR = LT_LIPS-POSNR.
IF SY-SUBRC = 0.
LOOP AT LT_VBUP INTO LS_VBUP WHERE WBSTA = 'C'.
READ TABLE LT_LIPS INTO LS_LIPS WITH KEY VBELN = LS_VBUP-VBELN
POSNR = LS_VBUP-POSNR.
IF SY-SUBRC = 0.
* LS_LIPS-LFIMG = LS_LIPS-LFIMG + lvbmtv-ZLFIMG.
lvbmtv-ZLFIMG = lvbmtv-ZLFIMG + LS_LIPS-LFIMG.
*
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
* MOVE LS_LIPS-LFIMG TO lvbmtv-ZLFIMG.
MOVE LVBAP-POSEX TO LVBMTV-ZPOSEX.
MOVE LVBAP-KDMAT TO LVBMTV-ZKDMAT.
* MOVE LVBAP-FKIMG TO LVBMTV-ZFKIMG.
* CLEAR: LVBMTV-ZWKPSL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_VBRP
FROM VBRP
WHERE AUBEL = LVBAP-VBELN
AND AUPOS = LVBAP-POSNR.
* SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_VBRK
* FROM VBUP
* for all entries in LT_LIPS
* WHERE VBELN = LT_LIPS-VBELN
* AND LVBRK-VBTYP = 'M'
* AND LVBRK-FKSTO = ''.
*
* IF SY-SUBRC = 0.
* CLEAR: LT_VBRK.
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_VBRK
FROM VBRK
FOR ALL ENTRIES IN LT_VBRP
WHERE VBELN = LT_VBRP-VBELN.
* SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_CE11000
* FROM CE11000
* FOR ALL ENTRIES IN LT_VBRP
* WHERE rbeln = LT_VBRP-VBELN
* .
IF SY-SUBRC = 0.
LOOP AT LT_VBRP INTO LS_VBRP WHERE aubel = lvbap-vbeln AND aupos = lvbap-posnr .
READ TABLE LT_VBRK INTO LS_VBRK WITH KEY VBELN = LS_VBRP-VBELN
VBTYP = 'M'
FKSTO = ''.
* READ TABLE LT_CE11000 INTO LS_CE11000 WITH KEY rbeln = LS_VBRP-VBELN
* PALEDGER = '02'
* VRGAR = 'A'.
IF SY-SUBRC = 0 .
LVBMTv-ZFKIMG = LVBMTV-ZFKIMG + ls_vbrp-fkimg.
endif.
ENDLOOP.
ENDIF.
* MOVE LS_CE11000-ERLOS TO LVBMTV-ZERLOS.
* MOVE LS_VBRP-FKIMG TO LVBMTV-ZFKIMG.
* ENDIF.
* LVBMTV-ZWKPSL = LVBAP-KWMENG - LVBMTV-ZWKPSL.
*} INSERT
WHEN 'VBEP'.
* schedule line
* MOVE LVBEP-XXXXX TO LVBMTV-ZZXXXXX.
ENDCASE.
ENDFORM.