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

谁践踏了优雅 2021-11-26 13:50 367阅读 0赞

\*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.