BAPI for Clients

Hello...
I need a BAPI with functionality of registering and modifying clients on SAP R/3,
currently we have SAP XI in our organization but we are only installing Finance and Controlling.
Someone know about that?
Thank you
Alicia

Hi Rob and thanks for the answer but let me explain our need.
We have a proprietary commercial application, which is where we currently register and manager our clients, so we will like to continue using this commercial system for managing client records.
Also we will like to synchronize our clients from this commercial system to SAP R/3, so we think we may use a BAPI to send the clients (inserts and updates) to SAP
Thank you!

Similar Messages

Bapi for vendor payment with details of tunover and blocked payment

Dear all
I want to know whether any BAPI available for the details of vendor payment made and the open item with blocked payment (with the reason for the blocked payment) and the turnover of the vendor for a particular fiscal year...................
The client want to get the output as mentioned below.
e.g...
PO no : 45629810
Inv.No : 73409 (Vendor's Invoice no.)
Payment : Paid amt with date and details
Payment : Outstanding (Due and Over Due with no.of days)
Blocked Payment : Amt with the reason for blocking the payment.
Turn Over : Total turn over for that fiscal year.
This is an urgent req. from my client,i will be very grateful if any one can help me over this issue ..............
Appreciate for any relevant answers and suggestion ...........
I am in ECC 6.0
Regards
Praveen

Hello Raj,
Unfortunately there is no BAPI for payment detals and other company code data. The only possibility is via direct input (external data transfer).
Please have a look at the following Easy-Access-path:
SAP Menu
-> Accounting
-> Bank Applications
   -> Loans Management
    -> Environment
     -> External Data Transfer
Within this menu entry you find diverse functions. Please start the function KCLJ to transfer data. Before you can do this you need to
prepare the transfer by creating your own transfer structure and so on. You can get further information on what to do here by navigating to
"Help   > Application help" within transaction KCLJ. From here you get to the right area of SAP library.
Thanks Amber

Profit Center not getting uploaded through BAPI for MM01. Pls help

Hello all,
              I am getting an errror while uploading a file through BAPI for MM01 , The error says
Error:
Profit center 1000/sslcommon does not exist
for material: AC2
*& Report ZBAPI_DUMMY
REPORT ZBAPI_MM01.
*& Report ZBAPI2
TABLES
FLAGS *
DATA: F_STOP. " Flag used to stop processing
DATA DECLARATIONS *
DATA : V_EMPTY TYPE I, " No. of empty records
V_TOTAL TYPE I. " Total no. of records.
STRUCTURES & INTERNAL TABLES
*--- BAPI structures
DATA: BAPI_HEAD LIKE BAPIMATHEAD, " Header Segment with Control
BAPI_MAKT LIKE BAPI_MAKT, " Material Description
BAPI_MARA1 LIKE BAPI_MARA, " Client Data
BAPI_MARAX LIKE BAPI_MARAX, " Checkbox Structure for BAPI_MARA
BAPI_MARC1 LIKE BAPI_MARC, " Plant View
BAPI_MARCX LIKE BAPI_MARCX, " Checkbox Structure for BAPI_MARC
BAPI_MBEW1 LIKE BAPI_MBEW, " Accounting View
BAPI_MBEWX LIKE BAPI_MBEWX, " Checkbox Structure for BAPI_MBEW
BAPI_RETURN LIKE BAPIRET2, " Return Parameter
BAPI_MARDL LIKE BAPI_MARD,
BAPI_MARDX LIKE BAPI_MARDX.
*--- Internal table to hold excel file data
DATA: IT_INTERN TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
*--- Internal table to hold Matetrial descriptions
DATA: BEGIN OF IT_MAKT OCCURS 100.
        INCLUDE STRUCTURE BAPI_MAKT.
DATA: END OF IT_MAKT.
*--- Internal to hold the records in the text file
DATA : BEGIN OF IT_DATA OCCURS 100,
WERKS(4), " Plant
MTART(4), " Material type
MATNR(18), " Material number
MATKL(9) , " Material group
MBRSH(1), " Industry sector
MEINS(3), " Base unit of measure
SPART(2), " Division
EKGRP(3), " Purchasing group
PRCTR(10), " Profit Center
VPRSV(1), " Price control indicator
BKLAS(4), "Valuation Class
*stprs(12), " Standard price
PEINH(3), " Price unit
SPRAS(2), " Language key
MAKTX(40), " Material description
LGORT(4) , " storage location
DISMM(2) , "MRP TYPE
VERPR(23), " Moving Average Price
MTVFP(2) , " Availability Check
DISLS(2) , "Lot Size
DISPO(3) , "MRP Controller
BESKZ(1) , "Procurment Type
FHORI(3) , "SCHEDMARGIN KEY
PERKZ(1) , "Period Indicator
END OF IT_DATA.
SELECTION SCREEN. *
SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-111.
PARAMETER : P_FILE TYPE RLGRAP-FILENAME OBLIGATORY " Input File
PARAMETER : P_MAX(4) OBLIGATORY DEFAULT '100'. " no.of recs in a session
PARAMETERS: P_HEADER TYPE I DEFAULT 0. " Header Lines
PARAMETERS: P_BEGCOL TYPE I DEFAULT 1 NO-DISPLAY,
P_BEGROW TYPE I DEFAULT 2 NO-DISPLAY,
P_ENDCOL TYPE I DEFAULT 100 NO-DISPLAY,
P_ENDROW TYPE I DEFAULT 32000 NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK SCR1.
AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
*--- Validating file
PERFORM VALIDATE_FILE USING P_FILE.
START-OF-SELECTION
START-OF-SELECTION.
*--- Perform to convert the Excel data into an internal table
PERFORM CONVERT_XLS_ITAB.
IF NOT IT_DATA[] IS INITIAL.
*--- Perform to delete Header lines
    PERFORM DELETE_HEADER_EMPTY_RECS.
ENDIF.
END OF SELECTION. *
END-OF-SELECTION.
*--- Perform to upload Material Master data
PERFORM UPLOAD_MATMAS.
Form : validate_input_file
Description : To provide F4 help for file if read from PC
FORM VALIDATE_FILE USING F_FILE TYPE RLGRAP-FILENAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      FILE_NAME     = F_FILE
    EXCEPTIONS
      MASK_TOO_LONG = 1
      OTHERS        = 2.
IF SY-SUBRC <> 0.
    MESSAGE S010(ZLKPL_MSGCLASS). " 'Error in getting filename'.
ENDIF.
ENDFORM. " validate_input_file
*& Form CONVER_XLS_ITAB
text
FORM CONVERT_XLS_ITAB.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME    = P_FILE
      I_BEGIN_COL = P_BEGCOL
      I_BEGIN_ROW = P_BEGROW
      I_END_COL   = P_ENDCOL
      I_END_ROW   = P_ENDROW
    TABLES
      INTERN      = IT_INTERN.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*--- Perform to move the data into an internal data
PERFORM MOVE_DATA.
ENDFORM. " CONVERT_XLS_ITAB
*& Form MOVE_DATA
text
FORM MOVE_DATA.
DATA : LV_INDEX TYPE I.
FIELD-SYMBOLS <FS> .
*--- Sorting the internal table
SORT IT_INTERN BY ROW COL.
CLEAR IT_INTERN.
LOOP AT IT_INTERN.
    MOVE IT_INTERN-COL TO LV_INDEX.
*--- Assigning the each record to an internal table row
    ASSIGN COMPONENT LV_INDEX OF STRUCTURE IT_DATA TO <FS> .
*--- Asigning the field value to a field symbol
    MOVE IT_INTERN-VALUE TO <FS> .
    AT END OF ROW.
      APPEND IT_DATA.
      CLEAR IT_DATA.
    ENDAT.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form DELETE_HEADER_EMPTY_RECS
To delete the Header and empty records
FORM DELETE_HEADER_EMPTY_RECS.
DATA: LV_TABIX LIKE SY-TABIX.
IF NOT P_HEADER IS INITIAL.
    LOOP AT IT_DATA.
      IF P_HEADER > 0 AND NOT IT_DATA IS INITIAL.
        DELETE IT_DATA FROM 1 TO P_HEADER.
P_HEADER = 0.
        EXIT.
      ENDIF.
    ENDLOOP.
ENDIF.
CLEAR IT_DATA.
*--- To delete the empty lines from internal table
LOOP AT IT_DATA.
    LV_TABIX = SY-TABIX.
    IF IT_DATA IS INITIAL.
      V_EMPTY = V_EMPTY + 1.
      DELETE IT_DATA INDEX LV_TABIX..
    ENDIF.
ENDLOOP.
CLEAR IT_DATA.
*--- Total no of recs in file
DESCRIBE TABLE IT_DATA LINES V_TOTAL.
IF V_TOTAL = 0.
    MESSAGE I013(ZLKPL_MSGCLASS). " No records in the file
    F_STOP = 'X'.
    STOP.
ENDIF.
ENDFORM. " DELETE_HEADER_EMPTY_RECS
*& Form UPLOAD_MATMAS
to upload Material Master data
FORM UPLOAD_MATMAS .
LOOP AT IT_DATA.
Header
    BAPI_HEAD-MATERIAL = IT_DATA-MATNR.
    BAPI_HEAD-IND_SECTOR = IT_DATA-MBRSH.
    BAPI_HEAD-MATL_TYPE = IT_DATA-MTART.
    BAPI_HEAD-BASIC_VIEW = 'X'.
    BAPI_HEAD-PURCHASE_VIEW = 'X'.
    BAPI_HEAD-ACCOUNT_VIEW = 'X'.
    BAPI_HEAD-storage_view ='X'.
    bapi_head-mrp_view = 'X'.
    bapi_head-COST_view ='X'.
Material Description
    REFRESH IT_MAKT.
    IT_MAKT-LANGU = IT_DATA-SPRAS.
    IT_MAKT-MATL_DESC = IT_DATA-MAKTX.
    APPEND IT_MAKT.
Client Data - Basic
    BAPI_MARA1-MATL_GROUP = IT_DATA-MATKL.
    BAPI_MARA1-BASE_UOM = IT_DATA-MEINS.
   bapi_mara1-unit_of_wt = it_data-gewei.
    BAPI_MARA1-DIVISION = IT_DATA-SPART.
    BAPI_MARAX-MATL_GROUP = 'X'.
    BAPI_MARAX-BASE_UOM = 'X'.
    BAPI_MARAX-UNIT_OF_WT = 'X'.
    BAPI_MARAX-DIVISION = 'X'.
Plant - Purchasing
    BAPI_MARC1-PLANT = IT_DATA-WERKS.
    BAPI_MARC1-PUR_GROUP = IT_DATA-EKGRP.
    BAPI_MARC1-PROFIT_CTR = IT_DATA-PRCTR.
    BAPI_MARC1-MRP_TYPE = IT_DATA-DISMM.
    BAPI_MARC1-AVAILCHECK = IT_DATA-MTVFP.
    BAPI_MARC1-LOTSIZEKEY = IT_DATA-DISLS.
    BAPI_MARC1-MRP_CTRLER = IT_DATA-DISPO.
    BAPI_MARC1-PROC_TYPE = IT_DATA-BESKZ.
    BAPI_MARC1-SM_KEY = IT_DATA-FHORI.
    BAPI_MARC1-PERIOD_IND = IT_DATA-PERKZ.
    BAPI_MARCX-PLANT = IT_DATA-WERKS.
    BAPI_MARCX-PUR_GROUP = 'X'.
    BAPI_MARCX-AVAILCHECK = 'X'.
    BAPI_MARCX-PROFIT_CTR = 'X'.
    BAPI_MARCX-MRP_TYPE = 'X'.
    BAPI_MARCX-MRP_CTRLER = 'X'.
    BAPI_MARCX-SM_KEY = 'X'.
    BAPI_MARCX-LOTSIZEKEY = 'X'.
   Storage Location.
    BAPI_MARDL-PLANT     = IT_DATA-WERKS.
    BAPI_MARDL-STGE_LOC = IT_DATA-LGORT.
    BAPI_MARDX-PLANT    = IT_DATA-WERKS.
    BAPI_MARDX-STGE_LOC = IT_DATA-LGORT.
Accounting
    BAPI_MBEW1-VAL_AREA = IT_DATA-WERKS.
    BAPI_MBEW1-PRICE_CTRL = IT_DATA-VPRSV.
    BAPI_MBEW1-VAL_CLASS = IT_DATA-BKLAS.
    BAPI_MBEW1-MOVING_PR = IT_DATA-VERPR.
   bapi_mbew1-std_price = it_data-stprs.
    BAPI_MBEW1-PRICE_UNIT = IT_DATA-PEINH.
    BAPI_MBEWX-VAL_AREA = IT_DATA-WERKS.
    BAPI_MBEWX-PRICE_CTRL = 'X'.
    BAPI_MBEWX-STD_PRICE = 'X'.
    BAPI_MBEWX-PRICE_UNIT = 'X'.
    BAPI_MBEWX-MOVING_PR = 'X'.
*--- BAPI to create material
    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
    EXPORTING
    HEADDATA = BAPI_HEAD
    CLIENTDATA = BAPI_MARA1
    CLIENTDATAX = BAPI_MARAX
    PLANTDATA = BAPI_MARC1
    PLANTDATAX = BAPI_MARCX
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA = BAPI_MARDL
STORAGELOCATIONDATAX = BAPI_MARDX
VALUATIONDATA = BAPI_MBEW1
VALUATIONDATAX = BAPI_MBEWX
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA = BAPI_MVKE1
SALESDATAX = BAPI_MVKEX
STORAGETYPEDATA =
STORAGETYPEDATAX =
    IMPORTING
    RETURN = BAPI_RETURN
    TABLES
    MATERIALDESCRIPTION = IT_MAKT
UNITSOFMEASURE =
UNITSOFMEASUREX =
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =
RETURNMESSAGES =
PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =
    IF BAPI_RETURN-TYPE = 'E'.
      WRITE:/ 'Error:' ,BAPI_RETURN-MESSAGE ,'for material:' ,
IT_DATA-MATNR.
    ELSEIF BAPI_RETURN-TYPE = 'S'.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT          =
     IMPORTING
       RETURN        = BAPI_RETURN
      WRITE: 'Successfully created material' ,IT_DATA-MATNR.
    ENDIF.
   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT          =
    IMPORTING
      RETURN        = BAPI_RETURN
ENDLOOP.
ENDFORM. " UPLOAD_MATMAS

the Profit center 1000/sslcommon not created. first create the profit center and then upload your data.check tcode KE52 for created profit centers...

IDOC/BAPI for production order confirmations

Does anyone know IDOC or a BAPI for confirming a production order? CO11 is the normal transaction for confirmation.
I found one BAPI: BAPI_PRODORDCONF_CREATE_HDR
Is this the right one?
-Thanks
Bhaven

Hi Bhavan,
status can be find using function module <b>STATUS_TEXT_EDIT</b>.
Sample code:
CALL FUNCTION 'STATUS_TEXT_EDIT'
      EXPORTING
        client           = sy-mandt
        objnr            = >object number of order<
        only_active      = 'X'
        spras            = 'E'
      IMPORTING
        line             = hold_status
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
*Exception in case status is not found
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*Check Status of the Order
    IF hold_status CS 'CNF'.
    confined production orders.
    ENDIF.
Best regards
Suresh Babu Karanam

BAPI for ARTICLE creation in IS-Retail

I am creating an Article using BAPI_MATERIAL_MAINTAINDATA_RT by passing below parameters for Basic view.
1.material type
2.merchandise category
3.material category
4.description
5.uom
6.transportation grp
7.loading grp.
8.valuation class
9.tax class
Also marked X in respective places in structures clientdatax,plantdatax,headdatax etc.
Anyhow still it showing errors like "key field of table MARA missing"
I am able to create article from MM41 using above 9 fields.
What fields shd be passed to this BAPI to create an ARTICLE?
OR ANY OTHER BAPI/RFC FM EXIST TO CREATE ARTICLE?
Please help me in this regard.
Regards,
Kiran

Hi Bjorn,
I have to call BAPI for Article creation from Portal front end.
so I cant use BAPI_RETAILMATERIAL_CREATE as it goes to MM41 when we execute.
So I am using BAPI_MATERIAL_MAINTAINDATA_RT to create article.
I passed all mandatory data which is required to create a article with basic view.
Using MM41, I am able to create but with this BAPI iam unable to create article.
Could you please tell me what are the required parameters to be passed in addition to my fields which I specified below:
I passed
HEADDATA--material type,merch.category, material category,basic view marked x.
MATERIAL DESC--material description
CLIENT DATA--uom,transportation grp, tax class
CLIENTDATAX---marked X in above fields
PLANTDATA-loading grp
PLANTDATAX-marked x for above field
ADDL CLIENTDATA--valuation class
ADDLCLIENTDATAX--marked X for v class
Please help me in this regard.
Regards,
Kiran.

BAPI for Work Clearance Management

Hi All,
Our client wants to replace the 'BDCs with call transaction' with BAPIs. I am unable to find the proper BAPIs for the following transactions.
WCR4,
WCT7,
WCT8.
It would be a great help if someone provide any pointers regarding this.
Thanks and regards.
Baradakanta Swain.

Didn't get a solution and this requirement is now withdrawn. So closing this thread.
Regards
Barada

BAPI for Order BOM

Hi All,
Is there any BAPI for Order BOM
PLS can you help me
thanks
mars

Hi,
Check ds BAPI..
BAPI_MATERIAL_BOM_GROUP_CREATE Creation of a material BOM group
BAPI_MAT_BOM_EXISTENCE_CHECK   Check whether BOM for material exists
CSUL                           CRM Upload of BOM Data
BAPI_BOM_UPLOAD_SAVE           Main Module for BOM Update (Upload from CRM)
Code_
DATA: BEGIN OF i_bom OCCURS 0,
      matnr(18),
      werks(4),
      stlan(1),
      stlal(2),
      stktx(40),
      bmeng(16),
      menge(16),
      posnr(4),
      postp(1),
      meins(3),
      datuv(10),
      fmeng(1),
      idnrk(18),
      potx1(40),
      ausch(7),
      END OF i_bom.
Extracting Document and Doc type for POSTP = D.
DATA : BEGIN OF i_stpo OCCURS 1,
       doknr(25),
       dokar(3),
       posnr(4),
       stlnr LIKE mast-stlnr,
       END   OF i_stpo.
Local work area
DATA: g_my_rec_in   LIKE i_bom.
Declare internal table for Call Transaction and BDC Session
DATA: i_bdc_table LIKE bdcdata OCCURS 0 WITH HEADER LINE.
                     Global Variables                                *
DATA: g_counter(2) TYPE n,
      g_field_name(18) TYPE c,
      zc_yes TYPE syftype VALUE 'X'.
                     Selection Screen                                *
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETERS: p_fname1 TYPE localfile .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.
PARAMETERS: p_rloc1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-005.
PARAMETERS p_group(12) OBLIGATORY DEFAULT 'ZBOM'.
SELECTION-SCREEN END OF BLOCK c.
SELECTION-SCREEN END OF BLOCK b.
SELECTION-SCREEN END OF BLOCK a.
**WRITE the report header
TOP-OF-PAGE.
INCLUDE zheading.
                     Start of selection                              *
START-OF-SELECTION.
Load Input file
PERFORM f_load_input_file.
Create BDC records.
PERFORM create_bdc_records .
*&      Form Create_BDC_records
      text:* perform the BDC for the records in the internal table
--> p1        text
<-- p2        text
FORM create_bdc_records .
DATA: v_stlnr LIKE mast-stlnr.
DATA: v_postp(1) VALUE 'D'.
IF NOT i_bom[] IS INITIAL.
Open BDC session
    PERFORM open_bdc_session.
    SORT i_bom BY matnr werks posnr.
    SELECT SINGLE stlnr INTO v_stlnr
    FROM mast
    WHERE    matnr = i_bom-matnr
     AND     werks = i_bom-werks.
    SELECT doknr dokar posnr stlnr
                INTO TABLE i_stpo
                FROM stpo
                FOR ALL ENTRIES IN i_bom
                WHERE postp = v_postp
                AND   posnr = i_bom-posnr
                AND   stlnr = v_stlnr.
    SORT i_stpo BY posnr stlnr.
    LOOP AT i_bom.
      g_my_rec_in = i_bom.
      READ TABLE i_stpo WITH KEY posnr = i_bom-posnr
                                 stlnr = v_stlnr
                                 BINARY SEARCH.
      AT NEW matnr.
        CLEAR i_bdc_table[].
        PERFORM insert_screen_header.
      ENDAT.
Setting up counter for 20 line items
      IF g_counter = 20.
        g_counter = 1.
      ENDIF.
      PERFORM bdc_field USING 'BDC_OKCODE'
                                    '/00'.
*next screen
      PERFORM bdc_dynpro USING 'SAPLCSDI' '0140'.
      PERFORM bdc_field USING 'BDC_CURSOR' 'RC29P-FMENG(01)'.
      PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
      CONCATENATE 'RC29P-POSNR(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-posnr.
      CONCATENATE 'RC29P-IDNRK(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-idnrk.
      CONCATENATE 'RC29P-MENGE(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-menge.
      CONCATENATE 'RC29P-MEINS(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-meins.
      CONCATENATE 'RC29P-POSTP(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-postp.
      CONCATENATE 'RC29P-FMENG(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-fmeng.
*next screen
      PERFORM bdc_dynpro USING 'SAPLCSDI' '0130'.
      PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
Check the Item category to direct the screen flow accordingly.
      CASE i_bom-postp.
        WHEN 'B'.
          PERFORM item_text_insert.
        WHEN 'Z'.
          PERFORM item_text_insert.
        WHEN 'T'.
          PERFORM item_text_insert.
        WHEN 'N'.
          PERFORM bdc_field   USING 'BDC_CURSOR' 'RC29P-AUSCH'.
          PERFORM bdc_field   USING 'RC29P-AUSCH' i_bom-ausch.
next screen
          PERFORM item_text_insert.
*next screen
          PERFORM bdc_dynpro USING 'SAPLCSDI' '0133'.
          PERFORM bdc_field   USING 'BDC_OKCODE' '/00'.
          PERFORM bdc_field   USING 'RC29P-EKORG' ' '.
        WHEN 'D'.
          PERFORM bdc_field   USING 'RC29P-DOKNR' i_stpo-doknr.
          PERFORM bdc_field   USING 'RC29P-DOKAR' i_stpo-dokar.
next screen
          PERFORM item_text_insert.
When POSTP = X, L.
        WHEN OTHERS.
          PERFORM bdc_field   USING 'BDC_CURSOR' 'RC29P-AUSCH'.
          PERFORM bdc_field   USING 'RC29P-AUSCH' i_bom-ausch.
next screen
          PERFORM item_text_insert.
      ENDCASE.
      g_counter = g_counter + 1.
next screen
      PERFORM bdc_dynpro      USING 'SAPLCSDI' '0140'.
      PERFORM bdc_field       USING 'BDC_CURSOR' 'RC29P-POSNR(01)'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=FCBU'.
      AT END OF matnr.
        PERFORM insert_bdc_new.
      ENDAT.
    ENDLOOP.
    CLEAR i_bom[].
    PERFORM close_bdc_session.
Release the BDC sessions created
    PERFORM release_bdc.
ENDIF.
ENDFORM.                    " open_group
*&      Form bdc_dynpro_start
      Initialize the screen
     -->P_G_PROGRAM_1
     -->P_G_SCREEN
FORM bdc_dynpro USING    p_g_program_1
                                p_g_screen.
CLEAR i_bdc_table.
i_bdc_table-program = p_g_program_1.
i_bdc_table-dynpro   = p_g_screen.
i_bdc_table-dynbegin = 'X'.
APPEND i_bdc_table.
ENDFORM.                    " bdc_dynpro_start
*&      Form bdc_field
       Insert field                                                  *
FORM bdc_field USING f_name f_value.
CLEAR i_bdc_table.
i_bdc_table-fnam = f_name.
i_bdc_table-fval = f_value.
APPEND i_bdc_table.
ENDFORM.                    "bdc_insert_field
*&      Form open_bdc_session
     Open the BDC session
FORM open_bdc_session .
Open BDC session and creat and update condition records
CALL FUNCTION 'BDC_OPEN_GROUP'
    EXPORTING
      client                    = sy-mandt
      DEST                      = FILLER8
      group                     = p_group
      HOLDDATE                  = FILLER8
      keep                      = 'X'
      user                      = sy-uname
      RECORD                    = FILLER1
      PROG                      = SY-CPROG
    IMPORTING
      QID                       =
EXCEPTIONS
   client_invalid            = 1
   destination_invalid       = 2
   group_invalid             = 3
   group_is_locked           = 4
   holddate_invalid          = 5
   internal_error            = 6
   queue_error               = 7
   running                   = 8
   system_lock_error         = 9
   user_invalid              = 10
   OTHERS                    = 11
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.                    " create_bdc_session
*&      Form insert_screen_header
      Insert the Header data into the screens
FORM insert_screen_header .
g_counter = 1.
PERFORM bdc_dynpro USING 'SAPLCSDI' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29N-STLAL'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RC29N-MATNR' g_my_rec_in-matnr.
PERFORM bdc_field USING 'RC29N-WERKS' g_my_rec_in-werks.
PERFORM bdc_field USING 'RC29N-STLAN' g_my_rec_in-stlan.
PERFORM bdc_field USING 'RC29N-STLAL' g_my_rec_in-stlal.
PERFORM bdc_field USING 'RC29N-DATUV' g_my_rec_in-datuv.
next screen
PERFORM bdc_dynpro USING 'SAPLCSDI' '0110'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29K-BMENG'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RC29K-STKTX' g_my_rec_in-stktx.
PERFORM bdc_field USING 'RC29K-BMENG' g_my_rec_in-bmeng.
*next screen
PERFORM bdc_dynpro USING 'SAPLCSDI' '0111'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29K-LABOR'.
ENDFORM.                    " insert_screen_header
*&      Form insert_bdc
     Insert the BDC session
FORM insert_bdc_new .
CALL FUNCTION 'BDC_INSERT'
     EXPORTING
       tcode                  = 'CS01'
      POST_LOCAL             = NOVBLOCAL
      PRINTING               = NOPRINT
      SIMUBATCH              = ' '
      CTUPARAMS              = ' '
     TABLES
       dynprotab              = i_bdc_table
EXCEPTIONS
    internal_error         = 1
    not_open               = 2
    queue_error            = 3
    tcode_invalid          = 4
    printing_invalid       = 5
    posting_invalid        = 6
    OTHERS                 = 7
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CLEAR i_bdc_table[].
ENDFORM.                    " insert_bdc
*&      Form close_bdc_session
      Close the BDC session
FORM close_bdc_session .
CALL FUNCTION 'BDC_CLOSE_GROUP'
       EXCEPTIONS
            not_open    = 1
            queue_error = 2
            OTHERS      = 3.
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.                    " close_bdc_session
*&      Form f_load_input_file
     Load the file into the Internal table
FORM f_load_input_file.
IF p_rloc1 = zc_yes.
    CALL FUNCTION 'WS_UPLOAD'
         EXPORTING
              filename                = p_fname1
              filetype                = 'DAT'
         TABLES
              data_tab                = i_bom
         EXCEPTIONS
              conversion_error        = 1
              file_open_error         = 2
              file_read_error         = 3
              invalid_type            = 4
              no_batch                = 5
              unknown_error           = 6
              invalid_table_width     = 7
              gui_refuse_filetransfer = 8
              customer_error          = 9
              OTHERS                  = 10.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      STOP.
    ENDIF.
ENDIF.
ENDFORM.                    " f_load_input_file
*&      Form release_bdc
     Release BDC session
FORM release_bdc.
SUBMIT rsbdcsub WITH mappe EQ p_group
                  WITH von EQ sy-datum
                  WITH bis EQ sy-datum
                  WITH fehler EQ '.'
                  EXPORTING LIST TO MEMORY
                  AND RETURN.
ENDFORM.                    " release_bdc
*&      Form item_text_insert
      Repetitive code in the screen flow
FORM item_text_insert.
PERFORM bdc_dynpro USING 'SAPLCSDI' '0131'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29P-POTX1'.
PERFORM bdc_field USING 'RC29P-POTX1' i_bom-potx1.
ENDFORM.                    " item_text_insert
Reward If Helpfull
regards,
Mehul

BAPI for AFS BOM Creation through Cost Sheet

Hello Experts,
Is there any way to create the AFS BOM through BAPI.
Client requirement is to create the automatic AFS BOM through Cost Sheet (KKE1), I already developed custom Cost Sheet as per the requirement .
When we create the Cost Sheet Using KKE1 / ZKKE1, automatically AFS BOM should be create in the system with all grid values of component.
I'm not getting how should I create the AFS BOM using all the components in the Cost Sheet with Grid values.
There is no issue in creation of simple BOM using Bapi but for AFS BOM I'm facing problem.
Please suggest and also tell the possibility.
Thanks & Regards
Prajyot.D

Hi! Thanks for your help. I used CS_BI_BOM_CREATE_BATCH_INPUT1 and was able to create the BOMs successfully. My problem now is on the change. I tried using CS_BI_BOM_CHANGE_BATCH_INPUT but I kept running into various errors. I think it has something to do with the fields that I am populating in the structures and tables that are being passed to the BAPI. I tried researching for CS_BI_BOM_CHANGE_BATCH_INPUT but could not find any match. The function module documentation is not available as well. If you have used this FM in the past, will appreciate if you could share some inputs on how you were able to make this work. Thanks a lot!

BAPI for Characteristic Dependency

Hi Friends,
We need to maintain the Characteristics & their dependency in each client as it is Master data. As per my knowledge we can use to create them through Mass upload like LSMW, BDC or BAPI. Since the data is very huge, is there any way to do.
When I was checking u201CBAPI_CHARACT_CREATEu201D , I couldnu2019t find there is option for Dependency upload. Is there any other BAPI for this.
Regards,
Sai Krishna

Hi Sai,
For each characteristic you need to assign dependancy separately and also if a charactistic is having multiple values, there also you need to assign dependancies separately. This is standrad behaviour.
As on date there is no BAPI or any other method to assign single dependacy to multiple characteristics or values at a time.
but this can be achived without using dependancy editor. Write a z-program for additional data so that only those fields can be displayed which are required after one single field( single characteristic). It will be out of dependancy editor and separate program. for this you may use function module BAPI_DOCUMENT_GETDETAIL2.
Hope this will help.
Regards,
Ravindra

Hello BAPI For MM01

Hello All,
                 I am trying to develop a bapi for MM01.For which i have used a code as suggested by one of you.But the problem is when i am trying to upload my Excel sheet it is giving me a dump. I have designed my Excel sheet according to the sequence in my code. Is it necessary to maintain the sequence as in BDC?. Hers the code to have a clear idea.Please help me out as i am new to BAPI.
*& Report ZBAPI2
REPORT ZBAPI2.
TABLES
FLAGS *
DATA: f_stop. " Flag used to stop processing
DATA DECLARATIONS *
DATA : v_empty TYPE i, " No. of empty records
v_total TYPE i. " Total no. of records.
STRUCTURES & INTERNAL TABLES
*--- BAPI structures
DATA: bapi_head LIKE bapimathead, " Header Segment with Control
bapi_makt LIKE bapi_makt, " Material Description
bapi_mara1 LIKE bapi_mara, " Client Data
bapi_marax LIKE bapi_marax, " Checkbox Structure for BAPI_MARA
bapi_marc1 LIKE bapi_marc, " Plant View
bapi_marcx LIKE bapi_marcx, " Checkbox Structure for BAPI_MARC
bapi_mbew1 LIKE bapi_mbew, " Accounting View
bapi_mbewx LIKE bapi_mbewx, " Checkbox Structure for BAPI_MBEW
bapi_return LIKE bapiret2. " Return Parameter
*--- Internal table to hold excel file data
DATA: it_intern TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.
*--- Internal table to hold Matetrial descriptions
DATA: BEGIN OF it_makt OCCURS 100.
        INCLUDE STRUCTURE bapi_makt.
DATA: END OF it_makt.
*--- Internal to hold the records in the text file
DATA : BEGIN OF it_data OCCURS 100,
werks(4), " Plant
mtart(4), " Material type
matnr(18), " Material number
matkl(9) , " Material group
mbrsh(1), " Industry sector
meins(3), " Base unit of measure
gewei(3), " Weight Unit
spart(2), " Division
ekgrp(3), " Purchasing group
vprsv(1), " Price control indicator
*stprs(12), " Standard price
peinh(3), " Price unit
*spras(2), " Language key
maktx(40), " Material description
END OF it_data.
SELECTION SCREEN. *
SELECTION-SCREEN BEGIN OF BLOCK scr1 WITH FRAME TITLE text-111.
PARAMETER : p_file TYPE rlgrap-filename OBLIGATORY DEFAULT " Input File
'C:\Material_master.XLS'.
PARAMETER : p_max(4) OBLIGATORY DEFAULT '100'. " no.of recs in a session
PARAMETERS: p_header TYPE i DEFAULT 0. " Header Lines
PARAMETERS: p_begcol TYPE i DEFAULT 1 NO-DISPLAY,
p_begrow TYPE i DEFAULT 1 NO-DISPLAY,
p_endcol TYPE i DEFAULT 100 NO-DISPLAY,
p_endrow TYPE i DEFAULT 32000 NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK scr1.
AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*--- Validating file
PERFORM validate_file USING p_file.
START-OF-SELECTION
START-OF-SELECTION.
*--- Perform to convert the Excel data into an internal table
PERFORM convert_xls_itab.
IF NOT it_data[] IS INITIAL.
*--- Perform to delete Header lines
    PERFORM delete_header_empty_recs.
ENDIF.
END OF SELECTION. *
END-OF-SELECTION.
*--- Perform to upload Material Master data
PERFORM upload_matmas.
Form : validate_input_file
Description : To provide F4 help for file if read from PC
FORM validate_file USING f_file TYPE rlgrap-filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      file_name     = f_file
    EXCEPTIONS
      mask_too_long = 1
      OTHERS        = 2.
IF sy-subrc <> 0.
    MESSAGE s010(zlkpl_msgclass). " 'Error in getting filename'.
ENDIF.
ENDFORM. " validate_input_file
*& Form CONVER_XLS_ITAB
text
FORM convert_xls_itab.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename    = p_file
      i_begin_col = p_begcol
      i_begin_row = p_begrow
      i_end_col   = p_endcol
      i_end_row   = p_endrow
    TABLES
      intern      = it_intern.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*--- Perform to move the data into an internal data
PERFORM move_data.
ENDFORM. " CONVERT_XLS_ITAB
*& Form MOVE_DATA
text
FORM move_data.
DATA : lv_index TYPE i.
FIELD-SYMBOLS <fs> .
*--- Sorting the internal table
SORT it_intern BY row col.
CLEAR it_intern.
LOOP AT it_intern.
    MOVE it_intern-col TO lv_index.
*--- Assigning the each record to an internal table row
    ASSIGN COMPONENT lv_index OF STRUCTURE it_data TO <fs> .
*--- Asigning the field value to a field symbol
    MOVE it_intern-value TO <fs> .
    AT END OF row.
      APPEND it_data.
      CLEAR it_data.
    ENDAT.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form DELETE_HEADER_EMPTY_RECS
To delete the Header and empty records
FORM delete_header_empty_recs.
DATA: lv_tabix LIKE sy-tabix.
IF NOT p_header IS INITIAL.
    LOOP AT it_data.
      IF p_header > 0 AND NOT it_data IS INITIAL.
        DELETE it_data FROM 1 TO p_header.
P_HEADER = 0.
        EXIT.
      ENDIF.
    ENDLOOP.
ENDIF.
CLEAR it_data.
*--- To delete the empty lines from internal table
LOOP AT it_data.
    lv_tabix = sy-tabix.
    IF it_data IS INITIAL.
      v_empty = v_empty + 1.
      DELETE it_data INDEX lv_tabix..
    ENDIF.
ENDLOOP.
CLEAR it_data.
*--- Total no of recs in file
DESCRIBE TABLE it_data LINES v_total.
IF v_total = 0.
    MESSAGE i013(zlkpl_msgclass). " No records in the file
    f_stop = 'X'.
    STOP.
ENDIF.
ENDFORM. " DELETE_HEADER_EMPTY_RECS
*& Form UPLOAD_MATMAS
to upload Material Master data
FORM upload_matmas .
LOOP AT it_data.
Header
    bapi_head-material = it_data-matnr.
    bapi_head-ind_sector = it_data-mbrsh.
    bapi_head-matl_type = it_data-mtart.
    bapi_head-basic_view = 'X'.
    bapi_head-purchase_view = 'X'.
    bapi_head-account_view = 'X'.
Material Description
    REFRESH it_makt.
   it_makt-langu = it_data-spras.
    it_makt-matl_desc = it_data-maktx.
    APPEND it_makt.
Client Data - Basic
    bapi_mara1-matl_group = it_data-matkl.
    bapi_mara1-base_uom = it_data-meins.
    bapi_mara1-unit_of_wt = it_data-gewei.
    bapi_mara1-division = it_data-spart.
    bapi_marax-matl_group = 'X'.
    bapi_marax-base_uom = 'X'.
    bapi_marax-unit_of_wt = 'X'.
    bapi_marax-division = 'X'.
Plant - Purchasing
    bapi_marc1-plant = it_data-werks.
    bapi_marc1-pur_group = it_data-ekgrp.
    bapi_marcx-plant = it_data-werks.
    bapi_marcx-pur_group = 'X'.
Accounting
    bapi_mbew1-val_area = it_data-werks.
    bapi_mbew1-price_ctrl = it_data-vprsv.
   bapi_mbew1-std_price = it_data-stprs.
    bapi_mbew1-price_unit = it_data-peinh.
    bapi_mbewx-val_area = it_data-werks.
    bapi_mbewx-price_ctrl = 'X'.
    bapi_mbewx-std_price = 'X'.
    bapi_mbewx-price_unit = 'X'.
*--- BAPI to create material
    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
    EXPORTING
    headdata = bapi_head
    clientdata = bapi_mara1
    clientdatax = bapi_marax
    plantdata = bapi_marc1
    plantdatax = bapi_marcx
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =
STORAGELOCATIONDATA =
STORAGELOCATIONDATAX =
VALUATIONDATA = BAPI_MBEW1
VALUATIONDATAX = BAPI_MBEWX
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA = BAPI_MVKE1
SALESDATAX = BAPI_MVKEX
STORAGETYPEDATA =
STORAGETYPEDATAX =
    IMPORTING
    return = bapi_return
    TABLES
    materialdescription = it_makt
UNITSOFMEASURE =
UNITSOFMEASUREX =
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =
RETURNMESSAGES =
PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =
    IF bapi_return-type = 'E'.
      WRITE:/ 'Error:' ,bapi_return-message ,'for material:' ,
it_data-matnr.
    ELSEIF bapi_return-type = 'S'.
      WRITE: 'Successfully created material' ,it_data-matnr.
    ENDIF.
ENDLOOP.
ENDFORM. " UPLOAD_MATMAS

Hi bnupur14,
Please do place a debugger @ FM ALSM_EXCEL_TO_INTERNAL_TABLE and check p_file, make p_endcol is 12, p_endrow 65000, then check whether its going for dump or not.
I have executed your code there is no dump @ FM ALSM_EXCEL_TO_INTERNAL_TABLE or converting data into internal table.
But where You are getting Dump actually.
Regards,
Suneel G
Edited by: Suneel Kumar Gopisetty on Aug 19, 2009 11:02 AM

When converting over to HTTPS and PKI for clients, not all actions are available in configuration manager cpl

I'm not exactly sure which forum heading this should go under so if this isn't correct please let me know or move it on my behalf.
So I am trying to setup Internet Based Client Management in SCCM 2012 R2 and have come across a few articles on how to do so. I think I have mostly gotten it to work but I seem to be having a client issue when deploying new machines. My already
deployed servers seem to have picked up the PKI setting no problem. In the past when I would deploy a new windows client everything would be fine. When i converted over to PKI in my test environment I am now having issues when I go to deploy a
new windows client. I don't get all of the Actions listed in the Configuration Manager control panel. All I have are Discovery Data Collection, Machine Policy Retrieval and Eval, User Policy Retrieval and Eval, and Windows Installer Source list Update
Cycles, before all of them would populate no problem. I have let this machine sit here for several hours and nothing has changed yet. It does say PKI for client certificate. Sometimes when I would deploy new machines it would say NONE for
Client certificate. In my production environment it says self-signed. I have found if i uninstall the client and re-install the client it does populate all of the cycles but I don't understand why it is not working on deployment.
Ok so maybe not all the time that when i reinstall the client it fixes it. I just did an uninstall and reinstall on a test client and all it has under actions are machine and user policy cycles.
Does anyone have any ideas?

Hi,
I think SCCM client installed before the GPO applied, so you don't a certificate available when it is required.
You can export and import the certificate by using MDT integration, try this blog for PKI part:
How To: Build and Capture in Configuration Manager 2012 using HTTPS
And in addition, you can upload the log to your onedrive so you can share with us.
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact [email protected]

BAPI for Open production orders

Hi All,
Any BAPI for open production orders?.... Using BAPI i want to upload open production orders informatiomations.... Please help
Thanks & Regards
Santhosh

Hi,
Please check the following BAPI,
Goto BAPI tcode, select hierarchical tab
Production orders,ProductionOrder ,ProdOrdConfirmation , RCVPRORDCF and check the BAPIs

Bapi for open PO

Hi!
Can anyone let me know where to find the bapi for open po and how to use it in my report program.
Thanks in advance.
Note: Mr Anji Reddy vangala has answered me for which iam very much thankful to him, but i need to know about the concerned bapi.
Regards,
Parwez.

Hi,
Refer the sample code below which creats PO using BAPI_PO_CREATE1.
Hope this helps your querry.
*& Report YDM_PO_CREATE                                               *
REPORT ydm_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
<b>Reward points if this helps.
Manish</b>

BAPI for Open Sales Order

Experts,
I need a BAPI for list of Sales order against which the invoice has not been generated. I need to pass date and bapi shall return list of sales order that are not invoiced.
Thanks
Harsh

Hi Frederic
Sure it does.
Actually I want to send data from SAP to some .net application. I thought using BAPI would make the job easier.
Anyways thanks.
Regards
Harsh

PS: BAPI For Planned Progress and Actual Progress

Dear All,
Is there any BAPI available for Planned Progress and Actual Progress for PS Project.
Regards,
Sohail

Hi,
Try using this report s_alr_87013532.
Also for planned and actual progress the table is rpsqt. Could not find any bapi for the progress
Regards
Hiren K.Chitalia

BAPI for Clients

Similar Messages

Maybe you are looking for