Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9766

Change data in FB03

$
0
0

Hi Experts,

                 I'm displaying Header text and item text from BKPF and BSEG tables in editable mode in the alv

grid. after, I'm changing the data, If I click on save button then that should be updated in the fb03 tcode for corresponding

fields. Here, I'm not getting any errors and function is executing perfectly. But , that is not updated in the fb03 tcode.

So, Please suggest me some solution for this requirement.

 

example code as shown below for your reference.

 

 

FORM f_usercommand USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.

   CASE r_ucomm.
     WHEN '&DATA_SAVE'.
       LOOP AT it_final INTO wa_final.
         gs_bkpf-bukrs = wa_final-bukrs.
         gs_bkpf-belnr = wa_final-belnr.
         gs_bkpf-gjahr = wa_final-gjahr.
         gs_bkpf-blart = wa_final-blart.
         gs_bkpf-bldat = wa_final-bldat.
         gs_bkpf-budat = wa_final-budat.
         gs_bkpf-cpudt = wa_final-cpudt.
         gs_bkpf-cputm = wa_final-cputm.
         gs_bkpf-bktxt = wa_final-bktxt.
         gs_bkpf-bstat = wa_final-bstat.


         gs_bseg-bukrs = wa_final-bukrs.
         gs_bseg-belnr = wa_final-belnr.
         gs_bseg-gjahr = wa_final-gjahr.
         gs_bseg-buzei = wa_final-buzei.
         gs_bseg-augbl = wa_final-augbl.
         gs_bseg-bschl = wa_final-bschl.
         gs_bseg-koart = wa_final-koart.
         gs_bseg-gsber = wa_final-gsber.
         gs_bseg-sgtxt = wa_final-sgtxt.

         APPEND gs_bkpf TO gt_bkpf.
         APPEND gs_bseg TO gt_bseg.

         CLEAR: wa_bkpf,
                wa_bseg.

       ENDLOOP.

       SORT gt_bkpf BY belnr.
       DELETE ADJACENT DUPLICATES FROM gt_bkpf COMPARING belnr.

* Local data declarations
       DATA: lt_bkdf TYPE TABLE OF bkdf,
             lt_bsec TYPE TABLE OF bsec,
             lt_bsed TYPE TABLE OF bsed,
             lt_bset TYPE TABLE OF bset.

       CALL FUNCTION 'CHANGE_DOCUMENT' IN UPDATE TASK
         TABLES
           t_bkdf     = lt_bkdf
           t_bkpf     = gt_bkpf
           t_bsec     = lt_bsec
           t_bsed     = lt_bsed
           t_bseg     = gt_bseg
           t_bset     = lt_bset
*         T_BSEG_ADD =
         .
       IF sy-subrc EQ 0.
         COMMIT WORK.
       ENDIF.
   ENDCASE.

ENDFORM.                    "f_usercommand


Viewing all articles
Browse latest Browse all 9766

Trending Articles



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