Quantcast
Channel: SCN: Message List - Business Content and Extractors
Viewing all articles
Browse latest Browse all 5631

Re: PLease change the code

$
0
0

Hi,

 

Try this before the modify the append structure by adding these two fields(ZZTCODE,ZZBVORG).

Then change the code in BADI.

 

TYPES: BEGIN OF IT_FIGL,

     V_BUKRS TYPE BUKRS,

     V_BELNR TYPE BELNR_D,

     V_GJAHR TYPE GJAHR,

     V_ANBWA TYPE ANBWA,

     V_BZDAT TYPE BZDAT,

     V_PERNR TYPE P_PERNR,

     V_LOKKT TYPE LOKKT,

V_ALTACTXT TYPE ALTACTXT,

V_TCODE TYPE TCODE,

V_BV0RG TYPE BVORG,

 

    END OF IT_FIGL.

    DATA: ZBW_FIGL TYPE STANDARD TABLE OF  IT_FIGL,

          L_T_DATA TYPE STANDARD TABLE OF  FAGLPOSBW,

          WA_DATA TYPE IT_FIGL.

      L_T_DATA[] = C_T_DATA[] .

      IF NOT L_T_DATA IS INITIAL.

        SELECT BUKRS BELNR GJAHR ANBWA BZDAT PERNR LOKKT ALTACTXT TCODE BVORG FROM BSEG INTO TABLE ZBW_FIGL

          FOR ALL ENTRIES IN L_T_DATA WHERE BUKRS = L_T_DATA-BUKRS

                                        AND BELNR = L_T_DATA-BELNR

                                        AND GJAHR = L_T_DATA-GJAHR.

 

 

          LOOP AT L_T_DATA ASSIGNING <L_S_DATA>.

            READ TABLE ZBW_FIGL INTO WA_DATA

            WITH KEY V_BELNR = <L_S_DATA>-BELNR

                    V_BUKRS = <L_S_DATA>-BUKRS

                    V_GJAHR = <L_S_DATA>-GJAHR.

            IF SY-SUBRC = 0.

              <L_S_DATA>-BUKRS = WA_DATA-V_BUKRS.

              <L_S_DATA>-BELNR = WA_DATA-V_BELNR.

              <L_S_DATA>-GJAHR = WA_DATA-V_GJAHR.

              <L_S_DATA>-ZZANBWA = WA_DATA-V_ANBWA.

               <L_S_DATA>-ZZBZDAT = WA_DATA-V_BZDAT.

               <L_S_DATA>-ZZPERNR = WA_DATA-V_PERNR.

               <L_S_DATA>-ZZLOKKT = WA_DATA-V_LOKKT.

               <L_S_DATA>-ZZALTACTXT = WA_DATA-V_ALTACTXT.

<L_S_DATA>-ZZTCODE = WA_DATA-V_TOCDE.

<L_S_DATA>-ZZBVORG = WA_DATA-V_BVORG.

 

               ENDIF.

              ENDLOOP.

              ENDIF.

              C_T_DATA[] = L_T_DATA[].

 

Thanks,

Somesh.


Viewing all articles
Browse latest Browse all 5631

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>