Sample update program sap abap



REPORT zjatest.
TABLES:mara.

TYPES: tt_final         TYPE STANDARD TABLE OF yvendor_rep.


SELECT-OPTIONS s_matnr FOR mara-matnr.

DATA:
     g_global_plant          TYPE werks_d,         " Global Plant
*     g_supply_chain_owner  TYPE ysplchown_short_descr,
     gi_final              TYPE tt_final,                " Final table will be the collection of all data
     gi_message            TYPE bapiret2_t,
    gi_yvendor_screen     TYPE STANDARD TABLE OF yvendor_screen,
    gi_vendor_plants      TYPE STANDARD TABLE OF yvendor_plants.

data: s_beskz   type range of marc-beskz ,
      s_manul   type RANGE OF yvendor_screen-ymanual_handle,
      s_consm   type RANGE OF yvendor_screen-yconsuming.


CALL FUNCTION 'Y_VENDOR_SELECT_N_PREPARE'
  IMPORTING
    ex_global_plant              = g_global_plant
    et_final                     = gi_final
    et_msg                       = gi_message
  TABLES
    tb_matnr                     = s_matnr
    tb_yvendor_screen            = gi_yvendor_screen
    TB_BESKZ                     = s_beskz
    TB_MANUL                     = s_manul
    TB_CONSM                     = s_consm
    TB_VENDOR_PLANTS             = gi_vendor_plants
  EXCEPTIONS
    development_owner_not_found  = 1
    global_buyer_not_found       = 2
    supply_chain_owner_not_found = 3
    global_status_code_not_found = 4
    vendor_mark_code_not_found   = 5
    no_record_found              = 6
    OTHERS                       = 7.

IF sy-subrc <> 0.
  " Display the error message if no data found for the given input
*    MESSAGE i019.
  LEAVE LIST-PROCESSING.
ENDIF.

LOOP AT gi_final ASSIGNING FIELD-SYMBOL(<ls_final>) WHERE werks <> '500'.

  READ TABLE gi_yvendor_screen ASSIGNING FIELD-SYMBOL(<ls_vendor>) WITH KEY matnr = <ls_final>-matnr werks = <ls_final>-werks yeord = <ls_final>-yeord.
  IF sy-subrc = 0  AND <ls_vendor>-lifnr IS INITIAL.
    <ls_vendor>-lifnr = <ls_final>-lifnr.
  ENDIF.

ENDLOOP.

UPDATE yvendor_screen FROM TABLE gi_yvendor_screen.
Commit work.

Comments

Post a Comment

Popular posts from this blog

Export data to xls using OOPS

* REPORT  ZDEMO_EXCEL20 * Demo for method zcl_excel_worksheet-bind_alv: * export data from ALV (CL_GUI_ALV_GRID) object to excel *--------------------------------------------------------------------* REPORT  zdemo_excel20. *----------------------------------------------------------------------* *       CLASS lcl_handle_events DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_handle_events DEFINITION.   PUBLIC SECTION.     METHODS:       on_user_command FOR EVENT added_function OF cl_salv_events         IMPORTING e_salv_function. ENDCLASS.                    "lcl_handle_events DEFINITION *---------------------------------------------------------------------...
Read more

Factory method ALV sap abap

DATA lo_salv TYPE REF TO cl_salv_table , lo_functions TYPE REF TO cl_salv_functions_list , lo_columns TYPE REF TO cl_salv_columns_table , lo_columns2 TYPE REF TO cl_salv_columns_table , lo_column TYPE REF TO cl_salv_column_table , l_short TYPE scrtext_s , l_long TYPE scrtext_l , l_medium TYPE scrtext_m , lo_display TYPE REF TO cl_salv_display_settings , l_header_text TYPE lvc_title , not_found TYPE REF TO cx_salv_not_found , data_error TYPE REF TO cx_salv_data_error , l_string TYPE string , text TYPE string , oref TYPE REF TO cx_root . CONSTANTS : lc_info TYPE c VALUE 'I' , wc_error TYPE c VALUE wc_e . CLEAR : lo_salv , lo_functions . IF w_alv IS NOT INITIAL . * Use factory method TRY . CALL METHOD cl_salv_table => factory EXPORTING list_display = if_salv_c_bool_sa...
Read more

Delete Selected Record in ALV Report

form delete_selected_information.        data : i_lines type i.      *       Reading the index of the selected row in the ALV grid.   call method addressbook_grid->get_selected_rows        importing             et_index_rows = i_index_rows.      *       Check whether a row is selected or not. If not it popups a *       dialog box as warning to select a row.   describe table i_index_rows lines i_lines.        if i_lines = 0.     message i002.     exit.   endif.      *        Reads the selected rows into work area for display   loop at i_index_rows into i_selected_row.     if sy-tabix = 1.   ...
Read more