Get Field MARA-FERTH By PO - Z_BAPI_GET_PO_PRODINSP_MEMO

[align=left]FUNCTION Z_BAPI_GET_PO_PRODINSP_MEMO.[/align]
[align=left]*"----------------------------------------------------------------------[/align]
[align=left]*"*"Local interface:[/align]
[align=left]*" IMPORTING[/align]
[align=left]*" REFERENCE(I_PONUM) LIKE AFKO-AUFNR[/align]
[align=left]*" EXPORTING[/align]
[align=left]*" REFERENCE(E_RETURN) LIKE MARA-FERTH[/align]
[align=left]*"----------------------------------------------------------------------[/align]
[align=left]* Author: Wei_Zhu[/align]
[align=left]* Date: 2007-04-19[/align]
[align=left]* Description: Check by PO --> Field MARA-FERTH then[/align]
[align=left]* Return the field contain[/align]
[align=left]*[/align]
[align=left]*-----------------------------------------------------------------------[/align]
[align=left]Tables: AFKO, MARA.[/align]
[align=left] [/align]
[align=left]DATA: L_RETURN LIKE MARA-FERTH.[/align]
[align=left] [/align]
[align=left]Select SINGLE MARA~FERTH INTO L_RETURN[/align]
[align=left] FROM AFKO[/align]
[align=left] INNER JOIN MARA[/align]
[align=left] ON AFKO~PLNBEZ = MARA~MATNR[/align]
[align=left] WHERE AFKO~AUFNR = I_PONUM.[/align]
[align=left] [/align]
[align=left]IF SY-SUBRC = 0.[/align]
[align=left] E_RETURN = L_RETURN.[/align]
[align=left]ELSE.[/align]
[align=left] E_RETURN = ''.[/align]
[align=left]ENDIF.[/align]
[align=left] [/align]
[align=left]ENDFUNCTION.[/align]

---Test Result