BDC问题汇总

定义

DATA: gt_bdcdata TYPE TABLE OF bdcdata,
      gs_bdcdata TYPE bdcdata.

子程序

FORM bdc_dynpro USING program dynpro.
  gs_bdcdata-program  = program.
  gs_bdcdata-dynpro   = dynpro.
  gs_bdcdata-dynbegin = 'X'.
  APPEND gs_bdcdata TO gt_bdcdata.
  CLEAR gs_bdcdata.
ENDFORM.

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
  gs_bdcdata-fnam = fnam.
  gs_bdcdata-fval = fval.
  APPEND gs_bdcdata TO gt_bdcdata.
  CLEAR gs_bdcdata.
ENDFORM.

调用

  DATA: lv_mode   TYPE char1 VALUE 'N',
        lv_update TYPE char1 VALUE 'S',
        lv_msg    TYPE string.


  DATA: lt_messtab TYPE TABLE OF bdcmsgcoll,
        ls_messtab TYPE bdcmsgcoll,
        lt_return  TYPE TABLE OF bapiret2.

    CALL TRANSACTION 'AIBU' USING gt_bdcdata
                            MODE lv_mode
                            UPDATE lv_update
                            MESSAGES INTO lt_messtab.

消息读取

 CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
      TABLES
        imt_bdcmsgcoll = lt_messtab
        ext_return     = lt_return.

 

 

参考代码如下：

LOOP AT lt_head ASSIGNING FIELD-SYMBOL(<fs_head>).




    PERFORM bdc_dynpro      USING 'SAPMA12B' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LKO74-TESTLAUF'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=AUSF'.
    PERFORM bdc_field       USING 'ANLA-BUKRS'
                                  <fs_head>-bukrs."record-bukrs_001.
    PERFORM bdc_field       USING 'ANLA-ANLN1'
                                  <fs_head>-anln1."record-anln1_002.
    PERFORM bdc_field       USING 'ANLA-ANLN2'
                                  <fs_head>-anln2."record-anln2_003.
    PERFORM bdc_field       USING 'ANEK-BLDAT'
                                  p_budat."record-bldat_004.
    PERFORM bdc_field       USING 'ANEP-BZDAT'
                                  p_budat."record-bzdat_005.
    PERFORM bdc_field       USING 'ANEK-BUDAT'
                                  p_budat."record-budat_006.
    PERFORM bdc_field       USING 'ANBZ-MONAT'
                                  '01'."record-monat_007.
    PERFORM bdc_field       USING '*KOMK3-SGTXT'
                                  <fs_head>-c_sgtxt."record-sgtxt_008.
    PERFORM bdc_field       USING '*KOMK1-BLART'
                                  'AA'."record-blart_009.
    PERFORM bdc_field       USING 'LKO74-TESTLAUF'
                                  ' '."record-testlauf_010.
    PERFORM bdc_field       USING 'LKO74-LIST'
                                  'X'."record-list_011.

    CALL TRANSACTION 'AIBU' USING gt_bdcdata
                            MODE lv_mode
                            UPDATE lv_update
                            MESSAGES INTO lt_messtab.


    CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
      TABLES
        imt_bdcmsgcoll = lt_messtab
        ext_return     = lt_return.


    READ TABLE lt_messtab INTO ls_messtab WITH KEY msgtyp = 'S'.
    IF sy-subrc = 0.

      READ TABLE lt_return INTO DATA(ls_return) INDEX 1.


      CLEAR gs_excel-aiab_msg.
      gs_excel-aibu_msg = '过账成功'.
      MODIFY gt_excel FROM gs_excel TRANSPORTING aibu_msg WHERE bukrs = <fs_head>-bukrs
                                                            AND anln1 = <fs_head>-anln1
                                                            AND anln2 = <fs_head>-anln2.


    ELSE.

      CLEAR lv_msg.
      LOOP AT lt_return INTO ls_return WHERE type = 'E'.
        lv_msg =  lv_msg && ls_return-message .
      ENDLOOP.

      CLEAR gs_excel-aiab_msg.
      gs_excel-aibu_msg = '过账失败:' && lv_msg.
      MODIFY gt_excel FROM gs_excel TRANSPORTING aibu_msg WHERE bukrs = <fs_head>-bukrs
                                                            AND anln1 = <fs_head>-anln1
                                                            AND anln2 = <fs_head>-anln2.


    ENDIF.



    CLEAR :gt_bdcdata,
           lt_messtab,
           lt_return.


  ENDLOOP.