通过事务代码FK05（XK05）更新SAP供应商主数据的记账冻结字段

*data: lifnr type string value '100067'.

data: lt_xlfas type table of flfas     ,
      lt_xlfb5 type table of flfb5     ,
      lt_xlfbk type table of flfbk     ,
      lt_xlfza type table of flfza     .

data: l_lfb1 like lfb1,
      l_ylfb1 type  lfb1,
      l_lfa1 type lfa1,
      l_ylfa1 type lfa1,
      l_lfm1 type lfm1.

clear :lt_xlfas,lt_xlfb5,lt_xlfbk, lt_xlfza,l_lfb1,l_ylfb1,l_lfa1,l_ylfa1,l_lfm1."

call function 'VENDOR_READ'
  exporting
    i_bukrs         = 'GW01'
    i_lifnr         = '0000001287'
 importing
   e_lfa1          = l_lfa1
*   E_LFB1          =
 exceptions
   not_found       = 1
   others          = 2
          .
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

l_lfa1-sperr = 'X'."看个人需求用哪个     公司的财务记账冻结
l_lfa1-SPERM = 'X'."看个需求用哪个    所有采购组织冻结

if l_lfa1 is not initial.
  call function 'VENDOR_UPDATE' "IN UPDATE TASK

    exporting

      i_lfa1  = l_lfa1
          I_LFB1  = L_LFB1
          I_LFM1  = L_LFM1
          I_YLFA1 = L_YLFA1
          I_YLFB1 = L_YLFB1
          I_YLFM1 = L_LFM1

   " IMPORTING

    tables
      t_xlfas = lt_xlfas
          T_XLFB5 = LT_XLFB5
          T_XLFBK = LT_XLFBK
          T_XLFZA = LT_XLFZA
          T_YLFAS = LT_XLFAS
          T_YLFB5 = LT_XLFB5
          T_YLFBK = LT_XLFBK
          T_YLFZA = LT_XLFZA
  .

  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  endif.

endif.