SAP-ABAP之bdc技术call f-65

以下是一个经典的SAP例程序，通过bdc技术生成fi凭证。
REPORT  ZTEST_F65.
 
DATA: LSBL3(10) .                                      

data HS1 TYPE I.
 
TYPES: BEGIN OF tp_out.
TYPES: YGMC TYPE KNA1-NAME1.
TYPES: BM TYPE CSKT-KTEXT.  "部门
INCLUDE TYPE ZFIT_GZYSJ01.
TYPES: YFXJ TYPE ZFIT_GZYSJ01-SJ1. 
"应发小计
TYPES: END OF tp_out.
DATA:
gt_out TYPE TABLE OF tp_out WITH HEADER LINE.
DATA gt_wa like line of gt_out.
DATA: gt_outHB TYPE TABLE OF tp_out WITH HEADER LINE.
data wb type char20.
 
**********定义一个BDC内表***********************
DATA g_itb_bdcdata TYPE TABLE OF bdcdata.
DATA g_wa_bdcdata LIKE LINE OF g_itb_bdcdata.
data p_BUKRS LIKE ZFIT_GZYSJ02-BUKRS 
.
data p_GJAHR LIKE ZFIT_GZYSJ02-GJAHR .
data p_MONAT LIKE ZFIT_GZYSJ02-MONAT.
p_BUKRS = '1000'.
p_GJAHR = '2009'.
p_MONAT = '10'.
 
perFORM frm_post_fp.
 
 
*&---------------------------------------------------------------------*
*&      Form  frm_bdc_input
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P1         text
*      -->P2         text
*      -->P3         text
*----------------------------------------------------------------------*
FORM frm_bdc_input USING p1 p2 p3.
  CLEAR g_wa_bdcdata.
  IF p1 = 'X'.
    g_wa_bdcdata-program = p2.
    g_wa_bdcdata-dynpro = p3.
    g_wa_bdcdata-dynbegin = p1.
    APPEND g_wa_bdcdata TO g_itb_bdcdata.
  ELSE.
    g_wa_bdcdata-fnam = p2.
    g_wa_bdcdata-fval = p3.
    APPEND g_wa_bdcdata TO g_itb_bdcdata.
  ENDIF.
ENDFORM.                    "frm_bdc_input
 
 
 
 
*&---------------------------------------------------------------------*
*&      Form  frm_post_fp
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_post_fp.
 
  DATA l_itb_message TYPE TABLE OF bdcmsgcoll.
  DATA l_wa_message LIKE LINE OF l_itb_message.
 
  DATA l_message TYPE char100.
 
  DATA l_date TYPE bkpf-budat.
  DATA l_wrbtr TYPE char16.
  DATA l_str   TYPE string.
 
  DATA l_mode TYPE c VALUE 'N'.
*  DATA l_mode TYPE c VALUE 'A'.
*  DATA l_mode TYPE c VALUE 'E'.
  DATA: l_datum TYPE datum.
  CONCATENATE '这是' p_MONAT '月的凭证' into wb.
  l_datum+0(4) = p_GJAHR.
  l_datum+4(2) = p_MONAT.
  l_datum+6(2) = '15'.
 
  IF GT_outhb[] IS INITIAL.
   CLEAR:g_wa_bdcdata,g_itb_bdcdata.
 
*先设置科目编码
    LSBL3 = '6601050000'."记住科目编码的状态变式非常重要
    l_wrbtr = '100.00'.
    PERFORM frm_bdc_input USING: 'X'   'SAPLF040'     '0100',
                                
''    'BDC_OKCODE'   '/00',
                                
''    'BKPF-BLDAT'   l_datum,
                                
''    'BKPF-BLART'   'SA',
                                
''    'BKPF-BUKRS'   p_BUKRS,   "输入公司代码
                                ''     'BKPF-BUDAT'   l_datum,    "日期
                                
''    'BKPF-WAERS'   'RMB',
                                 
''  'BKPF-BKTXT'  wb  ,       "文本抬头
                                
''    'VBKPF-XBWAE'  'X',
                                 ''    'FS006-DOCID'  '*'.
    PERFORM frm_bdc_input USING: ''    'RF05V-NEWBS'  '40'.
    PERFORM frm_bdc_input USING: ''    'RF05V-NEWKO'  LSBL3.    "科目编码
    PERFORM frm_bdc_input USING: 'X'   'SAPLF040'     '0300',
                                 ''    'BDC_OKCODE'   '=ZK',
                                
''    'BSEG-WRBTR'   l_wrbtr,    "金额为文本格式
                                
'X'   'SAPLKACB'     '0002',
                                
''           'BDC_OKCODE'   '/EESC',
                                 ''           'BDC_CURSOR'   'COBL-KOSTL',
                                
'X'   'SAPLF040'     '0330',
                                
''           'BDC_CURSOR'   'BSEG-VBUND',
                                
''           'BDC_OKCODE'   '=ZK',
                                 'X'   'SAPLF040'     '0300',
                                
''    'BDC_OKCODE'   '=ZK',
                                
'X'   'SAPLKACB'     '0002',
                                
''       'BDC_OKCODE'   '=ENTE',
                                
''   'COBL-KOSTL'   '1000002' , "成本中心
                                
'X'      'SAPLF040'     '0330',
                                
''       'BDC_OKCODE'   '=S+',
*按员工核算则BSEG-XREF2不为空
*                               ''       'BSEG-XREF2'   gt_wa_out-kunnr.
                                
''       'BSEG-XREF2'   ''.
 
    PERFORM frm_bdc_input USING: ''    'RF05V-NEWBS'  '50',
                                
''    'RF05V-NEWKO'  '2211030101',
                                 'X'   'SAPLF040'     '0300',
 
                                
''    'BDC_OKCODE'   '=AB',
                                
''    'BSEG-WRBTR'   '*',
                                
'X'   'SAPLKACB'     '0002',
 
                                
''    'BDC_OKCODE'   '=ENTE',
                                
'X'   'SAPLF040'     '0700',
                                
''    'BDC_CURSOR'   'BKPF-XBLNR',
                                
''    'BDC_OKCODE'   '=PBBP'.
 
    "break-point.
    CALL TRANSACTION 'F-65' USING g_itb_bdcdata MODE l_mode MESSAGES INTO l_itb_message.
 
    READ TABLE l_itb_message INTO l_wa_message WITH KEY  msgtyp = 'S' msgid = 'FP' msgnr = '001'.
 
    DATA: l_msg TYPE string.
    IF sy-subrc = 0.
      CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
          id        = l_wa_message-msgid
          lang      = '1'
          no        = l_wa_message-msgnr
          v1        = l_wa_message-msgv1
          v2        = l_wa_message-msgv2
          v3        = l_wa_message-msgv3
          v4        = l_wa_message-msgv4
        IMPORTING
          msg       = l_msg
        EXCEPTIONS
          not_found = 1
          OTHERS    = 2.
 
      WRITE:/ l_msg.
    ELSE.
      LOOP AT l_itb_message INTO l_wa_message WHERE  msgtyp = 'E' OR  msgtyp = 'A'.
        CALL FUNCTION 'FORMAT_MESSAGE'
          EXPORTING
            id        = l_wa_message-msgid
            lang      = '1'
            no        = l_wa_message-msgnr
            v1        = l_wa_message-msgv1
            v2        = l_wa_message-msgv2
            v3        = l_wa_message-msgv3
            v4        = l_wa_message-msgv4
          IMPORTING
            msg       = l_msg
          EXCEPTIONS
            not_found = 1
            OTHERS    = 2.
 
        WRITE:/ l_msg.
      ENDLOOP.
    ENDIF.
  ELSE.
    WRITE:/ '没有需要结转的数据'.
  ENDIF.