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

Re: BAPI for Creating Sales Order For Variant Configuration Materials

$
0
0

Hi Joe,

 

Try below.

 

*Sales Order Header data

ls_header-doc_type          = 'DOCTYPE'.

ls_header-sales_org         = 'ORG'.

ls_header-division            = 'DIV'.

ls_header-doc_date         = sy-datum.

ls_header-purch_no_c      = 'TEST'.    

 

*Partner Data

 

*Sold to party data

  IF ls_partner-partn_role IS INITIAL.

    ls_partner-partn_role = 'AG'.

  ENDIF.

 

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

    EXPORTING

      input            = '7000010'

    IMPORTING

      output          = ls_partner-partn_numb.

 

  APPEND ls_partner TO lt_partner.

 

*Ship to party data

 

CLEAR ls_partner.

 

  IF ls_partner-partn_role IS INITIAL.

    ls_partner-partn_role = 'WE'.

  ENDIF.

 

  IF ls_salesorder-shiptopartnerid IS NOT INITIAL.

 

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

      EXPORTING

        input  = '70000215'

      IMPORTING

        output = ls_partner-partn_numb.

  APPEND ls_partner TO lt_partner.

 

*Sales Order Item Data

 

ls_item-itm_number      =  '000001'.

ls_item-po_itm_no        = '000001'.

ls_item-purch_no_c      = 'TEST'.

ls_item-plant                = 'PLANT'. "Plant name 

ls_item-ship_point        = '1000'.

ls_item-target_qty        = '1'.

ls_item-material           = 'MAT12'.  "Material Name

ls_item-sales_unit        =  'EA'.

APPEND ls_item TO lt_item.

 

*Sales Order Item Data Flags

 

ls_itemx-itm_number  = '000001'.

ls_itemx-po_itm_no    = 'X'.

ls_itemx-purch_no_c  = 'X'.

ls_itemx-plant            = 'X'.

ls_itemx-ship_point    = 'X'.

ls_itemx-target_qty    = 'X'.

ls_itemx-material       = 'X'.

ls_itemx-sales_unit    = 'X'.

APPEND ls_itemx TO lt_itemx.


* Schedule Line structure

 

ls_schedules-itm_number = '000001'

ls_schedules-sched_line = '0001'.

ls_schedules-req_qty    = '1'.               "Target Quantity

ls_schedules-req_date   = '20160120'.

APPEND ls_schedules TO lt_schedules.

 

*   Fill schedule line flags

  

ls_schedulesx-itm_number   = '000001'.

ls_schedulesx-sched_line    = '0001'.

ls_schedulesx-updateflag    = 'X'.

ls_schedulesx-req_qty        = 'X'.

ls_schedulesx-req_date      = 'X'.

APPEND ls_schedulesx TO lt_schedulesx.

 

 

* Filling Configuration Reference Data SALES_CFGS_REF Table

 

    w_sales_cfgs_ref-posex       = '000010'.”ItemNumber

    w_sales_cfgs_ref-config_id   = '000001'.

    w_sales_cfgs_ref-root_id      = '00000001'.

    w_sales_cfgs_ref-complete   = 'T'.            “GeneralIndicator

    w_sales_cfgs_ref-consistent = 'T'.

    APPEND w_sales_cfgs_ref TO lt_sales_cfgs_ref.

    CLEAR w_sales_cfgs_ref.

 

* Filling Configuration Instances SALES_CFGS_INST Table

    w_sales_cfgs_inst-config_id       = '000001'.

    w_sales_cfgs_inst-inst_id         = '00000001'.

    w_sales_cfgs_inst-obj_type        = 'MARA'.

    w_sales_cfgs_inst-class_type      = '300'.

    w_sales_cfgs_inst-obj_key         = 'KL'. “MaterialNumber

    w_sales_cfgs_inst-quantity_unit   = 'LF'.

    APPEND w_sales_cfgs_inst TO lt_sales_cfgs_inst.

    CLEAR w_sales_cfgs_inst.

 

*Characteristics Values  Filling

* ColorCode

    ls_sales_cfgs_value_in-config_id = '000001'.

    ls_sales_cfgs_value_in-inst_id   = '00000001'.

    ls_sales_cfgs_value_in-charc     = c_za_ccode. “Characteristic Name

    ls_sales_cfgs_value_in-value     = 'CHBC'.

    APPEND ls_sales_cfgs_value_in TO ex_cfgs_value.

    CLEAR ls_sales_cfgs_value_in.

 

* Gauge

         ls_sales_cfgs_value_in-config_id    = '000001'.

         ls_sales_cfgs_value_in-inst_id        = '00000001'.

         ls_sales_cfgs_value_in-charc          = c_za_gauge. “Characteristic Name

         ls_sales_cfgs_value_in-value   = '24'.

         APPEND ls_sales_cfgs_value_in TO ex_cfgs_value.

         CLEAR ls_sales_cfgs_value_in.

 

*---Filling Configuration Variant Condition Key SALES_CFGS_VK

* ColorCode

         ls_sales_cfgs_vk-config_id        = '000001'.

         ls_sales_cfgs_vk-inst_id            = '00000001'.

         ls_sales_cfgs_vk-vkey                =  c_za_ccode. “Characteristic Name

          APPEND ls_sales_cfgs_vk TO ex_cfgs_vk.

          CLEAR : ls_sales_cfgs_vk.

 

 

* Gauge

          ls_sales_cfgs_vk-config_id        = '000001'.

          ls_sales_cfgs_vk-inst_id            = '00000001'.

          ls_sales_cfgs_vk-vkey                = c_za_gauge. “Characteristic Name

          APPEND ls_sales_cfgs_vk TO ex_cfgs_vk.

          CLEAR : ls_sales_cfgs_vk.

 

* Call BAPI to create Sales Order

 

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

 

        EXPORTING

          order_header_in             = ls_header

          behave_when_error        = 'P'

      

      IMPORTING

         salesdocument               = lv_vbeln

      TABLES

          return                           = lt_return

          order_items_in              = lt_item

          order_items_inx            = lt_itemx

          order_partners              = lt_partner

          order_schedules_in       = lt_schedules

          order_schedules_inx     = lt_schedulesx

          order_cfgs_ref              = lt_sales_cfgs_ref

          order_cfgs_inst            = lt_sales_cfgs_inst

          order_cfgs_value         = lt_sales_cfgs_value

          order_cfgs_vk             = lt_sales_cfgs_vk.

    

 

Hope it will solve your issue..

 

Regards,

Harikrishna


Viewing all articles
Browse latest Browse all 8581

Trending Articles



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