Regarding userexit

Question

Hi experts i wrote a report calling bapi to create sales order and quotation
i also created a stucture with flag in VBAK table.
now i need to write an user exit , when excel file is uploaded it should tell whether the data is internally or externally from sap,
if it is exernally the falg should be updated.
pls help me in doing this and my bapi code is
REPORT  zintf_sd_create_order_quot.
TYPE-POOLS truxs.
*& SELECTION-SCREEN- Selection screen to give input values
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*& PARAMETERS- passing parameters to the selection screen
PARAMETERS: p_auart TYPE auart OBLIGATORY,  "Sales document type
            p_vkorg TYPE vkorg OBLIGATORY,  "Sales organization
            p_vtweg TYPE vtweg OBLIGATORY,  "Distribution channel
            p_spart TYPE spart OBLIGATORY,  "Division.
            p_sold  TYPE kunnr OBLIGATORY,  "Sold-to
            p_ship  TYPE kunnr OBLIGATORY,  "Ship-to
            p_bstkd TYPE bstkd ,            "Purchase order number.
            p_faksk TYPE faksk ,            "Billing Block
            p_vdatu TYPE edatu_vbak,        "Requested delivery date of the document
            p_inco1 TYPE inco1 OBLIGATORY,  "Terms of delivery
            p_landtx TYPE landtx,           "Departuring country
            p_stceg TYPE stceg_l,           "Destination country
            p_xegdr AS CHECKBOX.            "EU triangulation trade
PARAMETERS: p_name LIKE ibipparms-path .    "Excel file path
SELECTION-SCREEN END OF BLOCK b1.
*& DATA DECLARATIONS." Declaring data and variables.
DATA declarations.
DATA: v_vbeln               LIKE vbak-vbeln.
DATA: it_header             LIKE bapisdhead1.
DATA: it_item               LIKE bapisditem  OCCURS 0 WITH HEADER LINE.
DATA: partner               LIKE bapipartnr  OCCURS 0 WITH HEADER LINE.
DATA: it_return             LIKE bapiret2    OCCURS 0 WITH HEADER LINE,
      wa_it_return          TYPE bapiret2.
DATA: wa_it_header_qut      TYPE bapisdhd1,
      it_header_qut         LIKE bapisdhd1 OCCURS 0 WITH HEADER LINE,
      it_item_qut           TYPE TABLE OF bapisditm WITH HEADER LINE,
      wa_it_item_qut        TYPE bapisditm,
      wa_it_partner_qut     TYPE bapiparnr,
      it_return_qut         TYPE TABLE OF bapiret2 WITH HEADER LINE,
      wa_it_return_qut      TYPE bapiret2.
TYPES:  BEGIN OF t_tab,
          wf1 TYPE char50,
          wf2 TYPE char50,
          wf3 TYPE char50,
          wf4 TYPE char50,
          wf5 TYPE char50,
          wf6 TYPE char50,
          wf7 TYPE char50,
          wf8 TYPE char50,
          wf9 TYPE char50,
          wf10 TYPE char50,
          wf11 TYPE char50,
          wf12 TYPE char50,
          wf13 TYPE char50,
          wf14 TYPE char50,
          wf15 TYPE char50,
          wf16 TYPE char50,
          wf17 TYPE char50,
          wf18 TYPE char50,
          wf19 TYPE char50,
          wf20 TYPE char50,
          wf21 TYPE char50,
          wf22 TYPE char50,
          wf23 TYPE char50,
          wf24 TYPE char50,
          wf25 TYPE char50,
          wf26 TYPE char50,
          wf27 TYPE char50,
          wf28 TYPE char50,
          wf29 TYPE char50,
          wf30 TYPE char50,
          wf31 TYPE char50,
          wf32 TYPE char50,
          wf33 TYPE char50,
       END OF t_tab.
DATA : t_upload  TYPE STANDARD TABLE OF t_tab,
       wa_upload TYPE t_tab.
DATA : it_type   TYPE truxs_t_text_data.
DATA : w_string TYPE rlgrap-filename.
DATA : w_no(6) TYPE n.
DATA: it_header_x TYPE bapisdhead1x.
DATA: it_header_qut_x TYPE bapisdhd1x.
DATA: it_item_x    LIKE bapisditemx  OCCURS 0 WITH HEADER LINE.
DATA: it_patner  LIKE bapipartnr   OCCURS 0 WITH HEADER LINE.
DATA: it_partner_qut   LIKE bapiparnr  OCCURS 0 WITH HEADER LINE.
DATA: it_item_qut_x   LIKE bapisditmx  OCCURS 0 WITH HEADER LINE.
DATA: v_sh TYPE parvw.
DATA: v_sd TYPE parvw.
DATA: v_unit(4).
CONSTANTS: c_x(1) VALUE 'X'.
*& AT SELECTION-SCREEN ON FIELD
AT SELECTION-SCREEN ON p_auart.
  IF sy-tcode = 'ZSD_VA01' AND p_auart = 'AG'.
    MESSAGE e000(zintf).
  ELSEIF
  sy-tcode = 'ZSD_VA21' AND p_auart = 'TA'.
    MESSAGE e000(zintf).
  ENDIF.
*& AT SELECTION-SCREEN ON VALUE REQUEST
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_name .
  CALL FUNCTION 'F4_FILENAME'                     "This function is used to press f4 to select value.
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = 'P_NAME'
    IMPORTING
      file_name     = p_name.
*& INITIALIZATION
INITIALIZATION.
  p_xegdr = 'X'.
*& Start-of-selection. starting of selection.
START-OF-SELECTION.
  MOVE p_name TO w_string .
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'  "Function to convert excel sheet to SAP
     EXPORTING
  I_FIELD_SEPERATOR          =
  I_LINE_HEADER              =
       i_tab_raw_data          = it_type
       i_filename              = w_string
     TABLES
       i_tab_converted_data    = t_upload[]
EXCEPTIONS
  CONVERSION_FAILED          = 1
  OTHERS                     = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  IF p_auart EQ 'TA' .
    PERFORM bapi_fromdata1.
  ELSEIF p_auart EQ 'AG'.
    PERFORM bapi_fromdata2.
  ENDIF.
*&      Form  bapi_fromdata1
      text
-->  p1        text
<--  p2        text
FORM bapi_fromdata1.
Header data to create sales order
  it_header_x-doc_type   = c_x.
  it_header_x-sales_org  = c_x.
  it_header_x-distr_chan = c_x.
  it_header_x-division   = c_x.
  it_header_x-purch_no_c = c_x.
Header data to pass header values.
  it_header-doc_type     = p_auart.    " Sales document type
  it_header-sales_org    = p_vkorg.   " Sales organization
  it_header-distr_chan   = p_vtweg. "Distribution channel
  it_header-division     = p_spart.    " Division
  it_header-purch_no_c   = p_bstkd.  "Purchase Order
  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'   " Function used to convert Ship to party.
    EXPORTING
      input  = 'SH'
    IMPORTING
      output = v_sh.
  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'   " Function used to convert Sold to party.
    EXPORTING
      input  = 'SD'
    IMPORTING
      output = v_sd.
  it_patner-partn_role = v_sh.
  it_patner-partn_numb = p_sold.
  APPEND it_patner.
  LOOP AT t_upload INTO wa_upload .
CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'     " Function used to convert sales unit.
  EXPORTING
    input         = wa_upload-wf13
IMPORTING
   OUTPUT        = v_unit
    IF sy-tabix GT 3 .
  fill line item for creating sales order
      it_item-short_text     = wa_upload-wf2.  "SHORT_TEXT
      it_item-material       = wa_upload-wf4.  "Material
      it_item-item_categ     = wa_upload-wf5.  "Item category
      it_item-ref_1          = wa_upload-wf7.  "Your Reference
      it_item-gross_weight   = wa_upload-wf10. "Gross Weight
      it_item-unit_of_weight = wa_upload-wf11. "Weight Unit
      it_item-sales_unit     = wa_upload-wf13. " Sales Unit
      it_item-sales_unit     = v_unit.
      it_item-plant          = wa_upload-wf27. "Delivering plant
      APPEND it_item.
      CLEAR it_item.
      it_item_x-itm_number     = w_no.
      it_item_x-short_text     = c_x.
      it_item_x-material       = c_x.
      it_item_x-item_categ     = c_x.
      it_item_x-ref_1          = c_x.
      it_item_x-gross_weight   = c_x.
      it_item_x-unit_of_weight = c_x.
      it_item_x-sales_unit     = c_x.
      it_item_x-plant          = c_x.
      APPEND it_item_x.
      CLEAR it_item_x.
    ENDIF.
  ENDLOOP.
Call the BAPI to create the sales order.
  CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
    EXPORTING
      sales_header_in  = it_header
      sales_header_inx = it_header_x
    IMPORTING
      salesdocument_ex = v_vbeln
    TABLES
      return           = it_return
      sales_items_in   = it_item
      sales_items_inx  = it_item_x
      sales_partners   = it_patner.
    sales_schedules_in = lt_schedules_in.
IF sy-subrc EQ 0.
    COMMIT WORK AND WAIT.                                  "Comminting the data retrieved by using BAPI.
    WRITE:/ v_vbeln.
  ENDIF.
  LOOP AT it_return INTO wa_it_return.
    WRITE :/ wa_it_return-message,'TYPE' ,wa_it_return-type.
  ENDLOOP.
ENDFORM.                    "bapi_fromdata1
*&      Form  bapi_fromdata2
      text
-->  p1        text
<--  p2        text
FORM bapi_fromdata2.
Header data to create quotaiton
  it_header_qut_x-doc_type    = c_x.
  it_header_qut_x-sales_org   = c_x.
  it_header_qut_x-distr_chan  = c_x.
  it_header_qut_x-division    = c_x.
  it_header_qut_x-purch_no_c  = c_x.
*Header data to pass quotation values.
  it_header_qut-doc_type      = p_auart.    " Sales document type
  it_header_qut-sales_org     = p_vkorg.    " Sales organization
  it_header_qut-distr_chan    = p_vtweg.    "Distribution channel
  it_header_qut-division      = p_spart.    " Division
  it_header_qut-purch_no_c    = p_bstkd.    "Purchase Order
  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'    "Function used to convert Ship to party.
    EXPORTING
      input  = 'SH'
    IMPORTING
      output = v_sh.
  CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'     "Function used to convert Sold to party.
    EXPORTING
      input  = 'SD'
    IMPORTING
      output = v_sd.
  it_partner_qut-partn_role = v_sh.
  it_partner_qut-partn_numb = p_sold.
  APPEND it_partner_qut.
  LOOP AT t_upload INTO wa_upload .
    CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'    " Function used to convert sales unit.
  EXPORTING
    input         = wa_upload-wf13
IMPORTING
   OUTPUT        = v_unit
    IF sy-tabix GT 3 .
passing line items for quotation.
      it_item_qut-short_text     = wa_upload-wf2.  "SHORT_TEXT
      it_item_qut-material       = wa_upload-wf4.  "Material
      it_item_qut-item_categ     = wa_upload-wf5.  "Item category
      it_item_qut-ref_1          = wa_upload-wf7.  "Your Reference
      it_item_qut-gross_wght     = wa_upload-wf10. "Gross Weight
      it_item_qut-untof_wght     = wa_upload-wf11. "Weight Unit
      it_item_qut-sales_unit     = wa_upload-wf13. " Sales Unit
      it_item-sales_unit     = v_unit.
      it_item_qut-plant          = wa_upload-wf27. "Delivering plant
      APPEND it_item_qut.
      CLEAR it_item_qut.
      it_item_qut_x-itm_number    = w_no.
      it_item_qut_x-short_text    = c_x.
      it_item_qut_x-material      = c_x.
      it_item_qut_x-item_categ    = c_x.
      it_item_qut_x-ref_1         = c_x.
      it_item_qut_x-gross_wght    = c_x.
      it_item_qut_x-untof_wght    = c_x.
      it_item_qut_x-sales_unit    = c_x.
      it_item_qut_x-plant         = c_x.
      APPEND it_item_qut_x.
      CLEAR it_item_qut_x.
    ENDIF.
  ENDLOOP.
fill the data for quotation.
  CALL FUNCTION 'BAPI_QUOTATION_CREATEFROMDATA2'
     EXPORTING
       SALESDOCUMENTIN                =
       quotation_header_in              = it_header_qut
       quotation_header_inx             = it_header_qut_x
       SENDER                         =
       BINARY_RELATIONSHIPTYPE        = ' '
       INT_NUMBER_ASSIGNMENT          = ' '
       BEHAVE_WHEN_ERROR              = ' '
       LOGIC_SWITCH                   =
       TESTRUN                        =
       CONVERT                        = ' '
    IMPORTING
       salesdocument                    = v_vbeln
     TABLES
       return                           =  it_return_qut
       quotation_items_in               =  it_item_qut
       quotation_items_inx              =  it_item_qut_x
        quotation_partners              =  it_partner_qut
       QUOTATION_SCHEDULES_IN         =
       QUOTATION_SCHEDULES_INX        =
       QUOTATION_CONDITIONS_IN        =
       QUOTATION_CONDITIONS_INX       =
       QUOTATION_CFGS_REF             =
       QUOTATION_CFGS_INST            =
       QUOTATION_CFGS_PART_OF         =
       QUOTATION_CFGS_VALUE           =
       QUOTATION_CFGS_BLOB            =
       QUOTATION_CFGS_VK              =
       QUOTATION_CFGS_REFINST         =
       QUOTATION_KEYS                 =
       QUOTATION_TEXT                 =
       EXTENSIONIN                    =
       PARTNERADDRESSES               =
  IF sy-subrc EQ 0.
    COMMIT WORK AND WAIT.                                  "Comminting the data retrieved by using BAPI.
    WRITE:/ v_vbeln.
  ENDIF.
  LOOP AT it_return_qut INTO wa_it_return_qut.
    if wa_it_return_qut-message is not initial.
    WRITE :/ wa_it_return_qut-message,'TYPE' ,wa_it_return_qut-type.
    endif.
  ENDLOOP.
ENDFORM.                    "bapi_fromdata2

Answer 1

Hi,
If u want to write code in user Exits you can use the Program SAPMV45A and include MV45AFZZ.
Inside the Include you can write code according to your need inside the form.
Regards
Sandipan