Bapi to create purchase order

Hi Experts,
I need to find a bapi to put purchase orders using co08.Please let me know if some bapi or function module exists there for the same.
Thanks in advance

See th Business object BUS2012
u can see all bapis for Purchase order.
BAPI_PO_CREATE
BAPI_PO_CREATE1 to create purchase order.
<b><REMOVED BY MODERATOR></b>
Regards,
Vimal
Message was edited by:
Alvaro Tejada Galindo

Similar Messages

ANy BAPI to create Purchase order

Hi,gurus,
Is there any BAPI to create PO.Pl send to me along with the sample code.
Gratefull answeres will be awarded.
Regards,
Venkatesh
9892 895847

Hi
Use the bapi: bapi_po_create1 for creating the purchase order.
Pass the parameters like below:
header-comp_code = p_comp.
header-doc_type   = p_dtype.
header-creat_date = sy-datum.
header-item_intvl = '10'.
header-vendor     = p_lifnr.
header-langu      = ws_langu   .
header-pmnttrms   = p_pmnt.
header-purch_org = p_porg.
header-pur_group = p_pgroup.
header-currency   = 'INR'.
headerx-comp_code = c_x.
headerx-doc_type   = c_x.
headerx-creat_date = c_x.
headerx-item_intvl = c_x .
headerx-vendor     = c_x.
headerx-langu      = c_x.
headerx-pmnttrms   = c_x   .
headerx-purch_org = c_x.
headerx-pur_group = c_x.
LOOP AT it_final2 INTO wa_final2.
    p_int = p_int + 10.
    wa_item-po_item = p_int.
    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        input        = wa_final2-matnr
      IMPORTING
        output       = wa_final2-matnr
      EXCEPTIONS
        length_error = 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.
    wa_item-material = wa_final2-matnr.
    wa_item-plant    = p_werks.
    wa_item-quantity = wa_final2-kwmeng.
    wa_item-tax_code = 'V0'.
    APPEND wa_item TO it_item.
    wa_itemx-po_item    = p_int.
    wa_itemx-material   = c_x.
    wa_itemx-plant      = c_x .
    wa_itemx-stge_loc   = c_x .
    wa_itemx-quantity   = c_x .
    wa_itemx-tax_code   = c_x .
    wa_itemx-item_cat   = c_x .
    wa_itemx-acctasscat = c_x .
    wa_itemx-tax_code   = c_x .
    APPEND wa_itemx TO it_itemx.
ENDLOOP.
p_pono = ' '.
CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader         = header
      poheaderx        = headerx
    IMPORTING
      exppurchaseorder = p_pono
    TABLES
      return           = return
      poitem           = it_item
      poitemx          = it_itemx.
For better understanding see the function module documentation of the bapi: bapi_po_create1.
If it is helpful rewards points
Regards
Pratap.M

Bapi for creating purchase order

hi, iam using BAPI_PO_CREATE1 to create PO's for service. after creating opne PO if i go and create another po within a short span of a minute or so then it does not create the second PO. it gives message that doc does not contain any items.
TABLES: ekpo,zcta_podates,ekko.
DATA iekpo LIKE ekpo OCCURS 0 WITH HEADER LINE.
DATA iekko LIKE ekko OCCURS 0 WITH HEADER LINE.
DATA ipodates LIKE zcta_podates OCCURS 0 WITH HEADER LINE.
DATA : wabldat1 LIKE zcta_podates-podat.
DATA : wabldat2 LIKE zcta_podates-podat.
DATA : wabldat3 LIKE zcta_podates-podat.
DATA : wabldat4 LIKE zcta_podates-podat.
DATA : wabldat5 LIKE zcta_podates-podat.
DATA : wabldat6 LIKE zcta_podates-podat.
DATA : wabldat7 LIKE zcta_podates-podat.
DATA :fname1 TYPE string.
DATA :w_fname1 TYPE string.
DATA : BEGIN OF itab1 OCCURS 0 ,
       txz01 LIKE mepo1211-txz01,
       werks LIKE mepo1211-name1,
       srvpos LIKE esll-srvpos,
       gross(15),
       val1(10),   "LIKE esll-frmval1,
       val2(10),   " LIKE esll-frmval2
       val3(10),
      zzformat LIKE ekpo-zzformat,
      zzcampaign LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzcity LIKE ekpo-zzcity,
      zzlangu LIKE ekpo-zzlangu,
      zzedition LIKE ekpo-zzedition,
      zzcolorhue LIKE ekpo-zzcolorhue,
      zztypeofad LIKE ekpo-zztypeofad,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
       END OF itab1.
DATA :BEGIN OF itab2 OCCURS 0,         " radio
         txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      zzformat LIKE ekpo-zzformat,
      zzcampaign LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzcity      LIKE ekpo-zzcity,
      zzprogramname LIKE ekpo-zzprogramname,
      zzdealstructure LIKE ekpo-zzdealstructure,
      zztimeband    LIKE ekpo-zztimeband,
     date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab2.
DATA :BEGIN OF itab3 OCCURS 0,   "tv
      txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      zzformat LIKE ekpo-zzformat,
      zzcampaign    LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzgenre        LIKE ekpo-zzgenre,
      zzprogramname LIKE ekpo-zzprogramname,
      zzdealstructure LIKE ekpo-zzdealstructure,
      zztimeband    LIKE ekpo-zztimeband,
      zzlangu       LIKE ekpo-zzlangu,
      zzcity(20), "      LIKE ekpo-zzcity,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab3.
DATA :BEGIN OF itab4 OCCURS 0,   "OUTDOOR
         txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      cond(12),
      zzformat LIKE ekpo-zzformat,
      zzcampaign    LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzcity      LIKE ekpo-zzcity,
      zzlocationorroad LIKE ekpo-zzlocationorroad,
      zztypeofad LIKE ekpo-zztypeofad,
      zztrafficdirtn LIKE ekpo-zztrafficdirtn,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab4.
DATA :BEGIN OF itab5 OCCURS 0, "INTERNET
      txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      cond(12),
      zzformat LIKE ekpo-zzformat,
      zzcampaign    LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zztypeofad LIKE ekpo-zztypeofad,
      zzsection      LIKE ekpo-zzsection,
     date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab5.
DATA :BEGIN OF itab6 OCCURS 0, "CINEMA
      txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      cond(12),
      zzformat LIKE ekpo-zzformat,
      zzcampaign    LIKE ekpo-zzcampaign,
      zzcity      LIKE ekpo-zzcity,
      zzlocationorroad LIKE ekpo-zzlocationorroad,
      zzcinemaname   LIKE ekpo-zzcinemaname,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab6.
DATA :BEGIN OF itab7 OCCURS 0,   "OTHER MEDIA
         txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      gross(12),
      val1(10),   "LIKE esll-frmval1,
      val2(10),   " LIKE esll-frmval2
      val3(10),
      val4(10),
      zzformat LIKE ekpo-zzformat,
      zcampaign    LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzcity      LIKE ekpo-zzcity,
      zzedition   LIKE ekpo-zzedition,
      zzcolorhue LIKE ekpo-zzcolorhue,
      zztypeofad LIKE ekpo-zztypeofad,
      zzlangu       LIKE ekpo-zzlangu,
      zzgenre        LIKE ekpo-zzgenre,
      zzprogramname LIKE ekpo-zzprogramname,
      zzdealstructure LIKE ekpo-zzdealstructure,
      zztimeband    LIKE ekpo-zztimeband,
      zzlocationorroad LIKE ekpo-zzlocationorroad,
      zzsection      LIKE ekpo-zzsection,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab7.
DATA :BEGIN OF itab8 OCCURS 0,    "NO MEDIA
        txz01 LIKE mepo1211-txz01,
      werks LIKE mepo1211-name1,
      srvpos LIKE esll-srvpos,
      qty(12),
      gross(12),
      zzformat LIKE ekpo-zzformat,
      zzcampaign    LIKE ekpo-zzcampaign,
      zzcity      LIKE ekpo-zzcity,
      date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
      END OF itab8.
DATA : BEGIN OF str OCCURS 0,
       txz01 LIKE mepo1211-txz01,
       werks LIKE mepo1211-name1,
       srvpos LIKE esll-srvpos,
       gross(15),
       val1(10),   "LIKE esll-frmval1,
       val2(10),   " LIKE esll-frmval2
       val3(10),
      val4(10),
      zzformat LIKE ekpo-zzformat,
      zzcampaign LIKE ekpo-zzcampaign,
      zzmeansofad LIKE ekpo-zzmeansofad,
      zzcity LIKE ekpo-zzcity,
      zzlangu LIKE ekpo-zzlangu,
      zzedition LIKE ekpo-zzedition,
      zzcolorhue LIKE ekpo-zzcolorhue,
      zztypeofad LIKE ekpo-zztypeofad,
      zzillumination LIKE ekpo-zzillumination ,
     zztrafficdirtn LIKE ekpo-zztrafficdirtn ,
    zzstore LIKE ekpo-zzstore ,
    zzcasting LIKE ekpo-zzcasting ,
    zzgenre LIKE ekpo-zzgenre ,
    zzsection LIKE ekpo-zzsection ,
    zznumberofdays LIKE ekpo-zznumberofdays ,
    zzprogramname LIKE ekpo-zzprogramname ,
    zzdealstructure LIKE ekpo-zzdealstructure ,
    zztimeband LIKE ekpo-zztimeband ,
    zzdate LIKE ekpo-zzdate ,
zzdaysofwk LIKE ekpo-zzdaysofwk ,
zzasnum LIKE ekpo-zzasnum ,
zzlocationorroad LIKE ekpo-zzlocationorroad ,
zzcinemaname LIKE ekpo-zzcinemaname ,
zzcapacity LIKE ekpo-zzcapacity ,
zzfield2 LIKE ekpo-zzfield2 ,
zzfield3 LIKE ekpo-zzfield3 ,
       date1(10),
       date2(10),
       date3(10),
       date4(10),
       date5(10),
       date6(10),
       date7(10),
       END OF str.
DATA :package(10) TYPE n VALUE '4747'.
DATA :subpackage(10) TYPE n VALUE '4748'.
DATA : l_po_header LIKE bapimepoheader.
DATA : l_po_headerx LIKE bapimepoheaderx.
DATA : l_purchaseorder LIKE bapimepoheader-po_number.
DATA : t_po_account LIKE bapimepoaccount OCCURS 0 WITH HEADER LINE.
DATA : t_po_accountx LIKE bapimepoaccountx OCCURS 0 WITH HEADER LINE.
DATA : t_po_servalue LIKE bapiesklc OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF t_po_items OCCURS 0.
        INCLUDE STRUCTURE bapimepoitem.
DATA : END OF t_po_items.
DATA : BEGIN OF t_po_itemsx OCCURS 0.
        INCLUDE STRUCTURE bapimepoitemx.
DATA : END OF t_po_itemsx.
DATA : BEGIN OF t_return OCCURS 0.
        INCLUDE STRUCTURE bapiret2.
DATA : END OF t_return.
DATA : BEGIN OF t_po_services OCCURS 0.
        INCLUDE STRUCTURE bapiesllc.
DATA : END OF t_po_services.
DATA: l_item(5) TYPE n,l_last_po(10).
*TABLES : zerror.
DATA lcounter(3) TYPE n.
DATA : l_errflag.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME.
PARAMETER:x_lifnr LIKE ekko-lifnr .
PARAMETER:x_ekorg LIKE ekko-ekorg DEFAULT '9000' .
PARAMETER:x_ekgrp LIKE ekko-ekgrp .
PARAMETER:x_bukrs LIKE ekko-bukrs DEFAULT '0101' .
PARAMETER:x_bsart LIKE ekko-bsart DEFAULT 'ZNB1'.
PARAMETER:x_sdate LIKE ekko-bedat.
PARAMETER : x_edate LIKE ekko-bedat.
PARAMETER: pr_fn1 LIKE ibipparms-path OBLIGATORY.
PARAMETER: rad1 RADIOBUTTON GROUP gr1.
PARAMETER: rad2 RADIOBUTTON GROUP gr1.
PARAMETER: rad3 RADIOBUTTON GROUP gr1.
PARAMETER: rad4 RADIOBUTTON GROUP gr1.
PARAMETER: rad5 RADIOBUTTON GROUP gr1.
PARAMETER: rad6 RADIOBUTTON GROUP gr1.
PARAMETER: rad7 RADIOBUTTON GROUP gr1.
PARAMETER: rad8 RADIOBUTTON GROUP gr1.
SELECTION-SCREEN:END OF BLOCK b1 .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pr_fn1.
CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = pr_fn1.
MOVE pr_fn1 TO w_fname1.
START-OF-SELECTION.
IF rad1 = 'X'.
    PERFORM table_upload TABLES itab1.
ELSEIF rad2 = 'X'.
    PERFORM table_upload TABLES itab2.
ELSEIF rad3 = 'X'.
    PERFORM table_upload TABLES itab3.
ELSEIF rad4 = 'X'.
    PERFORM table_upload TABLES itab4.
ELSEIF rad5 = 'X'.
    PERFORM table_upload TABLES itab5.
ELSEIF rad6 = 'X'.
    PERFORM table_upload TABLES itab6.
ELSEIF rad7 = 'X'.
    PERFORM table_upload TABLES itab7.
ELSEIF rad8 = 'X'.
    PERFORM table_upload TABLES itab8.
ENDIF.
LOOP AT str.
    SHIFT str-srvpos RIGHT DELETING TRAILING ' '.
    OVERLAY str-srvpos WITH '00000000000000000'.
    MODIFY str.
ENDLOOP.
CLEAR : l_po_header.
PERFORM create_po_header.
LOOP AT str FROM 2 .
    PERFORM append_item.
ENDLOOP.
PERFORM create_po.
WAIT UP TO 5 SECONDS.
SELECT * FROM ekpo INTO CORRESPONDING FIELDS OF TABLE iekpo WHERE ebeln = l_purchaseorder.
COMMIT WORK.
WAIT UP TO 5 SECONDS.
LOOP AT iekpo.
    l_item = sy-tabix + 1.
    READ TABLE str INDEX l_item.
    iekpo-zzfield2 = str-zzfield2 .
    iekpo-zzfield3 = str-zzfield3 .
    iekpo-zzformat = str-zzformat .
    iekpo-zzmeansofad = str-zzmeansofad .
    iekpo-zzedition = str-zzedition .
    iekpo-zzcolorhue = str-zzcolorhue .
    iekpo-zztypeofad = str-zztypeofad .
    iekpo-zzcity = str-zzcity .
    iekpo-zzlangu = str-zzlangu .
    iekpo-zzdaysofwk = str-zzdaysofwk .
    iekpo-zzasnum = str-zzasnum .
    iekpo-zzlocationorroad = str-zzlocationorroad .
    iekpo-zzcinemaname = str-zzcinemaname .
    iekpo-zzcapacity = str-zzcapacity .
    iekpo-zzcampaign = str-zzcampaign .
    iekpo-zzillumination = str-zzillumination .
    iekpo-zztrafficdirtn = str-zztrafficdirtn .
    iekpo-zzstore = str-zzstore .
    iekpo-zzcasting = str-zzcasting .
    iekpo-zzgenre = str-zzgenre .
    iekpo-zzsection = str-zzsection .
    iekpo-zznumberofdays = str-zznumberofdays .
    iekpo-zzprogramname = str-zzprogramname .
    iekpo-zzdealstructure = str-zzdealstructure .
    iekpo-zztimeband = str-zztimeband .
    iekpo-zzdate = str-zzdate .
    MODIFY iekpo.
ENDLOOP.
WAIT UP TO 2 SECONDS.
COMMIT WORK.
WAIT UP TO 15 SECONDS.
UPDATE ekpo FROM TABLE iekpo.
COMMIT WORK.
WAIT UP TO 2 SECONDS.
SELECT * FROM ekko INTO CORRESPONDING FIELDS OF TABLE iekko WHERE ebeln = l_purchaseorder.
LOOP AT iekko.
    iekko-kdatb = x_sdate.
    iekko-kdate = x_edate.
    MODIFY iekko.
ENDLOOP.
UPDATE ekko FROM TABLE iekko.
COMMIT WORK.
WAIT UP TO 1 SECONDS.
CLEAR l_item.
l_item = 10.
LOOP AT str FROM 2 .
    CONCATENATE str-date1+6(4) str-date1+3(2) str-date1(2) INTO wabldat1.
    CONCATENATE str-date2+6(4) str-date2+3(2) str-date2(2) INTO wabldat2.
    CONCATENATE str-date3+6(4) str-date3+3(2) str-date3(2) INTO wabldat3.
    CONCATENATE str-date4+6(4) str-date4+3(2) str-date4(2) INTO wabldat4.
    CONCATENATE str-date5+6(4) str-date5+3(2) str-date5(2) INTO wabldat5.
    CONCATENATE str-date6+6(4) str-date6+3(2) str-date6(2) INTO wabldat6.
    CONCATENATE str-date7+6(4) str-date7+3(2) str-date7(2) INTO wabldat7.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '001'.
    ipodates-podat = wabldat1.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '002'.
    ipodates-podat = wabldat2.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '003'.
    ipodates-podat = wabldat3.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '004'.
    ipodates-podat = wabldat4.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '005'.
    ipodates-podat = wabldat5.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '006'.
    ipodates-podat = wabldat6.
    APPEND ipodates.
    ipodates-ebeln = l_purchaseorder.
    ipodates-ebelp = l_item.
    ipodates-linno = '007'.
    ipodates-podat = wabldat7.
    APPEND ipodates.
    l_item = l_item + 10.
ENDLOOP.
WAIT UP TO 1 SECONDS.
MODIFY zcta_podates FROM TABLE ipodates.
COMMIT WORK.
WAIT UP TO 2 SECONDS.
ipodates-podat,ipodates-ebeln,ipodates-ebelp,ipodates-linno.
WAIT UP TO 5 SECONDS.
LOOP AT t_return.
    WRITE :/ t_return-message.
ENDLOOP.
free : ipodates,iekpo,str,itab1,itab2,itab3,itab4,itab5,itab6,itab7,itab8.
*&      Form create_po_header
FORM create_po_header .
l_po_header-comp_code = '0101'.             " Company Code
l_po_header-doc_type = x_bsart.         "'ZNB1'.            " Order Typr BSART
l_po_header-creat_date = sy-datum.        " P.O Dt - BEDAT
l_po_header-doc_date = sy-datum.
l_po_header-vendor   =   x_lifnr.
l_po_header-vper_start = x_sdate.
l_po_header-vper_end =     x_edate.
l_po_header-purch_org = '9000'.           " Purch. Org - EKKO-EKORG
l_po_header-pur_group = x_ekgrp.        " Purch Group - EKKO-EKGRP
l_po_header-currency_iso = 'INR'.
CLEAR : l_po_headerx.
l_po_headerx-po_number = 'X'.
l_po_headerx-comp_code = 'X'." Company Code
l_po_headerx-doc_type = 'X'. " Order Typr BSART
l_po_headerx-vendor = 'X'. "Vendor - EKKO-LIFNR
l_po_headerx-purch_org = 'X'. " Purch. Org - EKKO-EKORG
l_po_headerx-pur_group = 'X'. " Purch Group - EKKO-EKGRP
l_po_headerx-currency_iso = 'X'. " Currency Default field for Enjoy
l_po_headerx-ref_1       = 'X'.
ENDFORM.                    " create_po_header
*&      Form APPEND_ITEM
FORM append_item .
package = package + 2.
subpackage = package + 1.
l_item = l_item + 10.
t_po_items-po_item = l_item.
t_po_items-acctasscat = 'K'.
t_po_items-item_cat = 'D'.
t_po_items-short_text = str-txz01. .
t_po_items-plant = str-werks . " P
t_po_items-tax_code = 'S1'.
t_po_items-pckg_no =    package.            " 4748.             "package.
APPEND t_po_items.
CLEAR t_po_items.
t_po_itemsx-po_item = l_item.
t_po_itemsx-po_itemx = 'X'.
t_po_itemsx-acctasscat = 'X'.
t_po_itemsx-item_cat = 'X'.
t_po_itemsx-short_text = 'X'.
t_po_itemsx-plant = 'X'.
t_po_itemsx-tax_code = 'X'.
t_po_itemsx-pckg_no = 'X'.
APPEND t_po_itemsx.
CLEAR t_po_itemsx.
t_po_account-po_item = l_item.
t_po_account-serial_no = 1.
t_po_account-quantity = 1.
t_po_account-distr_perc = '00'.
t_po_account-costcenter = '0006079000'.                   " 'BR034'.
t_po_account-gl_account = '0054014071'.        "'0000135075'.
t_po_account-co_area    = '1001'.
APPEND t_po_account.
CLEAR t_po_account.
t_po_accountx-po_item = l_item.
t_po_accountx-serial_no = 1.
t_po_accountx-quantity = 'X'.
t_po_accountx-distr_perc = 'X'.
t_po_accountx-costcenter = 'X'.
t_po_accountx-gl_account = 'X'.
t_po_accountx-co_area = 'X'.
APPEND t_po_accountx.
CLEAR t_po_accountx.
t_po_services-pckg_no = package.                         "'4748'.
t_po_services-line_no = '0000000001' .
t_po_services-ext_line = '0000000000' .
t_po_services-outl_level = '0'.
t_po_services-outl_no = ' '.
t_po_services-outl_ind = 'X'.
t_po_services-subpckg_no = subpackage .                  "'4749'.
APPEND t_po_services. CLEAR t_po_services .
t_po_services-pckg_no = subpackage .                      "'4749'.
t_po_services-line_no = '0000000002' .
t_po_services-ext_line = '10' .
t_po_services-outl_level = '0'.
t_po_services-service = str-srvpos.          "'000000000003000045'.
t_po_services-gr_price = str-gross.                       "'2000.00'.
t_po_services-form_val1 = str-val1.                      "'10.000'.
t_po_services-form_val2 = str-val2.                       "'33.000'.
if rad1 = 'x'.
t_po_services-form_val3 = str-val3.                       " '3.000'.
endif.
t_po_services-tax_code   = 'S1'.
APPEND t_po_services. CLEAR t_po_services .
t_po_servalue-pckg_no = subpackage .                      "'4749'.
t_po_servalue-line_no = '0000000002' .
t_po_servalue-serial_no = '01'.
APPEND t_po_servalue . CLEAR t_po_servalue.
ENDFORM.                    " APPEND_ITEM
*&      Form create_po
FORM create_po .
CALL FUNCTION 'BAPI_PO_CREATE1'
      EXPORTING
        poheader                     = l_po_header
       poheaderx                    = l_po_headerx
     IMPORTING
       exppurchaseorder             = l_purchaseorder
     TABLES
       return                       = t_return
       poitem                       = t_po_items
       poitemx                      = t_po_itemsx
       poaccount                    = t_po_account
       poaccountx                   = t_po_accountx
       poservices                   = t_po_services
     posrvaccessvalues            =   t_po_servalue
WAIT UP TO 15 SECONDS.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
ENDFORM.                    " create_po
*&      Form TABLE_UPLOAD
FORM table_upload TABLES   p_itab1. " structure < itab1 #local# >
"Insert correct name for <...>.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    filename                      = w_fname1
   filetype                      = 'ASC'
   has_field_separator           = 'X'
   read_by_line                  = 'X'
   replacement                   = '#'
TABLES
    data_tab                      = p_itab1.
LOOP AT p_itab1.
    MOVE-CORRESPONDING p_itab1 TO str.
    APPEND str.
    CLEAR p_itab1.
ENDLOOP.
* WAIT UP TO 5 SECONDS.
ENDFORM.                    " TABLE_UPLOAD

Hi,
Check this sample code..how to use the BAPI_PO_CREATE1.
REPORT Z_TEST_PO   .
*DATA DECLARATION
CONSTANTS : C_X VALUE 'X'.
*Structures to hold PO header data
DATA : HEADER LIKE BAPIMEPOHEADER ,
HEADERX LIKE BAPIMEPOHEADERX .
*Structures to hold PO account data
DATA : ACCOUNT LIKE BAPIMEPOACCOUNT OCCURS 0 WITH HEADER LINE ,
ACCOUNTX LIKE BAPIMEPOACCOUNTX OCCURS 0 WITH HEADER LINE .
*Internal Tables to hold PO ITEM DATA
DATA : ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,
ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
*Internal table to hold messages from BAPI call
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
*Internal table to hold messages from BAPI call
POCONTRACTLIMITS LIKE BAPIESUCC OCCURS 0 WITH HEADER LINE.
DATA : W_HEADER(40) VALUE 'PO Header',
PURCHASEORDER LIKE BAPIMEPOHEADER-PO_NUMBER,
DELIVERY_DATE LIKE BAPIMEPOSCHEDULE-DELIVERY_DATE.
DATA : WS_LANGU LIKE SY-LANGU.
*text-001 = 'PO Header' - define as text element
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : COMPANY LIKE HEADER-COMP_CODE DEFAULT '122' ,
DOCTYP LIKE HEADER-DOC_TYPE DEFAULT 'NB' ,
CDATE LIKE HEADER-CREAT_DATE DEFAULT SY-DATUM ,
VENDOR LIKE HEADER-VENDOR DEFAULT '2000000012' ,
PUR_ORG LIKE HEADER-PURCH_ORG DEFAULT 'PU01' ,
PUR_GRP LIKE HEADER-PUR_GROUP DEFAULT '005' .
*sociedad like HEADER-COMP_CODE default '122' ,
*vendedor like HEADER-SALES_PERS default 'sale person'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS : ITEM_NUM LIKE ITEM-PO_ITEM DEFAULT '00010',
MATERIAL LIKE ITEM-MATERIAL DEFAULT '12000000' ,
TIPO_IMP LIKE ITEM-ACCTASSCAT DEFAULT 'K' ,
*pos_doc like ITEM-ITEM_CAT default 'F' ,
SHORTTXT LIKE ITEM-SHORT_TEXT DEFAULT 'PRUEBA BAPI' ,
GRUP_ART LIKE ITEM-MATL_GROUP DEFAULT '817230000' ,
PLANT LIKE ITEM-PLANT DEFAULT '3001' ,
MPE LIKE ITEM-TRACKINGNO DEFAULT '9999' ,
*contrato like ITEM-AGREEMENT default '4904000003' ,
*quantity like ITEM-QUANTITY default 1 .
PO_UNIT LIKE ITEM-PO_UNIT DEFAULT 'EA'.
SELECTION-SCREEN END OF BLOCK B2.
* Par?mnetros de imputaci?n
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-004.
PARAMETERS : CENTRO LIKE ACCOUNT-COSTCENTER DEFAULT '1220813150',
CUENTA LIKE ACCOUNT-GL_ACCOUNT DEFAULT '6631400' ,
NUM_POS LIKE ACCOUNT-PO_ITEM DEFAULT '10' ,
SERIAL LIKE ACCOUNT-SERIAL_NO DEFAULT '01' ,
IND_IMP LIKE ACCOUNT-TAX_CODE DEFAULT 'I2' .
SELECTION-SCREEN END OF BLOCK B3.
START-OF-SELECTION.
*DATA POPULATION
WS_LANGU = SY-LANGU. "Language variable
*POPULATE HEADER DATA FOR PO
*HEADER-COMP_CODE = sociedad .
HEADER-DOC_TYPE = DOCTYP .
HEADER-VENDOR = VENDOR .
HEADER-CREAT_DATE = CDATE .
HEADER-CREATED_BY = 'TD17191' .
HEADER-PURCH_ORG = PUR_ORG .
HEADER-PUR_GROUP = PUR_GRP .
HEADER-COMP_CODE = COMPANY .
HEADER-LANGU = WS_LANGU .
*HEADER-SALES_PERS = vendedor .
*HEADER-CURRENCY = 'DOP' .
*HEADER-ITEM_INTVL = 10 .
*HEADER-PMNTTRMS = 'N30' .
*HEADER-EXCH_RATE = 1 .
*POPULATE HEADER FLAG.
HEADERX-COMP_CODE = C_X.
HEADERX-DOC_TYPE = C_X.
HEADERX-VENDOR = C_X.
HEADERX-CREAT_DATE = C_X.
HEADERX-CREATED_BY = C_X.
HEADERX-PURCH_ORG = C_X.
HEADERX-PUR_GROUP = C_X.
HEADERX-LANGU = C_X.
*HEADERX-sales_pers = c_x.
*HEADERX-CURRENCY = c_x.
*HEADER-ITEM_INTVL = c_x.
*HEADER-PMNTTRMS = c_x.
*HEADER-EXCH_RATE = c_x.
*HEADER-EXCH_RATE = c_x.
*POPULATE ITEM DATA.
ITEM-PO_ITEM = ITEM_NUM.
ITEM-QUANTITY = '1'.
*ITEM-MATERIAL = material .
ITEM-SHORT_TEXT = 'prueba bapi_po_create1'.
*ITEM-TAX_CODE = ''.
ITEM-ACCTASSCAT = 'K' .
*ITEM-ITEM_CAT = 'D' .
ITEM-MATL_GROUP = '817230000' .
ITEM-PLANT = '3001' .
ITEM-TRACKINGNO = '99999'.
ITEM-PREQ_NAME = 'test'.
*ITEM-AGREEMENT = '' .
*ITEM-AGMT_ITEM = ''.
ITEM-QUANTITY = '1' .
ITEM-PO_UNIT = 'EA'.
*ITEM-ORDERPR_UN = 'EA'.
ITEM-CONV_NUM1 = '1'.
ITEM-CONV_DEN1 = '1'.
ITEM-NET_PRICE = '1000000' .
ITEM-PRICE_UNIT = '1'.
ITEM-GR_PR_TIME = '0'.
ITEM-PRNT_PRICE = 'X'.
ITEM-UNLIMITED_DLV = 'X'.
ITEM-GR_IND = 'X' .
ITEM-IR_IND = 'X' .
ITEM-GR_BASEDIV = 'X'.
*ITEM-PCKG_NO = '' .
APPEND ITEM. CLEAR ITEM.
*POPULATE ITEM FLAG TABLE
ITEMX-PO_ITEM = ITEM_NUM.
ITEMX-PO_ITEMX = C_X.
*ITEMX-MATERIAL = C_X.
ITEMX-SHORT_TEXT = C_X.
ITEMX-QUANTITY = C_X.
*ITEMX-TAX_CODE = C_X.
ITEMX-ACCTASSCAT = C_X.
*ITEMX-ITEM_CAT = c_x.
ITEMX-MATL_GROUP = C_X.
ITEMX-PLANT = C_X.
ITEMX-TRACKINGNO = C_X.
ITEMX-PREQ_NAME = C_X.
*ITEMX-AGREEMENT = C_X.
*ITEMX-AGMT_ITEM = c_x.
ITEMX-STGE_LOC = C_X.
ITEMX-QUANTITY = C_X.
ITEMX-PO_UNIT = C_X.
*ITEMX-ORDERPR_UN = C_X.
ITEMX-CONV_NUM1 = C_X.
ITEMX-CONV_DEN1 = C_X.
ITEMX-NET_PRICE = C_X.
ITEMX-PRICE_UNIT = C_X.
ITEMX-GR_PR_TIME = C_X.
ITEMX-PRNT_PRICE = C_X.
ITEMX-UNLIMITED_DLV = C_X.
ITEMX-GR_IND = C_X .
ITEMX-IR_IND = C_X .
ITEMX-GR_BASEDIV = C_X .
APPEND ITEMX. CLEAR ITEMX.
*POPULATE ACCOUNT DATA.
ACCOUNT-PO_ITEM = ITEM_NUM.
ACCOUNT-SERIAL_NO = SERIAL .
ACCOUNT-CREAT_DATE = SY-DATUM .
ACCOUNT-COSTCENTER = CENTRO .
ACCOUNT-GL_ACCOUNT = CUENTA .
ACCOUNT-GR_RCPT = 'tester'.
APPEND ACCOUNT. CLEAR ACCOUNT.
*POPULATE ACCOUNT FLAG TABLE.
ACCOUNTX-PO_ITEM = ITEM_NUM .
ACCOUNTX-PO_ITEMX = C_X .
ACCOUNTX-SERIAL_NO = SERIAL .
ACCOUNTX-SERIAL_NOX = C_X .
ACCOUNTX-CREAT_DATE = C_X .
ACCOUNTX-COSTCENTER = C_X .
ACCOUNTX-GL_ACCOUNT = C_X .
ACCOUNT-GR_RCPT = C_X.
APPEND ACCOUNTX. CLEAR ACCOUNTX.
*BAPI CALL
CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      POHEADER         = HEADER
      POHEADERX        = HEADERX
    IMPORTING
      EXPPURCHASEORDER = PURCHASEORDER
    TABLES
      RETURN           = RETURN
      POITEM           = ITEM
      POITEMX          = ITEMX
      POACCOUNT        = ACCOUNT
      POACCOUNTX       = ACCOUNTX.
*Confirm the document creation by calling database COMMIT
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
* IMPORTING
* RETURN =
END-OF-SELECTION.
*Output the messages returned from BAPI call
LOOP AT RETURN.
    WRITE / RETURN-MESSAGE.
ENDLOOP.
Regards
vijay

Bapi for createing purchase order

Hi,
when i'm creating PO by BAPI        BAPI_PO_CREATE1
given error message is comming
No instance of object type PurchaseOrder has been created. External reference:
PO header data still faulty
can any body help me out.
thanks
mukesh

Thanks for reply , pl. help me.
THIS IS MY HEADER PARAMETER
poheaderx-po_number = 'X'.
POHEADERx-PURCH_ORG = 'X' .
POHEADERx-PUR_GROUP = 'X'.
*POHEADER-CURRENCY =
*POHEADER-CURRENCY_ISO
*POHEADER-EXCH_RATE
POHEADERX-ITEM_INTVL = 'X'.
POHEADERx-DOC_DATE = 'X'.
POHEADERx-DOC_TYPE = 'X' .
POHEADERx-COMP_CODE = 'X'.
POHEADERx-CREAT_DATE = 'X'.
POHEADERx-VENDOR = 'X' .
POHEADERx-CREATED_BY = 'X' .
POHEADERx-PMNTTRMS = 'X'.
POHEADERx-INCOTERMS1 = 'X' .
POHEADERx-INCOTERMS2 = 'X' .
POHEADERX-LANGU = 'X'.
POHEADERX-EXCH_RATE = 'X'.
POHEADERX-STATUS = 'X'.
POHEADERX-SUPPL_VEND = 'X'.
poheaderx-delete_ind = 'X'.
poheaderx-our_ref   = 'X'.
poheaderx-currency_iso = 'X'.
poheaderx-dscnt1_to = 'X'.
poheaderx-dscnt2_to = 'X'.
poheaderx-dscnt3_to = 'X'.
poheaderx-dsct_pct1 = 'X'.
poheaderx-dsct_pct2 = 'X'.
poheaderx-LANGU_ISO = 'X'.
poheaderx-CURRENCY = 'X'.
poheaderx-EX_RATE_FX = 'X'.
poheaderx-VPER_START = 'X'.
poheaderx-VPER_END = 'X'.
poheaderx-WARRANTY = 'X'.
poheaderx-QUOTATION = 'X'.
poheaderx-QUOT_DATE = 'X'.
poheaderx-REF_1 = 'X'.
poheaderx-SALES_PERS = 'X'.
poheaderx-LOGSYSTEM = 'X'.
poheaderx-SUBITEMINT = 'X'.
poheaderx-PO_REL_IND = 'X'.
poheaderx-REL_STATUS = 'X'.
poheaderx-VAT_CNTRY = 'X'.
poheaderx-VAT_CNTRY_ISO = 'X'.
poheaderx-REASON_CANCEL = 'X'.
poheaderx-REASON_CODE = 'X'.
POHEADER-PURCH_ORG = 'DUPO' .
POHEADER-PUR_GROUP = 'D01'.
POHEADER-CURRENCY = 'AED'.
*POHEADER-CURRENCY_ISO
POHEADER-ITEM_INTVL = '00001'.
POHEADER-DOC_DATE = SY-DATUM.
POHEADER-DOC_TYPE = 'N10' .   "NB
POHEADER-COMP_CODE = 'BSGL'.
POHEADER-CREAT_DATE = SY-DATUM.
POHEADER-VENDOR = '0000351466' .
POHEADER-CREATED_BY = sy-uname.
POHEADER-PMNTTRMS = '0001'.
POHEADER-INCOTERMS1 = 'EXW' .
POHEADER-INCOTERMS2 = 'PLANT' .
POHEADER-LANGU = sy-langu.
POHEADER-EXCH_RATE = '1'.
POHEADER-STATUS = '9'.
POHEADERX-SUPPL_VEND = '0000351466'.
poheader-our_ref   = 'REF'.
ITEM LEVEL   PARAMETERS
POITEM-EMATERIAL = WMATNR .
POITEM-MATERIAL   = WMATNR .
POITEM-PLANT = 'DUBI' .
POITEM-QUANTITY = '1' .
POITEM-PO_UNIT = 'MTS' .
POITEM-NET_PRICE = '2500' .
POITEM-TAX_CODE = 'DT'.
POITEM-BATCH = '0001331951'.
POITEM-matl_group = '48200'.
POITEM-PO_ITEM = '0001' .
POITEM-stge_loc = 'DU01'.
POITEM-ITEM_CAT = '0'.
APPEND POITEM.
POITEMX-EMATERIAL = 'X'.
POITEMX-MATERIAL   = 'X' .
POITEMX-PLANT = 'X' .
POITEMX-QUANTITY = 'X' .
POITEMX-price_unit = 'X' .
POITEMX-NET_PRICE = 'X' .
POITEMX-TAX_CODE = 'X'.
POITEMX-BATCH = 'X'.
POITEMX-PO_ITEM = '0001' .
POITEMX-item_cat = 'X'.
POITEMX-ITEM_CAT = 'X' .
poitemx-matl_group = 'X' .
APPEND POITEMX.

HOW TO CREATE PURCHASE ORDER USING BAPI

HI FRIENDS,
I HAVE URGENT REQUIREMNT ,TO CREATE PURCHASE ORDER USING BAPI.PLS HELP ON THIS.
UR'S
RAVI

Hi
See the sample code and do accordingly
REPORT zpo_bapi_purchord_tej.
DATA DECLARATIONS *
TYPE-POOLS slis.
TYPES: BEGIN OF ty_table,
v_legacy(8),
vendor TYPE bapimepoheader-vendor,
purch_org TYPE bapimepoheader-purch_org,
pur_group TYPE bapimepoheader-pur_group,
material TYPE bapimepoitem-material,
quantity(13),
delivery_date TYPE bapimeposchedule-delivery_date,
net_price(23),
plant TYPE bapimepoitem-plant,
END OF ty_table.
TYPES: BEGIN OF ty_alv,
v_legs(8),
success(10),
v_legf(8),
END OF ty_alv.
TYPES: BEGIN OF ty_alv1,
v_legf1(8),
v_msg(500),
END OF ty_alv1.
*-----Work area declarations.
DATA: x_table TYPE ty_table,
x_header TYPE bapimepoheader,
x_headerx TYPE bapimepoheaderx,
x_item TYPE bapimepoitem,
x_itemx TYPE bapimepoitemx,
x_sched TYPE bapimeposchedule,
x_schedx TYPE bapimeposchedulx,
x_commatable(255),
x_alv TYPE ty_alv,
x_alv1 TYPE ty_alv1,
x_alv2 TYPE ty_alv1.
*-----Internal table declarations.
DATA: it_table TYPE TABLE OF ty_table,
it_commatable LIKE TABLE OF x_commatable,
it_item TYPE TABLE OF bapimepoitem,
it_itemx TYPE TABLE OF bapimepoitemx,
it_sched TYPE TABLE OF bapimeposchedule,
it_schedx TYPE TABLE OF bapimeposchedulx,
it_alv TYPE TABLE OF ty_alv,
it_alv1 TYPE TABLE OF ty_alv1,
it_alv2 TYPE TABLE OF ty_alv1.
DATA: po_number TYPE bapimepoheader-po_number,
x_return TYPE bapiret2,
it_return TYPE TABLE OF bapiret2,
v_file TYPE string,
v_temp(8),
v_succsount TYPE i VALUE 0,
v_failcount TYPE i VALUE 0,
v_total TYPE i.
DATA: v_temp1(5) TYPE n VALUE 0.
DATA: x_event TYPE slis_t_event,
x_fieldcat TYPE slis_t_fieldcat_alv,
x_list_header TYPE slis_t_listheader,
x_event1 LIKE LINE OF x_event,
x_layout1 TYPE slis_layout_alv,
x_variant1 TYPE disvariant,
x_repid2 LIKE sy-repid.
DATA : it_fieldcat TYPE TABLE OF slis_t_fieldcat_alv.
SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK v_b1 WITH FRAME.
*-----To fetch the flat file.
PARAMETERS: p_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK v_b1.
AT SELECTION-SCREEN *
AT SELECTION-SCREEN.
IF p_file IS INITIAL.
MESSAGE text-001 TYPE 'E'.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*-----To use F4 help to find file path.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
IMPORTING
file_name = p_file.
v_file = p_file.
START-OF-SELECTION *
START-OF-SELECTION.
PERFORM gui_upload.
LOOP AT it_table INTO x_table.
PERFORM header_details.
v_temp = x_table-v_legacy.
LOOP AT it_table INTO x_table WHERE v_legacy = v_temp.
PERFORM lineitem.
PERFORM schedule.
ENDLOOP.
DELETE it_table WHERE v_legacy = v_temp.
PERFORM bapicall.
MOVE po_number TO x_alv-success.
APPEND x_alv TO it_alv.
CLEAR x_alv.
*-----To clear the item details in internal table after the operation for a header.
REFRESH: it_item,
it_itemx,
it_sched,
it_schedx.
CLEAR: v_temp1.
ENDLOOP.
v_total = v_succsount + v_failcount.
PERFORM display_alv.
FORM GUI_UPLOAD *
FORM gui_upload .
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = v_file
filetype = 'ASC'
TABLES
data_tab = it_commatable
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17
IF sy-subrc = 0.
*-----To fetch the comma seperated flat file into an internal table.
LOOP AT it_commatable INTO x_commatable.
IF x_commatable IS NOT INITIAL.
SPLIT x_commatable AT ',' INTO
x_table-v_legacy
x_table-vendor
x_table-purch_org
x_table-pur_group
x_table-material
x_table-quantity
x_table-delivery_date
x_table-net_price
x_table-plant.
APPEND x_table TO it_table.
ENDIF.
CLEAR x_table.
ENDLOOP.
ENDIF.
ENDFORM. " gui_upload
FORM HEADER_DETAILS *
FORM header_details .
MOVE 'NB' TO x_header-doc_type.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = x_table-vendor
IMPORTING
output = x_table-vendor
MOVE x_table-vendor TO x_header-vendor.
MOVE x_table-purch_org TO x_header-purch_org.
MOVE x_table-pur_group TO x_header-pur_group.
x_headerx-doc_type = 'X'.
x_headerx-vendor = 'X'.
x_headerx-purch_org = 'X'.
x_headerx-pur_group = 'X'.
ENDFORM. " header_details
FORM LINEITEM *
FORM lineitem .
v_temp1 = v_temp1 + 10.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_temp1
IMPORTING
output = v_temp1.
MOVE v_temp1 TO x_item-po_item.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = x_table-material
IMPORTING
output = x_table-material.
MOVE x_table-material TO x_item-material.
MOVE x_table-quantity TO x_item-quantity.
MOVE x_table-net_price TO x_item-net_price.
MOVE x_table-plant TO x_item-plant.
x_itemx-po_item = v_temp1.
x_itemx-material = 'X'.
x_itemx-quantity = 'X'.
x_itemx-net_price = 'X'.
x_itemx-plant = 'X'.
APPEND x_item TO it_item.
APPEND x_itemx TO it_itemx.
CLEAR: x_item, x_itemx.
ENDFORM. " lineitem1
FORM SCHEDULE *
FORM schedule .
MOVE x_table-delivery_date TO x_sched-delivery_date.
MOVE v_temp1 TO x_sched-po_item.
x_schedx-delivery_date = 'X'.
x_schedx-po_item = v_temp1.
APPEND x_sched TO it_sched.
APPEND x_schedx TO it_schedx.
CLEAR: x_sched, x_schedx.
ENDFORM. " schedule
FORM BAPICALL *
FORM bapicall .
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = x_header
poheaderx = x_headerx
IMPORTING
exppurchaseorder = po_number
TABLES
return = it_return
poitem = it_item
poitemx = it_itemx
poschedule = it_sched
poschedulex = it_schedx.
IF po_number IS NOT INITIAL.
v_succsount = v_succsount + 1.
MOVE x_table-v_legacy TO x_alv-v_legs.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
v_failcount = v_failcount + 1.
MOVE x_table-v_legacy TO x_alv-v_legf.
MOVE x_table-v_legacy TO x_alv1-v_legf1.
LOOP AT it_return INTO x_return.
IF x_alv1-v_msg IS INITIAL.
MOVE x_return-message TO x_alv1-v_msg.
ELSE.
CONCATENATE x_alv1-v_msg x_return-message INTO x_alv1-v_msg SEPARATED BY space.
ENDIF.
ENDLOOP.
APPEND x_alv1 TO it_alv1.
CLEAR x_alv1.
ENDIF.
ENDFORM. " bapicall
FORM DISPLAY_ALV *
FORM display_alv .
PERFORM x_list_header.
PERFORM build_fieldcat CHANGING x_fieldcat.
x_repid2 = sy-repid.
x_event1-name = 'TOP_OF_PAGE'.
x_event1-form = 'TOP_OF_PAGE'.
APPEND x_event1 TO x_event.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = x_repid2
is_layout = x_layout1
it_fieldcat = x_fieldcat
i_callback_user_command = 'USER_COMMAND'
i_callback_top_of_page = 'TOP_OF_PAGE'
i_save = 'A'
is_variant = x_variant1
it_events = x_event
TABLES
t_outtab = it_alv
EXCEPTIONS
program_error = 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.
ENDFORM. " display_master_data
FORM USER_COMMAND *
FORM user_command USING ucomm LIKE sy-ucomm selfield
TYPE slis_selfield.
READ TABLE it_alv INTO x_alv INDEX selfield-tabindex.
CLEAR : x_alv2,it_alv2[].
LOOP AT it_alv1 INTO x_alv1 WHERE v_legf1 = x_alv-v_legf.
x_alv2 = x_alv1.
APPEND x_alv2 TO it_alv2 .
ENDLOOP.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv.
DATA : x3_fieldcat LIKE LINE OF it_fieldcat.
CLEAR : x3_fieldcat,it_fieldcat[].
CLEAR x3_fieldcat.
x3_fieldcat-col_pos = '1'.
x3_fieldcat-fieldname = 'V_LEGF1'.
x3_fieldcat-reptext_ddic = text-111.
x3_fieldcat-ref_tabname = 'IT_ALV2'.
APPEND x3_fieldcat TO it_fieldcat.
CLEAR x3_fieldcat.
CLEAR x3_fieldcat.
x3_fieldcat-col_pos = '1'.
x3_fieldcat-fieldname = 'V_MSG'.
x3_fieldcat-reptext_ddic = text-112.
x3_fieldcat-ref_tabname = 'IT_ALV2'.
APPEND x3_fieldcat TO it_fieldcat.
CLEAR x3_fieldcat.
x_layout1-colwidth_optimize = 'X'.
x_layout1-zebra = 'X'.
IF it_alv2[] IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = x_repid2
is_layout = x_layout1
it_fieldcat = it_fieldcat
i_save = 'A'
i_callback_top_of_page = 'TOP'
is_variant = x_variant1
it_events = x_event
TABLES
t_outtab = it_alv2
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDIF.
ENDFORM.
FORM USER_COMMAND *
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = 'Commentry'.
ENDFORM.
FORM BUILD_FIELDCAT *
FORM build_fieldcat CHANGING et_fieldcat TYPE slis_t_fieldcat_alv.
DATA: x1_fieldcat TYPE slis_fieldcat_alv.
CLEAR x1_fieldcat.
x1_fieldcat-col_pos = '1'.
x1_fieldcat-fieldname = 'V_LEGS'.
x1_fieldcat-reptext_ddic = text-108.
x1_fieldcat-ref_tabname = 'IT_ALV'.
APPEND x1_fieldcat TO et_fieldcat.
CLEAR x1_fieldcat.
x1_fieldcat-col_pos = '2'.
x1_fieldcat-fieldname = 'SUCCESS'.
x1_fieldcat-key = 'X'.
x1_fieldcat-reptext_ddic = text-109.
x1_fieldcat-ref_tabname = 'IT_ALV'.
APPEND x1_fieldcat TO et_fieldcat.
CLEAR x1_fieldcat.
x1_fieldcat-col_pos = '3'.
x1_fieldcat-fieldname = 'V_LEGF'.
x1_fieldcat-key = 'X'.
x1_fieldcat-reptext_ddic = text-110.
x1_fieldcat-ref_tabname = 'IT_ALV'.
APPEND x1_fieldcat TO et_fieldcat.
CLEAR x1_fieldcat.
ENDFORM. " build_fieldcat
FORM BUILD_LIST_HEADER *
FORM x_list_header.
DATA: x_list_header1 TYPE slis_listheader.
*-----List Header: type H
CLEAR x_list_header1 .
x_list_header1-typ = 'H'.
x_list_header1-info = text-105.
APPEND x_list_header1 TO x_list_header.
*-----List Key: type S
x_list_header1-typ = 'S'.
x_list_header1-key = text-106.
x_list_header1-info = v_total.
APPEND x_list_header1 TO x_list_header.
*-----List Key: Type S
CLEAR x_list_header1 .
x_list_header1-typ = 'S'.
x_list_header1-key = text-107.
x_list_header1-info = v_succsount.
APPEND x_list_header1 TO x_list_header.
ENDFORM. " build_list_header
FORM TOP_OF_PAGE *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = x_list_header.
ENDFORM. " TOP_OF_PAGE
Reward points if useful
Anji

How to create purchase order using VA01 for BAPI?

how to create purchase order using VA01 for BAPI?

Hi Arun,
Please check this link
Example Program for BAPI_PO_CREATE1
Re: BAPI_PO_CREATE1
Questions in BAPI_PO_CREATE1
Problem with BAPI_PO_CREATE1
*& Report BAPI_PO_CREATE *
REPORT bapi_po_create.
Input File Declaration
TYPES: BEGIN OF ty_input_file,
column1 TYPE char50,
column2 TYPE char50,
column3 TYPE char50,
column4 TYPE char50,
column5 TYPE char50,
column6 TYPE char50,
column7 TYPE char50,
column8 TYPE char50,
column9 TYPE char50,
column10 TYPE char50,
column11 TYPE char50,
column12 TYPE char50,
column13 TYPE char50,
column14 TYPE char50,
column15 TYPE char50,
column16 TYPE char50,
column17 TYPE char50,
column18 TYPE char50,
END OF ty_input_file.
DATA: i_input_file TYPE STANDARD TABLE OF ty_input_file,
wa_input_file TYPE ty_input_file.
CONSTANTS: c_path TYPE char20 VALUE 'C:\',
c_mask TYPE char9 VALUE ',.,..',
c_mode TYPE char1 VALUE 'O',
c_filetype TYPE char10 VALUE 'ASC',
c_x TYPE char01 VALUE 'X'.
PARAMETERS : p_fname LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
Browse Presentation Server
PERFORM f4_presentation_file.
START-OF-SELECTION..
Read presentation server file
PERFORM f1003_upload_file.
IF NOT i_input_file[] IS INITIAL.
PERFORM split_data.
ENDIF.
*& Form f4_presentation_file
*& F4 Help for presentation server
FORM f4_presentation_file .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_path = c_path
mask = c_mask
mode = c_mode
title = text-001
IMPORTING
filename = p_fname
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_presentation_file
*& Form f1003_upload_file
*& Upload File
FORM f1003_upload_file .
DATA: lcl_filename TYPE string.
lcl_filename = p_fname.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = lcl_filename
filetype = c_filetype
has_field_separator = c_x
TABLES
data_tab = i_input_file
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
ENDFORM. " f1003_upload_file
*& Form split_data
Collect data for creating Purchase Order
FORM split_data .
DATA: i_poitem TYPE STANDARD TABLE OF bapimepoitem,
i_poitemx TYPE STANDARD TABLE OF bapimepoitemx,
i_poitem_sch TYPE STANDARD TABLE OF bapimeposchedule,
i_poitem_schx TYPE STANDARD TABLE OF bapimeposchedulx,
i_acct_*** TYPE STANDARD TABLE OF bapimepoaccount,
i_acct_assx TYPE STANDARD TABLE OF bapimepoaccountx,
i_services TYPE STANDARD TABLE OF bapiesllc ,
i_srvacc TYPE STANDARD TABLE OF bapiesklc,
i_return TYPE STANDARD TABLE OF bapiret2,
wa_header TYPE bapimepoheader,
wa_headerx TYPE bapimepoheaderx,
wa_poitem TYPE bapimepoitem,
wa_poitemx TYPE bapimepoitemx,
wa_poitem_sch TYPE bapimeposchedule,
wa_poitem_schx TYPE bapimeposchedulx,
wa_acct_*** TYPE bapimepoaccount,
wa_acct_assx TYPE bapimepoaccountx,
wa_services TYPE bapiesllc,
wa_srvacc TYPE bapiesklc,
wa_return TYPE bapiret2,
ws_po TYPE bapimepoheader-po_number.
break gbpra8.
wa_services-pckg_no = 10.
wa_services-line_no = 1.
wa_services-outl_no = '0'.
wa_services-outl_ind = c_x.
wa_services-subpckg_no = 20.
APPEND wa_services TO i_services.
wa_srvacc-pckg_no = 10.
wa_srvacc-line_no = 1.
wa_srvacc-serno_line = 01.
wa_srvacc-serial_no = 01.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
LOOP AT i_input_file INTO wa_input_file.
IF wa_input_file-column2 EQ 'HD'.
wa_header-doc_type = wa_input_file-column3.
wa_header-creat_date = sy-datum.
wa_header-created_by = sy-uname.
wa_header-vendor = wa_input_file-column4.
PERFORM conversion_output USING wa_header-vendor
CHANGING wa_header-vendor.
wa_header-comp_code = 'DE03'.
wa_header-purch_org = 'DE03'.
wa_header-pur_group = 'DE1'.
wa_header-vper_start = wa_input_file-column9.
wa_header-vper_end = wa_input_file-column10.
wa_headerx-comp_code = c_x.
wa_headerx-doc_type = c_x.
wa_headerx-creat_date = c_x.
wa_headerx-created_by = c_x.
wa_headerx-vendor = c_x.
wa_headerx-purch_org = c_x.
wa_headerx-pur_group = c_x.
wa_headerx-vper_start = c_x.
wa_headerx-vper_end = c_x.
ENDIF.
IF wa_input_file-column2 EQ 'IT'.
wa_poitem-po_item = wa_input_file-column3.
wa_poitem-short_text = wa_input_file-column6.
wa_poitem-plant = wa_input_file-column8.
wa_poitem-quantity = '1'.
wa_poitem-tax_code = 'V0'.
wa_poitem-item_cat = 'D'.
wa_poitem-acctasscat = 'K'.
wa_poitem-matl_group = wa_input_file-column7.
wa_poitem-pckg_no = '10'.
APPEND wa_poitem TO i_poitem .
wa_poitemx-po_item = wa_input_file-column3.
wa_poitemx-po_itemx = c_x.
wa_poitemx-short_text = c_x.
wa_poitemx-plant = c_x.
wa_poitemx-quantity = c_x.
wa_poitemx-tax_code = c_x.
wa_poitemx-item_cat = c_x.
wa_poitemx-acctasscat = c_x.
wa_poitemx-matl_group = c_x.
wa_poitemx-pckg_no = c_x.
APPEND wa_poitemx TO i_poitemx.
wa_poitem_sch-po_item = wa_input_file-column3.
wa_poitem_sch-delivery_date = sy-datum.
APPEND wa_poitem_sch TO i_poitem_sch.
wa_poitem_schx-po_item = wa_input_file-column3.
wa_poitem_schx-po_itemx = c_x.
wa_poitem_schx-delivery_date = c_x.
APPEND wa_poitem_schx TO i_poitem_schx.
wa_acct_***-po_item = 10.
wa_acct_***-serial_no = 01.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_***-po_item = 10.
wa_acct_***-serial_no = 02.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_assx-po_item = 10.
wa_acct_assx-serial_no = 01.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_acct_assx-po_item = 10.
wa_acct_assx-serial_no = 02.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_services-pckg_no = 20.
wa_services-line_no = 2.
wa_services-service = wa_input_file-column9.
wa_services-quantity = '100'.
wa_services-gr_price = '100'.
wa_services-userf1_txt = wa_input_file-column13.
APPEND wa_services TO i_services.
wa_srvacc-pckg_no = 20.
wa_srvacc-line_no = 1.
wa_srvacc-serno_line = 02.
wa_srvacc-serial_no = 02.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
ENDIF.
ENDLOOP.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = wa_header
poheaderx = wa_headerx
POADDRVENDOR =
TESTRUN =
MEMORY_UNCOMPLETE =
MEMORY_COMPLETE =
POEXPIMPHEADER =
POEXPIMPHEADERX =
VERSIONS =
NO_MESSAGING =
NO_MESSAGE_REQ =
NO_AUTHORITY =
NO_PRICE_FROM_PO =
IMPORTING
exppurchaseorder = ws_po
EXPHEADER =
EXPPOEXPIMPHEADER =
TABLES
return = i_return
poitem = i_poitem
poitemx = i_poitemx
POADDRDELIVERY =
poschedule = i_poitem_sch
poschedulex = i_poitem_schx
poaccount = i_acct_***
POACCOUNTPROFITSEGMENT =
poaccountx = i_acct_assx
POCONDHEADER =
POCONDHEADERX =
POCOND =
POCONDX =
POLIMITS =
POCONTRACTLIMITS =
poservices = i_services
posrvaccessvalues = i_srvacc
POSERVICESTEXT =
EXTENSIONIN =
EXTENSIONOUT =
POEXPIMPITEM =
POEXPIMPITEMX =
POTEXTHEADER =
POTEXTITEM =
ALLVERSIONS =
POPARTNER =
break gbpra8.
LOOP AT i_return INTO wa_return.
ENDLOOP.
ENDFORM. " split_data
*& Form conversion_output
Conversion exit input
FORM conversion_output USING p_ip
CHANGING p_op.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = p_ip
IMPORTING
output = p_op.
ENDFORM. " conversion_output
Best regards,
raam

Inputs requried to create purchase order report from flat file

inputs requried to create purchase order report from flat file

At a guess, I'd say purchase order data.
If you don't give us a clue what you are actually trying to do we can't really help you too much.
Do you want to call a BAPI? Do a BDC? Use an IDOC? Or just generally muck up the system by doing inserts into the purchasing tables?
No doubt if you tell us, you'll get lots and lots of suggestions.
Gareth.

Can we create purchase order through report programming?

hi experts.....
can we create purchase order through report programming?If yes plz give me the thread details?

Hi,
Use this code in a program by using a BAPI function module
Anothe rway is using classical/ALV report using call transaction from a report for changing the PO
loop at i_header.
    header-ref_1         = i_header-legacy.
    headerx-ref_1        = c_x.
    header-doc_type      = i_header-bsart.
    headerx-doc_type     = c_x.
    header-comp_code     = i_header-bukrs.
    headerx-comp_code    = c_x.
    header-purch_org     = i_header-ekorg.
    headerx-purch_org    = c_x.
    header-pur_group     = i_header-ekgrp.
    headerx-pur_group    = c_x.
    header-vendor        = i_header-lifnr.
    headerx-vendor       = c_x.
    concatenate i_header-bedat+4(4)
                i_header-bedat+0(2)
                i_header-bedat+2(2)
                into header-doc_date.
    headerx-doc_date     = c_x.
    header-created_by    = i_header-ernam.
    headerx-created_by   = c_x.
    header-currency      = i_header-waers.
    headerx-currency     = c_x.
    concatenate i_header-kdatb+4(4)
                i_header-kdatb+0(2)
                i_header-kdatb+2(2)
                into header-vper_start.
    headerx-vper_start   = c_x.
    loop at i_items where legacy = i_header-legacy.
      item-po_item            = i_items-ebelp.
      itemx-po_item           = i_items-ebelp.
      itemx-po_itemx          = c_x.
      if i_header-bsart = 'NB'.
        item-material            = i_items-ematn.
        itemx-material           = c_x.
        schedule-quantity        = i_items-menge * 1000.
        schedulex-quantity       = c_x.
      else.
        item-short_text          = i_items-ematn.
        itemx-short_text         = c_x.
        item-matl_group          = '1000'.
        itemx-matl_group         = c_x.
        schedule-quantity        = '1'.
        schedulex-quantity       = c_x.
      endif.
      item-plant               = i_items-werks.
      itemx-plant              = c_x.
      schedule-po_item         = i_items-ebelp.
      schedule-sched_line      = '1'.
      schedulex-po_item        = i_items-ebelp.
      schedulex-sched_line     = '1'.
      schedulex-po_itemx       = c_x.
      schedulex-sched_linex    = c_x.
      concatenate i_items-eildt+0(2)
                   i_items-eildt+2(2)
                   i_items-eildt+4(4)
                   into schedule-delivery_date.
      schedulex-delivery_date = c_x.
      item-price_unit          = i_items-peinh * 100.
      itemx-price_unit         = c_x.
      item-tax_code            = i_items-mwskz.
      itemx-tax_code           = c_x.
      item-shipping            = i_items-evers.
      itemx-shipping           = c_x.
      account-po_item          = i_items-ebelp.
      accountx-po_item         = i_items-ebelp.
      accountx-po_itemx        = c_x.
      if i_header-bsart = 'FO'.
        item-pckg_no = sy-tabix.
        itemx-pckg_no = 'X'.
        limits-pckg_no        = sy-tabix.
        limits-limit          = i_items-overalllimit.
        limits-exp_value      = i_items-expectedoverall.
        posrvaccessvalues-pckg_no    = sy-tabix.
        posrvaccessvalues-line_no    = '0'.
        posrvaccessvalues-serno_line = '00'.
        posrvaccessvalues-percentage = '100.0'.
        posrvaccessvalues-serial_no = '01'.
        account-serial_no     = '1'.
        accountx-serial_no    = '1'.
        accountx-serial_nox   = c_x.
        account-quantity = '1'.
        accountx-quantity = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-kostl
          importing
            output = account-costcenter.
        accountx-costcenter   = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-sakto
          importing
            output = account-gl_account.
        accountx-gl_account   = c_x.
        item-acctasscat       = i_items-knttp.
        itemx-acctasscat      = c_x.
        item-item_cat         = i_items-epstp.
        itemx-item_cat        = c_x.
      endif.
      append:item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
      clear :item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
    endloop.
    call function 'BAPI_PO_CREATE1'
      exporting
        poheader                     = header
        poheaderx                    = headerx
*   POADDRVENDOR                 =
*   TESTRUN                      =
*   MEMORY_UNCOMPLETE            =
*   MEMORY_COMPLETE              =
*   POEXPIMPHEADER               =
*   POEXPIMPHEADERX              =
*   VERSIONS                     =
*   NO_MESSAGING                 =
*   NO_MESSAGE_REQ               =
*   NO_AUTHORITY                 =
*   NO_PRICE_FROM_PO             =
        importing
        exppurchaseorder             = ponumber
*   EXPHEADER                    =
*   EXPPOEXPIMPHEADER            =
        tables
        return                       = return
        poitem                       = item
        poitemx                      = itemx
*   POADDRDELIVERY               =
        poschedule                   = schedule
        poschedulex                  = schedulex
        poaccount                    = account
*   POACCOUNTPROFITSEGMENT       =
        poaccountx                   = accountx
*   POCONDHEADER                 =
*   POCONDHEADERX                =
*   POCOND                       =
*   POCONDX                      =
        polimits                     = limits
*   POCONTRACTLIMITS             =
*   POSERVICES                   =
   posrvaccessvalues            = posrvaccessvalues.
*   POSERVICESTEXT               =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   POEXPIMPITEM                 =
*   POEXPIMPITEMX                =
*   POTEXTHEADER                 =
*   POTEXTITEM                   =
*   ALLVERSIONS                  =
*   POPARTNER                    =
    if ponumber eq space.
      loop at return where type = 'E'.
        clear buffer.
        move-corresponding return to e_return.
        concatenate i_header-legacy e_return into buffer.
        transfer buffer to p2_file.
      endloop.
      move-corresponding i_header to i_eheader.
      transfer i_eheader to p3_file.
      loop at i_items where legacy = i_header-legacy.
        move-corresponding i_items to i_eitems.
        transfer i_eitems to p4_file.
      endloop.
    else.
      commit work and wait.
    endif.
    clear:ponumber,header,headerx,item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
    refresh:item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
endloop.
close dataset p2_file.
close dataset p3_file.
close dataset p4_file.
Regards
Krishna

Error while creating purchase order with account assignment category "A"

Dear All,
At the time of creating purchase order with account assignment category A - Asset its throwing error as " GL Account 123400 can not be used"
how to resolve this issue"
Edited by: Matt on Sep 16, 2010 10:09 AM - removed bold tags

HI,
Assign all assets GL to Asset Class
spro --> financial accounting new -->assets accounting --> assets accounting (lean Implementation) --> organization structures --> Assign GL
Hope Help U !
Regards,
Pardeep Malik

How to create purchase order and sales orders

Hi guys,
i want to create sales order in IDES and i need to create purchase order ECC.
depending on that i want to create the idoc for that and i want to send info through xi to the other sys.
will u plz any of u can help me in this query.
Thanks & Regard,
Kalyani..

Hi,
TCODE for purchase order- me22n
TCODE for sales order- va01
Regards,
S.RamNarender

Need     RFC/BAPI    to create Delivery Order with respect to Sales Order

Hi Gurus ,I'm   new to AB AP Language   to be working in company
so can anyone tel me   FM/BAPI   to create Delivery order with respect to sales order(va01,vl01n)
Any sugg.. will appreciate u.........
Thanks in Advance...........

Hi,
    Try this BAPI
BAPI_SALESORDER_CONFIRMDELVRY
Regards
Bala Krishna

FM/BAPI to create Transfer Order(TO) with reference to TR or Material Doc.

Hi,
I am in need of Function module or BAPI to Create Transfer Order(TO) with reference to Transfer Requirement(TR) or Material Document.

Hi,
Please try any of the below,
1.Look at function group L03B (Transfer order processing)
2.Use L_TO_CREATE_TR
3.BAPI_GOODSMVT_CREATE set:
GOODSMVT_ITEM-STGE_TYPE_PC = destination storage type or GOODSMVT_ITEM-STGE_TYPE_ST = destination storage type
4.Look at fm L_TB_VERAENDERN. This isn't RFC, but you might copy fm into ZL_TB_VERAENDERN and set RFC on.
Hope this helps.
Thanks,
Harini

How to trigger workflow for already created purchase order ?

HELLO EXPERTS
let me clear my scenario first . i have 1 purchase order whose workflow is not triggered . means it is showing me message no workflow that have already worked for this object.i have created 1 more purchase order taking reference of this purchase order means both are same same message for this po also. it was happening because event linkage for the business object bus2012 is not activated but now it is enabled and i have created third purchase order with reference to above po means this third po is also same as above 2 no change other than po number but for this workdflow is getting triggered . now i want to trigger workflow for orignal first po but for my first po it is showing me same message that no workflow that have already worked for this object. what i have to do to trigger workflow for this po. i have performed this steps in test system. i have workflow number

Hello !
      You can trigger the workflow from SWUE.Enter bus2012 and created for object type and event respectively.
      Click object key button where enter the purchase order number which have been already created.
      But, why do you want to trigger the workflow again for already created purchase order ?
Regards,
S.Suresh

[Request] Special user-exit we need during creating purchase order

Hi, Gurus!
We need to make specific User-Exit during creating Purchase order.
When user creates/change a PO document (ME21N/22N), SAP has to check the u2018CUSTOMERu2019 filed whether it is BLANK or NOT in Delivery Address tab at ITEM LEVEL.
If there is no value in that field, system will automatically input right value with useru2019s business logic.
Thatu2019s what we want to implement in the future.
If you have any solution or recommendation for this, Please help us.
I really appreciate your help in advance.
Best Rgds;
Ian

For checking user exit - SMOD, you need to activate this exit via CMOD
For Badi - SE18 to check & SE19 to implement
Take the help of your abaper, give him / her your logic.
Hope the above answers your query.
Regards,
Vivek

Not able to create purchase orders

Hi Experts,
I am not able to create purchase order , it is not allowing me to save , I I am giving purchase requisition number in Po and trying to crete po .When i give purchase requistion number all the revelant data is copied and when i click on item level tab of delivery address following error occurs : Address doesn't exist T001W 2000 00010. Then the entire PO is cancelled. not able to save going out of po screen
Please give me your valuable advice so that it can help me in resolving this issue
Please do the need ful
Regards
Ayub

Hi
We had to change the name text of he plant from ABCD COMPANY TO ABCD COMPANY PRIVATE LTD so , we had change and in both name 1:ABCD COMPANY PRIVATE LTD and NAme 2: ABCD COMPANY PRIVATE LTD
but in print out it the plant name appearing twice we decided to to erase name 1 that is we left blank and gave name 2:ABCD COMPANY PRIVATE LTD
But while creatimg Po from req ad the clicking item level adress tab eror pops up , and if i click on error tick mark it will take you out from Po screen
Regards
Ayub

Bapi to create purchase order

Similar Messages

Maybe you are looking for