Hi all,
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/70e8e725-f205-2e10-70bb-92ac8eb5ee93?overridelayout=t…
for Enhancement Assignment RSAP0001
(this code is working fine with Enhancement Assignment RSAP0001 but not with Implicit Enhancement as per the note )
CASE I_DATASOURCE.
WHEN '0FI_AP_30'.
DATA: LS_DTFIAP_3 TYPE DTFIAP_3,
L_SEGMENT TYPE FB_SEGMENT,
L_DOCLN6 TYPE DOCLN6,
L_TABIX LIKE SY-TABIX.
LOOP AT C_T_DATA INTO LS_DTFIAP_3.
L_TABIX = SY-TABIX.
CONCATENATE '000' LS_DTFIAP_3-BUZEI INTO L_DOCLN6.
SELECT SINGLE SEGMENT INTO L_SEGMENT
FROM FAGLFLEXA
WHERE RYEAR EQ LS_DTFIAP_3-FISCPER(4) AND
DOCNR EQ LS_DTFIAP_3-BELNR AND
RLDNR EQ '0L' AND
RBUKRS EQ LS_DTFIAP_3-BUKRS AND
DOCLN EQ L_DOCLN6.
IF SY-SUBRC = 0.
LS_DTFIAP_3-ZSEGMENT = L_SEGMENT.
ELSE.
CLEAR LS_DTFIAP_3-ZSEGMENT.
ENDIF.
MODIFY C_T_DATA FROM LS_DTFIAP_3 INDEX L_TABIX.
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
Thanks
Mirana