BDC program for Purchase Info Records (ME11)

*&---------------------------------------------------------------------*

*&   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

评论

1 楼 elin_yi 2009-05-12  

你好,上面代码中的INCLUDE zheading.
可是ZHEADING的代码是什么呢?