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