*
* Inner Join to retrieve the Material Valuation Class pointing to
* which General Ledger.
*
* Based on transaction OBYC - Inventory Posting - BSX
*
* If you use inner join to read data from several logically
* connected tables instead of nested Select statements.
* It will reduce your network load.
*
* Written by : SAP Basis, ABAP Programming and Other IMG Stuff
*              https://www.erpgreat.com
*
REPORT ZVALGL.

TABLES: MARA,   "General Material Data
        MAKT,   "Material Descriptions
        MBEW,   "Material Valuation
        SKAT,   "G/L Account Master Record
        T025T,  "Valuation Class Descriptions
        T030.   "Standard Accounts Table

DATA: BEGIN OF WA,
        BKLAS  TYPE MBEW-BKLAS,
        BKBEZ  TYPE T025T-BKBEZ,
        MTART  TYPE MARA-MTART,
        MATNR  TYPE MARA-MATNR,
        MAKTX  TYPE MAKT-MAKTX,
      END OF WA,
      ITAB LIKE SORTED TABLE OF WA
                WITH NON-UNIQUE KEY BKLAS MATNR.

SELECT-OPTIONS: PLANT    FOR MBEW-BWKEY MEMORY ID PLT,
                MATLTYPE FOR MARA-MTART MEMORY ID TYP,
                MATERIAL FOR MBEW-MATNR MEMORY ID MAT,
                CHARTACC FOR T030-KTOPL MEMORY ID KTO.

SELECT P~BKLAS
       F~MATNR F~MTART
       G~MAKTX
       T~BKBEZ
    INTO CORRESPONDING FIELDS OF TABLE ITAB
    FROM ( ( ( ( MBEW AS P
         INNER JOIN MARA  AS F ON P~MATNR  = F~MATNR )
         INNER JOIN MAKT  AS G ON P~MATNR  = G~MATNR )
         INNER JOIN T025T AS T ON P~BKLAS  = T~BKLAS ) )
    WHERE P~BWKEY IN PLANT
      AND F~MTART IN MATLTYPE
      AND P~MATNR IN MATERIAL
      AND G~SPRAS =  'E'.

LOOP AT ITAB INTO WA.
    CLEAR: T030, SKAT.
    SELECT SINGLE * FROM T030 WHERE BKLAS = WA-BKLAS
                                AND KTOSL = 'BSX'.
    SELECT SINGLE * FROM SKAT WHERE SAKNR = T030-KONTS
                                AND SPRAS = 'E'.
    WRITE: / WA, T030-KONTS, SKAT-TXT20.
ENDLOOP.

Fast Links:
BDC program examples:
Auto Disallowed Back Posting to Previous Period

Get help for your ABAP problems
Do you have a ABAP Question?

SAP Books
SAP Certification, Functional, Basis Administration and ABAP Programming Reference Books

ABAP Programming Tips
ABAP and Samples Program Codes for Abapers

Best regards,
SAP Basis, ABAP Programming and Other IMG Stuff
http://www.erpgreat.com