<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: BAPi to create PO in Application Development and Automation Discussions</title>
    <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532172#M849735</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;HI Sowjanya barli ,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  Can u send the text file with some sample records... with say line item 2 for one header data nd 5 line item for second header data...plz it 'll be vry helpful if send some sample data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;thanks.&lt;/P&gt;&lt;P&gt;Arunprasad.P&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Thu, 06 Mar 2008 04:19:03 GMT</pubDate>
    <dc:creator>Former Member</dc:creator>
    <dc:date>2008-03-06T04:19:03Z</dc:date>
    <item>
      <title>BAPi to create PO</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532169#M849732</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;hi &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;i have a query we are using bapi's&lt;/P&gt;&lt;P&gt;BAPI_PO_CREATE1 to create po&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;and BAPI_PO_CHANGE to change&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;its a program z program whch takes data from flat file and loads to Me23n tcode&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;i need to know to update at item text level&lt;/P&gt;&lt;P&gt;in me23n tcode if u see a purchsase doc, first screen is of header text which is populated already&lt;/P&gt;&lt;P&gt;next second half of scren is item in which items are populated already by program&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;now my requirment is to add the text for item at bottom most level item portion at tab Text&lt;/P&gt;&lt;P&gt;this text is for the material item in second part of screen&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;so i want to know h ow to use the bapi to create this text at item level&lt;/P&gt;&lt;P&gt;as for each material ( which is item itself) the text needs to be populated at item text leve in bottomost section in text TAB&lt;/P&gt;&lt;P&gt;pls suggest&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;regards&lt;/P&gt;&lt;P&gt;arora&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 06 Mar 2008 02:21:59 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532169#M849732</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-03-06T02:21:59Z</dc:date>
    </item>
    <item>
      <title>Re: BAPi to create PO</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532170#M849733</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hai.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;check the example for pocreate.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;REPORT zpo_bapi_purchord_tej.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;DATA DECLARATIONS *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPE-POOLS slis.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPES: BEGIN OF ty_table,&lt;/P&gt;&lt;P&gt;v_legacy(8),&lt;/P&gt;&lt;P&gt;vendor TYPE bapimepoheader-vendor,&lt;/P&gt;&lt;P&gt;purch_org TYPE bapimepoheader-purch_org,&lt;/P&gt;&lt;P&gt;pur_group TYPE bapimepoheader-pur_group,&lt;/P&gt;&lt;P&gt;material TYPE bapimepoitem-material,&lt;/P&gt;&lt;P&gt;quantity(13),&lt;/P&gt;&lt;P&gt;delivery_date TYPE bapimeposchedule-delivery_date,&lt;/P&gt;&lt;P&gt;net_price(23),&lt;/P&gt;&lt;P&gt;plant TYPE bapimepoitem-plant,&lt;/P&gt;&lt;P&gt;END OF ty_table.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPES: BEGIN OF ty_alv,&lt;/P&gt;&lt;P&gt;v_legs(8),&lt;/P&gt;&lt;P&gt;success(10),&lt;/P&gt;&lt;P&gt;v_legf(8),&lt;/P&gt;&lt;P&gt;END OF ty_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPES: BEGIN OF ty_alv1,&lt;/P&gt;&lt;P&gt;v_legf1(8),&lt;/P&gt;&lt;P&gt;v_msg(500),&lt;/P&gt;&lt;P&gt;END OF ty_alv1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*-----Work area declarations.&lt;/P&gt;&lt;P&gt;DATA: x_table TYPE ty_table,&lt;/P&gt;&lt;P&gt;x_header TYPE bapimepoheader,&lt;/P&gt;&lt;P&gt;x_headerx TYPE bapimepoheaderx,&lt;/P&gt;&lt;P&gt;x_item TYPE bapimepoitem,&lt;/P&gt;&lt;P&gt;x_itemx TYPE bapimepoitemx,&lt;/P&gt;&lt;P&gt;x_sched TYPE bapimeposchedule,&lt;/P&gt;&lt;P&gt;x_schedx TYPE bapimeposchedulx,&lt;/P&gt;&lt;P&gt;x_commatable(255),&lt;/P&gt;&lt;P&gt;x_alv TYPE ty_alv,&lt;/P&gt;&lt;P&gt;x_alv1 TYPE ty_alv1,&lt;/P&gt;&lt;P&gt;x_alv2 TYPE ty_alv1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*-----Internal table declarations.&lt;/P&gt;&lt;P&gt;DATA: it_table TYPE TABLE OF ty_table,&lt;/P&gt;&lt;P&gt;it_commatable LIKE TABLE OF x_commatable,&lt;/P&gt;&lt;P&gt;it_item TYPE TABLE OF bapimepoitem,&lt;/P&gt;&lt;P&gt;it_itemx TYPE TABLE OF bapimepoitemx,&lt;/P&gt;&lt;P&gt;it_sched TYPE TABLE OF bapimeposchedule,&lt;/P&gt;&lt;P&gt;it_schedx TYPE TABLE OF bapimeposchedulx,&lt;/P&gt;&lt;P&gt;it_alv TYPE TABLE OF ty_alv,&lt;/P&gt;&lt;P&gt;it_alv1 TYPE TABLE OF ty_alv1,&lt;/P&gt;&lt;P&gt;it_alv2 TYPE TABLE OF ty_alv1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: po_number TYPE bapimepoheader-po_number,&lt;/P&gt;&lt;P&gt;x_return TYPE bapiret2,&lt;/P&gt;&lt;P&gt;it_return TYPE TABLE OF bapiret2,&lt;/P&gt;&lt;P&gt;v_file TYPE string,&lt;/P&gt;&lt;P&gt;v_temp(8),&lt;/P&gt;&lt;P&gt;v_succsount TYPE i VALUE 0,&lt;/P&gt;&lt;P&gt;v_failcount TYPE i VALUE 0,&lt;/P&gt;&lt;P&gt;v_total TYPE i.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: v_temp1(5) TYPE n VALUE 0.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: x_event TYPE slis_t_event,&lt;/P&gt;&lt;P&gt;x_fieldcat TYPE slis_t_fieldcat_alv,&lt;/P&gt;&lt;P&gt;x_list_header TYPE slis_t_listheader,&lt;/P&gt;&lt;P&gt;x_event1 LIKE LINE OF x_event,&lt;/P&gt;&lt;P&gt;x_layout1 TYPE slis_layout_alv,&lt;/P&gt;&lt;P&gt;x_variant1 TYPE disvariant,&lt;/P&gt;&lt;P&gt;x_repid2 LIKE sy-repid.&lt;/P&gt;&lt;P&gt;DATA : it_fieldcat TYPE TABLE OF slis_t_fieldcat_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;SELECTION-SCREEN *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;SELECTION-SCREEN BEGIN OF BLOCK v_b1 WITH FRAME.&lt;/P&gt;&lt;P&gt;*-----To fetch the flat file.&lt;/P&gt;&lt;P&gt;PARAMETERS: p_file TYPE rlgrap-filename.&lt;/P&gt;&lt;P&gt;SELECTION-SCREEN END OF BLOCK v_b1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;AT SELECTION-SCREEN *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;AT SELECTION-SCREEN.&lt;/P&gt;&lt;P&gt;IF p_file IS INITIAL.&lt;/P&gt;&lt;P&gt;MESSAGE text-001 TYPE 'E'.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.&lt;/P&gt;&lt;P&gt;*-----To use F4 help to find file path.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'F4_FILENAME'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;program_name = syst-cprog&lt;/P&gt;&lt;P&gt;dynpro_number = syst-dynnr&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;file_name = p_file.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;v_file = p_file.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;START-OF-SELECTION *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;START-OF-SELECTION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;PERFORM gui_upload.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT it_table INTO x_table.&lt;/P&gt;&lt;P&gt;PERFORM header_details.&lt;/P&gt;&lt;P&gt;v_temp = x_table-v_legacy.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT it_table INTO x_table WHERE v_legacy = v_temp.&lt;/P&gt;&lt;P&gt;PERFORM lineitem.&lt;/P&gt;&lt;P&gt;PERFORM schedule.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DELETE it_table WHERE v_legacy = v_temp.&lt;/P&gt;&lt;P&gt;PERFORM bapicall.&lt;/P&gt;&lt;P&gt;MOVE po_number TO x_alv-success.&lt;/P&gt;&lt;P&gt;APPEND x_alv TO it_alv.&lt;/P&gt;&lt;P&gt;CLEAR x_alv.&lt;/P&gt;&lt;P&gt;*-----To clear the item details in internal table after the operation for a header.&lt;/P&gt;&lt;P&gt;REFRESH: it_item,&lt;/P&gt;&lt;P&gt;it_itemx,&lt;/P&gt;&lt;P&gt;it_sched,&lt;/P&gt;&lt;P&gt;it_schedx.&lt;/P&gt;&lt;P&gt;CLEAR: v_temp1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;v_total = v_succsount + v_failcount.&lt;/P&gt;&lt;P&gt;PERFORM display_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM GUI_UPLOAD *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM gui_upload .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'GUI_UPLOAD'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;filename = v_file&lt;/P&gt;&lt;P&gt;filetype = 'ASC'&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;data_tab = it_commatable&lt;/P&gt;&lt;P&gt;EXCEPTIONS&lt;/P&gt;&lt;P&gt;file_open_error = 1&lt;/P&gt;&lt;P&gt;file_read_error = 2&lt;/P&gt;&lt;P&gt;no_batch = 3&lt;/P&gt;&lt;P&gt;gui_refuse_filetransfer = 4&lt;/P&gt;&lt;P&gt;invalid_type = 5&lt;/P&gt;&lt;P&gt;no_authority = 6&lt;/P&gt;&lt;P&gt;unknown_error = 7&lt;/P&gt;&lt;P&gt;bad_data_format = 8&lt;/P&gt;&lt;P&gt;header_not_allowed = 9&lt;/P&gt;&lt;P&gt;separator_not_allowed = 10&lt;/P&gt;&lt;P&gt;header_too_long = 11&lt;/P&gt;&lt;P&gt;unknown_dp_error = 12&lt;/P&gt;&lt;P&gt;access_denied = 13&lt;/P&gt;&lt;P&gt;dp_out_of_memory = 14&lt;/P&gt;&lt;P&gt;disk_full = 15&lt;/P&gt;&lt;P&gt;dp_timeout = 16&lt;/P&gt;&lt;P&gt;OTHERS = 17&lt;/P&gt;&lt;P&gt;.&lt;/P&gt;&lt;P&gt;IF sy-subrc = 0.&lt;/P&gt;&lt;P&gt;*-----To fetch the comma seperated flat file into an internal table.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT it_commatable INTO x_commatable.&lt;/P&gt;&lt;P&gt;IF x_commatable IS NOT INITIAL.&lt;/P&gt;&lt;P&gt;SPLIT x_commatable AT ',' INTO&lt;/P&gt;&lt;P&gt;x_table-v_legacy&lt;/P&gt;&lt;P&gt;x_table-vendor&lt;/P&gt;&lt;P&gt;x_table-purch_org&lt;/P&gt;&lt;P&gt;x_table-pur_group&lt;/P&gt;&lt;P&gt;x_table-material&lt;/P&gt;&lt;P&gt;x_table-quantity&lt;/P&gt;&lt;P&gt;x_table-delivery_date&lt;/P&gt;&lt;P&gt;x_table-net_price&lt;/P&gt;&lt;P&gt;x_table-plant.&lt;/P&gt;&lt;P&gt;APPEND x_table TO it_table.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;CLEAR x_table.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDFORM. " gui_upload&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM HEADER_DETAILS *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM header_details .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;MOVE 'NB' TO x_header-doc_type.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;input = x_table-vendor&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;output = x_table-vendor&lt;/P&gt;&lt;P&gt;.&lt;/P&gt;&lt;P&gt;MOVE x_table-vendor TO x_header-vendor.&lt;/P&gt;&lt;P&gt;MOVE x_table-purch_org TO x_header-purch_org.&lt;/P&gt;&lt;P&gt;MOVE x_table-pur_group TO x_header-pur_group.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x_headerx-doc_type = 'X'.&lt;/P&gt;&lt;P&gt;x_headerx-vendor = 'X'.&lt;/P&gt;&lt;P&gt;x_headerx-purch_org = 'X'.&lt;/P&gt;&lt;P&gt;x_headerx-pur_group = 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " header_details&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM LINEITEM *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM lineitem .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;v_temp1 = v_temp1 + 10.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;input = v_temp1&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;output = v_temp1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;MOVE v_temp1 TO x_item-po_item.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;input = x_table-material&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;output = x_table-material.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;MOVE x_table-material TO x_item-material.&lt;/P&gt;&lt;P&gt;MOVE x_table-quantity TO x_item-quantity.&lt;/P&gt;&lt;P&gt;MOVE x_table-net_price TO x_item-net_price.&lt;/P&gt;&lt;P&gt;MOVE x_table-plant TO x_item-plant.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x_itemx-po_item = v_temp1.&lt;/P&gt;&lt;P&gt;x_itemx-material = 'X'.&lt;/P&gt;&lt;P&gt;x_itemx-quantity = 'X'.&lt;/P&gt;&lt;P&gt;x_itemx-net_price = 'X'.&lt;/P&gt;&lt;P&gt;x_itemx-plant = 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;APPEND x_item TO it_item.&lt;/P&gt;&lt;P&gt;APPEND x_itemx TO it_itemx.&lt;/P&gt;&lt;P&gt;CLEAR: x_item, x_itemx.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " lineitem1&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM SCHEDULE *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM schedule .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;MOVE x_table-delivery_date TO x_sched-delivery_date.&lt;/P&gt;&lt;P&gt;MOVE v_temp1 TO x_sched-po_item.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x_schedx-delivery_date = 'X'.&lt;/P&gt;&lt;P&gt;x_schedx-po_item = v_temp1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;APPEND x_sched TO it_sched.&lt;/P&gt;&lt;P&gt;APPEND x_schedx TO it_schedx.&lt;/P&gt;&lt;P&gt;CLEAR: x_sched, x_schedx.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " schedule&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM BAPICALL *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM bapicall .&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_PO_CREATE1'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;poheader = x_header&lt;/P&gt;&lt;P&gt;poheaderx = x_headerx&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;exppurchaseorder = po_number&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;return = it_return&lt;/P&gt;&lt;P&gt;poitem = it_item&lt;/P&gt;&lt;P&gt;poitemx = it_itemx&lt;/P&gt;&lt;P&gt;poschedule = it_sched&lt;/P&gt;&lt;P&gt;poschedulex = it_schedx.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF po_number IS NOT INITIAL.&lt;/P&gt;&lt;P&gt;v_succsount = v_succsount + 1.&lt;/P&gt;&lt;P&gt;MOVE x_table-v_legacy TO x_alv-v_legs.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;v_failcount = v_failcount + 1.&lt;/P&gt;&lt;P&gt;MOVE x_table-v_legacy TO x_alv-v_legf.&lt;/P&gt;&lt;P&gt;MOVE x_table-v_legacy TO x_alv1-v_legf1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT it_return INTO x_return.&lt;/P&gt;&lt;P&gt;IF x_alv1-v_msg IS INITIAL.&lt;/P&gt;&lt;P&gt;MOVE x_return-message TO x_alv1-v_msg.&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;CONCATENATE x_alv1-v_msg x_return-message INTO x_alv1-v_msg SEPARATED BY space.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;APPEND x_alv1 TO it_alv1.&lt;/P&gt;&lt;P&gt;CLEAR x_alv1.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDFORM. " bapicall&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM DISPLAY_ALV *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM display_alv .&lt;/P&gt;&lt;P&gt;PERFORM x_list_header.&lt;/P&gt;&lt;P&gt;PERFORM build_fieldcat CHANGING x_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x_repid2 = sy-repid.&lt;/P&gt;&lt;P&gt;x_event1-name = 'TOP_OF_PAGE'.&lt;/P&gt;&lt;P&gt;x_event1-form = 'TOP_OF_PAGE'.&lt;/P&gt;&lt;P&gt;APPEND x_event1 TO x_event.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;i_callback_program = x_repid2&lt;/P&gt;&lt;P&gt;is_layout = x_layout1&lt;/P&gt;&lt;P&gt;it_fieldcat = x_fieldcat&lt;/P&gt;&lt;P&gt;i_callback_user_command = 'USER_COMMAND'&lt;/P&gt;&lt;P&gt;i_callback_top_of_page = 'TOP_OF_PAGE'&lt;/P&gt;&lt;P&gt;i_save = 'A'&lt;/P&gt;&lt;P&gt;is_variant = x_variant1&lt;/P&gt;&lt;P&gt;it_events = x_event&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;t_outtab = it_alv&lt;/P&gt;&lt;P&gt;EXCEPTIONS&lt;/P&gt;&lt;P&gt;program_error = 1&lt;/P&gt;&lt;P&gt;OTHERS = 2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;P&gt;MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno&lt;/P&gt;&lt;P&gt;WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDFORM. " display_master_data&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM USER_COMMAND *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM user_command USING ucomm LIKE sy-ucomm selfield&lt;/P&gt;&lt;P&gt;TYPE slis_selfield.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;READ TABLE it_alv INTO x_alv INDEX selfield-tabindex.&lt;/P&gt;&lt;P&gt;CLEAR : x_alv2,it_alv2[].&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT it_alv1 INTO x_alv1 WHERE v_legf1 = x_alv-v_legf.&lt;/P&gt;&lt;P&gt;x_alv2 = x_alv1.&lt;/P&gt;&lt;P&gt;APPEND x_alv2 TO it_alv2 .&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA : it_fieldcat TYPE slis_t_fieldcat_alv.&lt;/P&gt;&lt;P&gt;DATA : x3_fieldcat LIKE LINE OF it_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CLEAR : x3_fieldcat,it_fieldcat[].&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CLEAR x3_fieldcat.&lt;/P&gt;&lt;P&gt;x3_fieldcat-col_pos = '1'.&lt;/P&gt;&lt;P&gt;x3_fieldcat-fieldname = 'V_LEGF1'.&lt;/P&gt;&lt;P&gt;x3_fieldcat-reptext_ddic = text-111.&lt;/P&gt;&lt;P&gt;x3_fieldcat-ref_tabname = 'IT_ALV2'.&lt;/P&gt;&lt;P&gt;APPEND x3_fieldcat TO it_fieldcat.&lt;/P&gt;&lt;P&gt;CLEAR x3_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CLEAR x3_fieldcat.&lt;/P&gt;&lt;P&gt;x3_fieldcat-col_pos = '1'.&lt;/P&gt;&lt;P&gt;x3_fieldcat-fieldname = 'V_MSG'.&lt;/P&gt;&lt;P&gt;x3_fieldcat-reptext_ddic = text-112.&lt;/P&gt;&lt;P&gt;x3_fieldcat-ref_tabname = 'IT_ALV2'.&lt;/P&gt;&lt;P&gt;APPEND x3_fieldcat TO it_fieldcat.&lt;/P&gt;&lt;P&gt;CLEAR x3_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x_layout1-colwidth_optimize = 'X'.&lt;/P&gt;&lt;P&gt;x_layout1-zebra = 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF it_alv2[] IS NOT INITIAL.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;i_callback_program = x_repid2&lt;/P&gt;&lt;P&gt;is_layout = x_layout1&lt;/P&gt;&lt;P&gt;it_fieldcat = it_fieldcat&lt;/P&gt;&lt;P&gt;i_save = 'A'&lt;/P&gt;&lt;P&gt;i_callback_top_of_page = 'TOP'&lt;/P&gt;&lt;P&gt;is_variant = x_variant1&lt;/P&gt;&lt;P&gt;it_events = x_event&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;t_outtab = it_alv2&lt;/P&gt;&lt;P&gt;EXCEPTIONS&lt;/P&gt;&lt;P&gt;program_error = 1&lt;/P&gt;&lt;P&gt;OTHERS = 2.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDFORM.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM USER_COMMAND *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM top.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;it_list_commentary = 'Commentry'.&lt;/P&gt;&lt;P&gt;ENDFORM.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM BUILD_FIELDCAT *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM build_fieldcat CHANGING et_fieldcat TYPE slis_t_fieldcat_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: x1_fieldcat TYPE slis_fieldcat_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CLEAR x1_fieldcat.&lt;/P&gt;&lt;P&gt;x1_fieldcat-col_pos = '1'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-fieldname = 'V_LEGS'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-reptext_ddic = text-108.&lt;/P&gt;&lt;P&gt;x1_fieldcat-ref_tabname = 'IT_ALV'.&lt;/P&gt;&lt;P&gt;APPEND x1_fieldcat TO et_fieldcat.&lt;/P&gt;&lt;P&gt;CLEAR x1_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x1_fieldcat-col_pos = '2'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-fieldname = 'SUCCESS'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-key = 'X'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-reptext_ddic = text-109.&lt;/P&gt;&lt;P&gt;x1_fieldcat-ref_tabname = 'IT_ALV'.&lt;/P&gt;&lt;P&gt;APPEND x1_fieldcat TO et_fieldcat.&lt;/P&gt;&lt;P&gt;CLEAR x1_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;x1_fieldcat-col_pos = '3'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-fieldname = 'V_LEGF'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-key = 'X'.&lt;/P&gt;&lt;P&gt;x1_fieldcat-reptext_ddic = text-110.&lt;/P&gt;&lt;P&gt;x1_fieldcat-ref_tabname = 'IT_ALV'.&lt;/P&gt;&lt;P&gt;APPEND x1_fieldcat TO et_fieldcat.&lt;/P&gt;&lt;P&gt;CLEAR x1_fieldcat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " build_fieldcat&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM BUILD_LIST_HEADER *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM x_list_header.&lt;/P&gt;&lt;P&gt;DATA: x_list_header1 TYPE slis_listheader.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*-----List Header: type H&lt;/P&gt;&lt;P&gt;CLEAR x_list_header1 .&lt;/P&gt;&lt;P&gt;x_list_header1-typ = 'H'.&lt;/P&gt;&lt;P&gt;x_list_header1-info = text-105.&lt;/P&gt;&lt;P&gt;APPEND x_list_header1 TO x_list_header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*-----List Key: type S&lt;/P&gt;&lt;P&gt;x_list_header1-typ = 'S'.&lt;/P&gt;&lt;P&gt;x_list_header1-key = text-106.&lt;/P&gt;&lt;P&gt;x_list_header1-info = v_total.&lt;/P&gt;&lt;P&gt;APPEND x_list_header1 TO x_list_header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*-----List Key: Type S&lt;/P&gt;&lt;P&gt;CLEAR x_list_header1 .&lt;/P&gt;&lt;P&gt;x_list_header1-typ = 'S'.&lt;/P&gt;&lt;P&gt;x_list_header1-key = text-107.&lt;/P&gt;&lt;P&gt;x_list_header1-info = v_succsount.&lt;/P&gt;&lt;P&gt;APPEND x_list_header1 TO x_list_header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " build_list_header&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM TOP_OF_PAGE *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM top_of_page.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;it_list_commentary = x_list_header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. " TOP_OF_PAGE&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;regards.&lt;/P&gt;&lt;P&gt;sowjanya.b&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 06 Mar 2008 03:51:32 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532170#M849733</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-03-06T03:51:32Z</dc:date>
    </item>
    <item>
      <title>Re: BAPi to create PO</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532171#M849734</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hai.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;check the example code.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;REPORT Z_SALES_ORDER_CHANGE&lt;/P&gt;&lt;P&gt;NO STANDARD PAGE HEADING&lt;/P&gt;&lt;P&gt;LINE-SIZE 132&lt;/P&gt;&lt;P&gt;LINE-COUNT 65(0)&lt;/P&gt;&lt;P&gt;MESSAGE-ID ZZ.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TABLES: VBAP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA:&lt;/P&gt;&lt;P&gt;V_FILEIN(90) TYPE C,&lt;/P&gt;&lt;P&gt;V_RECIN TYPE I,&lt;/P&gt;&lt;P&gt;V_RECVBAP TYPE I,&lt;/P&gt;&lt;P&gt;V_RECORDER TYPE I,&lt;/P&gt;&lt;P&gt;V_VBELN LIKE VBAP-VBELN,&lt;/P&gt;&lt;P&gt;ORDERHEADERINX LIKE BAPISDH1X.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF I_ORDERS OCCURS 0,&lt;/P&gt;&lt;P&gt;VBELN LIKE VBAK-VBELN,&lt;/P&gt;&lt;P&gt;POSNR LIKE VBAP-POSNR,&lt;/P&gt;&lt;P&gt;BRGEW(18) TYPE C,&lt;/P&gt;&lt;P&gt;VOLUM(18) TYPE C,&lt;/P&gt;&lt;P&gt;END OF I_ORDERS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF I_OUTPUT OCCURS 0,&lt;/P&gt;&lt;P&gt;VBELN LIKE VBAK-VBELN,&lt;/P&gt;&lt;P&gt;POSNR LIKE VBAP-POSNR,&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;GEWEI LIKE VBAP-GEWEI,&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;BRGEW LIKE VBAP-BRGEW,&lt;/P&gt;&lt;P&gt;VOLUM LIKE VBAP-VOLUM,&lt;/P&gt;&lt;P&gt;CKWGT TYPE C,&lt;/P&gt;&lt;P&gt;CKVOL TYPE C,&lt;/P&gt;&lt;P&gt;END OF I_OUTPUT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF ORDERITEMIN OCCURS 0.&lt;/P&gt;&lt;P&gt;INCLUDE STRUCTURE BAPISDITM.&lt;/P&gt;&lt;P&gt;DATA: END OF ORDERITEMIN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF ORDERITEMINX OCCURS 0.&lt;/P&gt;&lt;P&gt;INCLUDE STRUCTURE BAPISDITMX.&lt;/P&gt;&lt;P&gt;DATA: END OF ORDERITEMINX.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF RETURN OCCURS 0.&lt;/P&gt;&lt;P&gt;INCLUDE STRUCTURE BAPIRET2.&lt;/P&gt;&lt;P&gt;DATA: END OF RETURN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: BEGIN OF BAPIRETURN OCCURS 0.&lt;/P&gt;&lt;P&gt;INCLUDE STRUCTURE BAPIRET2.&lt;/P&gt;&lt;P&gt;DATA: END OF BAPIRETURN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;PARAMETERS:&lt;/P&gt;&lt;P&gt;P_PATH(45) TYPE C DEFAULT '/usr/users/ftpsapom/' LOWER CASE,&lt;/P&gt;&lt;P&gt;P_FNAME(32) TYPE C DEFAULT '/sweetjo.txt' LOWER CASE.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;START-OF-SELECTION.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;CONCATENATE PATH AND FILE NAME INTO ONE VARIABLE&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;CONCATENATE P_PATH P_FNAME INTO V_FILEIN.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;OPEN DATASET&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;IF V_FILEIN IS INITIAL.&lt;/P&gt;&lt;P&gt;MESSAGE E002 WITH 'FILE' V_FILEIN 'DOES NOT CONTAIN ANY DATA!'.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;&amp;amp; &amp;amp; &amp;amp; &amp;amp;&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;OPEN DATASET V_FILEIN&lt;/P&gt;&lt;P&gt;FOR INPUT&lt;/P&gt;&lt;P&gt;IN TEXT MODE.&lt;/P&gt;&lt;P&gt;IF SY-SUBRC = 0.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;READ DATASET&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;DO.&lt;/P&gt;&lt;P&gt;READ DATASET V_FILEIN INTO I_ORDERS.&lt;/P&gt;&lt;P&gt;IF SY-SUBRC = 0.&lt;/P&gt;&lt;P&gt;APPEND I_ORDERS.&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;EXIT.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDDO.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;CLOSE DATASET&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;CLOSE DATASET V_FILEIN.&lt;/P&gt;&lt;P&gt;IF SY-SUBRC &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;P&gt;MESSAGE E002 WITH 'ERROR - CLOSING' V_FILEIN.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;&amp;amp; &amp;amp; &amp;amp; &amp;amp;&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;MESSAGE E002 WITH 'ERROR - COULD NOT OPEN' V_FILEIN.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;&amp;amp; &amp;amp; &amp;amp; &amp;amp;&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;SORT AND REMOVE DUPLICATES FROM I_ORDERS&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;SORT I_ORDERS BY VBELN POSNR.&lt;/P&gt;&lt;P&gt;DELETE ADJACENT DUPLICATES FROM I_ORDERS.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;POPULATE I_OUTPUT&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;LOOP AT I_ORDERS.&lt;/P&gt;&lt;P&gt;SHIFT I_ORDERS-POSNR LEFT DELETING LEADING SPACE.&lt;/P&gt;&lt;P&gt;CONCATENATE '0' I_ORDERS-POSNR INTO I_ORDERS-POSNR.&lt;/P&gt;&lt;P&gt;SELECT SINGLE BRGEW VOLUM&lt;/P&gt;&lt;P&gt;FROM VBAP&lt;/P&gt;&lt;P&gt;INTO (VBAP-BRGEW, VBAP-VOLUM)&lt;/P&gt;&lt;P&gt;WHERE VBELN = I_ORDERS-VBELN&lt;/P&gt;&lt;P&gt;AND POSNR = I_ORDERS-POSNR.&lt;/P&gt;&lt;P&gt;IF SY-SUBRC = 0.&lt;/P&gt;&lt;P&gt;IF VBAP-BRGEW = 0.&lt;/P&gt;&lt;P&gt;I_OUTPUT-CKWGT = 'X'.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;IF VBAP-VOLUM = 0.&lt;/P&gt;&lt;P&gt;I_OUTPUT-CKVOL = 'X'.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;I_OUTPUT-VBELN = I_ORDERS-VBELN.&lt;/P&gt;&lt;P&gt;I_OUTPUT-POSNR = I_ORDERS-POSNR.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;I_OUTPUT-GEWEI = 'ST'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;I_OUTPUT-BRGEW = I_ORDERS-BRGEW.&lt;/P&gt;&lt;P&gt;I_OUTPUT-VOLUM = I_ORDERS-VOLUM.&lt;/P&gt;&lt;P&gt;APPEND I_OUTPUT.&lt;/P&gt;&lt;P&gt;CLEAR: I_OUTPUT.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;V_RECIN = V_RECIN + 1.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;POPULATE BAPI DATA AND RUN BAPI&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;CLEAR: ORDERHEADERINX, ORDERITEMIN, ORDERITEMINX,&lt;/P&gt;&lt;P&gt;RETURN, BAPIRETURN.&lt;/P&gt;&lt;P&gt;REFRESH: ORDERITEMIN, ORDERITEMINX, RETURN, BAPIRETURN.&lt;/P&gt;&lt;P&gt;ORDERHEADERINX-UPDATEFLAG = 'U'.&lt;/P&gt;&lt;P&gt;LOOP AT I_OUTPUT WHERE CKWGT = 'X' OR CKVOL = 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;V_RECVBAP = V_RECVBAP + 1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF I_OUTPUT-VBELN &amp;lt;&amp;gt; V_VBELN AND SY-TABIX &amp;lt;&amp;gt; 1.&lt;/P&gt;&lt;P&gt;V_RECORDER = V_RECORDER + 1.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_SALESORDER_CHANGE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;SALESDOCUMENT = V_VBELN&lt;/P&gt;&lt;P&gt;ORDER_HEADER_INX = ORDERHEADERINX&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;RETURN = RETURN&lt;/P&gt;&lt;P&gt;ORDER_ITEM_IN = ORDERITEMIN&lt;/P&gt;&lt;P&gt;ORDER_ITEM_INX = ORDERITEMINX.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;WAIT = 'X'&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;RETURN = BAPIRETURN.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WRITE OUT RETURN&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;LOOP AT RETURN.&lt;/P&gt;&lt;P&gt;WRITE: / RETURN.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;WRITE: / BAPIRETURN.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;CLEAR: ORDERITEMIN, ORDERITEMINX,&lt;/P&gt;&lt;P&gt;RETURN, BAPIRETURN.&lt;/P&gt;&lt;P&gt;REFRESH: ORDERITEMIN, ORDERITEMINX, RETURN, BAPIRETURN.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ORDERITEMIN-ITM_NUMBER = I_OUTPUT-POSNR.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;ORDERITEMIN-UNTOF_WGHT = I_OUTPUT-GEWEI.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;IF NOT I_OUTPUT-CKWGT IS INITIAL.&lt;/P&gt;&lt;P&gt;ORDERITEMIN-GROSS_WGHT = I_OUTPUT-BRGEW.&lt;/P&gt;&lt;P&gt;ORDERITEMINX-GROSS_WGHT = 'X'.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;IF NOT I_OUTPUT-CKVOL IS INITIAL.&lt;/P&gt;&lt;P&gt;ORDERITEMIN-VOLUME = I_OUTPUT-VOLUM.&lt;/P&gt;&lt;P&gt;ORDERITEMINX-VOLUME = 'X'.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;APPEND ORDERITEMIN.&lt;/P&gt;&lt;P&gt;ORDERITEMINX-ITM_NUMBER = I_OUTPUT-POSNR.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;ORDERITEMINX-UNTOF_WGHT = 'X'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;ORDERITEMINX-UPDATEFLAG = 'U'.&lt;/P&gt;&lt;P&gt;APPEND ORDERITEMINX.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;V_VBELN = I_OUTPUT-VBELN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;RUN BAPI ON LAST ORDER&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;IF NOT ORDERITEMIN IS INITIAL.&lt;/P&gt;&lt;P&gt;V_RECORDER = V_RECORDER + 1.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_SALESORDER_CHANGE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;SALESDOCUMENT = V_VBELN&lt;/P&gt;&lt;P&gt;ORDER_HEADER_INX = ORDERHEADERINX&lt;/P&gt;&lt;P&gt;TABLES&lt;/P&gt;&lt;P&gt;RETURN = RETURN&lt;/P&gt;&lt;P&gt;ORDER_ITEM_IN = ORDERITEMIN&lt;/P&gt;&lt;P&gt;ORDER_ITEM_INX = ORDERITEMINX.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;WAIT = 'X'&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;RETURN = BAPIRETURN.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WRITE OUT RETURN&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;LOOP AT RETURN.&lt;/P&gt;&lt;P&gt;WRITE: / RETURN.&lt;/P&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;P&gt;WRITE: / BAPIRETURN.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WRITE OUT RECORD COUNT FROM FILE&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;WRITE: / 'RECORD COUNT FROM FILE ', V_RECIN.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WRITE OUT RECORD COUNT FROM FILE&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;WRITE: / 'RECORD COUNT OF LINES TO CHANGE ', V_RECVBAP.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WRITE OUT RECORD COUNT FROM FILE&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;WRITE: / 'RECORD COUNT OF ORDERS TO CHANGE ', V_RECORDER.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;TOP OF PAGE&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;TOP-OF-PAGE.&lt;/P&gt;&lt;P&gt;WRITE:/1(5) TEXT-H01, 6(8) SY-DATUM MM/DD/YY,&lt;/P&gt;&lt;P&gt;100(8) TEXT-H02, 126(8) SY-PAGNO.&lt;/P&gt;&lt;P&gt;WRITE:/1(5) TEXT-H03, 6(8) SY-UZEIT USING EDIT MASK '__:__:__',&lt;/P&gt;&lt;P&gt;20(77) TEXT-H04,&lt;/P&gt;&lt;P&gt;100(8) TEXT-H05, 108(25) SY-REPID.&lt;/P&gt;&lt;P&gt;WRITE:/1(6) TEXT-H06, 8(12) SY-UNAME,&lt;/P&gt;&lt;P&gt;20(4) TEXT-H07, 25(32) SY-HOST,&lt;/P&gt;&lt;P&gt;100(13) TEXT-H08, 121(8) SY-SYSID,&lt;/P&gt;&lt;P&gt;129 '/', 130(3) SY-MANDT.&lt;/P&gt;&lt;P&gt;ULINE.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards.&lt;/P&gt;&lt;P&gt;sowjanya.b&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 06 Mar 2008 03:53:09 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532171#M849734</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-03-06T03:53:09Z</dc:date>
    </item>
    <item>
      <title>Re: BAPi to create PO</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532172#M849735</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;HI Sowjanya barli ,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  Can u send the text file with some sample records... with say line item 2 for one header data nd 5 line item for second header data...plz it 'll be vry helpful if send some sample data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;thanks.&lt;/P&gt;&lt;P&gt;Arunprasad.P&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 06 Mar 2008 04:19:03 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532172#M849735</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-03-06T04:19:03Z</dc:date>
    </item>
    <item>
      <title>Re: BAPi to create PO</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532173#M849736</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;hi Barli&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ascutally i have already oneprogram running and creating the po  and change po two bapis are running&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;my main query was that i want to add text at item level for some new input field in the text file which i have added to the program now only part is the bapi where can i update that new field data as i want to update the Me23n w ith this new data text at bottom most level portion under text tab &lt;/P&gt;&lt;P&gt;if u see u find several fields uner item texts &lt;/P&gt;&lt;P&gt;for this i want to populate the text field to via bapi&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;already at header level its cmong but how to pupulate the text field for item level&lt;/P&gt;&lt;P&gt;like for ech material we have a item text which needs to be populated&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;regards&lt;/P&gt;&lt;P&gt;Nishant&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Thu, 06 Mar 2008 06:49:27 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bapi-to-create-po/m-p/3532173#M849736</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-03-06T06:49:27Z</dc:date>
    </item>
  </channel>
</rss>

