Scribd
Upload
596 views

Creation of Sale Order Using Bapi in Webdynpro Using Table Control

The document describes a method for creating sales orders. It declares variables for order header, items, and partner nodes. It populates order header, item, and partner data structures from the node attributes. It calls a BAPI function to create the sales order, passing the required input structures. If successful, it commits the transaction and reports a success message. Otherwise, it reports an error.

Uploaded by

Amrutha Ashok Kamat
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
596 views

Creation of Sale Order Using Bapi in Webdynpro Using Table Control

The document describes a method for creating sales orders. It declares variables for order header, items, and partner nodes. It populates order header, item, and partner data structures from the node attributes. It calls a BAPI function to create the sales order, passing the required input structures. If successful, it commits the transaction and reports a success message. Otherwise, it reports an error.

Uploaded by

Amrutha Ashok Kamat
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 11

method 

WDDOINIT .
  Types : Begin of item_tab,
        itm_number  type bapisditm-itm_number,
        material type bapisditm-material,
        plant type bapisditm-plant ,
        target_qty type bapisditm-target_qty,
        target_qu type bapisditm-target_qu,
        target_val type bapisditm-target_val,
         currency type bapisditm-currency,
        end of item_tab.
Data : it_item type standard table of item_tab,
        wa_item type item_tab.
Do 10 times.
Append wa_item to it_item.
enddo.
DATA lo_nd_order_items TYPE REF TO if_wd_context_node.
lo_nd_order_items = wd_context->get_child_node( name = wd_this-
>wdctx_order_items ).
lo_nd_order_items->bind_table( new_items =
  it_item set_initial_elements = abap_true ).
endmethod.

Main logic

method CREATE_SALES_ORDER .
* Declaration for Order Header Node
 DATA: node_order_header TYPE REF TO if_wd_context_node,
       elem_order_header TYPE REF TO if_wd_context_element,
       stru_order_header TYPE if_componentcontroller=>element_order_header .
* Declaration for Order Items Node
 DATA: node_order_items TYPE REF TO if_wd_context_node,
       elem_order_items TYPE REF TO if_wd_context_element,
       stru_order_items TYPE if_componentcontroller=>element_order_items .
* Declaration for Order Partners Node
DATA: node_order_partners TYPE REF TO if_wd_context_node,
elem_order_partners TYPE REF TO if_wd_context_element,
stru_order_partners TYPE if_componentcontroller=>element_order_partners .
node_order_header = wd_context->get_child_node(
 name = if_componentcontroller=>wdctx_order_header
 ).
elem_order_header = node_order_header->get_element( ).
elem_order_header->get_static_attributes(
IMPORTING static_attributes = stru_order_header
  ).
* <ORDER_ITEMS> via lead selection
node_order_items = wd_context->get_child_node(
name = if_componentcontroller=>wdctx_order_items ).
elem_order_items = node_order_items->get_element( ).
elem_order_items->get_static_attributes(
IMPORTING static_attributes = stru_order_items ).
* <ORDER_PARTNERS> via lead selection
node_order_partners = wd_context->get_child_node(
name = if_componentcontroller=>wdctx_order_partners ).
elem_order_partners = node_order_partners->get_element( ).
elem_order_partners->get_static_attributes(
IMPORTING static_attributes = stru_order_partners ).

DATA: v_sales_doc TYPE bapivbeln-vbeln.
DATA: w_order_header_in TYPE bapisdhd1,
      i_order_header_in TYPE table of bapisdhd1,"
      i_order_partners TYPE TABLE OF bapiparnr,
      w_order_partners TYPE bapiparnr,
      i_return TYPE TABLE OF bapiret2,
      w_return TYPE bapiret2,
      i_order_items_in TYPE TABLE OF bapisditm,
      w_order_items_in TYPE bapisditm,
      i_order_conditions_in TYPE TABLE OF bapicond,
      w_order_conditions_in TYPE bapicond,
      w_order_SCHDL type  BAPISCHDL,
      i_order_SCHDL type table of BAPISCHDL.

* Order Header Details

CLEAR: w_order_header_in, i_order_partners, i_return, i_order_items_in,
          i_order_conditions_in, w_order_SCHDL, i_order_SCHDL.

refresh : i_order_partners, i_return, i_order_items_in,
          i_order_conditions_in, i_order_SCHDL.

w_order_header_in-doc_type = stru_order_header-doc_type.
 w_order_header_in-sales_org = stru_order_header-sales_org.
 w_order_header_in-distr_chan = stru_order_header-distr_chan.
 w_order_header_in-division = stru_order_header-division.
 w_order_header_in-req_date_h = stru_order_header-req_date_h.
 w_order_header_in-sales_dist = stru_order_header-sales_dist.
 w_order_header_in-purch_no_c = stru_order_header-purch_no_c.
* Order Item Details

  CLEAR: i_order_items_in,w_order_items_in.
* w_order_items_in-itm_num = stru_order_items-itm_num.
 w_order_items_in-ITM_NUMBER =  stru_order_items-ITM_NUMBER.
 w_order_items_in-material = stru_order_items-material.
 w_order_items_in-target_qty = stru_order_items-target_qty."'5'.
 w_order_items_in-target_qu = stru_order_items-target_qu."'5'.
 w_order_items_in-plant = stru_order_items-plant.
w_order_items_in-target_val = stru_order_items-target_val.
w_order_items_in-currency = stru_order_items-currency.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
   input = w_order_items_in-material
   IMPORTING output = w_order_items_in-material.
 APPEND w_order_items_in TO i_order_items_in.
* Order Partner Details
 CLEAR: i_order_partners,w_order_partners.
 w_order_partners-partn_role = stru_order_partners-partn_role.
 w_order_partners-partn_numb = stru_order_partners-partn_numb.

 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING input = w_order_partners-partn_numb
   IMPORTING output = w_order_partners-partn_numb.
 APPEND w_order_partners TO i_order_partners.
* Order Condition Details
 w_order_SCHDL-ITM_NUMBER  = stru_order_items-itm_number." '000010'.
         w_order_SCHDL-req_qty     = stru_order_items-target_qty." '5'.
          APPEND w_order_SCHDL to i_order_SCHDL.

* Create Sales Order BAPI Call

*loop at i_order_header_in into  w_order_header_in.

 CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
 EXPORTING
   order_header_in = w_order_header_in
   IMPORTING
     salesdocument = v_sales_doc
     TABLES
       return = i_return
       order_items_in = i_order_items_in
       order_partners = i_order_partners
        order_schedules_in  = i_order_SCHDL
       order_conditions_in = i_order_conditions_in.

* Get message manager
  DATA: l_current_controller TYPE REF TO if_wd_controller,
        l_message_manager    TYPE REF TO if_wd_message_manager.
  l_current_controller ?= wd_this->wd_get_api( ).
  CALL METHOD l_current_controller->get_message_manager
    RECEIVING
      message_manager = l_message_manager.
  DATA: v_message_text TYPE string.
* When Sales Order is created commit the data

IF NOT v_sales_doc IS INITIAL.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
      wait = 'X'.
    CONCATENATE 'Sales Document' v_sales_doc 'has been created.'
    INTO v_message_text SEPARATED BY space.
* Report Success message
    CALL METHOD l_message_manager->report_success
    EXPORTING message_text = v_message_text.
    ELSE.
      v_message_text = 'Error Creating Sales Order'.
* Report Error message
      CALL METHOD l_message_manager->report_error_message
      EXPORTING message_text = v_message_text.
      ENDIF.
*endloop.
endmethod.
Figure 1

You might also like