FUNCTION Z_INTERFACE_00001650.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS
*"  EXPORTING
*"     VALUE(E_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS
*"----------------------------------------------------------------------

*-------------- Initialize Output by using the following line ----------
  E_POSTAB = I_POSTAB.

  TABLES : BSEG, LFA1,KNA1.
  DATA: W_NAME1 TYPE LFA1-NAME1,
        W_NAMEC TYPE KNA1-NAME1,
  W_LIFNR TYPE LFA1-LIFNR,
  W_KUNNR TYPE BSEG-KUNNR,
  W_HKONT TYPE BSEG-HKONT,
  W_TXT TYPE SKAT-TXT20,
  W_EBELN TYPE EKKO-EBELN.
  IF E_POSTAB-BLART EQ 'WE'.
*  “For MIGO documents
    SELECT SINGLE EBELN INTO W_EBELN FROM BSEG WHERE BELNR = E_POSTAB-BELNR
    AND BUKRS = E_POSTAB-BUKRS
    AND GJAHR = E_POSTAB-GJAHR
    AND HKONT = E_POSTAB-HKONT.

*** for GL accunt and description for expenses
    SELECT SINGLE HKONT FROM BSEG INTO E_POSTAB-ZHKONT WHERE BELNR = E_POSTAB-BELNR AND BSCHL in ('81','91')
     AND    KOART ='S'.
    SELECT SINGLE TXT20 FROM SKAT INTO E_POSTAB-ZTXT20 WHERE SAKNR = E_POSTAB-ZHKONT.

    IF SY-SUBRC = 0.

      SELECT SINGLE LFA1~NAME1
      LFA1~LIFNR
      INTO (W_NAME1, W_LIFNR)
      FROM EKKO INNER JOIN LFA1 ON EKKO~LIFNR =
      LFA1~LIFNR WHERE EKKO~EBELN = W_EBELN.

      IF SY-SUBRC = 0.

        E_POSTAB-ZNAME = W_NAME1.
        E_POSTAB-ZLIFNR = W_LIFNR.

        CLEAR:W_NAME1,W_LIFNR.
      ENDIF.
    ENDIF.
  ELSE.
*  “For other than MIGO doc
*i.e. Vendor Invoice
    SELECT SINGLE LIFNR
    FROM BSEG
    INTO (E_POSTAB-ZLIFNR)
    WHERE BUKRS = I_POSTAB-BUKRS
    AND GJAHR = I_POSTAB-GJAHR
    AND BELNR = I_POSTAB-BELNR
    AND BSCHL IN ('31','21')
    AND KOART = 'K'.
***  Customer code

    SELECT SINGLE KUNNR
  FROM BSEG
  INTO (E_POSTAB-ZKUNNR)
  WHERE BUKRS = I_POSTAB-BUKRS
  AND GJAHR = I_POSTAB-GJAHR
  AND BELNR = I_POSTAB-BELNR
  AND BSCHL IN ('01','02','11','12','15')
  AND KOART = 'D'.
**    Fetching Customer name
    SELECT SINGLE NAME1
FROM KNA1
INTO E_POSTAB-ZNAMEC
WHERE KUNNR = E_POSTAB-ZKUNNR.
* Fetching Vendor Name
    SELECT SINGLE NAME1
    FROM LFA1
    INTO E_POSTAB-ZNAME
    WHERE LIFNR = E_POSTAB-ZLIFNR.
  ENDIF.

ENDFUNCTION.

Hi Mr Eli Klovaski,

Thanks for reply

All the data is not available in BSIK and BSAK table i.e Purchase order No. This information is must required so that we used BSEG Table please suggest any other table can we use instead of BSIK,BSAK