*&---------------------------------------------------------------------**& REPORT ZMM0069 **&---------------------------------------------------------------------**& Module : MM |*& Application : The program loads the Purchasing Inforecords |*& |*----------------------------------------------------------------------**| Modification Log |*| ---------------- |*| Programmer Date CC# Chg.Ref Description of*| Change |*| ------------- ----------- ---- ----------- ----------------------|*| Rajesh Singh 23-AUG-2005 Initial*| development. |*----------------------------------------------------------------------* REPORT zmm0069 NO STANDARD PAGE HEADING MESSAGE-ID z0 LINE-SIZE 132 LINE-COUNT 65(2).*----------------------------------------------------------------------** Internal Tables **----------------------------------------------------------------------**Internal table for the purchasing info records fields. DATA: BEGIN OF i_inforecord OCCURS 0, matnr(18), lifnr(10), uom(3), ekgrp(3), planned_time(3), under_tol(3), over_tol(3), qty(10), price_cat(5), inco(3), designation(28), netpr(13), scale_qty1(10), scale_pr1(13), scale_qty2(10), scale_pr2(13), scale_qty3(13), scale_pr3(10), scale_qty4(13), scale_pr4(10), scale_qty5(13), scale_pr5(10), scale_qty6(13), scale_pr6(10), scale_qty7(13), scale_pr7(10), scale_qty8(13), scale_pr8(10), scale_qty9(13), scale_pr9(10), scale_qty10(13), scale_pr10(10), END OF i_inforecord.** Internal table for Old and New Vendor number DATA : BEGIN OF i_lfb1 OCCURS 1, lifnr(10), altkn(10), END OF i_lfb1.** 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-003. PARAMETERS p_group(12) OBLIGATORY DEFAULT 'ZPURCHINFO'. 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*&---------------------------------------------------------------------** Perform the BDC for the records in the internal table*----------------------------------------------------------------------* FORM create_bdc_records . IF NOT i_inforecord[] IS INITIAL.** Open BDC session PERFORM open_bdc_session. SELECT lifnr altkn FROM lfb1 INTO TABLE i_lfb1 FOR ALL ENTRIES IN i_inforecord WHERE altkn = i_inforecord-lifnr.* Sorting the Internal table for better performance SORT i_lfb1 BY altkn. LOOP AT i_inforecord.***Mapping Old Vendor number to the new Vendor number READ TABLE i_lfb1 WITH KEY altkn = i_inforecord-lifnr BINARY SEARCH. IF sy-subrc EQ 0. i_inforecord-lifnr = i_lfb1-lifnr. ENDIF. CLEAR i_bdc_table[]. PERFORM insert_screen_header.* call transaction 'ME11' using i_bdc_table* mode 'A'.* CLEAR i_bdc_table. ENDLOOP. CLEAR i_inforecord[]. PERFORM close_bdc_session.** Release the BDC sessions created PERFORM release_bdc. ENDIF. ENDFORM. " open_group*&---------------------------------------------------------------------**& Form bdc_dynpro_start*&---------------------------------------------------------------------** Start the screen for the transfer of fields*----------------------------------------------------------------------* FORM bdc_dynpro_start 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_start*&---------------------------------------------------------------------**& Form bdc_insert_field*&---------------------------------------------------------------------** Insert field **----------------------------------------------------------------------* FORM bdc_insert_field USING f_name f_value. IF f_value <> space. CLEAR i_bdc_table. i_bdc_table-fnam = f_name. i_bdc_table-fval = f_value. APPEND i_bdc_table. ENDIF. ENDFORM. "bdc_insert_field*&--------------------------------------------------------------------**& Form open_bdc_session*&--------------------------------------------------------------------** Open a BDC session*---------------------------------------------------------------------* FORM open_bdc_session .** Open BDC session and create and update 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*&---------------------------------------------------------------------** Screen flow for the transfer of fields*----------------------------------------------------------------------* FORM insert_screen_header .* First Screen 100 PERFORM bdc_dynpro_start USING 'SAPMM06I' '0100'. PERFORM bdc_insert_field USING:'BDC_CURSOR' 'EINA-LIFNR', 'BDC_OKCODE' '/00', 'EINA-LIFNR' i_inforecord-lifnr, 'EINA-MATNR' i_inforecord-matnr, 'EINE-EKORG' '1000', 'RM06I-NORMB' zc_yes.*****----------------------------------------********* Next Screen 101 PERFORM bdc_dynpro_start USING 'SAPMM06I' '0101'. PERFORM bdc_insert_field USING : 'BDC_CURSOR' 'EINA-MAHN1', 'BDC_OKCODE' '/00', 'EINA-MEINS' i_inforecord-uom.*****----------------------------------------*********Next Screen 102 PERFORM bdc_dynpro_start USING 'SAPMM06I' '0102'. PERFORM bdc_insert_field USING : 'BDC_CURSOR' 'EINE-INCO2', 'EINE-APLFZ' i_inforecord-planned_time, 'EINE-EKGRP' i_inforecord-ekgrp, 'EINE-NORBM' i_inforecord-qty. PERFORM bdc_insert USING 'EINE-UEBTK' ' '. PERFORM bdc_insert_field USING:'EINE-PEINH' i_inforecord-scale_qty1, 'EINE-BPRME' i_inforecord-uom, 'EINE-UNTTO' '5', 'EINE-UEBTO' '25', 'EINE-MEPRF' i_inforecord-price_cat, 'EINE-NETPR' i_inforecord-netpr, 'EINE-INCO1' i_inforecord-inco, 'EINE-INCO2' i_inforecord-designation.* Checking for Scale quantities IF i_inforecord-scale_qty2 = space. PERFORM bdc_insert_field USING 'BDC_OKCODE' '=BU'. PERFORM insert_bdc_new. ELSE. PERFORM bdc_insert_field USING 'BDC_OKCODE' '=KO'.*****----------------------------------------********* Next Screen 201 PERFORM bdc_dynpro_start USING 'SAPMV13A' '0201'. PERFORM bdc_insert_field USING : 'BDC_CURSOR' 'RV13A-DATAB', 'BDC_OKCODE' '=PSTF'.*****----------------------------------------********* Next Screen 201 PERFORM bdc_dynpro_start USING 'SAPMV13A' '0201'. PERFORM bdc_insert_field USING : 'BDC_CURSOR' 'KONP-KSCHL(01)', 'BDC_OKCODE' '=PSTF', 'RV130-SELKZ(01)' zc_yes.*****----------------------------------------********* LAST SCREEN 303 PERFORM bdc_dynpro_start USING 'SAPMV13A' '0303'. PERFORM bdc_insert_field USING : 'BDC_CURSOR' 'KONM-KBETR(03)', 'BDC_OKCODE' '=SICH'.* Counter to Loop the Item level entry g_counter = 0. PERFORM scale_entry USING i_inforecord-scale_qty2 i_inforecord-scale_pr2. PERFORM scale_entry USING i_inforecord-scale_qty3 i_inforecord-scale_pr3. PERFORM scale_entry USING i_inforecord-scale_qty4 i_inforecord-scale_pr4. PERFORM scale_entry USING i_inforecord-scale_qty5 i_inforecord-scale_pr5. PERFORM scale_entry USING i_inforecord-scale_qty6 i_inforecord-scale_pr6. PERFORM scale_entry USING i_inforecord-scale_qty7 i_inforecord-scale_pr7. PERFORM scale_entry USING i_inforecord-scale_qty8 i_inforecord-scale_pr8. PERFORM scale_entry USING i_inforecord-scale_qty9 i_inforecord-scale_pr9. PERFORM scale_entry USING i_inforecord-scale_qty10 i_inforecord-scale_pr10. PERFORM insert_bdc_new. ENDIF. ENDFORM. " insert_screen_header*&---------------------------------------------------------------------**& Form insert_bdc*&---------------------------------------------------------------------** Insert BDC*----------------------------------------------------------------------* FORM insert_bdc_new . CALL FUNCTION 'BDC_INSERT' EXPORTING tcode = 'ME11'* 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*&---------------------------------------------------------------------** Upload the file*----------------------------------------------------------------------* FORM f_load_input_file.* Check always Local file for upload IF p_rloc1 = zc_yes. CALL FUNCTION 'WS_UPLOAD' EXPORTING filename = p_fname1 filetype = 'DAT' TABLES data_tab = i_inforecord 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 the 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 scale_entry*&---------------------------------------------------------------------** Populate the Scale quantities*----------------------------------------------------------------------** -->P_SCALE_QTY* -->P_SCALE_PRICE*----------------------------------------------------------------------* FORM scale_entry USING p_scale_qty p_scale_price.* Increment the Counter g_counter = g_counter + 1. IF p_scale_qty <> space. CONCATENATE 'KONM-KSTBM(' g_counter ')' INTO g_field_name. PERFORM bdc_insert_field USING g_field_name p_scale_qty. CONCATENATE 'KONM-KBETR(' g_counter ')' INTO g_field_name. PERFORM bdc_insert_field USING g_field_name p_scale_price. ENDIF. ENDFORM.*&---------------------------------------------------------------------**& Form bdc_insert*&---------------------------------------------------------------------** To uncheck the Unlimited (UEBTK)*----------------------------------------------------------------------* FORM bdc_insert 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来源： http://www.sap-img.com/abap/bdc-program-for-purchase-info-records.htm
