Hi Madhu,
No i had not called any FM.
Please find the code below.
if wf_werks NEQ '5600'.
SELECT SINGLE knumh FROM kotp210 into wf_knumh
WHERE kappl = wl_app AND
kschl = wl_stoc AND
werks = wf_werks AND
lgort = wf_lgort AND
matnr = wf_matnr AND
datbi >= sy-datlo AND
datab <= sy-datlo.
IF sy-subrc EQ 0.
PERFORM get_target_qty USING wf_matnr wf_knumh CHANGING wf_trgqty wf_box_trgqty.
ELSE.
SELECT SINGLE knumh FROM kotp200 INTO wf_knumh
WHERE kappl = wl_app AND
kschl = wl_stoc AND
werks = wf_werks AND
matnr = wf_matnr AND
datbi >= sy-datlo AND
datab <= sy-datlo.
IF sy-subrc EQ 0.
PERFORM get_target_qty USING wf_matnr wf_knumh CHANGING wf_trgqty wf_box_trgqty.
ELSE.
SELECT SINGLE knumh FROM kotp001 INTO wf_knumh
WHERE kappl = wl_app AND
kschl = wl_stoc AND
matnr = wf_matnr AND
datbi >= sy-datlo AND
datab <= sy-datlo.
IF sy-subrc EQ 0.
PERFORM get_target_qty USING wf_matnr wf_knumh CHANGING wf_trgqty wf_box_trgqty.
ENDIF.
ENDIF.
ENDIF.
*
if wf_box_trgqty GT 0.
lf_cartons = wf_trgqty / wf_box_trgqty." (Picked qty / Case pack qty)
wa_knmt-cartons = lf_cartons.
endif.
endif.
FORM get_target_qty USING wf_matnr wf_knumh CHANGING wf_trgqty wf_box_trgqty.
SELECT SINGLE knumh packnr packnr1 packnr2 packnr3 packnr4
FROM kondp
INTO wa_kondp
WHERE knumh = wf_knumh.
IF sy-subrc EQ 0.
SELECT packnr matnr trgqty baseunit
FROM packpo
APPENDING TABLE t_packpo
WHERE packnr = wa_kondp-packnr.
IF sy-subrc EQ 0.
READ TABLE t_packpo INTO wa_packpo WITH KEY matnr = wf_matnr.
IF sy-subrc = 0.
wf_trgqty = wa_packpo-trgqty.
ENDIF.
LOOP AT t_packpo INTO wa_packpo WHERE baseunit EQ 'BOX'.
wf_box_trgqty = wa_packpo-trgqty.
ENDLOOP.
ENDIF.
IF NOT wa_kondp-packnr1 IS INITIAL.
SELECT packnr matnr trgqty baseunit
FROM packpo
APPENDING TABLE t_packpo
WHERE packnr = wa_kondp-packnr1.
ENDIF.
IF NOT wa_kondp-packnr1 IS INITIAL.
SELECT packnr matnr trgqty baseunit
FROM packpo
APPENDING TABLE t_packpo
WHERE packnr = wa_kondp-packnr2.
ENDIF.
IF NOT wa_kondp-packnr1 IS INITIAL.
SELECT SINGLE packnr matnr trgqty baseunit
FROM packpo
APPENDING TABLE t_packpo
WHERE packnr = wa_kondp-packnr3.
ENDIF.
IF NOT wa_kondp-packnr1 IS INITIAL.
SELECT SINGLE packnr matnr trgqty baseunit
FROM packpo
APPENDING TABLE t_packpo
WHERE packnr = wa_kondp-packnr4.
ENDIF.
endif.
*
*
endform.
Bluesky
