PROCESS BEFORE OUTPUT.
MODULE STATUS_3000.
LOOP WITH CONTROL TC_ZST046.
MODULE FILL_TABLE_CONTROL.
ENDLOOP.
*
PROCESS AFTER INPUT.
LOOP WITH CONTROL TC_ZST046.
MODULE READ_TABLE_CONTROL.
ENDLOOP.
* MODULE UPDATE_ZST046.
PROCESS ON VALUE-REQUEST.
* FIELD ZST046-MATNRO MODULE VALUE_MATNRO_INPUT.
FIELD ZST046-MATNRO MODULE VALUE_ZST046_MATNRO_INPUT.
FIELD ZST046-MATNRC MODULE VALUE_ZST046_MATNRC_INPUT.
FIELD ZST046-ZGROUP MODULE VALUE_ZST046_ZGROUP_INPUT.
FIELD ZST046-LEDC MODULE VALUE_ZST046_LEDC_INPUT.
FIELD ZST046-SEQNO MODULE VALUE_ZST046_SEQNO_INPUT.
*----------------------------------------------------------------------*
***INCLUDE LZM008O01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module modify_screen_attrib OUTPUT
*&---------------------------------------------------------------------*
module modify_screen_attrib output.
loop at screen.
case trantype.
when 'A'.
screen-input = 0.
endcase.
modify screen.
endloop.
endmodule. " modify_screen_attrib OUTPUT
*{ INSERT DEVK900156 1
*&---------------------------------------------------------------------*
*& Module STATUS_3000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_3000 OUTPUT.
**先看ZST046有沒有對應DN的資料
**CLEAR it_zst046.
**FREE it_zst046.
* SELECT SINGLE * FROM ZST046
* WHERE VBELN = LIPS-VGBEL
* AND POSNR = LIPS-VGPOS.
* IF SY-SUBRC = 0.
* SELECT *
* FROM ZST046
* WHERE VBELN = LIPS-VGBEL
* AND POSNR = LIPS-VGPOS.
* READ TABLE IT_ZST046 WITH KEY VBELN = ZST046-VBELN
* POSNR = ZST046-POSNR
* SEQNO = ZST046-SEQNO.
* IF SY-SUBRC <> 0.
* READ TABLE D_ZST046 WITH KEY VBELN = ZST046-VBELN
* POSNR = ZST046-POSNR
* SEQNO = ZST046-SEQNO.
**如果在紀錄DELETE的INTERNAL TABLE也找不到，代表確實要新增
* IF SY-SUBRC <> 0.
* MOVE-CORRESPONDING ZST046 TO IT_ZST046.
* APPEND IT_ZST046.
* ENDIF.
* ENDIF.
* ENDSELECT.
* ENDIF.
* DESCRIBE TABLE IT_ZST046 LINES L_LINES.
**如果沒有，則去SALES ORDER的ZST045抓對應的SO資料
**20100910 BY SM
** IF L_LINES = 0.
*CLEAR IT_ZST046.
*FREE IT_ZST046.
* SELECT *
* INTO CORRESPONDING FIELDS OF TABLE IT_ZST046
* FROM ZST045
* WHERE VBELN = LIPS-VGBEL
* AND POSNR = LIPS-VGPOS
* AND KUNNR = LIKP-KUNAG.
** ENDIF.
* LOOP AT IT_ZST046.
* IT_ZST046-VBELN = LIPS-VBELN.
* IT_ZST046-POSNR = LIPS-POSNR.
* MODIFY IT_ZST046.
* ENDLOOP.
* L_LINES = 0.
* LOOP AT IT_ZST046 WHERE VBELN = LIPS-VBELN AND POSNR = LIPS-POSNR.
* L_LINES = L_LINES + 1.
* ENDLOOP.
DESCRIBE TABLE IT_ZST046 LINES L_LINES.
TC_ZST046-LINES = L_LINES.
SORT IT_ZST046 BY POSNR SEQNO.
ENDMODULE. " STATUS_3000 OUTPUT
*} INSERT
*{ INSERT DEVK900156 2
*&---------------------------------------------------------------------*
*& Module FILL_TABLE_CONTROL OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE FILL_TABLE_CONTROL OUTPUT.
* READ TABLE IT_ZST046 INTO ZST046 INDEX TC_ZST046-CURRENT_LINE.
L_LINES = 0.
LOOP AT IT_ZST046 WHERE VBELN = LIPS-VBELN AND POSNR = LIPS-POSNR
AND MATNR = LIPS-MATNR. "20110905 BY SM
L_LINES = L_LINES + 1.
IF L_LINES = TC_ZST046-CURRENT_LINE.
MOVE-CORRESPONDING IT_ZST046 TO ZST046 .
ENDIF.
ENDLOOP.
ENDMODULE. " FILL_TABLE_CONTROL OUTPUT
*} INSERT
*----------------------------------------------------------------------*
***INCLUDE LZM008I01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module beleg_suchen INPUT
*&---------------------------------------------------------------------*
MODULE BELEG_SUCHEN INPUT.
DATA: FLAG.
FLAG = 'X'.
EXPORT FLAG TO MEMORY ID 'MB51_FLAG'.
CALL TRANSACTION 'MB51'.
GET PARAMETER ID 'MBN' FIELD LIPS-REFDOCNR.
GET PARAMETER ID 'POS' FIELD LIPS-REFDOCITEM.
ENDMODULE. " beleg_suchen INPUT
*&---------------------------------------------------------------------*
*& Module READ_TABLE_CONTROL INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE READ_TABLE_CONTROL INPUT.
DESCRIBE TABLE IT_ZST046 LINES L_LINES.
IF ZST046-MATNRO IS INITIAL.
* DELETE IT_ZST046 INDEX TC_ZST046-CURRENT_LINE.
DELETE IT_ZST046 WHERE VBELN = ZST046-VBELN AND
POSNR = ZST046-POSNR AND
SEQNO = ZST046-SEQNO.
ELSE.
ZST046-VBELN = LIPS-VBELN.
ZST046-POSNR = LIPS-POSNR.
ZST046-MATNR = LIPS-MATNR.
ZST046-KUNNR = LIKP-KUNAG.
READ TABLE IT_ZST046 WITH KEY VBELN = ZST046-VBELN
POSNR = ZST046-POSNR
SEQNO = ZST046-SEQNO
*20101025 BY SM 若有修改料號，也要能判斷
MATNR = ZST046-MATNR
KUNNR = ZST046-KUNNR.
IF SY-SUBRC = 0.
MODIFY IT_ZST046 FROM ZST046 TRANSPORTING
VBELN POSNR MATNR MATNRO MATNRC KUNNR CHPCAT
IVULMT IVMIN IVMAX VFULMT VFMIN VFMAX
WDULMT WDMIN WDMAX CTULMT CCTMIN CCTMAX
CIE1 CIE2 CIE3 CIE4 CIE5 CIE6 CIE7 CIE8
CIE9 CIE10 CIE11 CIE12 CIE13 CIE14 CIE15 CIE16
WHERE VBELN = ZST046-VBELN
AND POSNR = ZST046-POSNR
*20110905 BY SM
AND KUNNR = ZST046-KUNNR
AND MATNR = ZST046-MATNR
* AND MATNRO = ZST046-MATNRO "20111017 BY SM
* AND MATNRC = ZST046-MATNRC
* AND ZGROUP = ZST046-ZGROUP
* AND LEDC = ZST046-LEDC
AND SEQNO = ZST046-SEQNO.
ELSE.
IF ZST046-SEQNO <> SPACE.
DELETE IT_ZST046 WHERE VBELN = ZST046-VBELN AND POSNR = ZST046-POSNR AND SEQNO = ZST046-SEQNO.
MOVE-CORRESPONDING ZST046 TO IT_ZST046.
APPEND IT_ZST046.
ENDIF.
ENDIF.
ENDIF.
* ELSEIF TC_ZST046-CURRENT_LINE <= L_LINES.
* MODIFY IT_ZST046 FROM ZST046 INDEX TC_ZST046-CURRENT_LINE.
* ELSE.
* ZST046-VBELN = LIPS-VBELN.
* ZST046-POSNR = LIPS-POSNR.
* ZST046-MATNR = LIPS-MATNR.
* ZST046-KUNNR = LIKP-KUNAG.
* MOVE-CORRESPONDING ZST046 TO IT_ZST046.
* APPEND IT_ZST046.
* ENDIF.
ENDMODULE. " READ_TABLE_CONTROL INPUT
*&---------------------------------------------------------------------*
*& Module UPDATE_ZST046 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE UPDATE_ZST046 INPUT.
FREE MEMORY ID 'ZST046'.
EXPORT IT_ZST046 TO MEMORY ID 'ZST046'.
* DELETE FROM ZST046
* WHERE VBELN = LIPS-VBELN
* AND POSNR = LIPS-POSNR.
*20100910 BY SM ->MARK LINE 77
* MODIFY ZST046 FROM TABLE IT_ZST046.
*
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
ENDMODULE. " UPDATE_ZST046 INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_MATNRO_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_SEQNO_INPUT INPUT.
DATA: IT_TMP TYPE ZST046 OCCURS 0 WITH HEADER LINE,
IT_RET TYPE DDSHRETVAL OCCURS 0 WITH HEADER LINE,
IT_DYNPFIELDS TYPE DYNPREAD OCCURS 0 WITH HEADER LINE,
L_COVT(10) TYPE C,
L_CVTN TYPE N.
DATA: L_SEQNO LIKE ZST046-SEQNO.
DATA : L_CURSORFIELD(20) VALUE 'ZST046-SEQNO'.
*20110905 BY SM
CLEAR L_LINE.
GET CURSOR LINE L_LINE.
SET CURSOR FIELD 'ZST046-SEQNO'.
GET CURSOR FIELD L_CURSORFIELD VALUE L_SEQNO.
CLEAR IT_DYNPFIELDS. REFRESH IT_DYNPFIELDS.
*20110905 BY SM
CLEAR IT_TMP.
REFRESH IT_TMP.
CLEAR IT_RET.
REFRESH IT_RET.
*20110905 BY SM
IF IT_ZST046[] IS NOT INITIAL.
READ TABLE IT_ZST046 index L_LINE.
IF ZST046-MATNRO IS INITIAL.
ZST046-MATNRO = IT_ZST046-MATNRO.
ENDIF.
IF ZST046-MATNRC IS INITIAL.
ZST046-MATNRC = IT_ZST046-MATNRC.
ENDIF.
IF ZST046-ZGROUP IS INITIAL.
ZST046-ZGROUP = IT_ZST046-ZGROUP.
ENDIF.
IF ZST046-LEDC IS INITIAL.
ZST046-LEDC = IT_ZST046-LEDC.
ENDIF.
ENDIF.
*20100913 BY SM 維持抓既有的ZST045資料，若有異動，USER自行手動修改
* SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TMP
* FROM ZST045
* WHERE VBELN = LIPS-VGBEL
* AND POSNR = LIPS-VGPOS
**20101022 BY SM
* AND KUNNR = LIKP-KUNAG "sold-to-party
* AND MATNR = LIPS-MATNR.
IF ZST046-ZGROUP IS NOT INITIAL AND ZST046-LEDC IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TMP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND KUNNR = LIKP-KUNNR
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC
AND ZGROUP = ZST046-ZGROUP
AND LEDC = ZST046-LEDC.
ELSEIF ZST046-ZGROUP IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TMP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND KUNNR = LIKP-KUNNR
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC
AND ZGROUP = ZST046-ZGROUP.
ELSEIF ZST046-LEDC IS NOT INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TMP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND KUNNR = LIKP-KUNNR
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC
AND LEDC = ZST046-LEDC.
ELSEIF ZST046-MATNRO IS INITIAL AND ZST046-MATNRC IS INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TMP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND KUNNR = LIKP-KUNNR
AND MATNR = LIPS-MATNR.
ENDIF.
IF SY-SUBRC = 0.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'SEQNO'
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'ZST046-SEQNO'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = IT_TMP
RETURN_TAB = IT_RET.
IF IT_RET[] IS NOT INITIAL.
READ TABLE IT_TMP WITH KEY SEQNO = IT_RET-FIELDVAL.
*20110905 BY SM
IT_DYNPFIELDS-FIELDNAME = IT_RET-RETFIELD.
IT_DYNPFIELDS-FIELDVALUE = IT_RET-FIELDVAL.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20100913 BY SM 因為改用SEQNO當KEY ，所以要多抓對外料號欄位MATNRO，否則若重新選擇後該項次不會更新，若有兩個項次以上則會空白
IT_DYNPFIELDS-FIELDNAME = 'ZST046-MATNRO'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-MATNRO.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*
* SORT IT_ZST046 BY POSNR SEQNO DESCENDING.
* READ TABLE IT_ZST046 WITH KEY POSNR = LIPS-POSNR.
*20100910 BY SM MARK LINE 131-133 解決序號問題
* L_CVTN = IT_ZST046-SEQNO + 1.
* IT_DYNPFIELDS-FIELDVALUE = L_CVTN.
* IT_TMP-SEQNO = L_CVTN.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-MATNRC'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-MATNRC.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-ZGROUP'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-ZGROUP.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-LEDC'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-LEDC.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20110905 BY SM
* IT_DYNPFIELDS-FIELDNAME = 'ZST046-CHPCAT'.
* IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CHPCAT.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
* IT_DYNPFIELDS-FIELDNAME = 'ZST046-IVULMT'.
* IT_DYNPFIELDS-FIELDVALUE = IT_TMP-IVULMT.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-SEQNO'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-SEQNO.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20110905 BY SM
SORT IT_ZST046 BY POSNR SEQNO DESCENDING.
READ TABLE IT_ZST046 WITH KEY POSNR = LIPS-POSNR.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-FLAG'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-FLAG.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-IVMIN'.
L_COVT = IT_TMP-IVMIN.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-IVMAX'.
L_COVT = IT_TMP-IVMAX.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20110905 BY SM
* IT_DYNPFIELDS-FIELDNAME = 'ZST046-VFULMT'.
* IT_DYNPFIELDS-FIELDVALUE = IT_TMP-VFULMT.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-VFMIN'.
L_COVT = IT_TMP-VFMIN.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-VFMAX'.
L_COVT = IT_TMP-VFMAX.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20110905
* IT_DYNPFIELDS-FIELDNAME = 'ZST046-WDULMT'.
* IT_DYNPFIELDS-FIELDVALUE = IT_TMP-WDULMT.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-WDMIN'.
L_COVT = IT_TMP-WDMIN.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-WDMAX'.
L_COVT = IT_TMP-WDMAX.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*2011905 BY SM
* IT_DYNPFIELDS-FIELDNAME = 'ZST046-CTULMT'.
* IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CTULMT.
* IT_DYNPFIELDS-STEPL = L_LINE.
* APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CCTMIN'.
L_COVT = IT_TMP-CCTMIN.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CCTMAX'.
L_COVT = IT_TMP-CCTMAX.
IT_DYNPFIELDS-FIELDVALUE = L_COVT.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE1'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE1.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE2'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE2.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE3'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE3.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE4'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE4.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE5'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE5.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE6'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE6.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE7'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE7.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE8'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE8.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE9'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE9.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE10'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE10.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE11'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE11.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE12'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE12.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE13'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE13.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE14'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE14.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE15'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE15.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
IT_DYNPFIELDS-FIELDNAME = 'ZST046-CIE16'.
IT_DYNPFIELDS-FIELDVALUE = IT_TMP-CIE16.
IT_DYNPFIELDS-STEPL = L_LINE.
APPEND IT_DYNPFIELDS.
*20110905 BY SM
* DELETE IT_ZST046 WHERE POSNR = LIPS-POSNR AND SEQNO = L_SEQNO.
DELETE IT_ZST046
WHERE MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC
AND ZGROUP = ZST046-ZGROUP
AND LEDC = ZST046-LEDC
AND POSNR = LIPS-POSNR
AND SEQNO = L_SEQNO.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
DYNAME = SY-REPID
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = IT_DYNPFIELDS.
MOVE-CORRESPONDING IT_TMP TO ZST046.
ZST046-VBELN = LIKP-VBELN.
ZST046-POSNR = LIPS-POSNR.
ZST046-MATNR = LIPS-MATNR.
ZST046-KUNNR = LIKP-KUNNR.
MOVE-CORRESPONDING ZST046 TO IT_ZST046.
APPEND IT_ZST046.
CLEAR IT_ZST046.
ENDIF.
ENDIF.
ENDMODULE. " VALUE_ZST046_SEQNO_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_MATNRO_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_MATNRO_INPUT INPUT.
DATA: BEGIN OF IT_MATNRO OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
END OF IT_MATNRO.
DATA: IT_MATNRO_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT DISTINCT KUNNR MATNRO INTO CORRESPONDING FIELDS OF TABLE IT_MATNRO
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNRO'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_MATNRO'
value_org = 'S'
TABLES
value_tab = IT_MATNRO
return_tab = IT_MATNRO_RET.
ZST046-MATNRO = IT_MATNRO_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_MATNRO_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_MATNRC_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_MATNRC_INPUT INPUT.
DATA: BEGIN OF IT_MATNRC OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
END OF IT_MATNRC.
DATA: IT_MATNRC_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT DISTINCT KUNNR MATNRO MATNRC INTO CORRESPONDING FIELDS OF TABLE IT_MATNRC
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNRC'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_MATNRC'
value_org = 'S'
TABLES
value_tab = IT_MATNRC
return_tab = IT_MATNRC_RET.
ZST046-MATNRC = IT_MATNRC_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_MATNRC_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_ZGROUP_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_ZGROUP_INPUT INPUT.
DATA: BEGIN OF IT_ZGROUP OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
ZGROUP LIKE ZST045-ZGROUP,
SEQNO LIKE ZST045-SEQNO,
MATNR LIKE ZST045-MATNR,
LEDC LIKE ZST045-LEDC,
IVMIN LIKE ZST045-IVMIN,
IVMAX LIKE ZST045-IVMAX,
VFMIN LIKE ZST045-VFMIN,
VFMAX LIKE ZST045-VFMAX,
CIE1 LIKE ZST045-CIE1,
CIE2 LIKE ZST045-CIE2,
CIE3 LIKE ZST045-CIE3,
CIE4 LIKE ZST045-CIE4,
WDMIN LIKE ZST045-WDMIN,
WDMAX LIKE ZST045-WDMAX,
CCTMIN LIKE ZST045-CCTMIN,
CCTMAX LIKE ZST045-CCTMAX,
END OF IT_ZGROUP.
DATA: IT_ZGROUP_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_ZGROUP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ZGROUP'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_ZGROUP'
value_org = 'S'
TABLES
value_tab = IT_ZGROUP
return_tab = IT_ZGROUP_RET.
ZST046-ZGROUP = IT_ZGROUP_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_ZGROUP_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_LEDC_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_LEDC_INPUT INPUT.
DATA: BEGIN OF IT_LEDC OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
ZGROUP LIKE ZST045-ZGROUP,
SEQNO LIKE ZST045-SEQNO,
MATNR LIKE ZST045-MATNR,
LEDC LIKE ZST045-LEDC,
IVMIN LIKE ZST045-IVMIN,
IVMAX LIKE ZST045-IVMAX,
VFMIN LIKE ZST045-VFMIN,
VFMAX LIKE ZST045-VFMAX,
CIE1 LIKE ZST045-CIE1,
CIE2 LIKE ZST045-CIE2,
CIE3 LIKE ZST045-CIE3,
CIE4 LIKE ZST045-CIE4,
WDMIN LIKE ZST045-WDMIN,
WDMAX LIKE ZST045-WDMAX,
CCTMIN LIKE ZST045-CCTMIN,
CCTMAX LIKE ZST045-CCTMAX,
END OF IT_LEDC.
DATA: IT_LEDC_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_LEDC
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'LEDC'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_LEDC'
value_org = 'S'
TABLES
value_tab = IT_LEDC
return_tab = IT_LEDC_RET.
ZST046-LEDC = IT_LEDC_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_LEDC_INPUT INPUT
MODULE VALUE_ZST046_MATNRO_INPUT INPUT.
DATA: BEGIN OF IT_MATNRO OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
END OF IT_MATNRO.
DATA: IT_MATNRO_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT DISTINCT KUNNR MATNRO INTO CORRESPONDING FIELDS OF TABLE IT_MATNRO
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNRO'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_MATNRO'
value_org = 'S'
TABLES
value_tab = IT_MATNRO
return_tab = IT_MATNRO_RET.
ZST046-MATNRO = IT_MATNRO_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_MATNRO_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_MATNRC_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_MATNRC_INPUT INPUT.
DATA: BEGIN OF IT_MATNRC OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
END OF IT_MATNRC.
DATA: IT_MATNRC_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT DISTINCT KUNNR MATNRO MATNRC INTO CORRESPONDING FIELDS OF TABLE IT_MATNRC
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNRC'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_MATNRC'
value_org = 'S'
TABLES
value_tab = IT_MATNRC
return_tab = IT_MATNRC_RET.
ZST046-MATNRC = IT_MATNRC_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_MATNRC_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_ZGROUP_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_ZGROUP_INPUT INPUT.
DATA: BEGIN OF IT_ZGROUP OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
ZGROUP LIKE ZST045-ZGROUP,
SEQNO LIKE ZST045-SEQNO,
MATNR LIKE ZST045-MATNR,
LEDC LIKE ZST045-LEDC,
IVMIN LIKE ZST045-IVMIN,
IVMAX LIKE ZST045-IVMAX,
VFMIN LIKE ZST045-VFMIN,
VFMAX LIKE ZST045-VFMAX,
CIE1 LIKE ZST045-CIE1,
CIE2 LIKE ZST045-CIE2,
CIE3 LIKE ZST045-CIE3,
CIE4 LIKE ZST045-CIE4,
WDMIN LIKE ZST045-WDMIN,
WDMAX LIKE ZST045-WDMAX,
CCTMIN LIKE ZST045-CCTMIN,
CCTMAX LIKE ZST045-CCTMAX,
END OF IT_ZGROUP.
DATA: IT_ZGROUP_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_ZGROUP
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ZGROUP'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_ZGROUP'
value_org = 'S'
TABLES
value_tab = IT_ZGROUP
return_tab = IT_ZGROUP_RET.
ZST046-ZGROUP = IT_ZGROUP_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_ZGROUP_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_ZST046_LEDC_INPUT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE VALUE_ZST046_LEDC_INPUT INPUT.
DATA: BEGIN OF IT_LEDC OCCURS 0,
KUNNR LIKE ZST045-KUNNR,
MATNRO LIKE ZST045-MATNRO,
MATNRC LIKE ZST045-MATNRC,
ZGROUP LIKE ZST045-ZGROUP,
SEQNO LIKE ZST045-SEQNO,
MATNR LIKE ZST045-MATNR,
LEDC LIKE ZST045-LEDC,
IVMIN LIKE ZST045-IVMIN,
IVMAX LIKE ZST045-IVMAX,
VFMIN LIKE ZST045-VFMIN,
VFMAX LIKE ZST045-VFMAX,
CIE1 LIKE ZST045-CIE1,
CIE2 LIKE ZST045-CIE2,
CIE3 LIKE ZST045-CIE3,
CIE4 LIKE ZST045-CIE4,
WDMIN LIKE ZST045-WDMIN,
WDMAX LIKE ZST045-WDMAX,
CCTMIN LIKE ZST045-CCTMIN,
CCTMAX LIKE ZST045-CCTMAX,
END OF IT_LEDC.
DATA: IT_LEDC_RET TYPE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_LEDC
FROM ZST045
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS
AND MATNR = LIPS-MATNR
AND MATNRO = ZST046-MATNRO
AND MATNRC = ZST046-MATNRC.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'LEDC'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'ZST046_LEDC'
value_org = 'S'
TABLES
value_tab = IT_LEDC
return_tab = IT_LEDC_RET.
ZST046-LEDC = IT_LEDC_RET-FIELDVAL.
ENDMODULE. " VALUE_ZST046_LEDC_INPUT INPUT
