• SAP BDC 技术的分类(转)

    首先, 解释BDC这三个英文的意思, 普遍都认同是(Batch Data Communication). 然后下面是一些相关的术语解释:

    Batch Input: 批输入, 用于大批量, 非实时性( 对速度要求比较低) 的数据传输 使用BDC_OPEN_GROUP, BDC_INSERT_GROUP, BDC_CLOSE_GROUP这几个function实现批输入会话的操作. 然后通过批输入会话将数据传输到SAP.

    Call Transaction:　调用事务, 与批输入的差异主要是在于数据传输过程不生成批输入会话, 数据在程序运行过程中直接通过调用CALL TRANSACTION USING BDC表传输至SAP.

    Direct Input:　直接输入, 其主要优点是速度最快, 不生成会话, 数据被直接输入至SAP. 不存在事务屏幕处理过程(批输入和调用事务中均包含该过程), 直接输入的效率较高, 系统负载较小. 使用TCODE BMV0.

    但是我们不该把BDC技术只局限于录屏幕, 批输入和调用事务上, 其实以下技术都可以实现BDC, 比如BAPI, IDOC.

    BAPI:　业务应用程序接口, SAP作为一个完善的系统, 每个应用中都有包含标准的数据传输接口.

    IDOC: 中间文档, ALE和EDI属于系统间数据传输的接口, IDOC中包含数据结构的定义和数据的处理逻辑, 是传输的介质.

    这个图参照了黄佳写的<<SAP业务数据传输指南>>.  下面我来详细举例一下其中几种技术.

    一, 调用事务, 主要使用该语句

    CALL TRANSACTION '事务代码' USING bdc表 MODE m UPDATE 'S' MESSAGES INTO mssg.

    bdc表是参考bdcdata结构定义的内表, 主要存储屏幕处理所需要的关键数据, 其结构如下:

    字段名 类型 长度 小数 描述
    PROGRAM CHAR 40 0 BDC module pool
    DYNPRO NUMC 4 0 BDC Screen number
    DYNBEGIN CHAR 1 0 BDC screen start
    FNAM CHAR 132 0 Field name
    FVAL CHAR 132 0 BDC field value

    MODE m 是指Processing Mode, 共有4种处理模式:

    模式 英文描述
    A Display all screens
    E Display errors
    N Background processing
    P Background processing; debugging possible

    UPDATE 'S'  是指更新模式, 共有3种更新模式,一般使用'S'模式:

    模式 描述
    A 异步
    S 同步
    L 本地

    MESSAGES INTO mssg 的意思是将处理信息导入到一个参考bdcmsgcoll结构的内表, 方便查错.

    下面是一个上传物料中文描述的简单例子:

    view plaincopy to clipboardprint?
    1. *&---------------------------------------------------------------------*  
    2. *& Report  ZBDC_TEST1  
    3. *& 调用事务  
    4. *&---------------------------------------------------------------------*  
    5. *&  Author: Jun  
    6. *&  
    7. *&---------------------------------------------------------------------*  
    8.   
    9. REPORT  zbdc_test1.  
    10.   
    11. ************************************************************************  
    12. * D A T A  
    13. ************************************************************************  
    14.   
    15. CONSTANTS: c_def_path LIKE rlgrap-filename VALUE 'c:\file.txt'.  
    16. DATA: BEGIN OF mssg OCCURS 0.  
    17.         INCLUDE STRUCTURE bdcmsgcoll.  
    18. DATA: END OF mssg.  
    19.   
    20.   
    21. DATA: BEGIN OF zitab_bdc OCCURS 0.  
    22.         INCLUDE STRUCTURE bdcdata.  
    23. DATA: END OF zitab_bdc.  
    24.   
    25. DATA: BEGIN OF t_main OCCURS 0,  
    26.       matnr(18),  
    27.       maktx(40),  
    28.       END OF t_main.  
    29.   
    30. DEFINE dynpro.  
    31.   
    32.   CLEAR zitab_bdc.  
    33.   IF &1 = 'X'.  
    34.   
    35.     MOVE: 'X' TO zitab_bdc-dynbegin,  
    36.                 &2  TO zitab_bdc-program,  
    37.                 &3 TO zitab_bdc-dynpro.  
    38.   
    39.   ELSE.  
    40.   
    41.     MOVE: &2 TO zitab_bdc-fnam,  
    42.                 &3 TO zitab_bdc-fval.  
    43.   
    44.   ENDIF.  
    45.   
    46.   APPEND zitab_bdc.  
    47.   
    48. END-OF-DEFINITION.  
    49.   
    50. SELECTION-SCREEN BEGIN OF BLOCK sc1 WITH FRAME TITLE text-s01.  
    51. PARAMETER: f_cap TYPE rlgrap-filename OBLIGATORY DEFAULT c_def_path.  
    52. PARAMETER: m TYPE ctu_mode DEFAULT 'N'.  
    53. SELECTION-SCREEN END OF BLOCK sc1.  
    54.   
    55.   
    56. ************************************************************************  
    57. * S T A R T O F S E L E C T I O N  
    58. ************************************************************************  
    59. START-OF-SELECTION.  
    60.   WRITE : / 'Start creation of BDC session',sy-mandt,sy-uname,sy-uzeit.  
    61.   PERFORM get_codepage.  
    62.   PERFORM call_upload TABLES t_main USING f_cap.  
    63.   PERFORM update_data.  
    64.   
    65.   WRITE: / 'Finished!'.  
    66.   
    67.   
    68. ************************************************************************  
    69. * F O R M S  
    70. ************************************************************************  
    71. *&---------------------------------------------------------------------*  
    72. *&  
    73. *&      Form  GET_CODEPAGE  
    74. *&---------------------------------------------------------------------*  
    75. FORM get_codepage.  
    76.   
    77.   DATA: cncoden TYPE abap_encod,  
    78.         cncode type  CPCODEPAGE.  
    79.   
    80.   CALL FUNCTION 'NLS_GET_FRONTEND_CP'  
    81.     EXPORTING  
    82.       langu                 = '1'  
    83.     IMPORTING  
    84.       frontend_codepage     = cncode  
    85.     EXCEPTIONS  
    86.       illegal_syst_codepage = 21  
    87.       no_frontend_cp_found  = 23  
    88.       internal_or_db_error  = 25.  
    89.   MOVE: cncode TO cncoden.  
    90. ENDFORM.  
    91.   
    92. *&---------------------------------------------------------------------*  
    93. *&  
    94. *&      Form  CALL_UPLOAD  
    95. *&---------------------------------------------------------------------*  
    96.   
    97. FORM call_upload TABLES p_tab USING p_fname.  
    98.   
    99.   DATA: tmp_filename TYPE string.  
    100.   
    101.   tmp_filename = p_fname.  
    102.   
    103.   
    104.     CALL METHOD cl_gui_frontend_services=>gui_download  
    105.       EXPORTING  
    106.         filename                = tmp_filename  
    107.         write_field_separator     = 'X'  
    108.         codepage                = cncoden  
    109.       CHANGING  
    110.         data_tab                = p_tab  
    111.       EXCEPTIONS  
    112.         file_write_error        = 1  
    113.         no_batch                = 2  
    114.         gui_refuse_filetransfer = 3  
    115.         invalid_type            = 4  
    116.         no_authority            = 5  
    117.         unknown_error           = 6  
    118.         header_not_allowed      = 7  
    119.         separator_not_allowed   = 8  
    120.         filesize_not_allowed    = 9  
    121.         header_too_long         = 10  
    122.         dp_error_create         = 11  
    123.         dp_error_send           = 12  
    124.         dp_error_write          = 13  
    125.         unknown_dp_error        = 14  
    126.         access_denied           = 15  
    127.         dp_out_of_memory        = 16  
    128.         disk_full               = 17  
    129.         dp_timeout              = 18  
    130.         file_not_found          = 19  
    131.         dataprovider_exception  = 20  
    132.         control_flush_error     = 21  
    133.         not_supported_by_gui    = 22  
    134.         error_no_gui            = 23  
    135.         OTHERS                  = 24.  
    136.   
    137. if sy-subrc <> 0.  
    138. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
    139. *            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    140. endif.  
    141.   
    142. ENDFORM.                    "call_upload  
    143. *&---------------------------------------------------------------------*  
    144. *&      Form  update_data  
    145. *&---------------------------------------------------------------------*  
    146. *       text  
    147. *----------------------------------------------------------------------*  
    148. FORM update_data.  
    149.   
    150.   REFRESH zitab_bdc.  
    151.   
    152.   LOOP AT t_main.  
    153.     PERFORM call_transaction.  
    154.   ENDLOOP.  
    155. ENDFORM.                    "update_data  
    156.   
    157. *&---------------------------------------------------------------------*  
    158. *&      Form  call_transaction  
    159. *&---------------------------------------------------------------------*  
    160. *       text  
    161. *----------------------------------------------------------------------*  
    162. FORM call_transaction.  
    163.   
    164. dynpro: 'X'   'SAPLMGMM'  '0060',  
    165.              ' '   'RMMG1-MATNR'   t_main-matnr,  
    166.              ' '   'BDC_OKCODE'    '/00'.  
    167.   
    168. dynpro: 'X'   'SAPLMGMM'   '0070',  
    169.              ' '   'MSICHTAUSW-KZSEL(01)'  'X',  
    170.              ' '   'BDC_OKCODE'  '=ENTR'.  
    171.   
    172. dynpro: 'X'   'SAPLMGMM'    '4004',  
    173.              ' '   'BDC_OKCODE'  '=ZU01'.  
    174.   
    175. dynpro:  'X'   'SAPLMGMM'    '4300',  
    176.               ' '   'SKTEXT-SPRAS(02)'  'ZH',  
    177.               ' '   'SKTEXT-MAKTX(02)'  t_main-maktx,  
    178.               ' '   'BDC_OKCODE'    '=BU'.  
    179.   
    180.   
    181.   CALL TRANSACTION 'MM02' USING zitab_bdc MODE m UPDATE 'S' MESSAGES INTO mssg.  
    182.   
    183.   IF sy-subrc NE 0.  
    184.     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno  
    185.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  
    186.   ENDIF.  
    187.   REFRESH: zitab_bdc,mssg.  
    188.   
    189. ENDFORM.                    " CALL_TRANSACTION  

    二, 批输入, 主要使用BDC_OPEN_GROUP, BDC_INSERT_GROUP, BDC_CLOSE_GROUP这几个function实现批输入会话的操作. 然后通过批输入会话将数据传输到SAP.

    以下是Batch Input的例子, 是把前面的程序改了一下完成的, 注意红色的地方就是不同处:

    view plaincopy to clipboardprint?
    1. *&---------------------------------------------------------------------*  
    2. *& Report  ZBDC_TEST2  
    3. *&  批输入  
    4. *&---------------------------------------------------------------------*  
    5. *&  Author: Jun  
    6. *&  
    7. *&---------------------------------------------------------------------*  
    8.   
    9. REPORT  zbdc_test2.  
    10.   
    11. ************************************************************************  
    12. * D A T A  
    13. ************************************************************************  
    14.   
    15. CONSTANTS: c_def_path LIKE rlgrap-filename VALUE 'c:\file.txt'.  
    16.   
    17. DATA: BEGIN OF zitab_bdc OCCURS 0.  
    18.         INCLUDE STRUCTURE bdcdata.  
    19. DATA: END OF zitab_bdc.  
    20.   
    21. DATA: BEGIN OF t_main OCCURS 0,  
    22.       matnr(18),  
    23.       maktx(40),  
    24.       END OF t_main.  
    25.   
    26. DEFINE dynpro.  
    27.   
    28.   CLEAR zitab_bdc.  
    29.   IF &1 = 'X'.  
    30.   
    31.     MOVE: 'X' TO zitab_bdc-dynbegin,  
    32.         &2  TO zitab_bdc-program,  
    33.         &3 TO zitab_bdc-dynpro.  
    34.   
    35.   ELSE.  
    36.   
    37.     MOVE: &2 TO zitab_bdc-fnam,  
    38.  &3 TO zitab_bdc-fval.  
    39.   
    40.   ENDIF.  
    41.   
    42.   APPEND zitab_bdc.  
    43.   
    44. END-OF-DEFINITION.  
    45.   
    46. SELECTION-SCREEN BEGIN OF BLOCK sc1 WITH FRAME TITLE text-s01.  
    47. PARAMETER: f_cap TYPE rlgrap-filename OBLIGATORY DEFAULT c_def_path.  
    48. SELECTION-SCREEN END OF BLOCK sc1.  
    49.   
    50.   
    51. ************************************************************************  
    52. * S T A R T O F S E L E C T I O N  
    53. ************************************************************************  
    54. START-OF-SELECTION.  
    55.   WRITE : / 'Start creation of BDC session',sy-mandt,sy-uname,sy-uzeit.  
    56.   PERFORM get_codepage.  
    57.   PERFORM call_upload TABLES t_main USING f_cap.  
    58.   PERFORM update_data.  
    59.   
    60.   WRITE: / 'Finished!'.  
    61.   
    62.   
    63. ************************************************************************  
    64. * F O R M S  
    65. ************************************************************************  
    66. *&---------------------------------------------------------------------*  
    67. *&  
    68. *&      Form  GET_CODEPAGE  
    69. *&---------------------------------------------------------------------*  
    70. FORM get_codepage.  
    71.   
    72.   DATA: cncoden TYPE abap_encod,  
    73.         cncode type  CPCODEPAGE.  
    74.   
    75.   CALL FUNCTION 'NLS_GET_FRONTEND_CP'  
    76.     EXPORTING  
    77.       langu                 = '1'  
    78.     IMPORTING  
    79.       frontend_codepage     = cncode  
    80.     EXCEPTIONS  
    81.       illegal_syst_codepage = 21  
    82.       no_frontend_cp_found  = 23  
    83.       internal_or_db_error  = 25.  
    84.   MOVE: cncode TO cncoden.  
    85. ENDFORM.  
    86.   
    87. *&---------------------------------------------------------------------*  
    88. *&  
    89. *&      Form  CALL_UPLOAD  
    90. *&---------------------------------------------------------------------*  
    91.   
    92. FORM call_upload TABLES p_tab USING p_fname.  
    93.   
    94.   DATA: tmp_filename TYPE string.  
    95.   
    96.   tmp_filename = p_fname.  
    97.   
    98.   
    99.     CALL METHOD cl_gui_frontend_services=>gui_download  
    100.       EXPORTING  
    101.         filename                = tmp_filename  
    102.  write_field_separator     = 'X'  
    103.         codepage                = cncoden  
    104.       CHANGING  
    105.         data_tab                = p_tab  
    106.       EXCEPTIONS  
    107.         file_write_error        = 1  
    108.         no_batch                = 2  
    109.         gui_refuse_filetransfer = 3  
    110.         invalid_type            = 4  
    111.         no_authority            = 5  
    112.         unknown_error           = 6  
    113.         header_not_allowed      = 7  
    114.         separator_not_allowed   = 8  
    115.         filesize_not_allowed    = 9  
    116.         header_too_long         = 10  
    117.         dp_error_create         = 11  
    118.         dp_error_send           = 12  
    119.         dp_error_write          = 13  
    120.         unknown_dp_error        = 14  
    121.         access_denied           = 15  
    122.         dp_out_of_memory        = 16  
    123.         disk_full               = 17  
    124.         dp_timeout              = 18  
    125.         file_not_found          = 19  
    126.         dataprovider_exception  = 20  
    127.         control_flush_error     = 21  
    128.         not_supported_by_gui    = 22  
    129.         error_no_gui            = 23  
    130.         OTHERS                  = 24.  
    131.   
    132. if sy-subrc <> 0.  
    133. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
    134. *            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    135. endif.  
    136.   
    137. ENDFORM.                    "call_upload  
    138. *&---------------------------------------------------------------------*  
    139. *&      Form  update_data  
    140. *&---------------------------------------------------------------------*  
    141. *       text  
    142. *----------------------------------------------------------------------*  
    143. FORM update_data.  
    144.   
    145. <font color="#ff0000">    CALL FUNCTION 'BDC_OPEN_GROUP'  
    146.       EXPORTING  
    147.         CLIENT              = SY-MANDT  
    148.         GROUP               = P_S_NAME  
    149.         KEEP                = 'X'  
    150.         USER                = SY-UNAME  
    151.       EXCEPTIONS  
    152.         CLIENT_INVALID      = 1  
    153.         DESTINATION_INVALID = 2  
    154.         GROUP_INVALID       = 3  
    155.         GROUP_IS_LOCKED     = 4  
    156.         HOLDDATE_INVALID    = 5  
    157.         INTERNAL_ERROR      = 6  
    158.         QUEUE_ERROR         = 7  
    159.         RUNNING             = 8  
    160.         SYSTEM_LOCK_ERROR   = 9  
    161.         USER_INVALID        = 10  
    162.         OTHERS              = 11.</font>  
    view plaincopy to clipboardprint?
    1. <font color="#ff0000">    IF SY-SUBRC <> 0.  
    2.       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
    3.               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    4.     ENDIF.  
    5. </font>  
    6.   
    7.   REFRESH zitab_bdc.  
    8.   
    9.   LOOP AT t_main.  
    10.     PERFORM  batch_input.  
    11.   
    12.   ENDLOOP.  
    13.   
    14. <font color="#ff0000">    CALL FUNCTION 'BDC_CLOSE_GROUP'  
    15.     EXCEPTIONS  
    16.       NOT_OPEN    = 1  
    17.       QUEUE_ERROR = 2  
    18.       OTHERS      = 3.  
    19.   
    20.     IF SY-SUBRC <> 0.  
    21.       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
    22.               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    23.     ENDIF.  
    24. </font>  
    25. ENDFORM.                    "update_data  
    26.   
    27. *&---------------------------------------------------------------------*  
    28. *&      Form  batch_input  
    29.   
    30. *&---------------------------------------------------------------------*  
    31. *       text  
    32. *----------------------------------------------------------------------*  
    33. FORM batch_input.  
    34.   
    35. dynpro:  
    36.   'X'   'SAPLMGMM'  '0060',  
    37.   ' '   'RMMG1-MATNR'   t_main-matnr,  
    38.   ' '   'BDC_OKCODE'    '/00'.  
    39.   
    40.   dynpro:  
    41.   'X'   'SAPLMGMM'   '0070',  
    42.   ' '   'MSICHTAUSW-KZSEL(01)'  'X',  
    43.   ' '   'BDC_OKCODE'  '=ENTR'.  
    44.   
    45. dynpro:  
    46.   'X'   'SAPLMGMM'    '4004',  
    47.   ' '   'BDC_OKCODE'  '=ZU01'.  
    48.   
    49. dynpro:  
    50.   'X'   'SAPLMGMM'    '4300',  
    51.   ' '   'SKTEXT-SPRAS(02)'  'ZH',  
    52.   ' '   'SKTEXT-MAKTX(02)'  t_main-maktx,  
    53.   ' '   'BDC_OKCODE'    '=BU'.  
    54.   
    55. <font color="#ff0000">    CALL FUNCTION 'BDC_INSERT'  
    56.       EXPORTING  
    57.         TCODE            = 'MM02'  
    58.       TABLES  
    59.         DYNPROTAB        = zitab_bdc  
    60.       EXCEPTIONS  
    61.         INTERNAL_ERROR   = 1  
    62.         NOT_OPEN         = 2  
    63.         QUEUE_ERROR      = 3  
    64.         TCODE_INVALID    = 4  
    65.         PRINTING_INVALID = 5  
    66.         POSTING_INVALID  = 6  
    67.         OTHERS           = 7.  
    68.   
    69.   
    70.       IF SY-SUBRC <> 0.  
    71.         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
    72.                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
    73.       ENDIF.</font>  
    74.   
    75.   REFRESH: zitab_bdc.  
    76.   
    77. ENDFORM.     
    三, BAPI是SAP标准的API, 在多系统的环境下,我们可以通过ALE/EDI技术使用RFC和BAPI实现数据传输工作. 但是也可以自己编写程序实现本地执行传输工作. 下面是一个使用BAPI传输PO的例子:
    view plaincopy to clipboardprint?
    1. <pre class="csharp" name="code">*&---------------------------------------------------------------------*  
    2. *& Report  ZCON0026  
    3. *&  
    4. *&---------------------------------------------------------------------*  
    5. *&  Author: Jun  
    6. *&  
    7. *&---------------------------------------------------------------------*  
    8.   
    9. REPORT  ZCON0026.  
    10.   
    11. FIELD-SYMBOLS : <fs></fs>.  
    12. <font color="#ff0000">DATA:wa_pohead  TYPE bapimepoheader.  
    13. DATA:wa_poheadx TYPE bapimepoheaderx.  
    14. DATA:wa_poaddrvendor TYPE bapimepoaddrvendor.  
    15. DATA:wa_testrun TYPE bapiflag-bapiflag.</font>  
    16. DATA:g_ebeln TYPE ekko-ebeln.   "Purchasing Document Header  
    17. DATA:g_mtart TYPE mtart.  
    18.   
    19. <font color="#ff0000">DATA:it_return    TYPE bapiret2       OCCURS 0 WITH HEADER LINE.  
    20. DATA:it_msg       TYPE bapiret2       OCCURS 0 WITH HEADER LINE.</font>  
    21. DATA:BEGIN OF it_msg1 OCCURS 0,  
    22.           ebeln LIKE ekpo-ebeln,  
    23.           type like bapiret2-type,  
    24.           message LIKE bapiret2-message,  
    25.           old_po like ekpo-ebeln,  
    26.      END  OF it_msg1.  
    27. <font color="#ff0000">DATA:it_poitem    TYPE bapimepoitem   OCCURS 0 WITH HEADER LINE.  
    28. DATA:it_poitemx   TYPE bapimepoitemx  OCCURS 0 WITH HEADER LINE.  
    29. DATA:it_pocondh   TYPE bapimepocondheader OCCURS 0 WITH HEADER LINE.  
    30. DATA:it_pocondhx  TYPE bapimepocondheaderx OCCURS 0 WITH HEADER LINE.  
    31. DATA:it_pocond    TYPE bapimepocond   OCCURS 0 WITH HEADER LINE.  
    32. DATA:it_pocondx   TYPE bapimepocondx  OCCURS 0 WITH HEADER LINE.  
    33. DATA:it_potexth   TYPE bapimepotextheader  OCCURS 0 WITH HEADER LINE.  
    34. DATA:it_potexti   TYPE bapimepotext  OCCURS 0 WITH HEADER LINE.  
    35. DATA:it_popartner TYPE bapiekkop  OCCURS 0 WITH HEADER LINE.  
    36. DATA:it_extens    TYPE bapiparex  OCCURS 0 WITH HEADER LINE.    "Customer's Own Fields  
    37. DATA:it_poaccount TYPE bapimepoaccount  OCCURS 0 WITH HEADER LINE.  
    38. DATA:it_poaccountx TYPE bapimepoaccountx  OCCURS 0 WITH HEADER LINE.  
    39. DATA:it_poche      TYPE bapimeposchedule OCCURS 0 WITH HEADER LINE.  
    40. DATA:it_pochex     TYPE bapimeposchedulx OCCURS 0 WITH HEADER LINE.  
    41. DATA:purchseorder TYPE BAPIMEPOHEADER-PO_NUMBER.</font>  
    42.   
    43. DATA:g_poitem TYPE ebelp.   "Item Number of Purchasing Document  
    44. DATA:g_meng LIKE ekpo-menge.    "Purchase Order Quantity  
    45. DATA:l_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.  
    46. DATA:len_str TYPE i,  
    47.      l_index TYPE i.  
    48.   
    49. DATA:BEGIN OF it_data OCCURS 0,  
    50. *       doc_type(004),   </pre>  
    51. <pre class="csharp" name="code">       po(010),  "PO NO  
    52.        material(018),  
    53.        vendor(010),  
    54.        invoice_no(15),  "Invoice Number(Header text)  
    55.        pmnttrms(004),   "Paymentterms  
    56.        quantity(017),  
    57.        doc_date(008),  
    58.        gr_to_date(008), "Delivery date  
    59.        shippingin(10),  "Ship Date(Header Text)  
    60.        eta_hk(10),      "Date of ETA HK(Header Text)  
    61.        trsp_metd(10),   "Transportion Method(Header Text)  
    62.        container_no(20),  "COntainer Number(Header Text)  
    63.        lc_number(20),   "LC Number(Header Text)  
    64.        load_date(10),   "Load Date(Header Text)  
    65.        arr_hk(10),      "Date of Arr. Date(Header Text)  
    66.        remark(20),      "Header remark(Header Text)  
    67.        currency(005),  
    68.        cond_pb00(038),  "Net price  
    69.        cond_p_unt(5),    "Price Unit  
    70.   
    71. END OF it_data.  
    72. DATA:BEGIN OF it_head OCCURS 0,  
    73.        comp_code(4),    "Company Code  
    74.        doc_type(004),   "######  
    75.        po_number(010),  
    76.        po(010),  
    77.        vendor(010),     "######  
    78.        doc_date(008),   "####  
    79.        purch_org(004),  "####  
    80.        pur_group(003),  "####  
    81.        pmnttrms(004),   "####  
    82.        incoterms1(003), "######  
    83.        incoterms2(028), "######  
    84.        currency(005),   "####  
    85.        exch_rate(014),  "##  
    86.        text_pohzs(132), "Header Remark  
    87.        shippingin(132), "SHIPPING INSTRUCTION  
    88.        prppayment(132), "PAYMENT TERM FOR PRP  
    89.        delivery(132),   "DELIVERY  
    90.        attention(132),  "ATTENTION  
    91.        name_2(040),                                         "#####2  
    92.        name_3(040),                                         "#####3  
    93.        name_4(040),                                         "#####4  
    94.        street(040),     "##  
    95.        str_suppl2(040), "##4  
    96.        location(040),   "##5  
    97.        postl_cod1(010), "######  
    98.        country(003),    "####  
    99.        tel1_numbr(030), "##  
    100.        fax_number(030), "##  
    101.        billty(002),     "########  
    102.        billpo(010),     "######  
    103.        purcty(002),     "########  
    104.        purcpo(010),     "#####  
    105.        patety(002),     "########  
    106.        patepo(010),     "######  
    107.        shipty(002),     "########  
    108.        shippo(010),     "######  
    109.        COLLECT_NO(010),   "Collective Number  
    110.      END   OF it_head.  
    111. DATA:BEGIN OF it_item OCCURS 0,  
    112.        po_number(010),  "  
    113.        po(010),  
    114.        acctasscat(001), "######  
    115.        item_cat(001),   "####  
    116.        material(018),   "######  
    117.        short_text(040), "####  
    118.        quantity(017),   "######  
    119.        po_unit(003),    "####  
    120.        gr_to_date(008), "####  
    121.        cond_pb00(038),  "Net Price  
    122.        cond_p_unt(005), "########  
    123.        cond_za00(038),  "UNZ#UTE######  
    124.        matl_group(009), "####  
    125.        plant(004),      "##  
    126.        over_dlv_tol(005),"########  
    127.        tax_code(002),    "##/######  
    128.        costcenter(010),  "####  
    129.        poit_text(132),   "PO####  
    130.        pobz_text(132),   "PO####  
    131.        valuepart1(240),  "Exfact Date  
    132.        valuepart2(240),  "Arr.HK Date  
    133.      END OF it_item.  
    134. DATA:g_menge LIKE ekpo-netpr.  
    135. ******************************************************************  
    136. *   PARAMETERS & SELECTION-OPTIONS  
    137. ******************************************************************  
    138. SELECTION-SCREEN BEGIN OF BLOCK sel  WITH FRAME TITLE text-001.  
    139. PARAMETERS:p_upload RADIOBUTTON GROUP radi,  
    140.            p_uptemp RADIOBUTTON GROUP radi.  
    141. PARAMETERS:p_flag  AS CHECKBOX .  
    142. SELECTION-SCREEN END OF BLOCK sel.  
    143.   
    144. SELECTION-SCREEN BEGIN OF BLOCK mod  WITH FRAME TITLE text-002.  
    145. PARAMETERS:p_file LIKE  rlgrap-filename DEFAULT 'c:\podata',  
    146.            p_log  LIKE  rlgrap-filename DEFAULT 'c:\polog.xls'.  
    147. SELECTION-SCREEN END OF BLOCK mod.  
    148.   
    149. START-OF-SELECTION.  
    150.   IF p_upload = 'X'.  
    151.     PERFORM upload_file.  
    152.     PERFORM upload_data.  
    153.   ENDIF.  
    154.   
    155.   
    156. *&--------------------------------------------------------------------*  
    157. *&      Form  upload_file  
    158. *&--------------------------------------------------------------------*  
    159. *       text  
    160. *---------------------------------------------------------------------*  
    161. FORM upload_file.  
    162.   
    163.   TRANSLATE p_file TO UPPER CASE.  
    164.   len_str = STRLEN( p_file ).  
    165.   len_str = len_str - 4.  
    166.   IF p_file+len_str(4) <> '.XLS'.  
    167.     CONCATENATE p_file '.XLS' INTO p_file.  
    168.   ENDIF.  
    169.   CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'  
    170.     EXPORTING  
    171.       filename                = p_file  
    172.       i_begin_col             = 1  
    173.       i_begin_row             = 2  
    174.       i_end_col               = 256  
    175.       i_end_row               = 65535  
    176.     TABLES  
    177.       intern                  = l_intern  
    178.     EXCEPTIONS  
    179.       inconsistent_parameters = 1  
    180.       upload_ole              = 2  
    181.       OTHERS                  = 3.  
    182.   IF sy-subrc <> 0.  
    183.   ENDIF.  
    184.   
    185.   SORT l_intern BY row col.  
    186.   LOOP AT l_intern.  
    187.     MOVE l_intern-col TO l_index.  
    188.     ASSIGN COMPONENT l_index OF STRUCTURE it_data TO <fs></fs>.  
    189.     MOVE l_intern-value TO <fs></fs>.  
    190.     AT END OF row.  
    191.       APPEND it_data.  
    192.       CLEAR  it_data.  
    193.     ENDAT.  
    194.   ENDLOOP.  
    195.   
    196. ENDFORM.                    "UPLOAD_FILE  
    197. *&---------------------------------------------------------------------*  
    198. *&      Form  UPLOAD_DATA  
    199. *&---------------------------------------------------------------------*  
    200. FORM upload_data .  
    201.   CLEAR:it_head,it_item.  
    202.   LOOP AT it_data.  
    203.     MOVE-CORRESPONDING it_data TO it_head.  
    204.     it_head-COLLECT_NO = it_data-po.  
    205.     COLLECT it_head.  
    206.     MOVE-CORRESPONDING it_data TO it_item.  
    207.     APPEND  it_item.  
    208.   ENDLOOP.  
    209.   REFRESH it_msg.  
    210.   
    211.   
    212.   LOOP AT it_head.  
    213.     CLEAR: it_potexth,wa_pohead,wa_poheadx,wa_poaddrvendor.  
    214.     REFRESH:it_potexth,it_popartner.  
    215. *Document Type  
    216.     wa_pohead-doc_type = 'NB'.  
    217.     wa_poheadx-doc_type = 'X'.  
    218.   
    219. *Vendor Number  
    220.     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  
    221.       EXPORTING  
    222.         input  = it_head-vendor  
    223.       IMPORTING  
    224.         output = it_head-vendor.  
    225.     wa_pohead-vendor = it_head-vendor.  
    226.     wa_poheadx-vendor = 'X'.  
    227. *Document Date  
    228.     wa_pohead-doc_date = it_head-doc_date.  
    229.     wa_poheadx-doc_date = 'X'.  
    230.   
    231. *Collective Number  
    232.     wa_pohead-COLLECT_NO = it_head-COLLECT_NO.  
    233.     wa_poheadx-COLLECT_NO = 'X'.  
    234.   
    235. *Company Code  
    236.       wa_pohead-comp_code = '8200'.  
    237.       wa_poheadx-comp_code = 'X'.  
    238.   
    239.   
    240. *Purchase Organise  
    241.       wa_pohead-purch_org = '8200'.  
    242.   
    243. *Purchase Group  
    244.       wa_pohead-pur_group = '003'.  
    245.       wa_poheadx-pur_group = 'X'.  
    246.   
    247. *Payment term  
    248.       wa_pohead-pmnttrms = it_head-pmnttrms.  
    249.       wa_poheadx-pmnttrms = 'X'.  
    250.   
    251. *Currency  
    252.     wa_pohead-currency = it_head-currency.  
    253.     wa_poheadx-currency = 'X'.  
    254.   
    255. *Purchase Order Header Text  
    256.       it_potexth-text_line = it_data-remark.    "Header Remark(Header Text)  
    257.       it_potexth-po_number = it_head-po_number.  
    258.       it_potexth-text_id   = 'F01'.  
    259.       APPEND it_potexth.  
    260.       CLEAR it_potexth.  
    261.   
    262. *SHIPPING INSTRUCTION  
    263.     it_potexth-text_line = it_head-shippingin.  "Ship Date(Header Text)  
    264.     it_potexth-po_number = it_head-po_number.  
    265.     it_potexth-text_id   = 'F02'.  
    266.     APPEND it_potexth.  
    267.     CLEAR it_potexth.  
    268. *PAYMENT TERM FOR PRP  
    269.     it_potexth-text_line = it_data-load_date.  "Load Date(Header Text)  
    270.     it_potexth-po_number = it_head-po_number.  
    271.     it_potexth-text_id   = 'F03'.  
    272.     APPEND it_potexth.  
    273.     CLEAR it_potexth.  
    274. *Date of ETA HK  
    275.     it_potexth-text_line = it_data-eta_hk.    "Date of ETA HK  
    276.     it_potexth-po_number = it_head-po_number.  
    277.     it_potexth-text_id   = 'F04'.  
    278.     APPEND it_potexth.  
    279.     CLEAR it_potexth.  
    280. *Date of Arr HK  
    281.     it_potexth-text_line = it_data-arr_hk.    "Date of Arr HK  
    282.     it_potexth-po_number = it_head-po_number.  
    283.     it_potexth-text_id   = 'F05'.  
    284.     APPEND it_potexth.  
    285.     CLEAR it_potexth.  
    286.   
    287. *Transpotion Method  
    288.     it_potexth-text_line = it_data-trsp_metd.  
    289.     it_potexth-po_number = it_head-po_number.  
    290.     it_potexth-text_id   = 'F06'.  
    291.     APPEND it_potexth.  
    292.     CLEAR it_potexth.  
    293.   
    294. *Container Number  
    295.     it_potexth-text_line = it_data-container_no.  
    296.     it_potexth-po_number = it_head-po_number.  
    297.     it_potexth-text_id   = 'F07'.  
    298.     APPEND it_potexth.  
    299.     CLEAR it_potexth.  
    300.   
    301. *LC Number  
    302.     it_potexth-text_line = it_data-lc_number.  
    303.     it_potexth-po_number = it_head-po_number.  
    304.     it_potexth-text_id   = 'F08'.  
    305.     APPEND it_potexth.  
    306.     CLEAR it_potexth.  
    307.   
    308. *Invoice Number  
    309.     it_potexth-text_line = it_data-invoice_no.  
    310.     it_potexth-po_number = it_head-po_number.  
    311.     it_potexth-text_id   = 'F09'.  
    312.     APPEND it_potexth.  
    313.     CLEAR it_potexth.  
    314.   
    315.   
    316. *Purchase Order Item Information  
    317.     CLEAR g_poitem.  
    318.     REFRESH: it_poitemx,it_poitem,it_pocond,it_pocondx,  
    319.              it_poche,it_pochex .  
    320.   
    321.     LOOP AT it_item.  
    322.       IF  it_item-po EQ it_head-po.  
    323.         CLEAR:it_poitem, it_poitemx.  
    324.         g_poitem = g_poitem + 10.  
    325.         it_poitem-po_item = g_poitem.  
    326.         it_poitemx-po_item = g_poitem.  
    327.         it_poitem-item_cat = it_item-item_cat.  
    328.         it_poitemx-item_cat = 'X'.  
    329.         it_poitemx-po_itemx = 'X'.  
    330.         CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  
    331.           EXPORTING  
    332.             input  = it_item-material  
    333.           IMPORTING  
    334.             output = it_item-material.  
    335.   
    336.         it_poitem-material = it_item-material.  
    337.         it_poitemx-material = 'X'.  
    338.         IF it_item-short_text IS NOT INITIAL.  
    339.           it_poitem-short_text = it_item-short_text.  
    340.           it_poitemx-short_text = 'X'.  
    341.   
    342.         ENDIF.  
    343.   
    344.         CLEAR g_meng.  
    345.         g_meng = it_item-quantity.  
    346.         it_poitem-quantity = g_meng.  
    347.         it_poitemx-quantity = 'X'.  
    348.         it_poitem-po_unit =  it_item-po_unit.  
    349.         it_poitemx-po_unit =  'X'.  
    350.   
    351.         CLEAR g_mtart.  
    352.         SELECT SINGLE mtart INTO g_mtart FROM mara  
    353.                 WHERE matnr EQ it_item-material.  
    354.         IF g_mtart EQ 'ZNON'.  
    355.           it_poitem-acctasscat = 'Z'.  
    356.           it_poitemx-acctasscat = 'X'.  
    357.         ENDIF.  
    358.   
    359.   
    360.         CLEAR:  it_poche,it_pochex.  
    361.         it_poche-po_item   = g_poitem.  
    362.         it_pochex-po_item  = g_poitem.  
    363.         it_poche-sched_line   = g_poitem.  
    364.         it_pochex-sched_line  = g_poitem.  
    365.         it_poche-delivery_date  = it_item-gr_to_date.  
    366.         it_pochex-delivery_date  = 'X'.  
    367.   
    368.         it_poche-quantity   = g_meng.  
    369.         it_pochex-quantity  = 'X'.  
    370.   
    371.         it_pochex-po_itemx = 'X'.  
    372.         it_pochex-sched_linex = 'X'.  
    373.   
    374.   
    375.         APPEND: it_poche,it_pochex.  
    376.   
    377.         it_poitem-plant = '8200'.  
    378.         it_poitemx-plant = 'X'.  
    379.         IF it_item-matl_group IS NOT INITIAL.  
    380.           it_poitem-matl_group = it_item-matl_group.  
    381.           it_poitemx-matl_group = 'X'.  
    382.         ENDIF.  
    383.         it_poitem-over_dlv_tol = it_item-over_dlv_tol.  
    384.         it_poitemx-over_dlv_tol = 'X'.  
    385.         it_poitem-tax_code = it_item-tax_code.  
    386.         it_poitemx-tax_code = 'X'.  
    387.         g_menge = it_item-cond_pb00.  
    388.   
    389.         IF g_menge EQ  0.  
    390.           it_poitem-free_item = 'X'.  
    391.           it_poitemx-free_item = 'X'.  
    392.         ELSE.  
    393.           it_poitem-free_item = ''.  
    394.           it_poitemx-free_item = 'X'.  
    395.         ENDIF.  
    396.   
    397.         it_poitem-matl_group = it_item-matl_group.  
    398.         it_poitemx-matl_group = 'X'.  
    399.   
    400.   
    401.         IT_POITEM-NET_PRICE = IT_ITEM-COND_PB00.  
    402.         IT_POITEMX-NET_PRICE = 'X'.  
    403.         it_poitem-price_unit = it_item-cond_p_unt.  
    404.         it_poitemx-price_unit = 'X'.  
    405.         APPEND:it_poitemx,it_poitem.  
    406.   
    407.   
    408. *ConditionS  
    409.         CLEAR it_pocond.  
    410.         it_pocond-cond_type = 'PB00'.  
    411.         it_pocond-itm_number = it_poitem-po_item.  
    412.         it_pocond-cond_value = IT_ITEM-COND_PB00.  
    413.         it_pocond-cond_p_unt  =  it_item-cond_p_unt.  
    414.         it_pocond-currency    = it_head-currency.  
    415.         it_pocond-change_id   = 'U'.  
    416.         APPEND it_pocond.  
    417.   
    418.         CLEAR it_pocondx.  
    419.         it_pocondx-cond_type = 'X'.  
    420.         it_pocondx-itm_number = it_poitem-po_item.  
    421.         it_pocondx-cond_value = 'X'.  
    422.         it_pocondx-cond_p_unt = 'X'.  
    423.         it_pocondx-currency    = 'X'.  
    424.         it_pocondx-change_id   = 'X'.  
    425.         APPEND it_pocondx.  
    426.   
    427.       ENDIF.  
    428.     ENDLOOP.  
    429.   
    430.     wa_testrun = p_flag.  
    431.     DELETE it_item WHERE  po EQ it_head-po.  
    432.     SELECT SINGLE ebeln INTO g_ebeln FROM ekko  
    433.         WHERE ebeln EQ wa_pohead-po_number.  
    434.     IF sy-subrc NE 0.  
    435. <font color="#ff0000">      CALL FUNCTION 'BAPI_PO_CREATE1'  
    436.         EXPORTING  
    437.           poheader     = wa_pohead  
    438.           poheaderx    = wa_poheadx  
    439.           poaddrvendor = wa_poaddrvendor  
    440.           testrun      = wa_testrun  
    441.         IMPORTING  
    442.           EXPPURCHASEORDER        = purchseorder  
    443.         TABLES  
    444.           return       = it_return  
    445.           poitem       = it_poitem  
    446.           poitemx      = it_poitemx  
    447.           poschedule   = it_poche  
    448.           poschedulex  = it_pochex  
    449.           pocond       = it_pocond  
    450.           pocondx      = it_pocondx  
    451.           potextheader = it_potexth  
    452.           potextitem   = it_potexti  
    453.           popartner    = it_popartner.</font>  
    454.   
    455. <font color="#ff0000">CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.  
    456.     WAIT UP TO 1 SECONDS.</font>  
    457.     REFRESH: it_poitem,it_poitemx,it_poche,it_pochex,  
    458.              it_pocond,it_pocondx,it_potexth,it_potexti,it_popartner.  
    459.     CLEAR:it_return,it_poitem,it_poitemx,it_poche,it_pochex,  
    460.              it_pocond,it_pocondx,it_potexth,it_potexti,it_popartner.  
    461.     DELETE it_item WHERE po EQ it_head-po.  
    462.     DELETE it_head WHERE po EQ it_head-po.  
    463. *    LOOP AT it_return WHERE type EQ 'E'.  
    464.     LOOP AT it_return.  
    465.       MOVE-CORRESPONDING it_return TO it_msg1.  
    466. *      it_msg1-ebeln = wa_pohead-po_number.  
    467.       it_msg1-ebeln = purchseorder.  
    468.       it_msg1-old_po = it_head-po.  
    469.       APPEND it_msg1.  
    470.       clear it_msg1.  
    471.     ENDLOOP.  
    472.     ENDIF.  
    473.   
    474.   ENDLOOP.  
    475.   
    476.   
    477.   CALL FUNCTION 'WS_DOWNLOAD'  
    478.     EXPORTING  
    479.       filename                = p_log  
    480.       filetype                = 'DAT'  
    481.       mode                    = 'O'  
    482.     TABLES  
    483.       data_tab                = it_msg1  
    484.     EXCEPTIONS  
    485.       invalid_filesize        = 1  
    486.       invalid_table_width     = 2  
    487.       invalid_type            = 3  
    488.       no_batch                = 4  
    489.       unknown_error           = 5  
    490.       gui_refuse_filetransfer = 6  
    491.       OTHERS                  = 7.  
    492.   IF sy-subrc <> 0.  
    493.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno  
    494.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  
    495.   ENDIF.  
    496.   
    497. ENDFORM.                    " UPLOAD_DATA  
    498. </pre>  

    四， 最后说的是使用ALE技术， 利用IDOC和BAPI实现数据传输功能。我在这里提供一个链接，这是郭裕老师的在线课程录像下载， 主要讲述的是ALE技术和MASTER DATA DISTRIBUTION技术：http://www.itpub.net/494989,1.html
  • 相关阅读:
    python列表[]中括号
    python元组()小括号
    python break continue跳过和跳出循环
    python FOR循环
    python while循环
    python if elif else判断语句
    python使用变量
    python -input用户输入
    pycharm模板
    港股收费
  • 原文地址：https://www.cnblogs.com/levin/p/1543179.html
Copyright © 2020-2023  润新知