BADI  ACC_DOCUMENT里赋值

FUNCTION  zfm_move_value .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(IS_INPUT)
*"     VALUE(IV_STRUCTURE)
*"     VALUE(CV_STRUCTURE)
*"  CHANGING
*"     VALUE(CS_INPUT) OPTIONAL
*"----------------------------------------------------------------------

FIELD-SYMBOLS :
          TYPE  any ,                                  "从工作区结构
        TYPE  any .                                  "到工作区结构
*
   DATA  :  lt_idetails  TYPE  abap_compdescr_tab  WITH  HEADER  LINE .
   DATA  :  lr_ref_table_des  TYPE  REF  TO  cl_abap_structdescr .

DATA  :  ct_idetails  TYPE  abap_compdescr_tab  WITH  HEADER  LINE .
   DATA  :  cr_ref_table_des  TYPE  REF  TO  cl_abap_structdescr .

lr_ref_table_des ?=
        cl_abap_typedescr => describe_by_name (  iv_structure  ) .

CLEAR  lt_idetails[] .
  lt_idetails[]  =  lr_ref_table_des -> components[] .

cr_ref_table_des ?=
        cl_abap_typedescr => describe_by_name (  cv_structure  ) .

CLEAR  ct_idetails[] .
  ct_idetails[]  =  cr_ref_table_des -> components[] .

"循环判断结构每个字段
   LOOP  AT  lt_idetails .
     ASSIGN  COMPONENT  lt_idetails - name  OF  STRUCTURE  is_input  TO    .
     CHECK  sy - subrc  =  0  .

READ  TABLE  ct_idetails  WITH  KEY  name  =  lt_idetails - name .
     CHECK  sy - subrc  =  0 .
     ASSIGN  COMPONENT  ct_idetails - name  OF  STRUCTURE  cs_input  TO  .
     CHECK  sy - subrc  =  0 .

IF    IS  NOT  INITIAL .
        =   .
     ENDIF .
   ENDLOOP .

ENDFUNCTION .

增强位置2： LFACIF5D

FUNCTION zfm_ac_post  .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(IS_HEADER) TYPE  ZS_POST_HEADER
*"  EXPORTING
*"     VALUE(EV_BELNR) TYPE  BELNR_D
*"     VALUE(EV_MSG) TYPE  STRING
*"  TABLES
*"      IT_ITEM STRUCTURE  ZS_POST_ITEM
*"      RETURN STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------

DATA : gs_bkpf  TYPE bapiache09 ,
         gt_account  TYPE  TABLE  OF bapiacgl09 , "总帐
         gs_account  TYPE bapiacgl09 ,
         gt_customer  TYPE  TABLE  OF bapiacar09 , "客户
         gs_customer  TYPE  bapiacar09 ,
         gt_vendor  TYPE  TABLE  OF bapiacap09 , "供应商
         gs_vendor  TYPE bapiacap09 ,
         gt_currency  TYPE  TABLE  OF bapiaccr09 , "货币
         gs_currency  TYPE bapiaccr09 ,
         gt_etx  TYPE  TABLE  OF bapiparex , "扩展结构
         gs_etx  TYPE  bapiparex ,
         gt_etxend  TYPE  TABLE  OF zs_post_exten , "扩展结构
         gs_etxend  TYPE zs_post_exten ,
         gt_return  TYPE  TABLE  OF bapiret2   WITH  HEADER  LINE .

DATA : l_itemno  TYPE posnr_acc . "行项目编号
   DATA : lv_number1  TYPE  i .
   DATA : lv_flag_w  TYPE flag .       "W 类型特殊总账

DATA :ls_item  LIKE  LINE  OF it_item .

*header
   CLEAR gs_bkpf .
  gs_bkpf -comp_code   = is_header -bukrs .
  gs_bkpf -doc_type    = is_header -blart .
  gs_bkpf -doc_date    = is_header -bldat .
  gs_bkpf -pstng_date  = is_header -budat .
  gs_bkpf -header_txt  = is_header -bktxt .
  gs_bkpf -ref_doc_no  = is_header -xblnr .
  gs_bkpf -username    = sy -uname .

*item
   REFRESH :gt_account ,gt_customer ,gt_vendor ,gt_currency ,gt_etxend ,gt_etx ,gt_return .
   CLEAR : gs_account ,gs_customer ,gs_vendor ,gs_currency ,gs_etxend ,gs_etx .

CLEAR ls_item .

l_itemno  =  '0000000000' .            "行项目编号
   LOOP  AT it_item  INTO ls_item .

**    gs_bkpf-neg_postng = ls_item-xnegp." header 的，但是为啥到了item

CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input   = ls_item -kunnr
       IMPORTING
         output  = ls_item -kunnr .
     CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input   = ls_item -lifnr